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