Changeset 25

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.

Location:

rxutilex/trunk

Files:

• FUNCTIONS (modified) (1 diff)
• npsrv_w.cmd (modified) (1 diff)
• rxutilex.c (modified) (4 diffs)
• rxutilex.def (modified) (2 diffs)

rxutilex/trunk/FUNCTIONS

@@ -490 +490 @@
 
 -------------------------------------------------------------------------
+Sys2SyncBuffer                                                           
+
+Used to synchronize buffer read/write transactions (wrapper to 
+DosResetBuffer)  For external files, writes the buffer to disk. 
+For named pipes, blocks until the remote client end of the pipe has read 
+the contents.
+                                                                         
+REXX ARGUMENTS:                                                          
+  1. File handle (as returned by Sys2Open or Sys2CreateNamedPipe).
+     (REQUIRED)
+                                                                         
+REXX RETURN VALUE:  1 on success, 0 on failure
+
+-------------------------------------------------------------------------
 Sys2Version
 

rxutilex/trunk/npsrv_w.cmd

@@ -12 +12 @@
         if ok == 0 then say SYS2ERR
         else say ok 'bytes written.'
-/*
-        do until _cb == 0
-            PARSE VALUE Sys2CheckNamedPipe( hp ) WITH _cb _state
-            if _cb == "" then do
-                say SYS2ERR
-                leave
-            end
-        end
-*/
+        ok = Sys2SyncBuffer( hp )
+        if ok == 0 then say SYS2ERR
         ok = Sys2DisconnectNamedPipe( hp )
         if ok == 0 then say SYS2ERR

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

rxutilex/trunk/rxutilex.def

@@ -1 +1 @@
 LIBRARY     RXUTILEX INITINSTANCE TERMINSTANCE
 DATA        MULTIPLE NONSHARED
-DESCRIPTION '@#Alex Taylor:0.1.1#@##1## 3 May 2015 22:36:07      REINFORCE::::::@@Extended REXX Utility Functions'
+DESCRIPTION '@#Alex Taylor:0.1.2#@##1## 12 Jul 2015 20:07:59     REINFORCE::::::@@Extended REXX Utility Functions'
 
 EXPORTS     Sys2LoadFuncs
@@ -27 +27 @@
 Sys2Read
 Sys2Write
-
+Sys2SyncBuffer