diff options
Diffstat (limited to 'zlib/as400/zlib.inc')
| -rw-r--r-- | zlib/as400/zlib.inc | 154 |
1 files changed, 134 insertions, 20 deletions
diff --git a/zlib/as400/zlib.inc b/zlib/as400/zlib.inc index 7bbfb7e41..747c598aa 100644 --- a/zlib/as400/zlib.inc +++ b/zlib/as400/zlib.inc @@ -1,7 +1,7 @@ * ZLIB.INC - Interface to the general purpose compression library * * ILE RPG400 version by Patrick Monnerat, DATASPHERE. - * Version 1.2.3 + * Version 1.2.7 * * * WARNING: @@ -22,16 +22,25 @@ * * Versioning information. * - D ZLIB_VERSION C '1.2.3' - D ZLIB_VERNUM C X'1230' + D ZLIB_VERSION C '1.2.7' + D ZLIB_VERNUM C X'1270' + D ZLIB_VER_MAJOR C 1 + D ZLIB_VER_MINOR C 2 + D ZLIB_VER_REVISION... + D C 7 + D ZLIB_VER_SUBREVISION... + D C 0 * * Other equates. * D Z_NO_FLUSH C 0 + D Z_PARTIAL_FLUSH... + D C 1 D Z_SYNC_FLUSH C 2 D Z_FULL_FLUSH C 3 D Z_FINISH C 4 D Z_BLOCK C 5 + D Z_TREES C 6 * D Z_OK C 0 D Z_STREAM_END C 1 @@ -72,6 +81,7 @@ D z_streamp S * Stream struct ptr D gzFile S * File pointer D z_off_t S 10i 0 Stream offsets + D z_off64_t S 20i 0 Stream offsets * ************************************************************************** * Structures @@ -101,15 +111,15 @@ ************************************************************************** * D compress PR 10I 0 extproc('compress') - D dest 32767 options(*varsize) Destination buffer + D dest 65535 options(*varsize) Destination buffer D destLen 10U 0 Destination length - D source 32767 const options(*varsize) Source buffer + D source 65535 const options(*varsize) Source buffer D sourceLen 10u 0 value Source length * D compress2 PR 10I 0 extproc('compress2') - D dest 32767 options(*varsize) Destination buffer + D dest 65535 options(*varsize) Destination buffer D destLen 10U 0 Destination length - D source 32767 const options(*varsize) Source buffer + D source 65535 const options(*varsize) Source buffer D sourceLen 10U 0 value Source length D level 10I 0 value Compression level * @@ -117,34 +127,50 @@ D sourceLen 10U 0 value * D uncompress PR 10I 0 extproc('uncompress') - D dest 32767 options(*varsize) Destination buffer + D dest 65535 options(*varsize) Destination buffer D destLen 10U 0 Destination length - D source 32767 const options(*varsize) Source buffer + D source 65535 const options(*varsize) Source buffer D sourceLen 10U 0 value Source length * + /if not defined(LARGE_FILES) D gzopen PR extproc('gzopen') D like(gzFile) D path * value options(*string) File pathname D mode * value options(*string) Open mode + /else + D gzopen PR extproc('gzopen64') + D like(gzFile) + D path * value options(*string) File pathname + D mode * value options(*string) Open mode + * + D gzopen64 PR extproc('gzopen64') + D like(gzFile) + D path * value options(*string) File pathname + D mode * value options(*string) Open mode + /endif * D gzdopen PR extproc('gzdopen') D like(gzFile) - D fd 10i 0 value File descriptor + D fd 10I 0 value File descriptor D mode * value options(*string) Open mode * + D gzbuffer PR 10I 0 extproc('gzbuffer') + D file value like(gzFile) File pointer + D size 10U 0 value + * D gzsetparams PR 10I 0 extproc('gzsetparams') D file value like(gzFile) File pointer D level 10I 0 value - D strategy 10i 0 value + D strategy 10I 0 value * D gzread PR 10I 0 extproc('gzread') D file value like(gzFile) File pointer - D buf 32767 options(*varsize) Buffer + D buf 65535 options(*varsize) Buffer D len 10u 0 value Buffer length * D gzwrite PR 10I 0 extproc('gzwrite') D file value like(gzFile) File pointer - D buf 32767 const options(*varsize) Buffer + D buf 65535 const options(*varsize) Buffer D len 10u 0 value Buffer length * D gzputs PR 10I 0 extproc('gzputs') @@ -153,29 +179,87 @@ * D gzgets PR * extproc('gzgets') D file value like(gzFile) File pointer - D buf 32767 options(*varsize) Read buffer + D buf 65535 options(*varsize) Read buffer D len 10i 0 value Buffer length * + D gzputc PR 10i 0 extproc('gzputc') + D file value like(gzFile) File pointer + D c 10I 0 value Character to write + * + D gzgetc PR 10i 0 extproc('gzgetc') + D file value like(gzFile) File pointer + * + D gzgetc_ PR 10i 0 extproc('gzgetc_') + D file value like(gzFile) File pointer + * + D gzungetc PR 10i 0 extproc('gzungetc') + D c 10I 0 value Character to push + D file value like(gzFile) File pointer + * D gzflush PR 10i 0 extproc('gzflush') D file value like(gzFile) File pointer D flush 10I 0 value Type of flush * + /if not defined(LARGE_FILES) D gzseek PR extproc('gzseek') D like(z_off_t) D file value like(gzFile) File pointer D offset value like(z_off_t) Offset D whence 10i 0 value Origin + /else + D gzseek PR extproc('gzseek64') + D like(z_off_t) + D file value like(gzFile) File pointer + D offset value like(z_off_t) Offset + D whence 10i 0 value Origin + * + D gzseek64 PR extproc('gzseek64') + D like(z_off64_t) + D file value like(gzFile) File pointer + D offset value like(z_off64_t) Offset + D whence 10i 0 value Origin + /endif * D gzrewind PR 10i 0 extproc('gzrewind') D file value like(gzFile) File pointer * + /if not defined(LARGE_FILES) D gztell PR extproc('gztell') D like(z_off_t) D file value like(gzFile) File pointer + /else + D gztell PR extproc('gztell64') + D like(z_off_t) + D file value like(gzFile) File pointer + * + D gztell64 PR extproc('gztell64') + D like(z_off64_t) + D file value like(gzFile) File pointer + /endif + * + /if not defined(LARGE_FILES) + D gzoffset PR extproc('gzoffset') + D like(z_off_t) + D file value like(gzFile) File pointer + /else + D gzoffset PR extproc('gzoffset64') + D like(z_off_t) + D file value like(gzFile) File pointer + * + D gzoffset64 PR extproc('gzoffset64') + D like(z_off64_t) + D file value like(gzFile) File pointer + /endif * D gzeof PR 10i 0 extproc('gzeof') D file value like(gzFile) File pointer * + D gzclose_r PR 10i 0 extproc('gzclose_r') + D file value like(gzFile) File pointer + * + D gzclose_w PR 10i 0 extproc('gzclose_w') + D file value like(gzFile) File pointer + * D gzclose PR 10i 0 extproc('gzclose') D file value like(gzFile) File pointer * @@ -234,7 +318,7 @@ D deflateSetDictionary... D PR 10I 0 extproc('deflateSetDictionary') Init. dictionary D strm like(z_stream) Compression stream - D dictionary 32767 const options(*varsize) Dictionary bytes + D dictionary 65535 const options(*varsize) Dictionary bytes D dictLength 10U 0 value Dictionary length * D deflateCopy PR 10I 0 extproc('deflateCopy') Compress strm 2 strm @@ -253,9 +337,14 @@ D strm like(z_stream) Compression stream D sourcelen 10U 0 value Compression level * + D deflatePending PR 10I 0 extproc('deflatePending') Change level & strat + D strm like(z_stream) Compression stream + D pending 10U 0 Pending bytes + D bits 10I 0 Pending bits + * D deflatePrime PR 10I 0 extproc('deflatePrime') Change level & strat D strm like(z_stream) Compression stream - D bits 10I 0 value Number of bits to insert + D bits 10I 0 value # of bits to insert D value 10I 0 value Bits to insert * D inflateInit2 PR 10I 0 extproc('inflateInit2_') Init. expansion @@ -267,7 +356,7 @@ D inflateSetDictionary... D PR 10I 0 extproc('inflateSetDictionary') Init. dictionary D strm like(z_stream) Expansion stream - D dictionary 32767 const options(*varsize) Dictionary bytes + D dictionary 65535 const options(*varsize) Dictionary bytes D dictLength 10U 0 value Dictionary length * D inflateSync PR 10I 0 extproc('inflateSync') Sync. expansion @@ -280,11 +369,23 @@ D inflateReset PR 10I 0 extproc('inflateReset') End and init. stream D strm like(z_stream) Expansion stream * + D inflateReset2 PR 10I 0 extproc('inflateReset2') End and init. stream + D strm like(z_stream) Expansion stream + D windowBits 10I 0 value Log2(buffer size) + * + D inflatePrime PR 10I 0 extproc('inflatePrime') Insert bits + D strm like(z_stream) Expansion stream + D bits 10I 0 value Bit count + D value 10I 0 value Bits to insert + * + D inflateMark PR 10I 0 extproc('inflateMark') Get inflate info + D strm like(z_stream) Expansion stream + * D inflateBackInit... D PR 10I 0 extproc('inflateBackInit_') D strm like(z_stream) Expansion stream D windowBits 10I 0 value Log2(buffer size) - D window 32767 options(*varsize) Buffer + D window 65535 options(*varsize) Buffer D version * value options(*string) Version string D stream_size 10i 0 value Stream struct. size * @@ -307,12 +408,12 @@ * D adler32 PR 10U 0 extproc('adler32') New checksum D adler 10U 0 value Old checksum - D buf 32767 const options(*varsize) Bytes to accumulate + D buf 65535 const options(*varsize) Bytes to accumulate D len 10U 0 value Buffer length * D crc32 PR 10U 0 extproc('crc32') New checksum D crc 10U 0 value Old checksum - D buf 32767 const options(*varsize) Bytes to accumulate + D buf 65535 const options(*varsize) Bytes to accumulate D len 10U 0 value Buffer length * ************************************************************************** @@ -328,4 +429,17 @@ * D get_crc_table PR * extproc('get_crc_table') Ptr to ulongs * + D inflateUndermine... + D PR 10I 0 extproc('inflateUndermine') + D strm like(z_stream) Expansion stream + D arg 10I 0 value Error code + * + D inflateResetKeep... + D PR 10I 0 extproc('inflateResetKeep') End and init. stream + D strm like(z_stream) Expansion stream + * + D deflateResetKeep... + D PR 10I 0 extproc('deflateResetKeep') End and init. stream + D strm like(z_stream) Expansion stream + * /endif |