Changeset 3092 for trunk/tools

Timestamp:

Mar 11, 2000, 7:52:49 PM (26 years ago)

Author:

bird

Message:

Stops when a lock is found. Added a <tag> to the lock to differ two types of
proceses.

File:

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

trunk/tools/bin/DoWithDirs.cmd

@@ -1 @@
-/* $Id: DoWithDirs.cmd,v 1.4 2000-03-11 17:11:30 bird Exp $
+/* $Id: DoWithDirs.cmd,v 1.5 2000-03-11 18:52:49 bird Exp $
  *
  * Syntax: dowithdirs.cmd [-e<list of excludes>] [-c] [-i] [-l] [-r] <cmd with args...>
@@ -8 +8 @@
  *    -i      Ignore command failure (rc=0)
  *    -r      Process diretories in reverse order.
- *    -l      Lock directories for other dowithdirs.cmd processes. (-c required!)
+ *    -l<tag> Lock directories for other dowithdirs.cmd processes. (-c required!)
+ *            Processing stops (rc=0) on the first locked directory.
+ *            <tag> is a name of the lock.
  */
 
@@ -20 +22 @@
     fLocking = 0;
     fReverse = 0;
+    fExitOnLock = 1;
+    sLockTag = '';
 
     /* parse arguments */
@@ -73 +77 @@
                     do
                         fLocking = 1;
+                        sLockTag = substr(sArg.i, 3);
                     end
 
@@ -143 +148 @@
                 fOK = 1;
                 if (fLocking) then
-                    if (\lockdir()) then
-                    do
+                    if (\lockdir(sLockTag)) then
+                    do
+                        if (fExitOnLock) then
+                        do
+                            /* restore old directory and return sucessfully */
+                            call directory sOldDir;
+                            say '# - Lock found, stops processing.';
+                            exit(0);
+                        end
                         say '# - warning: Skipping '|| asDirs.i || ' - directory was locked.';
                         fOK = 0;
@@ -158 +170 @@
                     /* unlock directory */
                     if (fLocking & fOk) then
-                        call unlockdir;
+                        call unlockdir sLockTag;
 
                     /* check for return? */
@@ -191 +203 @@
 
 syntax:
-    say 'Syntax: dowithdirs.cmd [-e<list of excludes>] [-c] [-i] [-l] [-r] <cmd with args...>';
+    say 'Syntax: dowithdirs.cmd [-e<list of excludes>] [-c] [-i] [-l<tag>] [-r] <cmd with args...>';
     say '   -e      Exclude directories.';
     say '   <list of excludes> is a INCLUDE-path styled list of directories.';
@@ -198 +210 @@
     say '   -i      Ignore command failure (rc=0)';
     say '   -r      Process diretories in reverse order.';
-    say '   -l      Lock directories for other dowithdirs.cmd processes. (-c required!)';
+    say '   -l<tag> Lock directories for other dowithdirs.cmd processes. (-c required!)';
+    say '           Processing stops (rc=0) on the first locked directory.';
+    say '           <tag> is a name of the lock.';
     exit(-1)
 
@@ -208 +222 @@
  */
 lockdir: procedure
-    rc = stream('.dirlocked', 'c', 'open write');
+    parse arg sTag
+    rc = stream('.dirlocked' || sTag, 'c', 'open write');
     return substr(rc, 1, 5) = 'READY';
 
@@ -216 +231 @@
  */
 unlockdir: procedure
-    rc = stream('.dirlocked', 'c', 'close');
+    parse arg sTag
+    rc = stream('.dirlocked' || sTag, 'c', 'close');
     call SysFileDelete '.dirlocked';
     return 0;