1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
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
|
