1 * ZLIB.INC - Interface to the general purpose compression library 2 * 3 * ILE RPG400 version by Patrick Monnerat, DATASPHERE. 4 * Version 1.2.13 5 * 6 * 7 * WARNING: 8 * Procedures inflateInit(), inflateInit2(), deflateInit(), 9 * deflateInit2() and inflateBackInit() need to be called with 10 * two additional arguments: 11 * the package version string and the stream control structure. 12 * size. This is needed because RPG lacks some macro feature. 13 * Call these procedures as: 14 * inflateInit(...: ZLIB_VERSION: %size(z_stream)) 15 * 16 /if not defined(ZLIB_H_) 17 /define ZLIB_H_ 18 * 19 ************************************************************************** 20 * Constants 21 ************************************************************************** 22 * 23 * Versioning information. 24 * 25 D ZLIB_VERSION C '1.2.13' 26 D ZLIB_VERNUM C X'12a0' 27 D ZLIB_VER_MAJOR C 1 28 D ZLIB_VER_MINOR C 2 29 D ZLIB_VER_REVISION... 30 D C 13 31 D ZLIB_VER_SUBREVISION... 32 D C 0 33 * 34 * Other equates. 35 * 36 D Z_NO_FLUSH C 0 37 D Z_PARTIAL_FLUSH... 38 D C 1 39 D Z_SYNC_FLUSH C 2 40 D Z_FULL_FLUSH C 3 41 D Z_FINISH C 4 42 D Z_BLOCK C 5 43 D Z_TREES C 6 44 * 45 D Z_OK C 0 46 D Z_STREAM_END C 1 47 D Z_NEED_DICT C 2 48 D Z_ERRNO C -1 49 D Z_STREAM_ERROR C -2 50 D Z_DATA_ERROR C -3 51 D Z_MEM_ERROR C -4 52 D Z_BUF_ERROR C -5 53 D Z_VERSION_ERROR C -6 54 * 55 D Z_NO_COMPRESSION... 56 D C 0 57 D Z_BEST_SPEED C 1 58 D Z_BEST_COMPRESSION... 59 D C 9 60 D Z_DEFAULT_COMPRESSION... 61 D C -1 62 * 63 D Z_FILTERED C 1 64 D Z_HUFFMAN_ONLY C 2 65 D Z_RLE C 3 66 D Z_DEFAULT_STRATEGY... 67 D C 0 68 * 69 D Z_BINARY C 0 70 D Z_ASCII C 1 71 D Z_UNKNOWN C 2 72 * 73 D Z_DEFLATED C 8 74 * 75 D Z_NULL C 0 76 * 77 ************************************************************************** 78 * Types 79 ************************************************************************** 80 * 81 D z_streamp S * Stream struct ptr 82 D gzFile S * File pointer 83 D gz_headerp S * 84 D z_off_t S 10i 0 Stream offsets 85 D z_off64_t S 20i 0 Stream offsets 86 * 87 ************************************************************************** 88 * Structures 89 ************************************************************************** 90 * 91 * The GZIP encode/decode stream support structure. 92 * 93 D z_stream DS align based(z_streamp) 94 D zs_next_in * Next input byte 95 D zs_avail_in 10U 0 Byte cnt at next_in 96 D zs_total_in 10U 0 Total bytes read 97 D zs_next_out * Output buffer ptr 98 D zs_avail_out 10U 0 Room left @ next_out 99 D zs_total_out 10U 0 Total bytes written 100 D zs_msg * Last errmsg or null 101 D zs_state * Internal state 102 D zs_zalloc * procptr Int. state allocator 103 D zs_free * procptr Int. state dealloc. 104 D zs_opaque * Private alloc. data 105 D zs_data_type 10i 0 ASC/BIN best guess 106 D zs_adler 10u 0 Uncompr. adler32 val 107 D 10U 0 Reserved 108 D 10U 0 Ptr. alignment 109 * 110 ************************************************************************** 111 * Utility function prototypes 112 ************************************************************************** 113 * 114 D compress PR 10I 0 extproc('compress') 115 D dest 65535 options(*varsize) Destination buffer 116 D destLen 10U 0 Destination length 117 D source 65535 const options(*varsize) Source buffer 118 D sourceLen 10u 0 value Source length 119 * 120 D compress2 PR 10I 0 extproc('compress2') 121 D dest 65535 options(*varsize) Destination buffer 122 D destLen 10U 0 Destination length 123 D source 65535 const options(*varsize) Source buffer 124 D sourceLen 10U 0 value Source length 125 D level 10I 0 value Compression level 126 * 127 D compressBound PR 10U 0 extproc('compressBound') 128 D sourceLen 10U 0 value 129 * 130 D uncompress PR 10I 0 extproc('uncompress') 131 D dest 65535 options(*varsize) Destination buffer 132 D destLen 10U 0 Destination length 133 D source 65535 const options(*varsize) Source buffer 134 D sourceLen 10U 0 value Source length 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 * 142 /if not defined(LARGE_FILES) 143 D gzopen PR extproc('gzopen') 144 D like(gzFile) 145 D path * value options(*string) File pathname 146 D mode * value options(*string) Open mode 147 /else 148 D gzopen PR extproc('gzopen64') 149 D like(gzFile) 150 D path * value options(*string) File pathname 151 D mode * value options(*string) Open mode 152 * 153 D gzopen64 PR extproc('gzopen64') 154 D like(gzFile) 155 D path * value options(*string) File pathname 156 D mode * value options(*string) Open mode 157 /endif 158 * 159 D gzdopen PR extproc('gzdopen') 160 D like(gzFile) 161 D fd 10I 0 value File descriptor 162 D mode * value options(*string) Open mode 163 * 164 D gzbuffer PR 10I 0 extproc('gzbuffer') 165 D file value like(gzFile) File pointer 166 D size 10U 0 value 167 * 168 D gzsetparams PR 10I 0 extproc('gzsetparams') 169 D file value like(gzFile) File pointer 170 D level 10I 0 value 171 D strategy 10I 0 value 172 * 173 D gzread PR 10I 0 extproc('gzread') 174 D file value like(gzFile) File pointer 175 D buf 65535 options(*varsize) Buffer 176 D len 10u 0 value Buffer length 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 * 184 D gzwrite PR 10I 0 extproc('gzwrite') 185 D file value like(gzFile) File pointer 186 D buf 65535 const options(*varsize) Buffer 187 D len 10u 0 value Buffer length 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 * 195 D gzputs PR 10I 0 extproc('gzputs') 196 D file value like(gzFile) File pointer 197 D s * value options(*string) String to output 198 * 199 D gzgets PR * extproc('gzgets') 200 D file value like(gzFile) File pointer 201 D buf 65535 options(*varsize) Read buffer 202 D len 10i 0 value Buffer length 203 * 204 D gzputc PR 10i 0 extproc('gzputc') 205 D file value like(gzFile) File pointer 206 D c 10I 0 value Character to write 207 * 208 D gzgetc PR 10i 0 extproc('gzgetc') 209 D file value like(gzFile) File pointer 210 * 211 D gzgetc_ PR 10i 0 extproc('gzgetc_') 212 D file value like(gzFile) File pointer 213 * 214 D gzungetc PR 10i 0 extproc('gzungetc') 215 D c 10I 0 value Character to push 216 D file value like(gzFile) File pointer 217 * 218 D gzflush PR 10i 0 extproc('gzflush') 219 D file value like(gzFile) File pointer 220 D flush 10I 0 value Type of flush 221 * 222 /if not defined(LARGE_FILES) 223 D gzseek PR extproc('gzseek') 224 D like(z_off_t) 225 D file value like(gzFile) File pointer 226 D offset value like(z_off_t) Offset 227 D whence 10i 0 value Origin 228 /else 229 D gzseek PR extproc('gzseek64') 230 D like(z_off_t) 231 D file value like(gzFile) File pointer 232 D offset value like(z_off_t) Offset 233 D whence 10i 0 value Origin 234 * 235 D gzseek64 PR extproc('gzseek64') 236 D like(z_off64_t) 237 D file value like(gzFile) File pointer 238 D offset value like(z_off64_t) Offset 239 D whence 10i 0 value Origin 240 /endif 241 * 242 D gzrewind PR 10i 0 extproc('gzrewind') 243 D file value like(gzFile) File pointer 244 * 245 /if not defined(LARGE_FILES) 246 D gztell PR extproc('gztell') 247 D like(z_off_t) 248 D file value like(gzFile) File pointer 249 /else 250 D gztell PR extproc('gztell64') 251 D like(z_off_t) 252 D file value like(gzFile) File pointer 253 * 254 D gztell64 PR extproc('gztell64') 255 D like(z_off64_t) 256 D file value like(gzFile) File pointer 257 /endif 258 * 259 /if not defined(LARGE_FILES) 260 D gzoffset PR extproc('gzoffset') 261 D like(z_off_t) 262 D file value like(gzFile) File pointer 263 /else 264 D gzoffset PR extproc('gzoffset64') 265 D like(z_off_t) 266 D file value like(gzFile) File pointer 267 * 268 D gzoffset64 PR extproc('gzoffset64') 269 D like(z_off64_t) 270 D file value like(gzFile) File pointer 271 /endif 272 * 273 D gzeof PR 10i 0 extproc('gzeof') 274 D file value like(gzFile) File pointer 275 * 276 D gzdirect PR 10i 0 extproc('gzdirect') 277 D file value like(gzFile) File pointer 278 * 279 D gzclose_r PR 10i 0 extproc('gzclose_r') 280 D file value like(gzFile) File pointer 281 * 282 D gzclose_w PR 10i 0 extproc('gzclose_w') 283 D file value like(gzFile) File pointer 284 * 285 D gzclose PR 10i 0 extproc('gzclose') 286 D file value like(gzFile) File pointer 287 * 288 D gzerror PR * extproc('gzerror') Error string 289 D file value like(gzFile) File pointer 290 D errnum 10I 0 Error code 291 * 292 D gzclearerr PR extproc('gzclearerr') 293 D file value like(gzFile) File pointer 294 * 295 ************************************************************************** 296 * Basic function prototypes 297 ************************************************************************** 298 * 299 D zlibVersion PR * extproc('zlibVersion') Version string 300 * 301 D deflateInit PR 10I 0 extproc('deflateInit_') Init. compression 302 D strm like(z_stream) Compression stream 303 D level 10I 0 value Compression level 304 D version * value options(*string) Version string 305 D stream_size 10i 0 value Stream struct. size 306 * 307 D deflate PR 10I 0 extproc('deflate') Compress data 308 D strm like(z_stream) Compression stream 309 D flush 10I 0 value Flush type required 310 * 311 D deflateEnd PR 10I 0 extproc('deflateEnd') Termin. compression 312 D strm like(z_stream) Compression stream 313 * 314 D inflateInit PR 10I 0 extproc('inflateInit_') Init. expansion 315 D strm like(z_stream) Expansion stream 316 D version * value options(*string) Version string 317 D stream_size 10i 0 value Stream struct. size 318 * 319 D inflate PR 10I 0 extproc('inflate') Expand data 320 D strm like(z_stream) Expansion stream 321 D flush 10I 0 value Flush type required 322 * 323 D inflateEnd PR 10I 0 extproc('inflateEnd') Termin. expansion 324 D strm like(z_stream) Expansion stream 325 * 326 ************************************************************************** 327 * Advanced function prototypes 328 ************************************************************************** 329 * 330 D deflateInit2 PR 10I 0 extproc('deflateInit2_') Init. compression 331 D strm like(z_stream) Compression stream 332 D level 10I 0 value Compression level 333 D method 10I 0 value Compression method 334 D windowBits 10I 0 value log2(window size) 335 D memLevel 10I 0 value Mem/cmpress tradeoff 336 D strategy 10I 0 value Compression strategy 337 D version * value options(*string) Version string 338 D stream_size 10i 0 value Stream struct. size 339 * 340 D deflateSetDictionary... 341 D PR 10I 0 extproc('deflateSetDictionary') Init. dictionary 342 D strm like(z_stream) Compression stream 343 D dictionary 65535 const options(*varsize) Dictionary bytes 344 D dictLength 10U 0 value Dictionary length 345 * 346 D deflateCopy PR 10I 0 extproc('deflateCopy') Compress strm 2 strm 347 D dest like(z_stream) Destination stream 348 D source like(z_stream) Source stream 349 * 350 D deflateReset PR 10I 0 extproc('deflateReset') End and init. stream 351 D strm like(z_stream) Compression stream 352 * 353 D deflateParams PR 10I 0 extproc('deflateParams') Change level & strat 354 D strm like(z_stream) Compression stream 355 D level 10I 0 value Compression level 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 364 * 365 D deflateBound PR 10U 0 extproc('deflateBound') Change level & strat 366 D strm like(z_stream) Compression stream 367 D sourcelen 10U 0 value Compression level 368 * 369 D deflatePending PR 10I 0 extproc('deflatePending') Change level & strat 370 D strm like(z_stream) Compression stream 371 D pending 10U 0 Pending bytes 372 D bits 10I 0 Pending bits 373 * 374 D deflatePrime PR 10I 0 extproc('deflatePrime') Change level & strat 375 D strm like(z_stream) Compression stream 376 D bits 10I 0 value # of bits to insert 377 D value 10I 0 value Bits to insert 378 * 379 D inflateInit2 PR 10I 0 extproc('inflateInit2_') Init. expansion 380 D strm like(z_stream) Expansion stream 381 D windowBits 10I 0 value log2(window size) 382 D version * value options(*string) Version string 383 D stream_size 10i 0 value Stream struct. size 384 * 385 D inflateSetDictionary... 386 D PR 10I 0 extproc('inflateSetDictionary') Init. dictionary 387 D strm like(z_stream) Expansion stream 388 D dictionary 65535 const options(*varsize) Dictionary bytes 389 D dictLength 10U 0 value Dictionary length 390 * 391 D inflateGetDictionary... 392 D PR 10I 0 extproc('inflateGetDictionary') Get dictionary 393 D strm like(z_stream) Expansion stream 394 D dictionary 65535 options(*varsize) Dictionary bytes 395 D dictLength 10U 0 Dictionary length 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 * 403 D inflateSync PR 10I 0 extproc('inflateSync') Sync. expansion 404 D strm like(z_stream) Expansion stream 405 * 406 D inflateCopy PR 10I 0 extproc('inflateCopy') 407 D dest like(z_stream) Destination stream 408 D source like(z_stream) Source stream 409 * 410 D inflateReset PR 10I 0 extproc('inflateReset') End and init. stream 411 D strm like(z_stream) Expansion stream 412 * 413 D inflateReset2 PR 10I 0 extproc('inflateReset2') End and init. stream 414 D strm like(z_stream) Expansion stream 415 D windowBits 10I 0 value Log2(buffer size) 416 * 417 D inflatePrime PR 10I 0 extproc('inflatePrime') Insert bits 418 D strm like(z_stream) Expansion stream 419 D bits 10I 0 value Bit count 420 D value 10I 0 value Bits to insert 421 * 422 D inflateMark PR 10I 0 extproc('inflateMark') Get inflate info 423 D strm like(z_stream) Expansion stream 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 * 444 D inflateBackInit... 445 D PR 10I 0 extproc('inflateBackInit_') 446 D strm like(z_stream) Expansion stream 447 D windowBits 10I 0 value Log2(buffer size) 448 D window 65535 options(*varsize) Buffer 449 D version * value options(*string) Version string 450 D stream_size 10i 0 value Stream struct. size 451 * 452 D inflateBack PR 10I 0 extproc('inflateBack') 453 D strm like(z_stream) Expansion stream 454 D in * value procptr Input function 455 D in_desc * value Input descriptor 456 D out * value procptr Output function 457 D out_desc * value Output descriptor 458 * 459 D inflateBackEnd PR 10I 0 extproc('inflateBackEnd') 460 D strm like(z_stream) Expansion stream 461 * 462 D zlibCompileFlags... 463 D PR 10U 0 extproc('zlibCompileFlags') 464 * 465 ************************************************************************** 466 * Checksum function prototypes 467 ************************************************************************** 468 * 469 D adler32 PR 10U 0 extproc('adler32') New checksum 470 D adler 10U 0 value Old checksum 471 D buf 65535 const options(*varsize) Bytes to accumulate 472 D len 10U 0 value Buffer length 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 * 485 D crc32 PR 10U 0 extproc('crc32') New checksum 486 D crc 10U 0 value Old checksum 487 D buf 65535 const options(*varsize) Bytes to accumulate 488 D len 10U 0 value Buffer length 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 * 501 ************************************************************************** 502 * Miscellaneous function prototypes 503 ************************************************************************** 504 * 505 D zError PR * extproc('zError') Error string 506 D err 10I 0 value Error code 507 * 508 D inflateSyncPoint... 509 D PR 10I 0 extproc('inflateSyncPoint') 510 D strm like(z_stream) Expansion stream 511 * 512 D get_crc_table PR * extproc('get_crc_table') Ptr to ulongs 513 * 514 D inflateUndermine... 515 D PR 10I 0 extproc('inflateUndermine') 516 D strm like(z_stream) Expansion stream 517 D arg 10I 0 value Error code 518 * 519 D inflateResetKeep... 520 D PR 10I 0 extproc('inflateResetKeep') End and init. stream 521 D strm like(z_stream) Expansion stream 522 * 523 D deflateResetKeep... 524 D PR 10I 0 extproc('deflateResetKeep') End and init. stream 525 D strm like(z_stream) Expansion stream 526 * 527 /endif 528