aboutsummaryrefslogtreecommitdiff
path: root/os400
diff options
context:
space:
mode:
Diffstat (limited to 'os400')
-rw-r--r--os400/README4002
-rw-r--r--os400/make.sh2
-rw-r--r--os400/zlibfixed.rpgle24
-rw-r--r--os400/zlibfree.rpgle66
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
31) Download and unpack the zlib tarball to some IFS directory. 31) 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
276echo '#pragma comment(user, "ZLIB version '"${VERSION}"'")' > os400.c 276echo '#pragma comment(user, "ZLIB version '"${VERSION}"'")' > os400.c
277echo '#pragma comment(user, __DATE__)' >> os400.c 277echo '#pragma comment(user, __DATE__)' >> os400.c
278echo '#pragma comment(user, __TIME__)' >> os400.c 278echo '#pragma comment(user, __TIME__)' >> os400.c
279echo '#pragma comment(copyright, "Copyright (C) 1995-2017 Jean-Loup Gailly, Mark Adler. OS/400 version by P. Monnerat.")' >> os400.c 279echo '#pragma comment(copyright, "Copyright (C) 1995-2026 Jean-Loup Gailly, Mark Adler. OS/400 version by P. Monnerat.")' >> os400.c
280make_module OS400 os400.c 280make_module OS400 os400.c
281LINK= # No need to rebuild service program yet. 281LINK= # No need to rebuild service program yet.
282MODULES= 282MODULES=
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
26Dcl-C ZLIB_VERSION '1.3.1.1'; 26Dcl-C ZLIB_VERSION '1.3.2';
27Dcl-C ZLIB_VERNUM X'12A0'; 27Dcl-C ZLIB_VERNUM X'1320';
28Dcl-C ZLIB_VER_MAJOR 1; 28Dcl-C ZLIB_VER_MAJOR 1;
29Dcl-C ZLIB_VER_MINOR 3; 29Dcl-C ZLIB_VER_MINOR 3;
30Dcl-C ZLIB_VER_REVISION 1; 30Dcl-C ZLIB_VER_REVISION 2;
31Dcl-C ZLIB_VER_SUBREVISION 1; 31Dcl-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
114End-Pr; 114End-Pr;
115 115
116Dcl-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
121End-Pr;
122
116Dcl-Pr compress2 Int(10) Extproc('compress2'); 123Dcl-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
122End-Pr; 129End-Pr;
123 130
131Dcl-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
137End-Pr;
138
124Dcl-Pr compressBound Uns(10) Extproc('compressBound'); 139Dcl-Pr compressBound Uns(10) Extproc('compressBound');
125 sourceLen Uns(10) Value; 140 sourceLen Uns(10) Value;
126End-Pr; 141End-Pr;
127 142
143Dcl-Pr compressBound_z Uns(10) Extproc('compressBound_z');
144 sourceLen Uns(20) Value;
145End-Pr;
146
128Dcl-Pr uncompress Int(10) Extproc('uncompress'); 147Dcl-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
133End-Pr; 152End-Pr;
134 153
154Dcl-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
159End-Pr;
160
135Dcl-Pr uncompress2 Int(10) Extproc('uncompress2'); 161Dcl-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
140End-Pr; 166End-Pr;
141 167
168Dcl-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
173End-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
398Dcl-Pr deflateBound Uns(10) Extproc('deflateBound'); // Change level & strat 431Dcl-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
434End-Pr;
435
436Dcl-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
401End-Pr; 439End-Pr;
402 440
403Dcl-Pr deflatePending Int(10) Extproc('deflatePending'); // Change level & strat 441Dcl-Pr deflatePending Int(10) Extproc('deflatePending'); // Change level & strat
@@ -542,7 +580,7 @@ End-Pr;
542Dcl-Pr crc32_combine Uns(10) Extproc('crc32_combine'); // New checksum 580Dcl-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
546End-Pr; 584End-Pr;
547 585
548Dcl-Pr crc32_z Uns(10) Extproc('crc32_z'); // New checksum 586Dcl-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
552End-Pr; 590End-Pr;
553 591
592Dcl-Pr crc32_combine_gen Uns(10) Extproc('crc32_combine_gen');
593 len Uns(20) Value; // 2nd Buffer length
594End-Pr;
595
596Dcl-Pr crc32_combine_gen64 Uns(10) Extproc('crc32_combine_gen64');
597 len Uns(20) Value; // 2nd Buffer length
598End-Pr;
599
600Dcl-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
604End-Pr;
605
554//************************************************************************* 606//*************************************************************************
555// Miscellaneous function prototypes 607// Miscellaneous function prototypes
556//************************************************************************* 608//*************************************************************************