Changeset 62 for trunk/rexxlib

Timestamp:

Dec 6, 2017, 4:57:03 AM (8 years ago)

Author:

Alex Taylor

Message:

Make and test file updates.

Location:

trunk/rexxlib

Files:

• Makefile (modified) (1 diff)
• rexxcups.c (modified) (3 diffs)
• testlib.cmd (modified) (1 diff)

trunk/rexxlib/Makefile

@@ -1 +1 @@
 #####
 # Makefile for GCC 3.x/4.x
+#
+# NOTE: The kLIBC rexx.lib seems to be broken with respect to the variable
+# pool interface functions. To build this REXXCUPS, make sure that rexx.lib
+# from the IBM Toolkit is first in the LIBRARY_PATH.
 #
 

trunk/rexxlib/rexxcups.c

@@ -209 +209 @@
     szStem[ RXSTRLEN(argv[0]) ] = '\0';
 
+//printf("Got parameters.\n");
 /* TODO
     // Second argument: server name (optional)
@@ -217 +218 @@
 */
     iDests = cupsGetDests( &pDests );
+//printf("Got dests.\n");
 
     if ( iDests && pDests ) {
@@ -228 +230 @@
                 strcat( szDestInfo, "D");
             WriteStemElement( szStem, i+1, szDestInfo );
+//printf("%s\n", szStem );
         }
         cupsFreeDests( iDests, pDests );

trunk/rexxlib/testlib.cmd

@@ -6 +6 @@
 
 SAY 'REXX CUPS Library version' RxCupsVersion()
+CALL RxCupsGetQueues 'dests.'
+IF CUPSERR <> '' THEN SAY CUPSERR
+ELSE DO
+    SAY dests.0 'CUPS printer queues found on localhost:'
+    DO i = 1 to dests.0
+        SAY dests.i
+    END
+END
 
+SAY 'Done.'
 CALL RxCupsDropFuncs
 RETURN 0