| * ZLIB.INC - Interface to the general purpose compression library |
| * |
| * ILE RPG400 version by Patrick Monnerat, DATASPHERE. |
| * Version 1.2.8 |
| * |
| * |
| * WARNING: |
| * Procedures inflateInit(), inflateInit2(), deflateInit(), |
| * deflateInit2() and inflateBackInit() need to be called with |
| * two additional arguments: |
| * the package version string and the stream control structure. |
| * size. This is needed because RPG lacks some macro feature. |
| * Call these procedures as: |
| * inflateInit(...: ZLIB_VERSION: %size(z_stream)) |
| * |
| /if not defined(ZLIB_H_) |
| /define ZLIB_H_ |
| * |
| ************************************************************************** |
| * Constants |
| ************************************************************************** |
| * |
| * Versioning information. |
| * |
| D ZLIB_VERSION C '1.2.8' |
| D ZLIB_VERNUM C X'1280' |
| D ZLIB_VER_MAJOR C 1 |
| D ZLIB_VER_MINOR C 2 |
| D ZLIB_VER_REVISION... |
| D C 8 |
| 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 |
| D Z_NEED_DICT C 2 |
| D Z_ERRNO C -1 |
| D Z_STREAM_ERROR C -2 |
| D Z_DATA_ERROR C -3 |
| D Z_MEM_ERROR C -4 |
| D Z_BUF_ERROR C -5 |
| DZ_VERSION_ERROR C -6 |
| * |
| D Z_NO_COMPRESSION... |
| D C 0 |
| D Z_BEST_SPEED C 1 |
| D Z_BEST_COMPRESSION... |
| D C 9 |
| D Z_DEFAULT_COMPRESSION... |
| D C -1 |
| * |
| D Z_FILTERED C 1 |
| D Z_HUFFMAN_ONLY C 2 |
| D Z_RLE C 3 |
| D Z_DEFAULT_STRATEGY... |
| D C 0 |
| * |
| D Z_BINARY C 0 |
| D Z_ASCII C 1 |
| D Z_UNKNOWN C 2 |
| * |
| D Z_DEFLATED C 8 |
| * |
| D Z_NULL C 0 |
| * |
| ************************************************************************** |
| * Types |
| ************************************************************************** |
| * |
| 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 |
| ************************************************************************** |
| * |
| * The GZIP encode/decode stream support structure. |
| * |
| D z_stream DS align based(z_streamp) |
| D zs_next_in * Next input byte |
| D zs_avail_in 10U 0 Byte cnt at next_in |
| D zs_total_in 10U 0 Total bytes read |
| D zs_next_out * Output buffer ptr |
| D zs_avail_out 10U 0 Room left @ next_out |
| D zs_total_out 10U 0 Total bytes written |
| D zs_msg * Last errmsg or null |
| D zs_state * Internal state |
| D zs_zalloc * procptr Int. state allocator |
| D zs_free * procptr Int. state dealloc. |
| D zs_opaque * Private alloc. data |
| D zs_data_type 10i 0 ASC/BIN best guess |
| D zs_adler 10u 0 Uncompr. adler32 val |
| D 10U 0 Reserved |
| D 10U 0 Ptr. alignment |
| * |
| ************************************************************************** |
| * Utility function prototypes |
| ************************************************************************** |
| * |
| D compress PR 10I 0 extproc('compress') |
| D dest 65535 options(*varsize) Destination buffer |
| D destLen 10U 0 Destination length |
| D source 65535 const options(*varsize) Source buffer |
| D sourceLen 10u 0 value Source length |
| * |
| D compress2 PR 10I 0 extproc('compress2') |
| D dest 65535 options(*varsize) Destination buffer |
| D destLen 10U 0 Destination length |
| D source 65535 const options(*varsize) Source buffer |
| D sourceLen 10U 0 value Source length |
| D level 10I 0 value Compression level |
| * |
| D compressBound PR 10U 0 extproc('compressBound') |
| D sourceLen 10U 0 value |
| * |
| D uncompress PR 10I 0 extproc('uncompress') |
| D dest 65535 options(*varsize) Destination buffer |
| D destLen 10U 0 Destination length |
| 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 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 gzread PR 10I 0 extproc('gzread') |
| D file value like(gzFile) File pointer |
| 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 65535 const options(*varsize) Buffer |
| D len 10u 0 value Buffer length |
| * |
| D gzputs PR 10I 0 extproc('gzputs') |
| D file value like(gzFile) File pointer |
| D s * value options(*string) String to output |
| * |
| D gzgets PR * extproc('gzgets') |
| D file value like(gzFile) File pointer |
| 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 |
| * |
| D gzerror PR * extproc('gzerror') Error string |
| D file value like(gzFile) File pointer |
| D errnum 10I 0 Error code |
| * |
| D gzclearerr PR extproc('gzclearerr') |
| D file value like(gzFile) File pointer |
| * |
| ************************************************************************** |
| * Basic function prototypes |
| ************************************************************************** |
| * |
| D zlibVersion PR * extproc('zlibVersion') Version string |
| * |
| D deflateInit PR 10I 0 extproc('deflateInit_') Init. compression |
| D strm like(z_stream) Compression stream |
| D level 10I 0 value Compression level |
| D version * value options(*string) Version string |
| D stream_size 10i 0 value Stream struct. size |
| * |
| D deflate PR 10I 0 extproc('deflate') Compress data |
| D strm like(z_stream) Compression stream |
| D flush 10I 0 value Flush type required |
| * |
| D deflateEnd PR 10I 0 extproc('deflateEnd') Termin. compression |
| D strm like(z_stream) Compression stream |
| * |
| D inflateInit PR 10I 0 extproc('inflateInit_') Init. expansion |
| D strm like(z_stream) Expansion stream |
| D version * value options(*string) Version string |
| D stream_size 10i 0 value Stream struct. size |
| * |
| D inflate PR 10I 0 extproc('inflate') Expand data |
| D strm like(z_stream) Expansion stream |
| D flush 10I 0 value Flush type required |
| * |
| D inflateEnd PR 10I 0 extproc('inflateEnd') Termin. expansion |
| D strm like(z_stream) Expansion stream |
| * |
| ************************************************************************** |
| * Advanced function prototypes |
| ************************************************************************** |
| * |
| D deflateInit2 PR 10I 0 extproc('deflateInit2_') Init. compression |
| D strm like(z_stream) Compression stream |
| D level 10I 0 value Compression level |
| D method 10I 0 value Compression method |
| D windowBits 10I 0 value log2(window size) |
| D memLevel 10I 0 value Mem/cmpress tradeoff |
| D strategy 10I 0 value Compression stategy |
| D version * value options(*string) Version string |
| D stream_size 10i 0 value Stream struct. size |
| * |
| D deflateSetDictionary... |
| D PR 10I 0 extproc('deflateSetDictionary') Init. dictionary |
| D strm like(z_stream) Compression stream |
| 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 |
| D dest like(z_stream) Destination stream |
| D source like(z_stream) Source stream |
| * |
| D deflateReset PR 10I 0 extproc('deflateReset') End and init. stream |
| D strm like(z_stream) Compression stream |
| * |
| D deflateParams PR 10I 0 extproc('deflateParams') Change level & strat |
| D strm like(z_stream) Compression stream |
| D level 10I 0 value Compression level |
| D strategy 10I 0 value Compression stategy |
| * |
| D deflateBound PR 10U 0 extproc('deflateBound') Change level & strat |
| 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 # of bits to insert |
| D value 10I 0 value Bits to insert |
| * |
| D inflateInit2 PR 10I 0 extproc('inflateInit2_') Init. expansion |
| D strm like(z_stream) Expansion stream |
| D windowBits 10I 0 value log2(window size) |
| D version * value options(*string) Version string |
| D stream_size 10i 0 value Stream struct. size |
| * |
| D inflateSetDictionary... |
| D PR 10I 0 extproc('inflateSetDictionary') Init. dictionary |
| D strm like(z_stream) Expansion stream |
| D dictionary 65535 const options(*varsize) Dictionary bytes |
| D dictLength 10U 0 value Dictionary length |
| * |
| D inflateGetDictionary... |
| D PR 10I 0 extproc('inflateGetDictionary') Get dictionary |
| D strm like(z_stream) Expansion stream |
| D dictionary 65535 options(*varsize) Dictionary bytes |
| D dictLength 10U 0 Dictionary length |
| * |
| D inflateSync PR 10I 0 extproc('inflateSync') Sync. expansion |
| D strm like(z_stream) Expansion stream |
| * |
| D inflateCopy PR 10I 0 extproc('inflateCopy') |
| D dest like(z_stream) Destination stream |
| D source like(z_stream) Source stream |
| * |
| 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 65535 options(*varsize) Buffer |
| D version * value options(*string) Version string |
| D stream_size 10i 0 value Stream struct. size |
| * |
| D inflateBack PR 10I 0 extproc('inflateBack') |
| D strm like(z_stream) Expansion stream |
| D in * value procptr Input function |
| D in_desc * value Input descriptor |
| D out * value procptr Output function |
| D out_desc * value Output descriptor |
| * |
| D inflateBackEnd PR 10I 0 extproc('inflateBackEnd') |
| D strm like(z_stream) Expansion stream |
| * |
| D zlibCompileFlags... |
| D PR 10U 0 extproc('zlibCompileFlags') |
| * |
| ************************************************************************** |
| * Checksum function prototypes |
| ************************************************************************** |
| * |
| D adler32 PR 10U 0 extproc('adler32') New checksum |
| D adler 10U 0 value Old checksum |
| 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 65535 const options(*varsize) Bytes to accumulate |
| D len 10U 0 value Buffer length |
| * |
| ************************************************************************** |
| * Miscellaneous function prototypes |
| ************************************************************************** |
| * |
| D zError PR * extproc('zError') Error string |
| D err 10I 0 value Error code |
| * |
| D inflateSyncPoint... |
| D PR 10I 0 extproc('inflateSyncPoint') |
| D strm like(z_stream) Expansion stream |
| * |
| 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 |
| |