Mercurial > hg > sv-dependency-builds

annotate src/zlib-1.2.8/as400/zlib.inc @ 169:223a55898ab9 tip default

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