vms/scripts/compil_swig.com

   1 $!
   2 $! Generated by genbuild.py
   3 $!
   4 $ libname = "swig_root:[vms.o_alpha]swig.olb"
   5 $
   6 $ set default SWIG_ROOT:[SOURCE.SWIG]
   7 $
   8 $ idir :=  swig_root:[source.swig]
   9 $ idir = idir + ",swig_root:[source.doh.include]"
  10 $ idir = idir + ",swig_root:[source.include]"
  11 $ idir = idir + ",swig_root:[source.preprocessor]"
  12 $
  13 $ iflags = "/include=(''idir', sys$disk:[])"
  14 $ oflags = "/object=swig_root:[vms.o_alpha]
  15 $ cflags = "''oflags'''iflags'''dflags'"
  16 $ cxxflags = "''oflags'''iflags'''dflags'"
  17 $
  18 $ call make swig_root:[vms.o_alpha]cwrap.obj -
  19         "cc ''cflags'" cwrap.c
  20 $ call make swig_root:[vms.o_alpha]error.obj -
  21         "cc ''cflags'" error.c
  22 $ call make swig_root:[vms.o_alpha]fragment.obj -
  23         "cc ''cflags'" fragment.c
  24 $ call make swig_root:[vms.o_alpha]getopt.obj -
  25         "cc ''cflags'" getopt.c
  26 $ call make swig_root:[vms.o_alpha]include.obj -
  27         "cc ''cflags'" include.c
  28 $ call make swig_root:[vms.o_alpha]misc.obj -
  29         "cc ''cflags'" misc.c
  30 $ call make swig_root:[vms.o_alpha]naming.obj -
  31         "cc ''cflags'" naming.c
  32 $ call make swig_root:[vms.o_alpha]parms.obj -
  33         "cc ''cflags'" parms.c
  34 $ call make swig_root:[vms.o_alpha]scanner.obj -
  35         "cc ''cflags'" scanner.c
  36 $ call make swig_root:[vms.o_alpha]stype.obj -
  37         "cc ''cflags'" stype.c
  38 $ call make swig_root:[vms.o_alpha]symbol.obj -
  39         "cc ''cflags'" symbol.c
  40 $ call make swig_root:[vms.o_alpha]tree.obj -
  41         "cc ''cflags'" tree.c
  42 $ call make swig_root:[vms.o_alpha]typemap.obj -
  43         "cc ''cflags'" typemap.c
  44 $ call make swig_root:[vms.o_alpha]typesys.obj -
  45         "cc ''cflags'" typesys.c
  46 $ call make swig_root:[vms.o_alpha]warn.obj -
  47         "cc ''cflags'" warn.c
  48 $ call make swig_root:[vms.o_alpha]wrapfunc.obj -
  49         "cc ''cflags'" wrapfunc.c
  50 $ exit
  51 $!
  52 $!
  53 $MAKE: SUBROUTINE   !SUBROUTINE TO CHECK DEPENDENCIES
  54 $ V = 'F$Verify(0)
  55 $! P1 = What we are trying to make
  56 $! P2 = Command to make it
  57 $! P3 = Source file
  58 $! P4 - P8  What it depends on
  59 $
  60 $ modname = f$parse(p3,,,"name")
  61 $ set noon
  62 $ set message/nofacility/noident/noseverity/notext
  63 $ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
  64 $ set message/facility/ident/severity/text
  65 $ on error then exit
  66 $ open/read swigtmp swig_root:[vms]swiglib.tmp
  67 $! skip header
  68 $ read swigtmp r
  69 $ read swigtmp r
  70 $ read swigtmp r
  71 $ read swigtmp r
  72 $ read swigtmp r
  73 $ read swigtmp r
  74 $ read swigtmp r
  75 $ read swigtmp r
  76 $ read swigtmp r
  77 $!
  78 $
  79 $ read/end=module_not_found swigtmp r
  80 $ modfound = 1
  81 $ Time = f$cvtime(f$extract(49, 20, r))
  82 $ goto end_search_module
  83 $ module_not_found:
  84 $ modfound = 0
  85 $
  86 $ end_search_module:
  87 $ close swigtmp
  88 $ delete swig_root:[vms]swiglib.tmp;*
  89 $
  90 $ if modfound .eq. 0 then $ goto Makeit
  91 $
  92 $! Time = F$CvTime(F$File(P1,"RDT"))
  93 $arg=3
  94 $Loop:
  95 $       Argument = P'arg
  96 $       If Argument .Eqs. "" Then Goto Exit
  97 $       El=0
  98 $Loop2:
  99 $       File = F$Element(El," ",Argument)
 100 $       If File .Eqs. " " Then Goto Endl
 101 $       AFile = ""
 102 $Loop3:
 103 $       OFile = AFile
 104 $       AFile = F$Search(File)
 105 $       If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
 106 $       If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
 107 $       Goto Loop3
 108 $NextEL:
 109 $       El = El + 1
 110 $       Goto Loop2
 111 $EndL:
 112 $ arg=arg+1
 113 $ If arg .Le. 8 Then Goto Loop
 114 $ Goto Exit
 115 $
 116 $Makeit:
 117 $ VV=F$VERIFY(1)
 118 $ 'P2' 'P3'
 119 $ VV='F$Verify(VV)
 120 $Exit:
 121 $ If V Then Set Verify
 122 $ENDSUBROUTINE