1 /*
2 * WavPack lossless audio decoder
3 * Copyright (c) 2006,2011 Konstantin Shishkov
4 * Copyright (c) 2020 David Bryant
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 #include "libavutil/buffer.h"
24 #include "libavutil/channel_layout.h"
25
26 #define BITSTREAM_READER_LE
27 #include "avcodec.h"
28 #include "bytestream.h"
29 #include "get_bits.h"
30 #include "internal.h"
31 #include "thread.h"
32 #include "unary.h"
33 #include "wavpack.h"
34 #include "dsd.h"
35
36 /**
37 * @file
38 * WavPack lossless audio decoder
39 */
40
41 #define DSD_BYTE_READY(low,high) (!(((low) ^ (high)) & 0xff000000))
42
43 #define PTABLE_BITS 8
44 #define PTABLE_BINS (1<<PTABLE_BITS)
45 #define PTABLE_MASK (PTABLE_BINS-1)
46
47 #define UP 0x010000fe
48 #define DOWN 0x00010000
49 #define DECAY 8
50
51 #define PRECISION 20
52 #define VALUE_ONE (1 << PRECISION)
53 #define PRECISION_USE 12
54
55 #define RATE_S 20
56
57 #define MAX_HISTORY_BITS 5
58 #define MAX_HISTORY_BINS (1 << MAX_HISTORY_BITS)
59 #define MAX_BIN_BYTES 1280 // for value_lookup, per bin (2k - 512 - 256)
60
61 typedef enum {
62 MODULATION_PCM, // pulse code modulation
63 MODULATION_DSD // pulse density modulation (aka DSD)
64 } Modulation;
65
66 typedef struct WavpackFrameContext {
67 AVCodecContext *avctx;
68 int frame_flags;
69 int stereo, stereo_in;
70 int joint;
71 uint32_t CRC;
72 GetBitContext gb;
73 int got_extra_bits;
74 uint32_t crc_extra_bits;
75 GetBitContext gb_extra_bits;
76 int samples;
77 int terms;
78 Decorr decorr[MAX_TERMS];
79 int zero, one, zeroes;
80 int extra_bits;
81 int and, or, shift;
82 int post_shift;
83 int hybrid, hybrid_bitrate;
84 int hybrid_maxclip, hybrid_minclip;
85 int float_flag;
86 int float_shift;
87 int float_max_exp;
88 WvChannel ch[2];
89
90 GetByteContext gbyte;
91 int ptable [PTABLE_BINS];
92 uint8_t value_lookup_buffer[MAX_HISTORY_BINS*MAX_BIN_BYTES];
93 uint16_t summed_probabilities[MAX_HISTORY_BINS][256];
94 uint8_t probabilities[MAX_HISTORY_BINS][256];
95 uint8_t *value_lookup[MAX_HISTORY_BINS];
96 } WavpackFrameContext;
97
98 #define WV_MAX_FRAME_DECODERS 14
99
100 typedef struct WavpackContext {
101 AVCodecContext *avctx;
102
103 WavpackFrameContext *fdec[WV_MAX_FRAME_DECODERS];
104 int fdec_num;
105
106 int block;
107 int samples;
108 int ch_offset;
109
110 AVFrame *frame;
111 ThreadFrame curr_frame, prev_frame;
112 Modulation modulation;
113
114 AVBufferRef *dsd_ref;
115 DSDContext *dsdctx;
116 int dsd_channels;
117 } WavpackContext;
118
119 #define LEVEL_DECAY(a) (((a) + 0x80) >> 8)
120
get_tail(GetBitContext * gb,int k)121 static av_always_inline unsigned get_tail(GetBitContext *gb, int k)
122 {
123 int p, e, res;
124
125 if (k < 1)
126 return 0;
127 p = av_log2(k);
128 e = (1 << (p + 1)) - k - 1;
129 res = get_bitsz(gb, p);
130 if (res >= e)
131 res = (res << 1) - e + get_bits1(gb);
132 return res;
133 }
134
update_error_limit(WavpackFrameContext * ctx)135 static int update_error_limit(WavpackFrameContext *ctx)
136 {
137 int i, br[2], sl[2];
138
139 for (i = 0; i <= ctx->stereo_in; i++) {
140 if (ctx->ch[i].bitrate_acc > UINT_MAX - ctx->ch[i].bitrate_delta)
141 return AVERROR_INVALIDDATA;
142 ctx->ch[i].bitrate_acc += ctx->ch[i].bitrate_delta;
143 br[i] = ctx->ch[i].bitrate_acc >> 16;
144 sl[i] = LEVEL_DECAY(ctx->ch[i].slow_level);
145 }
146 if (ctx->stereo_in && ctx->hybrid_bitrate) {
147 int balance = (sl[1] - sl[0] + br[1] + 1) >> 1;
148 if (balance > br[0]) {
149 br[1] = br[0] * 2;
150 br[0] = 0;
151 } else if (-balance > br[0]) {
152 br[0] *= 2;
153 br[1] = 0;
154 } else {
155 br[1] = br[0] + balance;
156 br[0] = br[0] - balance;
157 }
158 }
159 for (i = 0; i <= ctx->stereo_in; i++) {
160 if (ctx->hybrid_bitrate) {
161 if (sl[i] - br[i] > -0x100)
162 ctx->ch[i].error_limit = wp_exp2(sl[i] - br[i] + 0x100);
163 else
164 ctx->ch[i].error_limit = 0;
165 } else {
166 ctx->ch[i].error_limit = wp_exp2(br[i]);
167 }
168 }
169
170 return 0;
171 }
172
wv_get_value(WavpackFrameContext * ctx,GetBitContext * gb,int channel,int * last)173 static int wv_get_value(WavpackFrameContext *ctx, GetBitContext *gb,
174 int channel, int *last)
175 {
176 int t, t2;
177 int sign, base, add, ret;
178 WvChannel *c = &ctx->ch[channel];
179
180 *last = 0;
181
182 if ((ctx->ch[0].median[0] < 2U) && (ctx->ch[1].median[0] < 2U) &&
183 !ctx->zero && !ctx->one) {
184 if (ctx->zeroes) {
185 ctx->zeroes--;
186 if (ctx->zeroes) {
187 c->slow_level -= LEVEL_DECAY(c->slow_level);
188 return 0;
189 }
190 } else {
191 t = get_unary_0_33(gb);
192 if (t >= 2) {
193 if (t >= 32 || get_bits_left(gb) < t - 1)
194 goto error;
195 t = get_bits_long(gb, t - 1) | (1 << (t - 1));
196 } else {
197 if (get_bits_left(gb) < 0)
198 goto error;
199 }
200 ctx->zeroes = t;
201 if (ctx->zeroes) {
202 memset(ctx->ch[0].median, 0, sizeof(ctx->ch[0].median));
203 memset(ctx->ch[1].median, 0, sizeof(ctx->ch[1].median));
204 c->slow_level -= LEVEL_DECAY(c->slow_level);
205 return 0;
206 }
207 }
208 }
209
210 if (ctx->zero) {
211 t = 0;
212 ctx->zero = 0;
213 } else {
214 t = get_unary_0_33(gb);
215 if (get_bits_left(gb) < 0)
216 goto error;
217 if (t == 16) {
218 t2 = get_unary_0_33(gb);
219 if (t2 < 2) {
220 if (get_bits_left(gb) < 0)
221 goto error;
222 t += t2;
223 } else {
224 if (t2 >= 32 || get_bits_left(gb) < t2 - 1)
225 goto error;
226 t += get_bits_long(gb, t2 - 1) | (1 << (t2 - 1));
227 }
228 }
229
230 if (ctx->one) {
231 ctx->one = t & 1;
232 t = (t >> 1) + 1;
233 } else {
234 ctx->one = t & 1;
235 t >>= 1;
236 }
237 ctx->zero = !ctx->one;
238 }
239
240 if (ctx->hybrid && !channel) {
241 if (update_error_limit(ctx) < 0)
242 goto error;
243 }
244
245 if (!t) {
246 base = 0;
247 add = GET_MED(0) - 1;
248 DEC_MED(0);
249 } else if (t == 1) {
250 base = GET_MED(0);
251 add = GET_MED(1) - 1;
252 INC_MED(0);
253 DEC_MED(1);
254 } else if (t == 2) {
255 base = GET_MED(0) + GET_MED(1);
256 add = GET_MED(2) - 1;
257 INC_MED(0);
258 INC_MED(1);
259 DEC_MED(2);
260 } else {
261 base = GET_MED(0) + GET_MED(1) + GET_MED(2) * (t - 2U);
262 add = GET_MED(2) - 1;
263 INC_MED(0);
264 INC_MED(1);
265 INC_MED(2);
266 }
267 if (!c->error_limit) {
268 if (add >= 0x2000000U) {
269 av_log(ctx->avctx, AV_LOG_ERROR, "k %d is too large\n", add);
270 goto error;
271 }
272 ret = base + get_tail(gb, add);
273 if (get_bits_left(gb) <= 0)
274 goto error;
275 } else {
276 int mid = (base * 2U + add + 1) >> 1;
277 while (add > c->error_limit) {
278 if (get_bits_left(gb) <= 0)
279 goto error;
280 if (get_bits1(gb)) {
281 add -= (mid - (unsigned)base);
282 base = mid;
283 } else
284 add = mid - (unsigned)base - 1;
285 mid = (base * 2U + add + 1) >> 1;
286 }
287 ret = mid;
288 }
289 sign = get_bits1(gb);
290 if (ctx->hybrid_bitrate)
291 c->slow_level += wp_log2(ret) - LEVEL_DECAY(c->slow_level);
292 return sign ? ~ret : ret;
293
294 error:
295 ret = get_bits_left(gb);
296 if (ret <= 0) {
297 av_log(ctx->avctx, AV_LOG_ERROR, "Too few bits (%d) left\n", ret);
298 }
299 *last = 1;
300 return 0;
301 }
302
wv_get_value_integer(WavpackFrameContext * s,uint32_t * crc,unsigned S)303 static inline int wv_get_value_integer(WavpackFrameContext *s, uint32_t *crc,
304 unsigned S)
305 {
306 unsigned bit;
307
308 if (s->extra_bits) {
309 S *= 1 << s->extra_bits;
310
311 if (s->got_extra_bits &&
312 get_bits_left(&s->gb_extra_bits) >= s->extra_bits) {
313 S |= get_bits_long(&s->gb_extra_bits, s->extra_bits);
314 *crc = *crc * 9 + (S & 0xffff) * 3 + ((unsigned)S >> 16);
315 }
316 }
317
318 bit = (S & s->and) | s->or;
319 bit = ((S + bit) << s->shift) - bit;
320
321 if (s->hybrid)
322 bit = av_clip(bit, s->hybrid_minclip, s->hybrid_maxclip);
323
324 return bit << s->post_shift;
325 }
326
wv_get_value_float(WavpackFrameContext * s,uint32_t * crc,int S)327 static float wv_get_value_float(WavpackFrameContext *s, uint32_t *crc, int S)
328 {
329 union {
330 float f;
331 uint32_t u;
332 } value;
333
334 unsigned int sign;
335 int exp = s->float_max_exp;
336
337 if (s->got_extra_bits) {
338 const int max_bits = 1 + 23 + 8 + 1;
339 const int left_bits = get_bits_left(&s->gb_extra_bits);
340
341 if (left_bits + 8 * AV_INPUT_BUFFER_PADDING_SIZE < max_bits)
342 return 0.0;
343 }
344
345 if (S) {
346 S *= 1U << s->float_shift;
347 sign = S < 0;
348 if (sign)
349 S = -(unsigned)S;
350 if (S >= 0x1000000U) {
351 if (s->got_extra_bits && get_bits1(&s->gb_extra_bits))
352 S = get_bits(&s->gb_extra_bits, 23);
353 else
354 S = 0;
355 exp = 255;
356 } else if (exp) {
357 int shift = 23 - av_log2(S);
358 exp = s->float_max_exp;
359 if (exp <= shift)
360 shift = --exp;
361 exp -= shift;
362
363 if (shift) {
364 S <<= shift;
365 if ((s->float_flag & WV_FLT_SHIFT_ONES) ||
366 (s->got_extra_bits &&
367 (s->float_flag & WV_FLT_SHIFT_SAME) &&
368 get_bits1(&s->gb_extra_bits))) {
369 S |= (1 << shift) - 1;
370 } else if (s->got_extra_bits &&
371 (s->float_flag & WV_FLT_SHIFT_SENT)) {
372 S |= get_bits(&s->gb_extra_bits, shift);
373 }
374 }
375 } else {
376 exp = s->float_max_exp;
377 }
378 S &= 0x7fffff;
379 } else {
380 sign = 0;
381 exp = 0;
382 if (s->got_extra_bits && (s->float_flag & WV_FLT_ZERO_SENT)) {
383 if (get_bits1(&s->gb_extra_bits)) {
384 S = get_bits(&s->gb_extra_bits, 23);
385 if (s->float_max_exp >= 25)
386 exp = get_bits(&s->gb_extra_bits, 8);
387 sign = get_bits1(&s->gb_extra_bits);
388 } else {
389 if (s->float_flag & WV_FLT_ZERO_SIGN)
390 sign = get_bits1(&s->gb_extra_bits);
391 }
392 }
393 }
394
395 *crc = *crc * 27 + S * 9 + exp * 3 + sign;
396
397 value.u = (sign << 31) | (exp << 23) | S;
398 return value.f;
399 }
400
wv_check_crc(WavpackFrameContext * s,uint32_t crc,uint32_t crc_extra_bits)401 static inline int wv_check_crc(WavpackFrameContext *s, uint32_t crc,
402 uint32_t crc_extra_bits)
403 {
404 if (crc != s->CRC) {
405 av_log(s->avctx, AV_LOG_ERROR, "CRC error\n");
406 return AVERROR_INVALIDDATA;
407 }
408 if (s->got_extra_bits && crc_extra_bits != s->crc_extra_bits) {
409 av_log(s->avctx, AV_LOG_ERROR, "Extra bits CRC error\n");
410 return AVERROR_INVALIDDATA;
411 }
412
413 return 0;
414 }
415
init_ptable(int * table,int rate_i,int rate_s)416 static void init_ptable(int *table, int rate_i, int rate_s)
417 {
418 int value = 0x808000, rate = rate_i << 8;
419
420 for (int c = (rate + 128) >> 8; c--;)
421 value += (DOWN - value) >> DECAY;
422
423 for (int i = 0; i < PTABLE_BINS/2; i++) {
424 table[i] = value;
425 table[PTABLE_BINS-1-i] = 0x100ffff - value;
426
427 if (value > 0x010000) {
428 rate += (rate * rate_s + 128) >> 8;
429
430 for (int c = (rate + 64) >> 7; c--;)
431 value += (DOWN - value) >> DECAY;
432 }
433 }
434 }
435
436 typedef struct {
437 int32_t value, fltr0, fltr1, fltr2, fltr3, fltr4, fltr5, fltr6, factor;
438 unsigned int byte;
439 } DSDfilters;
440
wv_unpack_dsd_high(WavpackFrameContext * s,uint8_t * dst_left,uint8_t * dst_right)441 static int wv_unpack_dsd_high(WavpackFrameContext *s, uint8_t *dst_left, uint8_t *dst_right)
442 {
443 uint32_t checksum = 0xFFFFFFFF;
444 uint8_t *dst_l = dst_left, *dst_r = dst_right;
445 int total_samples = s->samples, stereo = dst_r ? 1 : 0;
446 DSDfilters filters[2], *sp = filters;
447 int rate_i, rate_s;
448 uint32_t low, high, value;
449
450 if (bytestream2_get_bytes_left(&s->gbyte) < (stereo ? 20 : 13))
451 return AVERROR_INVALIDDATA;
452
453 rate_i = bytestream2_get_byte(&s->gbyte);
454 rate_s = bytestream2_get_byte(&s->gbyte);
455
456 if (rate_s != RATE_S)
457 return AVERROR_INVALIDDATA;
458
459 init_ptable(s->ptable, rate_i, rate_s);
460
461 for (int channel = 0; channel < stereo + 1; channel++) {
462 DSDfilters *sp = filters + channel;
463
464 sp->fltr1 = bytestream2_get_byte(&s->gbyte) << (PRECISION - 8);
465 sp->fltr2 = bytestream2_get_byte(&s->gbyte) << (PRECISION - 8);
466 sp->fltr3 = bytestream2_get_byte(&s->gbyte) << (PRECISION - 8);
467 sp->fltr4 = bytestream2_get_byte(&s->gbyte) << (PRECISION - 8);
468 sp->fltr5 = bytestream2_get_byte(&s->gbyte) << (PRECISION - 8);
469 sp->fltr6 = 0;
470 sp->factor = bytestream2_get_byte(&s->gbyte) & 0xff;
471 sp->factor |= (bytestream2_get_byte(&s->gbyte) << 8) & 0xff00;
472 sp->factor = (int32_t)((uint32_t)sp->factor << 16) >> 16;
473 }
474
475 value = bytestream2_get_be32(&s->gbyte);
476 high = 0xffffffff;
477 low = 0x0;
478
479 while (total_samples--) {
480 int bitcount = 8;
481
482 sp[0].value = sp[0].fltr1 - sp[0].fltr5 + ((sp[0].fltr6 * sp[0].factor) >> 2);
483
484 if (stereo)
485 sp[1].value = sp[1].fltr1 - sp[1].fltr5 + ((sp[1].fltr6 * sp[1].factor) >> 2);
486
487 while (bitcount--) {
488 int32_t *pp = s->ptable + ((sp[0].value >> (PRECISION - PRECISION_USE)) & PTABLE_MASK);
489 uint32_t split = low + ((high - low) >> 8) * (*pp >> 16);
490
491 if (value <= split) {
492 high = split;
493 *pp += (UP - *pp) >> DECAY;
494 sp[0].fltr0 = -1;
495 } else {
496 low = split + 1;
497 *pp += (DOWN - *pp) >> DECAY;
498 sp[0].fltr0 = 0;
499 }
500
501 while (DSD_BYTE_READY(high, low) && bytestream2_get_bytes_left(&s->gbyte)) {
502 value = (value << 8) | bytestream2_get_byte(&s->gbyte);
503 high = (high << 8) | 0xff;
504 low <<= 8;
505 }
506
507 sp[0].value += sp[0].fltr6 * 8;
508 sp[0].byte = (sp[0].byte << 1) | (sp[0].fltr0 & 1);
509 sp[0].factor += (((sp[0].value ^ sp[0].fltr0) >> 31) | 1) &
510 ((sp[0].value ^ (sp[0].value - (sp[0].fltr6 * 16))) >> 31);
511 sp[0].fltr1 += ((sp[0].fltr0 & VALUE_ONE) - sp[0].fltr1) >> 6;
512 sp[0].fltr2 += ((sp[0].fltr0 & VALUE_ONE) - sp[0].fltr2) >> 4;
513 sp[0].fltr3 += (sp[0].fltr2 - sp[0].fltr3) >> 4;
514 sp[0].fltr4 += (sp[0].fltr3 - sp[0].fltr4) >> 4;
515 sp[0].value = (sp[0].fltr4 - sp[0].fltr5) >> 4;
516 sp[0].fltr5 += sp[0].value;
517 sp[0].fltr6 += (sp[0].value - sp[0].fltr6) >> 3;
518 sp[0].value = sp[0].fltr1 - sp[0].fltr5 + ((sp[0].fltr6 * sp[0].factor) >> 2);
519
520 if (!stereo)
521 continue;
522
523 pp = s->ptable + ((sp[1].value >> (PRECISION - PRECISION_USE)) & PTABLE_MASK);
524 split = low + ((high - low) >> 8) * (*pp >> 16);
525
526 if (value <= split) {
527 high = split;
528 *pp += (UP - *pp) >> DECAY;
529 sp[1].fltr0 = -1;
530 } else {
531 low = split + 1;
532 *pp += (DOWN - *pp) >> DECAY;
533 sp[1].fltr0 = 0;
534 }
535
536 while (DSD_BYTE_READY(high, low) && bytestream2_get_bytes_left(&s->gbyte)) {
537 value = (value << 8) | bytestream2_get_byte(&s->gbyte);
538 high = (high << 8) | 0xff;
539 low <<= 8;
540 }
541
542 sp[1].value += sp[1].fltr6 * 8;
543 sp[1].byte = (sp[1].byte << 1) | (sp[1].fltr0 & 1);
544 sp[1].factor += (((sp[1].value ^ sp[1].fltr0) >> 31) | 1) &
545 ((sp[1].value ^ (sp[1].value - (sp[1].fltr6 * 16))) >> 31);
546 sp[1].fltr1 += ((sp[1].fltr0 & VALUE_ONE) - sp[1].fltr1) >> 6;
547 sp[1].fltr2 += ((sp[1].fltr0 & VALUE_ONE) - sp[1].fltr2) >> 4;
548 sp[1].fltr3 += (sp[1].fltr2 - sp[1].fltr3) >> 4;
549 sp[1].fltr4 += (sp[1].fltr3 - sp[1].fltr4) >> 4;
550 sp[1].value = (sp[1].fltr4 - sp[1].fltr5) >> 4;
551 sp[1].fltr5 += sp[1].value;
552 sp[1].fltr6 += (sp[1].value - sp[1].fltr6) >> 3;
553 sp[1].value = sp[1].fltr1 - sp[1].fltr5 + ((sp[1].fltr6 * sp[1].factor) >> 2);
554 }
555
556 checksum += (checksum << 1) + (*dst_l = sp[0].byte & 0xff);
557 sp[0].factor -= (sp[0].factor + 512) >> 10;
558 dst_l += 4;
559
560 if (stereo) {
561 checksum += (checksum << 1) + (*dst_r = filters[1].byte & 0xff);
562 filters[1].factor -= (filters[1].factor + 512) >> 10;
563 dst_r += 4;
564 }
565 }
566
567 if (wv_check_crc(s, checksum, 0)) {
568 if (s->avctx->err_recognition & AV_EF_CRCCHECK)
569 return AVERROR_INVALIDDATA;
570
571 memset(dst_left, 0x69, s->samples * 4);
572
573 if (dst_r)
574 memset(dst_right, 0x69, s->samples * 4);
575 }
576
577 return 0;
578 }
579
wv_unpack_dsd_fast(WavpackFrameContext * s,uint8_t * dst_left,uint8_t * dst_right)580 static int wv_unpack_dsd_fast(WavpackFrameContext *s, uint8_t *dst_left, uint8_t *dst_right)
581 {
582 uint8_t *dst_l = dst_left, *dst_r = dst_right;
583 uint8_t history_bits, max_probability;
584 int total_summed_probabilities = 0;
585 int total_samples = s->samples;
586 uint8_t *vlb = s->value_lookup_buffer;
587 int history_bins, p0, p1, chan;
588 uint32_t checksum = 0xFFFFFFFF;
589 uint32_t low, high, value;
590
591 if (!bytestream2_get_bytes_left(&s->gbyte))
592 return AVERROR_INVALIDDATA;
593
594 history_bits = bytestream2_get_byte(&s->gbyte);
595
596 if (!bytestream2_get_bytes_left(&s->gbyte) || history_bits > MAX_HISTORY_BITS)
597 return AVERROR_INVALIDDATA;
598
599 history_bins = 1 << history_bits;
600 max_probability = bytestream2_get_byte(&s->gbyte);
601
602 if (max_probability < 0xff) {
603 uint8_t *outptr = (uint8_t *)s->probabilities;
604 uint8_t *outend = outptr + sizeof(*s->probabilities) * history_bins;
605
606 while (outptr < outend && bytestream2_get_bytes_left(&s->gbyte)) {
607 int code = bytestream2_get_byte(&s->gbyte);
608
609 if (code > max_probability) {
610 int zcount = code - max_probability;
611
612 while (outptr < outend && zcount--)
613 *outptr++ = 0;
614 } else if (code) {
615 *outptr++ = code;
616 }
617 else {
618 break;
619 }
620 }
621
622 if (outptr < outend ||
623 (bytestream2_get_bytes_left(&s->gbyte) && bytestream2_get_byte(&s->gbyte)))
624 return AVERROR_INVALIDDATA;
625 } else if (bytestream2_get_bytes_left(&s->gbyte) > (int)sizeof(*s->probabilities) * history_bins) {
626 bytestream2_get_buffer(&s->gbyte, (uint8_t *)s->probabilities,
627 sizeof(*s->probabilities) * history_bins);
628 } else {
629 return AVERROR_INVALIDDATA;
630 }
631
632 for (p0 = 0; p0 < history_bins; p0++) {
633 int32_t sum_values = 0;
634
635 for (int i = 0; i < 256; i++)
636 s->summed_probabilities[p0][i] = sum_values += s->probabilities[p0][i];
637
638 if (sum_values) {
639 total_summed_probabilities += sum_values;
640
641 if (total_summed_probabilities > history_bins * MAX_BIN_BYTES)
642 return AVERROR_INVALIDDATA;
643
644 s->value_lookup[p0] = vlb;
645
646 for (int i = 0; i < 256; i++) {
647 int c = s->probabilities[p0][i];
648
649 while (c--)
650 *vlb++ = i;
651 }
652 }
653 }
654
655 if (bytestream2_get_bytes_left(&s->gbyte) < 4)
656 return AVERROR_INVALIDDATA;
657
658 chan = p0 = p1 = 0;
659 low = 0; high = 0xffffffff;
660 value = bytestream2_get_be32(&s->gbyte);
661
662 if (dst_r)
663 total_samples *= 2;
664
665 while (total_samples--) {
666 unsigned int mult, index, code;
667
668 if (!s->summed_probabilities[p0][255])
669 return AVERROR_INVALIDDATA;
670
671 mult = (high - low) / s->summed_probabilities[p0][255];
672
673 if (!mult) {
674 if (bytestream2_get_bytes_left(&s->gbyte) >= 4)
675 value = bytestream2_get_be32(&s->gbyte);
676
677 low = 0;
678 high = 0xffffffff;
679 mult = high / s->summed_probabilities[p0][255];
680
681 if (!mult)
682 return AVERROR_INVALIDDATA;
683 }
684
685 index = (value - low) / mult;
686
687 if (index >= s->summed_probabilities[p0][255])
688 return AVERROR_INVALIDDATA;
689
690 if (!dst_r) {
691 if ((*dst_l = code = s->value_lookup[p0][index]))
692 low += s->summed_probabilities[p0][code-1] * mult;
693
694 dst_l += 4;
695 } else {
696 if ((code = s->value_lookup[p0][index]))
697 low += s->summed_probabilities[p0][code-1] * mult;
698
699 if (chan) {
700 *dst_r = code;
701 dst_r += 4;
702 }
703 else {
704 *dst_l = code;
705 dst_l += 4;
706 }
707
708 chan ^= 1;
709 }
710
711 high = low + s->probabilities[p0][code] * mult - 1;
712 checksum += (checksum << 1) + code;
713
714 if (!dst_r) {
715 p0 = code & (history_bins-1);
716 } else {
717 p0 = p1;
718 p1 = code & (history_bins-1);
719 }
720
721 while (DSD_BYTE_READY(high, low) && bytestream2_get_bytes_left(&s->gbyte)) {
722 value = (value << 8) | bytestream2_get_byte(&s->gbyte);
723 high = (high << 8) | 0xff;
724 low <<= 8;
725 }
726 }
727
728 if (wv_check_crc(s, checksum, 0)) {
729 if (s->avctx->err_recognition & AV_EF_CRCCHECK)
730 return AVERROR_INVALIDDATA;
731
732 memset(dst_left, 0x69, s->samples * 4);
733
734 if (dst_r)
735 memset(dst_right, 0x69, s->samples * 4);
736 }
737
738 return 0;
739 }
740
wv_unpack_dsd_copy(WavpackFrameContext * s,uint8_t * dst_left,uint8_t * dst_right)741 static int wv_unpack_dsd_copy(WavpackFrameContext *s, uint8_t *dst_left, uint8_t *dst_right)
742 {
743 uint8_t *dst_l = dst_left, *dst_r = dst_right;
744 int total_samples = s->samples;
745 uint32_t checksum = 0xFFFFFFFF;
746
747 if (bytestream2_get_bytes_left(&s->gbyte) != total_samples * (dst_r ? 2 : 1))
748 return AVERROR_INVALIDDATA;
749
750 while (total_samples--) {
751 checksum += (checksum << 1) + (*dst_l = bytestream2_get_byte(&s->gbyte));
752 dst_l += 4;
753
754 if (dst_r) {
755 checksum += (checksum << 1) + (*dst_r = bytestream2_get_byte(&s->gbyte));
756 dst_r += 4;
757 }
758 }
759
760 if (wv_check_crc(s, checksum, 0)) {
761 if (s->avctx->err_recognition & AV_EF_CRCCHECK)
762 return AVERROR_INVALIDDATA;
763
764 memset(dst_left, 0x69, s->samples * 4);
765
766 if (dst_r)
767 memset(dst_right, 0x69, s->samples * 4);
768 }
769
770 return 0;
771 }
772
wv_unpack_stereo(WavpackFrameContext * s,GetBitContext * gb,void * dst_l,void * dst_r,const int type)773 static inline int wv_unpack_stereo(WavpackFrameContext *s, GetBitContext *gb,
774 void *dst_l, void *dst_r, const int type)
775 {
776 int i, j, count = 0;
777 int last, t;
778 int A, B, L, L2, R, R2;
779 int pos = 0;
780 uint32_t crc = 0xFFFFFFFF;
781 uint32_t crc_extra_bits = 0xFFFFFFFF;
782 int16_t *dst16_l = dst_l;
783 int16_t *dst16_r = dst_r;
784 int32_t *dst32_l = dst_l;
785 int32_t *dst32_r = dst_r;
786 float *dstfl_l = dst_l;
787 float *dstfl_r = dst_r;
788
789 s->one = s->zero = s->zeroes = 0;
790 do {
791 L = wv_get_value(s, gb, 0, &last);
792 if (last)
793 break;
794 R = wv_get_value(s, gb, 1, &last);
795 if (last)
796 break;
797 for (i = 0; i < s->terms; i++) {
798 t = s->decorr[i].value;
799 if (t > 0) {
800 if (t > 8) {
801 if (t & 1) {
802 A = 2U * s->decorr[i].samplesA[0] - s->decorr[i].samplesA[1];
803 B = 2U * s->decorr[i].samplesB[0] - s->decorr[i].samplesB[1];
804 } else {
805 A = (int)(3U * s->decorr[i].samplesA[0] - s->decorr[i].samplesA[1]) >> 1;
806 B = (int)(3U * s->decorr[i].samplesB[0] - s->decorr[i].samplesB[1]) >> 1;
807 }
808 s->decorr[i].samplesA[1] = s->decorr[i].samplesA[0];
809 s->decorr[i].samplesB[1] = s->decorr[i].samplesB[0];
810 j = 0;
811 } else {
812 A = s->decorr[i].samplesA[pos];
813 B = s->decorr[i].samplesB[pos];
814 j = (pos + t) & 7;
815 }
816 if (type != AV_SAMPLE_FMT_S16P) {
817 L2 = L + ((s->decorr[i].weightA * (int64_t)A + 512) >> 10);
818 R2 = R + ((s->decorr[i].weightB * (int64_t)B + 512) >> 10);
819 } else {
820 L2 = L + (unsigned)((int)(s->decorr[i].weightA * (unsigned)A + 512) >> 10);
821 R2 = R + (unsigned)((int)(s->decorr[i].weightB * (unsigned)B + 512) >> 10);
822 }
823 if (A && L)
824 s->decorr[i].weightA -= ((((L ^ A) >> 30) & 2) - 1) * s->decorr[i].delta;
825 if (B && R)
826 s->decorr[i].weightB -= ((((R ^ B) >> 30) & 2) - 1) * s->decorr[i].delta;
827 s->decorr[i].samplesA[j] = L = L2;
828 s->decorr[i].samplesB[j] = R = R2;
829 } else if (t == -1) {
830 if (type != AV_SAMPLE_FMT_S16P)
831 L2 = L + ((s->decorr[i].weightA * (int64_t)s->decorr[i].samplesA[0] + 512) >> 10);
832 else
833 L2 = L + (unsigned)((int)(s->decorr[i].weightA * (unsigned)s->decorr[i].samplesA[0] + 512) >> 10);
834 UPDATE_WEIGHT_CLIP(s->decorr[i].weightA, s->decorr[i].delta, s->decorr[i].samplesA[0], L);
835 L = L2;
836 if (type != AV_SAMPLE_FMT_S16P)
837 R2 = R + ((s->decorr[i].weightB * (int64_t)L2 + 512) >> 10);
838 else
839 R2 = R + (unsigned)((int)(s->decorr[i].weightB * (unsigned)L2 + 512) >> 10);
840 UPDATE_WEIGHT_CLIP(s->decorr[i].weightB, s->decorr[i].delta, L2, R);
841 R = R2;
842 s->decorr[i].samplesA[0] = R;
843 } else {
844 if (type != AV_SAMPLE_FMT_S16P)
845 R2 = R + ((s->decorr[i].weightB * (int64_t)s->decorr[i].samplesB[0] + 512) >> 10);
846 else
847 R2 = R + (unsigned)((int)(s->decorr[i].weightB * (unsigned)s->decorr[i].samplesB[0] + 512) >> 10);
848 UPDATE_WEIGHT_CLIP(s->decorr[i].weightB, s->decorr[i].delta, s->decorr[i].samplesB[0], R);
849 R = R2;
850
851 if (t == -3) {
852 R2 = s->decorr[i].samplesA[0];
853 s->decorr[i].samplesA[0] = R;
854 }
855
856 if (type != AV_SAMPLE_FMT_S16P)
857 L2 = L + ((s->decorr[i].weightA * (int64_t)R2 + 512) >> 10);
858 else
859 L2 = L + (unsigned)((int)(s->decorr[i].weightA * (unsigned)R2 + 512) >> 10);
860 UPDATE_WEIGHT_CLIP(s->decorr[i].weightA, s->decorr[i].delta, R2, L);
861 L = L2;
862 s->decorr[i].samplesB[0] = L;
863 }
864 }
865
866 if (type == AV_SAMPLE_FMT_S16P) {
867 if (FFABS((int64_t)L) + FFABS((int64_t)R) > (1<<19)) {
868 av_log(s->avctx, AV_LOG_ERROR, "sample %d %d too large\n", L, R);
869 return AVERROR_INVALIDDATA;
870 }
871 }
872
873 pos = (pos + 1) & 7;
874 if (s->joint)
875 L += (unsigned)(R -= (unsigned)(L >> 1));
876 crc = (crc * 3 + L) * 3 + R;
877
878 if (type == AV_SAMPLE_FMT_FLTP) {
879 *dstfl_l++ = wv_get_value_float(s, &crc_extra_bits, L);
880 *dstfl_r++ = wv_get_value_float(s, &crc_extra_bits, R);
881 } else if (type == AV_SAMPLE_FMT_S32P) {
882 *dst32_l++ = wv_get_value_integer(s, &crc_extra_bits, L);
883 *dst32_r++ = wv_get_value_integer(s, &crc_extra_bits, R);
884 } else {
885 *dst16_l++ = wv_get_value_integer(s, &crc_extra_bits, L);
886 *dst16_r++ = wv_get_value_integer(s, &crc_extra_bits, R);
887 }
888 count++;
889 } while (!last && count < s->samples);
890
891 if (last && count < s->samples) {
892 int size = av_get_bytes_per_sample(type);
893 memset((uint8_t*)dst_l + count*size, 0, (s->samples-count)*size);
894 memset((uint8_t*)dst_r + count*size, 0, (s->samples-count)*size);
895 }
896
897 if ((s->avctx->err_recognition & AV_EF_CRCCHECK) &&
898 wv_check_crc(s, crc, crc_extra_bits))
899 return AVERROR_INVALIDDATA;
900
901 return 0;
902 }
903
wv_unpack_mono(WavpackFrameContext * s,GetBitContext * gb,void * dst,const int type)904 static inline int wv_unpack_mono(WavpackFrameContext *s, GetBitContext *gb,
905 void *dst, const int type)
906 {
907 int i, j, count = 0;
908 int last, t;
909 int A, S, T;
910 int pos = 0;
911 uint32_t crc = 0xFFFFFFFF;
912 uint32_t crc_extra_bits = 0xFFFFFFFF;
913 int16_t *dst16 = dst;
914 int32_t *dst32 = dst;
915 float *dstfl = dst;
916
917 s->one = s->zero = s->zeroes = 0;
918 do {
919 T = wv_get_value(s, gb, 0, &last);
920 S = 0;
921 if (last)
922 break;
923 for (i = 0; i < s->terms; i++) {
924 t = s->decorr[i].value;
925 if (t > 8) {
926 if (t & 1)
927 A = 2U * s->decorr[i].samplesA[0] - s->decorr[i].samplesA[1];
928 else
929 A = (int)(3U * s->decorr[i].samplesA[0] - s->decorr[i].samplesA[1]) >> 1;
930 s->decorr[i].samplesA[1] = s->decorr[i].samplesA[0];
931 j = 0;
932 } else {
933 A = s->decorr[i].samplesA[pos];
934 j = (pos + t) & 7;
935 }
936 if (type != AV_SAMPLE_FMT_S16P)
937 S = T + ((s->decorr[i].weightA * (int64_t)A + 512) >> 10);
938 else
939 S = T + (unsigned)((int)(s->decorr[i].weightA * (unsigned)A + 512) >> 10);
940 if (A && T)
941 s->decorr[i].weightA -= ((((T ^ A) >> 30) & 2) - 1) * s->decorr[i].delta;
942 s->decorr[i].samplesA[j] = T = S;
943 }
944 pos = (pos + 1) & 7;
945 crc = crc * 3 + S;
946
947 if (type == AV_SAMPLE_FMT_FLTP) {
948 *dstfl++ = wv_get_value_float(s, &crc_extra_bits, S);
949 } else if (type == AV_SAMPLE_FMT_S32P) {
950 *dst32++ = wv_get_value_integer(s, &crc_extra_bits, S);
951 } else {
952 *dst16++ = wv_get_value_integer(s, &crc_extra_bits, S);
953 }
954 count++;
955 } while (!last && count < s->samples);
956
957 if (last && count < s->samples) {
958 int size = av_get_bytes_per_sample(type);
959 memset((uint8_t*)dst + count*size, 0, (s->samples-count)*size);
960 }
961
962 if (s->avctx->err_recognition & AV_EF_CRCCHECK) {
963 int ret = wv_check_crc(s, crc, crc_extra_bits);
964 if (ret < 0 && s->avctx->err_recognition & AV_EF_EXPLODE)
965 return ret;
966 }
967
968 return 0;
969 }
970
wv_alloc_frame_context(WavpackContext * c)971 static av_cold int wv_alloc_frame_context(WavpackContext *c)
972 {
973 if (c->fdec_num == WV_MAX_FRAME_DECODERS)
974 return -1;
975
976 c->fdec[c->fdec_num] = av_mallocz(sizeof(**c->fdec));
977 if (!c->fdec[c->fdec_num])
978 return -1;
979 c->fdec_num++;
980 c->fdec[c->fdec_num - 1]->avctx = c->avctx;
981
982 return 0;
983 }
984
wv_dsd_reset(WavpackContext * s,int channels)985 static int wv_dsd_reset(WavpackContext *s, int channels)
986 {
987 int i;
988
989 s->dsdctx = NULL;
990 s->dsd_channels = 0;
991 av_buffer_unref(&s->dsd_ref);
992
993 if (!channels)
994 return 0;
995
996 if (channels > INT_MAX / sizeof(*s->dsdctx))
997 return AVERROR(EINVAL);
998
999 s->dsd_ref = av_buffer_allocz(channels * sizeof(*s->dsdctx));
1000 if (!s->dsd_ref)
1001 return AVERROR(ENOMEM);
1002 s->dsdctx = (DSDContext*)s->dsd_ref->data;
1003 s->dsd_channels = channels;
1004
1005 for (i = 0; i < channels; i++)
1006 memset(s->dsdctx[i].buf, 0x69, sizeof(s->dsdctx[i].buf));
1007
1008 return 0;
1009 }
1010
1011 #if HAVE_THREADS
update_thread_context(AVCodecContext * dst,const AVCodecContext * src)1012 static int update_thread_context(AVCodecContext *dst, const AVCodecContext *src)
1013 {
1014 WavpackContext *fsrc = src->priv_data;
1015 WavpackContext *fdst = dst->priv_data;
1016 int ret;
1017
1018 if (dst == src)
1019 return 0;
1020
1021 ff_thread_release_buffer(dst, &fdst->curr_frame);
1022 if (fsrc->curr_frame.f->data[0]) {
1023 if ((ret = ff_thread_ref_frame(&fdst->curr_frame, &fsrc->curr_frame)) < 0)
1024 return ret;
1025 }
1026
1027 fdst->dsdctx = NULL;
1028 fdst->dsd_channels = 0;
1029 ret = av_buffer_replace(&fdst->dsd_ref, fsrc->dsd_ref);
1030 if (ret < 0)
1031 return ret;
1032 if (fsrc->dsd_ref) {
1033 fdst->dsdctx = (DSDContext*)fdst->dsd_ref->data;
1034 fdst->dsd_channels = fsrc->dsd_channels;
1035 }
1036
1037 return 0;
1038 }
1039 #endif
1040
wavpack_decode_init(AVCodecContext * avctx)1041 static av_cold int wavpack_decode_init(AVCodecContext *avctx)
1042 {
1043 WavpackContext *s = avctx->priv_data;
1044
1045 s->avctx = avctx;
1046
1047 s->fdec_num = 0;
1048
1049 s->curr_frame.f = av_frame_alloc();
1050 s->prev_frame.f = av_frame_alloc();
1051
1052 if (!s->curr_frame.f || !s->prev_frame.f)
1053 return AVERROR(ENOMEM);
1054
1055 ff_init_dsd_data();
1056
1057 return 0;
1058 }
1059
wavpack_decode_end(AVCodecContext * avctx)1060 static av_cold int wavpack_decode_end(AVCodecContext *avctx)
1061 {
1062 WavpackContext *s = avctx->priv_data;
1063
1064 for (int i = 0; i < s->fdec_num; i++)
1065 av_freep(&s->fdec[i]);
1066 s->fdec_num = 0;
1067
1068 ff_thread_release_buffer(avctx, &s->curr_frame);
1069 av_frame_free(&s->curr_frame.f);
1070
1071 ff_thread_release_buffer(avctx, &s->prev_frame);
1072 av_frame_free(&s->prev_frame.f);
1073
1074 av_buffer_unref(&s->dsd_ref);
1075
1076 return 0;
1077 }
1078
wavpack_decode_block(AVCodecContext * avctx,int block_no,const uint8_t * buf,int buf_size)1079 static int wavpack_decode_block(AVCodecContext *avctx, int block_no,
1080 const uint8_t *buf, int buf_size)
1081 {
1082 WavpackContext *wc = avctx->priv_data;
1083 WavpackFrameContext *s;
1084 GetByteContext gb;
1085 enum AVSampleFormat sample_fmt;
1086 void *samples_l = NULL, *samples_r = NULL;
1087 int ret;
1088 int got_terms = 0, got_weights = 0, got_samples = 0,
1089 got_entropy = 0, got_pcm = 0, got_float = 0, got_hybrid = 0;
1090 int got_dsd = 0;
1091 int i, j, id, size, ssize, weights, t;
1092 int bpp, chan = 0, orig_bpp, sample_rate = 0, rate_x = 1, dsd_mode = 0;
1093 int multiblock;
1094 uint64_t chmask = 0;
1095
1096 if (block_no >= wc->fdec_num && wv_alloc_frame_context(wc) < 0) {
1097 av_log(avctx, AV_LOG_ERROR, "Error creating frame decode context\n");
1098 return AVERROR_INVALIDDATA;
1099 }
1100
1101 s = wc->fdec[block_no];
1102 if (!s) {
1103 av_log(avctx, AV_LOG_ERROR, "Context for block %d is not present\n",
1104 block_no);
1105 return AVERROR_INVALIDDATA;
1106 }
1107
1108 memset(s->decorr, 0, MAX_TERMS * sizeof(Decorr));
1109 memset(s->ch, 0, sizeof(s->ch));
1110 s->extra_bits = 0;
1111 s->and = s->or = s->shift = 0;
1112 s->got_extra_bits = 0;
1113
1114 bytestream2_init(&gb, buf, buf_size);
1115
1116 s->samples = bytestream2_get_le32(&gb);
1117 if (s->samples != wc->samples) {
1118 av_log(avctx, AV_LOG_ERROR, "Mismatching number of samples in "
1119 "a sequence: %d and %d\n", wc->samples, s->samples);
1120 return AVERROR_INVALIDDATA;
1121 }
1122 s->frame_flags = bytestream2_get_le32(&gb);
1123
1124 if (s->frame_flags & (WV_FLOAT_DATA | WV_DSD_DATA))
1125 sample_fmt = AV_SAMPLE_FMT_FLTP;
1126 else if ((s->frame_flags & 0x03) <= 1)
1127 sample_fmt = AV_SAMPLE_FMT_S16P;
1128 else
1129 sample_fmt = AV_SAMPLE_FMT_S32P;
1130
1131 if (wc->ch_offset && avctx->sample_fmt != sample_fmt)
1132 return AVERROR_INVALIDDATA;
1133
1134 bpp = av_get_bytes_per_sample(sample_fmt);
1135 orig_bpp = ((s->frame_flags & 0x03) + 1) << 3;
1136 multiblock = (s->frame_flags & WV_SINGLE_BLOCK) != WV_SINGLE_BLOCK;
1137
1138 s->stereo = !(s->frame_flags & WV_MONO);
1139 s->stereo_in = (s->frame_flags & WV_FALSE_STEREO) ? 0 : s->stereo;
1140 s->joint = s->frame_flags & WV_JOINT_STEREO;
1141 s->hybrid = s->frame_flags & WV_HYBRID_MODE;
1142 s->hybrid_bitrate = s->frame_flags & WV_HYBRID_BITRATE;
1143 s->post_shift = bpp * 8 - orig_bpp + ((s->frame_flags >> 13) & 0x1f);
1144 if (s->post_shift < 0 || s->post_shift > 31) {
1145 return AVERROR_INVALIDDATA;
1146 }
1147 s->hybrid_maxclip = ((1LL << (orig_bpp - 1)) - 1);
1148 s->hybrid_minclip = ((-1UL << (orig_bpp - 1)));
1149 s->CRC = bytestream2_get_le32(&gb);
1150
1151 // parse metadata blocks
1152 while (bytestream2_get_bytes_left(&gb)) {
1153 id = bytestream2_get_byte(&gb);
1154 size = bytestream2_get_byte(&gb);
1155 if (id & WP_IDF_LONG)
1156 size |= (bytestream2_get_le16u(&gb)) << 8;
1157 size <<= 1; // size is specified in words
1158 ssize = size;
1159 if (id & WP_IDF_ODD)
1160 size--;
1161 if (size < 0) {
1162 av_log(avctx, AV_LOG_ERROR,
1163 "Got incorrect block %02X with size %i\n", id, size);
1164 break;
1165 }
1166 if (bytestream2_get_bytes_left(&gb) < ssize) {
1167 av_log(avctx, AV_LOG_ERROR,
1168 "Block size %i is out of bounds\n", size);
1169 break;
1170 }
1171 switch (id & WP_IDF_MASK) {
1172 case WP_ID_DECTERMS:
1173 if (size > MAX_TERMS) {
1174 av_log(avctx, AV_LOG_ERROR, "Too many decorrelation terms\n");
1175 s->terms = 0;
1176 bytestream2_skip(&gb, ssize);
1177 continue;
1178 }
1179 s->terms = size;
1180 for (i = 0; i < s->terms; i++) {
1181 uint8_t val = bytestream2_get_byte(&gb);
1182 s->decorr[s->terms - i - 1].value = (val & 0x1F) - 5;
1183 s->decorr[s->terms - i - 1].delta = val >> 5;
1184 }
1185 got_terms = 1;
1186 break;
1187 case WP_ID_DECWEIGHTS:
1188 if (!got_terms) {
1189 av_log(avctx, AV_LOG_ERROR, "No decorrelation terms met\n");
1190 continue;
1191 }
1192 weights = size >> s->stereo_in;
1193 if (weights > MAX_TERMS || weights > s->terms) {
1194 av_log(avctx, AV_LOG_ERROR, "Too many decorrelation weights\n");
1195 bytestream2_skip(&gb, ssize);
1196 continue;
1197 }
1198 for (i = 0; i < weights; i++) {
1199 t = (int8_t)bytestream2_get_byte(&gb);
1200 s->decorr[s->terms - i - 1].weightA = t * (1 << 3);
1201 if (s->decorr[s->terms - i - 1].weightA > 0)
1202 s->decorr[s->terms - i - 1].weightA +=
1203 (s->decorr[s->terms - i - 1].weightA + 64) >> 7;
1204 if (s->stereo_in) {
1205 t = (int8_t)bytestream2_get_byte(&gb);
1206 s->decorr[s->terms - i - 1].weightB = t * (1 << 3);
1207 if (s->decorr[s->terms - i - 1].weightB > 0)
1208 s->decorr[s->terms - i - 1].weightB +=
1209 (s->decorr[s->terms - i - 1].weightB + 64) >> 7;
1210 }
1211 }
1212 got_weights = 1;
1213 break;
1214 case WP_ID_DECSAMPLES:
1215 if (!got_terms) {
1216 av_log(avctx, AV_LOG_ERROR, "No decorrelation terms met\n");
1217 continue;
1218 }
1219 t = 0;
1220 for (i = s->terms - 1; (i >= 0) && (t < size); i--) {
1221 if (s->decorr[i].value > 8) {
1222 s->decorr[i].samplesA[0] =
1223 wp_exp2(bytestream2_get_le16(&gb));
1224 s->decorr[i].samplesA[1] =
1225 wp_exp2(bytestream2_get_le16(&gb));
1226
1227 if (s->stereo_in) {
1228 s->decorr[i].samplesB[0] =
1229 wp_exp2(bytestream2_get_le16(&gb));
1230 s->decorr[i].samplesB[1] =
1231 wp_exp2(bytestream2_get_le16(&gb));
1232 t += 4;
1233 }
1234 t += 4;
1235 } else if (s->decorr[i].value < 0) {
1236 s->decorr[i].samplesA[0] =
1237 wp_exp2(bytestream2_get_le16(&gb));
1238 s->decorr[i].samplesB[0] =
1239 wp_exp2(bytestream2_get_le16(&gb));
1240 t += 4;
1241 } else {
1242 for (j = 0; j < s->decorr[i].value; j++) {
1243 s->decorr[i].samplesA[j] =
1244 wp_exp2(bytestream2_get_le16(&gb));
1245 if (s->stereo_in) {
1246 s->decorr[i].samplesB[j] =
1247 wp_exp2(bytestream2_get_le16(&gb));
1248 }
1249 }
1250 t += s->decorr[i].value * 2 * (s->stereo_in + 1);
1251 }
1252 }
1253 got_samples = 1;
1254 break;
1255 case WP_ID_ENTROPY:
1256 if (size != 6 * (s->stereo_in + 1)) {
1257 av_log(avctx, AV_LOG_ERROR,
1258 "Entropy vars size should be %i, got %i.\n",
1259 6 * (s->stereo_in + 1), size);
1260 bytestream2_skip(&gb, ssize);
1261 continue;
1262 }
1263 for (j = 0; j <= s->stereo_in; j++)
1264 for (i = 0; i < 3; i++) {
1265 s->ch[j].median[i] = wp_exp2(bytestream2_get_le16(&gb));
1266 }
1267 got_entropy = 1;
1268 break;
1269 case WP_ID_HYBRID:
1270 if (s->hybrid_bitrate) {
1271 for (i = 0; i <= s->stereo_in; i++) {
1272 s->ch[i].slow_level = wp_exp2(bytestream2_get_le16(&gb));
1273 size -= 2;
1274 }
1275 }
1276 for (i = 0; i < (s->stereo_in + 1); i++) {
1277 s->ch[i].bitrate_acc = bytestream2_get_le16(&gb) << 16;
1278 size -= 2;
1279 }
1280 if (size > 0) {
1281 for (i = 0; i < (s->stereo_in + 1); i++) {
1282 s->ch[i].bitrate_delta =
1283 wp_exp2((int16_t)bytestream2_get_le16(&gb));
1284 }
1285 } else {
1286 for (i = 0; i < (s->stereo_in + 1); i++)
1287 s->ch[i].bitrate_delta = 0;
1288 }
1289 got_hybrid = 1;
1290 break;
1291 case WP_ID_INT32INFO: {
1292 uint8_t val[4];
1293 if (size != 4) {
1294 av_log(avctx, AV_LOG_ERROR,
1295 "Invalid INT32INFO, size = %i\n",
1296 size);
1297 bytestream2_skip(&gb, ssize - 4);
1298 continue;
1299 }
1300 bytestream2_get_buffer(&gb, val, 4);
1301 if (val[0] > 30) {
1302 av_log(avctx, AV_LOG_ERROR,
1303 "Invalid INT32INFO, extra_bits = %d (> 30)\n", val[0]);
1304 continue;
1305 } else if (val[0]) {
1306 s->extra_bits = val[0];
1307 } else if (val[1]) {
1308 s->shift = val[1];
1309 } else if (val[2]) {
1310 s->and = s->or = 1;
1311 s->shift = val[2];
1312 } else if (val[3]) {
1313 s->and = 1;
1314 s->shift = val[3];
1315 }
1316 if (s->shift > 31) {
1317 av_log(avctx, AV_LOG_ERROR,
1318 "Invalid INT32INFO, shift = %d (> 31)\n", s->shift);
1319 s->and = s->or = s->shift = 0;
1320 continue;
1321 }
1322 /* original WavPack decoder forces 32-bit lossy sound to be treated
1323 * as 24-bit one in order to have proper clipping */
1324 if (s->hybrid && bpp == 4 && s->post_shift < 8 && s->shift > 8) {
1325 s->post_shift += 8;
1326 s->shift -= 8;
1327 s->hybrid_maxclip >>= 8;
1328 s->hybrid_minclip >>= 8;
1329 }
1330 break;
1331 }
1332 case WP_ID_FLOATINFO:
1333 if (size != 4) {
1334 av_log(avctx, AV_LOG_ERROR,
1335 "Invalid FLOATINFO, size = %i\n", size);
1336 bytestream2_skip(&gb, ssize);
1337 continue;
1338 }
1339 s->float_flag = bytestream2_get_byte(&gb);
1340 s->float_shift = bytestream2_get_byte(&gb);
1341 s->float_max_exp = bytestream2_get_byte(&gb);
1342 if (s->float_shift > 31) {
1343 av_log(avctx, AV_LOG_ERROR,
1344 "Invalid FLOATINFO, shift = %d (> 31)\n", s->float_shift);
1345 s->float_shift = 0;
1346 continue;
1347 }
1348 got_float = 1;
1349 bytestream2_skip(&gb, 1);
1350 break;
1351 case WP_ID_DATA:
1352 if ((ret = init_get_bits8(&s->gb, gb.buffer, size)) < 0)
1353 return ret;
1354 bytestream2_skip(&gb, size);
1355 got_pcm = 1;
1356 break;
1357 case WP_ID_DSD_DATA:
1358 if (size < 2) {
1359 av_log(avctx, AV_LOG_ERROR, "Invalid DSD_DATA, size = %i\n",
1360 size);
1361 bytestream2_skip(&gb, ssize);
1362 continue;
1363 }
1364 rate_x = bytestream2_get_byte(&gb);
1365 if (rate_x > 30)
1366 return AVERROR_INVALIDDATA;
1367 rate_x = 1 << rate_x;
1368 dsd_mode = bytestream2_get_byte(&gb);
1369 if (dsd_mode && dsd_mode != 1 && dsd_mode != 3) {
1370 av_log(avctx, AV_LOG_ERROR, "Invalid DSD encoding mode: %d\n",
1371 dsd_mode);
1372 return AVERROR_INVALIDDATA;
1373 }
1374 bytestream2_init(&s->gbyte, gb.buffer, size-2);
1375 bytestream2_skip(&gb, size-2);
1376 got_dsd = 1;
1377 break;
1378 case WP_ID_EXTRABITS:
1379 if (size <= 4) {
1380 av_log(avctx, AV_LOG_ERROR, "Invalid EXTRABITS, size = %i\n",
1381 size);
1382 bytestream2_skip(&gb, size);
1383 continue;
1384 }
1385 if ((ret = init_get_bits8(&s->gb_extra_bits, gb.buffer, size)) < 0)
1386 return ret;
1387 s->crc_extra_bits = get_bits_long(&s->gb_extra_bits, 32);
1388 bytestream2_skip(&gb, size);
1389 s->got_extra_bits = 1;
1390 break;
1391 case WP_ID_CHANINFO:
1392 if (size <= 1) {
1393 av_log(avctx, AV_LOG_ERROR,
1394 "Insufficient channel information\n");
1395 return AVERROR_INVALIDDATA;
1396 }
1397 chan = bytestream2_get_byte(&gb);
1398 switch (size - 2) {
1399 case 0:
1400 chmask = bytestream2_get_byte(&gb);
1401 break;
1402 case 1:
1403 chmask = bytestream2_get_le16(&gb);
1404 break;
1405 case 2:
1406 chmask = bytestream2_get_le24(&gb);
1407 break;
1408 case 3:
1409 chmask = bytestream2_get_le32(&gb);
1410 break;
1411 case 4:
1412 size = bytestream2_get_byte(&gb);
1413 chan |= (bytestream2_get_byte(&gb) & 0xF) << 8;
1414 chan += 1;
1415 if (avctx->channels != chan)
1416 av_log(avctx, AV_LOG_WARNING, "%i channels signalled"
1417 " instead of %i.\n", chan, avctx->channels);
1418 chmask = bytestream2_get_le24(&gb);
1419 break;
1420 case 5:
1421 size = bytestream2_get_byte(&gb);
1422 chan |= (bytestream2_get_byte(&gb) & 0xF) << 8;
1423 chan += 1;
1424 if (avctx->channels != chan)
1425 av_log(avctx, AV_LOG_WARNING, "%i channels signalled"
1426 " instead of %i.\n", chan, avctx->channels);
1427 chmask = bytestream2_get_le32(&gb);
1428 break;
1429 default:
1430 av_log(avctx, AV_LOG_ERROR, "Invalid channel info size %d\n",
1431 size);
1432 chan = avctx->channels;
1433 chmask = avctx->channel_layout;
1434 }
1435 break;
1436 case WP_ID_SAMPLE_RATE:
1437 if (size != 3) {
1438 av_log(avctx, AV_LOG_ERROR, "Invalid custom sample rate.\n");
1439 return AVERROR_INVALIDDATA;
1440 }
1441 sample_rate = bytestream2_get_le24(&gb);
1442 break;
1443 default:
1444 bytestream2_skip(&gb, size);
1445 }
1446 if (id & WP_IDF_ODD)
1447 bytestream2_skip(&gb, 1);
1448 }
1449
1450 if (got_pcm) {
1451 if (!got_terms) {
1452 av_log(avctx, AV_LOG_ERROR, "No block with decorrelation terms\n");
1453 return AVERROR_INVALIDDATA;
1454 }
1455 if (!got_weights) {
1456 av_log(avctx, AV_LOG_ERROR, "No block with decorrelation weights\n");
1457 return AVERROR_INVALIDDATA;
1458 }
1459 if (!got_samples) {
1460 av_log(avctx, AV_LOG_ERROR, "No block with decorrelation samples\n");
1461 return AVERROR_INVALIDDATA;
1462 }
1463 if (!got_entropy) {
1464 av_log(avctx, AV_LOG_ERROR, "No block with entropy info\n");
1465 return AVERROR_INVALIDDATA;
1466 }
1467 if (s->hybrid && !got_hybrid) {
1468 av_log(avctx, AV_LOG_ERROR, "Hybrid config not found\n");
1469 return AVERROR_INVALIDDATA;
1470 }
1471 if (!got_float && sample_fmt == AV_SAMPLE_FMT_FLTP) {
1472 av_log(avctx, AV_LOG_ERROR, "Float information not found\n");
1473 return AVERROR_INVALIDDATA;
1474 }
1475 if (s->got_extra_bits && sample_fmt != AV_SAMPLE_FMT_FLTP) {
1476 const int size = get_bits_left(&s->gb_extra_bits);
1477 const int wanted = s->samples * s->extra_bits << s->stereo_in;
1478 if (size < wanted) {
1479 av_log(avctx, AV_LOG_ERROR, "Too small EXTRABITS\n");
1480 s->got_extra_bits = 0;
1481 }
1482 }
1483 }
1484
1485 if (!got_pcm && !got_dsd) {
1486 av_log(avctx, AV_LOG_ERROR, "Packed samples not found\n");
1487 return AVERROR_INVALIDDATA;
1488 }
1489
1490 if ((got_pcm && wc->modulation != MODULATION_PCM) ||
1491 (got_dsd && wc->modulation != MODULATION_DSD)) {
1492 av_log(avctx, AV_LOG_ERROR, "Invalid PCM/DSD mix encountered\n");
1493 return AVERROR_INVALIDDATA;
1494 }
1495
1496 if (!wc->ch_offset) {
1497 int new_channels = avctx->channels;
1498 uint64_t new_chmask = avctx->channel_layout;
1499 int new_samplerate;
1500 int sr = (s->frame_flags >> 23) & 0xf;
1501 if (sr == 0xf) {
1502 if (!sample_rate) {
1503 av_log(avctx, AV_LOG_ERROR, "Custom sample rate missing.\n");
1504 return AVERROR_INVALIDDATA;
1505 }
1506 new_samplerate = sample_rate;
1507 } else
1508 new_samplerate = wv_rates[sr];
1509
1510 if (new_samplerate * (uint64_t)rate_x > INT_MAX)
1511 return AVERROR_INVALIDDATA;
1512 new_samplerate *= rate_x;
1513
1514 if (multiblock) {
1515 if (chan)
1516 new_channels = chan;
1517 if (chmask)
1518 new_chmask = chmask;
1519 } else {
1520 new_channels = s->stereo ? 2 : 1;
1521 new_chmask = s->stereo ? AV_CH_LAYOUT_STEREO :
1522 AV_CH_LAYOUT_MONO;
1523 }
1524
1525 if (new_chmask &&
1526 av_get_channel_layout_nb_channels(new_chmask) != new_channels) {
1527 av_log(avctx, AV_LOG_ERROR, "Channel mask does not match the channel count\n");
1528 return AVERROR_INVALIDDATA;
1529 }
1530
1531 /* clear DSD state if stream properties change */
1532 if (new_channels != wc->dsd_channels ||
1533 new_chmask != avctx->channel_layout ||
1534 new_samplerate != avctx->sample_rate ||
1535 !!got_dsd != !!wc->dsdctx) {
1536 ret = wv_dsd_reset(wc, got_dsd ? new_channels : 0);
1537 if (ret < 0) {
1538 av_log(avctx, AV_LOG_ERROR, "Error reinitializing the DSD context\n");
1539 return ret;
1540 }
1541 ff_thread_release_buffer(avctx, &wc->curr_frame);
1542 }
1543 avctx->channels = new_channels;
1544 avctx->channel_layout = new_chmask;
1545 avctx->sample_rate = new_samplerate;
1546 avctx->sample_fmt = sample_fmt;
1547 avctx->bits_per_raw_sample = orig_bpp;
1548
1549 ff_thread_release_buffer(avctx, &wc->prev_frame);
1550 FFSWAP(ThreadFrame, wc->curr_frame, wc->prev_frame);
1551
1552 /* get output buffer */
1553 wc->curr_frame.f->nb_samples = s->samples;
1554 if ((ret = ff_thread_get_buffer(avctx, &wc->curr_frame, AV_GET_BUFFER_FLAG_REF)) < 0)
1555 return ret;
1556
1557 wc->frame = wc->curr_frame.f;
1558 ff_thread_finish_setup(avctx);
1559 }
1560
1561 if (wc->ch_offset + s->stereo >= avctx->channels) {
1562 av_log(avctx, AV_LOG_WARNING, "Too many channels coded in a packet.\n");
1563 return ((avctx->err_recognition & AV_EF_EXPLODE) || !wc->ch_offset) ? AVERROR_INVALIDDATA : 0;
1564 }
1565
1566 samples_l = wc->frame->extended_data[wc->ch_offset];
1567 if (s->stereo)
1568 samples_r = wc->frame->extended_data[wc->ch_offset + 1];
1569
1570 wc->ch_offset += 1 + s->stereo;
1571
1572 if (s->stereo_in) {
1573 if (got_dsd) {
1574 if (dsd_mode == 3) {
1575 ret = wv_unpack_dsd_high(s, samples_l, samples_r);
1576 } else if (dsd_mode == 1) {
1577 ret = wv_unpack_dsd_fast(s, samples_l, samples_r);
1578 } else {
1579 ret = wv_unpack_dsd_copy(s, samples_l, samples_r);
1580 }
1581 } else {
1582 ret = wv_unpack_stereo(s, &s->gb, samples_l, samples_r, avctx->sample_fmt);
1583 }
1584 if (ret < 0)
1585 return ret;
1586 } else {
1587 if (got_dsd) {
1588 if (dsd_mode == 3) {
1589 ret = wv_unpack_dsd_high(s, samples_l, NULL);
1590 } else if (dsd_mode == 1) {
1591 ret = wv_unpack_dsd_fast(s, samples_l, NULL);
1592 } else {
1593 ret = wv_unpack_dsd_copy(s, samples_l, NULL);
1594 }
1595 } else {
1596 ret = wv_unpack_mono(s, &s->gb, samples_l, avctx->sample_fmt);
1597 }
1598 if (ret < 0)
1599 return ret;
1600
1601 if (s->stereo)
1602 memcpy(samples_r, samples_l, bpp * s->samples);
1603 }
1604
1605 return 0;
1606 }
1607
wavpack_decode_flush(AVCodecContext * avctx)1608 static void wavpack_decode_flush(AVCodecContext *avctx)
1609 {
1610 WavpackContext *s = avctx->priv_data;
1611
1612 wv_dsd_reset(s, 0);
1613 }
1614
dsd_channel(AVCodecContext * avctx,void * frmptr,int jobnr,int threadnr)1615 static int dsd_channel(AVCodecContext *avctx, void *frmptr, int jobnr, int threadnr)
1616 {
1617 WavpackContext *s = avctx->priv_data;
1618 AVFrame *frame = frmptr;
1619
1620 ff_dsd2pcm_translate (&s->dsdctx [jobnr], s->samples, 0,
1621 (uint8_t *)frame->extended_data[jobnr], 4,
1622 (float *)frame->extended_data[jobnr], 1);
1623
1624 return 0;
1625 }
1626
wavpack_decode_frame(AVCodecContext * avctx,void * data,int * got_frame_ptr,AVPacket * avpkt)1627 static int wavpack_decode_frame(AVCodecContext *avctx, void *data,
1628 int *got_frame_ptr, AVPacket *avpkt)
1629 {
1630 WavpackContext *s = avctx->priv_data;
1631 const uint8_t *buf = avpkt->data;
1632 int buf_size = avpkt->size;
1633 int frame_size, ret, frame_flags;
1634
1635 if (avpkt->size <= WV_HEADER_SIZE)
1636 return AVERROR_INVALIDDATA;
1637
1638 s->frame = NULL;
1639 s->block = 0;
1640 s->ch_offset = 0;
1641
1642 /* determine number of samples */
1643 s->samples = AV_RL32(buf + 20);
1644 frame_flags = AV_RL32(buf + 24);
1645 if (s->samples <= 0 || s->samples > WV_MAX_SAMPLES) {
1646 av_log(avctx, AV_LOG_ERROR, "Invalid number of samples: %d\n",
1647 s->samples);
1648 return AVERROR_INVALIDDATA;
1649 }
1650
1651 s->modulation = (frame_flags & WV_DSD_DATA) ? MODULATION_DSD : MODULATION_PCM;
1652
1653 while (buf_size > WV_HEADER_SIZE) {
1654 frame_size = AV_RL32(buf + 4) - 12;
1655 buf += 20;
1656 buf_size -= 20;
1657 if (frame_size <= 0 || frame_size > buf_size) {
1658 av_log(avctx, AV_LOG_ERROR,
1659 "Block %d has invalid size (size %d vs. %d bytes left)\n",
1660 s->block, frame_size, buf_size);
1661 ret = AVERROR_INVALIDDATA;
1662 goto error;
1663 }
1664 if ((ret = wavpack_decode_block(avctx, s->block, buf, frame_size)) < 0)
1665 goto error;
1666 s->block++;
1667 buf += frame_size;
1668 buf_size -= frame_size;
1669 }
1670
1671 if (s->ch_offset != avctx->channels) {
1672 av_log(avctx, AV_LOG_ERROR, "Not enough channels coded in a packet.\n");
1673 ret = AVERROR_INVALIDDATA;
1674 goto error;
1675 }
1676
1677 ff_thread_await_progress(&s->prev_frame, INT_MAX, 0);
1678 ff_thread_release_buffer(avctx, &s->prev_frame);
1679
1680 if (s->modulation == MODULATION_DSD)
1681 avctx->execute2(avctx, dsd_channel, s->frame, NULL, avctx->channels);
1682
1683 ff_thread_report_progress(&s->curr_frame, INT_MAX, 0);
1684
1685 if ((ret = av_frame_ref(data, s->frame)) < 0)
1686 return ret;
1687
1688 *got_frame_ptr = 1;
1689
1690 return avpkt->size;
1691
1692 error:
1693 if (s->frame) {
1694 ff_thread_await_progress(&s->prev_frame, INT_MAX, 0);
1695 ff_thread_release_buffer(avctx, &s->prev_frame);
1696 ff_thread_report_progress(&s->curr_frame, INT_MAX, 0);
1697 }
1698
1699 return ret;
1700 }
1701
1702 AVCodec ff_wavpack_decoder = {
1703 .name = "wavpack",
1704 .long_name = NULL_IF_CONFIG_SMALL("WavPack"),
1705 .type = AVMEDIA_TYPE_AUDIO,
1706 .id = AV_CODEC_ID_WAVPACK,
1707 .priv_data_size = sizeof(WavpackContext),
1708 .init = wavpack_decode_init,
1709 .close = wavpack_decode_end,
1710 .decode = wavpack_decode_frame,
1711 .flush = wavpack_decode_flush,
1712 .update_thread_context = ONLY_IF_THREADS_ENABLED(update_thread_context),
1713 .capabilities = AV_CODEC_CAP_DR1 | AV_CODEC_CAP_FRAME_THREADS |
1714 AV_CODEC_CAP_SLICE_THREADS | AV_CODEC_CAP_CHANNEL_CONF,
1715 .caps_internal = FF_CODEC_CAP_INIT_THREADSAFE | FF_CODEC_CAP_INIT_CLEANUP |
1716 FF_CODEC_CAP_ALLOCATE_PROGRESS,
1717 };
1718