diff options
author | Nicolas Pennequin <nicolas.pennequin@free.fr> | 2008-07-11 16:51:25 +0000 |
---|---|---|
committer | Nicolas Pennequin <nicolas.pennequin@free.fr> | 2008-07-11 16:51:25 +0000 |
commit | ca5bb76d2b8f65aa97e50b633f828c1deb241526 (patch) | |
tree | 453a1b2de3a0dc0d0b2f7080d10d033bf8fbcdf1 /utils/zenutils/libraries/zlib123/zlib/make_vms.com | |
parent | 141774be48940d56e3ad4dbf451d245b61d4f8b2 (diff) | |
download | rockbox-ca5bb76d2b8f65aa97e50b633f828c1deb241526.tar.gz rockbox-ca5bb76d2b8f65aa97e50b633f828c1deb241526.zip |
Delete the svn:executable property and set svn:eol-style to native for all those text files.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@18012 a1c6a512-1295-4272-9138-f99709370657
Diffstat (limited to 'utils/zenutils/libraries/zlib123/zlib/make_vms.com')
-rw-r--r--[-rwxr-xr-x] | utils/zenutils/libraries/zlib123/zlib/make_vms.com | 922 |
1 files changed, 461 insertions, 461 deletions
diff --git a/utils/zenutils/libraries/zlib123/zlib/make_vms.com b/utils/zenutils/libraries/zlib123/zlib/make_vms.com index 93174bbc8a..c2a1fb54b2 100755..100644 --- a/utils/zenutils/libraries/zlib123/zlib/make_vms.com +++ b/utils/zenutils/libraries/zlib123/zlib/make_vms.com | |||
@@ -1,461 +1,461 @@ | |||
1 | $! make libz under VMS written by | 1 | $! make libz under VMS written by |
2 | $! Martin P.J. Zinser | 2 | $! Martin P.J. Zinser |
3 | $! <zinser@zinser.no-ip.info or zinser@sysdev.deutsche-boerse.com> | 3 | $! <zinser@zinser.no-ip.info or zinser@sysdev.deutsche-boerse.com> |
4 | $! | 4 | $! |
5 | $ on error then goto err_exit | 5 | $ on error then goto err_exit |
6 | $! | 6 | $! |
7 | $! | 7 | $! |
8 | $! Just some general constants... | 8 | $! Just some general constants... |
9 | $! | 9 | $! |
10 | $ true = 1 | 10 | $ true = 1 |
11 | $ false = 0 | 11 | $ false = 0 |
12 | $ tmpnam = "temp_" + f$getjpi("","pid") | 12 | $ tmpnam = "temp_" + f$getjpi("","pid") |
13 | $ SAY = "WRITE SYS$OUTPUT" | 13 | $ SAY = "WRITE SYS$OUTPUT" |
14 | $! | 14 | $! |
15 | $! Setup variables holding "config" information | 15 | $! Setup variables holding "config" information |
16 | $! | 16 | $! |
17 | $ Make = "" | 17 | $ Make = "" |
18 | $ name = "Zlib" | 18 | $ name = "Zlib" |
19 | $ version = "?.?.?" | 19 | $ version = "?.?.?" |
20 | $ v_string = "ZLIB_VERSION" | 20 | $ v_string = "ZLIB_VERSION" |
21 | $ v_file = "zlib.h" | 21 | $ v_file = "zlib.h" |
22 | $ ccopt = "" | 22 | $ ccopt = "" |
23 | $ lopts = "" | 23 | $ lopts = "" |
24 | $ linkonly = false | 24 | $ linkonly = false |
25 | $ optfile = name + ".opt" | 25 | $ optfile = name + ".opt" |
26 | $ its_decc = false | 26 | $ its_decc = false |
27 | $ its_vaxc = false | 27 | $ its_vaxc = false |
28 | $ its_gnuc = false | 28 | $ its_gnuc = false |
29 | $ axp = f$getsyi("HW_MODEL").ge.1024 | 29 | $ axp = f$getsyi("HW_MODEL").ge.1024 |
30 | $ s_case = false | 30 | $ s_case = false |
31 | $! Check for MMK/MMS | 31 | $! Check for MMK/MMS |
32 | $! | 32 | $! |
33 | $ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS" | 33 | $ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS" |
34 | $ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK" | 34 | $ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK" |
35 | $! | 35 | $! |
36 | $! | 36 | $! |
37 | $ gosub find_version | 37 | $ gosub find_version |
38 | $! | 38 | $! |
39 | $ gosub check_opts | 39 | $ gosub check_opts |
40 | $! | 40 | $! |
41 | $! Look for the compiler used | 41 | $! Look for the compiler used |
42 | $! | 42 | $! |
43 | $ gosub check_compiler | 43 | $ gosub check_compiler |
44 | $ if its_decc | 44 | $ if its_decc |
45 | $ then | 45 | $ then |
46 | $ ccopt = "/prefix=all" + ccopt | 46 | $ ccopt = "/prefix=all" + ccopt |
47 | $ if f$trnlnm("SYS") .eqs. "" | 47 | $ if f$trnlnm("SYS") .eqs. "" |
48 | $ then | 48 | $ then |
49 | $ if axp | 49 | $ if axp |
50 | $ then | 50 | $ then |
51 | $ define sys sys$library: | 51 | $ define sys sys$library: |
52 | $ else | 52 | $ else |
53 | $ ccopt = "/decc" + ccopt | 53 | $ ccopt = "/decc" + ccopt |
54 | $ define sys decc$library_include: | 54 | $ define sys decc$library_include: |
55 | $ endif | 55 | $ endif |
56 | $ endif | 56 | $ endif |
57 | $ endif | 57 | $ endif |
58 | $ if its_vaxc .or. its_gnuc | 58 | $ if its_vaxc .or. its_gnuc |
59 | $ then | 59 | $ then |
60 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library: | 60 | $ if f$trnlnm("SYS").eqs."" then define sys sys$library: |
61 | $ endif | 61 | $ endif |
62 | $! | 62 | $! |
63 | $! Build the thing plain or with mms | 63 | $! Build the thing plain or with mms |
64 | $! | 64 | $! |
65 | $ write sys$output "Compiling Zlib sources ..." | 65 | $ write sys$output "Compiling Zlib sources ..." |
66 | $ if make.eqs."" | 66 | $ if make.eqs."" |
67 | $ then | 67 | $ then |
68 | $ dele example.obj;*,minigzip.obj;* | 68 | $ dele example.obj;*,minigzip.obj;* |
69 | $ CALL MAKE adler32.OBJ "CC ''CCOPT' adler32" - | 69 | $ CALL MAKE adler32.OBJ "CC ''CCOPT' adler32" - |
70 | adler32.c zlib.h zconf.h | 70 | adler32.c zlib.h zconf.h |
71 | $ CALL MAKE compress.OBJ "CC ''CCOPT' compress" - | 71 | $ CALL MAKE compress.OBJ "CC ''CCOPT' compress" - |
72 | compress.c zlib.h zconf.h | 72 | compress.c zlib.h zconf.h |
73 | $ CALL MAKE crc32.OBJ "CC ''CCOPT' crc32" - | 73 | $ CALL MAKE crc32.OBJ "CC ''CCOPT' crc32" - |
74 | crc32.c zlib.h zconf.h | 74 | crc32.c zlib.h zconf.h |
75 | $ CALL MAKE deflate.OBJ "CC ''CCOPT' deflate" - | 75 | $ CALL MAKE deflate.OBJ "CC ''CCOPT' deflate" - |
76 | deflate.c deflate.h zutil.h zlib.h zconf.h | 76 | deflate.c deflate.h zutil.h zlib.h zconf.h |
77 | $ CALL MAKE gzio.OBJ "CC ''CCOPT' gzio" - | 77 | $ CALL MAKE gzio.OBJ "CC ''CCOPT' gzio" - |
78 | gzio.c zutil.h zlib.h zconf.h | 78 | gzio.c zutil.h zlib.h zconf.h |
79 | $ CALL MAKE infback.OBJ "CC ''CCOPT' infback" - | 79 | $ CALL MAKE infback.OBJ "CC ''CCOPT' infback" - |
80 | infback.c zutil.h inftrees.h inflate.h inffast.h inffixed.h | 80 | infback.c zutil.h inftrees.h inflate.h inffast.h inffixed.h |
81 | $ CALL MAKE inffast.OBJ "CC ''CCOPT' inffast" - | 81 | $ CALL MAKE inffast.OBJ "CC ''CCOPT' inffast" - |
82 | inffast.c zutil.h zlib.h zconf.h inffast.h | 82 | inffast.c zutil.h zlib.h zconf.h inffast.h |
83 | $ CALL MAKE inflate.OBJ "CC ''CCOPT' inflate" - | 83 | $ CALL MAKE inflate.OBJ "CC ''CCOPT' inflate" - |
84 | inflate.c zutil.h zlib.h zconf.h infblock.h | 84 | inflate.c zutil.h zlib.h zconf.h infblock.h |
85 | $ CALL MAKE inftrees.OBJ "CC ''CCOPT' inftrees" - | 85 | $ CALL MAKE inftrees.OBJ "CC ''CCOPT' inftrees" - |
86 | inftrees.c zutil.h zlib.h zconf.h inftrees.h | 86 | inftrees.c zutil.h zlib.h zconf.h inftrees.h |
87 | $ CALL MAKE trees.OBJ "CC ''CCOPT' trees" - | 87 | $ CALL MAKE trees.OBJ "CC ''CCOPT' trees" - |
88 | trees.c deflate.h zutil.h zlib.h zconf.h | 88 | trees.c deflate.h zutil.h zlib.h zconf.h |
89 | $ CALL MAKE uncompr.OBJ "CC ''CCOPT' uncompr" - | 89 | $ CALL MAKE uncompr.OBJ "CC ''CCOPT' uncompr" - |
90 | uncompr.c zlib.h zconf.h | 90 | uncompr.c zlib.h zconf.h |
91 | $ CALL MAKE zutil.OBJ "CC ''CCOPT' zutil" - | 91 | $ CALL MAKE zutil.OBJ "CC ''CCOPT' zutil" - |
92 | zutil.c zutil.h zlib.h zconf.h | 92 | zutil.c zutil.h zlib.h zconf.h |
93 | $ write sys$output "Building Zlib ..." | 93 | $ write sys$output "Building Zlib ..." |
94 | $ CALL MAKE libz.OLB "lib/crea libz.olb *.obj" *.OBJ | 94 | $ CALL MAKE libz.OLB "lib/crea libz.olb *.obj" *.OBJ |
95 | $ write sys$output "Building example..." | 95 | $ write sys$output "Building example..." |
96 | $ CALL MAKE example.OBJ "CC ''CCOPT' example" - | 96 | $ CALL MAKE example.OBJ "CC ''CCOPT' example" - |
97 | example.c zlib.h zconf.h | 97 | example.c zlib.h zconf.h |
98 | $ call make example.exe "LINK example,libz.olb/lib" example.obj libz.olb | 98 | $ call make example.exe "LINK example,libz.olb/lib" example.obj libz.olb |
99 | $ if f$search("x11vms:xvmsutils.olb") .nes. "" | 99 | $ if f$search("x11vms:xvmsutils.olb") .nes. "" |
100 | $ then | 100 | $ then |
101 | $ write sys$output "Building minigzip..." | 101 | $ write sys$output "Building minigzip..." |
102 | $ CALL MAKE minigzip.OBJ "CC ''CCOPT' minigzip" - | 102 | $ CALL MAKE minigzip.OBJ "CC ''CCOPT' minigzip" - |
103 | minigzip.c zlib.h zconf.h | 103 | minigzip.c zlib.h zconf.h |
104 | $ call make minigzip.exe - | 104 | $ call make minigzip.exe - |
105 | "LINK minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib" - | 105 | "LINK minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib" - |
106 | minigzip.obj libz.olb | 106 | minigzip.obj libz.olb |
107 | $ endif | 107 | $ endif |
108 | $ else | 108 | $ else |
109 | $ gosub crea_mms | 109 | $ gosub crea_mms |
110 | $ SAY "Make ''name' ''version' with ''Make' " | 110 | $ SAY "Make ''name' ''version' with ''Make' " |
111 | $ 'make' | 111 | $ 'make' |
112 | $ endif | 112 | $ endif |
113 | $! | 113 | $! |
114 | $! Alpha gets a shareable image | 114 | $! Alpha gets a shareable image |
115 | $! | 115 | $! |
116 | $ If axp | 116 | $ If axp |
117 | $ Then | 117 | $ Then |
118 | $ gosub crea_olist | 118 | $ gosub crea_olist |
119 | $ write sys$output "Creating libzshr.exe" | 119 | $ write sys$output "Creating libzshr.exe" |
120 | $ call anal_obj_axp modules.opt _link.opt | 120 | $ call anal_obj_axp modules.opt _link.opt |
121 | $ if s_case | 121 | $ if s_case |
122 | $ then | 122 | $ then |
123 | $ open/append optf modules.opt | 123 | $ open/append optf modules.opt |
124 | $ write optf "case_sensitive=YES" | 124 | $ write optf "case_sensitive=YES" |
125 | $ close optf | 125 | $ close optf |
126 | $ endif | 126 | $ endif |
127 | $ LINK_'lopts'/SHARE=libzshr.exe modules.opt/opt,_link.opt/opt | 127 | $ LINK_'lopts'/SHARE=libzshr.exe modules.opt/opt,_link.opt/opt |
128 | $ endif | 128 | $ endif |
129 | $ write sys$output "Zlib build completed" | 129 | $ write sys$output "Zlib build completed" |
130 | $ exit | 130 | $ exit |
131 | $CC_ERR: | 131 | $CC_ERR: |
132 | $ write sys$output "C compiler required to build ''name'" | 132 | $ write sys$output "C compiler required to build ''name'" |
133 | $ goto err_exit | 133 | $ goto err_exit |
134 | $ERR_EXIT: | 134 | $ERR_EXIT: |
135 | $ set message/facil/ident/sever/text | 135 | $ set message/facil/ident/sever/text |
136 | $ write sys$output "Exiting..." | 136 | $ write sys$output "Exiting..." |
137 | $ exit 2 | 137 | $ exit 2 |
138 | $! | 138 | $! |
139 | $! | 139 | $! |
140 | $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES | 140 | $MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES |
141 | $ V = 'F$Verify(0) | 141 | $ V = 'F$Verify(0) |
142 | $! P1 = What we are trying to make | 142 | $! P1 = What we are trying to make |
143 | $! P2 = Command to make it | 143 | $! P2 = Command to make it |
144 | $! P3 - P8 What it depends on | 144 | $! P3 - P8 What it depends on |
145 | $ | 145 | $ |
146 | $ If F$Search(P1) .Eqs. "" Then Goto Makeit | 146 | $ If F$Search(P1) .Eqs. "" Then Goto Makeit |
147 | $ Time = F$CvTime(F$File(P1,"RDT")) | 147 | $ Time = F$CvTime(F$File(P1,"RDT")) |
148 | $arg=3 | 148 | $arg=3 |
149 | $Loop: | 149 | $Loop: |
150 | $ Argument = P'arg | 150 | $ Argument = P'arg |
151 | $ If Argument .Eqs. "" Then Goto Exit | 151 | $ If Argument .Eqs. "" Then Goto Exit |
152 | $ El=0 | 152 | $ El=0 |
153 | $Loop2: | 153 | $Loop2: |
154 | $ File = F$Element(El," ",Argument) | 154 | $ File = F$Element(El," ",Argument) |
155 | $ If File .Eqs. " " Then Goto Endl | 155 | $ If File .Eqs. " " Then Goto Endl |
156 | $ AFile = "" | 156 | $ AFile = "" |
157 | $Loop3: | 157 | $Loop3: |
158 | $ OFile = AFile | 158 | $ OFile = AFile |
159 | $ AFile = F$Search(File) | 159 | $ AFile = F$Search(File) |
160 | $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl | 160 | $ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl |
161 | $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit | 161 | $ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit |
162 | $ Goto Loop3 | 162 | $ Goto Loop3 |
163 | $NextEL: | 163 | $NextEL: |
164 | $ El = El + 1 | 164 | $ El = El + 1 |
165 | $ Goto Loop2 | 165 | $ Goto Loop2 |
166 | $EndL: | 166 | $EndL: |
167 | $ arg=arg+1 | 167 | $ arg=arg+1 |
168 | $ If arg .Le. 8 Then Goto Loop | 168 | $ If arg .Le. 8 Then Goto Loop |
169 | $ Goto Exit | 169 | $ Goto Exit |
170 | $ | 170 | $ |
171 | $Makeit: | 171 | $Makeit: |
172 | $ VV=F$VERIFY(0) | 172 | $ VV=F$VERIFY(0) |
173 | $ write sys$output P2 | 173 | $ write sys$output P2 |
174 | $ 'P2 | 174 | $ 'P2 |
175 | $ VV='F$Verify(VV) | 175 | $ VV='F$Verify(VV) |
176 | $Exit: | 176 | $Exit: |
177 | $ If V Then Set Verify | 177 | $ If V Then Set Verify |
178 | $ENDSUBROUTINE | 178 | $ENDSUBROUTINE |
179 | $!------------------------------------------------------------------------------ | 179 | $!------------------------------------------------------------------------------ |
180 | $! | 180 | $! |
181 | $! Check command line options and set symbols accordingly | 181 | $! Check command line options and set symbols accordingly |
182 | $! | 182 | $! |
183 | $ CHECK_OPTS: | 183 | $ CHECK_OPTS: |
184 | $ i = 1 | 184 | $ i = 1 |
185 | $ OPT_LOOP: | 185 | $ OPT_LOOP: |
186 | $ if i .lt. 9 | 186 | $ if i .lt. 9 |
187 | $ then | 187 | $ then |
188 | $ cparm = f$edit(p'i',"upcase") | 188 | $ cparm = f$edit(p'i',"upcase") |
189 | $ if cparm .eqs. "DEBUG" | 189 | $ if cparm .eqs. "DEBUG" |
190 | $ then | 190 | $ then |
191 | $ ccopt = ccopt + "/noopt/deb" | 191 | $ ccopt = ccopt + "/noopt/deb" |
192 | $ lopts = lopts + "/deb" | 192 | $ lopts = lopts + "/deb" |
193 | $ endif | 193 | $ endif |
194 | $ if f$locate("CCOPT=",cparm) .lt. f$length(cparm) | 194 | $ if f$locate("CCOPT=",cparm) .lt. f$length(cparm) |
195 | $ then | 195 | $ then |
196 | $ start = f$locate("=",cparm) + 1 | 196 | $ start = f$locate("=",cparm) + 1 |
197 | $ len = f$length(cparm) - start | 197 | $ len = f$length(cparm) - start |
198 | $ ccopt = ccopt + f$extract(start,len,cparm) | 198 | $ ccopt = ccopt + f$extract(start,len,cparm) |
199 | $ if f$locate("AS_IS",f$edit(ccopt,"UPCASE")) .lt. f$length(ccopt) - | 199 | $ if f$locate("AS_IS",f$edit(ccopt,"UPCASE")) .lt. f$length(ccopt) - |
200 | then s_case = true | 200 | then s_case = true |
201 | $ endif | 201 | $ endif |
202 | $ if cparm .eqs. "LINK" then linkonly = true | 202 | $ if cparm .eqs. "LINK" then linkonly = true |
203 | $ if f$locate("LOPTS=",cparm) .lt. f$length(cparm) | 203 | $ if f$locate("LOPTS=",cparm) .lt. f$length(cparm) |
204 | $ then | 204 | $ then |
205 | $ start = f$locate("=",cparm) + 1 | 205 | $ start = f$locate("=",cparm) + 1 |
206 | $ len = f$length(cparm) - start | 206 | $ len = f$length(cparm) - start |
207 | $ lopts = lopts + f$extract(start,len,cparm) | 207 | $ lopts = lopts + f$extract(start,len,cparm) |
208 | $ endif | 208 | $ endif |
209 | $ if f$locate("CC=",cparm) .lt. f$length(cparm) | 209 | $ if f$locate("CC=",cparm) .lt. f$length(cparm) |
210 | $ then | 210 | $ then |
211 | $ start = f$locate("=",cparm) + 1 | 211 | $ start = f$locate("=",cparm) + 1 |
212 | $ len = f$length(cparm) - start | 212 | $ len = f$length(cparm) - start |
213 | $ cc_com = f$extract(start,len,cparm) | 213 | $ cc_com = f$extract(start,len,cparm) |
214 | if (cc_com .nes. "DECC") .and. - | 214 | if (cc_com .nes. "DECC") .and. - |
215 | (cc_com .nes. "VAXC") .and. - | 215 | (cc_com .nes. "VAXC") .and. - |
216 | (cc_com .nes. "GNUC") | 216 | (cc_com .nes. "GNUC") |
217 | $ then | 217 | $ then |
218 | $ write sys$output "Unsupported compiler choice ''cc_com' ignored" | 218 | $ write sys$output "Unsupported compiler choice ''cc_com' ignored" |
219 | $ write sys$output "Use DECC, VAXC, or GNUC instead" | 219 | $ write sys$output "Use DECC, VAXC, or GNUC instead" |
220 | $ else | 220 | $ else |
221 | $ if cc_com .eqs. "DECC" then its_decc = true | 221 | $ if cc_com .eqs. "DECC" then its_decc = true |
222 | $ if cc_com .eqs. "VAXC" then its_vaxc = true | 222 | $ if cc_com .eqs. "VAXC" then its_vaxc = true |
223 | $ if cc_com .eqs. "GNUC" then its_gnuc = true | 223 | $ if cc_com .eqs. "GNUC" then its_gnuc = true |
224 | $ endif | 224 | $ endif |
225 | $ endif | 225 | $ endif |
226 | $ if f$locate("MAKE=",cparm) .lt. f$length(cparm) | 226 | $ if f$locate("MAKE=",cparm) .lt. f$length(cparm) |
227 | $ then | 227 | $ then |
228 | $ start = f$locate("=",cparm) + 1 | 228 | $ start = f$locate("=",cparm) + 1 |
229 | $ len = f$length(cparm) - start | 229 | $ len = f$length(cparm) - start |
230 | $ mmks = f$extract(start,len,cparm) | 230 | $ mmks = f$extract(start,len,cparm) |
231 | $ if (mmks .eqs. "MMK") .or. (mmks .eqs. "MMS") | 231 | $ if (mmks .eqs. "MMK") .or. (mmks .eqs. "MMS") |
232 | $ then | 232 | $ then |
233 | $ make = mmks | 233 | $ make = mmks |
234 | $ else | 234 | $ else |
235 | $ write sys$output "Unsupported make choice ''mmks' ignored" | 235 | $ write sys$output "Unsupported make choice ''mmks' ignored" |
236 | $ write sys$output "Use MMK or MMS instead" | 236 | $ write sys$output "Use MMK or MMS instead" |
237 | $ endif | 237 | $ endif |
238 | $ endif | 238 | $ endif |
239 | $ i = i + 1 | 239 | $ i = i + 1 |
240 | $ goto opt_loop | 240 | $ goto opt_loop |
241 | $ endif | 241 | $ endif |
242 | $ return | 242 | $ return |
243 | $!------------------------------------------------------------------------------ | 243 | $!------------------------------------------------------------------------------ |
244 | $! | 244 | $! |
245 | $! Look for the compiler used | 245 | $! Look for the compiler used |
246 | $! | 246 | $! |
247 | $CHECK_COMPILER: | 247 | $CHECK_COMPILER: |
248 | $ if (.not. (its_decc .or. its_vaxc .or. its_gnuc)) | 248 | $ if (.not. (its_decc .or. its_vaxc .or. its_gnuc)) |
249 | $ then | 249 | $ then |
250 | $ its_decc = (f$search("SYS$SYSTEM:DECC$COMPILER.EXE") .nes. "") | 250 | $ its_decc = (f$search("SYS$SYSTEM:DECC$COMPILER.EXE") .nes. "") |
251 | $ its_vaxc = .not. its_decc .and. (F$Search("SYS$System:VAXC.Exe") .nes. "") | 251 | $ its_vaxc = .not. its_decc .and. (F$Search("SYS$System:VAXC.Exe") .nes. "") |
252 | $ its_gnuc = .not. (its_decc .or. its_vaxc) .and. (f$trnlnm("gnu_cc") .nes. "") | 252 | $ its_gnuc = .not. (its_decc .or. its_vaxc) .and. (f$trnlnm("gnu_cc") .nes. "") |
253 | $ endif | 253 | $ endif |
254 | $! | 254 | $! |
255 | $! Exit if no compiler available | 255 | $! Exit if no compiler available |
256 | $! | 256 | $! |
257 | $ if (.not. (its_decc .or. its_vaxc .or. its_gnuc)) | 257 | $ if (.not. (its_decc .or. its_vaxc .or. its_gnuc)) |
258 | $ then goto CC_ERR | 258 | $ then goto CC_ERR |
259 | $ else | 259 | $ else |
260 | $ if its_decc then write sys$output "CC compiler check ... Compaq C" | 260 | $ if its_decc then write sys$output "CC compiler check ... Compaq C" |
261 | $ if its_vaxc then write sys$output "CC compiler check ... VAX C" | 261 | $ if its_vaxc then write sys$output "CC compiler check ... VAX C" |
262 | $ if its_gnuc then write sys$output "CC compiler check ... GNU C" | 262 | $ if its_gnuc then write sys$output "CC compiler check ... GNU C" |
263 | $ endif | 263 | $ endif |
264 | $ return | 264 | $ return |
265 | $!------------------------------------------------------------------------------ | 265 | $!------------------------------------------------------------------------------ |
266 | $! | 266 | $! |
267 | $! If MMS/MMK are available dump out the descrip.mms if required | 267 | $! If MMS/MMK are available dump out the descrip.mms if required |
268 | $! | 268 | $! |
269 | $CREA_MMS: | 269 | $CREA_MMS: |
270 | $ write sys$output "Creating descrip.mms..." | 270 | $ write sys$output "Creating descrip.mms..." |
271 | $ create descrip.mms | 271 | $ create descrip.mms |
272 | $ open/append out descrip.mms | 272 | $ open/append out descrip.mms |
273 | $ copy sys$input: out | 273 | $ copy sys$input: out |
274 | $ deck | 274 | $ deck |
275 | # descrip.mms: MMS description file for building zlib on VMS | 275 | # descrip.mms: MMS description file for building zlib on VMS |
276 | # written by Martin P.J. Zinser | 276 | # written by Martin P.J. Zinser |
277 | # <zinser@zinser.no-ip.info or zinser@sysdev.deutsche-boerse.com> | 277 | # <zinser@zinser.no-ip.info or zinser@sysdev.deutsche-boerse.com> |
278 | 278 | ||
279 | OBJS = adler32.obj, compress.obj, crc32.obj, gzio.obj, uncompr.obj, infback.obj\ | 279 | OBJS = adler32.obj, compress.obj, crc32.obj, gzio.obj, uncompr.obj, infback.obj\ |
280 | deflate.obj, trees.obj, zutil.obj, inflate.obj, \ | 280 | deflate.obj, trees.obj, zutil.obj, inflate.obj, \ |
281 | inftrees.obj, inffast.obj | 281 | inftrees.obj, inffast.obj |
282 | 282 | ||
283 | $ eod | 283 | $ eod |
284 | $ write out "CFLAGS=", ccopt | 284 | $ write out "CFLAGS=", ccopt |
285 | $ write out "LOPTS=", lopts | 285 | $ write out "LOPTS=", lopts |
286 | $ copy sys$input: out | 286 | $ copy sys$input: out |
287 | $ deck | 287 | $ deck |
288 | 288 | ||
289 | all : example.exe minigzip.exe libz.olb | 289 | all : example.exe minigzip.exe libz.olb |
290 | @ write sys$output " Example applications available" | 290 | @ write sys$output " Example applications available" |
291 | 291 | ||
292 | libz.olb : libz.olb($(OBJS)) | 292 | libz.olb : libz.olb($(OBJS)) |
293 | @ write sys$output " libz available" | 293 | @ write sys$output " libz available" |
294 | 294 | ||
295 | example.exe : example.obj libz.olb | 295 | example.exe : example.obj libz.olb |
296 | link $(LOPTS) example,libz.olb/lib | 296 | link $(LOPTS) example,libz.olb/lib |
297 | 297 | ||
298 | minigzip.exe : minigzip.obj libz.olb | 298 | minigzip.exe : minigzip.obj libz.olb |
299 | link $(LOPTS) minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib | 299 | link $(LOPTS) minigzip,libz.olb/lib,x11vms:xvmsutils.olb/lib |
300 | 300 | ||
301 | clean : | 301 | clean : |
302 | delete *.obj;*,libz.olb;*,*.opt;*,*.exe;* | 302 | delete *.obj;*,libz.olb;*,*.opt;*,*.exe;* |
303 | 303 | ||
304 | 304 | ||
305 | # Other dependencies. | 305 | # Other dependencies. |
306 | adler32.obj : adler32.c zutil.h zlib.h zconf.h | 306 | adler32.obj : adler32.c zutil.h zlib.h zconf.h |
307 | compress.obj : compress.c zlib.h zconf.h | 307 | compress.obj : compress.c zlib.h zconf.h |
308 | crc32.obj : crc32.c zutil.h zlib.h zconf.h | 308 | crc32.obj : crc32.c zutil.h zlib.h zconf.h |
309 | deflate.obj : deflate.c deflate.h zutil.h zlib.h zconf.h | 309 | deflate.obj : deflate.c deflate.h zutil.h zlib.h zconf.h |
310 | example.obj : example.c zlib.h zconf.h | 310 | example.obj : example.c zlib.h zconf.h |
311 | gzio.obj : gzio.c zutil.h zlib.h zconf.h | 311 | gzio.obj : gzio.c zutil.h zlib.h zconf.h |
312 | inffast.obj : inffast.c zutil.h zlib.h zconf.h inftrees.h inffast.h | 312 | inffast.obj : inffast.c zutil.h zlib.h zconf.h inftrees.h inffast.h |
313 | inflate.obj : inflate.c zutil.h zlib.h zconf.h | 313 | inflate.obj : inflate.c zutil.h zlib.h zconf.h |
314 | inftrees.obj : inftrees.c zutil.h zlib.h zconf.h inftrees.h | 314 | inftrees.obj : inftrees.c zutil.h zlib.h zconf.h inftrees.h |
315 | minigzip.obj : minigzip.c zlib.h zconf.h | 315 | minigzip.obj : minigzip.c zlib.h zconf.h |
316 | trees.obj : trees.c deflate.h zutil.h zlib.h zconf.h | 316 | trees.obj : trees.c deflate.h zutil.h zlib.h zconf.h |
317 | uncompr.obj : uncompr.c zlib.h zconf.h | 317 | uncompr.obj : uncompr.c zlib.h zconf.h |
318 | zutil.obj : zutil.c zutil.h zlib.h zconf.h | 318 | zutil.obj : zutil.c zutil.h zlib.h zconf.h |
319 | infback.obj : infback.c zutil.h inftrees.h inflate.h inffast.h inffixed.h | 319 | infback.obj : infback.c zutil.h inftrees.h inflate.h inffast.h inffixed.h |
320 | $ eod | 320 | $ eod |
321 | $ close out | 321 | $ close out |
322 | $ return | 322 | $ return |
323 | $!------------------------------------------------------------------------------ | 323 | $!------------------------------------------------------------------------------ |
324 | $! | 324 | $! |
325 | $! Read list of core library sources from makefile.in and create options | 325 | $! Read list of core library sources from makefile.in and create options |
326 | $! needed to build shareable image | 326 | $! needed to build shareable image |
327 | $! | 327 | $! |
328 | $CREA_OLIST: | 328 | $CREA_OLIST: |
329 | $ open/read min makefile.in | 329 | $ open/read min makefile.in |
330 | $ open/write mod modules.opt | 330 | $ open/write mod modules.opt |
331 | $ src_check = "OBJS =" | 331 | $ src_check = "OBJS =" |
332 | $MRLOOP: | 332 | $MRLOOP: |
333 | $ read/end=mrdone min rec | 333 | $ read/end=mrdone min rec |
334 | $ if (f$extract(0,6,rec) .nes. src_check) then goto mrloop | 334 | $ if (f$extract(0,6,rec) .nes. src_check) then goto mrloop |
335 | $ rec = rec - src_check | 335 | $ rec = rec - src_check |
336 | $ gosub extra_filnam | 336 | $ gosub extra_filnam |
337 | $ if (f$element(1,"\",rec) .eqs. "\") then goto mrdone | 337 | $ if (f$element(1,"\",rec) .eqs. "\") then goto mrdone |
338 | $MRSLOOP: | 338 | $MRSLOOP: |
339 | $ read/end=mrdone min rec | 339 | $ read/end=mrdone min rec |
340 | $ gosub extra_filnam | 340 | $ gosub extra_filnam |
341 | $ if (f$element(1,"\",rec) .nes. "\") then goto mrsloop | 341 | $ if (f$element(1,"\",rec) .nes. "\") then goto mrsloop |
342 | $MRDONE: | 342 | $MRDONE: |
343 | $ close min | 343 | $ close min |
344 | $ close mod | 344 | $ close mod |
345 | $ return | 345 | $ return |
346 | $!------------------------------------------------------------------------------ | 346 | $!------------------------------------------------------------------------------ |
347 | $! | 347 | $! |
348 | $! Take record extracted in crea_olist and split it into single filenames | 348 | $! Take record extracted in crea_olist and split it into single filenames |
349 | $! | 349 | $! |
350 | $EXTRA_FILNAM: | 350 | $EXTRA_FILNAM: |
351 | $ myrec = f$edit(rec - "\", "trim,compress") | 351 | $ myrec = f$edit(rec - "\", "trim,compress") |
352 | $ i = 0 | 352 | $ i = 0 |
353 | $FELOOP: | 353 | $FELOOP: |
354 | $ srcfil = f$element(i," ", myrec) | 354 | $ srcfil = f$element(i," ", myrec) |
355 | $ if (srcfil .nes. " ") | 355 | $ if (srcfil .nes. " ") |
356 | $ then | 356 | $ then |
357 | $ write mod f$parse(srcfil,,,"NAME"), ".obj" | 357 | $ write mod f$parse(srcfil,,,"NAME"), ".obj" |
358 | $ i = i + 1 | 358 | $ i = i + 1 |
359 | $ goto feloop | 359 | $ goto feloop |
360 | $ endif | 360 | $ endif |
361 | $ return | 361 | $ return |
362 | $!------------------------------------------------------------------------------ | 362 | $!------------------------------------------------------------------------------ |
363 | $! | 363 | $! |
364 | $! Find current Zlib version number | 364 | $! Find current Zlib version number |
365 | $! | 365 | $! |
366 | $FIND_VERSION: | 366 | $FIND_VERSION: |
367 | $ open/read h_in 'v_file' | 367 | $ open/read h_in 'v_file' |
368 | $hloop: | 368 | $hloop: |
369 | $ read/end=hdone h_in rec | 369 | $ read/end=hdone h_in rec |
370 | $ rec = f$edit(rec,"TRIM") | 370 | $ rec = f$edit(rec,"TRIM") |
371 | $ if (f$extract(0,1,rec) .nes. "#") then goto hloop | 371 | $ if (f$extract(0,1,rec) .nes. "#") then goto hloop |
372 | $ rec = f$edit(rec - "#", "TRIM") | 372 | $ rec = f$edit(rec - "#", "TRIM") |
373 | $ if f$element(0," ",rec) .nes. "define" then goto hloop | 373 | $ if f$element(0," ",rec) .nes. "define" then goto hloop |
374 | $ if f$element(1," ",rec) .eqs. v_string | 374 | $ if f$element(1," ",rec) .eqs. v_string |
375 | $ then | 375 | $ then |
376 | $ version = 'f$element(2," ",rec)' | 376 | $ version = 'f$element(2," ",rec)' |
377 | $ goto hdone | 377 | $ goto hdone |
378 | $ endif | 378 | $ endif |
379 | $ goto hloop | 379 | $ goto hloop |
380 | $hdone: | 380 | $hdone: |
381 | $ close h_in | 381 | $ close h_in |
382 | $ return | 382 | $ return |
383 | $!------------------------------------------------------------------------------ | 383 | $!------------------------------------------------------------------------------ |
384 | $! | 384 | $! |
385 | $! Analyze Object files for OpenVMS AXP to extract Procedure and Data | 385 | $! Analyze Object files for OpenVMS AXP to extract Procedure and Data |
386 | $! information to build a symbol vector for a shareable image | 386 | $! information to build a symbol vector for a shareable image |
387 | $! All the "brains" of this logic was suggested by Hartmut Becker | 387 | $! All the "brains" of this logic was suggested by Hartmut Becker |
388 | $! (Hartmut.Becker@compaq.com). All the bugs were introduced by me | 388 | $! (Hartmut.Becker@compaq.com). All the bugs were introduced by me |
389 | $! (zinser@decus.de), so if you do have problem reports please do not | 389 | $! (zinser@decus.de), so if you do have problem reports please do not |
390 | $! bother Hartmut/HP, but get in touch with me | 390 | $! bother Hartmut/HP, but get in touch with me |
391 | $! | 391 | $! |
392 | $ ANAL_OBJ_AXP: Subroutine | 392 | $ ANAL_OBJ_AXP: Subroutine |
393 | $ V = 'F$Verify(0) | 393 | $ V = 'F$Verify(0) |
394 | $ SAY := "WRITE_ SYS$OUTPUT" | 394 | $ SAY := "WRITE_ SYS$OUTPUT" |
395 | $ | 395 | $ |
396 | $ IF F$SEARCH("''P1'") .EQS. "" | 396 | $ IF F$SEARCH("''P1'") .EQS. "" |
397 | $ THEN | 397 | $ THEN |
398 | $ SAY "ANAL_OBJ_AXP-E-NOSUCHFILE: Error, inputfile ''p1' not available" | 398 | $ SAY "ANAL_OBJ_AXP-E-NOSUCHFILE: Error, inputfile ''p1' not available" |
399 | $ goto exit_aa | 399 | $ goto exit_aa |
400 | $ ENDIF | 400 | $ ENDIF |
401 | $ IF "''P2'" .EQS. "" | 401 | $ IF "''P2'" .EQS. "" |
402 | $ THEN | 402 | $ THEN |
403 | $ SAY "ANAL_OBJ_AXP: Error, no output file provided" | 403 | $ SAY "ANAL_OBJ_AXP: Error, no output file provided" |
404 | $ goto exit_aa | 404 | $ goto exit_aa |
405 | $ ENDIF | 405 | $ ENDIF |
406 | $ | 406 | $ |
407 | $ open/read in 'p1 | 407 | $ open/read in 'p1 |
408 | $ create a.tmp | 408 | $ create a.tmp |
409 | $ open/append atmp a.tmp | 409 | $ open/append atmp a.tmp |
410 | $ loop: | 410 | $ loop: |
411 | $ read/end=end_loop in line | 411 | $ read/end=end_loop in line |
412 | $ f= f$search(line) | 412 | $ f= f$search(line) |
413 | $ if f .eqs. "" | 413 | $ if f .eqs. "" |
414 | $ then | 414 | $ then |
415 | $ write sys$output "ANAL_OBJ_AXP-w-nosuchfile, ''line'" | 415 | $ write sys$output "ANAL_OBJ_AXP-w-nosuchfile, ''line'" |
416 | $ goto loop | 416 | $ goto loop |
417 | $ endif | 417 | $ endif |
418 | $ define/user sys$output nl: | 418 | $ define/user sys$output nl: |
419 | $ define/user sys$error nl: | 419 | $ define/user sys$error nl: |
420 | $ anal/obj/gsd 'f /out=x.tmp | 420 | $ anal/obj/gsd 'f /out=x.tmp |
421 | $ open/read xtmp x.tmp | 421 | $ open/read xtmp x.tmp |
422 | $ XLOOP: | 422 | $ XLOOP: |
423 | $ read/end=end_xloop xtmp xline | 423 | $ read/end=end_xloop xtmp xline |
424 | $ xline = f$edit(xline,"compress") | 424 | $ xline = f$edit(xline,"compress") |
425 | $ write atmp xline | 425 | $ write atmp xline |
426 | $ goto xloop | 426 | $ goto xloop |
427 | $ END_XLOOP: | 427 | $ END_XLOOP: |
428 | $ close xtmp | 428 | $ close xtmp |
429 | $ goto loop | 429 | $ goto loop |
430 | $ end_loop: | 430 | $ end_loop: |
431 | $ close in | 431 | $ close in |
432 | $ close atmp | 432 | $ close atmp |
433 | $ if f$search("a.tmp") .eqs. "" - | 433 | $ if f$search("a.tmp") .eqs. "" - |
434 | then $ exit | 434 | then $ exit |
435 | $ ! all global definitions | 435 | $ ! all global definitions |
436 | $ search a.tmp "symbol:","EGSY$V_DEF 1","EGSY$V_NORM 1"/out=b.tmp | 436 | $ search a.tmp "symbol:","EGSY$V_DEF 1","EGSY$V_NORM 1"/out=b.tmp |
437 | $ ! all procedures | 437 | $ ! all procedures |
438 | $ search b.tmp "EGSY$V_NORM 1"/wind=(0,1) /out=c.tmp | 438 | $ search b.tmp "EGSY$V_NORM 1"/wind=(0,1) /out=c.tmp |
439 | $ search c.tmp "symbol:"/out=d.tmp | 439 | $ search c.tmp "symbol:"/out=d.tmp |
440 | $ define/user sys$output nl: | 440 | $ define/user sys$output nl: |
441 | $ edito/edt/command=sys$input d.tmp | 441 | $ edito/edt/command=sys$input d.tmp |
442 | sub/symbol: "/symbol_vector=(/whole | 442 | sub/symbol: "/symbol_vector=(/whole |
443 | sub/"/=PROCEDURE)/whole | 443 | sub/"/=PROCEDURE)/whole |
444 | exit | 444 | exit |
445 | $ ! all data | 445 | $ ! all data |
446 | $ search b.tmp "EGSY$V_DEF 1"/wind=(0,1) /out=e.tmp | 446 | $ search b.tmp "EGSY$V_DEF 1"/wind=(0,1) /out=e.tmp |
447 | $ search e.tmp "symbol:"/out=f.tmp | 447 | $ search e.tmp "symbol:"/out=f.tmp |
448 | $ define/user sys$output nl: | 448 | $ define/user sys$output nl: |
449 | $ edito/edt/command=sys$input f.tmp | 449 | $ edito/edt/command=sys$input f.tmp |
450 | sub/symbol: "/symbol_vector=(/whole | 450 | sub/symbol: "/symbol_vector=(/whole |
451 | sub/"/=DATA)/whole | 451 | sub/"/=DATA)/whole |
452 | exit | 452 | exit |
453 | $ sort/nodupl d.tmp,f.tmp 'p2' | 453 | $ sort/nodupl d.tmp,f.tmp 'p2' |
454 | $ delete a.tmp;*,b.tmp;*,c.tmp;*,d.tmp;*,e.tmp;*,f.tmp;* | 454 | $ delete a.tmp;*,b.tmp;*,c.tmp;*,d.tmp;*,e.tmp;*,f.tmp;* |
455 | $ if f$search("x.tmp") .nes. "" - | 455 | $ if f$search("x.tmp") .nes. "" - |
456 | then $ delete x.tmp;* | 456 | then $ delete x.tmp;* |
457 | $! | 457 | $! |
458 | $ EXIT_AA: | 458 | $ EXIT_AA: |
459 | $ if V then set verify | 459 | $ if V then set verify |
460 | $ endsubroutine | 460 | $ endsubroutine |
461 | $!------------------------------------------------------------------------------ | 461 | $!------------------------------------------------------------------------------ |