Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (22 sloc) 530 Bytes
$! 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