summaryrefslogtreecommitdiff
path: root/old
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--as400/bndsrc (renamed from old/as400/bndsrc)51
-rw-r--r--as400/readme.txt (renamed from old/as400/readme.txt)10
-rw-r--r--as400/zlib.inc (renamed from old/as400/zlib.inc)102
-rw-r--r--old/as400/compile.clp123
4 files changed, 155 insertions, 131 deletions
diff --git a/old/as400/bndsrc b/as400/bndsrc
index 9cf94bb..06c3f43 100644
--- a/old/as400/bndsrc
+++ b/as400/bndsrc
@@ -34,6 +34,7 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB')
34 EXPORT SYMBOL("deflateCopy") 34 EXPORT SYMBOL("deflateCopy")
35 EXPORT SYMBOL("deflateReset") 35 EXPORT SYMBOL("deflateReset")
36 EXPORT SYMBOL("deflateParams") 36 EXPORT SYMBOL("deflateParams")
37 EXPORT SYMBOL("deflatePending")
37 EXPORT SYMBOL("deflatePrime") 38 EXPORT SYMBOL("deflatePrime")
38 EXPORT SYMBOL("deflateInit_") 39 EXPORT SYMBOL("deflateInit_")
39 EXPORT SYMBOL("deflateInit2_") 40 EXPORT SYMBOL("deflateInit2_")
@@ -129,4 +130,54 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB')
129 130
130 EXPORT SYMBOL("zlibCompileFlags") 131 EXPORT SYMBOL("zlibCompileFlags")
131 132
133/*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/
134/* Version 1.2.5 additional entry points. */
135/*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/
136
137/********************************************************************/
138/* *MODULE ADLER32 ZLIB 01/02/01 00:15:09 */
139/********************************************************************/
140
141 EXPORT SYMBOL("adler32_combine")
142 EXPORT SYMBOL("adler32_combine64")
143
144/********************************************************************/
145/* *MODULE CRC32 ZLIB 01/02/01 00:15:09 */
146/********************************************************************/
147
148 EXPORT SYMBOL("crc32_combine")
149 EXPORT SYMBOL("crc32_combine64")
150
151/********************************************************************/
152/* *MODULE GZLIB ZLIB 01/02/01 00:15:09 */
153/********************************************************************/
154
155 EXPORT SYMBOL("gzbuffer")
156 EXPORT SYMBOL("gzoffset")
157 EXPORT SYMBOL("gzoffset64")
158 EXPORT SYMBOL("gzopen64")
159 EXPORT SYMBOL("gzseek64")
160 EXPORT SYMBOL("gztell64")
161
162/********************************************************************/
163/* *MODULE GZREAD ZLIB 01/02/01 00:15:09 */
164/********************************************************************/
165
166 EXPORT SYMBOL("gzclose_r")
167
168/********************************************************************/
169/* *MODULE GZWRITE ZLIB 01/02/01 00:15:09 */
170/********************************************************************/
171
172 EXPORT SYMBOL("gzclose_w")
173
174/********************************************************************/
175/* *MODULE INFLATE ZLIB 01/02/01 00:15:09 */
176/********************************************************************/
177
178 EXPORT SYMBOL("inflateMark")
179 EXPORT SYMBOL("inflatePrime")
180 EXPORT SYMBOL("inflateReset2")
181 EXPORT SYMBOL("inflateUndermine")
182
132ENDPGMEXP 183ENDPGMEXP
diff --git a/old/as400/readme.txt b/as400/readme.txt
index beae13f..5b96cec 100644
--- a/old/as400/readme.txt
+++ b/as400/readme.txt
@@ -1,4 +1,4 @@
1 ZLIB version 1.2.3 for AS400 installation instructions 1 ZLIB version 1.2.5.1 for AS400 installation instructions
2 2
3I) From an AS400 *SAVF file: 3I) From an AS400 *SAVF file:
4 4
@@ -70,7 +70,10 @@ II) From the original source distribution:
70 compress.c COMPRESS C ZLIB - Compress a memory buffer 70 compress.c COMPRESS C ZLIB - Compress a memory buffer
71 crc32.c CRC32 C ZLIB - Compute the CRC-32 of a data stream 71 crc32.c CRC32 C ZLIB - Compute the CRC-32 of a data stream
72 deflate.c DEFLATE C ZLIB - Compress data using the deflation algorithm 72 deflate.c DEFLATE C ZLIB - Compress data using the deflation algorithm
73 gzio.c GZIO C ZLIB - IO on .gz files 73 gzclose.c GZCLOSE C ZLIB - Close .gz files
74 gzlib.c GZLIB C ZLIB - Miscellaneous .gz files IO support
75 gzread.c GZREAD C ZLIB - Read .gz files
76 gzwrite.c GZWRITE C ZLIB - Write .gz files
74 infback.c INFBACK C ZLIB - Inflate using a callback interface 77 infback.c INFBACK C ZLIB - Inflate using a callback interface
75 inffast.c INFFAST C ZLIB - Fast proc. literals & length/distance pairs 78 inffast.c INFFAST C ZLIB - Fast proc. literals & length/distance pairs
76 inflate.c INFLATE C ZLIB - Interface to inflate modules 79 inflate.c INFLATE C ZLIB - Interface to inflate modules
@@ -81,6 +84,7 @@ II) From the original source distribution:
81 H Original ZLIB C and ILE/RPG include files 84 H Original ZLIB C and ILE/RPG include files
82 crc32.h CRC32 C ZLIB - CRC32 tables 85 crc32.h CRC32 C ZLIB - CRC32 tables
83 deflate.h DEFLATE C ZLIB - Internal compression state 86 deflate.h DEFLATE C ZLIB - Internal compression state
87 gzguts.h GZGUTS C ZLIB - Definitions for the gzclose module
84 inffast.h INFFAST C ZLIB - Header to use inffast.c 88 inffast.h INFFAST C ZLIB - Header to use inffast.c
85 inffixed.h INFFIXED C ZLIB - Table for decoding fixed codes 89 inffixed.h INFFIXED C ZLIB - Table for decoding fixed codes
86 inflate.h INFLATE C ZLIB - Internal inflate state definitions 90 inflate.h INFLATE C ZLIB - Internal inflate state definitions
@@ -108,4 +112,4 @@ Notes: For AS400 ILE RPG programmers, a /copy member defining the ZLIB
108 implementation does not handle conversion from/to ASCII, so 112 implementation does not handle conversion from/to ASCII, so
109 text data code conversions must be done explicitely. 113 text data code conversions must be done explicitely.
110 114
111 Always open zipped files in binary mode. 115 Mainly for the reason above, always open zipped files in binary mode.
diff --git a/old/as400/zlib.inc b/as400/zlib.inc
index a9a4f5c..d492ef3 100644
--- a/old/as400/zlib.inc
+++ b/as400/zlib.inc
@@ -1,7 +1,7 @@
1 * ZLIB.INC - Interface to the general purpose compression library 1 * ZLIB.INC - Interface to the general purpose compression library
2 * 2 *
3 * ILE RPG400 version by Patrick Monnerat, DATASPHERE. 3 * ILE RPG400 version by Patrick Monnerat, DATASPHERE.
4 * Version 1.2.3.9 4 * Version 1.2.5.1
5 * 5 *
6 * 6 *
7 * WARNING: 7 * WARNING:
@@ -22,16 +22,25 @@
22 * 22 *
23 * Versioning information. 23 * Versioning information.
24 * 24 *
25 D ZLIB_VERSION C '1.2.3.9' 25 D ZLIB_VERSION C '1.2.5.1'
26 D ZLIB_VERNUM C X'1239' 26 D ZLIB_VERNUM C X'1251'
27 D ZLIB_VER_MAJOR C 1
28 D ZLIB_VER_MINOR C 2
29 D ZLIB_VER_REVISION...
30 D C 5
31 D ZLIB_VER_SUBREVISION...
32 D C 0
27 * 33 *
28 * Other equates. 34 * Other equates.
29 * 35 *
30 D Z_NO_FLUSH C 0 36 D Z_NO_FLUSH C 0
37 D Z_PARTIAL_FLUSH...
38 D C 1
31 D Z_SYNC_FLUSH C 2 39 D Z_SYNC_FLUSH C 2
32 D Z_FULL_FLUSH C 3 40 D Z_FULL_FLUSH C 3
33 D Z_FINISH C 4 41 D Z_FINISH C 4
34 D Z_BLOCK C 5 42 D Z_BLOCK C 5
43 D Z_TREES C 6
35 * 44 *
36 D Z_OK C 0 45 D Z_OK C 0
37 D Z_STREAM_END C 1 46 D Z_STREAM_END C 1
@@ -72,6 +81,7 @@
72 D z_streamp S * Stream struct ptr 81 D z_streamp S * Stream struct ptr
73 D gzFile S * File pointer 82 D gzFile S * File pointer
74 D z_off_t S 10i 0 Stream offsets 83 D z_off_t S 10i 0 Stream offsets
84 D z_off64_t S 20i 0 Stream offsets
75 * 85 *
76 ************************************************************************** 86 **************************************************************************
77 * Structures 87 * Structures
@@ -122,20 +132,36 @@
122 D source 32767 const options(*varsize) Source buffer 132 D source 32767 const options(*varsize) Source buffer
123 D sourceLen 10U 0 value Source length 133 D sourceLen 10U 0 value Source length
124 * 134 *
135 /if not defined(LARGE_FILES)
125 D gzopen PR extproc('gzopen') 136 D gzopen PR extproc('gzopen')
126 D like(gzFile) 137 D like(gzFile)
127 D path * value options(*string) File pathname 138 D path * value options(*string) File pathname
128 D mode * value options(*string) Open mode 139 D mode * value options(*string) Open mode
140 /else
141 D gzopen PR extproc('gzopen64')
142 D like(gzFile)
143 D path * value options(*string) File pathname
144 D mode * value options(*string) Open mode
145 *
146 D gzopen64 PR extproc('gzopen64')
147 D like(gzFile)
148 D path * value options(*string) File pathname
149 D mode * value options(*string) Open mode
150 /endif
129 * 151 *
130 D gzdopen PR extproc('gzdopen') 152 D gzdopen PR extproc('gzdopen')
131 D like(gzFile) 153 D like(gzFile)
132 D fd 10i 0 value File descriptor 154 D fd 10I 0 value File descriptor
133 D mode * value options(*string) Open mode 155 D mode * value options(*string) Open mode
134 * 156 *
157 D gzbuffer PR 10I 0 extproc('gzbuffer')
158 D file value like(gzFile) File pointer
159 D size 10U 0 value
160 *
135 D gzsetparams PR 10I 0 extproc('gzsetparams') 161 D gzsetparams PR 10I 0 extproc('gzsetparams')
136 D file value like(gzFile) File pointer 162 D file value like(gzFile) File pointer
137 D level 10I 0 value 163 D level 10I 0 value
138 D strategy 10i 0 value 164 D strategy 10I 0 value
139 * 165 *
140 D gzread PR 10I 0 extproc('gzread') 166 D gzread PR 10I 0 extproc('gzread')
141 D file value like(gzFile) File pointer 167 D file value like(gzFile) File pointer
@@ -160,22 +186,66 @@
160 D file value like(gzFile) File pointer 186 D file value like(gzFile) File pointer
161 D flush 10I 0 value Type of flush 187 D flush 10I 0 value Type of flush
162 * 188 *
189 /if not defined(LARGE_FILES)
163 D gzseek PR extproc('gzseek') 190 D gzseek PR extproc('gzseek')
164 D like(z_off_t) 191 D like(z_off_t)
165 D file value like(gzFile) File pointer 192 D file value like(gzFile) File pointer
166 D offset value like(z_off_t) Offset 193 D offset value like(z_off_t) Offset
167 D whence 10i 0 value Origin 194 D whence 10i 0 value Origin
195 /else
196 D gzseek PR extproc('gzseek64')
197 D like(z_off_t)
198 D file value like(gzFile) File pointer
199 D offset value like(z_off_t) Offset
200 D whence 10i 0 value Origin
201 *
202 D gzseek64 PR extproc('gzseek64')
203 D like(z_off64_t)
204 D file value like(gzFile) File pointer
205 D offset value like(z_off64_t) Offset
206 D whence 10i 0 value Origin
207 /endif
168 * 208 *
169 D gzrewind PR 10i 0 extproc('gzrewind') 209 D gzrewind PR 10i 0 extproc('gzrewind')
170 D file value like(gzFile) File pointer 210 D file value like(gzFile) File pointer
171 * 211 *
212 /if not defined(LARGE_FILES)
172 D gztell PR extproc('gztell') 213 D gztell PR extproc('gztell')
173 D like(z_off_t) 214 D like(z_off_t)
174 D file value like(gzFile) File pointer 215 D file value like(gzFile) File pointer
216 /else
217 D gztell PR extproc('gztell64')
218 D like(z_off_t)
219 D file value like(gzFile) File pointer
220 *
221 D gztell64 PR extproc('gztell64')
222 D like(z_off64_t)
223 D file value like(gzFile) File pointer
224 /endif
225 *
226 /if not defined(LARGE_FILES)
227 D gzoffset PR extproc('gzoffset')
228 D like(z_off_t)
229 D file value like(gzFile) File pointer
230 /else
231 D gzoffset PR extproc('gzoffset64')
232 D like(z_off_t)
233 D file value like(gzFile) File pointer
234 *
235 D gzoffset64 PR extproc('gzoffset64')
236 D like(z_off64_t)
237 D file value like(gzFile) File pointer
238 /endif
175 * 239 *
176 D gzeof PR 10i 0 extproc('gzeof') 240 D gzeof PR 10i 0 extproc('gzeof')
177 D file value like(gzFile) File pointer 241 D file value like(gzFile) File pointer
178 * 242 *
243 D gzclose_r PR 10i 0 extproc('gzclose_r')
244 D file value like(gzFile) File pointer
245 *
246 D gzclose_w PR 10i 0 extproc('gzclose_w')
247 D file value like(gzFile) File pointer
248 *
179 D gzclose PR 10i 0 extproc('gzclose') 249 D gzclose PR 10i 0 extproc('gzclose')
180 D file value like(gzFile) File pointer 250 D file value like(gzFile) File pointer
181 * 251 *
@@ -253,6 +323,11 @@
253 D strm like(z_stream) Compression stream 323 D strm like(z_stream) Compression stream
254 D sourcelen 10U 0 value Compression level 324 D sourcelen 10U 0 value Compression level
255 * 325 *
326 D deflatePending PR 10I 0 extproc('deflatePending') Change level & strat
327 D strm like(z_stream) Compression stream
328 D pending 10U 0 Pending bytes
329 D bits 10I 0 Pending bits
330 *
256 D deflatePrime PR 10I 0 extproc('deflatePrime') Change level & strat 331 D deflatePrime PR 10I 0 extproc('deflatePrime') Change level & strat
257 D strm like(z_stream) Compression stream 332 D strm like(z_stream) Compression stream
258 D bits 10I 0 value Number of bits to insert 333 D bits 10I 0 value Number of bits to insert
@@ -280,6 +355,18 @@
280 D inflateReset PR 10I 0 extproc('inflateReset') End and init. stream 355 D inflateReset PR 10I 0 extproc('inflateReset') End and init. stream
281 D strm like(z_stream) Expansion stream 356 D strm like(z_stream) Expansion stream
282 * 357 *
358 D inflateReset2 PR 10I 0 extproc('inflateReset2') End and init. stream
359 D strm like(z_stream) Expansion stream
360 D windowBits 10I 0 value Log2(buffer size)
361 *
362 D inflatePrime PR 10I 0 extproc('inflatePrime') Insert bits
363 D strm like(z_stream) Expansion stream
364 D bits 10I 0 value Bit count
365 D value 10I 0 value Bits to insert
366 *
367 D inflateMark PR 10I 0 extproc('inflateMark') Get inflate info
368 D strm like(z_stream) Expansion stream
369 *
283 D inflateBackInit... 370 D inflateBackInit...
284 D PR 10I 0 extproc('inflateBackInit_') 371 D PR 10I 0 extproc('inflateBackInit_')
285 D strm like(z_stream) Expansion stream 372 D strm like(z_stream) Expansion stream
@@ -328,4 +415,9 @@
328 * 415 *
329 D get_crc_table PR * extproc('get_crc_table') Ptr to ulongs 416 D get_crc_table PR * extproc('get_crc_table') Ptr to ulongs
330 * 417 *
418 D inflateUndermine...
419 D PR 10I 0 extproc('inflateUndermine')
420 D strm like(z_stream) Expansion stream
421 D arg 10I 0 value Error code
422 *
331 /endif 423 /endif
diff --git a/old/as400/compile.clp b/old/as400/compile.clp
deleted file mode 100644
index 8554951..0000000
--- a/old/as400/compile.clp
+++ /dev/null
@@ -1,123 +0,0 @@
1/******************************************************************************/
2/* */
3/* ZLIB */
4/* */
5/* Compile sources into modules and link them into a service program. */
6/* */
7/******************************************************************************/
8
9 PGM
10
11/* Configuration adjustable parameters. */
12
13 DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10) +
14 VALUE('ZLIB') /* Source library. */
15 DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10) +
16 VALUE('SOURCES') /* Source member file. */
17 DCL VAR(&CTLFILE) TYPE(*CHAR) LEN(10) +
18 VALUE('TOOLS') /* Control member file. */
19
20 DCL VAR(&MODLIB) TYPE(*CHAR) LEN(10) +
21 VALUE('ZLIB') /* Module library. */
22
23 DCL VAR(&SRVLIB) TYPE(*CHAR) LEN(10) +
24 VALUE('LGPL') /* Service program library. */
25
26 DCL VAR(&CFLAGS) TYPE(*CHAR) +
27 VALUE('OPTIMIZE(40)') /* Compile options. */
28
29
30/* Working storage. */
31
32 DCL VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(300) /* Command length. */
33 DCL VAR(&CMD) TYPE(*CHAR) LEN(512)
34
35
36/* Compile sources into modules. */
37
38 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
39 '/ADLER32) SRCFILE(' *TCAT +
40 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
41 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
42 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
43
44 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
45 '/COMPRESS) SRCFILE(' *TCAT +
46 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
47 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
48 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
49
50 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
51 '/CRC32) SRCFILE(' *TCAT +
52 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
53 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
54 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
55
56 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
57 '/DEFLATE) SRCFILE(' *TCAT +
58 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
59 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
60 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
61
62 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
63 '/GZIO) SRCFILE(' *TCAT +
64 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
65 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
66 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
67
68 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
69 '/INFBACK) SRCFILE(' *TCAT +
70 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
71 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
72 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
73
74 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
75 '/INFFAST) SRCFILE(' *TCAT +
76 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
77 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
78 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
79
80 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
81 '/INFLATE) SRCFILE(' *TCAT +
82 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
83 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
84 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
85
86 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
87 '/INFTREES) SRCFILE(' *TCAT +
88 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
89 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
90 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
91
92 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
93 '/TREES) SRCFILE(' *TCAT +
94 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
95 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
96 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
97
98 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
99 '/UNCOMPR) SRCFILE(' *TCAT +
100 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
101 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
102 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
103
104 CHGVAR VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT +
105 '/ZUTIL) SRCFILE(' *TCAT +
106 &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT +
107 ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
108 CALL PGM(QCMDEXC) PARM(&CMD &CMDLEN)
109
110
111/* Link modules into a service program. */
112
113 CRTSRVPGM SRVPGM(&SRVLIB/ZLIB) +
114 MODULE(&MODLIB/ADLER32 &MODLIB/COMPRESS +
115 &MODLIB/CRC32 &MODLIB/DEFLATE +
116 &MODLIB/GZIO &MODLIB/INFBACK +
117 &MODLIB/INFFAST &MODLIB/INFLATE +
118 &MODLIB/INFTREES &MODLIB/TREES +
119 &MODLIB/UNCOMPR &MODLIB/ZUTIL) +
120 SRCFILE(&SRCLIB/&CTLFILE) SRCMBR(BNDSRC) +
121 TEXT('ZLIB 1.2.3') TGTRLS(V4R4M0)
122
123 ENDPGM