Changeset 206 for trunk/tools

Timestamp:

Jan 23, 2021, 6:50:32 PM (5 years ago)

Author:

David Azarewicz

Message:

Reworked internal implementation of /U

File:

• trunk/tools/AddToFile.cmd (modified) (4 diffs)

trunk/tools/AddToFile.cmd

@@ -3 +3 @@
  * Written by and Copyright (c) 2010-2018 David Azarewicz http://88watts.net
  *
- * @#D Azarewicz:1.03#@##1## 02 Mar 2020              DAZAR1    ::::::@@AddToFile.cmd (c) David Azarewicz 2020
+ * @#D Azarewicz:1.04#@##1## 02 Jan 2021              DAZAR1    ::::::@@AddToFile.cmd (c) David Azarewicz 2021
  * V1.01 16-Sep-2016 First official release
  * V1.02 02-Jun-2017 Added Asd to bldlevel, added DATE1
  * V1.03 02-Mar-2020 Added STRING function
+ * V1.04 02-Jan-2021 Added FILESIZE function
  *
  * The following line is for the help sample code for the VAR function:
@@ -30 +31 @@
   Say '  STRING - Adds the string with %Y substitution.';
   Say '  VAR - Adds the value of the specified variable from a specified file.';
+  Say '  FILESIZE - Adds the file size.';
   Say '  FILE - Adds the contents of a file.';
   Say 'Examples:';
@@ -68 +70 @@
   call 'AddToFile.cmd' MyCmd;
   MyCmd=MyFile||',#define XYZ "%A",VAR,EXAMPLEVAR=,AddToFile.cmd';
+  rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
+  call 'AddToFile.cmd' MyCmd;
+  MyCmd=MyFile||',#define FSIZE,FILESIZE,addtofile.cmd';
   rc=LineOut(MyFile, '--- AddToFile.cmd '||MyCmd);
   call 'AddToFile.cmd' MyCmd;
@@ -213 +218 @@
     end;
     rc=stream(String,'c','close');
+    rc=lineout(OutFile);
+  end
+
+  when (Function="FILESIZE") then do
+    NewStr=stream(Parm1,'c','query size');
+    RepLoc=Pos('%A', String);
+    if (RepLoc>0) then OutStr=Substr(String,1,RepLoc-1)||NewStr||Substr(String,RepLoc+2);
+    else OutStr=String||' '||NewStr;
+    rc=lineout(OutFile, OutStr);
     rc=lineout(OutFile);
   end