Mercurial > ~darius > hgwebdir.cgi > paradise_server

comparison zlib/Make_vms.com @ 10:1040ca591f2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First entry of Paradise Server 2.9 patch 10 Beta
author darius
date Sat, 06 Dec 1997 04:37:18 +0000
parents
children
comparison
equal deleted inserted replaced
9:331055a97a9d 10:1040ca591f2e
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