git.gag.com Git - debian/mtx/blob - vms/build.com

   1 $!x='f$ver(0)
   2 $ if f$parse("[.VMS]A.A").eqs.""
   3 $ then
   4 $   write sys$output "?Error: Use $ @[.VMS]BUILD from the mtx directory"
   5 $   exit 44
   6 $ endif
   7 $ alpha = f$getsyi("hw_model").ge.1024
   8 $ vax = .not.alpha
   9 $ exe = "EXE"
  10 $ obj = "OBJ"
  11 $ sysexe=""
  12 $ migrate=""
  13 $ if alpha then exe="ALPHA_EXE"
  14 $ if alpha then obj="ALPHA_OBJ"
  15 $ if alpha then sysexe="/SYSEXE"
  16 $ if alpha then migrate="/MIGRATION/NOOPT"
  17 $ set verify
  18 $ if "''p1'".eqs."LINK" then goto do_link
  19 $ CC /DECC/DEB/NOOP MTX.C/DEB/NOOP/OBJECT=MTX.'obj'
  20 $ if f$search("MTX.''obj';-1").nes."" then -
  21      purge/log MTX.'obj'
  22 $ CC /DECC/DEB/NOOP [.VMS]LDRSET.C/DEB/NOOP/OBJECT=[.VMS]LDRSET.'obj'
  23 $ if f$search("[.VMS]LDRSET.''obj';-1").nes."" then -
  24      purge/log [.VMS]LDRSET.'obj'
  25 $ MACRO'migrate' /DEB [.VMS]LDRUTIL.MAR -
  26        /OBJECT=[.VMS]LDRUTIL.'obj'
  27 $ if f$search("[.VMS]LDRUTIL.''obj';-1").nes."" then -
  28      purge/log [.VMS]LDRUTIL.'obj'
  29 $!
  30 $ do_link:
  31 $ link/notrace mtx.'obj'/exe=mtx.'exe'
  32 $ link [.vms]ldrset.'obj',[.vms]ldrutil.'obj' -
  33      /exe=ldrset.'exe' 'sysexe'
  34 $ exit