b24e7fce |
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 | $! zinser@zinser.no-ip.info(preferred) or |
6 | $! martin.zinser@eurexchange.com (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 |
9e052883 |
17 | $! 0.06 20120111 Fix missing amiss_err, update zconf_h.in, fix new examples |
b24e7fce |
18 | $! subdir path, update module search in makefile.in |
9e052883 |
19 | $! 0.07 20120115 Triggered by work done by Alexey Chupahin completely redesigned |
b24e7fce |
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 | # <zinser@zinser.no-ip.info or martin.zinser@eurexchange.com> |
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 |