Changeset 48

Timestamp:

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

Author:

Alex Taylor

Message:

Add Sys2SetSize

Location:

rxutilex/trunk

Files:

• rxutilex.c (modified) (5 diffs)
• rxutilex.def (modified) (2 diffs)
• rxutilex.txt (modified) (3 diffs)
• test1 (modified) ( previous)
• testlib.cmd (modified) (1 diff)

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 );

rxutilex/trunk/rxutilex.def

@@ -1 +1 @@
 LIBRARY     RXUTILEX INITINSTANCE TERMINSTANCE
 DATA        MULTIPLE NONSHARED
-DESCRIPTION '@#Alex Taylor:0.1.7#@##1## 22 Sep 2019 23:22:58     reinforce::::::@@Extended REXX Utility Functions'
+DESCRIPTION '@#Alex Taylor:0.1.7#@##1## 24 Sep 2019 18:41:10     reinforce::::::@@Extended REXX Utility Functions'
 
 EXPORTS     Sys2LoadFuncs
@@ -33 +33 @@
 Sys2QuerySysValue
 Sys2Exec
-
+Sys2SetSize

rxutilex/trunk/rxutilex.txt

@@ -172 +172 @@
                                                                          
 Executes an external program and returns the process ID or termination
-code.  Wrapper to DosExecPgm.  If the called program requires user input,
-it must be the same type (PM or text mode) as the program which calls this
-function.
+code.  Wrapper to DosExecPgm().  Note that text mode programs requiring 
+user input cannot be started from a PM program using this function; 
+they can only be started from another text mode program (in which case 
+it is inadvisable to start them using any mode other than EXEC_SYNC).
                                                                          
 REXX ARGUMENTS:                                                          
@@ -687 +688 @@
 
 -------------------------------------------------------------------------
+Sys2SetSize
+
+Set the size of a file to a specific number of bytes; files larger than 
+2GB are supported (this function is a wrapper to DosSetFileSizeL).
+
+REXX ARGUMENTS:
+  1. File handle (returned by Sys2Open).  (REQUIRED)
+  2. The new file size, in bytes.         (REQUIRED)
+
+REXX RETURN VALUE:
+  1 on success, or 0 if an error occurred.
+
+
+-------------------------------------------------------------------------
 Sys2SyncBuffer
 
@@ -700 +715 @@
 REXX RETURN VALUE:  1 on success, 0 on failure
 
+
 -------------------------------------------------------------------------
 Sys2Version

rxutilex/trunk/testlib.cmd

@@ -58 +58 @@
 say 'Started program with PID =' pid
 
+/*
+hf = Sys2Open('test1')
+CALL Sys2SetSize hf, 100
+CALL Sys2Close hf
+*/
+
 call Sys2DropFuncs
 return 0