diff options
Diffstat (limited to 'clean.com')
| -rw-r--r-- | clean.com | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/clean.com b/clean.com new file mode 100644 index 0000000..8a1fa20 --- /dev/null +++ b/clean.com @@ -0,0 +1,22 @@ +$! Command file to remove files created by build.com -T.Dickey +$ set noverify +$ delete [...]*.obj;* +$ delete [...]*.olb;* +$ delete [...]*.lis;* +$ delete [...]*.map;* +$ delete [...]*.exe;* +$ +$ name = "" +$ loop_tbl : +$ last = name +$ name = F$SEARCH("[.src.chrtrans]*.tbl;",1) +$ if name .nes. "" .and. name .nes. last +$ then +$ head = "[.src.chrtrans]" + F$PARSE(name,,,"NAME","SYNTAX_ONLY") + ".h" +$ if f$search("''head'",2) .nes. "" +$ then +$ write sys$output "head " + head +$ delete 'head;* +$ endif +$ goto loop_tbl +$ endif |