Changeset 4645 for trunk/tools

Timestamp:

Nov 20, 2000, 6:03:14 AM (25 years ago)

Author:

bird

Message:

Corrected a flaw I made when introducing the -s option.
Improoved error message.

File:

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

trunk/tools/bin/DoWithDirs.cmd

@@ -1 @@
-/* $Id: DoWithDirs.cmd,v 1.7 2000-11-20 03:09:38 bird Exp $
+/* $Id: DoWithDirs.cmd,v 1.8 2000-11-20 05:03:14 bird Exp $
  *
  * Syntax: dowithdirs.cmd [-e<list of excludes>] [-c] [-i] [-l] [-r] <cmd with args...>
@@ -84 +84 @@
                     when ch = 'S' then
                     do
-                        fDontStop = 1;
+                        fExitOnLock = 0;
                     end
 
@@ -161 +161 @@
                             /* restore old directory and return sucessfully */
                             call directory sOldDir;
-                            if (fDontStop) then
-                            do
-                                say '[ !Lock found, skips directory.]';
-                                iterate;
-                            end
-                            else
-                            do
-                                say '[ !Lock found, stops processing.]';
-                                exit(0);
-                            end
+                            say '[ !Lock found, stops processing.]';
+                            exit(0);
                         end
-                        say '[ - warning: Skipping '|| asDirs.i || ' - directory was locked.]';
+                        say '[ !Skipping ' || asDirs.i || ' - directory was locked.]';
                         fOK = 0;
                     end
@@ -191 +183 @@
                     do
                         /* complain and fail if errors aren't ignored. */
-                        say '[ - rc = 'ret']';
+                        say '[ - rc = 'ret' ' || asDirs.i || ']';
                         if (\fIgnoreFailure) then
                             exit(rc);