[deb_ffmpeg.git] / ffmpeg / libavformat / brstm.c

/*
 * BRSTM demuxer
 * Copyright (c) 2012 Paul B Mahol
 *
 * This file is part of FFmpeg.
 *
 * FFmpeg is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * FFmpeg is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with FFmpeg; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 */

#include "libavutil/intreadwrite.h"
#include "libavcodec/bytestream.h"
#include "avformat.h"
#include "internal.h"

typedef struct BRSTMDemuxContext {
    uint32_t    block_size;
    uint32_t    block_count;
    uint32_t    current_block;
    uint32_t    samples_per_block;
    uint32_t    last_block_used_bytes;
    uint8_t     *table;
    uint8_t     *adpc;
} BRSTMDemuxContext;

static int probe(AVProbeData *p)
{
    if (AV_RL32(p->buf) == MKTAG('R','S','T','M') &&
        (AV_RL16(p->buf + 4) == 0xFFFE ||
         AV_RL16(p->buf + 4) == 0xFEFF))
        return AVPROBE_SCORE_MAX / 3 * 2;
    return 0;
}

static int read_close(AVFormatContext *s)
{
    BRSTMDemuxContext *b = s->priv_data;

    av_freep(&b->table);
    av_freep(&b->adpc);

    return 0;
}

static int read_header(AVFormatContext *s)
{
    BRSTMDemuxContext *b = s->priv_data;
    int bom, major, minor, codec, chunk;
    int64_t pos, h1offset, toffset;
    uint32_t size, start, asize;
    AVStream *st;
    int ret = AVERROR_EOF;

    st = avformat_new_stream(s, NULL);
    if (!st)
        return AVERROR(ENOMEM);
    st->codec->codec_type = AVMEDIA_TYPE_AUDIO;

    avio_skip(s->pb, 4);

    bom = avio_rb16(s->pb);
    if (bom != 0xFEFF && bom != 0xFFFE) {
        av_log(s, AV_LOG_ERROR, "invalid byte order: %X\n", bom);
        return AVERROR_INVALIDDATA;
    }
    if (bom == 0xFFFE) {
        avpriv_request_sample(s, "little endian byte order");
        return AVERROR_PATCHWELCOME;
    }

    major = avio_r8(s->pb);
    minor = avio_r8(s->pb);
    avio_skip(s->pb, 4); // size of file
    size = avio_rb16(s->pb);
    if (size < 14)
        return AVERROR_INVALIDDATA;

    avio_skip(s->pb, size - 14);
    pos = avio_tell(s->pb);
    if (avio_rl32(s->pb) != MKTAG('H','E','A','D'))
        return AVERROR_INVALIDDATA;
    size = avio_rb32(s->pb);
    if (size < 256)
        return AVERROR_INVALIDDATA;
    avio_skip(s->pb, 4); // unknown
    h1offset = avio_rb32(s->pb);
    if (h1offset > size)
        return AVERROR_INVALIDDATA;
    avio_skip(s->pb, 12);
    toffset = avio_rb32(s->pb) + 16LL;
    if (toffset > size)
        return AVERROR_INVALIDDATA;

    avio_skip(s->pb, pos + h1offset + 8 - avio_tell(s->pb));
    codec = avio_r8(s->pb);

    switch (codec) {
    case 0: codec = AV_CODEC_ID_PCM_S8_PLANAR;    break;
    case 1: codec = AV_CODEC_ID_PCM_S16BE_PLANAR; break;
    case 2: codec = AV_CODEC_ID_ADPCM_THP;        break;
    default:
        avpriv_request_sample(s, "codec %d", codec);
        return AVERROR_PATCHWELCOME;
    }

    avio_skip(s->pb, 1); // loop flag
    st->codec->codec_id = codec;
    st->codec->channels = avio_r8(s->pb);
    if (!st->codec->channels)
        return AVERROR_INVALIDDATA;

    avio_skip(s->pb, 1); // padding
    st->codec->sample_rate = avio_rb16(s->pb);
    if (!st->codec->sample_rate)
        return AVERROR_INVALIDDATA;

    avio_skip(s->pb, 2); // padding
    avio_skip(s->pb, 4); // loop start sample
    st->start_time = 0;
    st->duration = avio_rb32(s->pb);
    avpriv_set_pts_info(st, 64, 1, st->codec->sample_rate);

    start = avio_rb32(s->pb);
    b->current_block = 0;
    b->block_count = avio_rb32(s->pb);
    if (b->block_count > UINT16_MAX) {
        av_log(s, AV_LOG_WARNING, "too many blocks: %u\n", b->block_count);
        return AVERROR_INVALIDDATA;
    }

    b->block_size = avio_rb32(s->pb);
    if (b->block_size > UINT16_MAX / st->codec->channels)
        return AVERROR_INVALIDDATA;
    b->block_size *= st->codec->channels;

    b->samples_per_block = avio_rb32(s->pb);
    b->last_block_used_bytes = avio_rb32(s->pb);
    if (b->last_block_used_bytes > UINT16_MAX / st->codec->channels)
        return AVERROR_INVALIDDATA;
    b->last_block_used_bytes *= st->codec->channels;

    avio_skip(s->pb, 4); // last block samples
    avio_skip(s->pb, 4); // last block size

    if (codec == AV_CODEC_ID_ADPCM_THP) {
        int ch;

        avio_skip(s->pb, pos + toffset - avio_tell(s->pb));
        toffset = avio_rb32(s->pb) + 16LL;
        if (toffset > size)
            return AVERROR_INVALIDDATA;

        avio_skip(s->pb, pos + toffset - avio_tell(s->pb));
        b->table = av_mallocz(32 * st->codec->channels);
        if (!b->table)
            return AVERROR(ENOMEM);

        for (ch = 0; ch < st->codec->channels; ch++) {
            if (avio_read(s->pb, b->table + ch * 32, 32) != 32) {
                ret = AVERROR_INVALIDDATA;
                goto fail;
            }
            avio_skip(s->pb, 24);
        }
    }

    if (size < (avio_tell(s->pb) - pos)) {
        ret = AVERROR_INVALIDDATA;
        goto fail;
    }
    avio_skip(s->pb, size - (avio_tell(s->pb) - pos));

    while (!avio_feof(s->pb)) {
        chunk = avio_rl32(s->pb);
        size  = avio_rb32(s->pb);
        if (size < 8) {
            ret = AVERROR_INVALIDDATA;
            goto fail;
        }
        size -= 8;
        switch (chunk) {
        case MKTAG('A','D','P','C'):
            if (codec != AV_CODEC_ID_ADPCM_THP)
                goto skip;

            asize = b->block_count * st->codec->channels * 4;
            if (size < asize) {
                ret = AVERROR_INVALIDDATA;
                goto fail;
            }
            if (b->adpc) {
                av_log(s, AV_LOG_WARNING, "skipping additional ADPC chunk\n");
                goto skip;
            } else {
                b->adpc = av_mallocz(asize);
                if (!b->adpc) {
                    ret = AVERROR(ENOMEM);
                    goto fail;
                }
                avio_read(s->pb, b->adpc, asize);
                avio_skip(s->pb, size - asize);
            }
            break;
        case MKTAG('D','A','T','A'):
            if ((start < avio_tell(s->pb)) ||
                (!b->adpc && codec == AV_CODEC_ID_ADPCM_THP)) {
                ret = AVERROR_INVALIDDATA;
                goto fail;
            }
            avio_skip(s->pb, start - avio_tell(s->pb));

            if (major != 1 || minor)
                avpriv_request_sample(s, "Version %d.%d", major, minor);

            return 0;
        default:
            av_log(s, AV_LOG_WARNING, "skipping unknown chunk: %X\n", chunk);
skip:
            avio_skip(s->pb, size);
        }
    }

fail:
    read_close(s);

    return ret;
}

static int read_packet(AVFormatContext *s, AVPacket *pkt)
{
    AVCodecContext *codec = s->streams[0]->codec;
    BRSTMDemuxContext *b = s->priv_data;
    uint32_t samples, size;
    int ret;

    if (avio_feof(s->pb))
        return AVERROR_EOF;
    b->current_block++;
    if (b->current_block == b->block_count) {
        size    = b->last_block_used_bytes;
        samples = size / (8 * codec->channels) * 14;
    } else if (b->current_block < b->block_count) {
        size    = b->block_size;
        samples = b->samples_per_block;
    } else {
        return AVERROR_EOF;
    }

    if (codec->codec_id == AV_CODEC_ID_ADPCM_THP) {
        uint8_t *dst;

        if (av_new_packet(pkt, 8 + (32 + 4) * codec->channels + size) < 0)
            return AVERROR(ENOMEM);
        dst = pkt->data;
        bytestream_put_be32(&dst, size);
        bytestream_put_be32(&dst, samples);
        bytestream_put_buffer(&dst, b->table, 32 * codec->channels);
        bytestream_put_buffer(&dst, b->adpc + 4 * codec->channels *
                                    (b->current_block - 1), 4 * codec->channels);

        ret = avio_read(s->pb, dst, size);
        if (ret != size)
            av_free_packet(pkt);
        pkt->duration = samples;
    } else {
        ret = av_get_packet(s->pb, pkt, size);
    }

    pkt->stream_index = 0;

    if (ret != size)
        ret = AVERROR(EIO);

    return ret;
}

AVInputFormat ff_brstm_demuxer = {
    .name           = "brstm",
    .long_name      = NULL_IF_CONFIG_SMALL("BRSTM (Binary Revolution Stream)"),
    .priv_data_size = sizeof(BRSTMDemuxContext),
    .read_probe     = probe,
    .read_header    = read_header,
    .read_packet    = read_packet,
    .read_close     = read_close,
    .extensions     = "brstm",
};
Commit	Line	Data
2ba45a60 DM	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 (!avio_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 (avio_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	};