inffast.c
上传用户:yhdzpy8989
上传日期:2007-06-13
资源大小:13604k
文件大小:6k
源码类别:

生物技术

开发平台:

C/C++

  1. /*
  2.  * ===========================================================================
  3.  * PRODUCTION $Log: inffast.c,v $
  4.  * PRODUCTION Revision 1000.0  2003/10/29 15:49:04  gouriano
  5.  * PRODUCTION PRODUCTION: IMPORTED [ORIGINAL] Dev-tree R1.1
  6.  * PRODUCTION
  7.  * ===========================================================================
  8.  */
  9. /* inffast.c -- process literals and length/distance pairs fast
  10.  * Copyright (C) 1995-2002 Mark Adler
  11.  * For conditions of distribution and use, see copyright notice in zlib.h 
  12.  */
  13. #include "zutil.h"
  14. #include "inftrees.h"
  15. #include "infblock.h"
  16. #include "infcodes.h"
  17. #include "infutil.h"
  18. #include "inffast.h"
  19. struct inflate_codes_state {int dummy;}; /* for buggy compilers */
  20. /* simplify the use of the inflate_huft type with some defines */
  21. #define exop word.what.Exop
  22. #define bits word.what.Bits
  23. /* macros for bit input with no checking and for returning unused bytes */
  24. #define GRABBITS(j) {while(k<(j)){b|=((uLong)NEXTBYTE)<<k;k+=8;}}
  25. #define UNGRAB {c=z->avail_in-n;c=(k>>3)<c?k>>3:c;n+=c;p-=c;k-=c<<3;}
  26. /* Called with number of bytes left to write in window at least 258
  27.    (the maximum string length) and number of input bytes available
  28.    at least ten.  The ten bytes are six bytes for the longest length/
  29.    distance pair plus four bytes for overloading the bit buffer. */
  30. int inflate_fast(bl, bd, tl, td, s, z)
  31. uInt bl, bd;
  32. inflate_huft *tl;
  33. inflate_huft *td; /* need separate declaration for Borland C++ */
  34. inflate_blocks_statef *s;
  35. z_streamp z;
  36. {
  37.   inflate_huft *t;      /* temporary pointer */
  38.   uInt e;               /* extra bits or operation */
  39.   uLong b;              /* bit buffer */
  40.   uInt k;               /* bits in bit buffer */
  41.   Bytef *p;             /* input data pointer */
  42.   uInt n;               /* bytes available there */
  43.   Bytef *q;             /* output window write pointer */
  44.   uInt m;               /* bytes to end of window or read pointer */
  45.   uInt ml;              /* mask for literal/length tree */
  46.   uInt md;              /* mask for distance tree */
  47.   uInt c;               /* bytes to copy */
  48.   uInt d;               /* distance back to copy from */
  49.   Bytef *r;             /* copy source pointer */
  50.   /* load input, output, bit values */
  51.   LOAD
  52.   /* initialize masks */
  53.   ml = inflate_mask[bl];
  54.   md = inflate_mask[bd];
  55.   /* do until not enough input or output space for fast loop */
  56.   do {                          /* assume called with m >= 258 && n >= 10 */
  57.     /* get literal/length code */
  58.     GRABBITS(20)                /* max bits for literal/length code */
  59.     if ((e = (t = tl + ((uInt)b & ml))->exop) == 0)
  60.     {
  61.       DUMPBITS(t->bits)
  62.       Tracevv((stderr, t->base >= 0x20 && t->base < 0x7f ?
  63.                 "inflate:         * literal '%c'n" :
  64.                 "inflate:         * literal 0x%02xn", t->base));
  65.       *q++ = (Byte)t->base;
  66.       m--;
  67.       continue;
  68.     }
  69.     do {
  70.       DUMPBITS(t->bits)
  71.       if (e & 16)
  72.       {
  73.         /* get extra bits for length */
  74.         e &= 15;
  75.         c = t->base + ((uInt)b & inflate_mask[e]);
  76.         DUMPBITS(e)
  77.         Tracevv((stderr, "inflate:         * length %un", c));
  78.         /* decode distance base of block to copy */
  79.         GRABBITS(15);           /* max bits for distance code */
  80.         e = (t = td + ((uInt)b & md))->exop;
  81.         do {
  82.           DUMPBITS(t->bits)
  83.           if (e & 16)
  84.           {
  85.             /* get extra bits to add to distance base */
  86.             e &= 15;
  87.             GRABBITS(e)         /* get extra bits (up to 13) */
  88.             d = t->base + ((uInt)b & inflate_mask[e]);
  89.             DUMPBITS(e)
  90.             Tracevv((stderr, "inflate:         * distance %un", d));
  91.             /* do the copy */
  92.             m -= c;
  93.             r = q - d;
  94.             if (r < s->window)                  /* wrap if needed */
  95.             {
  96.               do {
  97.                 r += s->end - s->window;        /* force pointer in window */
  98.               } while (r < s->window);          /* covers invalid distances */
  99.               e = s->end - r;
  100.               if (c > e)
  101.               {
  102.                 c -= e;                         /* wrapped copy */
  103.                 do {
  104.                     *q++ = *r++;
  105.                 } while (--e);
  106.                 r = s->window;
  107.                 do {
  108.                     *q++ = *r++;
  109.                 } while (--c);
  110.               }
  111.               else                              /* normal copy */
  112.               {
  113.                 *q++ = *r++;  c--;
  114.                 *q++ = *r++;  c--;
  115.                 do {
  116.                     *q++ = *r++;
  117.                 } while (--c);
  118.               }
  119.             }
  120.             else                                /* normal copy */
  121.             {
  122.               *q++ = *r++;  c--;
  123.               *q++ = *r++;  c--;
  124.               do {
  125.                 *q++ = *r++;
  126.               } while (--c);
  127.             }
  128.             break;
  129.           }
  130.           else if ((e & 64) == 0)
  131.           {
  132.             t += t->base;
  133.             e = (t += ((uInt)b & inflate_mask[e]))->exop;
  134.           }
  135.           else
  136.           {
  137.             z->msg = (char*)"invalid distance code";
  138.             UNGRAB
  139.             UPDATE
  140.             return Z_DATA_ERROR;
  141.           }
  142.         } while (1);
  143.         break;
  144.       }
  145.       if ((e & 64) == 0)
  146.       {
  147.         t += t->base;
  148.         if ((e = (t += ((uInt)b & inflate_mask[e]))->exop) == 0)
  149.         {
  150.           DUMPBITS(t->bits)
  151.           Tracevv((stderr, t->base >= 0x20 && t->base < 0x7f ?
  152.                     "inflate:         * literal '%c'n" :
  153.                     "inflate:         * literal 0x%02xn", t->base));
  154.           *q++ = (Byte)t->base;
  155.           m--;
  156.           break;
  157.         }
  158.       }
  159.       else if (e & 32)
  160.       {
  161.         Tracevv((stderr, "inflate:         * end of blockn"));
  162.         UNGRAB
  163.         UPDATE
  164.         return Z_STREAM_END;
  165.       }
  166.       else
  167.       {
  168.         z->msg = (char*)"invalid literal/length code";
  169.         UNGRAB
  170.         UPDATE
  171.         return Z_DATA_ERROR;
  172.       }
  173.     } while (1);
  174.   } while (m >= 258 && n >= 10);
  175.   /* not enough input or output--restore pointers and return */
  176.   UNGRAB
  177.   UPDATE
  178.   return Z_OK;
  179. }