zutil.c
上传用户:wstnjxml
上传日期:2014-04-03
资源大小:7248k
文件大小:7k
源码类别:

Windows CE

开发平台:

C/C++

  1. /* zutil.c -- target dependent utility functions for the compression library
  2.  * Copyright (C) 1995-2003 Jean-loup Gailly.
  3.  * For conditions of distribution and use, see copyright notice in zlib.h
  4.  */
  5. /* @(#) $Id$ */
  6. #include "zutil.h"
  7. #ifndef NO_DUMMY_DECL
  8. struct internal_state      {int dummy;}; /* for buggy compilers */
  9. #endif
  10. #ifndef STDC
  11. extern void exit OF((int));
  12. #endif
  13. const char * const z_errmsg[10] = {
  14. "need dictionary",     /* Z_NEED_DICT       2  */
  15. "stream end",          /* Z_STREAM_END      1  */
  16. "",                    /* Z_OK              0  */
  17. "file error",          /* Z_ERRNO         (-1) */
  18. "stream error",        /* Z_STREAM_ERROR  (-2) */
  19. "data error",          /* Z_DATA_ERROR    (-3) */
  20. "insufficient memory", /* Z_MEM_ERROR     (-4) */
  21. "buffer error",        /* Z_BUF_ERROR     (-5) */
  22. "incompatible version",/* Z_VERSION_ERROR (-6) */
  23. ""};
  24. const char * ZEXPORT zlibVersion()
  25. {
  26.     return ZLIB_VERSION;
  27. }
  28. uLong ZEXPORT zlibCompileFlags()
  29. {
  30.     uLong flags;
  31.     flags = 0;
  32.     switch (sizeof(uInt)) {
  33.     case 2:     break;
  34.     case 4:     flags += 1;     break;
  35.     case 8:     flags += 2;     break;
  36.     default:    flags += 3;
  37.     }
  38.     switch (sizeof(uLong)) {
  39.     case 2:     break;
  40.     case 4:     flags += 1 << 2;        break;
  41.     case 8:     flags += 2 << 2;        break;
  42.     default:    flags += 3 << 2;
  43.     }
  44.     switch (sizeof(voidpf)) {
  45.     case 2:     break;
  46.     case 4:     flags += 1 << 4;        break;
  47.     case 8:     flags += 2 << 4;        break;
  48.     default:    flags += 3 << 4;
  49.     }
  50.     switch (sizeof(z_off_t)) {
  51.     case 2:     break;
  52.     case 4:     flags += 1 << 6;        break;
  53.     case 8:     flags += 2 << 6;        break;
  54.     default:    flags += 3 << 6;
  55.     }
  56. #ifdef DEBUG
  57.     flags += 1 << 8;
  58. #endif
  59. #if defined(ASMV) || defined(ASMINF)
  60.     flags += 1 << 9;
  61. #endif
  62. #ifdef ZLIB_WINAPI
  63.     flags += 1 << 10;
  64. #endif
  65. #ifdef BUILDFIXED
  66.     flags += 1 << 12;
  67. #endif
  68. #ifdef DYNAMIC_CRC_TABLE
  69.     flags += 1 << 13;
  70. #endif
  71. #ifdef NO_GZCOMPRESS
  72.     flags += 1 << 16;
  73. #endif
  74. #ifdef NO_GZIP
  75.     flags += 1 << 17;
  76. #endif
  77. #ifdef PKZIP_BUG_WORKAROUND
  78.     flags += 1 << 20;
  79. #endif
  80. #ifdef FASTEST
  81.     flags += 1 << 21;
  82. #endif
  83. #ifdef STDC
  84. #  ifdef NO_vsnprintf
  85.         flags += 1 << 25;
  86. #    ifdef HAS_vsprintf_void
  87.         flags += 1 << 26;
  88. #    endif
  89. #  else
  90. #    ifdef HAS_vsnprintf_void
  91.         flags += 1 << 26;
  92. #    endif
  93. #  endif
  94. #else
  95.         flags += 1 << 24;
  96. #  ifdef NO_snprintf
  97.         flags += 1 << 25;
  98. #    ifdef HAS_sprintf_void
  99.         flags += 1 << 26;
  100. #    endif
  101. #  else
  102. #    ifdef HAS_snprintf_void
  103.         flags += 1 << 26;
  104. #    endif
  105. #  endif
  106. #endif
  107.     return flags;
  108. }
  109. #ifdef DEBUG_
  110. #  ifndef verbose
  111. #    define verbose 0
  112. #  endif
  113. int z_verbose = verbose;
  114. void z_error (m)
  115.     char *m;
  116. {
  117.     fprintf(stderr, "%sn", m);
  118.     exit(1);
  119. }
  120. #endif
  121. /* exported to allow conversion of error code to string for compress() and
  122.  * uncompress()
  123.  */
  124. const char * ZEXPORT zError(err)
  125.     int err;
  126. {
  127.     return ERR_MSG(err);
  128. }
  129. #ifndef HAVE_MEMCPY
  130. void zmemcpy(dest, source, len)
  131.     Bytef* dest;
  132.     const Bytef* source;
  133.     uInt  len;
  134. {
  135.     if (len == 0) return;
  136.     do {
  137.         *dest++ = *source++; /* ??? to be unrolled */
  138.     } while (--len != 0);
  139. }
  140. int zmemcmp(s1, s2, len)
  141.     const Bytef* s1;
  142.     const Bytef* s2;
  143.     uInt  len;
  144. {
  145.     uInt j;
  146.     for (j = 0; j < len; j++) {
  147.         if (s1[j] != s2[j]) return 2*(s1[j] > s2[j])-1;
  148.     }
  149.     return 0;
  150. }
  151. void zmemzero(dest, len)
  152.     Bytef* dest;
  153.     uInt  len;
  154. {
  155.     if (len == 0) return;
  156.     do {
  157.         *dest++ = 0;  /* ??? to be unrolled */
  158.     } while (--len != 0);
  159. }
  160. #endif
  161. #ifdef SYS16BIT
  162. #ifdef __TURBOC__
  163. /* Turbo C in 16-bit mode */
  164. #  define MY_ZCALLOC
  165. /* Turbo C malloc() does not allow dynamic allocation of 64K bytes
  166.  * and farmalloc(64K) returns a pointer with an offset of 8, so we
  167.  * must fix the pointer. Warning: the pointer must be put back to its
  168.  * original form in order to free it, use zcfree().
  169.  */
  170. #define MAX_PTR 10
  171. /* 10*64K = 640K */
  172. local int next_ptr = 0;
  173. typedef struct ptr_table_s {
  174.     voidpf org_ptr;
  175.     voidpf new_ptr;
  176. } ptr_table;
  177. local ptr_table table[MAX_PTR];
  178. /* This table is used to remember the original form of pointers
  179.  * to large buffers (64K). Such pointers are normalized with a zero offset.
  180.  * Since MSDOS is not a preemptive multitasking OS, this table is not
  181.  * protected from concurrent access. This hack doesn't work anyway on
  182.  * a protected system like OS/2. Use Microsoft C instead.
  183.  */
  184. voidpf zcalloc (voidpf opaque, unsigned items, unsigned size)
  185. {
  186.     voidpf buf = opaque; /* just to make some compilers happy */
  187.     ulg bsize = (ulg)items*size;
  188.     /* If we allocate less than 65520 bytes, we assume that farmalloc
  189.      * will return a usable pointer which doesn't have to be normalized.
  190.      */
  191.     if (bsize < 65520L) {
  192.         buf = farmalloc(bsize);
  193.         if (*(ush*)&buf != 0) return buf;
  194.     } else {
  195.         buf = farmalloc(bsize + 16L);
  196.     }
  197.     if (buf == NULL || next_ptr >= MAX_PTR) return NULL;
  198.     table[next_ptr].org_ptr = buf;
  199.     /* Normalize the pointer to seg:0 */
  200.     *((ush*)&buf+1) += ((ush)((uch*)buf-0) + 15) >> 4;
  201.     *(ush*)&buf = 0;
  202.     table[next_ptr++].new_ptr = buf;
  203.     return buf;
  204. }
  205. void  zcfree (voidpf opaque, voidpf ptr)
  206. {
  207.     int n;
  208.     if (*(ush*)&ptr != 0) { /* object < 64K */
  209.         farfree(ptr);
  210.         return;
  211.     }
  212.     /* Find the original pointer */
  213.     for (n = 0; n < next_ptr; n++) {
  214.         if (ptr != table[n].new_ptr) continue;
  215.         farfree(table[n].org_ptr);
  216.         while (++n < next_ptr) {
  217.             table[n-1] = table[n];
  218.         }
  219.         next_ptr--;
  220.         return;
  221.     }
  222.     ptr = opaque; /* just to make some compilers happy */
  223.     Assert(0, "zcfree: ptr not found");
  224. }
  225. #endif /* __TURBOC__ */
  226. #ifdef M_I86
  227. /* Microsoft C in 16-bit mode */
  228. #  define MY_ZCALLOC
  229. #if (!defined(_MSC_VER) || (_MSC_VER <= 600))
  230. #  define _halloc  halloc
  231. #  define _hfree   hfree
  232. #endif
  233. voidpf zcalloc (voidpf opaque, unsigned items, unsigned size)
  234. {
  235.     if (opaque) opaque = 0; /* to make compiler happy */
  236.     return _halloc((long)items, size);
  237. }
  238. void  zcfree (voidpf opaque, voidpf ptr)
  239. {
  240.     if (opaque) opaque = 0; /* to make compiler happy */
  241.     _hfree(ptr);
  242. }
  243. #endif /* M_I86 */
  244. #endif /* SYS16BIT */
  245. #ifndef MY_ZCALLOC /* Any system without a special alloc function */
  246. #ifndef STDC
  247. extern voidp  malloc OF((uInt size));
  248. extern voidp  calloc OF((uInt items, uInt size));
  249. extern void   free   OF((voidpf ptr));
  250. #endif
  251. voidpf zcalloc (opaque, items, size)
  252.     voidpf opaque;
  253.     unsigned items;
  254.     unsigned size;
  255. {
  256.     if (opaque) items += size - size; /* make compiler happy */
  257.     return sizeof(uInt) > 2 ? (voidpf)malloc(items * size) :
  258.                               (voidpf)calloc(items, size);
  259. }
  260. void  zcfree (opaque, ptr)
  261.     voidpf opaque;
  262.     voidpf ptr;
  263. {
  264.     free(ptr);
  265.     if (opaque) return; /* make compiler happy */
  266. }
  267. #endif /* MY_ZCALLOC */