Changeset 4103 for branches/GRACE/src

Timestamp:

Aug 28, 2000, 1:31:45 PM (25 years ago)

Author:

bird

Message:

REXX fix: Check for extention too.

File:

• branches/GRACE/src/win32k/ldr/myldrOpen.cpp (modified) (2 diffs)

branches/GRACE/src/win32k/ldr/myldrOpen.cpp

@@ -1 @@
-/* $Id: myldrOpen.cpp,v 1.10.4.6 2000-08-25 04:47:24 bird Exp $
+/* $Id: myldrOpen.cpp,v 1.10.4.7 2000-08-28 11:31:45 bird Exp $
  *
  * myldrOpen - ldrOpen.
@@ -572 +572 @@
          *      - And we're loading an EXE
          *      - And we're either in QAppType or ExecPgm state.
-         *      - Extention is currently ignored....
+         *      - Extention:
          *          .RX and .REX are known to be pure REXX scripts.
          *          While .CMD has to invoked used the commandline OS2_SHELL or COMSPEC variable.
          */
-        if (*u1.pach == '/' && u1.pach[1] == '*'
+        psz2 = pszFilename + strlen(pszFilename) - 1;
+        while (psz2 > pszFilename && *psz2 != '.')
+            psz2--;
+        if (*psz2 == '.'
+            && *u1.pach == '/' && u1.pach[1] == '*'
             && isLdrStateLoadingEXE()
             && (isLdrStateQAppType() || isLdrStateExecPgm())
+            && (stricmp(psz2, ".RX") == 0 || stricmp(psz2, ".REX"))
             )
         {