The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley
parent
6fcc22a1f8
commit
516036631c
1508 changed files with 125983 additions and 44037 deletions
15
SWIG/vms/scripts/build_all.com
Normal file
15
SWIG/vms/scripts/build_all.com
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
$!
|
||||
$! Generated by genbuild.py
|
||||
$!
|
||||
$ set default swig_root:[vms]
|
||||
$
|
||||
$ @swig_root:[vms]build_init
|
||||
$ @swig_root:[vms.scripts]compil_cparse.com
|
||||
$ @swig_root:[vms.scripts]compil_doh.com
|
||||
$ @swig_root:[vms.scripts]compil_modules1_1.com
|
||||
$ @swig_root:[vms.scripts]compil_preprocessor.com
|
||||
$ @swig_root:[vms.scripts]compil_swig.com
|
||||
$
|
||||
$ set default swig_root:[vms]
|
||||
$
|
||||
$ @swig_root:[vms]build_end
|
||||
98
SWIG/vms/scripts/compil_cparse.com
Normal file
98
SWIG/vms/scripts/compil_cparse.com
Normal file
|
|
@ -0,0 +1,98 @@
|
|||
$!
|
||||
$! Generated by genbuild.py
|
||||
$!
|
||||
$ libname = "swig_root:[vms.o_alpha]swig.olb"
|
||||
$
|
||||
$ set default SWIG_ROOT:[SOURCE.CPARSE]
|
||||
$
|
||||
$ idir := swig_root:[source.swig]
|
||||
$ idir = idir + ",swig_root:[source.doh.include]"
|
||||
$ idir = idir + ",swig_root:[source.include]"
|
||||
$ idir = idir + ",swig_root:[source.preprocessor]"
|
||||
$
|
||||
$ iflags = "/include=(''idir', sys$disk:[])"
|
||||
$ oflags = "/object=swig_root:[vms.o_alpha]
|
||||
$ cflags = "''oflags'''iflags'''dflags'"
|
||||
$ cxxflags = "''oflags'''iflags'''dflags'"
|
||||
$
|
||||
$ call make swig_root:[vms.o_alpha]cscanner.obj -
|
||||
"cc ''cflags'" cscanner.c
|
||||
$ call make swig_root:[vms.o_alpha]parser.obj -
|
||||
"cc ''cflags'" parser.c
|
||||
$ call make swig_root:[vms.o_alpha]templ.obj -
|
||||
"cc ''cflags'" templ.c
|
||||
$ call make swig_root:[vms.o_alpha]util.obj -
|
||||
"cc ''cflags'" util.c
|
||||
$ exit
|
||||
$!
|
||||
$!
|
||||
$MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
||||
$ V = 'F$Verify(0)
|
||||
$! P1 = What we are trying to make
|
||||
$! P2 = Command to make it
|
||||
$! P3 = Source file
|
||||
$! P4 - P8 What it depends on
|
||||
$
|
||||
$ modname = f$parse(p3,,,"name")
|
||||
$ set noon
|
||||
$ set message/nofacility/noident/noseverity/notext
|
||||
$ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
|
||||
$ set message/facility/ident/severity/text
|
||||
$ on error then exit
|
||||
$ open/read swigtmp swig_root:[vms]swiglib.tmp
|
||||
$! skip header
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$!
|
||||
$
|
||||
$ read/end=module_not_found swigtmp r
|
||||
$ modfound = 1
|
||||
$ Time = f$cvtime(f$extract(49, 20, r))
|
||||
$ goto end_search_module
|
||||
$ module_not_found:
|
||||
$ modfound = 0
|
||||
$
|
||||
$ end_search_module:
|
||||
$ close swigtmp
|
||||
$ delete swig_root:[vms]swiglib.tmp;*
|
||||
$
|
||||
$ if modfound .eq. 0 then $ goto Makeit
|
||||
$
|
||||
$! Time = F$CvTime(F$File(P1,"RDT"))
|
||||
$arg=3
|
||||
$Loop:
|
||||
$ Argument = P'arg
|
||||
$ If Argument .Eqs. "" Then Goto Exit
|
||||
$ El=0
|
||||
$Loop2:
|
||||
$ File = F$Element(El," ",Argument)
|
||||
$ If File .Eqs. " " Then Goto Endl
|
||||
$ AFile = ""
|
||||
$Loop3:
|
||||
$ OFile = AFile
|
||||
$ AFile = F$Search(File)
|
||||
$ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
||||
$ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
||||
$ Goto Loop3
|
||||
$NextEL:
|
||||
$ El = El + 1
|
||||
$ Goto Loop2
|
||||
$EndL:
|
||||
$ arg=arg+1
|
||||
$ If arg .Le. 8 Then Goto Loop
|
||||
$ Goto Exit
|
||||
$
|
||||
$Makeit:
|
||||
$ VV=F$VERIFY(1)
|
||||
$ 'P2' 'P3'
|
||||
$ VV='F$Verify(VV)
|
||||
$Exit:
|
||||
$ If V Then Set Verify
|
||||
$ENDSUBROUTINE
|
||||
106
SWIG/vms/scripts/compil_doh.com
Normal file
106
SWIG/vms/scripts/compil_doh.com
Normal file
|
|
@ -0,0 +1,106 @@
|
|||
$!
|
||||
$! Generated by genbuild.py
|
||||
$!
|
||||
$ libname = "swig_root:[vms.o_alpha]swig.olb"
|
||||
$
|
||||
$ set default SWIG_ROOT:[SOURCE.DOH.DOH]
|
||||
$
|
||||
$ idir := swig_root:[source.swig]
|
||||
$ idir = idir + ",swig_root:[source.doh.include]"
|
||||
$ idir = idir + ",swig_root:[source.include]"
|
||||
$ idir = idir + ",swig_root:[source.preprocessor]"
|
||||
$
|
||||
$ iflags = "/include=(''idir', sys$disk:[])"
|
||||
$ oflags = "/object=swig_root:[vms.o_alpha]
|
||||
$ cflags = "''oflags'''iflags'''dflags'"
|
||||
$ cxxflags = "''oflags'''iflags'''dflags'"
|
||||
$
|
||||
$ call make swig_root:[vms.o_alpha]base.obj -
|
||||
"cc ''cflags'" base.c
|
||||
$ call make swig_root:[vms.o_alpha]file.obj -
|
||||
"cc ''cflags'" file.c
|
||||
$ call make swig_root:[vms.o_alpha]fio.obj -
|
||||
"cc ''cflags'" fio.c
|
||||
$ call make swig_root:[vms.o_alpha]hash.obj -
|
||||
"cc ''cflags'" hash.c
|
||||
$ call make swig_root:[vms.o_alpha]list.obj -
|
||||
"cc ''cflags'" list.c
|
||||
$ call make swig_root:[vms.o_alpha]memory.obj -
|
||||
"cc ''cflags'" memory.c
|
||||
$ call make swig_root:[vms.o_alpha]string.obj -
|
||||
"cc ''cflags'" string.c
|
||||
$ call make swig_root:[vms.o_alpha]void.obj -
|
||||
"cc ''cflags'" void.c
|
||||
$ exit
|
||||
$!
|
||||
$!
|
||||
$MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
||||
$ V = 'F$Verify(0)
|
||||
$! P1 = What we are trying to make
|
||||
$! P2 = Command to make it
|
||||
$! P3 = Source file
|
||||
$! P4 - P8 What it depends on
|
||||
$
|
||||
$ modname = f$parse(p3,,,"name")
|
||||
$ set noon
|
||||
$ set message/nofacility/noident/noseverity/notext
|
||||
$ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
|
||||
$ set message/facility/ident/severity/text
|
||||
$ on error then exit
|
||||
$ open/read swigtmp swig_root:[vms]swiglib.tmp
|
||||
$! skip header
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$!
|
||||
$
|
||||
$ read/end=module_not_found swigtmp r
|
||||
$ modfound = 1
|
||||
$ Time = f$cvtime(f$extract(49, 20, r))
|
||||
$ goto end_search_module
|
||||
$ module_not_found:
|
||||
$ modfound = 0
|
||||
$
|
||||
$ end_search_module:
|
||||
$ close swigtmp
|
||||
$ delete swig_root:[vms]swiglib.tmp;*
|
||||
$
|
||||
$ if modfound .eq. 0 then $ goto Makeit
|
||||
$
|
||||
$! Time = F$CvTime(F$File(P1,"RDT"))
|
||||
$arg=3
|
||||
$Loop:
|
||||
$ Argument = P'arg
|
||||
$ If Argument .Eqs. "" Then Goto Exit
|
||||
$ El=0
|
||||
$Loop2:
|
||||
$ File = F$Element(El," ",Argument)
|
||||
$ If File .Eqs. " " Then Goto Endl
|
||||
$ AFile = ""
|
||||
$Loop3:
|
||||
$ OFile = AFile
|
||||
$ AFile = F$Search(File)
|
||||
$ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
||||
$ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
||||
$ Goto Loop3
|
||||
$NextEL:
|
||||
$ El = El + 1
|
||||
$ Goto Loop2
|
||||
$EndL:
|
||||
$ arg=arg+1
|
||||
$ If arg .Le. 8 Then Goto Loop
|
||||
$ Goto Exit
|
||||
$
|
||||
$Makeit:
|
||||
$ VV=F$VERIFY(1)
|
||||
$ 'P2' 'P3'
|
||||
$ VV='F$Verify(VV)
|
||||
$Exit:
|
||||
$ If V Then Set Verify
|
||||
$ENDSUBROUTINE
|
||||
132
SWIG/vms/scripts/compil_modules1_1.com
Normal file
132
SWIG/vms/scripts/compil_modules1_1.com
Normal file
|
|
@ -0,0 +1,132 @@
|
|||
$!
|
||||
$! Generated by genbuild.py
|
||||
$!
|
||||
$ libname = "swig_root:[vms.o_alpha]swig.olb"
|
||||
$
|
||||
$ set default SWIG_ROOT:[SOURCE.MODULES1_1]
|
||||
$
|
||||
$ idir := swig_root:[source.swig]
|
||||
$ idir = idir + ",swig_root:[source.doh.include]"
|
||||
$ idir = idir + ",swig_root:[source.include]"
|
||||
$ idir = idir + ",swig_root:[source.preprocessor]"
|
||||
$
|
||||
$ iflags = "/include=(''idir', sys$disk:[])"
|
||||
$ oflags = "/object=swig_root:[vms.o_alpha]
|
||||
$ cflags = "''oflags'''iflags'''dflags'"
|
||||
$ cxxflags = "''oflags'''iflags'''dflags'"
|
||||
$
|
||||
$ call make swig_root:[vms.o_alpha]allocate.obj -
|
||||
"cxx ''cxxflags'" allocate.cxx
|
||||
$ call make swig_root:[vms.o_alpha]browser.obj -
|
||||
"cxx ''cxxflags'" browser.cxx
|
||||
$ call make swig_root:[vms.o_alpha]contract.obj -
|
||||
"cxx ''cxxflags'" contract.cxx
|
||||
$ call make swig_root:[vms.o_alpha]emit.obj -
|
||||
"cxx ''cxxflags'" emit.cxx
|
||||
$ call make swig_root:[vms.o_alpha]guile.obj -
|
||||
"cxx ''cxxflags'" guile.cxx
|
||||
$ call make swig_root:[vms.o_alpha]java.obj -
|
||||
"cxx ''cxxflags'" java.cxx
|
||||
$ call make swig_root:[vms.o_alpha]lang.obj -
|
||||
"cxx ''cxxflags'" lang.cxx
|
||||
$ call make swig_root:[vms.o_alpha]main.obj -
|
||||
"cxx ''cxxflags'" main.cxx
|
||||
$ call make swig_root:[vms.o_alpha]module.obj -
|
||||
"cxx ''cxxflags'" module.cxx
|
||||
$ call make swig_root:[vms.o_alpha]mzscheme.obj -
|
||||
"cxx ''cxxflags'" mzscheme.cxx
|
||||
$ call make swig_root:[vms.o_alpha]ocaml.obj -
|
||||
"cxx ''cxxflags'" ocaml.cxx
|
||||
$ call make swig_root:[vms.o_alpha]overload.obj -
|
||||
"cxx ''cxxflags'" overload.cxx
|
||||
$ call make swig_root:[vms.o_alpha]perl5.obj -
|
||||
"cxx ''cxxflags'" perl5.cxx
|
||||
$ call make swig_root:[vms.o_alpha]php4.obj -
|
||||
"cxx ''cxxflags'" php4.cxx
|
||||
$ call make swig_root:[vms.o_alpha]pike.obj -
|
||||
"cxx ''cxxflags'" pike.cxx
|
||||
$ call make swig_root:[vms.o_alpha]python.obj -
|
||||
"cxx ''cxxflags'" python.cxx
|
||||
$ call make swig_root:[vms.o_alpha]ruby.obj -
|
||||
"cxx ''cxxflags'" ruby.cxx
|
||||
$ call make swig_root:[vms.o_alpha]swigmain.obj -
|
||||
"cxx ''cxxflags'" swigmain.cxx
|
||||
$ call make swig_root:[vms.o_alpha]tcl8.obj -
|
||||
"cxx ''cxxflags'" tcl8.cxx
|
||||
$ call make swig_root:[vms.o_alpha]typepass.obj -
|
||||
"cxx ''cxxflags'" typepass.cxx
|
||||
$ call make swig_root:[vms.o_alpha]xml.obj -
|
||||
"cxx ''cxxflags'" xml.cxx
|
||||
$ exit
|
||||
$!
|
||||
$!
|
||||
$MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
||||
$ V = 'F$Verify(0)
|
||||
$! P1 = What we are trying to make
|
||||
$! P2 = Command to make it
|
||||
$! P3 = Source file
|
||||
$! P4 - P8 What it depends on
|
||||
$
|
||||
$ modname = f$parse(p3,,,"name")
|
||||
$ set noon
|
||||
$ set message/nofacility/noident/noseverity/notext
|
||||
$ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
|
||||
$ set message/facility/ident/severity/text
|
||||
$ on error then exit
|
||||
$ open/read swigtmp swig_root:[vms]swiglib.tmp
|
||||
$! skip header
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$!
|
||||
$
|
||||
$ read/end=module_not_found swigtmp r
|
||||
$ modfound = 1
|
||||
$ Time = f$cvtime(f$extract(49, 20, r))
|
||||
$ goto end_search_module
|
||||
$ module_not_found:
|
||||
$ modfound = 0
|
||||
$
|
||||
$ end_search_module:
|
||||
$ close swigtmp
|
||||
$ delete swig_root:[vms]swiglib.tmp;*
|
||||
$
|
||||
$ if modfound .eq. 0 then $ goto Makeit
|
||||
$
|
||||
$! Time = F$CvTime(F$File(P1,"RDT"))
|
||||
$arg=3
|
||||
$Loop:
|
||||
$ Argument = P'arg
|
||||
$ If Argument .Eqs. "" Then Goto Exit
|
||||
$ El=0
|
||||
$Loop2:
|
||||
$ File = F$Element(El," ",Argument)
|
||||
$ If File .Eqs. " " Then Goto Endl
|
||||
$ AFile = ""
|
||||
$Loop3:
|
||||
$ OFile = AFile
|
||||
$ AFile = F$Search(File)
|
||||
$ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
||||
$ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
||||
$ Goto Loop3
|
||||
$NextEL:
|
||||
$ El = El + 1
|
||||
$ Goto Loop2
|
||||
$EndL:
|
||||
$ arg=arg+1
|
||||
$ If arg .Le. 8 Then Goto Loop
|
||||
$ Goto Exit
|
||||
$
|
||||
$Makeit:
|
||||
$ VV=F$VERIFY(1)
|
||||
$ 'P2' 'P3'
|
||||
$ VV='F$Verify(VV)
|
||||
$Exit:
|
||||
$ If V Then Set Verify
|
||||
$ENDSUBROUTINE
|
||||
94
SWIG/vms/scripts/compil_preprocessor.com
Normal file
94
SWIG/vms/scripts/compil_preprocessor.com
Normal file
|
|
@ -0,0 +1,94 @@
|
|||
$!
|
||||
$! Generated by genbuild.py
|
||||
$!
|
||||
$ libname = "swig_root:[vms.o_alpha]swig.olb"
|
||||
$
|
||||
$ set default SWIG_ROOT:[SOURCE.PREPROCESSOR]
|
||||
$
|
||||
$ idir := swig_root:[source.swig]
|
||||
$ idir = idir + ",swig_root:[source.doh.include]"
|
||||
$ idir = idir + ",swig_root:[source.include]"
|
||||
$ idir = idir + ",swig_root:[source.preprocessor]"
|
||||
$
|
||||
$ iflags = "/include=(''idir', sys$disk:[])"
|
||||
$ oflags = "/object=swig_root:[vms.o_alpha]
|
||||
$ cflags = "''oflags'''iflags'''dflags'"
|
||||
$ cxxflags = "''oflags'''iflags'''dflags'"
|
||||
$
|
||||
$ call make swig_root:[vms.o_alpha]cpp.obj -
|
||||
"cc ''cflags'" cpp.c
|
||||
$ call make swig_root:[vms.o_alpha]expr.obj -
|
||||
"cc ''cflags'" expr.c
|
||||
$ exit
|
||||
$!
|
||||
$!
|
||||
$MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
||||
$ V = 'F$Verify(0)
|
||||
$! P1 = What we are trying to make
|
||||
$! P2 = Command to make it
|
||||
$! P3 = Source file
|
||||
$! P4 - P8 What it depends on
|
||||
$
|
||||
$ modname = f$parse(p3,,,"name")
|
||||
$ set noon
|
||||
$ set message/nofacility/noident/noseverity/notext
|
||||
$ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
|
||||
$ set message/facility/ident/severity/text
|
||||
$ on error then exit
|
||||
$ open/read swigtmp swig_root:[vms]swiglib.tmp
|
||||
$! skip header
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$!
|
||||
$
|
||||
$ read/end=module_not_found swigtmp r
|
||||
$ modfound = 1
|
||||
$ Time = f$cvtime(f$extract(49, 20, r))
|
||||
$ goto end_search_module
|
||||
$ module_not_found:
|
||||
$ modfound = 0
|
||||
$
|
||||
$ end_search_module:
|
||||
$ close swigtmp
|
||||
$ delete swig_root:[vms]swiglib.tmp;*
|
||||
$
|
||||
$ if modfound .eq. 0 then $ goto Makeit
|
||||
$
|
||||
$! Time = F$CvTime(F$File(P1,"RDT"))
|
||||
$arg=3
|
||||
$Loop:
|
||||
$ Argument = P'arg
|
||||
$ If Argument .Eqs. "" Then Goto Exit
|
||||
$ El=0
|
||||
$Loop2:
|
||||
$ File = F$Element(El," ",Argument)
|
||||
$ If File .Eqs. " " Then Goto Endl
|
||||
$ AFile = ""
|
||||
$Loop3:
|
||||
$ OFile = AFile
|
||||
$ AFile = F$Search(File)
|
||||
$ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
||||
$ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
||||
$ Goto Loop3
|
||||
$NextEL:
|
||||
$ El = El + 1
|
||||
$ Goto Loop2
|
||||
$EndL:
|
||||
$ arg=arg+1
|
||||
$ If arg .Le. 8 Then Goto Loop
|
||||
$ Goto Exit
|
||||
$
|
||||
$Makeit:
|
||||
$ VV=F$VERIFY(1)
|
||||
$ 'P2' 'P3'
|
||||
$ VV='F$Verify(VV)
|
||||
$Exit:
|
||||
$ If V Then Set Verify
|
||||
$ENDSUBROUTINE
|
||||
122
SWIG/vms/scripts/compil_swig.com
Normal file
122
SWIG/vms/scripts/compil_swig.com
Normal file
|
|
@ -0,0 +1,122 @@
|
|||
$!
|
||||
$! Generated by genbuild.py
|
||||
$!
|
||||
$ libname = "swig_root:[vms.o_alpha]swig.olb"
|
||||
$
|
||||
$ set default SWIG_ROOT:[SOURCE.SWIG]
|
||||
$
|
||||
$ idir := swig_root:[source.swig]
|
||||
$ idir = idir + ",swig_root:[source.doh.include]"
|
||||
$ idir = idir + ",swig_root:[source.include]"
|
||||
$ idir = idir + ",swig_root:[source.preprocessor]"
|
||||
$
|
||||
$ iflags = "/include=(''idir', sys$disk:[])"
|
||||
$ oflags = "/object=swig_root:[vms.o_alpha]
|
||||
$ cflags = "''oflags'''iflags'''dflags'"
|
||||
$ cxxflags = "''oflags'''iflags'''dflags'"
|
||||
$
|
||||
$ call make swig_root:[vms.o_alpha]cwrap.obj -
|
||||
"cc ''cflags'" cwrap.c
|
||||
$ call make swig_root:[vms.o_alpha]error.obj -
|
||||
"cc ''cflags'" error.c
|
||||
$ call make swig_root:[vms.o_alpha]fragment.obj -
|
||||
"cc ''cflags'" fragment.c
|
||||
$ call make swig_root:[vms.o_alpha]getopt.obj -
|
||||
"cc ''cflags'" getopt.c
|
||||
$ call make swig_root:[vms.o_alpha]include.obj -
|
||||
"cc ''cflags'" include.c
|
||||
$ call make swig_root:[vms.o_alpha]misc.obj -
|
||||
"cc ''cflags'" misc.c
|
||||
$ call make swig_root:[vms.o_alpha]naming.obj -
|
||||
"cc ''cflags'" naming.c
|
||||
$ call make swig_root:[vms.o_alpha]parms.obj -
|
||||
"cc ''cflags'" parms.c
|
||||
$ call make swig_root:[vms.o_alpha]scanner.obj -
|
||||
"cc ''cflags'" scanner.c
|
||||
$ call make swig_root:[vms.o_alpha]stype.obj -
|
||||
"cc ''cflags'" stype.c
|
||||
$ call make swig_root:[vms.o_alpha]symbol.obj -
|
||||
"cc ''cflags'" symbol.c
|
||||
$ call make swig_root:[vms.o_alpha]tree.obj -
|
||||
"cc ''cflags'" tree.c
|
||||
$ call make swig_root:[vms.o_alpha]typemap.obj -
|
||||
"cc ''cflags'" typemap.c
|
||||
$ call make swig_root:[vms.o_alpha]typesys.obj -
|
||||
"cc ''cflags'" typesys.c
|
||||
$ call make swig_root:[vms.o_alpha]warn.obj -
|
||||
"cc ''cflags'" warn.c
|
||||
$ call make swig_root:[vms.o_alpha]wrapfunc.obj -
|
||||
"cc ''cflags'" wrapfunc.c
|
||||
$ exit
|
||||
$!
|
||||
$!
|
||||
$MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
||||
$ V = 'F$Verify(0)
|
||||
$! P1 = What we are trying to make
|
||||
$! P2 = Command to make it
|
||||
$! P3 = Source file
|
||||
$! P4 - P8 What it depends on
|
||||
$
|
||||
$ modname = f$parse(p3,,,"name")
|
||||
$ set noon
|
||||
$ set message/nofacility/noident/noseverity/notext
|
||||
$ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
|
||||
$ set message/facility/ident/severity/text
|
||||
$ on error then exit
|
||||
$ open/read swigtmp swig_root:[vms]swiglib.tmp
|
||||
$! skip header
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$ read swigtmp r
|
||||
$!
|
||||
$
|
||||
$ read/end=module_not_found swigtmp r
|
||||
$ modfound = 1
|
||||
$ Time = f$cvtime(f$extract(49, 20, r))
|
||||
$ goto end_search_module
|
||||
$ module_not_found:
|
||||
$ modfound = 0
|
||||
$
|
||||
$ end_search_module:
|
||||
$ close swigtmp
|
||||
$ delete swig_root:[vms]swiglib.tmp;*
|
||||
$
|
||||
$ if modfound .eq. 0 then $ goto Makeit
|
||||
$
|
||||
$! Time = F$CvTime(F$File(P1,"RDT"))
|
||||
$arg=3
|
||||
$Loop:
|
||||
$ Argument = P'arg
|
||||
$ If Argument .Eqs. "" Then Goto Exit
|
||||
$ El=0
|
||||
$Loop2:
|
||||
$ File = F$Element(El," ",Argument)
|
||||
$ If File .Eqs. " " Then Goto Endl
|
||||
$ AFile = ""
|
||||
$Loop3:
|
||||
$ OFile = AFile
|
||||
$ AFile = F$Search(File)
|
||||
$ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
||||
$ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
||||
$ Goto Loop3
|
||||
$NextEL:
|
||||
$ El = El + 1
|
||||
$ Goto Loop2
|
||||
$EndL:
|
||||
$ arg=arg+1
|
||||
$ If arg .Le. 8 Then Goto Loop
|
||||
$ Goto Exit
|
||||
$
|
||||
$Makeit:
|
||||
$ VV=F$VERIFY(1)
|
||||
$ 'P2' 'P3'
|
||||
$ VV='F$Verify(VV)
|
||||
$Exit:
|
||||
$ If V Then Set Verify
|
||||
$ENDSUBROUTINE
|
||||
Loading…
Add table
Add a link
Reference in a new issue