Mercurial > mm7

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