3
$ on control_y then goto Common_Exit!
4
$ orig = f$environment("DEFAULT")
5
$ loc = f$environment("PROCEDURE")
6
$ def = f$parse("X.X;1",loc) - "X.X;1"
9
$ cc_qual = "/define=HAVE_CONFIG_H=1/include=(""../include/"",""../"",""../../openssl-0_9_6c/include/"")"
10
$ if p1 .eqs. "LISTING" then cc_qual = cc_qual + "/LIST/MACHINE"
11
$ if p1 .eqs. "DEBUG" then cc_qual = cc_qual + "/LIST/MACHINE/DEBUG"
13
$ call build "[.lib]" "*.c"
14
$ call build "[.src]" "*.c"
15
$ call build "[.src]" "*.msg"
16
$ link /exe=curl.exe [.src]curl/lib/include=main,[.lib]curl/lib, -
17
[-.openssl-0_9_6c.axp.exe.ssl]libssl/lib, -
18
[-.openssl-0_9_6c.axp.exe.crypto]libcrypto/lib
26
$ reset = f$search("reset")
27
$ if f$search("CURL.OLB") .eqs. ""
29
$ LIB/CREATE/OBJECT CURL.OLB
31
$ reset = f$search("reset",1)
33
$ file = f$search(search,1)
34
$ if file .eqs. "" then goto EndLoop
35
$ obj = f$search(f$parse(".OBJ;",file),2)
38
$ if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))
41
$ lib/object curl.OLB 'f$parse(".obj;",file)'
43
$! write sys$output "File: ''file' is up to date"
46
$! write sys$output "Object for file: ''file' does not exist"
48
$ lib/object curl.OLB 'f$parse(".obj;",file)'
54
$ endsubroutine ! Build
59
$ qual = p2+p3+p4+p5+p6+p7+p8
60
$ typ = f$parse(file,,,"TYPE") - "."
61
$ cmd_c = "CC "+cc_qual
62
$ cmd_msg = "MESSAGE "+msg_qual
65
$ ENDSUBROUTINE ! Compile