link_axp.com

   1 $! $XFree86: xc/programs/xterm/link_axp.com,v 1.1 2000/02/08 17:19:35 dawes Exp $
   2 $ SAVE_VERIFY='F$VERIFY(0)
   3 $ if p1 .Eqs. "CLEAN" then goto clean
   4 $ if p1 .Eqs. "CLOBBER" then goto clobber
   5 $ if p1 .Eqs. "INSTALL" then goto install
   6 $!
   7 $!      Compile the X11R4 Xterm application
   8 $!
   9 $ Set Symbol/Scope=NoGlobal
  10 $!
  11 $!  Define logicals pointing to the needed directories
  12 $!
  13 $ x11lib_device = f$parse("[.lib]",,,"DEVICE")
  14 $ x11lib_directory = f$parse("[.lib]",,,"DIRECTORY")
  15 $ define/nolog x11lib 'x11lib_device''x11lib_directory'
  16 $!
  17 $ x11inc_device = f$parse("[]",,,"DEVICE")
  18 $ x11inc_directory = f$parse("[]",,,"DIRECTORY")
  19 $ define/nolog x11inc 'x11inc_device''x11inc_directory'
  20 $!
  21 $ xmu_device = f$parse("[.lib.xmu]",,,"DEVICE")
  22 $ xmu_directory = f$parse("[.lib.xmu]",,,"DIRECTORY")
  23 $ define/nolog x11xmu 'xmu_device''xmu_directory'
  24 $!
  25 $ xbm_device = f$parse("[.lib.x11]",,,"DEVICE")
  26 $ xbm_directory = f$parse("[.lib.x11]",,,"DIRECTORY")
  27 $ define/nolog x11xbm 'xbm_device''xbm_directory'
  28 $!
  29 $ xaw_device = f$parse("[.lib.xaw]",,,"DEVICE")
  30 $ xaw_directory = f$parse("[.lib.xaw]",,,"DIRECTORY")
  31 $ define/nolog x11xaw 'xaw_device''xaw_directory'
  32 $!
  33 $ x11vms_device = f$parse("[.lib.misc]",,,"DEVICE")
  34 $ x11vms_directory = f$parse("[.lib.misc]",,,"DIRECTORY")
  35 $ define/nolog x11vms 'x11vms_device''x11vms_directory'
  36 $!
  37 $!  Get the compiler options via the logical name COPTS
  38 $!
  39 $ cc_options = f$trnlnm("COPTS")
  40 $!
  41 $!  Get the linker options via the logical name LOPTS
  42 $!
  43 $ link_options = f$trnlnm("LOPTS")
  44 $!
  45 $ write sys$output "Building XTERM Image"
  46 $ CALL MAKE XTERM.EXE   "LINK ''link_options' /EXE=XTERM.EXE_AXP/CROSS/FULL/MAP=XTERM.MAP XTERM_AXP/OPT" *.OBJ
  47 $!
  48 $ deassign x11lib
  49 $ deassign x11vms
  50 $ deassign x11xmu
  51 $ deassign x11xbm
  52 $ deassign x11xaw
  53 $!
  54 $ exit
  55 $!
  56 $ Clobber:      ! Delete executables, Purge directory and clean up object files and listings
  57 $ Delete/noconfirm/log *.exe;*
  58 $!
  59 $ Clean:        ! Purge directory, clean up object files and listings
  60 $ Purge
  61 $ Delete/noconfirm/log *.lis;*
  62 $ Delete/noconfirm/log *.obj;*
  63 $!
  64 $ exit
  65 $!
  66 $ Install:
  67 $ Copy/log *.exe x11bin:
  68 $ exit
  69 $!
  70 $MAKE: SUBROUTINE   !SUBROUTINE TO CHECK DEPENDENCIES
  71 $ V = 'F$Verify(0)
  72 $! P1 = What we are trying to make
  73 $! P2 = Command to make it
  74 $! P3 - P8  What it depends on
  75 $
  76 $ If F$Search(P1) .Eqs. "" Then Goto Makeit
  77 $ Time = F$CvTime(F$File(P1,"RDT"))
  78 $arg=3
  79 $Loop:
  80 $       Argument = P'arg
  81 $       If Argument .Eqs. "" Then Goto Exit
  82 $       El=0
  83 $Loop2:
  84 $       File = F$Element(El," ",Argument)
  85 $       If File .Eqs. " " Then Goto Endl
  86 $       AFile = ""
  87 $Loop3:
  88 $       OFile = AFile
  89 $       AFile = F$Search(File)
  90 $       If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
  91 $       If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
  92 $       Goto Loop3
  93 $NextEL:
  94 $       El = El + 1
  95 $       Goto Loop2
  96 $EndL:
  97 $ arg=arg+1
  98 $ If arg .Le. 8 Then Goto Loop
  99 $ Goto Exit
 100 $
 101 $Makeit:
 102 $ Set Verify
 103 $ 'P2
 104 $ VV='F$Verify(0)
 105 $Exit:
 106 $ If V Then Set Verify
 107 $ENDSUBROUTINE