Blame clean.com

Packit f574b8
$! Command file to remove files created by build.com -T.Dickey
Packit f574b8
$ set noverify
Packit f574b8
$ delete [...]*.obj;*
Packit f574b8
$ delete [...]*.olb;*
Packit f574b8
$ delete [...]*.lis;*
Packit f574b8
$ delete [...]*.map;*
Packit f574b8
$ delete [...]*.exe;*
Packit f574b8
$
Packit f574b8
$	name = ""
Packit f574b8
$ loop_tbl :
Packit f574b8
$	last = name
Packit f574b8
$	name = F$SEARCH("[.src.chrtrans]*.tbl;",1)
Packit f574b8
$	if name .nes. "" .and. name .nes. last
Packit f574b8
$	then
Packit f574b8
$		head = "[.src.chrtrans]" + F$PARSE(name,,,"NAME","SYNTAX_ONLY") + ".h"
Packit f574b8
$		if f$search("''head'",2) .nes. ""
Packit f574b8
$		then
Packit f574b8
$			write sys$output "head " + head
Packit f574b8
$			delete 'head;*
Packit f574b8
$		endif
Packit f574b8
$		goto loop_tbl
Packit f574b8
$	endif