|
10
|
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$trnlnm("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
|
