build_vms.com

   1 $!\r
   2 $\r
   3 $       on control_y then goto Common_Exit!\r
   4 $       orig = f$environment("DEFAULT")\r
   5 $       loc  = f$environment("PROCEDURE")\r
   6 $       def = f$parse("X.X;1",loc) - "X.X;1"\r
   7 $\r
   8 $       set def 'def'\r
   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"\r
  11 $       if p1 .eqs. "DEBUG" then cc_qual = cc_qual + "/LIST/MACHINE/DEBUG"\r
  12 $       msg_qual = ""\r
  13 $       call build "[.lib]" "*.c"\r
  14 $       call build "[.src]" "*.c"\r
  15 $       call build "[.src]" "*.msg"\r
  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
  19 $\r
  20 $\r
  21 $       goto Common_Exit\r
  22 $build: subroutine\r
  23 $       set noon\r
  24 $       set default 'p1'\r
  25 $       search = p2\r
  26 $       reset = f$search("reset")\r
  27 $       if f$search("CURL.OLB") .eqs. ""\r
  28 $       then\r
  29 $               LIB/CREATE/OBJECT CURL.OLB\r
  30 $       endif\r
  31 $       reset = f$search("reset",1)\r
  32 $Loop:\r
  33 $       file = f$search(search,1)\r
  34 $       if file .eqs. "" then goto EndLoop\r
  35 $               obj = f$search(f$parse(".OBJ;",file),2)\r
  36 $               if (obj .nes. "")\r
  37 $               then\r
  38 $                       if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))\r
  39 $                       then\r
  40 $                               call compile 'file'\r
  41 $                               lib/object curl.OLB 'f$parse(".obj;",file)'\r
  42 $                       else\r
  43 $!                              write sys$output "File: ''file' is up to date"\r
  44 $                       endif\r
  45 $               else\r
  46 $!                      write sys$output "Object for file: ''file' does not exist"\r
  47 $                       call compile 'file'\r
  48 $                       lib/object curl.OLB 'f$parse(".obj;",file)'\r
  49 $               endif\r
  50 $       goto Loop\r
  51 $EndLoop:\r
  52 $       purge\r
  53 $       set def 'def'\r
  54 $       endsubroutine   ! Build\r
  55 $\r
  56 $compile:       subroutine\r
  57 $       set noon\r
  58 $       file = p1\r
  59 $       qual = p2+p3+p4+p5+p6+p7+p8\r
  60 $       typ = f$parse(file,,,"TYPE") - "."\r
  61 $       cmd_c = "CC "+cc_qual\r
  62 $       cmd_msg = "MESSAGE "+msg_qual\r
  63 $       x = cmd_'typ'\r
  64 $       'x' 'file'\r
  65 $       ENDSUBROUTINE   ! Compile\r
  66 $\r
  67 $Common_Exit:\r
  68 $       set default 'orig'\r
  69 $       exit\r