Changeset 25 for rxutilex/trunk/rxutilex.c

Timestamp:

Jul 14, 2015, 12:56:28 PM (10 years ago)

Author:

Alex Taylor

Message:

Added Sys2SyncBuffer function. Updated version number to 0.1.2.

File:

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

rxutilex/trunk/rxutilex.c

@@ -84 +84 @@
 #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.1.1"     // Current version of this library
+#define SZ_VERSION              "0.1.2"     // Current version of this library
 
 // Maximum string lengths...
@@ -130 +130 @@
     "Sys2Seek",
     "Sys2Read",
+    "Sys2SyncBuffer",
     "Sys2Write",
     "Sys2Version"
@@ -171 +172 @@
 RexxFunctionHandler Sys2Read;
 RexxFunctionHandler Sys2Write;
+RexxFunctionHandler Sys2SyncBuffer;
 
 
@@ -2091 +2093 @@
 
 
+/* ------------------------------------------------------------------------- *
+ * Sys2SyncBuffer                                                            *
+ *                                                                           *
+ * Wrapper to DosResetBuffer: for external files, write the buffer to disk;  *
+ * for pipes, block until the far end of the pipe has read the contents.     *
+ *                                                                           *
+ * REXX ARGUMENTS:                                                           *
+ *   1. File handle (returned by Sys2Open)                        (REQUIRED) *
+ *                                                                           *
+ * REXX RETURN VALUE:                                                        *
+ *   1 on success, or 0 if an error occurred.                                *
+ * ------------------------------------------------------------------------- */
+ULONG APIENTRY Sys2SyncBuffer( PSZ pszName, ULONG argc, RXSTRING argv[], PSZ pszQueue, PRXSTRING prsResult )
+{
+    HFILE  hf;
+    APIRET rc;
+
+    // Reset the error indicator
+    WriteErrorCode( 0, NULL );
+
+    // Make sure we have exactly one valid argument (the file handle)
+    if ( argc != 1  || ( !RXVALIDSTRING(argv[0]) ))
+        return ( 40 );
+    if (( sscanf( argv[0].strptr, "%8X", &hf )) != 1 ) return ( 40 );
+
+    // Sync the buffer
+    rc = DosResetBuffer( hf );
+    if ( rc != NO_ERROR ) {
+        WriteErrorCode( rc, "DosResetBuffer");
+        MAKERXSTRING( *prsResult, "0", 1 );
+    }
+    else {
+        MAKERXSTRING( *prsResult, "1", 1 );
+    }
+
+    return ( 0 );
+}
+
+
+
 // -------------------------------------------------------------------------
 // INTERNAL FUNCTIONS