Changeset 4615 for trunk/tools
- Timestamp:
- Nov 19, 2000, 9:22:30 AM (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/bin/DoWithDirs.cmd
r3092 r4615 1 /* $Id: DoWithDirs.cmd,v 1. 5 2000-03-11 18:52:49bird Exp $1 /* $Id: DoWithDirs.cmd,v 1.6 2000-11-19 08:22:30 bird Exp $ 2 2 * 3 3 * Syntax: dowithdirs.cmd [-e<list of excludes>] [-c] [-i] [-l] [-r] <cmd with args...> … … 140 140 do 141 141 /* exectute the command in the directory */ 142 say ' # entering directory:' asDirs.i;142 say '[Entering directory:' asDirs.i']'; 143 143 /* save old dir and enter the new dir. */ 144 144 sOldDir = directory(); … … 154 154 /* restore old directory and return sucessfully */ 155 155 call directory sOldDir; 156 say ' # - Lock found, stops processing.';156 say '[ - Lock found, stops processing.]'; 157 157 exit(0); 158 158 end 159 say ' # - warning: Skipping '|| asDirs.i || ' - directory was locked.';159 say '[ - warning: Skipping '|| asDirs.i || ' - directory was locked.]'; 160 160 fOK = 0; 161 161 end … … 176 176 do 177 177 /* complain and fail if errors aren't ignored. */ 178 say ' # - rc = 'ret;178 say '[ - rc = 'ret']'; 179 179 if (\fIgnoreFailure) then 180 180 exit(rc); … … 183 183 184 184 /* restore old directory */ 185 say '[Leaving directory:' directory()']' 185 186 call directory sOldDir; 186 187 end … … 191 192 if (rc <> 0) then 192 193 do 193 say ' # - rc = ' || rc;194 say '[ - rc = ' || rc']'; 194 195 if (\fIgnoreFailure) then 195 196 exit(rc);
Note:
See TracChangeset
for help on using the changeset viewer.