Changeset 48 for rxutilex/trunk/rxutilex.c

Timestamp:

Sep 25, 2019, 12:43:50 AM (6 years ago)

Author:

Alex Taylor

Message:

Add Sys2SetSize

File:

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

rxutilex/trunk/rxutilex.c

@@ -1 +1 @@
 /******************************************************************************
  * REXX Utility Functions - Extended (RXUTILEX.DLL)                           *
- * (C) 2011, 2017 Alex Taylor.                                                *
+ * (C) 2011, 2019 Alex Taylor.                                                *
  *                                                                            *
  * LICENSE:                                                                   *
@@ -147 +147 @@
     "Sys2Close",
     "Sys2Seek",
+    "Sys2SetSize",
     "Sys2BytesRemaining",
     "Sys2Read",
@@ -196 +197 @@
 RexxFunctionHandler Sys2Write;
 RexxFunctionHandler Sys2SyncBuffer;
+RexxFunctionHandler Sys2SetSize;
 
 
@@ -202 +204 @@
 
 #ifndef LEGACY_C_LOCALE
-int GetLocaleString( PSZ *ppszItem, LocaleItem item );
+    int GetLocaleString( PSZ *ppszItem, LocaleItem item );
     void GroupNumber( PSZ buf, ULONGLONG val, PSZ sep );
 #endif
@@ -2208 +2210 @@
     sprintf( achActual, "%lld", llActual );
     SaveResultString( prsResult, achActual, strlen(achActual) );        // 2016-02-20 SHL
+
+    return ( 0 );
+}
+
+
+/* ------------------------------------------------------------------------- *
+ * Sys2SetSize                                                               *
+ *                                                                           *
+ * Wrapper to DosSetFileSizeL: set the size of a file opened with Sys2Open.  *
+ *                                                                           *
+ * REXX ARGUMENTS:                                                           *
+ *   1. File handle (returned by Sys2Open)                        (REQUIRED) *
+ *   2. The new size of the file                                  (REQUIRED) *
+ *                                                                           *
+ * REXX RETURN VALUE:                                                        *
+ *   1 on success, or 0 if an error occurred.                                *
+ * ------------------------------------------------------------------------- */
+ULONG APIENTRY Sys2SetSize( PSZ pszName, ULONG argc, RXSTRING argv[], PSZ pszQueue, PRXSTRING prsResult )
+{
+    HFILE    hf;
+    LONGLONG llSize;
+    APIRET   rc;
+
+    // Reset the error indicator
+    WriteErrorCode( 0, NULL );
+
+    // Make sure we have two valid arguments
+    if ( argc < 2 || ( !RXVALIDSTRING(argv[0]) ) || ( !RXVALIDSTRING(argv[1]) ))
+        return ( 40 );
+
+    // First argument: file handle
+    if (( sscanf( argv[0].strptr, "%8X", &hf )) != 1 ) return ( 40 );
+
+    // Second argument: requested size
+    if (( sscanf( argv[1].strptr, "%lld", &llSize )) != 1 ) return ( 40 );
+
+    rc = DosSetFileSizeL( hf, llSize );
+    if ( rc != NO_ERROR ) {
+        WriteErrorCode( rc, "DosSetFileSizeL");
+        SaveResultString( prsResult, PSZ_ZERO, 1 );
+    }
+    else {
+        SaveResultString( prsResult, PSZ_ONE, 1 );
+    }
 
     return ( 0 );