| $! |
| $ |
| $ 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_7/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_7.axp.exe.ssl]libssl/lib, - |
| [-.openssl-0_9_7.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 |