yading@11: /*
yading@11:  * DXA demuxer
yading@11:  * Copyright (c) 2007 Konstantin Shishkov
yading@11:  *
yading@11:  * This file is part of FFmpeg.
yading@11:  *
yading@11:  * FFmpeg is free software; you can redistribute it and/or
yading@11:  * modify it under the terms of the GNU Lesser General Public
yading@11:  * License as published by the Free Software Foundation; either
yading@11:  * version 2.1 of the License, or (at your option) any later version.
yading@11:  *
yading@11:  * FFmpeg is distributed in the hope that it will be useful,
yading@11:  * but WITHOUT ANY WARRANTY; without even the implied warranty of
yading@11:  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
yading@11:  * Lesser General Public License for more details.
yading@11:  *
yading@11:  * You should have received a copy of the GNU Lesser General Public
yading@11:  * License along with FFmpeg; if not, write to the Free Software
yading@11:  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
yading@11:  */
yading@11: 
yading@11: #include "libavutil/intreadwrite.h"
yading@11: #include "avformat.h"
yading@11: #include "internal.h"
yading@11: #include "riff.h"
yading@11: 
yading@11: #define DXA_EXTRA_SIZE  9
yading@11: 
yading@11: typedef struct{
yading@11:     int frames;
yading@11:     int has_sound;
yading@11:     int bpc;
yading@11:     uint32_t bytes_left;
yading@11:     int64_t wavpos, vidpos;
yading@11:     int readvid;
yading@11: }DXAContext;
yading@11: 
yading@11: static int dxa_probe(AVProbeData *p)
yading@11: {
yading@11:     int w, h;
yading@11:     if (p->buf_size < 15)
yading@11:         return 0;
yading@11:     w = AV_RB16(p->buf + 11);
yading@11:     h = AV_RB16(p->buf + 13);
yading@11:     /* check file header */
yading@11:     if (p->buf[0] == 'D' && p->buf[1] == 'E' &&
yading@11:         p->buf[2] == 'X' && p->buf[3] == 'A' &&
yading@11:         w && w <= 2048 && h && h <= 2048)
yading@11:         return AVPROBE_SCORE_MAX;
yading@11:     else
yading@11:         return 0;
yading@11: }
yading@11: 
yading@11: static int dxa_read_header(AVFormatContext *s)
yading@11: {
yading@11:     AVIOContext *pb = s->pb;
yading@11:     DXAContext *c = s->priv_data;
yading@11:     AVStream *st, *ast;
yading@11:     uint32_t tag;
yading@11:     int32_t fps;
yading@11:     int w, h;
yading@11:     int num, den;
yading@11:     int flags;
yading@11:     int ret;
yading@11: 
yading@11:     tag = avio_rl32(pb);
yading@11:     if (tag != MKTAG('D', 'E', 'X', 'A'))
yading@11:         return AVERROR_INVALIDDATA;
yading@11:     flags = avio_r8(pb);
yading@11:     c->frames = avio_rb16(pb);
yading@11:     if(!c->frames){
yading@11:         av_log(s, AV_LOG_ERROR, "File contains no frames ???\n");
yading@11:         return AVERROR_INVALIDDATA;
yading@11:     }
yading@11: 
yading@11:     fps = avio_rb32(pb);
yading@11:     if(fps > 0){
yading@11:         den = 1000;
yading@11:         num = fps;
yading@11:     }else if (fps < 0){
yading@11:         den = 100000;
yading@11:         num = -fps;
yading@11:     }else{
yading@11:         den = 10;
yading@11:         num = 1;
yading@11:     }
yading@11:     w = avio_rb16(pb);
yading@11:     h = avio_rb16(pb);
yading@11:     c->has_sound = 0;
yading@11: 
yading@11:     st = avformat_new_stream(s, NULL);
yading@11:     if (!st)
yading@11:         return AVERROR(ENOMEM);
yading@11: 
yading@11:     // Parse WAV data header
yading@11:     if(avio_rl32(pb) == MKTAG('W', 'A', 'V', 'E')){
yading@11:         uint32_t size, fsize;
yading@11:         c->has_sound = 1;
yading@11:         size = avio_rb32(pb);
yading@11:         c->vidpos = avio_tell(pb) + size;
yading@11:         avio_skip(pb, 16);
yading@11:         fsize = avio_rl32(pb);
yading@11: 
yading@11:         ast = avformat_new_stream(s, NULL);
yading@11:         if (!ast)
yading@11:             return AVERROR(ENOMEM);
yading@11:         ret = ff_get_wav_header(pb, ast->codec, fsize);
yading@11:         if (ret < 0)
yading@11:             return ret;
yading@11:         if (ast->codec->sample_rate > 0)
yading@11:             avpriv_set_pts_info(ast, 64, 1, ast->codec->sample_rate);
yading@11:         // find 'data' chunk
yading@11:         while(avio_tell(pb) < c->vidpos && !url_feof(pb)){
yading@11:             tag = avio_rl32(pb);
yading@11:             fsize = avio_rl32(pb);
yading@11:             if(tag == MKTAG('d', 'a', 't', 'a')) break;
yading@11:             avio_skip(pb, fsize);
yading@11:         }
yading@11:         c->bpc = (fsize + c->frames - 1) / c->frames;
yading@11:         if(ast->codec->block_align)
yading@11:             c->bpc = ((c->bpc + ast->codec->block_align - 1) / ast->codec->block_align) * ast->codec->block_align;
yading@11:         c->bytes_left = fsize;
yading@11:         c->wavpos = avio_tell(pb);
yading@11:         avio_seek(pb, c->vidpos, SEEK_SET);
yading@11:     }
yading@11: 
yading@11:     /* now we are ready: build format streams */
yading@11:     st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
yading@11:     st->codec->codec_id   = AV_CODEC_ID_DXA;
yading@11:     st->codec->width      = w;
yading@11:     st->codec->height     = h;
yading@11:     av_reduce(&den, &num, den, num, (1UL<<31)-1);
yading@11:     avpriv_set_pts_info(st, 33, num, den);
yading@11:     /* flags & 0x80 means that image is interlaced,
yading@11:      * flags & 0x40 means that image has double height
yading@11:      * either way set true height
yading@11:      */
yading@11:     if(flags & 0xC0){
yading@11:         st->codec->height >>= 1;
yading@11:     }
yading@11:     c->readvid = !c->has_sound;
yading@11:     c->vidpos  = avio_tell(pb);
yading@11:     s->start_time = 0;
yading@11:     s->duration = (int64_t)c->frames * AV_TIME_BASE * num / den;
yading@11:     av_log(s, AV_LOG_DEBUG, "%d frame(s)\n",c->frames);
yading@11: 
yading@11:     return 0;
yading@11: }
yading@11: 
yading@11: static int dxa_read_packet(AVFormatContext *s, AVPacket *pkt)
yading@11: {
yading@11:     DXAContext *c = s->priv_data;
yading@11:     int ret;
yading@11:     uint32_t size;
yading@11:     uint8_t buf[DXA_EXTRA_SIZE], pal[768+4];
yading@11:     int pal_size = 0;
yading@11: 
yading@11:     if(!c->readvid && c->has_sound && c->bytes_left){
yading@11:         c->readvid = 1;
yading@11:         avio_seek(s->pb, c->wavpos, SEEK_SET);
yading@11:         size = FFMIN(c->bytes_left, c->bpc);
yading@11:         ret = av_get_packet(s->pb, pkt, size);
yading@11:         pkt->stream_index = 1;
yading@11:         if(ret != size)
yading@11:             return AVERROR(EIO);
yading@11:         c->bytes_left -= size;
yading@11:         c->wavpos = avio_tell(s->pb);
yading@11:         return 0;
yading@11:     }
yading@11:     avio_seek(s->pb, c->vidpos, SEEK_SET);
yading@11:     while(!url_feof(s->pb) && c->frames){
yading@11:         avio_read(s->pb, buf, 4);
yading@11:         switch(AV_RL32(buf)){
yading@11:         case MKTAG('N', 'U', 'L', 'L'):
yading@11:             if(av_new_packet(pkt, 4 + pal_size) < 0)
yading@11:                 return AVERROR(ENOMEM);
yading@11:             pkt->stream_index = 0;
yading@11:             if(pal_size) memcpy(pkt->data, pal, pal_size);
yading@11:             memcpy(pkt->data + pal_size, buf, 4);
yading@11:             c->frames--;
yading@11:             c->vidpos = avio_tell(s->pb);
yading@11:             c->readvid = 0;
yading@11:             return 0;
yading@11:         case MKTAG('C', 'M', 'A', 'P'):
yading@11:             pal_size = 768+4;
yading@11:             memcpy(pal, buf, 4);
yading@11:             avio_read(s->pb, pal + 4, 768);
yading@11:             break;
yading@11:         case MKTAG('F', 'R', 'A', 'M'):
yading@11:             avio_read(s->pb, buf + 4, DXA_EXTRA_SIZE - 4);
yading@11:             size = AV_RB32(buf + 5);
yading@11:             if(size > 0xFFFFFF){
yading@11:                 av_log(s, AV_LOG_ERROR, "Frame size is too big: %d\n", size);
yading@11:                 return AVERROR_INVALIDDATA;
yading@11:             }
yading@11:             if(av_new_packet(pkt, size + DXA_EXTRA_SIZE + pal_size) < 0)
yading@11:                 return AVERROR(ENOMEM);
yading@11:             memcpy(pkt->data + pal_size, buf, DXA_EXTRA_SIZE);
yading@11:             ret = avio_read(s->pb, pkt->data + DXA_EXTRA_SIZE + pal_size, size);
yading@11:             if(ret != size){
yading@11:                 av_free_packet(pkt);
yading@11:                 return AVERROR(EIO);
yading@11:             }
yading@11:             if(pal_size) memcpy(pkt->data, pal, pal_size);
yading@11:             pkt->stream_index = 0;
yading@11:             c->frames--;
yading@11:             c->vidpos = avio_tell(s->pb);
yading@11:             c->readvid = 0;
yading@11:             return 0;
yading@11:         default:
yading@11:             av_log(s, AV_LOG_ERROR, "Unknown tag %c%c%c%c\n", buf[0], buf[1], buf[2], buf[3]);
yading@11:             return AVERROR_INVALIDDATA;
yading@11:         }
yading@11:     }
yading@11:     return AVERROR_EOF;
yading@11: }
yading@11: 
yading@11: AVInputFormat ff_dxa_demuxer = {
yading@11:     .name           = "dxa",
yading@11:     .long_name      = NULL_IF_CONFIG_SMALL("DXA"),
yading@11:     .priv_data_size = sizeof(DXAContext),
yading@11:     .read_probe     = dxa_probe,
yading@11:     .read_header    = dxa_read_header,
yading@11:     .read_packet    = dxa_read_packet,
yading@11: };