Changeset 20

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.

Location:

rxutilex/trunk

Files:

• FUNCTIONS (modified) (2 diffs)
• Makefile (modified) (1 diff)
• rxutilex.c (modified) (3 diffs)
• rxutilex.def (modified) (1 diff)
• testlib.cmd (modified) (1 diff)

rxutilex/trunk/FUNCTIONS

@@ -344 +344 @@
 Sys2QueryForegroundProcess
 
-Queries the PID of the current foreground process.
+Queries the PID of the current foreground process. (Note that this is not
+necessarily the same as the process which is calling this function, which 
+could, for example, be running in the background and/or as a child of the
+foreground process.)
 
 REXX ARGUMENTS: None
@@ -369 +372 @@
 
 Queries information about the specified process.
+
+Specifying a process ID of 0 will return the information for the 
+current process (that is, the process calling this function); note that
+this requires the second parameter to specify that the identifier is in
+fact a process ID ('P' or 'H') rather than an executable name.
 
 REXX ARGUMENTS:

rxutilex/trunk/Makefile

@@ -16 +16 @@
 
 $(NAME).dll : $(NAME).obj
-                makedesc -D"Extra REXX Utility Functions" -N"Alex Taylor" -V"^#define=SZ_VERSION,rxutilex.c" $(NAME).def
+                makedesc -D"Extended REXX Utility Functions" -N"Alex Taylor" -V"^#define=SZ_VERSION,rxutilex.c" $(NAME).def
                 $(LINK) $(LFLAGS) $(NAME).obj $(NAME).def $(LIBS) /O:$@
 #                @dllrname.exe $@ CPPOM30=OS2OM30 /Q /R

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

rxutilex/trunk/rxutilex.def

@@ -1 +1 @@
 LIBRARY     RXUTILEX INITINSTANCE TERMINSTANCE
 DATA        MULTIPLE NONSHARED
-DESCRIPTION '@#Alex Taylor:0.0.5#@##1## 21 Sep 2014 16:45:48     REINFORCE::::::@@Extra REXX Utility Functions'
+DESCRIPTION '@#Alex Taylor:0.1.0#@##1## 7 Oct 2014 22:42:18      REINFORCE::::::@@Extra REXX Utility Functions'
 
 EXPORTS     Sys2LoadFuncs

rxutilex/trunk/testlib.cmd

@@ -11 +11 @@
 
 say Sys2QueryProcess( 40, 'P')
+say 'Current process:' Sys2QueryProcess( 0, 'P')
 
 pc = Sys2QueryProcessList('procs.')
 say pc 'processes found.'
+/*
 do i = 1 to procs.0
     say procs.i
 end
+*/
 say 'Current foreground process:' Sys2QueryForegroundProcess()
 /*