avfilter: new multimedia filter avf_showcqt.c
[ffmpeg.git] / libavformat / brstm.c
1 /*
2  * BRSTM demuxer
3  * Copyright (c) 2012 Paul B Mahol
4  *
5  * This file is part of FFmpeg.
6  *
7  * FFmpeg is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * FFmpeg is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with FFmpeg; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20  */
21
22 #include "libavutil/intreadwrite.h"
23 #include "libavcodec/bytestream.h"
24 #include "avformat.h"
25 #include "internal.h"
26
27 typedef struct BRSTMDemuxContext {
28     uint32_t    block_size;
29     uint32_t    block_count;
30     uint32_t    current_block;
31     uint32_t    samples_per_block;
32     uint32_t    last_block_used_bytes;
33     uint8_t     *table;
34     uint8_t     *adpc;
35 } BRSTMDemuxContext;
36
37 static int probe(AVProbeData *p)
38 {
39     if (AV_RL32(p->buf) == MKTAG('R','S','T','M') &&
40         (AV_RL16(p->buf + 4) == 0xFFFE ||
41          AV_RL16(p->buf + 4) == 0xFEFF))
42         return AVPROBE_SCORE_MAX / 3 * 2;
43     return 0;
44 }
45
46 static int read_close(AVFormatContext *s)
47 {
48     BRSTMDemuxContext *b = s->priv_data;
49
50     av_freep(&b->table);
51     av_freep(&b->adpc);
52
53     return 0;
54 }
55
56 static int read_header(AVFormatContext *s)
57 {
58     BRSTMDemuxContext *b = s->priv_data;
59     int bom, major, minor, codec, chunk;
60     int64_t pos, h1offset, toffset;
61     uint32_t size, start, asize;
62     AVStream *st;
63     int ret = AVERROR_EOF;
64
65     st = avformat_new_stream(s, NULL);
66     if (!st)
67         return AVERROR(ENOMEM);
68     st->codec->codec_type = AVMEDIA_TYPE_AUDIO;
69
70     avio_skip(s->pb, 4);
71
72     bom = avio_rb16(s->pb);
73     if (bom != 0xFEFF && bom != 0xFFFE) {
74         av_log(s, AV_LOG_ERROR, "invalid byte order: %X\n", bom);
75         return AVERROR_INVALIDDATA;
76     }
77     if (bom == 0xFFFE) {
78         avpriv_request_sample(s, "little endian byte order");
79         return AVERROR_PATCHWELCOME;
80     }
81
82     major = avio_r8(s->pb);
83     minor = avio_r8(s->pb);
84     avio_skip(s->pb, 4); // size of file
85     size = avio_rb16(s->pb);
86     if (size < 14)
87         return AVERROR_INVALIDDATA;
88
89     avio_skip(s->pb, size - 14);
90     pos = avio_tell(s->pb);
91     if (avio_rl32(s->pb) != MKTAG('H','E','A','D'))
92         return AVERROR_INVALIDDATA;
93     size = avio_rb32(s->pb);
94     if (size < 256)
95         return AVERROR_INVALIDDATA;
96     avio_skip(s->pb, 4); // unknown
97     h1offset = avio_rb32(s->pb);
98     if (h1offset > size)
99         return AVERROR_INVALIDDATA;
100     avio_skip(s->pb, 12);
101     toffset = avio_rb32(s->pb) + 16LL;
102     if (toffset > size)
103         return AVERROR_INVALIDDATA;
104
105     avio_skip(s->pb, pos + h1offset + 8 - avio_tell(s->pb));
106     codec = avio_r8(s->pb);
107
108     switch (codec) {
109     case 0: codec = AV_CODEC_ID_PCM_S8_PLANAR;    break;
110     case 1: codec = AV_CODEC_ID_PCM_S16BE_PLANAR; break;
111     case 2: codec = AV_CODEC_ID_ADPCM_THP;        break;
112     default:
113         avpriv_request_sample(s, "codec %d", codec);
114         return AVERROR_PATCHWELCOME;
115     }
116
117     avio_skip(s->pb, 1); // loop flag
118     st->codec->codec_id = codec;
119     st->codec->channels = avio_r8(s->pb);
120     if (!st->codec->channels)
121         return AVERROR_INVALIDDATA;
122
123     avio_skip(s->pb, 1); // padding
124     st->codec->sample_rate = avio_rb16(s->pb);
125     if (!st->codec->sample_rate)
126         return AVERROR_INVALIDDATA;
127
128     avio_skip(s->pb, 2); // padding
129     avio_skip(s->pb, 4); // loop start sample
130     st->start_time = 0;
131     st->duration = avio_rb32(s->pb);
132     avpriv_set_pts_info(st, 64, 1, st->codec->sample_rate);
133
134     start = avio_rb32(s->pb);
135     b->current_block = 0;
136     b->block_count = avio_rb32(s->pb);
137     if (b->block_count > UINT16_MAX) {
138         av_log(s, AV_LOG_WARNING, "too many blocks: %u\n", b->block_count);
139         return AVERROR_INVALIDDATA;
140     }
141
142     b->block_size = avio_rb32(s->pb);
143     if (b->block_size > UINT16_MAX / st->codec->channels)
144         return AVERROR_INVALIDDATA;
145     b->block_size *= st->codec->channels;
146
147     b->samples_per_block = avio_rb32(s->pb);
148     b->last_block_used_bytes = avio_rb32(s->pb);
149     if (b->last_block_used_bytes > UINT16_MAX / st->codec->channels)
150         return AVERROR_INVALIDDATA;
151     b->last_block_used_bytes *= st->codec->channels;
152
153     avio_skip(s->pb, 4); // last block samples
154     avio_skip(s->pb, 4); // last block size
155
156     if (codec == AV_CODEC_ID_ADPCM_THP) {
157         int ch;
158
159         avio_skip(s->pb, pos + toffset - avio_tell(s->pb));
160         toffset = avio_rb32(s->pb) + 16LL;
161         if (toffset > size)
162             return AVERROR_INVALIDDATA;
163
164         avio_skip(s->pb, pos + toffset - avio_tell(s->pb));
165         b->table = av_mallocz(32 * st->codec->channels);
166         if (!b->table)
167             return AVERROR(ENOMEM);
168
169         for (ch = 0; ch < st->codec->channels; ch++) {
170             if (avio_read(s->pb, b->table + ch * 32, 32) != 32) {
171                 ret = AVERROR_INVALIDDATA;
172                 goto fail;
173             }
174             avio_skip(s->pb, 24);
175         }
176     }
177
178     if (size < (avio_tell(s->pb) - pos)) {
179         ret = AVERROR_INVALIDDATA;
180         goto fail;
181     }
182     avio_skip(s->pb, size - (avio_tell(s->pb) - pos));
183
184     while (!url_feof(s->pb)) {
185         chunk = avio_rl32(s->pb);
186         size  = avio_rb32(s->pb);
187         if (size < 8) {
188             ret = AVERROR_INVALIDDATA;
189             goto fail;
190         }
191         size -= 8;
192         switch (chunk) {
193         case MKTAG('A','D','P','C'):
194             if (codec != AV_CODEC_ID_ADPCM_THP)
195                 goto skip;
196
197             asize = b->block_count * st->codec->channels * 4;
198             if (size < asize) {
199                 ret = AVERROR_INVALIDDATA;
200                 goto fail;
201             }
202             if (b->adpc) {
203                 av_log(s, AV_LOG_WARNING, "skipping additional ADPC chunk\n");
204                 goto skip;
205             } else {
206                 b->adpc = av_mallocz(asize);
207                 if (!b->adpc) {
208                     ret = AVERROR(ENOMEM);
209                     goto fail;
210                 }
211                 avio_read(s->pb, b->adpc, asize);
212                 avio_skip(s->pb, size - asize);
213             }
214             break;
215         case MKTAG('D','A','T','A'):
216             if ((start < avio_tell(s->pb)) ||
217                 (!b->adpc && codec == AV_CODEC_ID_ADPCM_THP)) {
218                 ret = AVERROR_INVALIDDATA;
219                 goto fail;
220             }
221             avio_skip(s->pb, start - avio_tell(s->pb));
222
223             if (major != 1 || minor)
224                 avpriv_request_sample(s, "Version %d.%d", major, minor);
225
226             return 0;
227         default:
228             av_log(s, AV_LOG_WARNING, "skipping unknown chunk: %X\n", chunk);
229 skip:
230             avio_skip(s->pb, size);
231         }
232     }
233
234 fail:
235     read_close(s);
236
237     return ret;
238 }
239
240 static int read_packet(AVFormatContext *s, AVPacket *pkt)
241 {
242     AVCodecContext *codec = s->streams[0]->codec;
243     BRSTMDemuxContext *b = s->priv_data;
244     uint32_t samples, size;
245     int ret;
246
247     if (url_feof(s->pb))
248         return AVERROR_EOF;
249     b->current_block++;
250     if (b->current_block == b->block_count) {
251         size    = b->last_block_used_bytes;
252         samples = size / (8 * codec->channels) * 14;
253     } else if (b->current_block < b->block_count) {
254         size    = b->block_size;
255         samples = b->samples_per_block;
256     } else {
257         return AVERROR_EOF;
258     }
259
260     if (codec->codec_id == AV_CODEC_ID_ADPCM_THP) {
261         uint8_t *dst;
262
263         if (av_new_packet(pkt, 8 + (32 + 4) * codec->channels + size) < 0)
264             return AVERROR(ENOMEM);
265         dst = pkt->data;
266         bytestream_put_be32(&dst, size);
267         bytestream_put_be32(&dst, samples);
268         bytestream_put_buffer(&dst, b->table, 32 * codec->channels);
269         bytestream_put_buffer(&dst, b->adpc + 4 * codec->channels *
270                                     (b->current_block - 1), 4 * codec->channels);
271
272         ret = avio_read(s->pb, dst, size);
273         if (ret != size)
274             av_free_packet(pkt);
275         pkt->duration = samples;
276     } else {
277         ret = av_get_packet(s->pb, pkt, size);
278     }
279
280     pkt->stream_index = 0;
281
282     if (ret != size)
283         ret = AVERROR(EIO);
284
285     return ret;
286 }
287
288 AVInputFormat ff_brstm_demuxer = {
289     .name           = "brstm",
290     .long_name      = NULL_IF_CONFIG_SMALL("BRSTM (Binary Revolution Stream)"),
291     .priv_data_size = sizeof(BRSTMDemuxContext),
292     .read_probe     = probe,
293     .read_header    = read_header,
294     .read_packet    = read_packet,
295     .read_close     = read_close,
296     .extensions     = "brstm",
297 };