pdf/goo/vms_make.com

   1 $!========================================================================
   2 $!
   3 $! Goo library compile script for VMS.
   4 $!
   5 $! Written by Patrick Moreau, Martin P.J. Zinser.
   6 $!
   7 $! Copyright 1996-2002 Glyph & Cog, LLC
   8 $!
   9 $!========================================================================
  10 $!
  11 $ GOO_CXXOBJS = "GString.obj,gmempp.obj,gfile.obj,ghash.obj,glist.obj"
  12 $ GOO_CCOBJS  = "gmem.obj,parseargs.obj,vms_directory.obj,vms_unix_times.obj"
  13 $!
  14 $ if f$extract(1,3,f$getsyi("Version")) .lts. "7.0"
  15 $  then
  16 $   GOO_CCOBJS = GOO_CCOBJS + ",vms_unlink.obj"
  17 $ endif
  18 $!
  19 $ i = 0
  20 $ j = 0
  21 $COMPILE_CXX_LOOP:
  22 $ file = f$element(i, ",",GOO_CXXOBJS)
  23 $ if file .eqs. "," then goto COMPILE_CC_LOOP
  24 $ i = i + 1
  25 $ name = f$parse(file,,,"NAME")
  26 $ call make 'file "CXXCOMP ''name'.cc" -
  27        'name'.cc
  28 $ goto COMPILE_CXX_LOOP
  29 $!
  30 $COMPILE_CC_LOOP:
  31 $ file = f$element(j, ",",GOO_CCOBJS)
  32 $ if file .eqs. "," then goto COMPILE_END
  33 $ j = j + 1
  34 $ name = f$parse(file,,,"NAME")
  35 $ call make 'file "CCOMP ''name'.c" -
  36        'name'.c
  37 $ goto COMPILE_CC_LOOP
  38 $!
  39 $COMPILE_END:
  40 $ call make libgoo.olb "lib/cre libgoo.olb ''GOO_CXXOBJS',''GOO_CCOBJS'" *.obj
  41 $!
  42 $ exit
  43 $!
  44 $MAKE: SUBROUTINE   !SUBROUTINE TO CHECK DEPENDENCIES
  45 $ V = 'F$Verify(0)
  46 $! P1 = What we are trying to make
  47 $! P2 = Command to make it
  48 $! P3 - P8  What it depends on
  49 $
  50 $ If F$Search(P1) .Eqs. "" Then Goto Makeit
  51 $ Time = F$CvTime(F$File(P1,"RDT"))
  52 $arg=3
  53 $Loop:
  54 $       Argument = P'arg
  55 $       If Argument .Eqs. "" Then Goto Exit
  56 $       El=0
  57 $Loop2:
  58 $       File = F$Element(El," ",Argument)
  59 $       If File .Eqs. " " Then Goto Endl
  60 $       AFile = ""
  61 $Loop3:
  62 $       OFile = AFile
  63 $       AFile = F$Search(File)
  64 $       If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
  65 $       If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
  66 $       Goto Loop3
  67 $NextEL:
  68 $       El = El + 1
  69 $       Goto Loop2
  70 $EndL:
  71 $ arg=arg+1
  72 $ If arg .Le. 8 Then Goto Loop
  73 $ Goto Exit
  74 $
  75 $Makeit:
  76 $ VV=F$VERIFY(0)
  77 $ write sys$output P2
  78 $ 'P2
  79 $ VV='F$Verify(VV)
  80 $Exit:
  81 $ If V Then Set Verify
  82 $ENDSUBROUTINE