Mercurial > mm7

comparison lib/swig/swigwin-2.0.11/vms/scripts/compil_swig.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.SWIG]
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]cwrap.obj -
19 "cc ''cflags'" cwrap.c
20 $ call make swig_root:[vms.o_alpha]error.obj -
21 "cc ''cflags'" error.c
22 $ call make swig_root:[vms.o_alpha]fragment.obj -
23 "cc ''cflags'" fragment.c
24 $ call make swig_root:[vms.o_alpha]getopt.obj -
25 "cc ''cflags'" getopt.c
26 $ call make swig_root:[vms.o_alpha]include.obj -
27 "cc ''cflags'" include.c
28 $ call make swig_root:[vms.o_alpha]misc.obj -
29 "cc ''cflags'" misc.c
30 $ call make swig_root:[vms.o_alpha]naming.obj -
31 "cc ''cflags'" naming.c
32 $ call make swig_root:[vms.o_alpha]parms.obj -
33 "cc ''cflags'" parms.c
34 $ call make swig_root:[vms.o_alpha]scanner.obj -
35 "cc ''cflags'" scanner.c
36 $ call make swig_root:[vms.o_alpha]stype.obj -
37 "cc ''cflags'" stype.c
38 $ call make swig_root:[vms.o_alpha]symbol.obj -
39 "cc ''cflags'" symbol.c
40 $ call make swig_root:[vms.o_alpha]tree.obj -
41 "cc ''cflags'" tree.c
42 $ call make swig_root:[vms.o_alpha]typemap.obj -
43 "cc ''cflags'" typemap.c
44 $ call make swig_root:[vms.o_alpha]typesys.obj -
45 "cc ''cflags'" typesys.c
46 $ call make swig_root:[vms.o_alpha]warn.obj -
47 "cc ''cflags'" warn.c
48 $ call make swig_root:[vms.o_alpha]wrapfunc.obj -
49 "cc ''cflags'" wrapfunc.c
50 $ exit
51 $!
52 $!
53 $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES
54 $ V = 'F$Verify(0)
55 $! P1 = What we are trying to make
56 $! P2 = Command to make it
57 $! P3 = Source file
58 $! P4 - P8 What it depends on
59 $
60 $ modname = f$parse(p3,,,"name")
61 $ set noon
62 $ set message/nofacility/noident/noseverity/notext
63 $ libr/lis=swig_root:[vms]swiglib.tmp/full/width=132/only='modname' 'libname'
64 $ set message/facility/ident/severity/text
65 $ on error then exit
66 $ open/read swigtmp swig_root:[vms]swiglib.tmp
67 $! skip header
68 $ read swigtmp r
69 $ read swigtmp r
70 $ read swigtmp r
71 $ read swigtmp r
72 $ read swigtmp r
73 $ read swigtmp r
74 $ read swigtmp r
75 $ read swigtmp r
76 $ read swigtmp r
77 $!
78 $
79 $ read/end=module_not_found swigtmp r
80 $ modfound = 1
81 $ Time = f$cvtime(f$extract(49, 20, r))
82 $ goto end_search_module
83 $ module_not_found:
84 $ modfound = 0
85 $
86 $ end_search_module:
87 $ close swigtmp
88 $ delete swig_root:[vms]swiglib.tmp;*
89 $
90 $ if modfound .eq. 0 then $ goto Makeit
91 $
92 $! Time = F$CvTime(F$File(P1,"RDT"))
93 $arg=3
94 $Loop:
95 $ Argument = P'arg
96 $ If Argument .Eqs. "" Then Goto Exit
97 $ El=0
98 $Loop2:
99 $ File = F$Element(El," ",Argument)
100 $ If File .Eqs. " " Then Goto Endl
101 $ AFile = ""
102 $Loop3:
103 $ OFile = AFile
104 $ AFile = F$Search(File)
105 $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
106 $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
107 $ Goto Loop3
108 $NextEL:
109 $ El = El + 1
110 $ Goto Loop2
111 $EndL:
112 $ arg=arg+1
113 $ If arg .Le. 8 Then Goto Loop
114 $ Goto Exit
115 $
116 $Makeit:
117 $ VV=F$VERIFY(1)
118 $ 'P2' 'P3'
119 $ VV='F$Verify(VV)
120 $Exit:
121 $ If V Then Set Verify
122 $ENDSUBROUTINE