diff --git a/vms/aaareadme.txt b/vms/aaareadme.txt deleted file mode 100644 index 52746a7e7..000000000 --- a/vms/aaareadme.txt +++ /dev/null @@ -1,18 +0,0 @@ -Port on OpenVMS 7.3 using CC 6.5 and CXX 6.5 - - -Building procedure: -$ @logicals -$ @build_all - -the logicals swig_root is defined by the procedure logicals.com. -The logicals.com procedure can be invoke with an optional argument -for the define command, for example: -$ @logicals "/system/exec" - - -genbuild.py is the python program use to generate all the procedures in the -[vms.scripts] directory. - - -jf.pieronne@laposte.net diff --git a/vms/build_end.com b/vms/build_end.com deleted file mode 100644 index 103302270..000000000 --- a/vms/build_end.com +++ /dev/null @@ -1,21 +0,0 @@ -$ set def swig_root:[vms] -$ -$ file = f$search("swig_root:[vms.o_alpha]*.obj") -$ newobj = 0 -$ if file .nes. "" -$ then -$ v = f$verify(1) -$ library/replace swig_root:[vms.o_alpha]swig.olb swig_root:[vms.o_alpha]*.obj -$ delete swig_root:[vms.o_alpha]*.obj;* -$ v = f$verify(v) -$ newobj = 1 -$ endif -$ file = f$search("swig_root:[vms]swig.exe") -$ if file .eqs. "" .or. newobj -$ then -$ v = f$verify(1) -$ cxxlink/exe=swig_root:[vms]swig.exe - - /repo=swig_root:[source.modules1_1.cxx_repository] - - swig_root:[vms.o_alpha]swig.olb/include=swigmain -$ v = f$verify(v) -$ endif diff --git a/vms/build_init.com b/vms/build_init.com deleted file mode 100644 index 9a1992dc4..000000000 --- a/vms/build_init.com +++ /dev/null @@ -1,13 +0,0 @@ -$ set def swig_root:[vms] -$ -$ swiglib = "swig_root:[vms.o_alpha]swig.olb -$ -$ if (f$search("swig_root:[vms]o_alpha.dir") .eqs. "") then $ - - create/dir swig_root:[vms.o_alpha] -$ -$ copy swigconfig.h [-.source.include] -$ copy swigver.h [-.source.include] -$ -$ if (f$search("''swiglib'") .eqs. "") then $ - - library/create/object 'swiglib' -$ diff --git a/vms/build_swig.com b/vms/build_swig.com deleted file mode 100644 index 5570db0bc..000000000 --- a/vms/build_swig.com +++ /dev/null @@ -1 +0,0 @@ -$ @swig_root:[vms.scripts]build_all diff --git a/vms/genbuild.py b/vms/genbuild.py deleted file mode 100644 index df18ce3ed..000000000 --- a/vms/genbuild.py +++ /dev/null @@ -1,155 +0,0 @@ -import os.path, string, posix, pyvms -# -# - -IDIR = ['swig_root:[source.swig]', 'swig_root:[source.doh.include]', - 'swig_root:[source.include]', 'swig_root:[source.preprocessor]'] - -def new_file(fg, dirname): - global IDIR - fn = 'swig_root:[vms.scripts]compil_' + os.path.basename(dirname) + '.com' - print >> fg, '$ @' + fn - f = open(fn, 'w') - print >> f, '$!' - print >> f, '$! Generated by genbuild.py' - print >> f, '$!' - print >> f, '$ libname = "swig_root:[vms.o_alpha]swig.olb"' - print >> f, '$' - print >> f, '$ set default', pyvms.crtl_to_vms(dirname)[0][0] - print >> f, '$' - print >> f, "$ idir := ", IDIR[0] - for i in range(1, len(IDIR)): - print >> f, '$ idir = idir + ",' + IDIR[i] + '"' - print >> f, '$' - print >> f, "$ iflags = \"/include=(''idir', sys$disk:[])\"" - print >> f, '$ oflags = \"/object=swig_root:[vms.o_alpha]' - print >> f, "$ cflags = \"''oflags'''iflags'''dflags'\"" - print >> f, "$ cxxflags = \"''oflags'''iflags'''dflags'\"" - print >> f, '$' - return f - - -def end_file(f): - print >>f,"""$ 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""" - - -def listRep(args, dirname, filenames): - fg = args[0] - first = 1 - for fn in filenames: - if fn[-2:] == '.c': - if first: - first = 0 - fc = new_file(fg, dirname) - - cstr = "\"cc ''cflags'\" " - line = "$ call make swig_root:[vms.o_alpha]" - line += fn[:-1] + 'obj -' - print >> fc, line - line = "\t" + cstr + fn - print >> fc, line - elif fn[-4:] == '.cxx': - if first: - first = 0 - fc = new_file(fg, dirname) - - cstr = "\"cxx ''cxxflags'\" " - line = "$ call make swig_root:[vms.o_alpha]" - line += fn[:-3] + 'obj -' - print >> fc, line - line = "\t" + cstr + fn - print >> fc, line - if first == 0: - end_file(fc) - fc.close() -# -def genbuild(f, dir): - os.path.walk(dir, listRep, (f,)) - cmd = 'set default swig_root:[vms]' -# -f = open('swig_root:[vms.scripts]build_all.com','w') -print >> f, '$!' -print >> f, '$! Generated by genbuild.py' -print >> f, '$!' -print >> f, '$ set default swig_root:[vms]' -print >> f, '$' -print >> f, '$ @swig_root:[vms]build_init' -# -genbuild(f, '/swig_root/source') -print >> f, '$' -print >> f, '$ set default swig_root:[vms]' -print >> f, '$' -print >> f, '$ @swig_root:[vms]build_end' -f.close diff --git a/vms/logicals.com b/vms/logicals.com deleted file mode 100644 index 20da9d49a..000000000 --- a/vms/logicals.com +++ /dev/null @@ -1,18 +0,0 @@ -$! -$! -$! -$ proc = f$environment("PROCEDURE") -$ proc = f$parse(proc,"sys$disk:[]",,,"NO_CONCEAL") -$ cur_dev = f$parse(proc,,,"DEVICE","SYNTAX_ONLY") -$ cur_dir = f$parse(proc,,,"DIRECTORY","SYNTAX_ONLY") -$ cur_dir = f$extract(1,f$length(cur_dir)-2,cur_dir) -$ cur_dir = cur_dir - "[" -$ cur_dir = cur_dir - "]" -$ cur_dir = cur_dir - "<" -$ cur_dir = cur_dir - ">" -$ -$! remove trealing .VMS -$ root_dir = f$extract(0,f$length(cur_dir)-4,cur_dir) -$ -$ define 'p1' /trans=concealed swig_root 'cur_dev'['root_dir'.] - diff --git a/vms/scripts/build_all.com b/vms/scripts/build_all.com deleted file mode 100644 index d41198348..000000000 --- a/vms/scripts/build_all.com +++ /dev/null @@ -1,15 +0,0 @@ -$! -$! 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 diff --git a/vms/scripts/compil_cparse.com b/vms/scripts/compil_cparse.com deleted file mode 100644 index 4f78f4104..000000000 --- a/vms/scripts/compil_cparse.com +++ /dev/null @@ -1,98 +0,0 @@ -$! -$! 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 diff --git a/vms/scripts/compil_doh.com b/vms/scripts/compil_doh.com deleted file mode 100644 index 6d4ae89ad..000000000 --- a/vms/scripts/compil_doh.com +++ /dev/null @@ -1,106 +0,0 @@ -$! -$! 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 diff --git a/vms/scripts/compil_modules1_1.com b/vms/scripts/compil_modules1_1.com deleted file mode 100644 index c570dfe58..000000000 --- a/vms/scripts/compil_modules1_1.com +++ /dev/null @@ -1,132 +0,0 @@ -$! -$! 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 diff --git a/vms/scripts/compil_preprocessor.com b/vms/scripts/compil_preprocessor.com deleted file mode 100644 index f95961e8d..000000000 --- a/vms/scripts/compil_preprocessor.com +++ /dev/null @@ -1,94 +0,0 @@ -$! -$! 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 diff --git a/vms/scripts/compil_swig.com b/vms/scripts/compil_swig.com deleted file mode 100644 index 103e275f4..000000000 --- a/vms/scripts/compil_swig.com +++ /dev/null @@ -1,122 +0,0 @@ -$! -$! 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 diff --git a/vms/swigconfig.h b/vms/swigconfig.h deleted file mode 100644 index 3ee086407..000000000 --- a/vms/swigconfig.h +++ /dev/null @@ -1,2 +0,0 @@ - -/* Note that this file has changed. TODO Get the latest from the original version. */