Changeset 4639 for trunk/tools

Timestamp:

Nov 20, 2000, 4:09:38 AM (25 years ago)

Author:

bird

Message:

Added option -s for skipping locked directories.

File:

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

trunk/tools/bin/DoWithDirs.cmd

@@ -1 @@
-/* $Id: DoWithDirs.cmd,v 1.6 2000-11-19 08:22:30 bird Exp $
+/* $Id: DoWithDirs.cmd,v 1.7 2000-11-20 03:09:38 bird Exp $
  *
  * Syntax: dowithdirs.cmd [-e<list of excludes>] [-c] [-i] [-l] [-r] <cmd with args...>
@@ -11 +11 @@
  *            Processing stops (rc=0) on the first locked directory.
  *            <tag> is a name of the lock.
+ *    -s      Skip locked directories in stead of stopping.
  */
 
@@ -21 +22 @@
     fCD = 0;
     fLocking = 0;
+    fDontStop = 0;
     fReverse = 0;
     fExitOnLock = 1;
@@ -26 +28 @@
 
     /* parse arguments */
-    parse arg sArg.1 sArg.2 sArg.3 sArg.4 sArg.5 sArg.6 sArg.7
-    sArg.0 = 7;
+    parse arg sArg.1 sArg.2 sArg.3 sArg.4 sArg.5 sArg.6 sArg.7 sArg.8 sArg.9
+    sArg.0 = 9;
     do i = 1 to sArg.0
         if (sArg.i <> '') then
@@ -80 +82 @@
                     end
 
+                    when ch = 'S' then
+                    do
+                        fDontStop = 1;
+                    end
+
                     otherwise
                         say 'unknown argument:' sArg.i;
@@ -154 +161 @@
                             /* restore old directory and return sucessfully */
                             call directory sOldDir;
-                            say '[ - Lock found, stops processing.]';
-                            exit(0);
+                            if (fDontStop) then
+                            do
+                                say '[ !Lock found, skips directory.]';
+                                iterate;
+                            end
+                            else
+                            do
+                                say '[ !Lock found, stops processing.]';
+                                exit(0);
+                            end
                         end
                         say '[ - warning: Skipping '|| asDirs.i || ' - directory was locked.]';
@@ -214 +229 @@
     say '           Processing stops (rc=0) on the first locked directory.';
     say '           <tag> is a name of the lock.';
+    say '   -s      Skip locked directories in stead of stopping.'
     exit(-1)
 
@@ -234 +250 @@
     parse arg sTag
     rc = stream('.dirlocked' || sTag, 'c', 'close');
-    call SysFileDelete '.dirlocked';
+    call SysFileDelete '.dirlocked' || sTag;
     return 0;