Changeset 37

Timestamp:

Feb 13, 2017, 5:53:40 AM (8 years ago)

Author:

Alex Taylor

Message:

Added some more documentation.

Location:

rxprtutl/trunk

Files:

• rxprtutl.c (modified) (2 diffs)
• rxprtutl.txt (added)
• testlib.cmd (modified) (3 diffs)

rxprtutl/trunk/rxprtutl.c

@@ -1 +1 @@
 /******************************************************************************
  * REXX OS/2 Printer Utility API (RXPRTUTL.DLL)                               *
- * (C) 2011 Alex Taylor                                                       *
+ * (C) 2011,2016 Alex Taylor                                                  *
  *                                                                            *
  * LICENSE:                                                                   *
@@ -61 +61 @@
 
 #define SZ_LIBRARY_NAME         "RXPRTUTL"  // Name of this library
+#define SZ_VERSION              "0.2.4"     // Current version of this library
+
+//This is now defined by the Makefile:
 //#define SZ_ERROR_NAME           "RPUERROR"  // REXX variable used to store error codes
-#define SZ_VERSION              "0.2.4"     // Current version of this library
 
 #define APPNAME_LEAD_STR        "PM_"

rxprtutl/trunk/testlib.cmd

@@ -5 +5 @@
 CALL RPULoadFuncs
 
+ARG test_driver
+IF test_driver == '' THEN test_driver = 'PSCRIPT'
+
 SAY 'REXX Print Utilities Library version' RPUVersion()
 
-test_driver = 'PSPRINT'
 test_driver_file = SysBootDrive()'\os2\dll\'test_driver'\'test_driver'.DRV'
 IF STREAM( test_driver_file, 'C', 'QUERY EXISTS') <> '' THEN DO
@@ -64 +66 @@
 END
 SAY
+
 /*
 IF printers.0 > 0 THEN DO
@@ -70 +73 @@
 END
 
-rc = RPUQueueHold('GenericP', 'N')
+rc = RPUQueueHold( printers.1.!queue, 'N')
 IF rc == 0 THEN SAY RPUERROR
 */
 
 
-rc = RPUEnumModels(test_driver_file, 'models.')
+rc = RPUEnumModels( test_driver_file, 'models.')
 IF rc == 0 THEN SAY RPUERROR
 ELSE DO