cpython-lru_cache-weakref: Modules/zlib/make

annotate Modules/zlib/make_vms.com @ 87690:66c1c9f32567 default tip

Add use_weakref option to functools.lru_cache The use_weakref option makes lru_cache create weak references to the function arguments when creating the cache key, which prevents them from staying in the memory forever even after all other references to them are gone. This is a proof of concept for http://bugs.python.org/issue19859

author	Radomir Dopieralski <devel@sheep.art.pl>
date	Tue, 03 Dec 2013 16:02:48 +0100
parents	224aa49f22f1
children

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

Mercurial > cpython-lru_cache-weakref

annotate Modules/zlib/make_vms.com @ 87690:66c1c9f32567 default tip