Subversion Repositories Tewi

Rev

Rev 413 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 413 Rev 414
Line 1... Line 1...
1 
$! $Id: build.com 413 2024-11-11 17:25:23Z nishi $
 1 
$! $Id: build.com 414 2024-11-12 02:28:47Z nishi $
- 
 
 2 
$ set def [.Common]
- 
 
 3 
$ objects = ""
- 
 
 4 
$ comobjs = ""
- 
 
 5 
$ build_common:
- 
 
 6 
$ 	file = f$search("*.c")
- 
 
 7 
$ 	if file .eqs. "" then goto quit_server
- 
 
 8 
$	write sys$output "Compiling "'file'
- 
 
 9 
$	cc 'file'
- 
 
 10 
$	if file .eqs. "" then
- 
 
 11 
$		comobjs = "''file'"
- 
 
 12 
$	else
- 
 
 13 
$		comobjs = "''objects'+''file'"
- 
 
 14 
$	endif
- 
 
 15 
$ goto build_common
- 
 
 16 
$ quit_common:
2 
$ set def [.Server]
 17 
$ 	set def [-.Server]
3 
$ build_server:
 18 
$ build_server:
4 
$ 	file = f$search("*.c")
 19 
$ 	file = f$search("*.c")
5 
$ 	if file .eqs. "" then goto quit_server
 20 
$ 	if file .eqs. "" then goto quit_server
6 
$	write sys$output "Compiling "'file'
 21 
$	write sys$output "Compiling "'file'
7 
$	cc 'file'
 22 
$	cc 'file'
- 
 
 23 
$	if file .eqs. "" then
- 
 
 24 
$		objects = "''file'"
- 
 
 25 
$	else
- 
 
 26 
$		objects = "''objects'+''file'"
- 
 
 27 
$	endif
8 
$ goto build_server
 28 
$ goto build_server
9 
$ quit_server:
 29 
$ quit_server:
- 
 
 30 
$	link /executable=tewi.exe "''comobjs'+''objects'"
10 
$	set def [-]
 31 
$	set def [-]
11 
$ exit
 32 
$ exit