diff options
| author | Mark Adler <git@madler.net> | 2026-02-17 02:31:51 -0800 |
|---|---|---|
| committer | Mark Adler <git@madler.net> | 2026-02-17 04:47:06 -0800 |
| commit | 9e35567064baded660f61732b247ef5abc809014 (patch) | |
| tree | 79b5a06f88838dd54f90f821e8650254abfedb7e /os400 | |
| parent | 890953a4e40bfb96fdfed161b1a7a8fcc1216790 (diff) | |
| download | zlib-9e35567064baded660f61732b247ef5abc809014.tar.gz zlib-9e35567064baded660f61732b247ef5abc809014.tar.bz2 zlib-9e35567064baded660f61732b247ef5abc809014.zip | |
Version 1.3.2
Diffstat (limited to 'os400')
| -rw-r--r-- | os400/README400 | 2 | ||||
| -rw-r--r-- | os400/make.sh | 2 | ||||
| -rw-r--r-- | os400/zlibfixed.rpgle | 24 | ||||
| -rw-r--r-- | os400/zlibfree.rpgle | 66 |
4 files changed, 80 insertions, 14 deletions
diff --git a/os400/README400 b/os400/README400 index 2cfe7a3c..9314a687 100644 --- a/os400/README400 +++ b/os400/README400 | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ZLIB version 1.3.1.2 for OS/400 installation instructions | 1 | ZLIB version 1.3.2 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/make.sh b/os400/make.sh index e9643f52..43915796 100644 --- a/os400/make.sh +++ b/os400/make.sh | |||
| @@ -276,7 +276,7 @@ fi | |||
| 276 | echo '#pragma comment(user, "ZLIB version '"${VERSION}"'")' > os400.c | 276 | echo '#pragma comment(user, "ZLIB version '"${VERSION}"'")' > os400.c |
| 277 | echo '#pragma comment(user, __DATE__)' >> os400.c | 277 | echo '#pragma comment(user, __DATE__)' >> os400.c |
| 278 | echo '#pragma comment(user, __TIME__)' >> os400.c | 278 | echo '#pragma comment(user, __TIME__)' >> os400.c |
| 279 | echo '#pragma comment(copyright, "Copyright (C) 1995-2017 Jean-Loup Gailly, Mark Adler. OS/400 version by P. Monnerat.")' >> os400.c | 279 | echo '#pragma comment(copyright, "Copyright (C) 1995-2026 Jean-Loup Gailly, Mark Adler. OS/400 version by P. Monnerat.")' >> os400.c |
| 280 | make_module OS400 os400.c | 280 | make_module OS400 os400.c |
| 281 | LINK= # No need to rebuild service program yet. | 281 | LINK= # No need to rebuild service program yet. |
| 282 | MODULES= | 282 | MODULES= |
diff --git a/os400/zlibfixed.rpgle b/os400/zlibfixed.rpgle index b2e3e093..75060f30 100644 --- a/os400/zlibfixed.rpgle +++ b/os400/zlibfixed.rpgle | |||
| @@ -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.3.1.2 | 4 | * Version 1.3.2 |
| 5 | * | 5 | * |
| 6 | * | 6 | * |
| 7 | * WARNING: | 7 | * WARNING: |
| @@ -22,14 +22,14 @@ | |||
| 22 | * | 22 | * |
| 23 | * Versioning information. | 23 | * Versioning information. |
| 24 | * | 24 | * |
| 25 | D ZLIB_VERSION C '1.3.1.2' | 25 | D ZLIB_VERSION C '1.3.2' |
| 26 | D ZLIB_VERNUM C X'12a0' | 26 | D ZLIB_VERNUM C X'1320' |
| 27 | D ZLIB_VER_MAJOR C 1 | 27 | D ZLIB_VER_MAJOR C 1 |
| 28 | D ZLIB_VER_MINOR C 3 | 28 | D ZLIB_VER_MINOR C 3 |
| 29 | D ZLIB_VER_REVISION... | 29 | D ZLIB_VER_REVISION... |
| 30 | D C 1 | ||
| 31 | D ZLIB_VER_SUBREVISION... | ||
| 32 | D C 2 | 30 | D C 2 |
| 31 | D ZLIB_VER_SUBREVISION... | ||
| 32 | D C 0 | ||
| 33 | * | 33 | * |
| 34 | * Other equates. | 34 | * Other equates. |
| 35 | * | 35 | * |
| @@ -535,6 +535,20 @@ | |||
| 535 | D buf 65535 const options(*varsize) Bytes to accumulate | 535 | D buf 65535 const options(*varsize) Bytes to accumulate |
| 536 | D len 20U 0 value Buffer length | 536 | D len 20U 0 value Buffer length |
| 537 | * | 537 | * |
| 538 | D crc32_combine_gen... | ||
| 539 | D PR 10U 0 extproc('crc32_combine_gen') Operator | ||
| 540 | D len2 20U 0 value Buffer length | ||
| 541 | * | ||
| 542 | D crc32_combine_gen64... | ||
| 543 | D PR 10U 0 extproc('crc32_combine_gen64') Operator | ||
| 544 | D len2 20U 0 value Buffer length | ||
| 545 | * | ||
| 546 | D crc32_combine_op... | ||
| 547 | D PR 10U 0 extproc('crc32_combine_op') New Checksum | ||
| 548 | D crc1 10U 0 value Old checksum | ||
| 549 | D crc2 10U 0 value Old checksum | ||
| 550 | D op 10U 0 value Operator | ||
| 551 | * | ||
| 538 | ************************************************************************** | 552 | ************************************************************************** |
| 539 | * Miscellaneous function prototypes | 553 | * Miscellaneous function prototypes |
| 540 | ************************************************************************** | 554 | ************************************************************************** |
diff --git a/os400/zlibfree.rpgle b/os400/zlibfree.rpgle index 5ae31baf..b35c4680 100644 --- a/os400/zlibfree.rpgle +++ b/os400/zlibfree.rpgle | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | // ZLIB.INC - Interface to the general purpose compression library | 2 | // ZLIB.INC - Interface to the general purpose compression library |
| 3 | 3 | ||
| 4 | // ILE RPG400 version by Patrick Monnerat, DATASPHERE. | 4 | // ILE RPG400 version by Patrick Monnerat, DATASPHERE. |
| 5 | // Version 1.3.1.1 | 5 | // Version 1.3.2 |
| 6 | 6 | ||
| 7 | 7 | ||
| 8 | // WARNING: | 8 | // WARNING: |
| @@ -23,12 +23,12 @@ | |||
| 23 | 23 | ||
| 24 | // Versioning information. | 24 | // Versioning information. |
| 25 | 25 | ||
| 26 | Dcl-C ZLIB_VERSION '1.3.1.1'; | 26 | Dcl-C ZLIB_VERSION '1.3.2'; |
| 27 | Dcl-C ZLIB_VERNUM X'12A0'; | 27 | Dcl-C ZLIB_VERNUM X'1320'; |
| 28 | Dcl-C ZLIB_VER_MAJOR 1; | 28 | Dcl-C ZLIB_VER_MAJOR 1; |
| 29 | Dcl-C ZLIB_VER_MINOR 3; | 29 | Dcl-C ZLIB_VER_MINOR 3; |
| 30 | Dcl-C ZLIB_VER_REVISION 1; | 30 | Dcl-C ZLIB_VER_REVISION 2; |
| 31 | Dcl-C ZLIB_VER_SUBREVISION 1; | 31 | Dcl-C ZLIB_VER_SUBREVISION 0; |
| 32 | 32 | ||
| 33 | // Other equates. | 33 | // Other equates. |
| 34 | 34 | ||
| @@ -113,6 +113,13 @@ Dcl-Pr compress Int(10) Extproc('compress'); | |||
| 113 | sourceLen Uns(10) Value; // Source length | 113 | sourceLen Uns(10) Value; // Source length |
| 114 | End-Pr; | 114 | End-Pr; |
| 115 | 115 | ||
| 116 | Dcl-Pr compress_z Int(10) Extproc('compress_z'); | ||
| 117 | dest Char(65535) Options(*VARSIZE); // Destination buffer | ||
| 118 | destLen Uns(20); // Destination length | ||
| 119 | source Char(65535) Const Options(*VARSIZE); // Source buffer | ||
| 120 | sourceLen Uns(20) Value; // Source length | ||
| 121 | End-Pr; | ||
| 122 | |||
| 116 | Dcl-Pr compress2 Int(10) Extproc('compress2'); | 123 | Dcl-Pr compress2 Int(10) Extproc('compress2'); |
| 117 | dest Char(65535) Options(*VARSIZE); // Destination buffer | 124 | dest Char(65535) Options(*VARSIZE); // Destination buffer |
| 118 | destLen Uns(10); // Destination length | 125 | destLen Uns(10); // Destination length |
| @@ -121,10 +128,22 @@ Dcl-Pr compress2 Int(10) Extproc('compress2'); | |||
| 121 | level Int(10) Value; // Compression level | 128 | level Int(10) Value; // Compression level |
| 122 | End-Pr; | 129 | End-Pr; |
| 123 | 130 | ||
| 131 | Dcl-Pr compress2_z Int(10) Extproc('compress2_z'); | ||
| 132 | dest Char(65535) Options(*VARSIZE); // Destination buffer | ||
| 133 | destLen Uns(20); // Destination length | ||
| 134 | source Char(65535) Const Options(*VARSIZE); // Source buffer | ||
| 135 | sourceLen Uns(20) Value; // Source length | ||
| 136 | level Int(10) Value; // Compression level | ||
| 137 | End-Pr; | ||
| 138 | |||
| 124 | Dcl-Pr compressBound Uns(10) Extproc('compressBound'); | 139 | Dcl-Pr compressBound Uns(10) Extproc('compressBound'); |
| 125 | sourceLen Uns(10) Value; | 140 | sourceLen Uns(10) Value; |
| 126 | End-Pr; | 141 | End-Pr; |
| 127 | 142 | ||
| 143 | Dcl-Pr compressBound_z Uns(10) Extproc('compressBound_z'); | ||
| 144 | sourceLen Uns(20) Value; | ||
| 145 | End-Pr; | ||
| 146 | |||
| 128 | Dcl-Pr uncompress Int(10) Extproc('uncompress'); | 147 | Dcl-Pr uncompress Int(10) Extproc('uncompress'); |
| 129 | dest Char(65535) Options(*VARSIZE); // Destination buffer | 148 | dest Char(65535) Options(*VARSIZE); // Destination buffer |
| 130 | destLen Uns(10); // Destination length | 149 | destLen Uns(10); // Destination length |
| @@ -132,6 +151,13 @@ Dcl-Pr uncompress Int(10) Extproc('uncompress'); | |||
| 132 | sourceLen Uns(10) Value; // Source length | 151 | sourceLen Uns(10) Value; // Source length |
| 133 | End-Pr; | 152 | End-Pr; |
| 134 | 153 | ||
| 154 | Dcl-Pr uncompress_z Int(10) Extproc('uncompress_z'); | ||
| 155 | dest Char(65535) Options(*VARSIZE); // Destination buffer | ||
| 156 | destLen Uns(20); // Destination length | ||
| 157 | source Char(65535) Const Options(*VARSIZE); // Source buffer | ||
| 158 | sourceLen Uns(20) Value; // Source length | ||
| 159 | End-Pr; | ||
| 160 | |||
| 135 | Dcl-Pr uncompress2 Int(10) Extproc('uncompress2'); | 161 | Dcl-Pr uncompress2 Int(10) Extproc('uncompress2'); |
| 136 | dest Char(65535) Options(*VARSIZE); // Destination buffer | 162 | dest Char(65535) Options(*VARSIZE); // Destination buffer |
| 137 | destLen Uns(10); // Destination length | 163 | destLen Uns(10); // Destination length |
| @@ -139,6 +165,13 @@ Dcl-Pr uncompress2 Int(10) Extproc('uncompress2'); | |||
| 139 | sourceLen Uns(10); // Source length | 165 | sourceLen Uns(10); // Source length |
| 140 | End-Pr; | 166 | End-Pr; |
| 141 | 167 | ||
| 168 | Dcl-Pr uncompress2_z Int(10) Extproc('uncompress2_z'); | ||
| 169 | dest Char(65535) Options(*VARSIZE); // Destination buffer | ||
| 170 | destLen Uns(20); // Destination length | ||
| 171 | source Char(65535) Const Options(*VARSIZE); // Source buffer | ||
| 172 | sourceLen Uns(20); // Source length | ||
| 173 | End-Pr; | ||
| 174 | |||
| 142 | /if not defined(LARGE_FILES) | 175 | /if not defined(LARGE_FILES) |
| 143 | Dcl-Pr gzopen Extproc('gzopen') Like(gzFile); | 176 | Dcl-Pr gzopen Extproc('gzopen') Like(gzFile); |
| 144 | path Pointer Value Options(*STRING); // File pathname | 177 | path Pointer Value Options(*STRING); // File pathname |
| @@ -397,7 +430,12 @@ End-Pr; | |||
| 397 | 430 | ||
| 398 | Dcl-Pr deflateBound Uns(10) Extproc('deflateBound'); // Change level & strat | 431 | Dcl-Pr deflateBound Uns(10) Extproc('deflateBound'); // Change level & strat |
| 399 | strm Like(z_stream); // Compression stream | 432 | strm Like(z_stream); // Compression stream |
| 400 | sourcelen Uns(10) Value; // Compression level | 433 | sourcelen Uns(10) Value; // Source length |
| 434 | End-Pr; | ||
| 435 | |||
| 436 | Dcl-Pr deflateBound_z Uns(10) Extproc('deflateBound_z'); // Change level & strat | ||
| 437 | strm Like(z_stream); // Compression stream | ||
| 438 | sourcelen Uns(20) Value; // Source length | ||
| 401 | End-Pr; | 439 | End-Pr; |
| 402 | 440 | ||
| 403 | Dcl-Pr deflatePending Int(10) Extproc('deflatePending'); // Change level & strat | 441 | Dcl-Pr deflatePending Int(10) Extproc('deflatePending'); // Change level & strat |
| @@ -542,7 +580,7 @@ End-Pr; | |||
| 542 | Dcl-Pr crc32_combine Uns(10) Extproc('crc32_combine'); // New checksum | 580 | Dcl-Pr crc32_combine Uns(10) Extproc('crc32_combine'); // New checksum |
| 543 | crc1 Uns(10) Value; // Old checksum | 581 | crc1 Uns(10) Value; // Old checksum |
| 544 | crc2 Uns(10) Value; // Old checksum | 582 | crc2 Uns(10) Value; // Old checksum |
| 545 | len2 Uns(20) Value; // Buffer length | 583 | len2 Uns(20) Value; // 2nd Buffer length |
| 546 | End-Pr; | 584 | End-Pr; |
| 547 | 585 | ||
| 548 | Dcl-Pr crc32_z Uns(10) Extproc('crc32_z'); // New checksum | 586 | Dcl-Pr crc32_z Uns(10) Extproc('crc32_z'); // New checksum |
| @@ -551,6 +589,20 @@ Dcl-Pr crc32_z Uns(10) Extproc('crc32_z'); // New checksum | |||
| 551 | len Uns(20) Value; // Buffer length | 589 | len Uns(20) Value; // Buffer length |
| 552 | End-Pr; | 590 | End-Pr; |
| 553 | 591 | ||
| 592 | Dcl-Pr crc32_combine_gen Uns(10) Extproc('crc32_combine_gen'); | ||
| 593 | len Uns(20) Value; // 2nd Buffer length | ||
| 594 | End-Pr; | ||
| 595 | |||
| 596 | Dcl-Pr crc32_combine_gen64 Uns(10) Extproc('crc32_combine_gen64'); | ||
| 597 | len Uns(20) Value; // 2nd Buffer length | ||
| 598 | End-Pr; | ||
| 599 | |||
| 600 | Dcl-Pr crc32_combine_op Uns(10) Extproc('crc32_combine_op'); // New checksum | ||
| 601 | crc1 Uns(10) Value; // Old checksum | ||
| 602 | crc2 Uns(10) Value; // Old checksum | ||
| 603 | op Uns(10) Value; // Operator | ||
| 604 | End-Pr; | ||
| 605 | |||
| 554 | //************************************************************************* | 606 | //************************************************************************* |
| 555 | // Miscellaneous function prototypes | 607 | // Miscellaneous function prototypes |
| 556 | //************************************************************************* | 608 | //************************************************************************* |
