Mercurial > libavcodec.hg
annotate lzw.c @ 4727:23f8f6efc870 libavcodec
simplify
author | michael |
---|---|
date | Sun, 25 Mar 2007 15:09:16 +0000 |
parents | ecb663d00b6b |
children | 5db8e9e8f71d |
rev | line source |
---|---|
4080 | 1 /* |
2 * LZW decoder | |
3 * Copyright (c) 2003 Fabrice Bellard. | |
4 * Copyright (c) 2006 Konstantin Shishkov. | |
5 * | |
6 * This file is part of FFmpeg. | |
7 * | |
8 * FFmpeg is free software; you can redistribute it and/or | |
9 * modify it under the terms of the GNU Lesser General Public | |
10 * License as published by the Free Software Foundation; either | |
11 * version 2.1 of the License, or (at your option) any later version. | |
12 * | |
13 * FFmpeg is distributed in the hope that it will be useful, | |
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
16 * Lesser General Public License for more details. | |
17 * | |
18 * You should have received a copy of the GNU Lesser General Public | |
19 * License along with FFmpeg; if not, write to the Free Software | |
20 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA | |
21 */ | |
22 | |
23 /** | |
24 * @file lzw.c | |
25 * @brief LZW decoding routines | |
26 * @author Fabrice Bellard | |
27 * Modified for use in TIFF by Konstantin Shishkov | |
28 */ | |
29 | |
30 #include "avcodec.h" | |
31 #include "lzw.h" | |
32 | |
33 #define LZW_MAXBITS 12 | |
34 #define LZW_SIZTABLE (1<<LZW_MAXBITS) | |
35 | |
36 static const uint16_t mask[17] = | |
37 { | |
38 0x0000, 0x0001, 0x0003, 0x0007, | |
39 0x000F, 0x001F, 0x003F, 0x007F, | |
40 0x00FF, 0x01FF, 0x03FF, 0x07FF, | |
41 0x0FFF, 0x1FFF, 0x3FFF, 0x7FFF, 0xFFFF | |
42 }; | |
43 | |
44 struct LZWState { | |
45 int eob_reached; | |
46 uint8_t *pbuf, *ebuf; | |
47 int bbits; | |
48 unsigned int bbuf; | |
49 | |
50 int mode; ///< Decoder mode | |
51 int cursize; ///< The current code size | |
52 int curmask; | |
53 int codesize; | |
54 int clear_code; | |
55 int end_code; | |
56 int newcodes; ///< First available code | |
57 int top_slot; ///< Highest code for current size | |
4725 | 58 int extra_slot; |
4080 | 59 int slot; ///< Last read code |
60 int fc, oc; | |
61 uint8_t *sp; | |
62 uint8_t stack[LZW_SIZTABLE]; | |
63 uint8_t suffix[LZW_SIZTABLE]; | |
64 uint16_t prefix[LZW_SIZTABLE]; | |
65 int bs; ///< current buffer size for GIF | |
66 }; | |
67 | |
68 /* get one code from stream */ | |
69 static int lzw_get_code(struct LZWState * s) | |
70 { | |
4727 | 71 int c; |
4080 | 72 |
73 if(s->mode == FF_LZW_GIF) { | |
74 while (s->bbits < s->cursize) { | |
75 if (!s->bs) { | |
4727 | 76 s->bs = *s->pbuf++; |
77 if(!s->bs) { | |
4080 | 78 s->eob_reached = 1; |
4715
fdbf89c6e2a7
break if eob is reached to avoid reading one too much byte
bcoudurier
parents:
4080
diff
changeset
|
79 break; |
4080 | 80 } |
81 } | |
82 s->bbuf |= (*s->pbuf++) << s->bbits; | |
83 s->bbits += 8; | |
84 s->bs--; | |
85 } | |
86 c = s->bbuf & s->curmask; | |
4716 | 87 s->bbuf >>= s->cursize; |
4080 | 88 } else { // TIFF |
89 while (s->bbits < s->cursize) { | |
90 if (s->pbuf >= s->ebuf) { | |
91 s->eob_reached = 1; | |
92 } | |
93 s->bbuf = (s->bbuf << 8) | (*s->pbuf++); | |
94 s->bbits += 8; | |
95 } | |
96 c = (s->bbuf >> (s->bbits - s->cursize)) & s->curmask; | |
97 } | |
98 s->bbits -= s->cursize; | |
99 return c; | |
100 } | |
101 | |
102 uint8_t* ff_lzw_cur_ptr(LZWState *p) | |
103 { | |
104 return ((struct LZWState*)p)->pbuf; | |
105 } | |
106 | |
107 void ff_lzw_decode_tail(LZWState *p) | |
108 { | |
109 struct LZWState *s = (struct LZWState *)p; | |
110 while(!s->eob_reached) | |
111 lzw_get_code(s); | |
112 } | |
113 | |
114 void ff_lzw_decode_open(LZWState **p) | |
115 { | |
116 *p = av_mallocz(sizeof(struct LZWState)); | |
117 } | |
118 | |
119 void ff_lzw_decode_close(LZWState **p) | |
120 { | |
121 av_freep(p); | |
122 } | |
123 | |
124 /** | |
125 * Initialize LZW decoder | |
126 * @param s LZW context | |
127 * @param csize initial code size in bits | |
128 * @param buf input data | |
129 * @param buf_size input data size | |
130 * @param mode decoder working mode - either GIF or TIFF | |
131 */ | |
132 int ff_lzw_decode_init(LZWState *p, int csize, uint8_t *buf, int buf_size, int mode) | |
133 { | |
134 struct LZWState *s = (struct LZWState *)p; | |
135 | |
136 if(csize < 1 || csize > LZW_MAXBITS) | |
137 return -1; | |
138 /* read buffer */ | |
139 s->eob_reached = 0; | |
140 s->pbuf = buf; | |
141 s->ebuf = s->pbuf + buf_size; | |
142 s->bbuf = 0; | |
143 s->bbits = 0; | |
144 s->bs = 0; | |
145 | |
146 /* decoder */ | |
147 s->codesize = csize; | |
148 s->cursize = s->codesize + 1; | |
149 s->curmask = mask[s->cursize]; | |
150 s->top_slot = 1 << s->cursize; | |
151 s->clear_code = 1 << s->codesize; | |
152 s->end_code = s->clear_code + 1; | |
153 s->slot = s->newcodes = s->clear_code + 2; | |
154 s->oc = s->fc = 0; | |
155 s->sp = s->stack; | |
156 | |
157 s->mode = mode; | |
158 switch(s->mode){ | |
159 case FF_LZW_GIF: | |
4725 | 160 s->extra_slot= 0; |
4080 | 161 break; |
162 case FF_LZW_TIFF: | |
4725 | 163 s->extra_slot= 1; |
4080 | 164 break; |
165 default: | |
166 return -1; | |
167 } | |
168 return 0; | |
169 } | |
170 | |
171 /** | |
172 * Decode given number of bytes | |
173 * NOTE: the algorithm here is inspired from the LZW GIF decoder | |
174 * written by Steven A. Bennett in 1987. | |
175 * | |
176 * @param s LZW context | |
177 * @param buf output buffer | |
178 * @param len number of bytes to decode | |
179 * @return number of bytes decoded | |
180 */ | |
181 int ff_lzw_decode(LZWState *p, uint8_t *buf, int len){ | |
182 int l, c, code, oc, fc; | |
183 uint8_t *sp; | |
184 struct LZWState *s = (struct LZWState *)p; | |
185 | |
186 if (s->end_code < 0) | |
187 return 0; | |
188 | |
189 l = len; | |
190 sp = s->sp; | |
191 oc = s->oc; | |
192 fc = s->fc; | |
193 | |
194 for (;;) { | |
4726 | 195 while (sp > s->stack) { |
196 *buf++ = *(--sp); | |
197 if ((--l) == 0) | |
198 goto the_end; | |
199 } | |
4080 | 200 c = lzw_get_code(s); |
201 if (c == s->end_code) { | |
202 s->end_code = -1; | |
203 break; | |
204 } else if (c == s->clear_code) { | |
205 s->cursize = s->codesize + 1; | |
206 s->curmask = mask[s->cursize]; | |
207 s->slot = s->newcodes; | |
208 s->top_slot = 1 << s->cursize; | |
209 while ((c = lzw_get_code(s)) == s->clear_code); | |
210 if (c == s->end_code) { | |
211 s->end_code = -1; | |
212 break; | |
213 } | |
214 /* test error */ | |
215 if (c >= s->slot) | |
216 c = 0; | |
217 fc = oc = c; | |
218 *buf++ = c; | |
219 if ((--l) == 0) | |
220 break; | |
221 } else { | |
222 code = c; | |
223 if (code >= s->slot) { | |
224 *sp++ = fc; | |
225 code = oc; | |
226 } | |
227 while (code >= s->newcodes) { | |
228 *sp++ = s->suffix[code]; | |
229 code = s->prefix[code]; | |
230 } | |
231 *sp++ = code; | |
232 if (s->slot < s->top_slot) { | |
233 s->suffix[s->slot] = fc = code; | |
234 s->prefix[s->slot++] = oc; | |
235 oc = c; | |
236 } | |
4725 | 237 if (s->slot >= s->top_slot - s->extra_slot) { |
4080 | 238 if (s->cursize < LZW_MAXBITS) { |
239 s->top_slot <<= 1; | |
240 s->curmask = mask[++s->cursize]; | |
241 } | |
242 } | |
243 } | |
244 } | |
245 the_end: | |
246 s->sp = sp; | |
247 s->oc = oc; | |
248 s->fc = fc; | |
249 return len - l; | |
250 } |