build_vms.com

   1 $!
   2 $
   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"
   7 $
   8 $       set def 'def'
   9 $       cc_qual = "/define=HAVE_CONFIG_H=1/include=(""../include/"",""../"",""../../openssl-0_9_7/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"
  12 $       msg_qual = ""
  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_7.axp.exe.ssl]libssl/lib, -
  18                 [-.openssl-0_9_7.axp.exe.crypto]libcrypto/lib
  19 $
  20 $
  21 $       goto Common_Exit
  22 $build: subroutine
  23 $       set noon
  24 $       set default 'p1'
  25 $       search = p2
  26 $       reset = f$search("reset")
  27 $       if f$search("CURL.OLB") .eqs. ""
  28 $       then
  29 $               LIB/CREATE/OBJECT CURL.OLB
  30 $       endif
  31 $       reset = f$search("reset",1)
  32 $Loop:
  33 $       file = f$search(search,1)
  34 $       if file .eqs. "" then goto EndLoop
  35 $               obj = f$search(f$parse(".OBJ;",file),2)
  36 $               if (obj .nes. "")
  37 $               then
  38 $                       if (f$cvtime(f$file(file,"rdt")) .gts. f$cvtime(f$file(obj,"rdt")))
  39 $                       then
  40 $                               call compile 'file'
  41 $                               lib/object curl.OLB 'f$parse(".obj;",file)'
  42 $                       else
  43 $!                              write sys$output "File: ''file' is up to date"
  44 $                       endif
  45 $               else
  46 $!                      write sys$output "Object for file: ''file' does not exist"
  47 $                       call compile 'file'
  48 $                       lib/object curl.OLB 'f$parse(".obj;",file)'
  49 $               endif
  50 $       goto Loop
  51 $EndLoop:
  52 $       purge
  53 $       set def 'def'
  54 $       endsubroutine   ! Build
  55 $
  56 $compile:       subroutine
  57 $       set noon
  58 $       file = p1
  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
  63 $       x = cmd_'typ'
  64 $       'x' 'file'
  65 $       ENDSUBROUTINE   ! Compile
  66 $
  67 $Common_Exit:
  68 $       set default 'orig'
  69 $       exit