| $!
|
| $
|
| $ on control_y then goto Common_Exit!
|
| $ orig = f$environment("DEFAULT")
|
| $ loc = f$environment("PROCEDURE")
|
| $ def = f$parse("X.X;1",loc) - "X.X;1"
|
| $
|
| $ set def 'def'
|
| $ cc_qual = "/define=HAVE_CONFIG_H=1/include=(""../include/"",""../"",""../../openssl-0_9_6c/include/"")" |
| $ if p1 .eqs. "LISTING" then cc_qual = cc_qual + "/LIST/MACHINE"
|
| $ if p1 .eqs. "DEBUG" then cc_qual = cc_qual + "/LIST/MACHINE/DEBUG"
|
| $ msg_qual = ""
|
| $ call build "[.lib]" "*.c"
|
| $ call build "[.src]" "*.c"
|
| $ call build "[.src]" "*.msg"
|
| $ link /exe=curl.exe [.src]curl/lib/include=main,[.lib]curl/lib, - |
| [-.openssl-0_9_6c.axp.exe.ssl]libssl/lib, - |
| [-.openssl-0_9_6c.axp.exe.crypto]libcrypto/lib |
| $
|
| $
|
| $ goto Common_Exit
|
| $build: subroutine
|
| $ set noon
|
| $ set default 'p1'
|
| $ search = p2
|
| $ reset = f$search("reset")
|
| $ if f$search("CURL.OLB") .eqs. ""
|
| $ then
|
| $ LIB/CREATE/OBJECT CURL.OLB
|
| $ endif
|
| $ reset = f$search("reset",1)
|
| $Loop:
|
| $ file = f$search(search,1)
|
| $ if file .eqs. "" then goto EndLoop
|
| $ obj = f$search(f$parse(".OBJ;",file),2)
|
| $ if (obj .nes. "")
|
| $ then
|
| $ if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))
|
| $ then
|
| $ call compile 'file'
|
| $ lib/object curl.OLB 'f$parse(".obj;",file)'
|
| $ else
|
| $! write sys$output "File: ''file' is up to date"
|
| $ endif
|
| $ else
|
| $! write sys$output "Object for file: ''file' does not exist"
|
| $ call compile 'file'
|
| $ lib/object curl.OLB 'f$parse(".obj;",file)'
|
| $ endif
|
| $ goto Loop
|
| $EndLoop:
|
| $ purge
|
| $ set def 'def'
|
| $ endsubroutine ! Build
|
| $
|
| $compile: subroutine
|
| $ set noon
|
| $ file = p1
|
| $ qual = p2+p3+p4+p5+p6+p7+p8
|
| $ typ = f$parse(file,,,"TYPE") - "."
|
| $ cmd_c = "CC "+cc_qual
|
| $ cmd_msg = "MESSAGE "+msg_qual
|
| $ x = cmd_'typ'
|
| $ 'x' 'file'
|
| $ ENDSUBROUTINE ! Compile
|
| $
|
| $Common_Exit:
|
| $ set default 'orig'
|
| $ exit
|