| 1234567891011121314151617181920212223 |
- $! 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
|
