zlib/os400/zlib.inc

   1       *  ZLIB.INC - Interface to the general purpose compression library
   2       *
   3       *  ILE RPG400 version by Patrick Monnerat, DATASPHERE.
   4       *  Version 1.2.12
   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.12'
  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                   12
  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