diff options
Diffstat (limited to 'os400')
| -rw-r--r-- | os400/README400 | 2 | ||||
| -rw-r--r-- | os400/bndsrc | 27 | ||||
| -rw-r--r-- | os400/zlib.inc | 90 |
3 files changed, 107 insertions, 12 deletions
diff --git a/os400/README400 b/os400/README400 index 601f1ae..7926d7c 100644 --- a/os400/README400 +++ b/os400/README400 | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ZLIB version 1.2.8 for OS/400 installation instructions | 1 | ZLIB version 1.2.9 for OS/400 installation instructions |
| 2 | 2 | ||
| 3 | 1) Download and unpack the zlib tarball to some IFS directory. | 3 | 1) Download and unpack the zlib tarball to some IFS directory. |
| 4 | (i.e.: /path/to/the/zlib/ifs/source/directory) | 4 | (i.e.: /path/to/the/zlib/ifs/source/directory) |
diff --git a/os400/bndsrc b/os400/bndsrc index 934d781..5e6e0a2 100644 --- a/os400/bndsrc +++ b/os400/bndsrc | |||
| @@ -46,6 +46,7 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
| 46 | EXPORT SYMBOL("uncompress") | 46 | EXPORT SYMBOL("uncompress") |
| 47 | EXPORT SYMBOL("zlibVersion") | 47 | EXPORT SYMBOL("zlibVersion") |
| 48 | EXPORT SYMBOL("zError") | 48 | EXPORT SYMBOL("zError") |
| 49 | EXPORT SYMBOL("z_errmsg") | ||
| 49 | 50 | ||
| 50 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | 51 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ |
| 51 | /* Version 1.2.1 additional entry points. */ | 52 | /* Version 1.2.1 additional entry points. */ |
| @@ -53,6 +54,7 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
| 53 | 54 | ||
| 54 | EXPORT SYMBOL("compressBound") | 55 | EXPORT SYMBOL("compressBound") |
| 55 | EXPORT SYMBOL("deflateBound") | 56 | EXPORT SYMBOL("deflateBound") |
| 57 | EXPORT SYMBOL("deflatePending") | ||
| 56 | EXPORT SYMBOL("gzungetc") | 58 | EXPORT SYMBOL("gzungetc") |
| 57 | EXPORT SYMBOL("gzclearerr") | 59 | EXPORT SYMBOL("gzclearerr") |
| 58 | EXPORT SYMBOL("inflateBack") | 60 | EXPORT SYMBOL("inflateBack") |
| @@ -62,21 +64,25 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
| 62 | EXPORT SYMBOL("zlibCompileFlags") | 64 | EXPORT SYMBOL("zlibCompileFlags") |
| 63 | 65 | ||
| 64 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | 66 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ |
| 65 | /* Version 1.2.5 additional entry points. */ | 67 | /* Version 1.2.4 additional entry points. */ |
| 66 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | 68 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ |
| 67 | 69 | ||
| 68 | EXPORT SYMBOL("adler32_combine") | 70 | EXPORT SYMBOL("adler32_combine") |
| 69 | EXPORT SYMBOL("adler32_combine64") | 71 | EXPORT SYMBOL("adler32_combine64") |
| 70 | EXPORT SYMBOL("crc32_combine") | 72 | EXPORT SYMBOL("crc32_combine") |
| 71 | EXPORT SYMBOL("crc32_combine64") | 73 | EXPORT SYMBOL("crc32_combine64") |
| 74 | EXPORT SYMBOL("deflateSetHeader") | ||
| 75 | EXPORT SYMBOL("deflateTune") | ||
| 72 | EXPORT SYMBOL("gzbuffer") | 76 | EXPORT SYMBOL("gzbuffer") |
| 77 | EXPORT SYMBOL("gzclose_r") | ||
| 78 | EXPORT SYMBOL("gzclose_w") | ||
| 79 | EXPORT SYMBOL("gzdirect") | ||
| 73 | EXPORT SYMBOL("gzoffset") | 80 | EXPORT SYMBOL("gzoffset") |
| 74 | EXPORT SYMBOL("gzoffset64") | 81 | EXPORT SYMBOL("gzoffset64") |
| 75 | EXPORT SYMBOL("gzopen64") | 82 | EXPORT SYMBOL("gzopen64") |
| 76 | EXPORT SYMBOL("gzseek64") | 83 | EXPORT SYMBOL("gzseek64") |
| 77 | EXPORT SYMBOL("gztell64") | 84 | EXPORT SYMBOL("gztell64") |
| 78 | EXPORT SYMBOL("gzclose_r") | 85 | EXPORT SYMBOL("inflateGetHeader") |
| 79 | EXPORT SYMBOL("gzclose_w") | ||
| 80 | EXPORT SYMBOL("inflateMark") | 86 | EXPORT SYMBOL("inflateMark") |
| 81 | EXPORT SYMBOL("inflatePrime") | 87 | EXPORT SYMBOL("inflatePrime") |
| 82 | EXPORT SYMBOL("inflateReset2") | 88 | EXPORT SYMBOL("inflateReset2") |
| @@ -87,7 +93,6 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
| 87 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | 93 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ |
| 88 | 94 | ||
| 89 | EXPORT SYMBOL("deflateResetKeep") | 95 | EXPORT SYMBOL("deflateResetKeep") |
| 90 | EXPORT SYMBOL("deflatePending") | ||
| 91 | EXPORT SYMBOL("gzgetc_") | 96 | EXPORT SYMBOL("gzgetc_") |
| 92 | EXPORT SYMBOL("inflateResetKeep") | 97 | EXPORT SYMBOL("inflateResetKeep") |
| 93 | 98 | ||
| @@ -95,6 +100,20 @@ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB') | |||
| 95 | /* Version 1.2.8 additional entry points. */ | 100 | /* Version 1.2.8 additional entry points. */ |
| 96 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | 101 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ |
| 97 | 102 | ||
| 103 | EXPORT SYMBOL("gzvprintf") | ||
| 98 | EXPORT SYMBOL("inflateGetDictionary") | 104 | EXPORT SYMBOL("inflateGetDictionary") |
| 99 | 105 | ||
| 106 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | ||
| 107 | /* Version 1.2.9 additional entry points. */ | ||
| 108 | /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/ | ||
| 109 | |||
| 110 | EXPORT SYMBOL("adler32_z") | ||
| 111 | EXPORT SYMBOL("crc32_z") | ||
| 112 | EXPORT SYMBOL("deflateGetDictionary") | ||
| 113 | EXPORT SYMBOL("gzfread") | ||
| 114 | EXPORT SYMBOL("gzfwrite") | ||
| 115 | EXPORT SYMBOL("inflateCodesUsed") | ||
| 116 | EXPORT SYMBOL("inflateValidate") | ||
| 117 | EXPORT SYMBOL("uncompress2") | ||
| 118 | |||
| 100 | ENDPGMEXP | 119 | ENDPGMEXP |
diff --git a/os400/zlib.inc b/os400/zlib.inc index 7341a6d..5431e54 100644 --- a/os400/zlib.inc +++ b/os400/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.8 | 4 | * Version 1.2.9 |
| 5 | * | 5 | * |
| 6 | * | 6 | * |
| 7 | * WARNING: | 7 | * WARNING: |
| @@ -22,12 +22,12 @@ | |||
| 22 | * | 22 | * |
| 23 | * Versioning information. | 23 | * Versioning information. |
| 24 | * | 24 | * |
| 25 | D ZLIB_VERSION C '1.2.8' | 25 | D ZLIB_VERSION C '1.2.9' |
| 26 | D ZLIB_VERNUM C X'1280' | 26 | D ZLIB_VERNUM C X'1290' |
| 27 | D ZLIB_VER_MAJOR C 1 | 27 | D ZLIB_VER_MAJOR C 1 |
| 28 | D ZLIB_VER_MINOR C 2 | 28 | D ZLIB_VER_MINOR C 2 |
| 29 | D ZLIB_VER_REVISION... | 29 | D ZLIB_VER_REVISION... |
| 30 | D C 8 | 30 | D C 9 |
| 31 | D ZLIB_VER_SUBREVISION... | 31 | D ZLIB_VER_SUBREVISION... |
| 32 | D C 0 | 32 | D C 0 |
| 33 | * | 33 | * |
| @@ -50,7 +50,7 @@ | |||
| 50 | D Z_DATA_ERROR C -3 | 50 | D Z_DATA_ERROR C -3 |
| 51 | D Z_MEM_ERROR C -4 | 51 | D Z_MEM_ERROR C -4 |
| 52 | D Z_BUF_ERROR C -5 | 52 | D Z_BUF_ERROR C -5 |
| 53 | DZ_VERSION_ERROR C -6 | 53 | D Z_VERSION_ERROR C -6 |
| 54 | * | 54 | * |
| 55 | D Z_NO_COMPRESSION... | 55 | D Z_NO_COMPRESSION... |
| 56 | D C 0 | 56 | D C 0 |
| @@ -80,6 +80,7 @@ | |||
| 80 | * | 80 | * |
| 81 | D z_streamp S * Stream struct ptr | 81 | D z_streamp S * Stream struct ptr |
| 82 | D gzFile S * File pointer | 82 | D gzFile S * File pointer |
| 83 | D gz_headerp S * | ||
| 83 | D z_off_t S 10i 0 Stream offsets | 84 | D z_off_t S 10i 0 Stream offsets |
| 84 | D z_off64_t S 20i 0 Stream offsets | 85 | D z_off64_t S 20i 0 Stream offsets |
| 85 | * | 86 | * |
| @@ -132,6 +133,12 @@ | |||
| 132 | D source 65535 const options(*varsize) Source buffer | 133 | D source 65535 const options(*varsize) Source buffer |
| 133 | D sourceLen 10U 0 value Source length | 134 | D sourceLen 10U 0 value Source length |
| 134 | * | 135 | * |
| 136 | D uncompress2 PR 10I 0 extproc('uncompress2') | ||
| 137 | D dest 65535 options(*varsize) Destination buffer | ||
| 138 | D destLen 10U 0 Destination length | ||
| 139 | D source 65535 const options(*varsize) Source buffer | ||
| 140 | D sourceLen 10U 0 Source length | ||
| 141 | * | ||
| 135 | /if not defined(LARGE_FILES) | 142 | /if not defined(LARGE_FILES) |
| 136 | D gzopen PR extproc('gzopen') | 143 | D gzopen PR extproc('gzopen') |
| 137 | D like(gzFile) | 144 | D like(gzFile) |
| @@ -168,11 +175,23 @@ | |||
| 168 | D buf 65535 options(*varsize) Buffer | 175 | D buf 65535 options(*varsize) Buffer |
| 169 | D len 10u 0 value Buffer length | 176 | D len 10u 0 value Buffer length |
| 170 | * | 177 | * |
| 178 | D gzfread PR 20I 0 extproc('gzfread') | ||
| 179 | D buf 65535 options(*varsize) Buffer | ||
| 180 | D size 20u 0 value Buffer length | ||
| 181 | D nitems 20u 0 value Buffer length | ||
| 182 | D file value like(gzFile) File pointer | ||
| 183 | * | ||
| 171 | D gzwrite PR 10I 0 extproc('gzwrite') | 184 | D gzwrite PR 10I 0 extproc('gzwrite') |
| 172 | D file value like(gzFile) File pointer | 185 | D file value like(gzFile) File pointer |
| 173 | D buf 65535 const options(*varsize) Buffer | 186 | D buf 65535 const options(*varsize) Buffer |
| 174 | D len 10u 0 value Buffer length | 187 | D len 10u 0 value Buffer length |
| 175 | * | 188 | * |
| 189 | D gzfwrite PR 20I 0 extproc('gzfwrite') | ||
| 190 | D buf 65535 options(*varsize) Buffer | ||
| 191 | D size 20u 0 value Buffer length | ||
| 192 | D nitems 20u 0 value Buffer length | ||
| 193 | D file value like(gzFile) File pointer | ||
| 194 | * | ||
| 176 | D gzputs PR 10I 0 extproc('gzputs') | 195 | D gzputs PR 10I 0 extproc('gzputs') |
| 177 | D file value like(gzFile) File pointer | 196 | D file value like(gzFile) File pointer |
| 178 | D s * value options(*string) String to output | 197 | D s * value options(*string) String to output |
| @@ -254,6 +273,9 @@ | |||
| 254 | D gzeof PR 10i 0 extproc('gzeof') | 273 | D gzeof PR 10i 0 extproc('gzeof') |
| 255 | D file value like(gzFile) File pointer | 274 | D file value like(gzFile) File pointer |
| 256 | * | 275 | * |
| 276 | D gzdirect PR 10i 0 extproc('gzdirect') | ||
| 277 | D file value like(gzFile) File pointer | ||
| 278 | * | ||
| 257 | D gzclose_r PR 10i 0 extproc('gzclose_r') | 279 | D gzclose_r PR 10i 0 extproc('gzclose_r') |
| 258 | D file value like(gzFile) File pointer | 280 | D file value like(gzFile) File pointer |
| 259 | * | 281 | * |
| @@ -311,7 +333,7 @@ | |||
| 311 | D method 10I 0 value Compression method | 333 | D method 10I 0 value Compression method |
| 312 | D windowBits 10I 0 value log2(window size) | 334 | D windowBits 10I 0 value log2(window size) |
| 313 | D memLevel 10I 0 value Mem/cmpress tradeoff | 335 | D memLevel 10I 0 value Mem/cmpress tradeoff |
| 314 | D strategy 10I 0 value Compression stategy | 336 | D strategy 10I 0 value Compression strategy |
| 315 | D version * value options(*string) Version string | 337 | D version * value options(*string) Version string |
| 316 | D stream_size 10i 0 value Stream struct. size | 338 | D stream_size 10i 0 value Stream struct. size |
| 317 | * | 339 | * |
| @@ -331,7 +353,14 @@ | |||
| 331 | D deflateParams PR 10I 0 extproc('deflateParams') Change level & strat | 353 | D deflateParams PR 10I 0 extproc('deflateParams') Change level & strat |
| 332 | D strm like(z_stream) Compression stream | 354 | D strm like(z_stream) Compression stream |
| 333 | D level 10I 0 value Compression level | 355 | D level 10I 0 value Compression level |
| 334 | D strategy 10I 0 value Compression stategy | 356 | D strategy 10I 0 value Compression strategy |
| 357 | * | ||
| 358 | D deflateTune PR 10I 0 extproc('deflateTune') | ||
| 359 | D strm like(z_stream) Compression stream | ||
| 360 | D good 10I 0 value | ||
| 361 | D lazy 10I 0 value | ||
| 362 | D nice 10I 0 value | ||
| 363 | D chain 10I 0 value | ||
| 335 | * | 364 | * |
| 336 | D deflateBound PR 10U 0 extproc('deflateBound') Change level & strat | 365 | D deflateBound PR 10U 0 extproc('deflateBound') Change level & strat |
| 337 | D strm like(z_stream) Compression stream | 366 | D strm like(z_stream) Compression stream |
| @@ -365,6 +394,12 @@ | |||
| 365 | D dictionary 65535 options(*varsize) Dictionary bytes | 394 | D dictionary 65535 options(*varsize) Dictionary bytes |
| 366 | D dictLength 10U 0 Dictionary length | 395 | D dictLength 10U 0 Dictionary length |
| 367 | * | 396 | * |
| 397 | D deflateGetDictionary... | ||
| 398 | D PR 10I 0 extproc('deflateGetDictionary') Get dictionary | ||
| 399 | D strm like(z_stream) Expansion stream | ||
| 400 | D dictionary 65535 options(*varsize) Dictionary bytes | ||
| 401 | D dictLength 10U 0 Dictionary length | ||
| 402 | * | ||
| 368 | D inflateSync PR 10I 0 extproc('inflateSync') Sync. expansion | 403 | D inflateSync PR 10I 0 extproc('inflateSync') Sync. expansion |
| 369 | D strm like(z_stream) Expansion stream | 404 | D strm like(z_stream) Expansion stream |
| 370 | * | 405 | * |
| @@ -387,6 +422,25 @@ | |||
| 387 | D inflateMark PR 10I 0 extproc('inflateMark') Get inflate info | 422 | D inflateMark PR 10I 0 extproc('inflateMark') Get inflate info |
| 388 | D strm like(z_stream) Expansion stream | 423 | D strm like(z_stream) Expansion stream |
| 389 | * | 424 | * |
| 425 | D inflateCodesUsed... | ||
| 426 | PR 20U 0 extproc('inflateCodesUsed') | ||
| 427 | D strm like(z_stream) Expansion stream | ||
| 428 | * | ||
| 429 | D inflateValidate... | ||
| 430 | PR 20U 0 extproc('inflateValidate') | ||
| 431 | D strm like(z_stream) Expansion stream | ||
| 432 | D check 10I 0 value | ||
| 433 | * | ||
| 434 | D inflateGetHeader... | ||
| 435 | PR 10U 0 extproc('inflateGetHeader') | ||
| 436 | D strm like(z_stream) Expansion stream | ||
| 437 | D head like(gz_headerp) | ||
| 438 | * | ||
| 439 | D deflateSetHeader... | ||
| 440 | PR 10U 0 extproc('deflateSetHeader') | ||
| 441 | D strm like(z_stream) Expansion stream | ||
| 442 | D head like(gz_headerp) | ||
| 443 | * | ||
| 390 | D inflateBackInit... | 444 | D inflateBackInit... |
| 391 | D PR 10I 0 extproc('inflateBackInit_') | 445 | D PR 10I 0 extproc('inflateBackInit_') |
| 392 | D strm like(z_stream) Expansion stream | 446 | D strm like(z_stream) Expansion stream |
| @@ -417,11 +471,33 @@ | |||
| 417 | D buf 65535 const options(*varsize) Bytes to accumulate | 471 | D buf 65535 const options(*varsize) Bytes to accumulate |
| 418 | D len 10U 0 value Buffer length | 472 | D len 10U 0 value Buffer length |
| 419 | * | 473 | * |
| 474 | D adler32_combine... | ||
| 475 | PR 10U 0 extproc('adler32_combine') New checksum | ||
| 476 | D adler1 10U 0 value Old checksum | ||
| 477 | D adler2 10U 0 value Old checksum | ||
| 478 | D len2 20U 0 value Buffer length | ||
| 479 | * | ||
| 480 | D adler32_z PR 10U 0 extproc('adler32_z') New checksum | ||
| 481 | D adler 10U 0 value Old checksum | ||
| 482 | D buf 65535 const options(*varsize) Bytes to accumulate | ||
| 483 | D len 20U 0 value Buffer length | ||
| 484 | * | ||
| 420 | D crc32 PR 10U 0 extproc('crc32') New checksum | 485 | D crc32 PR 10U 0 extproc('crc32') New checksum |
| 421 | D crc 10U 0 value Old checksum | 486 | D crc 10U 0 value Old checksum |
| 422 | D buf 65535 const options(*varsize) Bytes to accumulate | 487 | D buf 65535 const options(*varsize) Bytes to accumulate |
| 423 | D len 10U 0 value Buffer length | 488 | D len 10U 0 value Buffer length |
| 424 | * | 489 | * |
| 490 | D crc32_combine... | ||
| 491 | PR 10U 0 extproc('crc32_combine') New checksum | ||
| 492 | D crc1 10U 0 value Old checksum | ||
| 493 | D crc2 10U 0 value Old checksum | ||
| 494 | D len2 20U 0 value Buffer length | ||
| 495 | * | ||
| 496 | D crc32_z PR 10U 0 extproc('crc32_z') New checksum | ||
| 497 | D crc 10U 0 value Old checksum | ||
| 498 | D buf 65535 const options(*varsize) Bytes to accumulate | ||
| 499 | D len 20U 0 value Buffer length | ||
| 500 | * | ||
| 425 | ************************************************************************** | 501 | ************************************************************************** |
| 426 | * Miscellaneous function prototypes | 502 | * Miscellaneous function prototypes |
| 427 | ************************************************************************** | 503 | ************************************************************************** |
