| 1 |
|
$! $Id$ |
| 2 |
< |
$ set def [.Server] |
| 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 |
