nishi/tewi/build.com

$! $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
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:
17	$ set def [-.Server]
18	$ build_server:
19	$ file = f$search("*.c")
20	$ if file .eqs. "" then goto quit_server
21	$ write sys$output "Compiling "'file'
22	$ cc 'file'
23	$ if file .eqs. "" then
24	$ objects = "''file'"
25	$ else
26	$ objects = "''objects'+''file'"
27	$ endif
28	$ goto build_server
29	$ quit_server:
30	$ link /executable=tewi.exe "''comobjs'+''objects'"
31	$ set def [-]
32	$ exit