1 **free 2 // ZLIB.INC - Interface to the general purpose compression library 3 4 // ILE RPG400 version by Patrick Monnerat, DATASPHERE. 5 // Version 1.3.2 6 7 8 // WARNING: 9 // Procedures inflateInit(), inflateInit2(), deflateInit(), 10 // deflateInit2() and inflateBackInit() need to be called with 11 // two additional arguments: 12 // the package version string and the stream control structure. 13 // size. This is needed because RPG lacks some macro feature. 14 // Call these procedures as: 15 // inflateInit(...: ZLIB_VERSION: %size(z_stream)) 16 17 /if not defined(ZLIB_H_) 18 /define ZLIB_H_ 19 20 //************************************************************************* 21 // Constants 22 //************************************************************************* 23 24 // Versioning information. 25 26 Dcl-C ZLIB_VERSION '1.3.2'; 27 Dcl-C ZLIB_VERNUM X'1320'; 28 Dcl-C ZLIB_VER_MAJOR 1; 29 Dcl-C ZLIB_VER_MINOR 3; 30 Dcl-C ZLIB_VER_REVISION 2; 31 Dcl-C ZLIB_VER_SUBREVISION 0; 32 33 // Other equates. 34 35 Dcl-C Z_NO_FLUSH 0; 36 Dcl-C Z_PARTIAL_FLUSH 1; 37 Dcl-C Z_SYNC_FLUSH 2; 38 Dcl-C Z_FULL_FLUSH 3; 39 Dcl-C Z_FINISH 4; 40 Dcl-C Z_BLOCK 5; 41 Dcl-C Z_TREES 6; 42 43 Dcl-C Z_OK 0; 44 Dcl-C Z_STREAM_END 1; 45 Dcl-C Z_NEED_DICT 2; 46 Dcl-C Z_ERRNO -1; 47 Dcl-C Z_STREAM_ERROR -2; 48 Dcl-C Z_DATA_ERROR -3; 49 Dcl-C Z_MEM_ERROR -4; 50 Dcl-C Z_BUF_ERROR -5; 51 Dcl-C Z_VERSION_ERROR -6; 52 53 Dcl-C Z_NO_COMPRESSION 0; 54 Dcl-C Z_BEST_SPEED 1; 55 Dcl-C Z_BEST_COMPRESSION 9; 56 Dcl-C Z_DEFAULT_COMPRESSION -1; 57 58 Dcl-C Z_FILTERED 1; 59 Dcl-C Z_HUFFMAN_ONLY 2; 60 Dcl-C Z_RLE 3; 61 Dcl-C Z_DEFAULT_STRATEGY 0; 62 63 Dcl-C Z_BINARY 0; 64 Dcl-C Z_ASCII 1; 65 Dcl-C Z_UNKNOWN 2; 66 67 Dcl-C Z_DEFLATED 8; 68 69 Dcl-C Z_NULL 0; 70 71 //************************************************************************* 72 // Types 73 //************************************************************************* 74 75 Dcl-S z_streamp Pointer; // Stream struct ptr 76 Dcl-S gzFile Pointer; // File pointer 77 Dcl-S gz_headerp Pointer; 78 Dcl-S z_off_t Int(10); // Stream offsets 79 Dcl-S z_off64_t Int(20); // Stream offsets 80 81 //************************************************************************* 82 // Structures 83 //************************************************************************* 84 85 // The GZIP encode/decode stream support structure. 86 87 Dcl-Ds z_stream Align Based(z_streamp); 88 zs_next_in Pointer; // Next input byte 89 zs_avail_in Uns(10); // Byte cnt at next_in 90 zs_total_in Uns(10); // Total bytes read 91 zs_next_out Pointer; // Output buffer ptr 92 zs_avail_out Uns(10); // Room left @ next_out 93 zs_total_out Uns(10); // Total bytes written 94 zs_msg Pointer; // Last errmsg or null 95 zs_state Pointer; // Internal state 96 zs_zalloc Pointer(*PROC); // Int. state allocator 97 zs_free Pointer(*PROC); // Int. state dealloc. 98 zs_opaque Pointer; // Private alloc. data 99 zs_data_type Int(10); // ASC/BIN best guess 100 zs_adler Uns(10); // Uncompr. adler32 val 101 *N Uns(10); // Reserved 102 *N Uns(10); // Ptr. alignment 103 End-Ds; 104 105 //************************************************************************* 106 // Utility function prototypes 107 //************************************************************************* 108 109 Dcl-Pr compress Int(10) Extproc('compress'); 110 dest Char(65535) Options(*VARSIZE); // Destination buffer 111 destLen Uns(10); // Destination length 112 source Char(65535) Const Options(*VARSIZE); // Source buffer 113 sourceLen Uns(10) Value; // Source length 114 End-Pr; 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 123 Dcl-Pr compress2 Int(10) Extproc('compress2'); 124 dest Char(65535) Options(*VARSIZE); // Destination buffer 125 destLen Uns(10); // Destination length 126 source Char(65535) Const Options(*VARSIZE); // Source buffer 127 sourceLen Uns(10) Value; // Source length 128 level Int(10) Value; // Compression level 129 End-Pr; 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 139 Dcl-Pr compressBound Uns(10) Extproc('compressBound'); 140 sourceLen Uns(10) Value; 141 End-Pr; 142 143 Dcl-Pr compressBound_z Uns(10) Extproc('compressBound_z'); 144 sourceLen Uns(20) Value; 145 End-Pr; 146 147 Dcl-Pr uncompress Int(10) Extproc('uncompress'); 148 dest Char(65535) Options(*VARSIZE); // Destination buffer 149 destLen Uns(10); // Destination length 150 source Char(65535) Const Options(*VARSIZE); // Source buffer 151 sourceLen Uns(10) Value; // Source length 152 End-Pr; 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 161 Dcl-Pr uncompress2 Int(10) Extproc('uncompress2'); 162 dest Char(65535) Options(*VARSIZE); // Destination buffer 163 destLen Uns(10); // Destination length 164 source Char(65535) Const Options(*VARSIZE); // Source buffer 165 sourceLen Uns(10); // Source length 166 End-Pr; 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 175 /if not defined(LARGE_FILES) 176 Dcl-Pr gzopen Extproc('gzopen') Like(gzFile); 177 path Pointer Value Options(*STRING); // File pathname 178 mode Pointer Value Options(*STRING); // Open mode 179 End-Pr; 180 /else 181 Dcl-Pr gzopen Extproc('gzopen64') Like(gzFile); 182 path Pointer Value Options(*STRING); // File pathname 183 mode Pointer Value Options(*STRING); // Open mode 184 End-Pr; 185 186 Dcl-Pr gzopen64 Extproc('gzopen64') Like(gzFile); 187 path Pointer Value Options(*STRING); // File pathname 188 mode Pointer Value Options(*STRING); // Open mode 189 End-Pr; 190 /endif 191 192 Dcl-Pr gzdopen Extproc('gzdopen') Like(gzFile); 193 fd Int(10) Value; // File descriptor 194 mode Pointer Value Options(*STRING); // Open mode 195 End-Pr; 196 197 Dcl-Pr gzbuffer Int(10) Extproc('gzbuffer'); 198 file Value Like(gzFile); // File pointer 199 size Uns(10) Value; 200 End-Pr; 201 202 Dcl-Pr gzsetparams Int(10) Extproc('gzsetparams'); 203 file Value Like(gzFile); // File pointer 204 level Int(10) Value; 205 strategy Int(10) Value; 206 End-Pr; 207 208 Dcl-Pr gzread Int(10) Extproc('gzread'); 209 file Value Like(gzFile); // File pointer 210 buf Char(65535) Options(*VARSIZE); // Buffer 211 len Uns(10) Value; // Buffer length 212 End-Pr; 213 214 Dcl-Pr gzfread Int(20) Extproc('gzfread'); 215 buf Char(65535) Options(*VARSIZE); // Buffer 216 size Uns(20) Value; // Buffer length 217 nitems Uns(20) Value; // Buffer length 218 file Value Like(gzFile); // File pointer 219 End-Pr; 220 221 Dcl-Pr gzwrite Int(10) Extproc('gzwrite'); 222 file Value Like(gzFile); // File pointer 223 buf Char(65535) Const Options(*VARSIZE); // Buffer 224 len Uns(10) Value; // Buffer length 225 End-Pr; 226 227 Dcl-Pr gzfwrite Int(20) Extproc('gzfwrite'); 228 buf Char(65535) Options(*VARSIZE); // Buffer 229 size Uns(20) Value; // Buffer length 230 nitems Uns(20) Value; // Buffer length 231 file Value Like(gzFile); // File pointer 232 End-Pr; 233 234 Dcl-Pr gzputs Int(10) Extproc('gzputs'); 235 file Value Like(gzFile); // File pointer 236 s Pointer Value Options(*STRING); // String to output 237 End-Pr; 238 239 Dcl-Pr gzgets Pointer Extproc('gzgets'); 240 file Value Like(gzFile); // File pointer 241 buf Char(65535) Options(*VARSIZE); // Read buffer 242 len Int(10) Value; // Buffer length 243 End-Pr; 244 245 Dcl-Pr gzputc Int(10) Extproc('gzputc'); 246 file Value Like(gzFile); // File pointer 247 c Int(10) Value; // Character to write 248 End-Pr; 249 250 Dcl-Pr gzgetc Int(10) Extproc('gzgetc'); 251 file Value Like(gzFile); // File pointer 252 End-Pr; 253 254 Dcl-Pr gzgetc_ Int(10) Extproc('gzgetc_'); 255 file Value Like(gzFile); // File pointer 256 End-Pr; 257 258 Dcl-Pr gzungetc Int(10) Extproc('gzungetc'); 259 c Int(10) Value; // Character to push 260 file Value Like(gzFile); // File pointer 261 End-Pr; 262 263 Dcl-Pr gzflush Int(10) Extproc('gzflush'); 264 file Value Like(gzFile); // File pointer 265 flush Int(10) Value; // Type of flush 266 End-Pr; 267 268 /if not defined(LARGE_FILES) 269 Dcl-Pr gzseek Extproc('gzseek') Like(z_off_t); 270 file Value Like(gzFile); // File pointer 271 offset Value Like(z_off_t); // Offset 272 whence Int(10) Value; // Origin 273 End-Pr; 274 /else 275 Dcl-Pr gzseek Extproc('gzseek64') Like(z_off_t); 276 file Value Like(gzFile); // File pointer 277 offset Value Like(z_off_t); // Offset 278 whence Int(10) Value; // Origin 279 End-Pr; 280 281 Dcl-Pr gzseek64 Extproc('gzseek64') Like(z_off64_t); 282 file Value Like(gzFile); // File pointer 283 offset Value Like(z_off64_t); // Offset 284 whence Int(10) Value; // Origin 285 End-Pr; 286 /endif 287 288 Dcl-Pr gzrewind Int(10) Extproc('gzrewind'); 289 file Value Like(gzFile); // File pointer 290 End-Pr; 291 292 /if not defined(LARGE_FILES) 293 Dcl-Pr gztell Extproc('gztell') Like(z_off_t); 294 file Value Like(gzFile); // File pointer 295 End-Pr; 296 /else 297 Dcl-Pr gztell Extproc('gztell64') Like(z_off_t); 298 file Value Like(gzFile); // File pointer 299 End-Pr; 300 301 Dcl-Pr gztell64 Extproc('gztell64') Like(z_off64_t); 302 file Value Like(gzFile); // File pointer 303 End-Pr; 304 /endif 305 306 /if not defined(LARGE_FILES) 307 Dcl-Pr gzoffset Extproc('gzoffset') Like(z_off_t); 308 file Value Like(gzFile); // File pointer 309 End-Pr; 310 /else 311 Dcl-Pr gzoffset Extproc('gzoffset64') Like(z_off_t); 312 file Value Like(gzFile); // File pointer 313 End-Pr; 314 315 Dcl-Pr gzoffset64 Extproc('gzoffset64') Like(z_off64_t); 316 file Value Like(gzFile); // File pointer 317 End-Pr; 318 /endif 319 320 Dcl-Pr gzeof Int(10) Extproc('gzeof'); 321 file Value Like(gzFile); // File pointer 322 End-Pr; 323 324 Dcl-Pr gzdirect Int(10) Extproc('gzdirect'); 325 file Value Like(gzFile); // File pointer 326 End-Pr; 327 328 Dcl-Pr gzclose_r Int(10) Extproc('gzclose_r'); 329 file Value Like(gzFile); // File pointer 330 End-Pr; 331 332 Dcl-Pr gzclose_w Int(10) Extproc('gzclose_w'); 333 file Value Like(gzFile); // File pointer 334 End-Pr; 335 336 Dcl-Pr gzclose Int(10) Extproc('gzclose'); 337 file Value Like(gzFile); // File pointer 338 End-Pr; 339 340 Dcl-Pr gzerror Pointer Extproc('gzerror'); // Error string 341 file Value Like(gzFile); // File pointer 342 errnum Int(10); // Error code 343 End-Pr; 344 345 Dcl-Pr gzclearerr Extproc('gzclearerr'); 346 file Value Like(gzFile); // File pointer 347 End-Pr; 348 349 //************************************************************************* 350 // Basic function prototypes 351 //************************************************************************* 352 353 Dcl-Pr zlibVersion Pointer Extproc('zlibVersion'); // Version string 354 End-Pr; 355 356 Dcl-Pr deflateInit Int(10) Extproc('deflateInit_'); // Init. compression 357 strm Like(z_stream); // Compression stream 358 level Int(10) Value; // Compression level 359 version Pointer Value Options(*STRING); // Version string 360 stream_size Int(10) Value; // Stream struct. size 361 End-Pr; 362 363 Dcl-Pr deflate Int(10) Extproc('deflate'); // Compress data 364 strm Like(z_stream); // Compression stream 365 flush Int(10) Value; // Flush type required 366 End-Pr; 367 368 Dcl-Pr deflateEnd Int(10) Extproc('deflateEnd'); // Termin. compression 369 strm Like(z_stream); // Compression stream 370 End-Pr; 371 372 Dcl-Pr inflateInit Int(10) Extproc('inflateInit_'); // Init. expansion 373 strm Like(z_stream); // Expansion stream 374 version Pointer Value Options(*STRING); // Version string 375 stream_size Int(10) Value; // Stream struct. size 376 End-Pr; 377 378 Dcl-Pr inflate Int(10) Extproc('inflate'); // Expand data 379 strm Like(z_stream); // Expansion stream 380 flush Int(10) Value; // Flush type required 381 End-Pr; 382 383 Dcl-Pr inflateEnd Int(10) Extproc('inflateEnd'); // Termin. expansion 384 strm Like(z_stream); // Expansion stream 385 End-Pr; 386 387 //************************************************************************* 388 // Advanced function prototypes 389 //************************************************************************* 390 391 Dcl-Pr deflateInit2 Int(10) Extproc('deflateInit2_'); // Init. compression 392 strm Like(z_stream); // Compression stream 393 level Int(10) Value; // Compression level 394 method Int(10) Value; // Compression method 395 windowBits Int(10) Value; // log2(window size) 396 memLevel Int(10) Value; // Mem/cmpress tradeoff 397 strategy Int(10) Value; // Compression strategy 398 version Pointer Value Options(*STRING); // Version string 399 stream_size Int(10) Value; // Stream struct. size 400 End-Pr; 401 402 Dcl-Pr deflateSetDictionary Int(10) Extproc('deflateSetDictionary'); // Init. dictionary 403 strm Like(z_stream); // Compression stream 404 dictionary Char(65535) Const Options(*VARSIZE); // Dictionary bytes 405 dictLength Uns(10) Value; // Dictionary length 406 End-Pr; 407 408 Dcl-Pr deflateCopy Int(10) Extproc('deflateCopy'); // Compress strm 2 strm 409 dest Like(z_stream); // Destination stream 410 source Like(z_stream); // Source stream 411 End-Pr; 412 413 Dcl-Pr deflateReset Int(10) Extproc('deflateReset'); // End and init. stream 414 strm Like(z_stream); // Compression stream 415 End-Pr; 416 417 Dcl-Pr deflateParams Int(10) Extproc('deflateParams'); // Change level & strat 418 strm Like(z_stream); // Compression stream 419 level Int(10) Value; // Compression level 420 strategy Int(10) Value; // Compression strategy 421 End-Pr; 422 423 Dcl-Pr deflateTune Int(10) Extproc('deflateTune'); 424 strm Like(z_stream); // Compression stream 425 good Int(10) Value; 426 lazy Int(10) Value; 427 nice Int(10) Value; 428 chain_ Int(10) Value; 429 End-Pr; 430 431 Dcl-Pr deflateBound Uns(10) Extproc('deflateBound'); // Change level & strat 432 strm Like(z_stream); // Compression stream 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 439 End-Pr; 440 441 Dcl-Pr deflatePending Int(10) Extproc('deflatePending'); // Change level & strat 442 strm Like(z_stream); // Compression stream 443 pending Uns(10); // Pending bytes 444 bits Int(10); // Pending bits 445 End-Pr; 446 447 Dcl-Pr deflateUsed Int(10) Extproc('deflateUsed'); // Get used bits 448 strm Like(z_stream); // Compression stream 449 bits Int(10); // Used bits 450 End-Pr; 451 452 Dcl-Pr deflatePrime Int(10) Extproc('deflatePrime'); // Change level & strat 453 strm Like(z_stream); // Compression stream 454 bits Int(10) Value; // # of bits to insert 455 value Int(10) Value; // Bits to insert 456 End-Pr; 457 458 Dcl-Pr inflateInit2 Int(10) Extproc('inflateInit2_'); // Init. expansion 459 strm Like(z_stream); // Expansion stream 460 windowBits Int(10) Value; // log2(window size) 461 version Pointer Value Options(*STRING); // Version string 462 stream_size Int(10) Value; // Stream struct. size 463 End-Pr; 464 465 Dcl-Pr inflateSetDictionary Int(10) Extproc('inflateSetDictionary'); // Init. dictionary 466 strm Like(z_stream); // Expansion stream 467 dictionary Char(65535) Const Options(*VARSIZE); // Dictionary bytes 468 dictLength Uns(10) Value; // Dictionary length 469 End-Pr; 470 471 Dcl-Pr inflateGetDictionary Int(10) Extproc('inflateGetDictionary'); // Get dictionary 472 strm Like(z_stream); // Expansion stream 473 dictionary Char(65535) Options(*VARSIZE); // Dictionary bytes 474 dictLength Uns(10); // Dictionary length 475 End-Pr; 476 477 Dcl-Pr deflateGetDictionary Int(10) Extproc('deflateGetDictionary'); // Get dictionary 478 strm Like(z_stream); // Expansion stream 479 dictionary Char(65535) Options(*VARSIZE); // Dictionary bytes 480 dictLength Uns(10); // Dictionary length 481 End-Pr; 482 483 Dcl-Pr inflateSync Int(10) Extproc('inflateSync'); // Sync. expansion 484 strm Like(z_stream); // Expansion stream 485 End-Pr; 486 487 Dcl-Pr inflateCopy Int(10) Extproc('inflateCopy'); 488 dest Like(z_stream); // Destination stream 489 source Like(z_stream); // Source stream 490 End-Pr; 491 492 Dcl-Pr inflateReset Int(10) Extproc('inflateReset'); // End and init. stream 493 strm Like(z_stream); // Expansion stream 494 End-Pr; 495 496 Dcl-Pr inflateReset2 Int(10) Extproc('inflateReset2'); // End and init. stream 497 strm Like(z_stream); // Expansion stream 498 windowBits Int(10) Value; // Log2(buffer size) 499 End-Pr; 500 501 Dcl-Pr inflatePrime Int(10) Extproc('inflatePrime'); // Insert bits 502 strm Like(z_stream); // Expansion stream 503 bits Int(10) Value; // Bit count 504 value Int(10) Value; // Bits to insert 505 End-Pr; 506 507 Dcl-Pr inflateMark Int(10) Extproc('inflateMark'); // Get inflate info 508 strm Like(z_stream); // Expansion stream 509 End-Pr; 510 511 Dcl-Pr inflateCodesUsed Uns(20) Extproc('inflateCodesUsed'); 512 strm Like(z_stream); // Expansion stream 513 End-Pr; 514 515 Dcl-Pr inflateValidate Uns(20) Extproc('inflateValidate'); 516 strm Like(z_stream); // Expansion stream 517 check Int(10) Value; 518 End-Pr; 519 520 Dcl-Pr inflateGetHeader Uns(10) Extproc('inflateGetHeader'); 521 strm Like(z_stream); // Expansion stream 522 head Like(GZ_HEADERP); 523 End-Pr; 524 525 Dcl-Pr deflateSetHeader Uns(10) Extproc('deflateSetHeader'); 526 strm Like(z_stream); // Expansion stream 527 head Like(GZ_HEADERP); 528 End-Pr; 529 530 Dcl-Pr inflateBackInit Int(10) Extproc('inflateBackInit_'); 531 strm Like(z_stream); // Expansion stream 532 windowBits Int(10) Value; // Log2(buffer size) 533 window Char(65535) Options(*VARSIZE); // Buffer 534 version Pointer Value Options(*STRING); // Version string 535 stream_size Int(10) Value; // Stream struct. size 536 End-Pr; 537 538 Dcl-Pr inflateBack Int(10) Extproc('inflateBack'); 539 strm Like(z_stream); // Expansion stream 540 in_ Pointer(*PROC) Value; // Input function 541 in_desc Pointer Value; // Input descriptor 542 out_ Pointer(*PROC) Value; // Output function 543 out_desc Pointer Value; // Output descriptor 544 End-Pr; 545 546 Dcl-Pr inflateBackEnd Int(10) Extproc('inflateBackend'); 547 strm Like(z_stream); // Expansion stream 548 End-Pr; 549 550 Dcl-Pr zlibCompileFlags Uns(10) Extproc('zlibCompileFlags') End-Pr; 551 552 //************************************************************************* 553 // Checksum function prototypes 554 //************************************************************************* 555 556 Dcl-Pr adler32 Uns(10) Extproc('adler32'); // New checksum 557 adler Uns(10) Value; // Old checksum 558 buf Char(65535) Const Options(*VARSIZE); // Bytes to accumulate 559 len Uns(10) Value; // Buffer length 560 End-Pr; 561 562 Dcl-Pr adler32_combine Uns(10) Extproc('adler32_combine'); // New checksum 563 adler1 Uns(10) Value; // Old checksum 564 adler2 Uns(10) Value; // Old checksum 565 len2 Uns(20) Value; // Buffer length 566 End-Pr; 567 568 Dcl-Pr adler32_z Uns(10) Extproc('adler32_z'); // New checksum 569 adler Uns(10) Value; // Old checksum 570 buf Char(65535) Const Options(*VARSIZE); // Bytes to accumulate 571 len Uns(20) Value; // Buffer length 572 End-Pr; 573 574 Dcl-Pr crc32 Uns(10) Extproc('crc32'); // New checksum 575 crc Uns(10) Value; // Old checksum 576 buf Char(65535) Const Options(*VARSIZE); // Bytes to accumulate 577 len Uns(10) Value; // Buffer length 578 End-Pr; 579 580 Dcl-Pr crc32_combine Uns(10) Extproc('crc32_combine'); // New checksum 581 crc1 Uns(10) Value; // Old checksum 582 crc2 Uns(10) Value; // Old checksum 583 len2 Uns(20) Value; // 2nd Buffer length 584 End-Pr; 585 586 Dcl-Pr crc32_z Uns(10) Extproc('crc32_z'); // New checksum 587 crc Uns(10) Value; // Old checksum 588 buf Char(65535) Const Options(*VARSIZE); // Bytes to accumulate 589 len Uns(20) Value; // Buffer length 590 End-Pr; 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 606 //************************************************************************* 607 // Miscellaneous function prototypes 608 //************************************************************************* 609 610 Dcl-Pr zError Pointer Extproc('zError'); // Error string 611 err Int(10) Value; // Error code 612 End-Pr; 613 614 Dcl-Pr inflateSyncPoint Int(10) Extproc('inflateSyncPoint'); 615 strm Like(z_stream); // Expansion stream 616 End-Pr; 617 618 Dcl-Pr get_crc_table Pointer Extproc('get_crc_table'); // Ptr to ulongs 619 End-Pr; 620 621 Dcl-Pr inflateUndermine Int(10) Extproc('inflateUndermine'); 622 strm Like(z_stream); // Expansion stream 623 arg Int(10) Value; // Error code 624 End-Pr; 625 626 Dcl-Pr inflateResetKeep Int(10) Extproc('inflateResetKeep'); // End and init. stream 627 strm Like(z_stream); // Expansion stream 628 End-Pr; 629 630 Dcl-Pr deflateResetKeep Int(10) Extproc('deflateResetKeep'); // End and init. stream 631 strm Like(z_stream); // Expansion stream 632 End-Pr; 633 634 /endif 635
Indexes created Fri Jul 17 00:25:55 UTC 2026