*** empty log message ***
This commit is contained in:
parent
71910552be
commit
46f163c633
234
ase/awk/awk.c
234
ase/awk/awk.c
File diff suppressed because one or more lines are too long
@ -1,33 +1,25 @@
|
|||||||
$ write sys$output "cc/define=__STAND_ALONE awk.c"
|
$ xxx:
|
||||||
$ cc/define=__STAND_ALONE awk.c
|
|
||||||
$
|
|
||||||
$ write sys$output "cc/define=__STAND_ALONE parse.c"
|
|
||||||
$ cc/define=__STAND_ALONE parse.c
|
|
||||||
$
|
|
||||||
$ write sys$output "cc/define=__STAND_ALONE tree.c"
|
|
||||||
$ cc/define=__STAND_ALONE tree.c
|
|
||||||
$
|
|
||||||
$ write sys$output "cc/define=__STAND_ALONE sa.c"
|
|
||||||
$ cc/define=__STAND_ALONE sa.c
|
|
||||||
$
|
|
||||||
$ write sys$output "lib/create xpawk awk,parse,tree,sa"
|
|
||||||
$ lib/create xpawk awk,parse,tree,sa
|
|
||||||
|
|
||||||
|
|
||||||
$ objs := awk,hash,tab,tree,parse,sa
|
|
||||||
$
|
|
||||||
$ loop:
|
|
||||||
$ file =
|
|
||||||
$ if file .ne. ""
|
|
||||||
$ then
|
|
||||||
$ gosub compile
|
|
||||||
$ goto loop
|
|
||||||
$ endif
|
|
||||||
$
|
$
|
||||||
|
$ names := awk,hash,tab,tree,parse,sa
|
||||||
|
$ gosub compile
|
||||||
|
$ gosub archive
|
||||||
$ exit
|
$ exit
|
||||||
$
|
$
|
||||||
$ compile:
|
$ compile:
|
||||||
$ write sys$output "awk.c"
|
$ 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..."
|
||||||
|
$ cc/define=__STAND_ALONE 'name'
|
||||||
$ return
|
$ return
|
||||||
|
$
|
||||||
|
$ archive:
|
||||||
|
$ write sys$output "Creating library..."
|
||||||
|
$ lib/create xpawk 'names'
|
||||||
|
Loading…
x
Reference in New Issue
Block a user