|
1 /* Portions Copyright (c) 2007-2009 Nokia Corporation and/or its subsidiary(-ies). |
|
2 * All rights reserved. |
|
3 */ |
|
4 |
|
5 /* inftrees.cpp -- generate Huffman trees for efficient decoding |
|
6 * Copyright (C) 1995-2005 Mark Adler |
|
7 * For conditions of distribution and use, see copyright notice in zlib.h |
|
8 */ |
|
9 |
|
10 #include "zutil.h" |
|
11 #include "inftrees.h" |
|
12 |
|
13 #define MAXBITS 15 |
|
14 |
|
15 |
|
16 const char inflate_copyright[] = |
|
17 " inflate 1.2.3 Copyright 1995-2005 Mark Adler "; |
|
18 /* |
|
19 If you use the zlib library in a product, an acknowledgment is welcome |
|
20 in the documentation of your product. If for some reason you cannot |
|
21 include such an acknowledgment, I would appreciate that you keep this |
|
22 copyright string in the executable of your product. |
|
23 */ |
|
24 |
|
25 /* |
|
26 Build a set of tables to decode the provided canonical Huffman code. |
|
27 The code lengths are lens[0..codes-1]. The result starts at *table, |
|
28 whose indices are 0..2^bits-1. work is a writable array of at least |
|
29 lens shorts, which is used as a work area. type is the type of code |
|
30 to be generated, CODES, LENS, or DISTS. On return, zero is success, |
|
31 -1 is an invalid code, and +1 means that ENOUGH isn't enough. table |
|
32 on return points to the next available entry's address. bits is the |
|
33 requested root table index bits, and on return it is the actual root |
|
34 table index bits. It will differ if the request is greater than the |
|
35 longest code or if it is less than the shortest code. |
|
36 */ |
|
37 #ifdef __SYMBIAN32__ |
|
38 int inflate_table(codetype type,unsigned short FAR * lens,unsigned codes, code FAR * FAR * table,unsigned FAR * bits,unsigned short FAR * work) |
|
39 #else |
|
40 int inflate_table(type, lens, codes, table, bits, work) |
|
41 codetype type; |
|
42 unsigned short FAR *lens; |
|
43 unsigned codes; |
|
44 code FAR * FAR *table; |
|
45 unsigned FAR *bits; |
|
46 unsigned short FAR *work; |
|
47 #endif //__SYMBIAN32__ |
|
48 { |
|
49 // Line to stop compiler warning about unused mandatory global variable 'inflate_copyright' |
|
50 char dontCare = inflate_copyright[0]; dontCare = dontCare; |
|
51 |
|
52 unsigned len; /* a code's length in bits */ |
|
53 unsigned sym; /* index of code symbols */ |
|
54 unsigned min, max; /* minimum and maximum code lengths */ |
|
55 unsigned root; /* number of index bits for root table */ |
|
56 unsigned curr; /* number of index bits for current table */ |
|
57 unsigned drop; /* code bits to drop for sub-table */ |
|
58 int left; /* number of prefix codes available */ |
|
59 unsigned used; /* code entries in table used */ |
|
60 unsigned huff; /* Huffman code */ |
|
61 unsigned incr; /* for incrementing code, index */ |
|
62 unsigned fill; /* index for replicating entries */ |
|
63 unsigned low; /* low bits for current root entry */ |
|
64 unsigned mask; /* mask for low root bits */ |
|
65 |
|
66 /* Need to replace "this" variable with "current" as "this" is a reserved |
|
67 * keyword in C++ which is prefectly fine for a c code. As this file |
|
68 * has been changed to C++ "this" needs to be changed. |
|
69 */ |
|
70 # define this current |
|
71 code this; /* table entry for duplication */ |
|
72 code FAR *next; /* next available space in table */ |
|
73 const unsigned short FAR *base; /* base value table to use */ |
|
74 const unsigned short FAR *extra; /* extra bits table to use */ |
|
75 int end; /* use base and extra for symbol > end */ |
|
76 unsigned short count[MAXBITS+1]; /* number of codes of each length */ |
|
77 unsigned short offs[MAXBITS+1]; /* offsets in table for each length */ |
|
78 static const unsigned short lbase[31] = { /* Length codes 257..285 base */ |
|
79 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 15, 17, 19, 23, 27, 31, |
|
80 35, 43, 51, 59, 67, 83, 99, 115, 131, 163, 195, 227, 258, 0, 0}; |
|
81 static const unsigned short lext[31] = { /* Length codes 257..285 extra */ |
|
82 16, 16, 16, 16, 16, 16, 16, 16, 17, 17, 17, 17, 18, 18, 18, 18, |
|
83 19, 19, 19, 19, 20, 20, 20, 20, 21, 21, 21, 21, 16, 201, 196}; |
|
84 static const unsigned short dbase[32] = { /* Distance codes 0..29 base */ |
|
85 1, 2, 3, 4, 5, 7, 9, 13, 17, 25, 33, 49, 65, 97, 129, 193, |
|
86 257, 385, 513, 769, 1025, 1537, 2049, 3073, 4097, 6145, |
|
87 8193, 12289, 16385, 24577, 0, 0}; |
|
88 static const unsigned short dext[32] = { /* Distance codes 0..29 extra */ |
|
89 16, 16, 16, 16, 17, 17, 18, 18, 19, 19, 20, 20, 21, 21, 22, 22, |
|
90 23, 23, 24, 24, 25, 25, 26, 26, 27, 27, |
|
91 28, 28, 29, 29, 64, 64}; |
|
92 |
|
93 /* |
|
94 Process a set of code lengths to create a canonical Huffman code. The |
|
95 code lengths are lens[0..codes-1]. Each length corresponds to the |
|
96 symbols 0..codes-1. The Huffman code is generated by first sorting the |
|
97 symbols by length from short to long, and retaining the symbol order |
|
98 for codes with equal lengths. Then the code starts with all zero bits |
|
99 for the first code of the shortest length, and the codes are integer |
|
100 increments for the same length, and zeros are appended as the length |
|
101 increases. For the deflate format, these bits are stored backwards |
|
102 from their more natural integer increment ordering, and so when the |
|
103 decoding tables are built in the large loop below, the integer codes |
|
104 are incremented backwards. |
|
105 |
|
106 This routine assumes, but does not check, that all of the entries in |
|
107 lens[] are in the range 0..MAXBITS. The caller must assure this. |
|
108 1..MAXBITS is interpreted as that code length. zero means that that |
|
109 symbol does not occur in this code. |
|
110 |
|
111 The codes are sorted by computing a count of codes for each length, |
|
112 creating from that a table of starting indices for each length in the |
|
113 sorted table, and then entering the symbols in order in the sorted |
|
114 table. The sorted table is work[], with that space being provided by |
|
115 the caller. |
|
116 |
|
117 The length counts are used for other purposes as well, i.e. finding |
|
118 the minimum and maximum length codes, determining if there are any |
|
119 codes at all, checking for a valid set of lengths, and looking ahead |
|
120 at length counts to determine sub-table sizes when building the |
|
121 decoding tables. |
|
122 */ |
|
123 |
|
124 /* accumulate lengths for codes (assumes lens[] all in 0..MAXBITS) */ |
|
125 for (len = 0; len <= MAXBITS; len++) |
|
126 count[len] = 0; |
|
127 for (sym = 0; sym < codes; sym++) |
|
128 count[lens[sym]]++; |
|
129 |
|
130 /* bound code lengths, force root to be within code lengths */ |
|
131 root = *bits; |
|
132 for (max = MAXBITS; max >= 1; max--) |
|
133 if (count[max] != 0) break; |
|
134 if (root > max) root = max; |
|
135 if (max == 0) { /* no symbols to code at all */ |
|
136 this.op = (unsigned char)64; /* invalid code marker */ |
|
137 this.bits = (unsigned char)1; |
|
138 this.val = (unsigned short)0; |
|
139 *(*table)++ = this; /* make a table to force an error */ |
|
140 *(*table)++ = this; |
|
141 *bits = 1; |
|
142 return 0; /* no symbols, but wait for decoding to report error */ |
|
143 } |
|
144 for (min = 1; min <= MAXBITS; min++) |
|
145 if (count[min] != 0) break; |
|
146 if (root < min) root = min; |
|
147 |
|
148 /* check for an over-subscribed or incomplete set of lengths */ |
|
149 left = 1; |
|
150 for (len = 1; len <= MAXBITS; len++) { |
|
151 left <<= 1; |
|
152 left -= count[len]; |
|
153 if (left < 0) return -1; /* over-subscribed */ |
|
154 } |
|
155 if (left > 0 && (type == CODES || max != 1)) |
|
156 return -1; /* incomplete set */ |
|
157 |
|
158 /* generate offsets into symbol table for each length for sorting */ |
|
159 offs[1] = 0; |
|
160 for (len = 1; len < MAXBITS; len++) |
|
161 offs[len + 1] = offs[len] + count[len]; |
|
162 |
|
163 /* sort symbols by length, by symbol order within each length */ |
|
164 for (sym = 0; sym < codes; sym++) |
|
165 if (lens[sym] != 0) work[offs[lens[sym]]++] = (unsigned short)sym; |
|
166 |
|
167 /* |
|
168 Create and fill in decoding tables. In this loop, the table being |
|
169 filled is at next and has curr index bits. The code being used is huff |
|
170 with length len. That code is converted to an index by dropping drop |
|
171 bits off of the bottom. For codes where len is less than drop + curr, |
|
172 those top drop + curr - len bits are incremented through all values to |
|
173 fill the table with replicated entries. |
|
174 |
|
175 root is the number of index bits for the root table. When len exceeds |
|
176 root, sub-tables are created pointed to by the root entry with an index |
|
177 of the low root bits of huff. This is saved in low to check for when a |
|
178 new sub-table should be started. drop is zero when the root table is |
|
179 being filled, and drop is root when sub-tables are being filled. |
|
180 |
|
181 When a new sub-table is needed, it is necessary to look ahead in the |
|
182 code lengths to determine what size sub-table is needed. The length |
|
183 counts are used for this, and so count[] is decremented as codes are |
|
184 entered in the tables. |
|
185 |
|
186 used keeps track of how many table entries have been allocated from the |
|
187 provided *table space. It is checked when a LENS table is being made |
|
188 against the space in *table, ENOUGH, minus the maximum space needed by |
|
189 the worst case distance code, MAXD. This should never happen, but the |
|
190 sufficiency of ENOUGH has not been proven exhaustively, hence the check. |
|
191 This assumes that when type == LENS, bits == 9. |
|
192 |
|
193 sym increments through all symbols, and the loop terminates when |
|
194 all codes of length max, i.e. all codes, have been processed. This |
|
195 routine permits incomplete codes, so another loop after this one fills |
|
196 in the rest of the decoding tables with invalid code markers. |
|
197 */ |
|
198 |
|
199 /* set up for code type */ |
|
200 switch (type) { |
|
201 case CODES: |
|
202 base = extra = work; /* dummy value--not used */ |
|
203 end = 19; |
|
204 break; |
|
205 case LENS: |
|
206 base = lbase; |
|
207 base -= 257; |
|
208 extra = lext; |
|
209 extra -= 257; |
|
210 end = 256; |
|
211 break; |
|
212 default: /* DISTS */ |
|
213 base = dbase; |
|
214 extra = dext; |
|
215 end = -1; |
|
216 } |
|
217 |
|
218 /* initialize state for loop */ |
|
219 huff = 0; /* starting code */ |
|
220 sym = 0; /* starting code symbol */ |
|
221 len = min; /* starting code length */ |
|
222 next = *table; /* current table to fill in */ |
|
223 curr = root; /* current table index bits */ |
|
224 drop = 0; /* current bits to drop from code for index */ |
|
225 low = (unsigned)(-1); /* trigger new sub-table when len > root */ |
|
226 used = 1U << root; /* use root table entries */ |
|
227 mask = used - 1; /* mask for comparing low */ |
|
228 |
|
229 /* check available table space */ |
|
230 if (type == LENS && used >= ENOUGH - MAXD) |
|
231 return 1; |
|
232 |
|
233 /* process all codes and make table entries */ |
|
234 for (;;) { |
|
235 /* create table entry */ |
|
236 this.bits = (unsigned char)(len - drop); |
|
237 if ((int)(work[sym]) < end) { |
|
238 this.op = (unsigned char)0; |
|
239 this.val = work[sym]; |
|
240 } |
|
241 else if ((int)(work[sym]) > end) { |
|
242 this.op = (unsigned char)(extra[work[sym]]); |
|
243 this.val = base[work[sym]]; |
|
244 } |
|
245 else { |
|
246 this.op = (unsigned char)(32 + 64); /* end of block */ |
|
247 this.val = 0; |
|
248 } |
|
249 |
|
250 /* replicate for those indices with low len bits equal to huff */ |
|
251 incr = 1U << (len - drop); |
|
252 fill = 1U << curr; |
|
253 min = fill; /* save offset to next table */ |
|
254 do { |
|
255 fill -= incr; |
|
256 next[(huff >> drop) + fill] = this; |
|
257 } while (fill != 0); |
|
258 |
|
259 /* backwards increment the len-bit code huff */ |
|
260 incr = 1U << (len - 1); |
|
261 while (huff & incr) |
|
262 incr >>= 1; |
|
263 if (incr != 0) { |
|
264 huff &= incr - 1; |
|
265 huff += incr; |
|
266 } |
|
267 else |
|
268 huff = 0; |
|
269 |
|
270 /* go to next symbol, update count, len */ |
|
271 sym++; |
|
272 if (--(count[len]) == 0) { |
|
273 if (len == max) break; |
|
274 len = lens[work[sym]]; |
|
275 } |
|
276 |
|
277 /* create new sub-table if needed */ |
|
278 if (len > root && (huff & mask) != low) { |
|
279 /* if first time, transition to sub-tables */ |
|
280 if (drop == 0) |
|
281 drop = root; |
|
282 |
|
283 /* increment past last table */ |
|
284 next += min; /* here min is 1 << curr */ |
|
285 |
|
286 /* determine length of next table */ |
|
287 curr = len - drop; |
|
288 left = (int)(1 << curr); |
|
289 while (curr + drop < max) { |
|
290 left -= count[curr + drop]; |
|
291 if (left <= 0) break; |
|
292 curr++; |
|
293 left <<= 1; |
|
294 } |
|
295 |
|
296 /* check for enough space */ |
|
297 used += 1U << curr; |
|
298 if (type == LENS && used >= ENOUGH - MAXD) |
|
299 return 1; |
|
300 |
|
301 /* point entry in root table to sub-table */ |
|
302 low = huff & mask; |
|
303 (*table)[low].op = (unsigned char)curr; |
|
304 (*table)[low].bits = (unsigned char)root; |
|
305 (*table)[low].val = (unsigned short)(next - *table); |
|
306 } |
|
307 } |
|
308 |
|
309 /* |
|
310 Fill in rest of table for incomplete codes. This loop is similar to the |
|
311 loop above in incrementing huff for table indices. It is assumed that |
|
312 len is equal to curr + drop, so there is no loop needed to increment |
|
313 through high index bits. When the current sub-table is filled, the loop |
|
314 drops back to the root table to fill in any remaining entries there. |
|
315 */ |
|
316 this.op = (unsigned char)64; /* invalid code marker */ |
|
317 this.bits = (unsigned char)(len - drop); |
|
318 this.val = (unsigned short)0; |
|
319 while (huff != 0) { |
|
320 /* when done with sub-table, drop back to root table */ |
|
321 if (drop != 0 && (huff & mask) != low) { |
|
322 drop = 0; |
|
323 len = root; |
|
324 next = *table; |
|
325 this.bits = (unsigned char)len; |
|
326 } |
|
327 |
|
328 /* put invalid code marker in table */ |
|
329 next[huff >> drop] = this; |
|
330 |
|
331 /* backwards increment the len-bit code huff */ |
|
332 incr = 1U << (len - 1); |
|
333 while (huff & incr) |
|
334 incr >>= 1; |
|
335 if (incr != 0) { |
|
336 huff &= incr - 1; |
|
337 huff += incr; |
|
338 } |
|
339 else |
|
340 huff = 0; |
|
341 } |
|
342 |
|
343 /* set return parameters */ |
|
344 *table += used; |
|
345 *bits = root; |
|
346 return 0; |
|
347 } |
|
348 |
|
349 |
|
350 |
|
351 |
|
352 |
|
353 |