inflate.c
上传用户:hmc_gdtv
上传日期:2013-08-04
资源大小:798k
文件大小:46k
源码类别:

Windows Mobile

开发平台:

Visual C++

  1. /* inflate.c -- zlib decompression
  2.  * Copyright (C) 1995-2003 Mark Adler
  3.  * For conditions of distribution and use, see copyright notice in zlib.h
  4.  */
  5. /*
  6.  * Change history:
  7.  *
  8.  * 1.2.beta0    24 Nov 2002
  9.  * - First version -- complete rewrite of inflate to simplify code, avoid
  10.  *   creation of window when not needed, minimize use of window when it is
  11.  *   needed, make inffast.c even faster, implement gzip decoding, and to
  12.  *   improve code readability and style over the previous zlib inflate code
  13.  *
  14.  * 1.2.beta1    25 Nov 2002
  15.  * - Use pointers for available input and output checking in inffast.c
  16.  * - Remove input and output counters in inffast.c
  17.  * - Change inffast.c entry and loop from avail_in >= 7 to >= 6
  18.  * - Remove unnecessary second byte pull from length extra in inffast.c
  19.  * - Unroll direct copy to three copies per loop in inffast.c
  20.  *
  21.  * 1.2.beta2    4 Dec 2002
  22.  * - Change external routine names to reduce potential conflicts
  23.  * - Correct filename to inffixed.h for fixed tables in inflate.c
  24.  * - Make hbuf[] unsigned char to match parameter type in inflate.c
  25.  * - Change strm->next_out[-state->offset] to *(strm->next_out - state->offset)
  26.  *   to avoid negation problem on Alphas (64 bit) in inflate.c
  27.  *
  28.  * 1.2.beta3    22 Dec 2002
  29.  * - Add comments on state->bits assertion in inffast.c
  30.  * - Add comments on op field in inftrees.h
  31.  * - Fix bug in reuse of allocated window after inflateReset()
  32.  * - Remove bit fields--back to byte structure for speed
  33.  * - Remove distance extra == 0 check in inflate_fast()--only helps for lengths
  34.  * - Change post-increments to pre-increments in inflate_fast(), PPC biased?
  35.  * - Add compile time option, POSTINC, to use post-increments instead (Intel?)
  36.  * - Make MATCH copy in inflate() much faster for when inflate_fast() not used
  37.  * - Use local copies of stream next and avail values, as well as local bit
  38.  *   buffer and bit count in inflate()--for speed when inflate_fast() not used
  39.  *
  40.  * 1.2.beta4    1 Jan 2003
  41.  * - Split ptr - 257 statements in inflate_table() to avoid compiler warnings
  42.  * - Move a comment on output buffer sizes from inffast.c to inflate.c
  43.  * - Add comments in inffast.c to introduce the inflate_fast() routine
  44.  * - Rearrange window copies in inflate_fast() for speed and simplification
  45.  * - Unroll last copy for window match in inflate_fast()
  46.  * - Use local copies of window variables in inflate_fast() for speed
  47.  * - Pull out common write == 0 case for speed in inflate_fast()
  48.  * - Make op and len in inflate_fast() unsigned for consistency
  49.  * - Add FAR to lcode and dcode declarations in inflate_fast()
  50.  * - Simplified bad distance check in inflate_fast()
  51.  * - Added inflateBackInit(), inflateBack(), and inflateBackEnd() in new
  52.  *   source file infback.c to provide a call-back interface to inflate for
  53.  *   programs like gzip and unzip -- uses window as output buffer to avoid
  54.  *   window copying
  55.  *
  56.  * 1.2.beta5    1 Jan 2003
  57.  * - Improved inflateBack() interface to allow the caller to provide initial
  58.  *   input in strm.
  59.  * - Fixed stored blocks bug in inflateBack()
  60.  *
  61.  * 1.2.beta6    4 Jan 2003
  62.  * - Added comments in inffast.c on effectiveness of POSTINC
  63.  * - Typecasting all around to reduce compiler warnings
  64.  * - Changed loops from while (1) or do {} while (1) to for (;;), again to
  65.  *   make compilers happy
  66.  * - Changed type of window in inflateBackInit() to unsigned char *
  67.  *
  68.  * 1.2.beta7    27 Jan 2003
  69.  * - Changed many types to unsigned or unsigned short to avoid warnings
  70.  * - Added inflateCopy() function
  71.  *
  72.  * 1.2.0        9 Mar 2003
  73.  * - Changed inflateBack() interface to provide separate opaque descriptors
  74.  *   for the in() and out() functions
  75.  * - Changed inflateBack() argument and in_func typedef to swap the length
  76.  *   and buffer address return values for the input function
  77.  * - Check next_in and next_out for Z_NULL on entry to inflate()
  78.  *
  79.  * The history for versions after 1.2.0 are in ChangeLog in zlib distribution.
  80.  */
  81. #include "zutil.h"
  82. #include "inftrees.h"
  83. #include "inflate.h"
  84. #include "inffast.h"
  85. #ifdef MAKEFIXED
  86. #  ifndef BUILDFIXED
  87. #    define BUILDFIXED
  88. #  endif
  89. #endif
  90. /* function prototypes */
  91. local void fixedtables OF((struct inflate_state FAR *state));
  92. local int updatewindow OF((z_streamp strm, unsigned out));
  93. #ifdef BUILDFIXED
  94.    void makefixed OF((void));
  95. #endif
  96. local unsigned syncsearch OF((unsigned FAR *have, unsigned char FAR *buf,
  97.                               unsigned len));
  98. int ZEXPORT inflateReset(strm)
  99. z_streamp strm;
  100. {
  101.     struct inflate_state FAR *state;
  102.     if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
  103.     state = (struct inflate_state FAR *)strm->state;
  104.     strm->total_in = strm->total_out = state->total = 0;
  105.     strm->msg = Z_NULL;
  106.     strm->adler = 1;        /* to support ill-conceived Java test suite */
  107.     state->mode = HEAD;
  108.     state->last = 0;
  109.     state->havedict = 0;
  110.     state->wsize = 0;
  111.     state->whave = 0;
  112.     state->hold = 0;
  113.     state->bits = 0;
  114.     state->lencode = state->distcode = state->next = state->codes;
  115.     Tracev((stderr, "inflate: resetn"));
  116.     return Z_OK;
  117. }
  118. int ZEXPORT inflateInit2_(strm, windowBits, version, stream_size)
  119. z_streamp strm;
  120. int windowBits;
  121. const char *version;
  122. int stream_size;
  123. {
  124.     struct inflate_state FAR *state;
  125.     if (version == Z_NULL || version[0] != ZLIB_VERSION[0] ||
  126.         stream_size != (int)(sizeof(z_stream)))
  127.         return Z_VERSION_ERROR;
  128.     if (strm == Z_NULL) return Z_STREAM_ERROR;
  129.     strm->msg = Z_NULL;                 /* in case we return an error */
  130.     if (strm->zalloc == (alloc_func)0) {
  131.         strm->zalloc = zcalloc;
  132.         strm->opaque = (voidpf)0;
  133.     }
  134.     if (strm->zfree == (free_func)0) strm->zfree = zcfree;
  135.     state = (struct inflate_state FAR *)
  136.             ZALLOC(strm, 1, sizeof(struct inflate_state));
  137.     if (state == Z_NULL) return Z_MEM_ERROR;
  138.     Tracev((stderr, "inflate: allocatedn"));
  139.     strm->state = (voidpf)state;
  140.     if (windowBits < 0) {
  141.         state->wrap = 0;
  142.         windowBits = -windowBits;
  143.     }
  144.     else {
  145.         state->wrap = (windowBits >> 4) + 1;
  146. #ifdef GUNZIP
  147.         if (windowBits < 48) windowBits &= 15;
  148. #endif
  149.     }
  150.     if (windowBits < 8 || windowBits > 15) {
  151.         ZFREE(strm, state);
  152.         strm->state = Z_NULL;
  153.         return Z_STREAM_ERROR;
  154.     }
  155.     state->wbits = (unsigned)windowBits;
  156.     state->window = Z_NULL;
  157.     return inflateReset(strm);
  158. }
  159. int ZEXPORT inflateInit_(strm, version, stream_size)
  160. z_streamp strm;
  161. const char *version;
  162. int stream_size;
  163. {
  164.     return inflateInit2_(strm, DEF_WBITS, version, stream_size);
  165. }
  166. /*
  167.    Return state with length and distance decoding tables and index sizes set to
  168.    fixed code decoding.  Normally this returns fixed tables from inffixed.h.
  169.    If BUILDFIXED is defined, then instead this routine builds the tables the
  170.    first time it's called, and returns those tables the first time and
  171.    thereafter.  This reduces the size of the code by about 2K bytes, in
  172.    exchange for a little execution time.  However, BUILDFIXED should not be
  173.    used for threaded applications, since the rewriting of the tables and virgin
  174.    may not be thread-safe.
  175.  */
  176. local void fixedtables(state)
  177. struct inflate_state FAR *state;
  178. {
  179. #ifdef BUILDFIXED
  180.     static int virgin = 1;
  181.     static code *lenfix, *distfix;
  182.     static code fixed[544];
  183.     /* build fixed huffman tables if first call (may not be thread safe) */
  184.     if (virgin) {
  185.         unsigned sym, bits;
  186.         static code *next;
  187.         /* literal/length table */
  188.         sym = 0;
  189.         while (sym < 144) state->lens[sym++] = 8;
  190.         while (sym < 256) state->lens[sym++] = 9;
  191.         while (sym < 280) state->lens[sym++] = 7;
  192.         while (sym < 288) state->lens[sym++] = 8;
  193.         next = fixed;
  194.         lenfix = next;
  195.         bits = 9;
  196.         inflate_table(LENS, state->lens, 288, &(next), &(bits), state->work);
  197.         /* distance table */
  198.         sym = 0;
  199.         while (sym < 32) state->lens[sym++] = 5;
  200.         distfix = next;
  201.         bits = 5;
  202.         inflate_table(DISTS, state->lens, 32, &(next), &(bits), state->work);
  203.         /* do this just once */
  204.         virgin = 0;
  205.     }
  206. #else /* !BUILDFIXED */
  207. #   include "inffixed.h"
  208. #endif /* BUILDFIXED */
  209.     state->lencode = lenfix;
  210.     state->lenbits = 9;
  211.     state->distcode = distfix;
  212.     state->distbits = 5;
  213. }
  214. #ifdef MAKEFIXED
  215. #include <stdio.h>
  216. /*
  217.    Write out the inffixed.h that is #include'd above.  Defining MAKEFIXED also
  218.    defines BUILDFIXED, so the tables are built on the fly.  makefixed() writes
  219.    those tables to stdout, which would be piped to inffixed.h.  A small program
  220.    can simply call makefixed to do this:
  221.     void makefixed(void);
  222.     int main(void)
  223.     {
  224.         makefixed();
  225.         return 0;
  226.     }
  227.    Then that can be linked with zlib built with MAKEFIXED defined and run:
  228.     a.out > inffixed.h
  229.  */
  230. void makefixed()
  231. {
  232.     unsigned low, size;
  233.     struct inflate_state state;
  234.     fixedtables(&state);
  235.     puts("    /* inffixed.h -- table for decoding fixed codes");
  236.     puts("     * Generated automatically by makefixed().");
  237.     puts("     */");
  238.     puts("");
  239.     puts("    /* WARNING: this file should *not* be used by applications.");
  240.     puts("       It is part of the implementation of this library and is");
  241.     puts("       subject to change. Applications should only use zlib.h.");
  242.     puts("     */");
  243.     puts("");
  244.     size = 1U << 9;
  245.     printf("    static const code lenfix[%u] = {", size);
  246.     low = 0;
  247.     for (;;) {
  248.         if ((low % 7) == 0) printf("n        ");
  249.         printf("{%u,%u,%d}", state.lencode[low].op, state.lencode[low].bits,
  250.                state.lencode[low].val);
  251.         if (++low == size) break;
  252.         putchar(',');
  253.     }
  254.     puts("n    };");
  255.     size = 1U << 5;
  256.     printf("n    static const code distfix[%u] = {", size);
  257.     low = 0;
  258.     for (;;) {
  259.         if ((low % 6) == 0) printf("n        ");
  260.         printf("{%u,%u,%d}", state.distcode[low].op, state.distcode[low].bits,
  261.                state.distcode[low].val);
  262.         if (++low == size) break;
  263.         putchar(',');
  264.     }
  265.     puts("n    };");
  266. }
  267. #endif /* MAKEFIXED */
  268. /*
  269.    Update the window with the last wsize (normally 32K) bytes written before
  270.    returning.  If window does not exist yet, create it.  This is only called
  271.    when a window is already in use, or when output has been written during this
  272.    inflate call, but the end of the deflate stream has not been reached yet.
  273.    It is also called to create a window for dictionary data when a dictionary
  274.    is loaded.
  275.    Providing output buffers larger than 32K to inflate() should provide a speed
  276.    advantage, since only the last 32K of output is copied to the sliding window
  277.    upon return from inflate(), and since all distances after the first 32K of
  278.    output will fall in the output data, making match copies simpler and faster.
  279.    The advantage may be dependent on the size of the processor's data caches.
  280.  */
  281. local int updatewindow(strm, out)
  282. z_streamp strm;
  283. unsigned out;
  284. {
  285.     struct inflate_state FAR *state;
  286.     unsigned copy, dist;
  287.     state = (struct inflate_state FAR *)strm->state;
  288.     /* if it hasn't been done already, allocate space for the window */
  289.     if (state->window == Z_NULL) {
  290.         state->window = (unsigned char FAR *)
  291.                         ZALLOC(strm, 1U << state->wbits,
  292.                                sizeof(unsigned char));
  293.         if (state->window == Z_NULL) return 1;
  294.     }
  295.     /* if window not in use yet, initialize */
  296.     if (state->wsize == 0) {
  297.         state->wsize = 1U << state->wbits;
  298.         state->write = 0;
  299.         state->whave = 0;
  300.     }
  301.     /* copy state->wsize or less output bytes into the circular window */
  302.     copy = out - strm->avail_out;
  303.     if (copy >= state->wsize) {
  304.         zmemcpy(state->window, strm->next_out - state->wsize, state->wsize);
  305.         state->write = 0;
  306.         state->whave = state->wsize;
  307.     }
  308.     else {
  309.         dist = state->wsize - state->write;
  310.         if (dist > copy) dist = copy;
  311.         zmemcpy(state->window + state->write, strm->next_out - copy, dist);
  312.         copy -= dist;
  313.         if (copy) {
  314.             zmemcpy(state->window, strm->next_out - copy, copy);
  315.             state->write = copy;
  316.             state->whave = state->wsize;
  317.         }
  318.         else {
  319.             state->write += dist;
  320.             if (state->write == state->wsize) state->write = 0;
  321.             if (state->whave < state->wsize) state->whave += dist;
  322.         }
  323.     }
  324.     return 0;
  325. }
  326. /* Macros for inflate(): */
  327. /* check function to use adler32() for zlib or crc32() for gzip */
  328. #ifdef GUNZIP
  329. #  define UPDATE(check, buf, len) 
  330.     (state->flags ? crc32(check, buf, len) : adler32(check, buf, len))
  331. #else
  332. #  define UPDATE(check, buf, len) adler32(check, buf, len)
  333. #endif
  334. /* check macros for header crc */
  335. #ifdef GUNZIP
  336. #  define CRC2(check, word) 
  337.     do { 
  338.         hbuf[0] = (unsigned char)(word); 
  339.         hbuf[1] = (unsigned char)((word) >> 8); 
  340.         check = crc32(check, hbuf, 2); 
  341.     } while (0)
  342. #  define CRC4(check, word) 
  343.     do { 
  344.         hbuf[0] = (unsigned char)(word); 
  345.         hbuf[1] = (unsigned char)((word) >> 8); 
  346.         hbuf[2] = (unsigned char)((word) >> 16); 
  347.         hbuf[3] = (unsigned char)((word) >> 24); 
  348.         check = crc32(check, hbuf, 4); 
  349.     } while (0)
  350. #endif
  351. /* Load registers with state in inflate() for speed */
  352. #define LOAD() 
  353.     do { 
  354.         put = strm->next_out; 
  355.         left = strm->avail_out; 
  356.         next = strm->next_in; 
  357.         have = strm->avail_in; 
  358.         hold = state->hold; 
  359.         bits = state->bits; 
  360.     } while (0)
  361. /* Restore state from registers in inflate() */
  362. #define RESTORE() 
  363.     do { 
  364.         strm->next_out = put; 
  365.         strm->avail_out = left; 
  366.         strm->next_in = next; 
  367.         strm->avail_in = have; 
  368.         state->hold = hold; 
  369.         state->bits = bits; 
  370.     } while (0)
  371. /* Clear the input bit accumulator */
  372. #define INITBITS() 
  373.     do { 
  374.         hold = 0; 
  375.         bits = 0; 
  376.     } while (0)
  377. /* Get a byte of input into the bit accumulator, or return from inflate()
  378.    if there is no input available. */
  379. #define PULLBYTE() 
  380.     do { 
  381.         if (have == 0) goto inf_leave; 
  382.         have--; 
  383.         hold += (unsigned long)(*next++) << bits; 
  384.         bits += 8; 
  385.     } while (0)
  386. /* Assure that there are at least n bits in the bit accumulator.  If there is
  387.    not enough available input to do that, then return from inflate(). */
  388. #define NEEDBITS(n) 
  389.     do { 
  390.         while (bits < (unsigned)(n)) 
  391.             PULLBYTE(); 
  392.     } while (0)
  393. /* Return the low n bits of the bit accumulator (n < 16) */
  394. #define BITS(n) 
  395.     ((unsigned)hold & ((1U << (n)) - 1))
  396. /* Remove n bits from the bit accumulator */
  397. #define DROPBITS(n) 
  398.     do { 
  399.         hold >>= (n); 
  400.         bits -= (unsigned)(n); 
  401.     } while (0)
  402. /* Remove zero to seven bits as needed to go to a byte boundary */
  403. #define BYTEBITS() 
  404.     do { 
  405.         hold >>= bits & 7; 
  406.         bits -= bits & 7; 
  407.     } while (0)
  408. /* Reverse the bytes in a 32-bit value */
  409. #define REVERSE(q) 
  410.     ((((q) >> 24) & 0xff) + (((q) >> 8) & 0xff00) + 
  411.      (((q) & 0xff00) << 8) + (((q) & 0xff) << 24))
  412. /*
  413.    inflate() uses a state machine to process as much input data and generate as
  414.    much output data as possible before returning.  The state machine is
  415.    structured roughly as follows:
  416.     for (;;) switch (state) {
  417.     ...
  418.     case STATEn:
  419.         if (not enough input data or output space to make progress)
  420.             return;
  421.         ... make progress ...
  422.         state = STATEm;
  423.         break;
  424.     ...
  425.     }
  426.    so when inflate() is called again, the same case is attempted again, and
  427.    if the appropriate resources are provided, the machine proceeds to the
  428.    next state.  The NEEDBITS() macro is usually the way the state evaluates
  429.    whether it can proceed or should return.  NEEDBITS() does the return if
  430.    the requested bits are not available.  The typical use of the BITS macros
  431.    is:
  432.         NEEDBITS(n);
  433.         ... do something with BITS(n) ...
  434.         DROPBITS(n);
  435.    where NEEDBITS(n) either returns from inflate() if there isn't enough
  436.    input left to load n bits into the accumulator, or it continues.  BITS(n)
  437.    gives the low n bits in the accumulator.  When done, DROPBITS(n) drops
  438.    the low n bits off the accumulator.  INITBITS() clears the accumulator
  439.    and sets the number of available bits to zero.  BYTEBITS() discards just
  440.    enough bits to put the accumulator on a byte boundary.  After BYTEBITS()
  441.    and a NEEDBITS(8), then BITS(8) would return the next byte in the stream.
  442.    NEEDBITS(n) uses PULLBYTE() to get an available byte of input, or to return
  443.    if there is no input available.  The decoding of variable length codes uses
  444.    PULLBYTE() directly in order to pull just enough bytes to decode the next
  445.    code, and no more.
  446.    Some states loop until they get enough input, making sure that enough
  447.    state information is maintained to continue the loop where it left off
  448.    if NEEDBITS() returns in the loop.  For example, want, need, and keep
  449.    would all have to actually be part of the saved state in case NEEDBITS()
  450.    returns:
  451.     case STATEw:
  452.         while (want < need) {
  453.             NEEDBITS(n);
  454.             keep[want++] = BITS(n);
  455.             DROPBITS(n);
  456.         }
  457.         state = STATEx;
  458.     case STATEx:
  459.    As shown above, if the next state is also the next case, then the break
  460.    is omitted.
  461.    A state may also return if there is not enough output space available to
  462.    complete that state.  Those states are copying stored data, writing a
  463.    literal byte, and copying a matching string.
  464.    When returning, a "goto inf_leave" is used to update the total counters,
  465.    update the check value, and determine whether any progress has been made
  466.    during that inflate() call in order to return the proper return code.
  467.    Progress is defined as a change in either strm->avail_in or strm->avail_out.
  468.    When there is a window, goto inf_leave will update the window with the last
  469.    output written.  If a goto inf_leave occurs in the middle of decompression
  470.    and there is no window currently, goto inf_leave will create one and copy
  471.    output to the window for the next call of inflate().
  472.    In this implementation, the flush parameter of inflate() only affects the
  473.    return code (per zlib.h).  inflate() always writes as much as possible to
  474.    strm->next_out, given the space available and the provided input--the effect
  475.    documented in zlib.h of Z_SYNC_FLUSH.  Furthermore, inflate() always defers
  476.    the allocation of and copying into a sliding window until necessary, which
  477.    provides the effect documented in zlib.h for Z_FINISH when the entire input
  478.    stream available.  So the only thing the flush parameter actually does is:
  479.    when flush is set to Z_FINISH, inflate() cannot return Z_OK.  Instead it
  480.    will return Z_BUF_ERROR if it has not reached the end of the stream.
  481.  */
  482. int ZEXPORT inflate(strm, flush)
  483. z_streamp strm;
  484. int flush;
  485. {
  486.     struct inflate_state FAR *state;
  487.     unsigned char FAR *next;    /* next input */
  488.     unsigned char FAR *put;     /* next output */
  489.     unsigned have, left;        /* available input and output */
  490.     unsigned long hold;         /* bit buffer */
  491.     unsigned bits;              /* bits in bit buffer */
  492.     unsigned in, out;           /* save starting available input and output */
  493.     unsigned copy;              /* number of stored or match bytes to copy */
  494.     unsigned char FAR *from;    /* where to copy match bytes from */
  495.     code this;                  /* current decoding table entry */
  496.     code last;                  /* parent table entry */
  497.     unsigned len;               /* length to copy for repeats, bits to drop */
  498.     int ret;                    /* return code */
  499. #ifdef GUNZIP
  500.     unsigned char hbuf[4];      /* buffer for gzip header crc calculation */
  501. #endif
  502.     static const unsigned short order[19] = /* permutation of code lengths */
  503.         {16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15};
  504.     if (strm == Z_NULL || strm->state == Z_NULL || strm->next_out == Z_NULL ||
  505.         (strm->next_in == Z_NULL && strm->avail_in != 0))
  506.         return Z_STREAM_ERROR;
  507.     state = (struct inflate_state FAR *)strm->state;
  508.     if (state->mode == TYPE) state->mode = TYPEDO;      /* skip check */
  509.     LOAD();
  510.     in = have;
  511.     out = left;
  512.     ret = Z_OK;
  513.     for (;;)
  514.         switch (state->mode) {
  515.         case HEAD:
  516.             if (state->wrap == 0) {
  517.                 state->mode = TYPEDO;
  518.                 break;
  519.             }
  520.             NEEDBITS(16);
  521. #ifdef GUNZIP
  522.             if ((state->wrap & 2) && hold == 0x8b1f) {  /* gzip header */
  523.                 state->check = crc32(0L, Z_NULL, 0);
  524.                 CRC2(state->check, hold);
  525.                 INITBITS();
  526.                 state->mode = FLAGS;
  527.                 break;
  528.             }
  529.             state->flags = 0;           /* expect zlib header */
  530.             if (!(state->wrap & 1) ||   /* check if zlib header allowed */
  531. #else
  532.             if (
  533. #endif
  534.                 ((BITS(8) << 8) + (hold >> 8)) % 31) {
  535.                 strm->msg = (char *)"incorrect header check";
  536.                 state->mode = BAD;
  537.                 break;
  538.             }
  539.             if (BITS(4) != Z_DEFLATED) {
  540.                 strm->msg = (char *)"unknown compression method";
  541.                 state->mode = BAD;
  542.                 break;
  543.             }
  544.             DROPBITS(4);
  545.             if (BITS(4) + 8 > state->wbits) {
  546.                 strm->msg = (char *)"invalid window size";
  547.                 state->mode = BAD;
  548.                 break;
  549.             }
  550.             Tracev((stderr, "inflate:   zlib header okn"));
  551.             strm->adler = state->check = adler32(0L, Z_NULL, 0);
  552.             state->mode = hold & 0x200 ? DICTID : TYPE;
  553.             INITBITS();
  554.             break;
  555. #ifdef GUNZIP
  556.         case FLAGS:
  557.             NEEDBITS(16);
  558.             state->flags = (int)(hold);
  559.             if ((state->flags & 0xff) != Z_DEFLATED) {
  560.                 strm->msg = (char *)"unknown compression method";
  561.                 state->mode = BAD;
  562.                 break;
  563.             }
  564.             if (state->flags & 0xe000) {
  565.                 strm->msg = (char *)"unknown header flags set";
  566.                 state->mode = BAD;
  567.                 break;
  568.             }
  569.             if (state->flags & 0x0200) CRC2(state->check, hold);
  570.             INITBITS();
  571.             state->mode = TIME;
  572.         case TIME:
  573.             NEEDBITS(32);
  574.             if (state->flags & 0x0200) CRC4(state->check, hold);
  575.             INITBITS();
  576.             state->mode = OS;
  577.         case OS:
  578.             NEEDBITS(16);
  579.             if (state->flags & 0x0200) CRC2(state->check, hold);
  580.             INITBITS();
  581.             state->mode = EXLEN;
  582.         case EXLEN:
  583.             if (state->flags & 0x0400) {
  584.                 NEEDBITS(16);
  585.                 state->length = (unsigned)(hold);
  586.                 if (state->flags & 0x0200) CRC2(state->check, hold);
  587.                 INITBITS();
  588.             }
  589.             state->mode = EXTRA;
  590.         case EXTRA:
  591.             if (state->flags & 0x0400) {
  592.                 copy = state->length;
  593.                 if (copy > have) copy = have;
  594.                 if (copy) {
  595.                     if (state->flags & 0x0200)
  596.                         state->check = crc32(state->check, next, copy);
  597.                     have -= copy;
  598.                     next += copy;
  599.                     state->length -= copy;
  600.                 }
  601.                 if (state->length) goto inf_leave;
  602.             }
  603.             state->mode = NAME;
  604.         case NAME:
  605.             if (state->flags & 0x0800) {
  606.                 if (have == 0) goto inf_leave;
  607.                 copy = 0;
  608.                 do {
  609.                     len = (unsigned)(next[copy++]);
  610.                 } while (len && copy < have);
  611.                 if (state->flags & 0x02000)
  612.                     state->check = crc32(state->check, next, copy);
  613.                 have -= copy;
  614.                 next += copy;
  615.                 if (len) goto inf_leave;
  616.             }
  617.             state->mode = COMMENT;
  618.         case COMMENT:
  619.             if (state->flags & 0x1000) {
  620.                 if (have == 0) goto inf_leave;
  621.                 copy = 0;
  622.                 do {
  623.                     len = (unsigned)(next[copy++]);
  624.                 } while (len && copy < have);
  625.                 if (state->flags & 0x02000)
  626.                     state->check = crc32(state->check, next, copy);
  627.                 have -= copy;
  628.                 next += copy;
  629.                 if (len) goto inf_leave;
  630.             }
  631.             state->mode = HCRC;
  632.         case HCRC:
  633.             if (state->flags & 0x0200) {
  634.                 NEEDBITS(16);
  635.                 if (hold != (state->check & 0xffff)) {
  636.                     strm->msg = (char *)"header crc mismatch";
  637.                     state->mode = BAD;
  638.                     break;
  639.                 }
  640.                 INITBITS();
  641.             }
  642.             strm->adler = state->check = crc32(0L, Z_NULL, 0);
  643.             state->mode = TYPE;
  644.             break;
  645. #endif
  646.         case DICTID:
  647.             NEEDBITS(32);
  648.             strm->adler = state->check = REVERSE(hold);
  649.             INITBITS();
  650.             state->mode = DICT;
  651.         case DICT:
  652.             if (state->havedict == 0) {
  653.                 RESTORE();
  654.                 return Z_NEED_DICT;
  655.             }
  656.             strm->adler = state->check = adler32(0L, Z_NULL, 0);
  657.             state->mode = TYPE;
  658.         case TYPE:
  659.             if (flush == Z_BLOCK) goto inf_leave;
  660.         case TYPEDO:
  661.             if (state->last) {
  662.                 BYTEBITS();
  663.                 state->mode = CHECK;
  664.                 break;
  665.             }
  666.             NEEDBITS(3);
  667.             state->last = BITS(1);
  668.             DROPBITS(1);
  669.             switch (BITS(2)) {
  670.             case 0:                             /* stored block */
  671.                 Tracev((stderr, "inflate:     stored block%sn",
  672.                         state->last ? " (last)" : ""));
  673.                 state->mode = STORED;
  674.                 break;
  675.             case 1:                             /* fixed block */
  676.                 fixedtables(state);
  677.                 Tracev((stderr, "inflate:     fixed codes block%sn",
  678.                         state->last ? " (last)" : ""));
  679.                 state->mode = LEN;              /* decode codes */
  680.                 break;
  681.             case 2:                             /* dynamic block */
  682.                 Tracev((stderr, "inflate:     dynamic codes block%sn",
  683.                         state->last ? " (last)" : ""));
  684.                 state->mode = TABLE;
  685.                 break;
  686.             case 3:
  687.                 strm->msg = (char *)"invalid block type";
  688.                 state->mode = BAD;
  689.             }
  690.             DROPBITS(2);
  691.             break;
  692.         case STORED:
  693.             BYTEBITS();                         /* go to byte boundary */
  694.             NEEDBITS(32);
  695.             if ((hold & 0xffff) != ((hold >> 16) ^ 0xffff)) {
  696.                 strm->msg = (char *)"invalid stored block lengths";
  697.                 state->mode = BAD;
  698.                 break;
  699.             }
  700.             state->length = (unsigned)hold & 0xffff;
  701.             Tracev((stderr, "inflate:       stored length %un",
  702.                     state->length));
  703.             INITBITS();
  704.             state->mode = COPY;
  705.         case COPY:
  706.             copy = state->length;
  707.             if (copy) {
  708.                 if (copy > have) copy = have;
  709.                 if (copy > left) copy = left;
  710.                 if (copy == 0) goto inf_leave;
  711.                 zmemcpy(put, next, copy);
  712.                 have -= copy;
  713.                 next += copy;
  714.                 left -= copy;
  715.                 put += copy;
  716.                 state->length -= copy;
  717.                 break;
  718.             }
  719.             Tracev((stderr, "inflate:       stored endn"));
  720.             state->mode = TYPE;
  721.             break;
  722.         case TABLE:
  723.             NEEDBITS(14);
  724.             state->nlen = BITS(5) + 257;
  725.             DROPBITS(5);
  726.             state->ndist = BITS(5) + 1;
  727.             DROPBITS(5);
  728.             state->ncode = BITS(4) + 4;
  729.             DROPBITS(4);
  730. #ifndef PKZIP_BUG_WORKAROUND
  731.             if (state->nlen > 286 || state->ndist > 30) {
  732.                 strm->msg = (char *)"too many length or distance symbols";
  733.                 state->mode = BAD;
  734.                 break;
  735.             }
  736. #endif
  737.             Tracev((stderr, "inflate:       table sizes okn"));
  738.             state->have = 0;
  739.             state->mode = LENLENS;
  740.         case LENLENS:
  741.             while (state->have < state->ncode) {
  742.                 NEEDBITS(3);
  743.                 state->lens[order[state->have++]] = (unsigned short)BITS(3);
  744.                 DROPBITS(3);
  745.             }
  746.             while (state->have < 19)
  747.                 state->lens[order[state->have++]] = 0;
  748.             state->next = state->codes;
  749.             state->lencode = (code const FAR *)(state->next);
  750.             state->lenbits = 7;
  751.             ret = inflate_table(CODES, state->lens, 19, &(state->next),
  752.                                 &(state->lenbits), state->work);
  753.             if (ret) {
  754.                 strm->msg = (char *)"invalid code lengths set";
  755.                 state->mode = BAD;
  756.                 break;
  757.             }
  758.             Tracev((stderr, "inflate:       code lengths okn"));
  759.             state->have = 0;
  760.             state->mode = CODELENS;
  761.         case CODELENS:
  762.             while (state->have < state->nlen + state->ndist) {
  763.                 for (;;) {
  764.                     this = state->lencode[BITS(state->lenbits)];
  765.                     if ((unsigned)(this.bits) <= bits) break;
  766.                     PULLBYTE();
  767.                 }
  768.                 if (this.val < 16) {
  769.                     NEEDBITS(this.bits);
  770.                     DROPBITS(this.bits);
  771.                     state->lens[state->have++] = this.val;
  772.                 }
  773.                 else {
  774.                     if (this.val == 16) {
  775.                         NEEDBITS(this.bits + 2);
  776.                         DROPBITS(this.bits);
  777.                         if (state->have == 0) {
  778.                             strm->msg = (char *)"invalid bit length repeat";
  779.                             state->mode = BAD;
  780.                             break;
  781.                         }
  782.                         len = state->lens[state->have - 1];
  783.                         copy = 3 + BITS(2);
  784.                         DROPBITS(2);
  785.                     }
  786.                     else if (this.val == 17) {
  787.                         NEEDBITS(this.bits + 3);
  788.                         DROPBITS(this.bits);
  789.                         len = 0;
  790.                         copy = 3 + BITS(3);
  791.                         DROPBITS(3);
  792.                     }
  793.                     else {
  794.                         NEEDBITS(this.bits + 7);
  795.                         DROPBITS(this.bits);
  796.                         len = 0;
  797.                         copy = 11 + BITS(7);
  798.                         DROPBITS(7);
  799.                     }
  800.                     if (state->have + copy > state->nlen + state->ndist) {
  801.                         strm->msg = (char *)"invalid bit length repeat";
  802.                         state->mode = BAD;
  803.                         break;
  804.                     }
  805.                     while (copy--)
  806.                         state->lens[state->have++] = (unsigned short)len;
  807.                 }
  808.             }
  809.             /* handle error breaks in while */
  810.             if (state->mode == BAD) break;
  811.             /* build code tables */
  812.             state->next = state->codes;
  813.             state->lencode = (code const FAR *)(state->next);
  814.             state->lenbits = 9;
  815.             ret = inflate_table(LENS, state->lens, state->nlen, &(state->next),
  816.                                 &(state->lenbits), state->work);
  817.             if (ret) {
  818.                 strm->msg = (char *)"invalid literal/lengths set";
  819.                 state->mode = BAD;
  820.                 break;
  821.             }
  822.             state->distcode = (code const FAR *)(state->next);
  823.             state->distbits = 6;
  824.             ret = inflate_table(DISTS, state->lens + state->nlen, state->ndist,
  825.                             &(state->next), &(state->distbits), state->work);
  826.             if (ret) {
  827.                 strm->msg = (char *)"invalid distances set";
  828.                 state->mode = BAD;
  829.                 break;
  830.             }
  831.             Tracev((stderr, "inflate:       codes okn"));
  832.             state->mode = LEN;
  833.         case LEN:
  834.             if (have >= 6 && left >= 258) {
  835.                 RESTORE();
  836.                 inflate_fast(strm, out);
  837.                 LOAD();
  838.                 break;
  839.             }
  840.             for (;;) {
  841.                 this = state->lencode[BITS(state->lenbits)];
  842.                 if ((unsigned)(this.bits) <= bits) break;
  843.                 PULLBYTE();
  844.             }
  845.             if (this.op && (this.op & 0xf0) == 0) {
  846.                 last = this;
  847.                 for (;;) {
  848.                     this = state->lencode[last.val +
  849.                             (BITS(last.bits + last.op) >> last.bits)];
  850.                     if ((unsigned)(last.bits + this.bits) <= bits) break;
  851.                     PULLBYTE();
  852.                 }
  853.                 DROPBITS(last.bits);
  854.             }
  855.             DROPBITS(this.bits);
  856.             state->length = (unsigned)this.val;
  857.             if ((int)(this.op) == 0) {
  858.                 Tracevv((stderr, this.val >= 0x20 && this.val < 0x7f ?
  859.                         "inflate:         literal '%c'n" :
  860.                         "inflate:         literal 0x%02xn", this.val));
  861.                 state->mode = LIT;
  862.                 break;
  863.             }
  864.             if (this.op & 32) {
  865.                 Tracevv((stderr, "inflate:         end of blockn"));
  866.                 state->mode = TYPE;
  867.                 break;
  868.             }
  869.             if (this.op & 64) {
  870.                 strm->msg = (char *)"invalid literal/length code";
  871.                 state->mode = BAD;
  872.                 break;
  873.             }
  874.             state->extra = (unsigned)(this.op) & 15;
  875.             state->mode = LENEXT;
  876.         case LENEXT:
  877.             if (state->extra) {
  878.                 NEEDBITS(state->extra);
  879.                 state->length += BITS(state->extra);
  880.                 DROPBITS(state->extra);
  881.             }
  882.             Tracevv((stderr, "inflate:         length %un", state->length));
  883.             state->mode = DIST;
  884.         case DIST:
  885.             for (;;) {
  886.                 this = state->distcode[BITS(state->distbits)];
  887.                 if ((unsigned)(this.bits) <= bits) break;
  888.                 PULLBYTE();
  889.             }
  890.             if ((this.op & 0xf0) == 0) {
  891.                 last = this;
  892.                 for (;;) {
  893.                     this = state->distcode[last.val +
  894.                             (BITS(last.bits + last.op) >> last.bits)];
  895.                     if ((unsigned)(last.bits + this.bits) <= bits) break;
  896.                     PULLBYTE();
  897.                 }
  898.                 DROPBITS(last.bits);
  899.             }
  900.             DROPBITS(this.bits);
  901.             if (this.op & 64) {
  902.                 strm->msg = (char *)"invalid distance code";
  903.                 state->mode = BAD;
  904.                 break;
  905.             }
  906.             state->offset = (unsigned)this.val;
  907.             state->extra = (unsigned)(this.op) & 15;
  908.             state->mode = DISTEXT;
  909.         case DISTEXT:
  910.             if (state->extra) {
  911.                 NEEDBITS(state->extra);
  912.                 state->offset += BITS(state->extra);
  913.                 DROPBITS(state->extra);
  914.             }
  915.             if (state->offset > state->whave + out - left) {
  916.                 strm->msg = (char *)"invalid distance too far back";
  917.                 state->mode = BAD;
  918.                 break;
  919.             }
  920.             Tracevv((stderr, "inflate:         distance %un", state->offset));
  921.             state->mode = MATCH;
  922.         case MATCH:
  923.             if (left == 0) goto inf_leave;
  924.             copy = out - left;
  925.             if (state->offset > copy) {         /* copy from window */
  926.                 copy = state->offset - copy;
  927.                 if (copy > state->write) {
  928.                     copy -= state->write;
  929.                     from = state->window + (state->wsize - copy);
  930.                 }
  931.                 else
  932.                     from = state->window + (state->write - copy);
  933.                 if (copy > state->length) copy = state->length;
  934.             }
  935.             else {                              /* copy from output */
  936.                 from = put - state->offset;
  937.                 copy = state->length;
  938.             }
  939.             if (copy > left) copy = left;
  940.             left -= copy;
  941.             state->length -= copy;
  942.             do {
  943.                 *put++ = *from++;
  944.             } while (--copy);
  945.             if (state->length == 0) state->mode = LEN;
  946.             break;
  947.         case LIT:
  948.             if (left == 0) goto inf_leave;
  949.             *put++ = (unsigned char)(state->length);
  950.             left--;
  951.             state->mode = LEN;
  952.             break;
  953.         case CHECK:
  954.             if (state->wrap) {
  955.                 NEEDBITS(32);
  956.                 out -= left;
  957.                 strm->total_out += out;
  958.                 state->total += out;
  959.                 if (out)
  960.                     strm->adler = state->check =
  961.                         UPDATE(state->check, put - out, out);
  962.                 out = left;
  963.                 if ((
  964. #ifdef GUNZIP
  965.                      state->flags ? hold :
  966. #endif
  967.                      REVERSE(hold)) != state->check) {
  968.                     strm->msg = (char *)"incorrect data check";
  969.                     state->mode = BAD;
  970.                     break;
  971.                 }
  972.                 INITBITS();
  973.                 Tracev((stderr, "inflate:   check matches trailern"));
  974.             }
  975. #ifdef GUNZIP
  976.             state->mode = LENGTH;
  977.         case LENGTH:
  978.             if (state->wrap && state->flags) {
  979.                 NEEDBITS(32);
  980.                 if (hold != (state->total & 0xffffffffUL)) {
  981.                     strm->msg = (char *)"incorrect length check";
  982.                     state->mode = BAD;
  983.                     break;
  984.                 }
  985.                 INITBITS();
  986.                 Tracev((stderr, "inflate:   length matches trailern"));
  987.             }
  988. #endif
  989.             state->mode = DONE;
  990.         case DONE:
  991.             ret = Z_STREAM_END;
  992.             goto inf_leave;
  993.         case BAD:
  994.             ret = Z_DATA_ERROR;
  995.             goto inf_leave;
  996.         case MEM:
  997.             return Z_MEM_ERROR;
  998.         case SYNC:
  999.         default:
  1000.             return Z_STREAM_ERROR;
  1001.         }
  1002.     /*
  1003.        Return from inflate(), updating the total counts and the check value.
  1004.        If there was no progress during the inflate() call, return a buffer
  1005.        error.  Call updatewindow() to create and/or update the window state.
  1006.        Note: a memory error from inflate() is non-recoverable.
  1007.      */
  1008.   inf_leave:
  1009.     RESTORE();
  1010.     if (state->wsize || (state->mode < CHECK && out != strm->avail_out))
  1011.         if (updatewindow(strm, out)) {
  1012.             state->mode = MEM;
  1013.             return Z_MEM_ERROR;
  1014.         }
  1015.     in -= strm->avail_in;
  1016.     out -= strm->avail_out;
  1017.     strm->total_in += in;
  1018.     strm->total_out += out;
  1019.     state->total += out;
  1020.     if (state->wrap && out)
  1021.         strm->adler = state->check =
  1022.             UPDATE(state->check, strm->next_out - out, out);
  1023.     strm->data_type = state->bits + (state->last ? 64 : 0) +
  1024.                       (state->mode == TYPE ? 128 : 0);
  1025.     if (((in == 0 && out == 0) || flush == Z_FINISH) && ret == Z_OK)
  1026.         ret = Z_BUF_ERROR;
  1027.     return ret;
  1028. }
  1029. int ZEXPORT inflateEnd(strm)
  1030. z_streamp strm;
  1031. {
  1032.     struct inflate_state FAR *state;
  1033.     if (strm == Z_NULL || strm->state == Z_NULL || strm->zfree == (free_func)0)
  1034.         return Z_STREAM_ERROR;
  1035.     state = (struct inflate_state FAR *)strm->state;
  1036.     if (state->window != Z_NULL) ZFREE(strm, state->window);
  1037.     ZFREE(strm, strm->state);
  1038.     strm->state = Z_NULL;
  1039.     Tracev((stderr, "inflate: endn"));
  1040.     return Z_OK;
  1041. }
  1042. int ZEXPORT inflateSetDictionary(strm, dictionary, dictLength)
  1043. z_streamp strm;
  1044. const Bytef *dictionary;
  1045. uInt dictLength;
  1046. {
  1047.     struct inflate_state FAR *state;
  1048.     unsigned long id;
  1049.     /* check state */
  1050.     if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
  1051.     state = (struct inflate_state FAR *)strm->state;
  1052.     if (state->mode != DICT) return Z_STREAM_ERROR;
  1053.     /* check for correct dictionary id */
  1054.     id = adler32(0L, Z_NULL, 0);
  1055.     id = adler32(id, dictionary, dictLength);
  1056.     if (id != state->check) return Z_DATA_ERROR;
  1057.     /* copy dictionary to window */
  1058.     if (updatewindow(strm, strm->avail_out)) {
  1059.         state->mode = MEM;
  1060.         return Z_MEM_ERROR;
  1061.     }
  1062.     if (dictLength > state->wsize) {
  1063.         zmemcpy(state->window, dictionary + dictLength - state->wsize,
  1064.                 state->wsize);
  1065.         state->whave = state->wsize;
  1066.     }
  1067.     else {
  1068.         zmemcpy(state->window + state->wsize - dictLength, dictionary,
  1069.                 dictLength);
  1070.         state->whave = dictLength;
  1071.     }
  1072.     state->havedict = 1;
  1073.     Tracev((stderr, "inflate:   dictionary setn"));
  1074.     return Z_OK;
  1075. }
  1076. /*
  1077.    Search buf[0..len-1] for the pattern: 0, 0, 0xff, 0xff.  Return when found
  1078.    or when out of input.  When called, *have is the number of pattern bytes
  1079.    found in order so far, in 0..3.  On return *have is updated to the new
  1080.    state.  If on return *have equals four, then the pattern was found and the
  1081.    return value is how many bytes were read including the last byte of the
  1082.    pattern.  If *have is less than four, then the pattern has not been found
  1083.    yet and the return value is len.  In the latter case, syncsearch() can be
  1084.    called again with more data and the *have state.  *have is initialized to
  1085.    zero for the first call.
  1086.  */
  1087. local unsigned syncsearch(have, buf, len)
  1088. unsigned FAR *have;
  1089. unsigned char FAR *buf;
  1090. unsigned len;
  1091. {
  1092.     unsigned got;
  1093.     unsigned next;
  1094.     got = *have;
  1095.     next = 0;
  1096.     while (next < len && got < 4) {
  1097.         if ((int)(buf[next]) == (got < 2 ? 0 : 0xff))
  1098.             got++;
  1099.         else if (buf[next])
  1100.             got = 0;
  1101.         else
  1102.             got = 4 - got;
  1103.         next++;
  1104.     }
  1105.     *have = got;
  1106.     return next;
  1107. }
  1108. int ZEXPORT inflateSync(strm)
  1109. z_streamp strm;
  1110. {
  1111.     unsigned len;               /* number of bytes to look at or looked at */
  1112.     unsigned long in, out;      /* temporary to save total_in and total_out */
  1113.     unsigned char buf[4];       /* to restore bit buffer to byte string */
  1114.     struct inflate_state FAR *state;
  1115.     /* check parameters */
  1116.     if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
  1117.     state = (struct inflate_state FAR *)strm->state;
  1118.     if (strm->avail_in == 0 && state->bits < 8) return Z_BUF_ERROR;
  1119.     /* if first time, start search in bit buffer */
  1120.     if (state->mode != SYNC) {
  1121.         state->mode = SYNC;
  1122.         state->hold <<= state->bits & 7;
  1123.         state->bits -= state->bits & 7;
  1124.         len = 0;
  1125.         while (state->bits >= 8) {
  1126.             buf[len++] = (unsigned char)(state->hold);
  1127.             state->hold >>= 8;
  1128.             state->bits -= 8;
  1129.         }
  1130.         state->have = 0;
  1131.         syncsearch(&(state->have), buf, len);
  1132.     }
  1133.     /* search available input */
  1134.     len = syncsearch(&(state->have), strm->next_in, strm->avail_in);
  1135.     strm->avail_in -= len;
  1136.     strm->next_in += len;
  1137.     strm->total_in += len;
  1138.     /* return no joy or set up to restart inflate() on a new block */
  1139.     if (state->have != 4) return Z_DATA_ERROR;
  1140.     in = strm->total_in;  out = strm->total_out;
  1141.     inflateReset(strm);
  1142.     strm->total_in = in;  strm->total_out = out;
  1143.     state->mode = TYPE;
  1144.     return Z_OK;
  1145. }
  1146. /*
  1147.    Returns true if inflate is currently at the end of a block generated by
  1148.    Z_SYNC_FLUSH or Z_FULL_FLUSH. This function is used by one PPP
  1149.    implementation to provide an additional safety check. PPP uses
  1150.    Z_SYNC_FLUSH but removes the length bytes of the resulting empty stored
  1151.    block. When decompressing, PPP checks that at the end of input packet,
  1152.    inflate is waiting for these length bytes.
  1153.  */
  1154. int ZEXPORT inflateSyncPoint(strm)
  1155. z_streamp strm;
  1156. {
  1157.     struct inflate_state FAR *state;
  1158.     if (strm == Z_NULL || strm->state == Z_NULL) return Z_STREAM_ERROR;
  1159.     state = (struct inflate_state FAR *)strm->state;
  1160.     return state->mode == STORED && state->bits == 0;
  1161. }
  1162. int ZEXPORT inflateCopy(dest, source)
  1163. z_streamp dest;
  1164. z_streamp source;
  1165. {
  1166.     struct inflate_state FAR *state;
  1167.     struct inflate_state FAR *copy;
  1168.     unsigned char FAR *window;
  1169.     /* check input */
  1170.     if (dest == Z_NULL || source == Z_NULL || source->state == Z_NULL ||
  1171.         source->zalloc == (alloc_func)0 || source->zfree == (free_func)0)
  1172.         return Z_STREAM_ERROR;
  1173.     state = (struct inflate_state FAR *)source->state;
  1174.     /* allocate space */
  1175.     copy = (struct inflate_state FAR *)
  1176.            ZALLOC(source, 1, sizeof(struct inflate_state));
  1177.     if (copy == Z_NULL) return Z_MEM_ERROR;
  1178.     window = Z_NULL;
  1179.     if (state->window != Z_NULL) {
  1180.         window = (unsigned char FAR *)
  1181.                  ZALLOC(source, 1U << state->wbits, sizeof(unsigned char));
  1182.         if (window == Z_NULL) {
  1183.             ZFREE(source, copy);
  1184.             return Z_MEM_ERROR;
  1185.         }
  1186.     }
  1187.     /* copy state */
  1188.     *dest = *source;
  1189.     *copy = *state;
  1190.     copy->lencode = copy->codes + (state->lencode - state->codes);
  1191.     copy->distcode = copy->codes + (state->distcode - state->codes);
  1192.     copy->next = copy->codes + (state->next - state->codes);
  1193.     if (window != Z_NULL)
  1194.         zmemcpy(window, state->window, 1U << state->wbits);
  1195.     copy->window = window;
  1196.     dest->state = (voidpf)copy;
  1197.     return Z_OK;
  1198. }