|
1899
|
1 import os.path, string, posix, pyvms
|
|
|
2 #
|
|
|
3 #
|
|
|
4
|
|
|
5 IDIR = ['swig_root:[source.swig]', 'swig_root:[source.doh.include]',
|
|
|
6 'swig_root:[source.include]', 'swig_root:[source.preprocessor]']
|
|
|
7
|
|
|
8 def new_file(fg, dirname):
|
|
|
9 global IDIR
|
|
|
10 fn = 'swig_root:[vms.scripts]compil_' + os.path.basename(dirname) + '.com'
|
|
|
11 print >> fg, '$ @' + fn
|
|
|
12 f = open(fn, 'w')
|
|
|
13 print >> f, '$!'
|
|
|
14 print >> f, '$! Generated by genbuild.py'
|
|
|
15 print >> f, '$!'
|
|
|
16 print >> f, '$ libname = "swig_root:[vms.o_alpha]swig.olb"'
|
|
|
17 print >> f, '$'
|
|
|
18 print >> f, '$ set default', pyvms.crtl_to_vms(dirname)[0][0]
|
|
|
19 print >> f, '$'
|
|
|
20 print >> f, "$ idir := ", IDIR[0]
|
|
|
21 for i in range(1, len(IDIR)):
|
|
|
22 print >> f, '$ idir = idir + ",' + IDIR[i] + '"'
|
|
|
23 print >> f, '$'
|
|
|
24 print >> f, "$ iflags = \"/include=(''idir', sys$disk:[])\""
|
|
|
25 print >> f, '$ oflags = \"/object=swig_root:[vms.o_alpha]'
|
|
|
26 print >> f, "$ cflags = \"''oflags'''iflags'''dflags'\""
|
|
|
27 print >> f, "$ cxxflags = \"''oflags'''iflags'''dflags'\""
|
|
|
28 print >> f, '$'
|
|
|
29 return f
|
|
|
30
|
|
|
31
|
|
|
32 def end_file(f):
|
|
|
33 print >>f,"""$ exit
|
|
|
34 $!
|
|
|
35 $!
|
|
|
36 $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
|
|
|
37 $ V = 'F$Verify(0)
|
|
|
38 $! P1 = What we are trying to make
|
|
|
39 $! P2 = Command to make it
|
|
|
40 $! P3 = Source file
|
|
|
41 $! P4 - P8 What it depends on
|
|
|
42 $
|
|
|
43 $ modname = f$parse(p3,,,"name")
|
|
|
44 $ set noon
|
|
|
45 $ set message/nofacility/noident/noseverity/notext
|
|
|
46 $ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
|
|
|
47 $ set message/facility/ident/severity/text
|
|
|
48 $ on error then exit
|
|
|
49 $ open/read swigtmp swig_root:[vms]swiglib.tmp
|
|
|
50 $! skip header
|
|
|
51 $ read swigtmp r
|
|
|
52 $ read swigtmp r
|
|
|
53 $ read swigtmp r
|
|
|
54 $ read swigtmp r
|
|
|
55 $ read swigtmp r
|
|
|
56 $ read swigtmp r
|
|
|
57 $ read swigtmp r
|
|
|
58 $ read swigtmp r
|
|
|
59 $ read swigtmp r
|
|
|
60 $!
|
|
|
61 $
|
|
|
62 $ read/end=module_not_found swigtmp r
|
|
|
63 $ modfound = 1
|
|
|
64 $ Time = f$cvtime(f$extract(49, 20, r))
|
|
|
65 $ goto end_search_module
|
|
|
66 $ module_not_found:
|
|
|
67 $ modfound = 0
|
|
|
68 $
|
|
|
69 $ end_search_module:
|
|
|
70 $ close swigtmp
|
|
|
71 $ delete swig_root:[vms]swiglib.tmp;*
|
|
|
72 $
|
|
|
73 $ if modfound .eq. 0 then $ goto Makeit
|
|
|
74 $
|
|
|
75 $! Time = F$CvTime(F$File(P1,"RDT"))
|
|
|
76 $arg=3
|
|
|
77 $Loop:
|
|
|
78 $ Argument = P'arg
|
|
|
79 $ If Argument .Eqs. "" Then Goto Exit
|
|
|
80 $ El=0
|
|
|
81 $Loop2:
|
|
|
82 $ File = F$Element(El," ",Argument)
|
|
|
83 $ If File .Eqs. " " Then Goto Endl
|
|
|
84 $ AFile = ""
|
|
|
85 $Loop3:
|
|
|
86 $ OFile = AFile
|
|
|
87 $ AFile = F$Search(File)
|
|
|
88 $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
|
|
|
89 $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
|
|
|
90 $ Goto Loop3
|
|
|
91 $NextEL:
|
|
|
92 $ El = El + 1
|
|
|
93 $ Goto Loop2
|
|
|
94 $EndL:
|
|
|
95 $ arg=arg+1
|
|
|
96 $ If arg .Le. 8 Then Goto Loop
|
|
|
97 $ Goto Exit
|
|
|
98 $
|
|
|
99 $Makeit:
|
|
|
100 $ VV=F$VERIFY(1)
|
|
|
101 $ 'P2' 'P3'
|
|
|
102 $ VV='F$Verify(VV)
|
|
|
103 $Exit:
|
|
|
104 $ If V Then Set Verify
|
|
|
105 $ENDSUBROUTINE"""
|
|
|
106
|
|
|
107
|
|
|
108 def listRep(args, dirname, filenames):
|
|
|
109 fg = args[0]
|
|
|
110 first = 1
|
|
|
111 for fn in filenames:
|
|
|
112 if fn[-2:] == '.c':
|
|
|
113 if first:
|
|
|
114 first = 0
|
|
|
115 fc = new_file(fg, dirname)
|
|
|
116
|
|
|
117 cstr = "\"cc ''cflags'\" "
|
|
|
118 line = "$ call make swig_root:[vms.o_alpha]"
|
|
|
119 line += fn[:-1] + 'obj -'
|
|
|
120 print >> fc, line
|
|
|
121 line = "\t" + cstr + fn
|
|
|
122 print >> fc, line
|
|
|
123 elif fn[-4:] == '.cxx':
|
|
|
124 if first:
|
|
|
125 first = 0
|
|
|
126 fc = new_file(fg, dirname)
|
|
|
127
|
|
|
128 cstr = "\"cxx ''cxxflags'\" "
|
|
|
129 line = "$ call make swig_root:[vms.o_alpha]"
|
|
|
130 line += fn[:-3] + 'obj -'
|
|
|
131 print >> fc, line
|
|
|
132 line = "\t" + cstr + fn
|
|
|
133 print >> fc, line
|
|
|
134 if first == 0:
|
|
|
135 end_file(fc)
|
|
|
136 fc.close()
|
|
|
137 #
|
|
|
138 def genbuild(f, dir):
|
|
|
139 os.path.walk(dir, listRep, (f,))
|
|
|
140 cmd = 'set default swig_root:[vms]'
|
|
|
141 #
|
|
|
142 f = open('swig_root:[vms.scripts]build_all.com','w')
|
|
|
143 print >> f, '$!'
|
|
|
144 print >> f, '$! Generated by genbuild.py'
|
|
|
145 print >> f, '$!'
|
|
|
146 print >> f, '$ set default swig_root:[vms]'
|
|
|
147 print >> f, '$'
|
|
|
148 print >> f, '$ @swig_root:[vms]build_init'
|
|
|
149 #
|
|
|
150 genbuild(f, '/swig_root/source')
|
|
|
151 print >> f, '$'
|
|
|
152 print >> f, '$ set default swig_root:[vms]'
|
|
|
153 print >> f, '$'
|
|
|
154 print >> f, '$ @swig_root:[vms]build_end'
|
|
|
155 f.close
|
