not used anymore since Marty Kuhrt's recent VMS updates
This commit is contained in:
parent
bad978feb2
commit
e5c4b6b345
@ -1,69 +0,0 @@
|
|||||||
$!
|
|
||||||
$
|
|
||||||
$ 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
|
|
Loading…
x
Reference in New Issue
Block a user