Changeset 2919 for trunk/tools

Timestamp:

Feb 27, 2000, 1:40:21 AM (26 years ago)

Author:

bird

Message:

Added -r option for reverse directory processing order.

File:

• trunk/tools/bin/DoWithDirs.cmd (modified) (6 diffs)

trunk/tools/bin/DoWithDirs.cmd

@@ -1 @@
-/* $Id: DoWithDirs.cmd,v 1.2 2000-02-11 15:04:26 bird Exp $
+/* $Id: DoWithDirs.cmd,v 1.3 2000-02-27 00:40:21 bird Exp $
  *
  * Syntax: dowithdirs.cmd [-e<list of excludes>] [-cp] [-i] <cmd with args...>
@@ -7 +7 @@
  *            Default action is to pass the directory name as last argument.
  *    -i      Ignore command failure (rc=0)
- *
+ *    -r      Process diretories in reverse order.
  */
 
@@ -17 +17 @@
     asIgnore.0 = 0;
     fCD = 0;
+    fReverse = 0;
 
     /* parse arguments */
@@ -62 +63 @@
                     end
 
+                    when ch = 'R' then
+                    do
+                        fReverse = 1;
+                    end
+
                     otherwise
                         say 'unknown argument:' sArg.i;
@@ -92 +98 @@
 
     sArgDirs = ' ';
-    do i = 1 to asDirs.0
+    do ii = 1 to asDirs.0
+        /* calculate index */
+        if (fReverse) then
+            i = asDirs.0 - ii + 1;
+        else
+            i = ii;
+
         /* ignore the directory? */
         fFound = 0;
@@ -137 +149 @@
     say '           Default action is to pass the directory name as last argument.';
     say '   -i      Ignore command failure (rc=0)';
+    say '   -r      Process diretories in reverse order.';