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