Changeset 20 for rxutilex/trunk/rxutilex.c

Timestamp:

Oct 7, 2014, 4:25:50 PM (11 years ago)

Author:

Alex Taylor

Message:

Sys2QueryProcess now accepts a PID of 0 for the current process. Version number increased to 0.1.0.

File:

• rxutilex/trunk/rxutilex.c (modified) (3 diffs)

rxutilex/trunk/rxutilex.c

@@ -73 +73 @@
 #define SZ_LIBRARY_NAME         "RXUTILEX"  // Name of this library
 #define SZ_ERROR_NAME           "SYS2ERR"   // REXX variable used to store error codes
-#define SZ_VERSION              "0.0.5"     // Current version of this library
+#define SZ_VERSION              "0.1.0"     // Current version of this library
 
 // Maximum string lengths...
@@ -1956 +1956 @@
     CHAR   szName[ CCHMAXPATH ]  = {0}, // Fully-qualified name of process
            szNoExt[ CCHMAXPATH ] = {0}; // Program name without extension
+    PPIB   ppib;                        // pointer to current process info block
     PSZ    pszCurrent,                  // Program name of a queried process
            c;                           // Pointer to substring
@@ -1964 +1965 @@
     APIRET rc;                          // Return code
 
+
+    // Use current process when PID is 0 and program name is not specified
+    if (( pszProgram == NULL ) && ( *pulPID == 0 )) {
+        rc = DosGetInfoBlocks( NULL, &ppib );
+        if ( rc != NO_ERROR ) {
+            WriteErrorCode( rc, "DosGetInfoBlocks");
+            return ( rc );
+        }
+        *pulPID = ppib->pib_ulpid;
+    }
 
 #ifdef USE_DQPS