source: s10k/CommonLibs/zlib-1.2.8/contrib/infback9/infback9.c@ 1112

Last change on this file since 1112 was 1096, checked in by s10k, 7 years ago

Added zlib, quazip, basicxmlsyntaxhighlighter, conditionalsemaphore and linenumberdisplay libraries. zlib and quazip are pre-compiled, but you can compile them yourself, just delete the dll files (or equivalent binary files to your OS)
File size: 21.1 KB
RevLine 
[1096]1/* infback9.c -- inflate deflate64 data using a call-back interface
2 * Copyright (C) 1995-2008 Mark Adler
3 * For conditions of distribution and use, see copyright notice in zlib.h
4 */
5
6#include "zutil.h"
7#include "infback9.h"
8#include "inftree9.h"
9#include "inflate9.h"
10
11#define WSIZE 65536UL
12
13/*
14 strm provides memory allocation functions in zalloc and zfree, or
15 Z_NULL to use the library memory allocation functions.
16
17 window is a user-supplied window and output buffer that is 64K bytes.
18 */
19int ZEXPORT inflateBack9Init_(strm, window, version, stream_size)
20z_stream FAR *strm;
21unsigned char FAR *window;
22const char *version;
23int stream_size;
24{
25 struct inflate_state FAR *state;
26
27 if (version == Z_NULL || version[0] != ZLIB_VERSION[0] ||
28 stream_size != (int)(sizeof(z_stream)))
29 return Z_VERSION_ERROR;
30 if (strm == Z_NULL || window == Z_NULL)
31 return Z_STREAM_ERROR;
32 strm->msg = Z_NULL; /* in case we return an error */
33 if (strm->zalloc == (alloc_func)0) {
34 strm->zalloc = zcalloc;
35 strm->opaque = (voidpf)0;
36 }
37 if (strm->zfree == (free_func)0) strm->zfree = zcfree;
38 state = (struct inflate_state FAR *)ZALLOC(strm, 1,
39 sizeof(struct inflate_state));
40 if (state == Z_NULL) return Z_MEM_ERROR;
41 Tracev((stderr, "inflate: allocated\n"));
42 strm->state = (voidpf)state;
43 state->window = window;
44 return Z_OK;
45}
46
47/*
48 Build and output length and distance decoding tables for fixed code
49 decoding.
50 */
51#ifdef MAKEFIXED
52#include <stdio.h>
53
54void makefixed9(void)
55{
56 unsigned sym, bits, low, size;
57 code *next, *lenfix, *distfix;
58 struct inflate_state state;
59 code fixed[544];
60
61 /* literal/length table */
62 sym = 0;
63 while (sym < 144) state.lens[sym++] = 8;
64 while (sym < 256) state.lens[sym++] = 9;
65 while (sym < 280) state.lens[sym++] = 7;
66 while (sym < 288) state.lens[sym++] = 8;
67 next = fixed;
68 lenfix = next;
69 bits = 9;
70 inflate_table9(LENS, state.lens, 288, &(next), &(bits), state.work);
71
72 /* distance table */
73 sym = 0;
74 while (sym < 32) state.lens[sym++] = 5;
75 distfix = next;
76 bits = 5;
77 inflate_table9(DISTS, state.lens, 32, &(next), &(bits), state.work);
78
79 /* write tables */
80 puts(" /* inffix9.h -- table for decoding deflate64 fixed codes");
81 puts(" * Generated automatically by makefixed9().");
82 puts(" */");
83 puts("");
84 puts(" /* WARNING: this file should *not* be used by applications.");
85 puts(" It is part of the implementation of this library and is");
86 puts(" subject to change. Applications should only use zlib.h.");
87 puts(" */");
88 puts("");
89 size = 1U << 9;
90 printf(" static const code lenfix[%u] = {", size);
91 low = 0;
92 for (;;) {
93 if ((low % 6) == 0) printf("\n ");
94 printf("{%u,%u,%d}", lenfix[low].op, lenfix[low].bits,
95 lenfix[low].val);
96 if (++low == size) break;
97 putchar(',');
98 }
99 puts("\n };");
100 size = 1U << 5;
101 printf("\n static const code distfix[%u] = {", size);
102 low = 0;
103 for (;;) {
104 if ((low % 5) == 0) printf("\n ");
105 printf("{%u,%u,%d}", distfix[low].op, distfix[low].bits,
106 distfix[low].val);
107 if (++low == size) break;
108 putchar(',');
109 }
110 puts("\n };");
111}
112#endif /* MAKEFIXED */
113
114/* Macros for inflateBack(): */
115
116/* Clear the input bit accumulator */
117#define INITBITS() \
118 do { \
119 hold = 0; \
120 bits = 0; \
121 } while (0)
122
123/* Assure that some input is available. If input is requested, but denied,
124 then return a Z_BUF_ERROR from inflateBack(). */
125#define PULL() \
126 do { \
127 if (have == 0) { \
128 have = in(in_desc, &next); \
129 if (have == 0) { \
130 next = Z_NULL; \
131 ret = Z_BUF_ERROR; \
132 goto inf_leave; \
133 } \
134 } \
135 } while (0)
136
137/* Get a byte of input into the bit accumulator, or return from inflateBack()
138 with an error if there is no input available. */
139#define PULLBYTE() \
140 do { \
141 PULL(); \
142 have--; \
143 hold += (unsigned long)(*next++) << bits; \
144 bits += 8; \
145 } while (0)
146
147/* Assure that there are at least n bits in the bit accumulator. If there is
148 not enough available input to do that, then return from inflateBack() with
149 an error. */
150#define NEEDBITS(n) \
151 do { \
152 while (bits < (unsigned)(n)) \
153 PULLBYTE(); \
154 } while (0)
155
156/* Return the low n bits of the bit accumulator (n <= 16) */
157#define BITS(n) \
158 ((unsigned)hold & ((1U << (n)) - 1))
159
160/* Remove n bits from the bit accumulator */
161#define DROPBITS(n) \
162 do { \
163 hold >>= (n); \
164 bits -= (unsigned)(n); \
165 } while (0)
166
167/* Remove zero to seven bits as needed to go to a byte boundary */
168#define BYTEBITS() \
169 do { \
170 hold >>= bits & 7; \
171 bits -= bits & 7; \
172 } while (0)
173
174/* Assure that some output space is available, by writing out the window
175 if it's full. If the write fails, return from inflateBack() with a
176 Z_BUF_ERROR. */
177#define ROOM() \
178 do { \
179 if (left == 0) { \
180 put = window; \
181 left = WSIZE; \
182 wrap = 1; \
183 if (out(out_desc, put, (unsigned)left)) { \
184 ret = Z_BUF_ERROR; \
185 goto inf_leave; \
186 } \
187 } \
188 } while (0)
189
190/*
191 strm provides the memory allocation functions and window buffer on input,
192 and provides information on the unused input on return. For Z_DATA_ERROR
193 returns, strm will also provide an error message.
194
195 in() and out() are the call-back input and output functions. When
196 inflateBack() needs more input, it calls in(). When inflateBack() has
197 filled the window with output, or when it completes with data in the
198 window, it calls out() to write out the data. The application must not
199 change the provided input until in() is called again or inflateBack()
200 returns. The application must not change the window/output buffer until
201 inflateBack() returns.
202
203 in() and out() are called with a descriptor parameter provided in the
204 inflateBack() call. This parameter can be a structure that provides the
205 information required to do the read or write, as well as accumulated
206 information on the input and output such as totals and check values.
207
208 in() should return zero on failure. out() should return non-zero on
209 failure. If either in() or out() fails, than inflateBack() returns a
210 Z_BUF_ERROR. strm->next_in can be checked for Z_NULL to see whether it
211 was in() or out() that caused in the error. Otherwise, inflateBack()
212 returns Z_STREAM_END on success, Z_DATA_ERROR for an deflate format
213 error, or Z_MEM_ERROR if it could not allocate memory for the state.
214 inflateBack() can also return Z_STREAM_ERROR if the input parameters
215 are not correct, i.e. strm is Z_NULL or the state was not initialized.
216 */
217int ZEXPORT inflateBack9(strm, in, in_desc, out, out_desc)
218z_stream FAR *strm;
219in_func in;
220void FAR *in_desc;
221out_func out;
222void FAR *out_desc;
223{
224 struct inflate_state FAR *state;
225 z_const unsigned char FAR *next; /* next input */
226 unsigned char FAR *put; /* next output */
227 unsigned have; /* available input */
228 unsigned long left; /* available output */
229 inflate_mode mode; /* current inflate mode */
230 int lastblock; /* true if processing last block */
231 int wrap; /* true if the window has wrapped */
232 unsigned char FAR *window; /* allocated sliding window, if needed */
233 unsigned long hold; /* bit buffer */
234 unsigned bits; /* bits in bit buffer */
235 unsigned extra; /* extra bits needed */
236 unsigned long length; /* literal or length of data to copy */
237 unsigned long offset; /* distance back to copy string from */
238 unsigned long copy; /* number of stored or match bytes to copy */
239 unsigned char FAR *from; /* where to copy match bytes from */
240 code const FAR *lencode; /* starting table for length/literal codes */
241 code const FAR *distcode; /* starting table for distance codes */
242 unsigned lenbits; /* index bits for lencode */
243 unsigned distbits; /* index bits for distcode */
244 code here; /* current decoding table entry */
245 code last; /* parent table entry */
246 unsigned len; /* length to copy for repeats, bits to drop */
247 int ret; /* return code */
248 static const unsigned short order[19] = /* permutation of code lengths */
249 {16, 17, 18, 0, 8, 7, 9, 6, 10, 5, 11, 4, 12, 3, 13, 2, 14, 1, 15};
250#include "inffix9.h"
251
252 /* Check that the strm exists and that the state was initialized */
253 if (strm == Z_NULL || strm->state == Z_NULL)
254 return Z_STREAM_ERROR;
255 state = (struct inflate_state FAR *)strm->state;
256
257 /* Reset the state */
258 strm->msg = Z_NULL;
259 mode = TYPE;
260 lastblock = 0;
261 wrap = 0;
262 window = state->window;
263 next = strm->next_in;
264 have = next != Z_NULL ? strm->avail_in : 0;
265 hold = 0;
266 bits = 0;
267 put = window;
268 left = WSIZE;
269 lencode = Z_NULL;
270 distcode = Z_NULL;
271
272 /* Inflate until end of block marked as last */
273 for (;;)
274 switch (mode) {
275 case TYPE:
276 /* determine and dispatch block type */
277 if (lastblock) {
278 BYTEBITS();
279 mode = DONE;
280 break;
281 }
282 NEEDBITS(3);
283 lastblock = BITS(1);
284 DROPBITS(1);
285 switch (BITS(2)) {
286 case 0: /* stored block */
287 Tracev((stderr, "inflate: stored block%s\n",
288 lastblock ? " (last)" : ""));
289 mode = STORED;
290 break;
291 case 1: /* fixed block */
292 lencode = lenfix;
293 lenbits = 9;
294 distcode = distfix;
295 distbits = 5;
296 Tracev((stderr, "inflate: fixed codes block%s\n",
297 lastblock ? " (last)" : ""));
298 mode = LEN; /* decode codes */
299 break;
300 case 2: /* dynamic block */
301 Tracev((stderr, "inflate: dynamic codes block%s\n",
302 lastblock ? " (last)" : ""));
303 mode = TABLE;
304 break;
305 case 3:
306 strm->msg = (char *)"invalid block type";
307 mode = BAD;
308 }
309 DROPBITS(2);
310 break;
311
312 case STORED:
313 /* get and verify stored block length */
314 BYTEBITS(); /* go to byte boundary */
315 NEEDBITS(32);
316 if ((hold & 0xffff) != ((hold >> 16) ^ 0xffff)) {
317 strm->msg = (char *)"invalid stored block lengths";
318 mode = BAD;
319 break;
320 }
321 length = (unsigned)hold & 0xffff;
322 Tracev((stderr, "inflate: stored length %lu\n",
323 length));
324 INITBITS();
325
326 /* copy stored block from input to output */
327 while (length != 0) {
328 copy = length;
329 PULL();
330 ROOM();
331 if (copy > have) copy = have;
332 if (copy > left) copy = left;
333 zmemcpy(put, next, copy);
334 have -= copy;
335 next += copy;
336 left -= copy;
337 put += copy;
338 length -= copy;
339 }
340 Tracev((stderr, "inflate: stored end\n"));
341 mode = TYPE;
342 break;
343
344 case TABLE:
345 /* get dynamic table entries descriptor */
346 NEEDBITS(14);
347 state->nlen = BITS(5) + 257;
348 DROPBITS(5);
349 state->ndist = BITS(5) + 1;
350 DROPBITS(5);
351 state->ncode = BITS(4) + 4;
352 DROPBITS(4);
353 if (state->nlen > 286) {
354 strm->msg = (char *)"too many length symbols";
355 mode = BAD;
356 break;
357 }
358 Tracev((stderr, "inflate: table sizes ok\n"));
359
360 /* get code length code lengths (not a typo) */
361 state->have = 0;
362 while (state->have < state->ncode) {
363 NEEDBITS(3);
364 state->lens[order[state->have++]] = (unsigned short)BITS(3);
365 DROPBITS(3);
366 }
367 while (state->have < 19)
368 state->lens[order[state->have++]] = 0;
369 state->next = state->codes;
370 lencode = (code const FAR *)(state->next);
371 lenbits = 7;
372 ret = inflate_table9(CODES, state->lens, 19, &(state->next),
373 &(lenbits), state->work);
374 if (ret) {
375 strm->msg = (char *)"invalid code lengths set";
376 mode = BAD;
377 break;
378 }
379 Tracev((stderr, "inflate: code lengths ok\n"));
380
381 /* get length and distance code code lengths */
382 state->have = 0;
383 while (state->have < state->nlen + state->ndist) {
384 for (;;) {
385 here = lencode[BITS(lenbits)];
386 if ((unsigned)(here.bits) <= bits) break;
387 PULLBYTE();
388 }
389 if (here.val < 16) {
390 NEEDBITS(here.bits);
391 DROPBITS(here.bits);
392 state->lens[state->have++] = here.val;
393 }
394 else {
395 if (here.val == 16) {
396 NEEDBITS(here.bits + 2);
397 DROPBITS(here.bits);
398 if (state->have == 0) {
399 strm->msg = (char *)"invalid bit length repeat";
400 mode = BAD;
401 break;
402 }
403 len = (unsigned)(state->lens[state->have - 1]);
404 copy = 3 + BITS(2);
405 DROPBITS(2);
406 }
407 else if (here.val == 17) {
408 NEEDBITS(here.bits + 3);
409 DROPBITS(here.bits);
410 len = 0;
411 copy = 3 + BITS(3);
412 DROPBITS(3);
413 }
414 else {
415 NEEDBITS(here.bits + 7);
416 DROPBITS(here.bits);
417 len = 0;
418 copy = 11 + BITS(7);
419 DROPBITS(7);
420 }
421 if (state->have + copy > state->nlen + state->ndist) {
422 strm->msg = (char *)"invalid bit length repeat";
423 mode = BAD;
424 break;
425 }
426 while (copy--)
427 state->lens[state->have++] = (unsigned short)len;
428 }
429 }
430
431 /* handle error breaks in while */
432 if (mode == BAD) break;
433
434 /* check for end-of-block code (better have one) */
435 if (state->lens[256] == 0) {
436 strm->msg = (char *)"invalid code -- missing end-of-block";
437 mode = BAD;
438 break;
439 }
440
441 /* build code tables -- note: do not change the lenbits or distbits
442 values here (9 and 6) without reading the comments in inftree9.h
443 concerning the ENOUGH constants, which depend on those values */
444 state->next = state->codes;
445 lencode = (code const FAR *)(state->next);
446 lenbits = 9;
447 ret = inflate_table9(LENS, state->lens, state->nlen,
448 &(state->next), &(lenbits), state->work);
449 if (ret) {
450 strm->msg = (char *)"invalid literal/lengths set";
451 mode = BAD;
452 break;
453 }
454 distcode = (code const FAR *)(state->next);
455 distbits = 6;
456 ret = inflate_table9(DISTS, state->lens + state->nlen,
457 state->ndist, &(state->next), &(distbits),
458 state->work);
459 if (ret) {
460 strm->msg = (char *)"invalid distances set";
461 mode = BAD;
462 break;
463 }
464 Tracev((stderr, "inflate: codes ok\n"));
465 mode = LEN;
466
467 case LEN:
468 /* get a literal, length, or end-of-block code */
469 for (;;) {
470 here = lencode[BITS(lenbits)];
471 if ((unsigned)(here.bits) <= bits) break;
472 PULLBYTE();
473 }
474 if (here.op && (here.op & 0xf0) == 0) {
475 last = here;
476 for (;;) {
477 here = lencode[last.val +
478 (BITS(last.bits + last.op) >> last.bits)];
479 if ((unsigned)(last.bits + here.bits) <= bits) break;
480 PULLBYTE();
481 }
482 DROPBITS(last.bits);
483 }
484 DROPBITS(here.bits);
485 length = (unsigned)here.val;
486
487 /* process literal */
488 if (here.op == 0) {
489 Tracevv((stderr, here.val >= 0x20 && here.val < 0x7f ?
490 "inflate: literal '%c'\n" :
491 "inflate: literal 0x%02x\n", here.val));
492 ROOM();
493 *put++ = (unsigned char)(length);
494 left--;
495 mode = LEN;
496 break;
497 }
498
499 /* process end of block */
500 if (here.op & 32) {
501 Tracevv((stderr, "inflate: end of block\n"));
502 mode = TYPE;
503 break;
504 }
505
506 /* invalid code */
507 if (here.op & 64) {
508 strm->msg = (char *)"invalid literal/length code";
509 mode = BAD;
510 break;
511 }
512
513 /* length code -- get extra bits, if any */
514 extra = (unsigned)(here.op) & 31;
515 if (extra != 0) {
516 NEEDBITS(extra);
517 length += BITS(extra);
518 DROPBITS(extra);
519 }
520 Tracevv((stderr, "inflate: length %lu\n", length));
521
522 /* get distance code */
523 for (;;) {
524 here = distcode[BITS(distbits)];
525 if ((unsigned)(here.bits) <= bits) break;
526 PULLBYTE();
527 }
528 if ((here.op & 0xf0) == 0) {
529 last = here;
530 for (;;) {
531 here = distcode[last.val +
532 (BITS(last.bits + last.op) >> last.bits)];
533 if ((unsigned)(last.bits + here.bits) <= bits) break;
534 PULLBYTE();
535 }
536 DROPBITS(last.bits);
537 }
538 DROPBITS(here.bits);
539 if (here.op & 64) {
540 strm->msg = (char *)"invalid distance code";
541 mode = BAD;
542 break;
543 }
544 offset = (unsigned)here.val;
545
546 /* get distance extra bits, if any */
547 extra = (unsigned)(here.op) & 15;
548 if (extra != 0) {
549 NEEDBITS(extra);
550 offset += BITS(extra);
551 DROPBITS(extra);
552 }
553 if (offset > WSIZE - (wrap ? 0: left)) {
554 strm->msg = (char *)"invalid distance too far back";
555 mode = BAD;
556 break;
557 }
558 Tracevv((stderr, "inflate: distance %lu\n", offset));
559
560 /* copy match from window to output */
561 do {
562 ROOM();
563 copy = WSIZE - offset;
564 if (copy < left) {
565 from = put + copy;
566 copy = left - copy;
567 }
568 else {
569 from = put - offset;
570 copy = left;
571 }
572 if (copy > length) copy = length;
573 length -= copy;
574 left -= copy;
575 do {
576 *put++ = *from++;
577 } while (--copy);
578 } while (length != 0);
579 break;
580
581 case DONE:
582 /* inflate stream terminated properly -- write leftover output */
583 ret = Z_STREAM_END;
584 if (left < WSIZE) {
585 if (out(out_desc, window, (unsigned)(WSIZE - left)))
586 ret = Z_BUF_ERROR;
587 }
588 goto inf_leave;
589
590 case BAD:
591 ret = Z_DATA_ERROR;
592 goto inf_leave;
593
594 default: /* can't happen, but makes compilers happy */
595 ret = Z_STREAM_ERROR;
596 goto inf_leave;
597 }
598
599 /* Return unused input */
600 inf_leave:
601 strm->next_in = next;
602 strm->avail_in = have;
603 return ret;
604}
605
606int ZEXPORT inflateBack9End(strm)
607z_stream FAR *strm;
608{
609 if (strm == Z_NULL || strm->state == Z_NULL || strm->zfree == (free_func)0)
610 return Z_STREAM_ERROR;
611 ZFREE(strm, strm->state);
612 strm->state = Z_NULL;
613 Tracev((stderr, "inflate: end\n"));
614 return Z_OK;
615}
Note: See TracBrowser for help on using the repository browser.