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
31typedef 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
40static 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
56static 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 && !url_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
152static 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(!url_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
227AVInputFormat 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};
235