Subversion Repositories Tewi

$! $Id: build.com 414 2024-11-12 02:28:47Z nishi $

$ set def [.Common]

$ objects = ""

$ comobjs = ""

$ build_common:

$ 	file = f$search("*.c")

$ 	if file .eqs. "" then goto quit_server

$	write sys$output "Compiling "'file'

$	cc 'file'

$	if file .eqs. "" then

$		comobjs = "''file'"

$	else

$		comobjs = "''objects'+''file'"

$	endif

$ goto build_common

$ quit_common:

$ 	set def [-.Server]

$ build_server:

$ 	file = f$search("*.c")

$ 	if file .eqs. "" then goto quit_server

$	write sys$output "Compiling "'file'

$	cc 'file'

$	if file .eqs. "" then

$		objects = "''file'"

$	else

$		objects = "''objects'+''file'"

$	endif

$ goto build_server

$ quit_server:

$	link /executable=tewi.exe "''comobjs'+''objects'"

$	set def [-]

$ exit