|
1
|
$! make libz under VMS written by |
|
2
|
$! Martin P.J. Zinser |
|
3
|
$! |
|
4
|
$! In case of problems with the install you might contact me at |
|
5
|
$! [email protected](preferred) or |
|
6
|
$! [email protected] (work) |
|
7
|
$! |
|
8
|
$! Make procedure history for Zlib |
|
9
|
$! |
|
10
|
$!------------------------------------------------------------------------------ |
|
11
|
$! Version history |
|
12
|
$! 0.01 20060120 First version to receive a number |
|
13
|
$! 0.02 20061008 Adapt to new Makefile.in |
|
14
|
$! 0.03 20091224 Add support for large file check |
|
15
|
$! 0.04 20100110 Add new gzclose, gzlib, gzread, gzwrite |
|
16
|
$! 0.05 20100221 Exchange zlibdefs.h by zconf.h.in |
|
17
|
$! 0.06 20120111 Fix missing amiss_err, update zconf_h.in, fix new examples |
|
18
|
$! subdir path, update module search in makefile.in |
|
19
|
$! 0.07 20120115 Triggered by work done by Alexey Chupahin completely redesigned |
|
20
|
$! shared image creation |
|
21
|
$! 0.08 20120219 Make it work on VAX again, pre-load missing symbols to shared |
|
22
|
$! image |
|
23
|
$! 0.09 20120305 SMS. P1 sets builder ("MMK", "MMS", " " (built-in)). |
|
24
|
$! "" -> automatic, preference: MMK, MMS, built-in. |
|
25
|
$! |
|
26
|
$ on error then goto err_exit |
|
27
|
$! |
|
28
|
$ true = 1 |
|
29
|
$ false = 0 |
|
30
|
$ tmpnam = "temp_" + f$getjpi("","pid") |
|
31
|
$ tt = tmpnam + ".txt" |
|
32
|
$ tc = tmpnam + ".c" |
|
33
|
$ th = tmpnam + ".h" |
|
34
|
$ define/nolog tconfig 'th' |
|
35
|
$ its_decc = false |
|
36
|
$ its_vaxc = false |
|
37
|
$ its_gnuc = false |
|
38
|
$ s_case = False |
|
39
|
$! |
|
40
|
$! Setup variables holding "config" information |
|
41
|
$! |
|
42
|
$ Make = "''p1'" |
|
43
|
$ name = "Zlib" |
|
44
|
$ version = "?.?.?" |
|
45
|
$ v_string = "ZLIB_VERSION" |
|
46
|
$ v_file = "zlib.h" |
|
47
|
$ ccopt = "/include = []" |
|
48
|
$ lopts = "" |
|
49
|
$ dnsrl = "" |
|
50
|
$ aconf_in_file = "zconf.h.in#zconf.h_in#zconf_h.in" |
|
51
|
$ conf_check_string = "" |
|
52
|
$ linkonly = false |
|
53
|
$ optfile = name + ".opt" |
|
54
|
$ mapfile = name + ".map" |
|
55
|
$ libdefs = "" |
|
56
|
$ vax = f$getsyi("HW_MODEL").lt.1024 |
|
57
|
$ axp = f$getsyi("HW_MODEL").ge.1024 .and. f$getsyi("HW_MODEL").lt.4096 |
|
58
|
$ ia64 = f$getsyi("HW_MODEL").ge.4096 |
|
59
|
$! |
|
60
|
$! 2012-03-05 SMS. |
|
61
|
$! Why is this needed? And if it is needed, why not simply ".not. vax"? |
|
62
|
$! |
|
63
|
$!!! if axp .or. ia64 then set proc/parse=extended |
|
64
|
$! |
|
65
|
$ whoami = f$parse(f$environment("Procedure"),,,,"NO_CONCEAL") |
|
66
|
$ mydef = F$parse(whoami,,,"DEVICE") |
|
67
|
$ mydir = f$parse(whoami,,,"DIRECTORY") - "][" |
|
68
|
$ myproc = f$parse(whoami,,,"Name") + f$parse(whoami,,,"type") |
|
69
|
$! |
|
70
|
$! Check for MMK/MMS |
|
71
|
$! |
|
72
|
$ if (Make .eqs. "") |
|
73
|
$ then |
|
74
|
$ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS" |
|
75
|
$ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK" |
|
76
|
$ else |
|
77
|
$ Make = f$edit( Make, "trim") |
|
78
|
$ endif |
|
79
|
$! |
|
80
|
$ gosub find_version |
|
81
|
$! |
|
82
|
$ open/write topt tmp.opt |
|
83
|
$ open/write optf 'optfile' |
|
84
|
$! |
|
85
|
$ gosub check_opts |
|
86
|
$! |
|
87
|
$! Look for the compiler used |
|
88
|
$! |
|
89
|
$ gosub check_compiler |
|
90
|
$ close topt |
|
91
|
$ close optf |
|
92
|
$! |
|
93
|
$ if its_decc |
|
94
|
$ then |
|
95
|
$ ccopt = "/prefix=all" + ccopt |
|
96
|
$ if f$trnlnm("SYS") .eqs. "" |
|
97
|
$ then |
|
98
|
$ if axp |
|
99
|
$ then |
|
100
|
$ define sys sys$library: |
|
101
|
$ else |
|
102
|
$ ccopt = "/decc" + ccopt |
|
103
|
$ define sys decc$library_include: |
|
104
|
$ endif |
|
105
|
$ endif |
|
106
|
$! |
|
107
|
$! 2012-03-05 SMS. |
|
108
|
$! Why /NAMES = AS_IS? Why not simply ".not. vax"? And why not on VAX? |
|
109
|
$! |
|
110
|
$ if axp .or. ia64 |
|
111
|
$ then |
|
112
|
$ ccopt = ccopt + "/name=as_is/opt=(inline=speed)" |
|
113
|
$ s_case = true |
|
114
|
$ endif |
|
115
|
$ endif |
|
116
|
$ if its_vaxc .or. its_gnuc |
|
117
|
$ then |
|
118
|
$ if f$trnlnm("SYS").eqs."" then define sys sys$library: |
|
119
|
$ endif |
|
120
|
$! |
|
121
|
$! Build a fake configure input header |
|
122
|
$! |
|
123
|
$ open/write conf_hin config.hin |
|
124
|
$ write conf_hin "#undef _LARGEFILE64_SOURCE" |
|
125
|
$ close conf_hin |
|
126
|
$! |
|
127
|
$! |
|
128
|
$ i = 0 |
|
129
|
$FIND_ACONF: |
|
130
|
$ fname = f$element(i,"#",aconf_in_file) |
|
131
|
$ if fname .eqs. "#" then goto AMISS_ERR |
|
132
|
$ if f$search(fname) .eqs. "" |
|
133
|
$ then |
|
134
|
$ i = i + 1 |
|
135
|
$ goto find_aconf |
|
136
|
$ endif |
|
137
|
$ open/read/err=aconf_err aconf_in 'fname' |
|
138
|
$ open/write aconf zconf.h |
|
139
|
$ACONF_LOOP: |
|
140
|
$ read/end_of_file=aconf_exit aconf_in line |
|
141
|
$ work = f$edit(line, "compress,trim") |
|
142
|
$ if f$extract(0,6,work) .nes. "#undef" |
|
143
|
$ then |
|
144
|
$ if f$extract(0,12,work) .nes. "#cmakedefine" |
|
145
|
$ then |
|
146
|
$ write aconf line |
|
147
|
$ endif |
|
148
|
$ else |
|
149
|
$ cdef = f$element(1," ",work) |
|
150
|
$ gosub check_config |
|
151
|
$ endif |
|
152
|
$ goto aconf_loop |
|
153
|
$ACONF_EXIT: |
|
154
|
$ write aconf "" |
|
155
|
$ write aconf "/* VMS specifics added by make_vms.com: */" |
|
156
|
$ write aconf "#define VMS 1" |
|
157
|
$ write aconf "#include <unistd.h>" |
|
158
|
$ write aconf "#include <unixio.h>" |
|
159
|
$ write aconf "#ifdef _LARGEFILE" |
|
160
|
$ write aconf "# define off64_t __off64_t" |
|
161
|
$ write aconf "# define fopen64 fopen" |
|
162
|
$ write aconf "# define fseeko64 fseeko" |
|
163
|
$ write aconf "# define lseek64 lseek" |
|
164
|
$ write aconf "# define ftello64 ftell" |
|
165
|
$ write aconf "#endif" |
|
166
|
$ write aconf "#if !defined( __VAX) && (__CRTL_VER >= 70312000)" |
|
167
|
$ write aconf "# define HAVE_VSNPRINTF" |
|
168
|
$ write aconf "#endif" |
|
169
|
$ close aconf_in |
|
170
|
$ close aconf |
|
171
|
$ if f$search("''th'") .nes. "" then delete 'th';* |
|
172
|
$! Build the thing plain or with mms |
|
173
|
$! |
|
174
|
$ write sys$output "Compiling Zlib sources ..." |
|
175
|
$ if make.eqs."" |
|
176
|
$ then |
|
177
|
$ if (f$search( "example.obj;*") .nes. "") then delete example.obj;* |
|
178
|
$ if (f$search( "minigzip.obj;*") .nes. "") then delete minigzip.obj;* |
|
179
|
$ CALL MAKE adler32.OBJ "CC ''CCOPT' adler32" - |
|
180
|
adler32.c zlib.h zconf.h |
|
181
|
$ CALL MAKE compress.OBJ "CC ''CCOPT' compress" - |
|
182
|
compress.c zlib.h zconf.h |
|
183
|
$ CALL MAKE crc32.OBJ "CC ''CCOPT' crc32" - |
|
184
|
crc32.c zlib.h zconf.h |
|
185
|
$ CALL MAKE deflate.OBJ "CC ''CCOPT' deflate" - |
|
186
|
deflate.c deflate.h zutil.h zlib.h zconf.h |
|
187
|
$ CALL MAKE gzclose.OBJ "CC ''CCOPT' gzclose" - |
|
188
|
gzclose.c zutil.h zlib.h zconf.h |
|
189
|
$ CALL MAKE gzlib.OBJ "CC ''CCOPT' gzlib" - |
|
190
|
gzlib.c zutil.h zlib.h zconf.h |
|
191
|
$ CALL MAKE gzread.OBJ "CC ''CCOPT' gzread" - |
|
192
|
gzread.c zutil.h zlib.h zconf.h |
|
193
|
$ CALL MAKE gzwrite.OBJ "CC ''CCOPT' gzwrite" - |
|
194
|
gzwrite.c zutil.h zlib.h zconf.h |
|
195
|
$ CALL MAKE infback.OBJ "CC ''CCOPT' infback" - |
|
196
|
infback.c zutil.h inftrees.h inflate.h inffast.h inffixed.h |
|
197
|
$ CALL MAKE inffast.OBJ "CC ''CCOPT' inffast" - |
|
198
|
inffast.c zutil.h zlib.h zconf.h inffast.h |
|
199
|
$ CALL MAKE inflate.OBJ "CC ''CCOPT' inflate" - |
|
200
|
inflate.c zutil.h zlib.h zconf.h infblock.h |
|
201
|
$ CALL MAKE inftrees.OBJ "CC ''CCOPT' inftrees" - |
|
202
|
inftrees.c zutil.h zlib.h zconf.h inftrees.h |
|
203
|
$ CALL MAKE trees.OBJ "CC ''CCOPT' trees" - |
|
204
|
trees.c deflate.h zutil.h zlib.h zconf.h |
|
205
|
$ CALL MAKE uncompr.OBJ "CC ''CCOPT' uncompr" - |
|
206
|
uncompr.c zlib.h zconf.h |
|
207
|
$ CALL MAKE zutil.OBJ "CC ''CCOPT' zutil" - |
|
208
|
zutil.c zutil.h zlib.h zconf.h |
|
209
|
$ write sys$output "Building Zlib ..." |
|
210
|
$ CALL MAKE libz.OLB "lib/crea libz.olb *.obj" *.OBJ |
|
211
|
$ write sys$output "Building example..." |
|
212
|
$ CALL MAKE example.OBJ "CC ''CCOPT' [.test]example" - |
|
213
|
[.test]example.c zlib.h zconf.h |
|
214
|
$ call make example.exe "LINK example,libz.olb/lib" example.obj libz.olb |
|
215
|
$ write sys$output "Building minigzip..." |
|
216
|
$ CALL MAKE minigzip.OBJ "CC ''CCOPT' [.test]minigzip" - |
|
217
|
[.test]minigzip.c zlib.h zconf.h |
|
218
|
$ call make minigzip.exe - |
|
219
|
"LINK minigzip,libz.olb/lib" - |
|
220
|
minigzip.obj libz.olb |
|
221
|
$ else |
|
222
|
$ gosub crea_mms |
|
223
|
$ write sys$output "Make ''name' ''version' with ''Make' " |
|
224
|
$ 'make' |
|
225
|
$ endif |
|
226
|
$! |
|
227
|
$! Create shareable image |
|
228
|
$! |
|
229
|
$ gosub crea_olist |
|
230
|
$ write sys$output "Creating libzshr.exe" |
|
231
|
$ call map_2_shopt 'mapfile' 'optfile' |
|
232
|
$ LINK_'lopts'/SHARE=libzshr.exe modules.opt/opt,'optfile'/opt |
|
233
|
$ write sys$output "Zlib build completed" |
|
234
|
$ delete/nolog tmp.opt;* |
|
235
|
$ exit |
|
236
|
$AMISS_ERR: |
|
237
|
$ write sys$output "No source for config.hin found." |
|
238
|
$ write sys$output "Tried any of ''aconf_in_file'" |
|
239
|
$ goto err_exit |
|
240
|
$CC_ERR: |
|
241
|
$ write sys$output "C compiler required to build ''name'" |
|
242
|
$ goto err_exit |
|
243
|
$ERR_EXIT: |
|
244
|
$ set message/facil/ident/sever/text |
|
245
|
$ close/nolog optf |
|
246
|
$ close/nolog topt |
|
247
|
$ close/nolog aconf_in |
|
248
|
$ close/nolog aconf |
|
249
|
$ close/nolog out |
|
250
|
$ close/nolog min |
|
251
|
$ close/nolog mod |
|
252
|
$ close/nolog h_in |
|
253
|
$ write sys$output "Exiting..." |
|
254
|
$ exit 2 |
|
255
|
$! |
|
256
|
$! |
|
257
|
$MAKE: SUBROUTINE !SUBROUTINE TO CHECK DEPENDENCIES |
|
258
|
$ V = 'F$Verify(0) |
|
259
|
$! P1 = What we are trying to make |
|
260
|
$! P2 = Command to make it |
|
261
|
$! P3 - P8 What it depends on |
|
262
|
$ |
|
263
|
$ If F$Search(P1) .Eqs. "" Then Goto Makeit |
|
264
|
$ Time = F$CvTime(F$File(P1,"RDT")) |
|
265
|
$arg=3 |
|
266
|
$Loop: |
|
267
|
$ Argument = P'arg |
|
268
|
$ If Argument .Eqs. "" Then Goto Exit |
|
269
|
$ El=0 |
|
270
|
$Loop2: |
|
271
|
$ File = F$Element(El," ",Argument) |
|
272
|
$ If File .Eqs. " " Then Goto Endl |
|
273
|
$ AFile = "" |
|
274
|
$Loop3: |
|
275
|
$ OFile = AFile |
|
276
|
$ AFile = F$Search(File) |
|
277
|
$ If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl |
|
278
|
$ If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit |
|
279
|
$ Goto Loop3 |
|
280
|
$NextEL: |
|
281
|
$ El = El + 1 |
|
282
|
$ Goto Loop2 |
|
283
|
$EndL: |
|
284
|
$ arg=arg+1 |
|
285
|
$ If arg .Le. 8 Then Goto Loop |
|
286
|
$ Goto Exit |
|
287
|
$ |
|
288
|
$Makeit: |
|
289
|
$ VV=F$VERIFY(0) |
|
290
|
$ write sys$output P2 |
|
291
|
$ 'P2 |
|
292
|
$ VV='F$Verify(VV) |
|
293
|
$Exit: |
|
294
|
$ If V Then Set Verify |
|
295
|
$ENDSUBROUTINE |
|
296
|
$!------------------------------------------------------------------------------ |
|
297
|
$! |
|
298
|
$! Check command line options and set symbols accordingly |
|
299
|
$! |
|
300
|
$!------------------------------------------------------------------------------ |
|
301
|
$! Version history |
|
302
|
$! 0.01 20041206 First version to receive a number |
|
303
|
$! 0.02 20060126 Add new "HELP" target |
|
304
|
$ CHECK_OPTS: |
|
305
|
$ i = 1 |
|
306
|
$ OPT_LOOP: |
|
307
|
$ if i .lt. 9 |
|
308
|
$ then |
|
309
|
$ cparm = f$edit(p'i',"upcase") |
|
310
|
$! |
|
311
|
$! Check if parameter actually contains something |
|
312
|
$! |
|
313
|
$ if f$edit(cparm,"trim") .nes. "" |
|
314
|
$ then |
|
315
|
$ if cparm .eqs. "DEBUG" |
|
316
|
$ then |
|
317
|
$ ccopt = ccopt + "/noopt/deb" |
|
318
|
$ lopts = lopts + "/deb" |
|
319
|
$ endif |
|
320
|
$ if f$locate("CCOPT=",cparm) .lt. f$length(cparm) |
|
321
|
$ then |
|
322
|
$ start = f$locate("=",cparm) + 1 |
|
323
|
$ len = f$length(cparm) - start |
|
324
|
$ ccopt = ccopt + f$extract(start,len,cparm) |
|
325
|
$ if f$locate("AS_IS",f$edit(ccopt,"UPCASE")) .lt. f$length(ccopt) - |
|
326
|
then s_case = true |
|
327
|
$ endif |
|
328
|
$ if cparm .eqs. "LINK" then linkonly = true |
|
329
|
$ if f$locate("LOPTS=",cparm) .lt. f$length(cparm) |
|
330
|
$ then |
|
331
|
$ start = f$locate("=",cparm) + 1 |
|
332
|
$ len = f$length(cparm) - start |
|
333
|
$ lopts = lopts + f$extract(start,len,cparm) |
|
334
|
$ endif |
|
335
|
$ if f$locate("CC=",cparm) .lt. f$length(cparm) |
|
336
|
$ then |
|
337
|
$ start = f$locate("=",cparm) + 1 |
|
338
|
$ len = f$length(cparm) - start |
|
339
|
$ cc_com = f$extract(start,len,cparm) |
|
340
|
if (cc_com .nes. "DECC") .and. - |
|
341
|
(cc_com .nes. "VAXC") .and. - |
|
342
|
(cc_com .nes. "GNUC") |
|
343
|
$ then |
|
344
|
$ write sys$output "Unsupported compiler choice ''cc_com' ignored" |
|
345
|
$ write sys$output "Use DECC, VAXC, or GNUC instead" |
|
346
|
$ else |
|
347
|
$ if cc_com .eqs. "DECC" then its_decc = true |
|
348
|
$ if cc_com .eqs. "VAXC" then its_vaxc = true |
|
349
|
$ if cc_com .eqs. "GNUC" then its_gnuc = true |
|
350
|
$ endif |
|
351
|
$ endif |
|
352
|
$ if f$locate("MAKE=",cparm) .lt. f$length(cparm) |
|
353
|
$ then |
|
354
|
$ start = f$locate("=",cparm) + 1 |
|
355
|
$ len = f$length(cparm) - start |
|
356
|
$ mmks = f$extract(start,len,cparm) |
|
357
|
$ if (mmks .eqs. "MMK") .or. (mmks .eqs. "MMS") |
|
358
|
$ then |
|
359
|
$ make = mmks |
|
360
|
$ else |
|
361
|
$ write sys$output "Unsupported make choice ''mmks' ignored" |
|
362
|
$ write sys$output "Use MMK or MMS instead" |
|
363
|
$ endif |
|
364
|
$ endif |
|
365
|
$ if cparm .eqs. "HELP" then gosub bhelp |
|
366
|
$ endif |
|
367
|
$ i = i + 1 |
|
368
|
$ goto opt_loop |
|
369
|
$ endif |
|
370
|
$ return |
|
371
|
$!------------------------------------------------------------------------------ |
|
372
|
$! |
|
373
|
$! Look for the compiler used |
|
374
|
$! |
|
375
|
$! Version history |
|
376
|
$! 0.01 20040223 First version to receive a number |
|
377
|
$! 0.02 20040229 Save/set value of decc$no_rooted_search_lists |
|
378
|
$! 0.03 20060202 Extend handling of GNU C |
|
379
|
$! 0.04 20090402 Compaq -> hp |
|
380
|
$CHECK_COMPILER: |
|
381
|
$ if (.not. (its_decc .or. its_vaxc .or. its_gnuc)) |
|
382
|
$ then |
|
383
|
$ its_decc = (f$search("SYS$SYSTEM:DECC$COMPILER.EXE") .nes. "") |
|
384
|
$ its_vaxc = .not. its_decc .and. (F$Search("SYS$System:VAXC.Exe") .nes. "") |
|
385
|
$ its_gnuc = .not. (its_decc .or. its_vaxc) .and. (f$trnlnm("gnu_cc") .nes. "") |
|
386
|
$ endif |
|
387
|
$! |
|
388
|
$! Exit if no compiler available |
|
389
|
$! |
|
390
|
$ if (.not. (its_decc .or. its_vaxc .or. its_gnuc)) |
|
391
|
$ then goto CC_ERR |
|
392
|
$ else |
|
393
|
$ if its_decc |
|
394
|
$ then |
|
395
|
$ write sys$output "CC compiler check ... hp C" |
|
396
|
$ if f$trnlnm("decc$no_rooted_search_lists") .nes. "" |
|
397
|
$ then |
|
398
|
$ dnrsl = f$trnlnm("decc$no_rooted_search_lists") |
|
399
|
$ endif |
|
400
|
$ define/nolog decc$no_rooted_search_lists 1 |
|
401
|
$ else |
|
402
|
$ if its_vaxc then write sys$output "CC compiler check ... VAX C" |
|
403
|
$ if its_gnuc |
|
404
|
$ then |
|
405
|
$ write sys$output "CC compiler check ... GNU C" |
|
406
|
$ if f$trnlnm(topt) then write topt "gnu_cc:[000000]gcclib.olb/lib" |
|
407
|
$ if f$trnlnm(optf) then write optf "gnu_cc:[000000]gcclib.olb/lib" |
|
408
|
$ cc = "gcc" |
|
409
|
$ endif |
|
410
|
$ if f$trnlnm(topt) then write topt "sys$share:vaxcrtl.exe/share" |
|
411
|
$ if f$trnlnm(optf) then write optf "sys$share:vaxcrtl.exe/share" |
|
412
|
$ endif |
|
413
|
$ endif |
|
414
|
$ return |
|
415
|
$!------------------------------------------------------------------------------ |
|
416
|
$! |
|
417
|
$! If MMS/MMK are available dump out the descrip.mms if required |
|
418
|
$! |
|
419
|
$CREA_MMS: |
|
420
|
$ write sys$output "Creating descrip.mms..." |
|
421
|
$ create descrip.mms |
|
422
|
$ open/append out descrip.mms |
|
423
|
$ copy sys$input: out |
|
424
|
$ deck |
|
425
|
# descrip.mms: MMS description file for building zlib on VMS |
|
426
|
# written by Martin P.J. Zinser |
|
427
|
# <[email protected] or [email protected]> |
|
428
|
|
|
429
|
OBJS = adler32.obj, compress.obj, crc32.obj, gzclose.obj, gzlib.obj\ |
|
430
|
gzread.obj, gzwrite.obj, uncompr.obj, infback.obj\ |
|
431
|
deflate.obj, trees.obj, zutil.obj, inflate.obj, \ |
|
432
|
inftrees.obj, inffast.obj |
|
433
|
|
|
434
|
$ eod |
|
435
|
$ write out "CFLAGS=", ccopt |
|
436
|
$ write out "LOPTS=", lopts |
|
437
|
$ write out "all : example.exe minigzip.exe libz.olb" |
|
438
|
$ copy sys$input: out |
|
439
|
$ deck |
|
440
|
@ write sys$output " Example applications available" |
|
441
|
|
|
442
|
libz.olb : libz.olb($(OBJS)) |
|
443
|
@ write sys$output " libz available" |
|
444
|
|
|
445
|
example.exe : example.obj libz.olb |
|
446
|
link $(LOPTS) example,libz.olb/lib |
|
447
|
|
|
448
|
minigzip.exe : minigzip.obj libz.olb |
|
449
|
link $(LOPTS) minigzip,libz.olb/lib |
|
450
|
|
|
451
|
clean : |
|
452
|
delete *.obj;*,libz.olb;*,*.opt;*,*.exe;* |
|
453
|
|
|
454
|
|
|
455
|
# Other dependencies. |
|
456
|
adler32.obj : adler32.c zutil.h zlib.h zconf.h |
|
457
|
compress.obj : compress.c zlib.h zconf.h |
|
458
|
crc32.obj : crc32.c zutil.h zlib.h zconf.h |
|
459
|
deflate.obj : deflate.c deflate.h zutil.h zlib.h zconf.h |
|
460
|
example.obj : [.test]example.c zlib.h zconf.h |
|
461
|
gzclose.obj : gzclose.c zutil.h zlib.h zconf.h |
|
462
|
gzlib.obj : gzlib.c zutil.h zlib.h zconf.h |
|
463
|
gzread.obj : gzread.c zutil.h zlib.h zconf.h |
|
464
|
gzwrite.obj : gzwrite.c zutil.h zlib.h zconf.h |
|
465
|
inffast.obj : inffast.c zutil.h zlib.h zconf.h inftrees.h inffast.h |
|
466
|
inflate.obj : inflate.c zutil.h zlib.h zconf.h |
|
467
|
inftrees.obj : inftrees.c zutil.h zlib.h zconf.h inftrees.h |
|
468
|
minigzip.obj : [.test]minigzip.c zlib.h zconf.h |
|
469
|
trees.obj : trees.c deflate.h zutil.h zlib.h zconf.h |
|
470
|
uncompr.obj : uncompr.c zlib.h zconf.h |
|
471
|
zutil.obj : zutil.c zutil.h zlib.h zconf.h |
|
472
|
infback.obj : infback.c zutil.h inftrees.h inflate.h inffast.h inffixed.h |
|
473
|
$ eod |
|
474
|
$ close out |
|
475
|
$ return |
|
476
|
$!------------------------------------------------------------------------------ |
|
477
|
$! |
|
478
|
$! Read list of core library sources from makefile.in and create options |
|
479
|
$! needed to build shareable image |
|
480
|
$! |
|
481
|
$CREA_OLIST: |
|
482
|
$ open/read min makefile.in |
|
483
|
$ open/write mod modules.opt |
|
484
|
$ src_check_list = "OBJZ =#OBJG =" |
|
485
|
$MRLOOP: |
|
486
|
$ read/end=mrdone min rec |
|
487
|
$ i = 0 |
|
488
|
$SRC_CHECK_LOOP: |
|
489
|
$ src_check = f$element(i, "#", src_check_list) |
|
490
|
$ i = i+1 |
|
491
|
$ if src_check .eqs. "#" then goto mrloop |
|
492
|
$ if (f$extract(0,6,rec) .nes. src_check) then goto src_check_loop |
|
493
|
$ rec = rec - src_check |
|
494
|
$ gosub extra_filnam |
|
495
|
$ if (f$element(1,"\",rec) .eqs. "\") then goto mrloop |
|
496
|
$MRSLOOP: |
|
497
|
$ read/end=mrdone min rec |
|
498
|
$ gosub extra_filnam |
|
499
|
$ if (f$element(1,"\",rec) .nes. "\") then goto mrsloop |
|
500
|
$MRDONE: |
|
501
|
$ close min |
|
502
|
$ close mod |
|
503
|
$ return |
|
504
|
$!------------------------------------------------------------------------------ |
|
505
|
$! |
|
506
|
$! Take record extracted in crea_olist and split it into single filenames |
|
507
|
$! |
|
508
|
$EXTRA_FILNAM: |
|
509
|
$ myrec = f$edit(rec - "\", "trim,compress") |
|
510
|
$ i = 0 |
|
511
|
$FELOOP: |
|
512
|
$ srcfil = f$element(i," ", myrec) |
|
513
|
$ if (srcfil .nes. " ") |
|
514
|
$ then |
|
515
|
$ write mod f$parse(srcfil,,,"NAME"), ".obj" |
|
516
|
$ i = i + 1 |
|
517
|
$ goto feloop |
|
518
|
$ endif |
|
519
|
$ return |
|
520
|
$!------------------------------------------------------------------------------ |
|
521
|
$! |
|
522
|
$! Find current Zlib version number |
|
523
|
$! |
|
524
|
$FIND_VERSION: |
|
525
|
$ open/read h_in 'v_file' |
|
526
|
$hloop: |
|
527
|
$ read/end=hdone h_in rec |
|
528
|
$ rec = f$edit(rec,"TRIM") |
|
529
|
$ if (f$extract(0,1,rec) .nes. "#") then goto hloop |
|
530
|
$ rec = f$edit(rec - "#", "TRIM") |
|
531
|
$ if f$element(0," ",rec) .nes. "define" then goto hloop |
|
532
|
$ if f$element(1," ",rec) .eqs. v_string |
|
533
|
$ then |
|
534
|
$ version = 'f$element(2," ",rec)' |
|
535
|
$ goto hdone |
|
536
|
$ endif |
|
537
|
$ goto hloop |
|
538
|
$hdone: |
|
539
|
$ close h_in |
|
540
|
$ return |
|
541
|
$!------------------------------------------------------------------------------ |
|
542
|
$! |
|
543
|
$CHECK_CONFIG: |
|
544
|
$! |
|
545
|
$ in_ldef = f$locate(cdef,libdefs) |
|
546
|
$ if (in_ldef .lt. f$length(libdefs)) |
|
547
|
$ then |
|
548
|
$ write aconf "#define ''cdef' 1" |
|
549
|
$ libdefs = f$extract(0,in_ldef,libdefs) + - |
|
550
|
f$extract(in_ldef + f$length(cdef) + 1, - |
|
551
|
f$length(libdefs) - in_ldef - f$length(cdef) - 1, - |
|
552
|
libdefs) |
|
553
|
$ else |
|
554
|
$ if (f$type('cdef') .eqs. "INTEGER") |
|
555
|
$ then |
|
556
|
$ write aconf "#define ''cdef' ", 'cdef' |
|
557
|
$ else |
|
558
|
$ if (f$type('cdef') .eqs. "STRING") |
|
559
|
$ then |
|
560
|
$ write aconf "#define ''cdef' ", """", '''cdef'', """" |
|
561
|
$ else |
|
562
|
$ gosub check_cc_def |
|
563
|
$ endif |
|
564
|
$ endif |
|
565
|
$ endif |
|
566
|
$ return |
|
567
|
$!------------------------------------------------------------------------------ |
|
568
|
$! |
|
569
|
$! Check if this is a define relating to the properties of the C/C++ |
|
570
|
$! compiler |
|
571
|
$! |
|
572
|
$ CHECK_CC_DEF: |
|
573
|
$ if (cdef .eqs. "_LARGEFILE64_SOURCE") |
|
574
|
$ then |
|
575
|
$ copy sys$input: 'tc' |
|
576
|
$ deck |
|
577
|
#include "tconfig" |
|
578
|
#define _LARGEFILE |
|
579
|
#include <stdio.h> |
|
580
|
|
|
581
|
int main(){ |
|
582
|
FILE *fp; |
|
583
|
fp = fopen("temp.txt","r"); |
|
584
|
fseeko(fp,1,SEEK_SET); |
|
585
|
fclose(fp); |
|
586
|
} |
|
587
|
|
|
588
|
$ eod |
|
589
|
$ test_inv = false |
|
590
|
$ comm_h = false |
|
591
|
$ gosub cc_prop_check |
|
592
|
$ return |
|
593
|
$ endif |
|
594
|
$ write aconf "/* ", line, " */" |
|
595
|
$ return |
|
596
|
$!------------------------------------------------------------------------------ |
|
597
|
$! |
|
598
|
$! Check for properties of C/C++ compiler |
|
599
|
$! |
|
600
|
$! Version history |
|
601
|
$! 0.01 20031020 First version to receive a number |
|
602
|
$! 0.02 20031022 Added logic for defines with value |
|
603
|
$! 0.03 20040309 Make sure local config file gets not deleted |
|
604
|
$! 0.04 20041230 Also write include for configure run |
|
605
|
$! 0.05 20050103 Add processing of "comment defines" |
|
606
|
$CC_PROP_CHECK: |
|
607
|
$ cc_prop = true |
|
608
|
$ is_need = false |
|
609
|
$ is_need = (f$extract(0,4,cdef) .eqs. "NEED") .or. (test_inv .eq. true) |
|
610
|
$ if f$search(th) .eqs. "" then create 'th' |
|
611
|
$ set message/nofac/noident/nosever/notext |
|
612
|
$ on error then continue |
|
613
|
$ cc 'tmpnam' |
|
614
|
$ if .not. ($status) then cc_prop = false |
|
615
|
$ on error then continue |
|
616
|
$! The headers might lie about the capabilities of the RTL |
|
617
|
$ link 'tmpnam',tmp.opt/opt |
|
618
|
$ if .not. ($status) then cc_prop = false |
|
619
|
$ set message/fac/ident/sever/text |
|
620
|
$ on error then goto err_exit |
|
621
|
$ delete/nolog 'tmpnam'.*;*/exclude='th' |
|
622
|
$ if (cc_prop .and. .not. is_need) .or. - |
|
623
|
(.not. cc_prop .and. is_need) |
|
624
|
$ then |
|
625
|
$ write sys$output "Checking for ''cdef'... yes" |
|
626
|
$ if f$type('cdef_val'_yes) .nes. "" |
|
627
|
$ then |
|
628
|
$ if f$type('cdef_val'_yes) .eqs. "INTEGER" - |
|
629
|
then call write_config f$fao("#define !AS !UL",cdef,'cdef_val'_yes) |
|
630
|
$ if f$type('cdef_val'_yes) .eqs. "STRING" - |
|
631
|
then call write_config f$fao("#define !AS !AS",cdef,'cdef_val'_yes) |
|
632
|
$ else |
|
633
|
$ call write_config f$fao("#define !AS 1",cdef) |
|
634
|
$ endif |
|
635
|
$ if (cdef .eqs. "HAVE_FSEEKO") .or. (cdef .eqs. "_LARGE_FILES") .or. - |
|
636
|
(cdef .eqs. "_LARGEFILE64_SOURCE") then - |
|
637
|
call write_config f$string("#define _LARGEFILE 1") |
|
638
|
$ else |
|
639
|
$ write sys$output "Checking for ''cdef'... no" |
|
640
|
$ if (comm_h) |
|
641
|
$ then |
|
642
|
call write_config f$fao("/* !AS */",line) |
|
643
|
$ else |
|
644
|
$ if f$type('cdef_val'_no) .nes. "" |
|
645
|
$ then |
|
646
|
$ if f$type('cdef_val'_no) .eqs. "INTEGER" - |
|
647
|
then call write_config f$fao("#define !AS !UL",cdef,'cdef_val'_no) |
|
648
|
$ if f$type('cdef_val'_no) .eqs. "STRING" - |
|
649
|
then call write_config f$fao("#define !AS !AS",cdef,'cdef_val'_no) |
|
650
|
$ else |
|
651
|
$ call write_config f$fao("#undef !AS",cdef) |
|
652
|
$ endif |
|
653
|
$ endif |
|
654
|
$ endif |
|
655
|
$ return |
|
656
|
$!------------------------------------------------------------------------------ |
|
657
|
$! |
|
658
|
$! Check for properties of C/C++ compiler with multiple result values |
|
659
|
$! |
|
660
|
$! Version history |
|
661
|
$! 0.01 20040127 First version |
|
662
|
$! 0.02 20050103 Reconcile changes from cc_prop up to version 0.05 |
|
663
|
$CC_MPROP_CHECK: |
|
664
|
$ cc_prop = true |
|
665
|
$ i = 1 |
|
666
|
$ idel = 1 |
|
667
|
$ MT_LOOP: |
|
668
|
$ if f$type(result_'i') .eqs. "STRING" |
|
669
|
$ then |
|
670
|
$ set message/nofac/noident/nosever/notext |
|
671
|
$ on error then continue |
|
672
|
$ cc 'tmpnam'_'i' |
|
673
|
$ if .not. ($status) then cc_prop = false |
|
674
|
$ on error then continue |
|
675
|
$! The headers might lie about the capabilities of the RTL |
|
676
|
$ link 'tmpnam'_'i',tmp.opt/opt |
|
677
|
$ if .not. ($status) then cc_prop = false |
|
678
|
$ set message/fac/ident/sever/text |
|
679
|
$ on error then goto err_exit |
|
680
|
$ delete/nolog 'tmpnam'_'i'.*;* |
|
681
|
$ if (cc_prop) |
|
682
|
$ then |
|
683
|
$ write sys$output "Checking for ''cdef'... ", mdef_'i' |
|
684
|
$ if f$type(mdef_'i') .eqs. "INTEGER" - |
|
685
|
then call write_config f$fao("#define !AS !UL",cdef,mdef_'i') |
|
686
|
$ if f$type('cdef_val'_yes) .eqs. "STRING" - |
|
687
|
then call write_config f$fao("#define !AS !AS",cdef,mdef_'i') |
|
688
|
$ goto msym_clean |
|
689
|
$ else |
|
690
|
$ i = i + 1 |
|
691
|
$ goto mt_loop |
|
692
|
$ endif |
|
693
|
$ endif |
|
694
|
$ write sys$output "Checking for ''cdef'... no" |
|
695
|
$ call write_config f$fao("#undef !AS",cdef) |
|
696
|
$ MSYM_CLEAN: |
|
697
|
$ if (idel .le. msym_max) |
|
698
|
$ then |
|
699
|
$ delete/sym mdef_'idel' |
|
700
|
$ idel = idel + 1 |
|
701
|
$ goto msym_clean |
|
702
|
$ endif |
|
703
|
$ return |
|
704
|
$!------------------------------------------------------------------------------ |
|
705
|
$! |
|
706
|
$! Write configuration to both permanent and temporary config file |
|
707
|
$! |
|
708
|
$! Version history |
|
709
|
$! 0.01 20031029 First version to receive a number |
|
710
|
$! |
|
711
|
$WRITE_CONFIG: SUBROUTINE |
|
712
|
$ write aconf 'p1' |
|
713
|
$ open/append confh 'th' |
|
714
|
$ write confh 'p1' |
|
715
|
$ close confh |
|
716
|
$ENDSUBROUTINE |
|
717
|
$!------------------------------------------------------------------------------ |
|
718
|
$! |
|
719
|
$! Analyze the project map file and create the symbol vector for a shareable |
|
720
|
$! image from it |
|
721
|
$! |
|
722
|
$! Version history |
|
723
|
$! 0.01 20120128 First version |
|
724
|
$! 0.02 20120226 Add pre-load logic |
|
725
|
$! |
|
726
|
$ MAP_2_SHOPT: Subroutine |
|
727
|
$! |
|
728
|
$ SAY := "WRITE_ SYS$OUTPUT" |
|
729
|
$! |
|
730
|
$ IF F$SEARCH("''P1'") .EQS. "" |
|
731
|
$ THEN |
|
732
|
$ SAY "MAP_2_SHOPT-E-NOSUCHFILE: Error, inputfile ''p1' not available" |
|
733
|
$ goto exit_m2s |
|
734
|
$ ENDIF |
|
735
|
$ IF "''P2'" .EQS. "" |
|
736
|
$ THEN |
|
737
|
$ SAY "MAP_2_SHOPT: Error, no output file provided" |
|
738
|
$ goto exit_m2s |
|
739
|
$ ENDIF |
|
740
|
$! |
|
741
|
$ module1 = "deflate#deflateEnd#deflateInit_#deflateParams#deflateSetDictionary" |
|
742
|
$ module2 = "gzclose#gzerror#gzgetc#gzgets#gzopen#gzprintf#gzputc#gzputs#gzread" |
|
743
|
$ module3 = "gzseek#gztell#inflate#inflateEnd#inflateInit_#inflateSetDictionary" |
|
744
|
$ module4 = "inflateSync#uncompress#zlibVersion#compress" |
|
745
|
$ open/read map 'p1 |
|
746
|
$ if axp .or. ia64 |
|
747
|
$ then |
|
748
|
$ open/write aopt a.opt |
|
749
|
$ open/write bopt b.opt |
|
750
|
$ write aopt " CASE_SENSITIVE=YES" |
|
751
|
$ write bopt "SYMBOL_VECTOR= (-" |
|
752
|
$ mod_sym_num = 1 |
|
753
|
$ MOD_SYM_LOOP: |
|
754
|
$ if f$type(module'mod_sym_num') .nes. "" |
|
755
|
$ then |
|
756
|
$ mod_in = 0 |
|
757
|
$ MOD_SYM_IN: |
|
758
|
$ shared_proc = f$element(mod_in, "#", module'mod_sym_num') |
|
759
|
$ if shared_proc .nes. "#" |
|
760
|
$ then |
|
761
|
$ write aopt f$fao(" symbol_vector=(!AS/!AS=PROCEDURE)",- |
|
762
|
f$edit(shared_proc,"upcase"),shared_proc) |
|
763
|
$ write bopt f$fao("!AS=PROCEDURE,-",shared_proc) |
|
764
|
$ mod_in = mod_in + 1 |
|
765
|
$ goto mod_sym_in |
|
766
|
$ endif |
|
767
|
$ mod_sym_num = mod_sym_num + 1 |
|
768
|
$ goto mod_sym_loop |
|
769
|
$ endif |
|
770
|
$MAP_LOOP: |
|
771
|
$ read/end=map_end map line |
|
772
|
$ if (f$locate("{",line).lt. f$length(line)) .or. - |
|
773
|
(f$locate("global:", line) .lt. f$length(line)) |
|
774
|
$ then |
|
775
|
$ proc = true |
|
776
|
$ goto map_loop |
|
777
|
$ endif |
|
778
|
$ if f$locate("}",line).lt. f$length(line) then proc = false |
|
779
|
$ if f$locate("local:", line) .lt. f$length(line) then proc = false |
|
780
|
$ if proc |
|
781
|
$ then |
|
782
|
$ shared_proc = f$edit(line,"collapse") |
|
783
|
$ chop_semi = f$locate(";", shared_proc) |
|
784
|
$ if chop_semi .lt. f$length(shared_proc) then - |
|
785
|
shared_proc = f$extract(0, chop_semi, shared_proc) |
|
786
|
$ write aopt f$fao(" symbol_vector=(!AS/!AS=PROCEDURE)",- |
|
787
|
f$edit(shared_proc,"upcase"),shared_proc) |
|
788
|
$ write bopt f$fao("!AS=PROCEDURE,-",shared_proc) |
|
789
|
$ endif |
|
790
|
$ goto map_loop |
|
791
|
$MAP_END: |
|
792
|
$ close/nolog aopt |
|
793
|
$ close/nolog bopt |
|
794
|
$ open/append libopt 'p2' |
|
795
|
$ open/read aopt a.opt |
|
796
|
$ open/read bopt b.opt |
|
797
|
$ALOOP: |
|
798
|
$ read/end=aloop_end aopt line |
|
799
|
$ write libopt line |
|
800
|
$ goto aloop |
|
801
|
$ALOOP_END: |
|
802
|
$ close/nolog aopt |
|
803
|
$ sv = "" |
|
804
|
$BLOOP: |
|
805
|
$ read/end=bloop_end bopt svn |
|
806
|
$ if (svn.nes."") |
|
807
|
$ then |
|
808
|
$ if (sv.nes."") then write libopt sv |
|
809
|
$ sv = svn |
|
810
|
$ endif |
|
811
|
$ goto bloop |
|
812
|
$BLOOP_END: |
|
813
|
$ write libopt f$extract(0,f$length(sv)-2,sv), "-" |
|
814
|
$ write libopt ")" |
|
815
|
$ close/nolog bopt |
|
816
|
$ delete/nolog/noconf a.opt;*,b.opt;* |
|
817
|
$ else |
|
818
|
$ if vax |
|
819
|
$ then |
|
820
|
$ open/append libopt 'p2' |
|
821
|
$ mod_sym_num = 1 |
|
822
|
$ VMOD_SYM_LOOP: |
|
823
|
$ if f$type(module'mod_sym_num') .nes. "" |
|
824
|
$ then |
|
825
|
$ mod_in = 0 |
|
826
|
$ VMOD_SYM_IN: |
|
827
|
$ shared_proc = f$element(mod_in, "#", module'mod_sym_num') |
|
828
|
$ if shared_proc .nes. "#" |
|
829
|
$ then |
|
830
|
$ write libopt f$fao("UNIVERSAL=!AS",- |
|
831
|
f$edit(shared_proc,"upcase")) |
|
832
|
$ mod_in = mod_in + 1 |
|
833
|
$ goto vmod_sym_in |
|
834
|
$ endif |
|
835
|
$ mod_sym_num = mod_sym_num + 1 |
|
836
|
$ goto vmod_sym_loop |
|
837
|
$ endif |
|
838
|
$VMAP_LOOP: |
|
839
|
$ read/end=vmap_end map line |
|
840
|
$ if (f$locate("{",line).lt. f$length(line)) .or. - |
|
841
|
(f$locate("global:", line) .lt. f$length(line)) |
|
842
|
$ then |
|
843
|
$ proc = true |
|
844
|
$ goto vmap_loop |
|
845
|
$ endif |
|
846
|
$ if f$locate("}",line).lt. f$length(line) then proc = false |
|
847
|
$ if f$locate("local:", line) .lt. f$length(line) then proc = false |
|
848
|
$ if proc |
|
849
|
$ then |
|
850
|
$ shared_proc = f$edit(line,"collapse") |
|
851
|
$ chop_semi = f$locate(";", shared_proc) |
|
852
|
$ if chop_semi .lt. f$length(shared_proc) then - |
|
853
|
shared_proc = f$extract(0, chop_semi, shared_proc) |
|
854
|
$ write libopt f$fao("UNIVERSAL=!AS",- |
|
855
|
f$edit(shared_proc,"upcase")) |
|
856
|
$ endif |
|
857
|
$ goto vmap_loop |
|
858
|
$VMAP_END: |
|
859
|
$ else |
|
860
|
$ write sys$output "Unknown Architecture (Not VAX, AXP, or IA64)" |
|
861
|
$ write sys$output "No options file created" |
|
862
|
$ endif |
|
863
|
$ endif |
|
864
|
$ EXIT_M2S: |
|
865
|
$ close/nolog map |
|
866
|
$ close/nolog libopt |
|
867
|
$ endsubroutine |
|
868
|
|