[llvm-commits] [parallel] CVS: llvm/runtime/zlib/as400/bndsrc compile.clp readme.txt zlib.inc

Misha Brukman brukman at cs.uiuc.edu
Mon Mar 1 18:11:05 PST 2004


Changes in directory llvm/runtime/zlib/as400:

bndsrc added (r1.1.2.1)
compile.clp added (r1.1.2.1)
readme.txt added (r1.1.2.1)
zlib.inc added (r1.1.2.1)

---
Log message:

Merge from trunk

---
Diffs of the changes:  (+693 -0)

Index: llvm/runtime/zlib/as400/bndsrc
diff -c /dev/null llvm/runtime/zlib/as400/bndsrc:1.1.2.1
*** /dev/null	Mon Mar  1 17:58:58 2004
--- llvm/runtime/zlib/as400/bndsrc	Mon Mar  1 17:58:48 2004
***************
*** 0 ****
--- 1,132 ----
+ STRPGMEXP PGMLVL(*CURRENT) SIGNATURE('ZLIB')
+ 
+ /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/
+ /*   Version 1.1.3 entry points.                                    */
+ /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/
+ 
+ /********************************************************************/
+ /*   *MODULE      ADLER32      ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("adler32")
+ 
+ /********************************************************************/
+ /*   *MODULE      COMPRESS     ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("compress")
+   EXPORT SYMBOL("compress2")
+ 
+ /********************************************************************/
+ /*   *MODULE      CRC32        ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("crc32")
+   EXPORT SYMBOL("get_crc_table")
+ 
+ /********************************************************************/
+ /*   *MODULE      DEFLATE      ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("deflate")
+   EXPORT SYMBOL("deflateEnd")
+   EXPORT SYMBOL("deflateSetDictionary")
+   EXPORT SYMBOL("deflateCopy")
+   EXPORT SYMBOL("deflateReset")
+   EXPORT SYMBOL("deflateParams")
+   EXPORT SYMBOL("deflatePrime")
+   EXPORT SYMBOL("deflateInit_")
+   EXPORT SYMBOL("deflateInit2_")
+ 
+ /********************************************************************/
+ /*   *MODULE      GZIO         ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("gzopen")
+   EXPORT SYMBOL("gzdopen")
+   EXPORT SYMBOL("gzsetparams")
+   EXPORT SYMBOL("gzread")
+   EXPORT SYMBOL("gzwrite")
+   EXPORT SYMBOL("gzprintf")
+   EXPORT SYMBOL("gzputs")
+   EXPORT SYMBOL("gzgets")
+   EXPORT SYMBOL("gzputc")
+   EXPORT SYMBOL("gzgetc")
+   EXPORT SYMBOL("gzflush")
+   EXPORT SYMBOL("gzseek")
+   EXPORT SYMBOL("gzrewind")
+   EXPORT SYMBOL("gztell")
+   EXPORT SYMBOL("gzeof")
+   EXPORT SYMBOL("gzclose")
+   EXPORT SYMBOL("gzerror")
+ 
+ /********************************************************************/
+ /*   *MODULE      INFLATE      ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("inflate")
+   EXPORT SYMBOL("inflateEnd")
+   EXPORT SYMBOL("inflateSetDictionary")
+   EXPORT SYMBOL("inflateSync")
+   EXPORT SYMBOL("inflateReset")
+   EXPORT SYMBOL("inflateInit_")
+   EXPORT SYMBOL("inflateInit2_")
+   EXPORT SYMBOL("inflateSyncPoint")
+ 
+ /********************************************************************/
+ /*   *MODULE      UNCOMPR      ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("uncompress")
+ 
+ /********************************************************************/
+ /*   *MODULE      ZUTIL        ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("zlibVersion")
+   EXPORT SYMBOL("zError")
+ 
+ /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/
+ /*   Version 1.2.1 additional entry points.                         */
+ /*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*/
+ 
+ /********************************************************************/
+ /*   *MODULE      COMPRESS     ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("compressBound")
+ 
+ /********************************************************************/
+ /*   *MODULE      DEFLATE      ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("deflateBound")
+ 
+ /********************************************************************/
+ /*   *MODULE      GZIO         ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("gzungetc")
+   EXPORT SYMBOL("gzclearerr")
+ 
+ /********************************************************************/
+ /*   *MODULE      INFBACK      ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("inflateBack")
+   EXPORT SYMBOL("inflateBackEnd")
+   EXPORT SYMBOL("inflateBackInit_")
+ 
+ /********************************************************************/
+ /*   *MODULE      INFLATE      ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("inflateCopy")
+ 
+ /********************************************************************/
+ /*   *MODULE      ZUTIL        ZLIB         01/02/01  00:15:09      */
+ /********************************************************************/
+ 
+   EXPORT SYMBOL("zlibCompileFlags")
+ 
+ ENDPGMEXP


Index: llvm/runtime/zlib/as400/compile.clp
diff -c /dev/null llvm/runtime/zlib/as400/compile.clp:1.1.2.1
*** /dev/null	Mon Mar  1 17:58:58 2004
--- llvm/runtime/zlib/as400/compile.clp	Mon Mar  1 17:58:48 2004
***************
*** 0 ****
--- 1,123 ----
+ /******************************************************************************/
+ /*                                                                            */
+ /*  ZLIB                                                                      */
+ /*                                                                            */
+ /*    Compile sources into modules and link them into a service program.      */
+ /*                                                                            */
+ /******************************************************************************/
+ 
+              PGM
+ 
+ /*      Configuration adjustable parameters.                                  */
+ 
+              DCL        VAR(&SRCLIB) TYPE(*CHAR) LEN(10) +
+                           VALUE('ZLIB')                         /* Source library. */
+              DCL        VAR(&SRCFILE) TYPE(*CHAR) LEN(10) +
+                           VALUE('SOURCES')                      /* Source member file. */
+              DCL        VAR(&CTLFILE) TYPE(*CHAR) LEN(10) +
+                           VALUE('TOOLS')                        /* Control member file. */
+ 
+              DCL        VAR(&MODLIB) TYPE(*CHAR) LEN(10) +
+                           VALUE('ZLIB')                         /* Module library. */
+ 
+              DCL        VAR(&SRVLIB) TYPE(*CHAR) LEN(10) +
+                           VALUE('LGPL')                         /* Service program library. */
+ 
+              DCL        VAR(&CFLAGS) TYPE(*CHAR) +
+                           VALUE('OPTIMIZE(40)')                 /* Compile options. */
+ 
+ 
+ /*      Working storage.                                                      */
+ 
+              DCL        VAR(&CMDLEN) TYPE(*DEC) LEN(15 5) VALUE(300)    /* Command length. */
+              DCL        VAR(&CMD) TYPE(*CHAR) LEN(512)
+ 
+ 
+ /*      Compile sources into modules.                                         */
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/ADLER32)               SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/COMPRESS)              SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/CRC32)                 SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/DEFLATE)               SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/GZIO)                  SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/INFBACK)               SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/INFFAST)               SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/INFLATE)               SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/INFTREES)              SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/TREES)                 SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/UNCOMPR)               SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+              CHGVAR     VAR(&CMD) VALUE('CRTCMOD MODULE(' *TCAT &MODLIB *TCAT  +
+                         '/ZUTIL)                 SRCFILE(' *TCAT               +
+                         &SRCLIB *TCAT '/' *TCAT &SRCFILE *TCAT                 +
+                         ') SYSIFCOPT(*IFSIO)' *BCAT &CFLAGS)
+              CALL       PGM(QCMDEXC) PARM(&CMD &CMDLEN)
+ 
+ 
+ /*      Link modules into a service program.                                  */
+ 
+              CRTSRVPGM  SRVPGM(&SRVLIB/ZLIB) +
+                           MODULE(&MODLIB/ADLER32     &MODLIB/COMPRESS    +
+                                  &MODLIB/CRC32       &MODLIB/DEFLATE     +
+                                  &MODLIB/GZIO        &MODLIB/INFBACK     +
+                                  &MODLIB/INFFAST     &MODLIB/INFLATE     +
+                                  &MODLIB/INFTREES    &MODLIB/TREES       +
+                                  &MODLIB/UNCOMPR     &MODLIB/ZUTIL)      +
+                           SRCFILE(&SRCLIB/&CTLFILE) SRCMBR(BNDSRC) +
+                           TEXT('ZLIB 1.2.1') TGTRLS(V4R4M0)
+ 
+              ENDPGM


Index: llvm/runtime/zlib/as400/readme.txt
diff -c /dev/null llvm/runtime/zlib/as400/readme.txt:1.1.2.1
*** /dev/null	Mon Mar  1 17:58:58 2004
--- llvm/runtime/zlib/as400/readme.txt	Mon Mar  1 17:58:48 2004
***************
*** 0 ****
--- 1,111 ----
+         ZLIB version 1.2.1 for AS400 installation instructions
+ 
+ I) From an AS400 *SAVF file:
+ 
+ 1)      Unpacking archive to an AS400 save file
+ 
+ On the AS400:
+ 
+ _       Create the ZLIB AS400 library:
+ 
+         CRTLIB LIB(ZLIB) TYPE(PROD) TEXT('ZLIB compression API library')
+ 
+ _       Create a work save file, for example:
+ 
+                 CRTSAVF FILE(ZLIB/ZLIBSAVF)
+ 
+ On a PC connected to the target AS400:
+ 
+ _       Unpack the save file image to a PC file "ZLIBSAVF"
+ _       Upload this file into the save file on the AS400, for example
+                 using ftp in BINARY mode.
+ 
+ 
+ 2)      Populating the ZLIB AS400 source library
+ 
+ On the AS400:
+ 
+ _       Extract the saved objects into the ZLIB AS400 library using:
+ 
+ RSTOBJ OBJ(*ALL) SAVLIB(ZLIB) DEV(*SAVF) SAVF(ZLIB/ZLIBSAVF) RSTLIB(ZLIB)
+ 
+ 
+ 3)      Customize installation:
+ 
+ _       Edit CL member ZLIB/TOOLS(COMPILE) and change parameters if needed,
+                 according to the comments.
+ 
+ _       Compile this member with:
+ 
+         CRTCLPGM PGM(ZLIB/COMPILE) SRCFILE(ZLIB/TOOLS) SRCMBR(COMPILE)
+ 
+ 
+ 4)      Compile and generate the service program:
+ 
+ _       This can now be done by executing:
+ 
+         CALL PGM(ZLIB/COMPILE)
+ 
+ 
+ 
+ II) From the original source distribution:
+ 
+ 1)      On the AS400, create the source library:
+ 
+         CRTLIB LIB(ZLIB) TYPE(PROD) TEXT('ZLIB compression API library')
+ 
+ 2)      Create the source files:
+ 
+         CRTSRCPF FILE(ZLIB/SOURCES) RCDLEN(112) TEXT('ZLIB library modules')
+         CRTSRCPF FILE(ZLIB/H)       RCDLEN(112) TEXT('ZLIB library includes')
+         CRTSRCPF FILE(ZLIB/TOOLS)   RCDLEN(112) TEXT('ZLIB library control utilities')
+ 
+ 3)      From the machine hosting the distribution files, upload them (with
+                 FTP in text mode, for example) according to the following table:
+ 
+     Original    AS400   AS400    AS400 AS400
+     file        file    member   type  description
+                 SOURCES                Original ZLIB C subprogram sources
+     adler32.c           ADLER32  C     ZLIB - Compute the Adler-32 checksum of a dta strm
+     compress.c          COMPRESS C     ZLIB - Compress a memory buffer
+     crc32.c             CRC32    C     ZLIB - Compute the CRC-32 of a data stream
+     deflate.c           DEFLATE  C     ZLIB - Compress data using the deflation algorithm
+     gzio.c              GZIO     C     ZLIB - IO on .gz files
+     infback.c           INFBACK  C     ZLIB - Inflate using a callback interface
+     inffast.c           INFFAST  C     ZLIB - Fast proc. literals & length/distance pairs
+     inflate.c           INFLATE  C     ZLIB - Interface to inflate modules
+     inftrees.c          INFTREES C     ZLIB - Generate Huffman trees for efficient decode
+     trees.c             TREES    C     ZLIB - Output deflated data using Huffman coding
+     uncompr.c           UNCOMPR  C     ZLIB - Decompress a memory buffer
+     zutil.c             ZUTIL    C     ZLIB - Target dependent utility functions
+                 H                      Original ZLIB C and ILE/RPG include files
+     crc32.h             CRC32    C     ZLIB - CRC32 tables
+     deflate.h           DEFLATE  C     ZLIB - Internal compression state
+     inffast.h           INFFAST  C     ZLIB - Header to use inffast.c
+     inffixed.h          INFFIXED C     ZLIB - Table for decoding fixed codes
+     inflate.h           INFLATE  C     ZLIB - Internal inflate state definitions
+     inftrees.h          INFTREES C     ZLIB - Header to use inftrees.c
+     trees.h             TREES    C     ZLIB - Created automatically with -DGEN_TREES_H
+     zconf.h             ZCONF    C     ZLIB - Compression library configuration
+     zlib.h              ZLIB     C     ZLIB - Compression library C user interface
+     as400/zlib.inc      ZLIB.INC RPGLE ZLIB - Compression library ILE RPG user interface
+     zutil.h             ZUTIL    C     ZLIB - Internal interface and configuration
+                 TOOLS                  Building source software & AS/400 README
+     as400/bndsrc        BNDSRC         Entry point exportation list
+     as400/compile.clp   COMPILE  CLP   Compile sources & generate service program
+     as400/readme.txt    README   TXT   Installation instructions
+ 
+ 4)      Continue as in I)3).
+ 
+ 
+ 
+ 
+ Notes:  For AS400 ILE RPG programmers, a /copy member defining the ZLIB
+                 API prototypes for ILE RPG can be found in ZLIB/H(ZLIB.INC).
+                 Please read comments in this member for more information.
+ 
+         Remember that most foreign textual data are ASCII coded: this
+                 implementation does not handle conversion from/to ASCII, so
+                 text data code conversions must be done explicitely.
+ 
+         Always open zipped files in binary mode.


Index: llvm/runtime/zlib/as400/zlib.inc
diff -c /dev/null llvm/runtime/zlib/as400/zlib.inc:1.1.2.1
*** /dev/null	Mon Mar  1 17:58:58 2004
--- llvm/runtime/zlib/as400/zlib.inc	Mon Mar  1 17:58:48 2004
***************
*** 0 ****
--- 1,327 ----
+       *  ZLIB.INC - Interface to the general purpose compression library
+       *
+       *  ILE RPG400 version by Patrick Monnerat, DATASPHERE.
+       *  Version 1.2.1
+       *
+       *
+       *  WARNING:
+       *     Procedures inflateInit(), inflateInit2(), deflateInit(),
+       *         deflateInit2() and inflateBackInit() need to be called with
+       *         two additional arguments:
+       *         the package version string and the stream control structure.
+       *         size. This is needed because RPG lacks some macro feature.
+       *         Call these procedures as:
+       *             inflateInit(...: ZLIB_VERSION: %size(z_stream))
+       *
+       /if not defined(ZLIB_H_)
+       /define ZLIB_H_
+       *
+       **************************************************************************
+       *                               Constants
+       **************************************************************************
+       *
+      D ZLIB_VERSION    C                   '1.2.1'                            Header's version
+      D ZLIB_VERNUM     C                   X'1210'
+       *
+      D Z_NO_FLUSH      C                   0
+      D Z_SYNC_FLUSH    C                   2
+      D Z_FULL_FLUSH    C                   3
+      D Z_FINISH        C                   4
+      D Z_BLOCK         C                   5
+       *
+      D Z_OK            C                   0
+      D Z_STREAM_END    C                   1
+      D Z_NEED_DICT     C                   2
+      D Z_ERRNO         C                   -1
+      D Z_STREAM_ERROR  C                   -2
+      D Z_DATA_ERROR    C                   -3
+      D Z_MEM_ERROR     C                   -4
+      D Z_BUF_ERROR     C                   -5
+      DZ_VERSION_ERROR  C                   -6
+       *
+      D Z_NO_COMPRESSION...
+      D                 C                   0
+      D Z_BEST_SPEED    C                   1
+      D Z_BEST_COMPRESSION...
+      D                 C                   9
+      D Z_DEFAULT_COMPRESSION...
+      D                 C                   -1
+       *
+      D Z_FILTERED      C                   1
+      D Z_HUFFMAN_ONLY  C                   2
+      D Z_RLE           C                   3
+      D Z_DEFAULT_STRATEGY...
+      D                 C                   0
+       *
+      D Z_BINARY        C                   0
+      D Z_ASCII         C                   1
+      D Z_UNKNOWN       C                   2
+       *
+      D Z_DEFLATED      C                   8
+       *
+      D Z_NULL          C                   0
+       *
+       **************************************************************************
+       *                                 Types
+       **************************************************************************
+       *
+      D z_streamp       S               *                                        Stream struct ptr
+      D gzFile          S               *                                        File pointer
+      D z_off_t         S             10i 0                                      Stream offsets
+       *
+       **************************************************************************
+       *                               Structures
+       **************************************************************************
+       *
+       *  The GZIP encode/decode stream support structure.
+       *
+      D z_stream        DS                  align based(z_streamp)
+      D  zs_next_in                     *                                        Next input byte
+      D  zs_avail_in                  10U 0                                      Byte cnt at next_in
+      D  zs_total_in                  10U 0                                      Total bytes read
+      D  zs_next_out                    *                                        Output buffer ptr
+      D  zs_avail_out                 10U 0                                      Room left @ next_out
+      D  zs_total_out                 10U 0                                      Total bytes written
+      D  zs_msg                         *                                        Last errmsg or null
+      D  zs_state                       *                                        Internal state
+      D  zs_zalloc                      *   procptr                              Int. state allocator
+      D  zs_free                        *   procptr                              Int. state dealloc.
+      D  zs_opaque                      *                                        Private alloc. data
+      D  zs_data_type                 10i 0                                      ASC/BIN best guess
+      D  zs_adler                     10u 0                                      Uncompr. adler32 val
+      D                               10U 0                                      Reserved
+      D                               10U 0                                      Ptr. alignment
+       *
+       **************************************************************************
+       *                     Utility function prototypes
+       **************************************************************************
+       *
+      D compress        PR            10I 0 extproc('compress')
+      D  dest                      32767    options(*varsize)                    Destination buffer
+      D  destLen                      10U 0                                      Destination length
+      D  source                    32767    const options(*varsize)              Source buffer
+      D  sourceLen                    10u 0 value                                Source length
+       *
+      D compress2       PR            10I 0 extproc('compress2')
+      D  dest                      32767    options(*varsize)                    Destination buffer
+      D  destLen                      10U 0                                      Destination length
+      D  source                    32767    const options(*varsize)              Source buffer
+      D  sourceLen                    10U 0 value                                Source length
+      D  level                        10I 0 value                                Compression level
+       *
+      D compressBound   PR            10U 0 extproc('compressBound')
+      D  sourceLen                    10U 0 value
+       *
+      D uncompress      PR            10I 0 extproc('uncompress')
+      D  dest                      32767    options(*varsize)                    Destination buffer
+      D  destLen                      10U 0                                      Destination length
+      D  source                    32767    const options(*varsize)              Source buffer
+      D  sourceLen                    10U 0 value                                Source length
+       *
+      D gzopen          PR                  extproc('gzopen')
+      D                                     like(gzFile)
+      D  path                           *   value options(*string)               File pathname
+      D  mode                           *   value options(*string)               Open mode
+       *
+      D gzdopen         PR                  extproc('gzdopen')
+      D                                     like(gzFile)
+      D  fd                           10i 0 value                                File descriptor
+      D  mode                           *   value options(*string)               Open mode
+       *
+      D gzsetparams     PR            10I 0 extproc('gzsetparams')
+      D  file                               value like(gzFile)                   File pointer
+      D  level                        10I 0 value
+      D  strategy                     10i 0 value
+       *
+      D gzread          PR            10I 0 extproc('gzread')
+      D  file                               value like(gzFile)                   File pointer
+      D  buf                       32767    options(*varsize)                    Buffer
+      D  len                          10u 0 value                                Buffer length
+       *
+      D gzwrite         PR            10I 0 extproc('gzwrite')
+      D  file                               value like(gzFile)                   File pointer
+      D  buf                       32767    const options(*varsize)              Buffer
+      D  len                          10u 0 value                                Buffer length
+       *
+      D gzputs          PR            10I 0 extproc('gzputs')
+      D  file                               value like(gzFile)                   File pointer
+      D  s                              *   value options(*string)               String to output
+       *
+      D gzgets          PR              *   extproc('gzgets')
+      D  file                               value like(gzFile)                   File pointer
+      D  buf                       32767    options(*varsize)                    Read buffer
+      D  len                          10i 0 value                                Buffer length
+       *
+      D gzflush         PR            10i 0 extproc('gzflush')
+      D  file                               value like(gzFile)                   File pointer
+      D  flush                        10I 0 value                                Type of flush
+       *
+      D gzseek          PR                  extproc('gzseek')
+      D                                     like(z_off_t)
+      D  file                               value like(gzFile)                   File pointer
+      D  offset                             value like(z_off_t)                  Offset
+      D  whence                       10i 0 value                                Origin
+       *
+      D gzrewind        PR            10i 0 extproc('gzrewind')
+      D  file                               value like(gzFile)                   File pointer
+       *
+      D gztell          PR                  extproc('gztell')
+      D                                     like(z_off_t)
+      D  file                               value like(gzFile)                   File pointer
+       *
+      D gzeof           PR            10i 0 extproc('gzeof')
+      D  file                               value like(gzFile)                   File pointer
+       *
+      D gzclose         PR            10i 0 extproc('gzclose')
+      D  file                               value like(gzFile)                   File pointer
+       *
+      D gzerror         PR              *   extproc('gzerror')                   Error string
+      D  file                               value like(gzFile)                   File pointer
+      D  errnum                       10I 0                                      Error code
+       *
+      D gzclearerr      PR                  extproc('gzclearerr')
+      D  file                               value like(gzFile)                   File pointer
+       *
+       **************************************************************************
+       *                        Basic function prototypes
+       **************************************************************************
+       *
+      D zlibVersion     PR              *   extproc('zlibVersion')               Version string
+       *
+      D deflateInit     PR            10I 0 extproc('deflateInit_')              Init. compression
+      D  strm                               like(z_stream)                       Compression stream
+      D  level                        10I 0 value                                Compression level
+      D  version                        *   value options(*string)               Version string
+      D  stream_size                  10i 0 value                                Stream struct. size
+       *
+      D deflate         PR            10I 0 extproc('deflate')                   Compress data
+      D  strm                               like(z_stream)                       Compression stream
+      D  flush                        10I 0 value                                Flush type required
+       *
+      D deflateEnd      PR            10I 0 extproc('deflateEnd')                Termin. compression
+      D  strm                               like(z_stream)                       Compression stream
+       *
+      D inflateInit     PR            10I 0 extproc('inflateInit_')              Init. expansion
+      D  strm                               like(z_stream)                       Expansion stream
+      D  version                        *   value options(*string)               Version string
+      D  stream_size                  10i 0 value                                Stream struct. size
+       *
+      D inflate         PR            10I 0 extproc('inflate')                   Expand data
+      D  strm                               like(z_stream)                       Expansion stream
+      D  flush                        10I 0 value                                Flush type required
+       *
+      D inflateEnd      PR            10I 0 extproc('inflateEnd')                Termin. expansion
+      D  strm                               like(z_stream)                       Expansion stream
+       *
+       **************************************************************************
+       *                        Advanced function prototypes
+       **************************************************************************
+       *
+      D deflateInit2    PR            10I 0 extproc('deflateInit2_')             Init. compression
+      D  strm                               like(z_stream)                       Compression stream
+      D  level                        10I 0 value                                Compression level
+      D  method                       10I 0 value                                Compression method
+      D  windowBits                   10I 0 value                                log2(window size)
+      D  memLevel                     10I 0 value                                Mem/cmpress tradeoff
+      D  strategy                     10I 0 value                                Compression stategy
+      D  version                        *   value options(*string)               Version string
+      D  stream_size                  10i 0 value                                Stream struct. size
+       *
+      D deflateSetDictionary...
+      D                 PR            10I 0 extproc('deflateSetDictionary')      Init. dictionary
+      D  strm                               like(z_stream)                       Compression stream
+      D  dictionary                32767    const options(*varsize)              Dictionary bytes
+      D  dictLength                   10U 0 value                                Dictionary length
+       *
+      D deflateCopy     PR            10I 0 extproc('deflateCopy')               Compress strm 2 strm
+      D  dest                               like(z_stream)                       Destination stream
+      D  source                             like(z_stream)                       Source stream
+       *
+      D deflateReset    PR            10I 0 extproc('deflateReset')              End and init. stream
+      D  strm                               like(z_stream)                       Compression stream
+       *
+      D deflateParams   PR            10I 0 extproc('deflateParams')             Change level & strat
+      D  strm                               like(z_stream)                       Compression stream
+      D  level                        10I 0 value                                Compression level
+      D  strategy                     10I 0 value                                Compression stategy
+       *
+      D deflateBound    PR            10U 0 extproc('deflateBound')              Change level & strat
+      D  strm                               like(z_stream)                       Compression stream
+      D  sourcelen                    10U 0 value                                Compression level
+       *
+      D deflatePrime    PR            10I 0 extproc('deflatePrime')              Change level & strat
+      D  strm                               like(z_stream)                       Compression stream
+      D  bits                         10I 0 value                                Number of bits to insert
+      D  value                        10I 0 value                                Bits to insert
+       *
+      D inflateInit2    PR            10I 0 extproc('inflateInit2_')             Init. expansion
+      D  strm                               like(z_stream)                       Expansion stream
+      D  windowBits                   10I 0 value                                log2(window size)
+      D  version                        *   value options(*string)               Version string
+      D  stream_size                  10i 0 value                                Stream struct. size
+       *
+      D inflateSetDictionary...
+      D                 PR            10I 0 extproc('inflateSetDictionary')      Init. dictionary
+      D  strm                               like(z_stream)                       Expansion stream
+      D  dictionary                32767    const options(*varsize)              Dictionary bytes
+      D  dictLength                   10U 0 value                                Dictionary length
+       *
+      D inflateSync     PR            10I 0 extproc('inflateSync')               Sync. expansion
+      D  strm                               like(z_stream)                       Expansion stream
+       *
+      D inflateCopy     PR            10I 0 extproc('inflateCopy')
+      D  dest                               like(z_stream)                       Destination stream
+      D  source                             like(z_stream)                       Source stream
+       *
+      D inflateReset    PR            10I 0 extproc('inflateReset')              End and init. stream
+      D  strm                               like(z_stream)                       Expansion stream
+       *
+      D inflateBackInit...
+      D                 PR            10I 0 extproc('inflateBackInit_')
+      D  strm                               like(z_stream)                       Expansion stream
+      D  windowBits                   10I 0 value                                Log2(buffer size)
+      D  window                    32767    options(*varsize)                    Buffer
+      D  version                        *   value options(*string)               Version string
+      D  stream_size                  10i 0 value                                Stream struct. size
+       *
+      D inflateBack     PR            10I 0 extproc('inflateBack')
+      D  strm                               like(z_stream)                       Expansion stream
+      D  in                             *   value procptr                        Input function
+      D  in_desc                        *   value                                Input descriptor
+      D  out                            *   value procptr                        Output function
+      D  out_desc                       *   value                                Output descriptor
+       *
+      D inflateBackEnd  PR            10I 0 extproc('inflateBackEnd')
+      D  strm                               like(z_stream)                       Expansion stream
+       *
+      D zlibCompileFlags...
+      D                 PR            10U 0 extproc('zlibCompileFlags')
+       *
+       **************************************************************************
+       *                        Checksum function prototypes
+       **************************************************************************
+       *
+      D adler32         PR            10U 0 extproc('adler32')                   New checksum
+      D  adler                        10U 0 value                                Old checksum
+      D  buf                       32767    const options(*varsize)              Bytes to accumulate
+      D  len                          10U 0 value                                Buffer length
+       *
+      D crc32           PR            10U 0 extproc('crc32')                     New checksum
+      D  crc                          10U 0 value                                Old checksum
+      D  buf                       32767    const options(*varsize)              Bytes to accumulate
+      D  len                          10U 0 value                                Buffer length
+       *
+       **************************************************************************
+       *                     Miscellaneous function prototypes
+       **************************************************************************
+       *
+      D zError          PR              *   extproc('zError')                    Error string
+      D  err                          10I 0 value                                Error code
+       *
+      D inflateSyncPoint...
+      D                 PR            10I 0 extproc('inflateSyncPoint')
+      D  strm                               like(z_stream)                       Expansion stream
+       *
+      D get_crc_table   PR              *   extproc('get_crc_table')             Ptr to ulongs
+       *
+       /endif





More information about the llvm-commits mailing list