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

/*
 * RL2 Format Demuxer
 * Copyright (c) 2008 Sascha Sommer (saschasommer@freenet.de)
 *
 * 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
 */

/**
 * RL2 file demuxer
 * @file
 * @author Sascha Sommer (saschasommer@freenet.de)
 * @see http://wiki.multimedia.cx/index.php?title=RL2
 *
 * extradata:
 * 2 byte le initial drawing offset within 320x200 viewport
 * 4 byte le number of used colors
 * 256 * 3 bytes rgb palette
 * optional background_frame
 */

#include <stdint.h>

#include "libavutil/intreadwrite.h"
#include "libavutil/mathematics.h"
#include "avformat.h"
#include "internal.h"

#define EXTRADATA1_SIZE (6 + 256 * 3) ///< video base, clr, palette

#define FORM_TAG MKBETAG('F', 'O', 'R', 'M')
#define RLV2_TAG MKBETAG('R', 'L', 'V', '2')
#define RLV3_TAG MKBETAG('R', 'L', 'V', '3')

typedef struct Rl2DemuxContext {
    unsigned int index_pos[2];   ///< indexes in the sample tables
} Rl2DemuxContext;


/**
 * check if the file is in rl2 format
 * @param p probe buffer
 * @return 0 when the probe buffer does not contain rl2 data, > 0 otherwise
 */
static int rl2_probe(AVProbeData *p)
{

    if(AV_RB32(&p->buf[0]) != FORM_TAG)
        return 0;

    if(AV_RB32(&p->buf[8]) != RLV2_TAG &&
        AV_RB32(&p->buf[8]) != RLV3_TAG)
        return 0;

    return AVPROBE_SCORE_MAX;
}

/**
 * read rl2 header data and setup the avstreams
 * @param s demuxer context
 * @return 0 on success, AVERROR otherwise
 */
static av_cold int rl2_read_header(AVFormatContext *s)
{
    AVIOContext *pb = s->pb;
    AVStream *st;
    unsigned int frame_count;
    unsigned int audio_frame_counter = 0;
    unsigned int video_frame_counter = 0;
    unsigned int back_size;
    unsigned short sound_rate;
    unsigned short rate;
    unsigned short channels;
    unsigned short def_sound_size;
    unsigned int signature;
    unsigned int pts_den = 11025; /* video only case */
    unsigned int pts_num = 1103;
    unsigned int* chunk_offset = NULL;
    int* chunk_size = NULL;
    int* audio_size = NULL;
    int i;
    int ret = 0;

    avio_skip(pb,4);          /* skip FORM tag */
    back_size = avio_rl32(pb); /**< get size of the background frame */
    signature = avio_rb32(pb);
    avio_skip(pb, 4);         /* data size */
    frame_count = avio_rl32(pb);

    /* disallow back_sizes and frame_counts that may lead to overflows later */
    if(back_size > INT_MAX/2  || frame_count > INT_MAX / sizeof(uint32_t))
        return AVERROR_INVALIDDATA;

    avio_skip(pb, 2);         /* encoding mentod */
    sound_rate = avio_rl16(pb);
    rate = avio_rl16(pb);
    channels = avio_rl16(pb);
    def_sound_size = avio_rl16(pb);

    /** setup video stream */
    st = avformat_new_stream(s, NULL);
    if(!st)
         return AVERROR(ENOMEM);

    st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
    st->codec->codec_id = AV_CODEC_ID_RL2;
    st->codec->codec_tag = 0;  /* no fourcc */
    st->codec->width = 320;
    st->codec->height = 200;

    /** allocate and fill extradata */
    st->codec->extradata_size = EXTRADATA1_SIZE;

    if(signature == RLV3_TAG && back_size > 0)
        st->codec->extradata_size += back_size;

    if(ff_get_extradata(st->codec, pb, st->codec->extradata_size) < 0)
        return AVERROR(ENOMEM);

    /** setup audio stream if present */
    if(sound_rate){
        if (!channels || channels > 42) {
            av_log(s, AV_LOG_ERROR, "Invalid number of channels: %d\n", channels);
            return AVERROR_INVALIDDATA;
        }

        pts_num = def_sound_size;
        pts_den = rate;

        st = avformat_new_stream(s, NULL);
        if (!st)
            return AVERROR(ENOMEM);
        st->codec->codec_type = AVMEDIA_TYPE_AUDIO;
        st->codec->codec_id = AV_CODEC_ID_PCM_U8;
        st->codec->codec_tag = 1;
        st->codec->channels = channels;
        st->codec->bits_per_coded_sample = 8;
        st->codec->sample_rate = rate;
        st->codec->bit_rate = st->codec->channels * st->codec->sample_rate *
            st->codec->bits_per_coded_sample;
        st->codec->block_align = st->codec->channels *
            st->codec->bits_per_coded_sample / 8;
        avpriv_set_pts_info(st,32,1,rate);
    }

    avpriv_set_pts_info(s->streams[0], 32, pts_num, pts_den);

    chunk_size =   av_malloc(frame_count * sizeof(uint32_t));
    audio_size =   av_malloc(frame_count * sizeof(uint32_t));
    chunk_offset = av_malloc(frame_count * sizeof(uint32_t));

    if(!chunk_size || !audio_size || !chunk_offset){
        av_free(chunk_size);
        av_free(audio_size);
        av_free(chunk_offset);
        return AVERROR(ENOMEM);
    }

    /** read offset and size tables */
    for(i=0; i < frame_count;i++)
        chunk_size[i] = avio_rl32(pb);
    for(i=0; i < frame_count;i++)
        chunk_offset[i] = avio_rl32(pb);
    for(i=0; i < frame_count;i++)
        audio_size[i] = avio_rl32(pb) & 0xFFFF;

    /** build the sample index */
    for(i=0;i<frame_count;i++){
        if(chunk_size[i] < 0 || audio_size[i] > chunk_size[i]){
            ret = AVERROR_INVALIDDATA;
            break;
        }

        if(sound_rate && audio_size[i]){
            av_add_index_entry(s->streams[1], chunk_offset[i],
                audio_frame_counter,audio_size[i], 0, AVINDEX_KEYFRAME);
            audio_frame_counter += audio_size[i] / channels;
        }
        av_add_index_entry(s->streams[0], chunk_offset[i] + audio_size[i],
            video_frame_counter,chunk_size[i]-audio_size[i],0,AVINDEX_KEYFRAME);
        ++video_frame_counter;
    }


    av_free(chunk_size);
    av_free(audio_size);
    av_free(chunk_offset);

    return ret;
}

/**
 * read a single audio or video packet
 * @param s demuxer context
 * @param pkt the packet to be filled
 * @return 0 on success, AVERROR otherwise
 */
static int rl2_read_packet(AVFormatContext *s,
                            AVPacket *pkt)
{
    Rl2DemuxContext *rl2 = s->priv_data;
    AVIOContext *pb = s->pb;
    AVIndexEntry *sample = NULL;
    int i;
    int ret = 0;
    int stream_id = -1;
    int64_t pos = INT64_MAX;

    /** check if there is a valid video or audio entry that can be used */
    for(i=0; i<s->nb_streams; i++){
        if(rl2->index_pos[i] < s->streams[i]->nb_index_entries
              && s->streams[i]->index_entries[ rl2->index_pos[i] ].pos < pos){
            sample = &s->streams[i]->index_entries[ rl2->index_pos[i] ];
            pos= sample->pos;
            stream_id= i;
        }
    }

    if(stream_id == -1)
        return AVERROR_EOF;

    ++rl2->index_pos[stream_id];

    /** position the stream (will probably be there anyway) */
    avio_seek(pb, sample->pos, SEEK_SET);

    /** fill the packet */
    ret = av_get_packet(pb, pkt, sample->size);
    if(ret != sample->size){
        av_free_packet(pkt);
        return AVERROR(EIO);
    }

    pkt->stream_index = stream_id;
    pkt->pts = sample->timestamp;

    return ret;
}

/**
 * seek to a new timestamp
 * @param s demuxer context
 * @param stream_index index of the stream that should be seeked
 * @param timestamp wanted timestamp
 * @param flags direction and seeking mode
 * @return 0 on success, -1 otherwise
 */
static int rl2_read_seek(AVFormatContext *s, int stream_index, int64_t timestamp, int flags)
{
    AVStream *st = s->streams[stream_index];
    Rl2DemuxContext *rl2 = s->priv_data;
    int i;
    int index = av_index_search_timestamp(st, timestamp, flags);
    if(index < 0)
        return -1;

    rl2->index_pos[stream_index] = index;
    timestamp = st->index_entries[index].timestamp;

    for(i=0; i < s->nb_streams; i++){
        AVStream *st2 = s->streams[i];
        index = av_index_search_timestamp(st2,
                    av_rescale_q(timestamp, st->time_base, st2->time_base),
                    flags | AVSEEK_FLAG_BACKWARD);

        if(index < 0)
            index = 0;

        rl2->index_pos[i] = index;
    }

    return 0;
}

AVInputFormat ff_rl2_demuxer = {
    .name           = "rl2",
    .long_name      = NULL_IF_CONFIG_SMALL("RL2"),
    .priv_data_size = sizeof(Rl2DemuxContext),
    .read_probe     = rl2_probe,
    .read_header    = rl2_read_header,
    .read_packet    = rl2_read_packet,
    .read_seek      = rl2_read_seek,
};
Commit	Line	Data
	1	/*
	2	* RL2 Format Demuxer
	3	* Copyright (c) 2008 Sascha Sommer (saschasommer@freenet.de)
	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	/**
	23	* RL2 file demuxer
	24	* @file
	25	* @author Sascha Sommer (saschasommer@freenet.de)
	26	* @see http://wiki.multimedia.cx/index.php?title=RL2
	27	*
	28	* extradata:
	29	* 2 byte le initial drawing offset within 320x200 viewport
	30	* 4 byte le number of used colors
	31	* 256 * 3 bytes rgb palette
	32	* optional background_frame
	33	*/
	34
	35	#include <stdint.h>
	36
	37	#include "libavutil/intreadwrite.h"
	38	#include "libavutil/mathematics.h"
	39	#include "avformat.h"
	40	#include "internal.h"
	41
	42	#define EXTRADATA1_SIZE (6 + 256 * 3) ///< video base, clr, palette
	43
	44	#define FORM_TAG MKBETAG('F', 'O', 'R', 'M')
	45	#define RLV2_TAG MKBETAG('R', 'L', 'V', '2')
	46	#define RLV3_TAG MKBETAG('R', 'L', 'V', '3')
	47
	48	typedef struct Rl2DemuxContext {
	49	unsigned int index_pos[2]; ///< indexes in the sample tables
	50	} Rl2DemuxContext;
	51
	52
	53	/**
	54	* check if the file is in rl2 format
	55	* @param p probe buffer
	56	* @return 0 when the probe buffer does not contain rl2 data, > 0 otherwise
	57	*/
	58	static int rl2_probe(AVProbeData *p)
	59	{
	60
	61	if(AV_RB32(&p->buf[0]) != FORM_TAG)
	62	return 0;
	63
	64	if(AV_RB32(&p->buf[8]) != RLV2_TAG &&
	65	AV_RB32(&p->buf[8]) != RLV3_TAG)
	66	return 0;
	67
	68	return AVPROBE_SCORE_MAX;
	69	}
	70
	71	/**
	72	* read rl2 header data and setup the avstreams
	73	* @param s demuxer context
	74	* @return 0 on success, AVERROR otherwise
	75	*/
	76	static av_cold int rl2_read_header(AVFormatContext *s)
	77	{
	78	AVIOContext *pb = s->pb;
	79	AVStream *st;
	80	unsigned int frame_count;
	81	unsigned int audio_frame_counter = 0;
	82	unsigned int video_frame_counter = 0;
	83	unsigned int back_size;
	84	unsigned short sound_rate;
	85	unsigned short rate;
	86	unsigned short channels;
	87	unsigned short def_sound_size;
	88	unsigned int signature;
	89	unsigned int pts_den = 11025; /* video only case */
	90	unsigned int pts_num = 1103;
	91	unsigned int* chunk_offset = NULL;
	92	int* chunk_size = NULL;
	93	int* audio_size = NULL;
	94	int i;
	95	int ret = 0;
	96
	97	avio_skip(pb,4); /* skip FORM tag */
	98	back_size = avio_rl32(pb); /*< get size of the background frame /
	99	signature = avio_rb32(pb);
	100	avio_skip(pb, 4); /* data size */
	101	frame_count = avio_rl32(pb);
	102
	103	/* disallow back_sizes and frame_counts that may lead to overflows later */
	104	if(back_size > INT_MAX/2 \|\| frame_count > INT_MAX / sizeof(uint32_t))
	105	return AVERROR_INVALIDDATA;
	106
	107	avio_skip(pb, 2); /* encoding mentod */
	108	sound_rate = avio_rl16(pb);
	109	rate = avio_rl16(pb);
	110	channels = avio_rl16(pb);
	111	def_sound_size = avio_rl16(pb);
	112
	113	/** setup video stream */
	114	st = avformat_new_stream(s, NULL);
	115	if(!st)
	116	return AVERROR(ENOMEM);
	117
	118	st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
	119	st->codec->codec_id = AV_CODEC_ID_RL2;
	120	st->codec->codec_tag = 0; /* no fourcc */
	121	st->codec->width = 320;
	122	st->codec->height = 200;
	123
	124	/** allocate and fill extradata */
	125	st->codec->extradata_size = EXTRADATA1_SIZE;
	126
	127	if(signature == RLV3_TAG && back_size > 0)
	128	st->codec->extradata_size += back_size;
	129
	130	if(ff_get_extradata(st->codec, pb, st->codec->extradata_size) < 0)
	131	return AVERROR(ENOMEM);
	132
	133	/** setup audio stream if present */
	134	if(sound_rate){
	135	if (!channels \|\| channels > 42) {
	136	av_log(s, AV_LOG_ERROR, "Invalid number of channels: %d\n", channels);
	137	return AVERROR_INVALIDDATA;
	138	}
	139
	140	pts_num = def_sound_size;
	141	pts_den = rate;
	142
	143	st = avformat_new_stream(s, NULL);
	144	if (!st)
	145	return AVERROR(ENOMEM);
	146	st->codec->codec_type = AVMEDIA_TYPE_AUDIO;
	147	st->codec->codec_id = AV_CODEC_ID_PCM_U8;
	148	st->codec->codec_tag = 1;
	149	st->codec->channels = channels;
	150	st->codec->bits_per_coded_sample = 8;
	151	st->codec->sample_rate = rate;
	152	st->codec->bit_rate = st->codec->channels * st->codec->sample_rate *
	153	st->codec->bits_per_coded_sample;
	154	st->codec->block_align = st->codec->channels *
	155	st->codec->bits_per_coded_sample / 8;
	156	avpriv_set_pts_info(st,32,1,rate);
	157	}
	158
	159	avpriv_set_pts_info(s->streams[0], 32, pts_num, pts_den);
	160
	161	chunk_size = av_malloc(frame_count * sizeof(uint32_t));
	162	audio_size = av_malloc(frame_count * sizeof(uint32_t));
	163	chunk_offset = av_malloc(frame_count * sizeof(uint32_t));
	164
	165	if(!chunk_size \|\| !audio_size \|\| !chunk_offset){
	166	av_free(chunk_size);
	167	av_free(audio_size);
	168	av_free(chunk_offset);
	169	return AVERROR(ENOMEM);
	170	}
	171
	172	/** read offset and size tables */
	173	for(i=0; i < frame_count;i++)
	174	chunk_size[i] = avio_rl32(pb);
	175	for(i=0; i < frame_count;i++)
	176	chunk_offset[i] = avio_rl32(pb);
	177	for(i=0; i < frame_count;i++)
	178	audio_size[i] = avio_rl32(pb) & 0xFFFF;
	179
	180	/** build the sample index */
	181	for(i=0;i<frame_count;i++){
	182	if(chunk_size[i] < 0 \|\| audio_size[i] > chunk_size[i]){
	183	ret = AVERROR_INVALIDDATA;
	184	break;
	185	}
	186
	187	if(sound_rate && audio_size[i]){
	188	av_add_index_entry(s->streams[1], chunk_offset[i],
	189	audio_frame_counter,audio_size[i], 0, AVINDEX_KEYFRAME);
	190	audio_frame_counter += audio_size[i] / channels;
	191	}
	192	av_add_index_entry(s->streams[0], chunk_offset[i] + audio_size[i],
	193	video_frame_counter,chunk_size[i]-audio_size[i],0,AVINDEX_KEYFRAME);
	194	++video_frame_counter;
	195	}
	196
	197
	198	av_free(chunk_size);
	199	av_free(audio_size);
	200	av_free(chunk_offset);
	201
	202	return ret;
	203	}
	204
	205	/**
	206	* read a single audio or video packet
	207	* @param s demuxer context
	208	* @param pkt the packet to be filled
	209	* @return 0 on success, AVERROR otherwise
	210	*/
	211	static int rl2_read_packet(AVFormatContext *s,
	212	AVPacket *pkt)
	213	{
	214	Rl2DemuxContext *rl2 = s->priv_data;
	215	AVIOContext *pb = s->pb;
	216	AVIndexEntry *sample = NULL;
	217	int i;
	218	int ret = 0;
	219	int stream_id = -1;
	220	int64_t pos = INT64_MAX;
	221
	222	/** check if there is a valid video or audio entry that can be used */
	223	for(i=0; i<s->nb_streams; i++){
	224	if(rl2->index_pos[i] < s->streams[i]->nb_index_entries
	225	&& s->streams[i]->index_entries[ rl2->index_pos[i] ].pos < pos){
	226	sample = &s->streams[i]->index_entries[ rl2->index_pos[i] ];
	227	pos= sample->pos;
	228	stream_id= i;
	229	}
	230	}
	231
	232	if(stream_id == -1)
	233	return AVERROR_EOF;
	234
	235	++rl2->index_pos[stream_id];
	236
	237	/** position the stream (will probably be there anyway) */
	238	avio_seek(pb, sample->pos, SEEK_SET);
	239
	240	/** fill the packet */
	241	ret = av_get_packet(pb, pkt, sample->size);
	242	if(ret != sample->size){
	243	av_free_packet(pkt);
	244	return AVERROR(EIO);
	245	}
	246
	247	pkt->stream_index = stream_id;
	248	pkt->pts = sample->timestamp;
	249
	250	return ret;
	251	}
	252
	253	/**
	254	* seek to a new timestamp
	255	* @param s demuxer context
	256	* @param stream_index index of the stream that should be seeked
	257	* @param timestamp wanted timestamp
	258	* @param flags direction and seeking mode
	259	* @return 0 on success, -1 otherwise
	260	*/
	261	static int rl2_read_seek(AVFormatContext *s, int stream_index, int64_t timestamp, int flags)
	262	{
	263	AVStream *st = s->streams[stream_index];
	264	Rl2DemuxContext *rl2 = s->priv_data;
	265	int i;
	266	int index = av_index_search_timestamp(st, timestamp, flags);
	267	if(index < 0)
	268	return -1;
	269
	270	rl2->index_pos[stream_index] = index;
	271	timestamp = st->index_entries[index].timestamp;
	272
	273	for(i=0; i < s->nb_streams; i++){
	274	AVStream *st2 = s->streams[i];
	275	index = av_index_search_timestamp(st2,
	276	av_rescale_q(timestamp, st->time_base, st2->time_base),
	277	flags \| AVSEEK_FLAG_BACKWARD);
	278
	279	if(index < 0)
	280	index = 0;
	281
	282	rl2->index_pos[i] = index;
	283	}
	284
	285	return 0;
	286	}
	287
	288	AVInputFormat ff_rl2_demuxer = {
	289	.name = "rl2",
	290	.long_name = NULL_IF_CONFIG_SMALL("RL2"),
	291	.priv_data_size = sizeof(Rl2DemuxContext),
	292	.read_probe = rl2_probe,
	293	.read_header = rl2_read_header,
	294	.read_packet = rl2_read_packet,
	295	.read_seek = rl2_read_seek,
	296	};