path: root/clean.com

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