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