2001-08-23 06:56:48 -04:00
|
|
|
|
$!$ $ 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' G $ cc_qual = "/define=HAVE_CONFIG_H=1/include=(""../include/"",""../"")" @ $ if p1 .eqs. "LISTING" then cc_qual = cc_qual + "/LIST/MACHINE"D $ 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 $ $ $ 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 G $ if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt"))) $ then $ call compile 'file'0 $ lib/object curl.OLB 'f$parse(".obj;",file)' $ else4 $! 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
|
