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

/*
 * DXA demuxer
 * Copyright (c) 2007 Konstantin Shishkov
 *
 * 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 <inttypes.h>

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

#define DXA_EXTRA_SIZE  9

typedef struct{
    int frames;
    int has_sound;
    int bpc;
    uint32_t bytes_left;
    int64_t wavpos, vidpos;
    int readvid;
}DXAContext;

static int dxa_probe(AVProbeData *p)
{
    int w, h;
    if (p->buf_size < 15)
        return 0;
    w = AV_RB16(p->buf + 11);
    h = AV_RB16(p->buf + 13);
    /* check file header */
    if (p->buf[0] == 'D' && p->buf[1] == 'E' &&
        p->buf[2] == 'X' && p->buf[3] == 'A' &&
        w && w <= 2048 && h && h <= 2048)
        return AVPROBE_SCORE_MAX;
    else
        return 0;
}

static int dxa_read_header(AVFormatContext *s)
{
    AVIOContext *pb = s->pb;
    DXAContext *c = s->priv_data;
    AVStream *st, *ast;
    uint32_t tag;
    int32_t fps;
    int w, h;
    int num, den;
    int flags;
    int ret;

    tag = avio_rl32(pb);
    if (tag != MKTAG('D', 'E', 'X', 'A'))
        return AVERROR_INVALIDDATA;
    flags = avio_r8(pb);
    c->frames = avio_rb16(pb);
    if(!c->frames){
        av_log(s, AV_LOG_ERROR, "File contains no frames ???\n");
        return AVERROR_INVALIDDATA;
    }

    fps = avio_rb32(pb);
    if(fps > 0){
        den = 1000;
        num = fps;
    }else if (fps < 0){
        den = 100000;
        num = -fps;
    }else{
        den = 10;
        num = 1;
    }
    w = avio_rb16(pb);
    h = avio_rb16(pb);
    c->has_sound = 0;

    st = avformat_new_stream(s, NULL);
    if (!st)
        return AVERROR(ENOMEM);

    // Parse WAV data header
    if(avio_rl32(pb) == MKTAG('W', 'A', 'V', 'E')){
        uint32_t size, fsize;
        c->has_sound = 1;
        size = avio_rb32(pb);
        c->vidpos = avio_tell(pb) + size;
        avio_skip(pb, 16);
        fsize = avio_rl32(pb);

        ast = avformat_new_stream(s, NULL);
        if (!ast)
            return AVERROR(ENOMEM);
        ret = ff_get_wav_header(pb, ast->codec, fsize);
        if (ret < 0)
            return ret;
        if (ast->codec->sample_rate > 0)
            avpriv_set_pts_info(ast, 64, 1, ast->codec->sample_rate);
        // find 'data' chunk
        while(avio_tell(pb) < c->vidpos && !avio_feof(pb)){
            tag = avio_rl32(pb);
            fsize = avio_rl32(pb);
            if(tag == MKTAG('d', 'a', 't', 'a')) break;
            avio_skip(pb, fsize);
        }
        c->bpc = (fsize + c->frames - 1) / c->frames;
        if(ast->codec->block_align)
            c->bpc = ((c->bpc + ast->codec->block_align - 1) / ast->codec->block_align) * ast->codec->block_align;
        c->bytes_left = fsize;
        c->wavpos = avio_tell(pb);
        avio_seek(pb, c->vidpos, SEEK_SET);
    }

    /* now we are ready: build format streams */
    st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
    st->codec->codec_id   = AV_CODEC_ID_DXA;
    st->codec->width      = w;
    st->codec->height     = h;
    av_reduce(&den, &num, den, num, (1UL<<31)-1);
    avpriv_set_pts_info(st, 33, num, den);
    /* flags & 0x80 means that image is interlaced,
     * flags & 0x40 means that image has double height
     * either way set true height
     */
    if(flags & 0xC0){
        st->codec->height >>= 1;
    }
    c->readvid = !c->has_sound;
    c->vidpos  = avio_tell(pb);
    s->start_time = 0;
    s->duration = (int64_t)c->frames * AV_TIME_BASE * num / den;
    av_log(s, AV_LOG_DEBUG, "%d frame(s)\n",c->frames);

    return 0;
}

static int dxa_read_packet(AVFormatContext *s, AVPacket *pkt)
{
    DXAContext *c = s->priv_data;
    int ret;
    uint32_t size;
    uint8_t buf[DXA_EXTRA_SIZE], pal[768+4];
    int pal_size = 0;

    if(!c->readvid && c->has_sound && c->bytes_left){
        c->readvid = 1;
        avio_seek(s->pb, c->wavpos, SEEK_SET);
        size = FFMIN(c->bytes_left, c->bpc);
        ret = av_get_packet(s->pb, pkt, size);
        pkt->stream_index = 1;
        if(ret != size)
            return AVERROR(EIO);
        c->bytes_left -= size;
        c->wavpos = avio_tell(s->pb);
        return 0;
    }
    avio_seek(s->pb, c->vidpos, SEEK_SET);
    while(!avio_feof(s->pb) && c->frames){
        if ((ret = avio_read(s->pb, buf, 4)) != 4) {
            av_log(s, AV_LOG_ERROR, "failed reading chunk type\n");
            return ret < 0 ? ret : AVERROR_INVALIDDATA;
        }
        switch(AV_RL32(buf)){
        case MKTAG('N', 'U', 'L', 'L'):
            if(av_new_packet(pkt, 4 + pal_size) < 0)
                return AVERROR(ENOMEM);
            pkt->stream_index = 0;
            if(pal_size) memcpy(pkt->data, pal, pal_size);
            memcpy(pkt->data + pal_size, buf, 4);
            c->frames--;
            c->vidpos = avio_tell(s->pb);
            c->readvid = 0;
            return 0;
        case MKTAG('C', 'M', 'A', 'P'):
            pal_size = 768+4;
            memcpy(pal, buf, 4);
            avio_read(s->pb, pal + 4, 768);
            break;
        case MKTAG('F', 'R', 'A', 'M'):
            if ((ret = avio_read(s->pb, buf + 4, DXA_EXTRA_SIZE - 4)) != DXA_EXTRA_SIZE - 4) {
                av_log(s, AV_LOG_ERROR, "failed reading dxa_extra\n");
                return ret < 0 ? ret : AVERROR_INVALIDDATA;
            }
            size = AV_RB32(buf + 5);
            if(size > 0xFFFFFF){
                av_log(s, AV_LOG_ERROR, "Frame size is too big: %"PRIu32"\n",
                       size);
                return AVERROR_INVALIDDATA;
            }
            if(av_new_packet(pkt, size + DXA_EXTRA_SIZE + pal_size) < 0)
                return AVERROR(ENOMEM);
            memcpy(pkt->data + pal_size, buf, DXA_EXTRA_SIZE);
            ret = avio_read(s->pb, pkt->data + DXA_EXTRA_SIZE + pal_size, size);
            if(ret != size){
                av_free_packet(pkt);
                return AVERROR(EIO);
            }
            if(pal_size) memcpy(pkt->data, pal, pal_size);
            pkt->stream_index = 0;
            c->frames--;
            c->vidpos = avio_tell(s->pb);
            c->readvid = 0;
            return 0;
        default:
            av_log(s, AV_LOG_ERROR, "Unknown tag %c%c%c%c\n", buf[0], buf[1], buf[2], buf[3]);
            return AVERROR_INVALIDDATA;
        }
    }
    return AVERROR_EOF;
}

AVInputFormat ff_dxa_demuxer = {
    .name           = "dxa",
    .long_name      = NULL_IF_CONFIG_SMALL("DXA"),
    .priv_data_size = sizeof(DXAContext),
    .read_probe     = dxa_probe,
    .read_header    = dxa_read_header,
    .read_packet    = dxa_read_packet,
};
Commit	Line	Data
2ba45a60 DM	1	/*
	2	* DXA demuxer
	3	* Copyright (c) 2007 Konstantin Shishkov
	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 <inttypes.h>
	23
	24	#include "libavutil/intreadwrite.h"
	25	#include "avformat.h"
	26	#include "internal.h"
	27	#include "riff.h"
	28
	29	#define DXA_EXTRA_SIZE 9
	30
	31	typedef struct{
	32	int frames;
	33	int has_sound;
	34	int bpc;
	35	uint32_t bytes_left;
	36	int64_t wavpos, vidpos;
	37	int readvid;
	38	}DXAContext;
	39
	40	static int dxa_probe(AVProbeData *p)
	41	{
	42	int w, h;
	43	if (p->buf_size < 15)
	44	return 0;
	45	w = AV_RB16(p->buf + 11);
	46	h = AV_RB16(p->buf + 13);
	47	/* check file header */
	48	if (p->buf[0] == 'D' && p->buf[1] == 'E' &&
	49	p->buf[2] == 'X' && p->buf[3] == 'A' &&
	50	w && w <= 2048 && h && h <= 2048)
	51	return AVPROBE_SCORE_MAX;
	52	else
	53	return 0;
	54	}
	55
	56	static int dxa_read_header(AVFormatContext *s)
	57	{
	58	AVIOContext *pb = s->pb;
	59	DXAContext *c = s->priv_data;
	60	AVStream st, ast;
	61	uint32_t tag;
	62	int32_t fps;
	63	int w, h;
	64	int num, den;
65	int flags;
66	int ret;
67
68	tag = avio_rl32(pb);
69	if (tag != MKTAG('D', 'E', 'X', 'A'))
70	return AVERROR_INVALIDDATA;
71	flags = avio_r8(pb);
72	c->frames = avio_rb16(pb);
73	if(!c->frames){
74	av_log(s, AV_LOG_ERROR, "File contains no frames ???\n");
75	return AVERROR_INVALIDDATA;
76	}
77
78	fps = avio_rb32(pb);
79	if(fps > 0){
80	den = 1000;
81	num = fps;
82	}else if (fps < 0){
83	den = 100000;
84	num = -fps;
85	}else{
86	den = 10;
87	num = 1;
88	}
89	w = avio_rb16(pb);
90	h = avio_rb16(pb);
91	c->has_sound = 0;
92
93	st = avformat_new_stream(s, NULL);
94	if (!st)
95	return AVERROR(ENOMEM);
96
97	// Parse WAV data header
98	if(avio_rl32(pb) == MKTAG('W', 'A', 'V', 'E')){
99	uint32_t size, fsize;
100	c->has_sound = 1;
101	size = avio_rb32(pb);
102	c->vidpos = avio_tell(pb) + size;
103	avio_skip(pb, 16);
104	fsize = avio_rl32(pb);
105
106	ast = avformat_new_stream(s, NULL);
107	if (!ast)
108	return AVERROR(ENOMEM);
109	ret = ff_get_wav_header(pb, ast->codec, fsize);
110	if (ret < 0)
111	return ret;
112	if (ast->codec->sample_rate > 0)
113	avpriv_set_pts_info(ast, 64, 1, ast->codec->sample_rate);
114	// find 'data' chunk
115	while(avio_tell(pb) < c->vidpos && !avio_feof(pb)){
116	tag = avio_rl32(pb);
117	fsize = avio_rl32(pb);
118	if(tag == MKTAG('d', 'a', 't', 'a')) break;
119	avio_skip(pb, fsize);
120	}
121	c->bpc = (fsize + c->frames - 1) / c->frames;
122	if(ast->codec->block_align)
123	c->bpc = ((c->bpc + ast->codec->block_align - 1) / ast->codec->block_align) * ast->codec->block_align;
124	c->bytes_left = fsize;
125	c->wavpos = avio_tell(pb);
126	avio_seek(pb, c->vidpos, SEEK_SET);
127	}
128
129	/* now we are ready: build format streams */
130	st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
131	st->codec->codec_id = AV_CODEC_ID_DXA;
132	st->codec->width = w;
133	st->codec->height = h;
134	av_reduce(&den, &num, den, num, (1UL<<31)-1);
135	avpriv_set_pts_info(st, 33, num, den);
136	/* flags & 0x80 means that image is interlaced,
137	* flags & 0x40 means that image has double height
138	* either way set true height
139	*/
140	if(flags & 0xC0){
141	st->codec->height >>= 1;
142	}
143	c->readvid = !c->has_sound;
144	c->vidpos = avio_tell(pb);
145	s->start_time = 0;
146	s->duration = (int64_t)c->frames * AV_TIME_BASE * num / den;
147	av_log(s, AV_LOG_DEBUG, "%d frame(s)\n",c->frames);
148
149	return 0;
150	}
151
152	static int dxa_read_packet(AVFormatContext s, AVPacket pkt)
153	{
154	DXAContext *c = s->priv_data;
155	int ret;
156	uint32_t size;
157	uint8_t buf[DXA_EXTRA_SIZE], pal[768+4];
158	int pal_size = 0;
159
160	if(!c->readvid && c->has_sound && c->bytes_left){
161	c->readvid = 1;
162	avio_seek(s->pb, c->wavpos, SEEK_SET);
163	size = FFMIN(c->bytes_left, c->bpc);
164	ret = av_get_packet(s->pb, pkt, size);
165	pkt->stream_index = 1;
166	if(ret != size)
167	return AVERROR(EIO);
168	c->bytes_left -= size;
169	c->wavpos = avio_tell(s->pb);
170	return 0;
171	}
172	avio_seek(s->pb, c->vidpos, SEEK_SET);
173	while(!avio_feof(s->pb) && c->frames){
174	if ((ret = avio_read(s->pb, buf, 4)) != 4) {
175	av_log(s, AV_LOG_ERROR, "failed reading chunk type\n");
176	return ret < 0 ? ret : AVERROR_INVALIDDATA;
177	}
178	switch(AV_RL32(buf)){
179	case MKTAG('N', 'U', 'L', 'L'):
180	if(av_new_packet(pkt, 4 + pal_size) < 0)
181	return AVERROR(ENOMEM);
182	pkt->stream_index = 0;
183	if(pal_size) memcpy(pkt->data, pal, pal_size);
184	memcpy(pkt->data + pal_size, buf, 4);
185	c->frames--;
186	c->vidpos = avio_tell(s->pb);
187	c->readvid = 0;
188	return 0;
189	case MKTAG('C', 'M', 'A', 'P'):
190	pal_size = 768+4;
191	memcpy(pal, buf, 4);
192	avio_read(s->pb, pal + 4, 768);
193	break;
194	case MKTAG('F', 'R', 'A', 'M'):
195	if ((ret = avio_read(s->pb, buf + 4, DXA_EXTRA_SIZE - 4)) != DXA_EXTRA_SIZE - 4) {
196	av_log(s, AV_LOG_ERROR, "failed reading dxa_extra\n");
197	return ret < 0 ? ret : AVERROR_INVALIDDATA;
198	}
199	size = AV_RB32(buf + 5);
200	if(size > 0xFFFFFF){
201	av_log(s, AV_LOG_ERROR, "Frame size is too big: %"PRIu32"\n",
202	size);
203	return AVERROR_INVALIDDATA;
204	}
205	if(av_new_packet(pkt, size + DXA_EXTRA_SIZE + pal_size) < 0)
206	return AVERROR(ENOMEM);
207	memcpy(pkt->data + pal_size, buf, DXA_EXTRA_SIZE);
208	ret = avio_read(s->pb, pkt->data + DXA_EXTRA_SIZE + pal_size, size);
209	if(ret != size){
210	av_free_packet(pkt);
211	return AVERROR(EIO);
212	}
213	if(pal_size) memcpy(pkt->data, pal, pal_size);
214	pkt->stream_index = 0;
215	c->frames--;
216	c->vidpos = avio_tell(s->pb);
217	c->readvid = 0;
218	return 0;
219	default:
220	av_log(s, AV_LOG_ERROR, "Unknown tag %c%c%c%c\n", buf[0], buf[1], buf[2], buf[3]);
221	return AVERROR_INVALIDDATA;
222	}
223	}
224	return AVERROR_EOF;
225	}
226
227	AVInputFormat ff_dxa_demuxer = {
228	.name = "dxa",
229	.long_name = NULL_IF_CONFIG_SMALL("DXA"),
230	.priv_data_size = sizeof(DXAContext),
231	.read_probe = dxa_probe,
232	.read_header = dxa_read_header,
233	.read_packet = dxa_read_packet,
234	};