]>
Commit | Line | Data |
---|---|---|
1 | $! make libz under VMS | |
2 | $! written by Martin P.J. Zinser <m.zinser@gsi.de> | |
3 | $! | |
4 | $! Look for the compiler used | |
5 | $! | |
6 | $ ccopt = "" | |
7 | $ if f$getsyi("HW_MODEL").ge.1024 | |
8 | $ then | |
9 | $ ccopt = "/prefix=all"+ccopt | |
10 | $ comp = "__decc__=1" | |
11 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library: | |
12 | $ else | |
13 | $ if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs."" | |
14 | $ then | |
15 | $ comp = "__vaxc__=1" | |
16 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library: | |
17 | $ else | |
18 | $ if f$trnlnm("SYS").eqs."" then define sys decc$library_include: | |
19 | $ ccopt = "/decc/prefix=all"+ccopt | |
20 | $ comp = "__decc__=1" | |
21 | $ endif | |
22 | $ endif | |
23 | $! | |
24 | $! Build the thing plain or with mms | |
25 | $! | |
26 | $ write sys$output "Compiling Zlib sources ..." | |
27 | $ if f$search("SYS$SYSTEM:MMS.EXE").eqs."" | |
28 | $ then | |
29 | $ dele example.obj;*,minigzip.obj;* | |
30 | $ CALL MAKE adler32.OBJ "CC ''CCOPT' adler32" - | |
31 | adler32.c zutil.h zlib.h zconf.h | |
32 | $ CALL MAKE compress.OBJ "CC ''CCOPT' compress" - | |
33 | compress.c zlib.h zconf.h | |
34 | $ CALL MAKE crc32.OBJ "CC ''CCOPT' crc32" - | |
35 | crc32.c zutil.h zlib.h zconf.h | |
36 | $ CALL MAKE deflate.OBJ "CC ''CCOPT' deflate" - | |
37 | deflatec.c deflate.h zutil.h zlib.h zconf.h | |
38 | $ CALL MAKE gzio.OBJ "CC ''CCOPT' gzio" - | |
39 | gsio.c zutil.h zlib.h zconf.h | |
40 | $ CALL MAKE infblock.OBJ "CC ''CCOPT' infblock" - | |
41 | infblock.c zutil.h zlib.h zconf.h infblock.h | |
42 | $ CALL MAKE infcodes.OBJ "CC ''CCOPT' infcodes" - | |
43 | infcodes.c zutil.h zlib.h zconf.h inftrees.h | |
44 | $ CALL MAKE inffast.OBJ "CC ''CCOPT' inffast" - | |
45 | inffast.c zutil.h zlib.h zconf.h inffast.h | |
46 | $ CALL MAKE inflate.OBJ "CC ''CCOPT' inflate" - | |
47 | inflate.c zutil.h zlib.h zconf.h infblock.h | |
48 | $ CALL MAKE inftrees.OBJ "CC ''CCOPT' inftrees" - | |
49 | inftrees.c zutil.h zlib.h zconf.h inftrees.h | |
50 | $ CALL MAKE infutil.OBJ "CC ''CCOPT' infutil" - | |
51 | infutil.c zutil.h zlib.h zconf.h inftrees.h infutil.h | |
52 | $ CALL MAKE trees.OBJ "CC ''CCOPT' trees" - | |
53 | trees.c deflate.h zutil.h zlib.h zconf.h | |
54 | $ CALL MAKE uncompr.OBJ "CC ''CCOPT' uncompr" - | |
55 | uncompr.c zlib.h zconf.h | |
56 | $ CALL MAKE zutil.OBJ "CC ''CCOPT' zutil" - | |
57 | zutil.c zutil.h zlib.h zconf.h | |
58 | $ write sys$output "Building Zlib ..." | |
59 | $ CALL MAKE libz.OLB "lib/crea libz.olb *.obj" *.OBJ | |
60 | $ write sys$output "Building example..." | |
61 | $ CALL MAKE example.OBJ "CC ''CCOPT' example" - | |
62 | example.c zlib.h zconf.h | |
63 | $ call make example.exe "LINK example,libz.olb/lib" example.obj libz.olb | |
64 | $ write sys$output "Building minigzip..." | |
65 | $ CALL MAKE minigzip.OBJ "CC ''CCOPT' minigzip" - | |
66 | minigzip.c zlib.h zconf.h | |
67 | $ call make minigzip.exe - | |
68 | "LINK minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib" - | |
69 | minigzip.obj libz.olb | |
70 | $ else | |
71 | $ mms/macro=('comp') | |
72 | $ endif | |
73 | $ write sys$output "Zlib build completed" | |
74 | $ exit | |
75 | $! | |
76 | $! | |
77 | $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES | |
78 | $ V = 'F$Verify(0) | |
79 | $! P1 = What we are trying to make | |
80 | $! P2 = Command to make it | |
81 | $! P3 - P8 What it depends on | |
82 | $ | |
83 | $ If F$Search(P1) .Eqs. "" Then Goto Makeit | |
84 | $ Time = F$CvTime(F$File(P1,"RDT")) | |
85 | $arg=3 | |
86 | $Loop: | |
87 | $ Argument = P'arg | |
88 | $ If Argument .Eqs. "" Then Goto Exit | |
89 | $ El=0 | |
90 | $Loop2: | |
91 | $ File = F$Element(El," ",Argument) | |
92 | $ If File .Eqs. " " Then Goto Endl | |
93 | $ AFile = "" | |
94 | $Loop3: | |
95 | $ OFile = AFile | |
96 | $ AFile = F$Search(File) | |
97 | $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl | |
98 | $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit | |
99 | $ Goto Loop3 | |
100 | $NextEL: | |
101 | $ El = El + 1 | |
102 | $ Goto Loop2 | |
103 | $EndL: | |
104 | $ arg=arg+1 | |
105 | $ If arg .Le. 8 Then Goto Loop | |
106 | $ Goto Exit | |
107 | $ | |
108 | $Makeit: | |
109 | $ VV=F$VERIFY(0) | |
110 | $ write sys$output P2 | |
111 | $ 'P2 | |
112 | $ VV='F$Verify(VV) | |
113 | $Exit: | |
114 | $ If V Then Set Verify | |
115 | $ENDSUBROUTINE |