File: clean.com

package info (click to toggle)
lynx-cur 2.8.7dev4-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 12,748 kB
  • ctags: 10,819
  • sloc: ansic: 120,416; sh: 3,525; makefile: 917; perl: 884
file content (22 lines) | stat: -rw-r--r-- 530 bytes parent folder | download | duplicates (13)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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