2006-02-18 16:15:53 +00:00
|
|
|
$
|
|
|
|
|
$! build script for OpenVMS
|
2006-02-07 16:11:49 +00:00
|
|
|
$
|
2006-07-28 16:52:41 +00:00
|
|
|
$ names := awk,err,tree,tab,map,parse,run,sa,val,func,misc,extio,rex
|
2006-02-18 16:14:14 +00:00
|
|
|
$ gosub compile
|
|
|
|
|
$ gosub archive
|
2006-02-07 16:11:49 +00:00
|
|
|
$ exit
|
2006-02-18 16:14:14 +00:00
|
|
|
$
|
2006-02-07 16:11:49 +00:00
|
|
|
$ compile:
|
2006-02-18 16:14:14 +00:00
|
|
|
$ num = 0
|
|
|
|
|
$ compile_loop:
|
|
|
|
|
$ name = f$element(num,",",names)
|
|
|
|
|
$ if name .eqs. "," then return
|
|
|
|
|
$ gosub compile_file
|
|
|
|
|
$ num = num + 1
|
|
|
|
|
$ goto compile_loop
|
|
|
|
|
$
|
|
|
|
|
$ compile_file:
|
|
|
|
|
$ write sys$output "Compiling ''name'.c..."
|
2006-04-16 04:31:38 +00:00
|
|
|
$ cc/define=XP_AWK_STAND_ALONE 'name'
|
2006-02-07 16:11:49 +00:00
|
|
|
$ return
|
2006-02-18 16:14:14 +00:00
|
|
|
$
|
|
|
|
|
$ archive:
|
|
|
|
|
$ write sys$output "Creating library..."
|
|
|
|
|
$ lib/create xpawk 'names'
|
