Mercurial > mm7

comparison lib/swig/swigwin-2.0.11/vms/scripts/compil_modules1_1.com @ 1899:b3009adc0e2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adding swig, gitignore, hgignore
author Nomad
date Mon, 21 Oct 2013 10:42:27 +0200
parents
children
comparison
equal deleted inserted replaced
1867:eb580660bbbb 1899:b3009adc0e2f
1 $!
2 $! Generated by genbuild.py
3 $!
4 $ libname = "swig_root:[vms.o_alpha]swig.olb"
5 $
6 $ set default SWIG_ROOT:[SOURCE.MODULES1_1]
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]allocate.obj -
19 "cxx ''cxxflags'" allocate.cxx
20 $ call make swig_root:[vms.o_alpha]browser.obj -
21 "cxx ''cxxflags'" browser.cxx
22 $ call make swig_root:[vms.o_alpha]contract.obj -
23 "cxx ''cxxflags'" contract.cxx
24 $ call make swig_root:[vms.o_alpha]emit.obj -
25 "cxx ''cxxflags'" emit.cxx
26 $ call make swig_root:[vms.o_alpha]guile.obj -
27 "cxx ''cxxflags'" guile.cxx
28 $ call make swig_root:[vms.o_alpha]java.obj -
29 "cxx ''cxxflags'" java.cxx
30 $ call make swig_root:[vms.o_alpha]lang.obj -
31 "cxx ''cxxflags'" lang.cxx
32 $ call make swig_root:[vms.o_alpha]main.obj -
33 "cxx ''cxxflags'" main.cxx
34 $ call make swig_root:[vms.o_alpha]module.obj -
35 "cxx ''cxxflags'" module.cxx
36 $ call make swig_root:[vms.o_alpha]mzscheme.obj -
37 "cxx ''cxxflags'" mzscheme.cxx
38 $ call make swig_root:[vms.o_alpha]ocaml.obj -
39 "cxx ''cxxflags'" ocaml.cxx
40 $ call make swig_root:[vms.o_alpha]overload.obj -
41 "cxx ''cxxflags'" overload.cxx
42 $ call make swig_root:[vms.o_alpha]perl5.obj -
43 "cxx ''cxxflags'" perl5.cxx
44 $ call make swig_root:[vms.o_alpha]php4.obj -
45 "cxx ''cxxflags'" php4.cxx
46 $ call make swig_root:[vms.o_alpha]pike.obj -
47 "cxx ''cxxflags'" pike.cxx
48 $ call make swig_root:[vms.o_alpha]python.obj -
49 "cxx ''cxxflags'" python.cxx
50 $ call make swig_root:[vms.o_alpha]ruby.obj -
51 "cxx ''cxxflags'" ruby.cxx
52 $ call make swig_root:[vms.o_alpha]swigmain.obj -
53 "cxx ''cxxflags'" swigmain.cxx
54 $ call make swig_root:[vms.o_alpha]tcl8.obj -
55 "cxx ''cxxflags'" tcl8.cxx
56 $ call make swig_root:[vms.o_alpha]typepass.obj -
57 "cxx ''cxxflags'" typepass.cxx
58 $ call make swig_root:[vms.o_alpha]xml.obj -
59 "cxx ''cxxflags'" xml.cxx
60 $ exit
61 $!
62 $!
63 $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
64 $ V = 'F$Verify(0)
65 $! P1 = What we are trying to make
66 $! P2 = Command to make it
67 $! P3 = Source file
68 $! P4 - P8 What it depends on
69 $
70 $ modname = f$parse(p3,,,"name")
71 $ set noon
72 $ set message/nofacility/noident/noseverity/notext
73 $ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
74 $ set message/facility/ident/severity/text
75 $ on error then exit
76 $ open/read swigtmp swig_root:[vms]swiglib.tmp
77 $! skip header
78 $ read swigtmp r
79 $ read swigtmp r
80 $ read swigtmp r
81 $ read swigtmp r
82 $ read swigtmp r
83 $ read swigtmp r
84 $ read swigtmp r
85 $ read swigtmp r
86 $ read swigtmp r
87 $!
88 $
89 $ read/end=module_not_found swigtmp r
90 $ modfound = 1
91 $ Time = f$cvtime(f$extract(49, 20, r))
92 $ goto end_search_module
93 $ module_not_found:
94 $ modfound = 0
95 $
96 $ end_search_module:
97 $ close swigtmp
98 $ delete swig_root:[vms]swiglib.tmp;*
99 $
100 $ if modfound .eq. 0 then $ goto Makeit
101 $
102 $! Time = F$CvTime(F$File(P1,"RDT"))
103 $arg=3
104 $Loop:
105 $ Argument = P'arg
106 $ If Argument .Eqs. "" Then Goto Exit
107 $ El=0
108 $Loop2:
109 $ File = F$Element(El," ",Argument)
110 $ If File .Eqs. " " Then Goto Endl
111 $ AFile = ""
112 $Loop3:
113 $ OFile = AFile
114 $ AFile = F$Search(File)
115 $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
116 $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
117 $ Goto Loop3
118 $NextEL:
119 $ El = El + 1
120 $ Goto Loop2
121 $EndL:
122 $ arg=arg+1
123 $ If arg .Le. 8 Then Goto Loop
124 $ Goto Exit
125 $
126 $Makeit:
127 $ VV=F$VERIFY(1)
128 $ 'P2' 'P3'
129 $ VV='F$Verify(VV)
130 $Exit:
131 $ If V Then Set Verify
132 $ENDSUBROUTINE