fix probe, patch by Andreas Oman, andreas at olebyn dot nu
[ffmpeg.git] / libavformat / tiertexseq.c
1 /*
2  * Tiertex Limited SEQ File Demuxer
3  * Copyright (c) 2006 Gregory Montoir (cyx@users.sourceforge.net)
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  * @file tiertexseq.c
24  * Tiertex Limited SEQ file demuxer
25  */
26
27 #include "avformat.h"
28
29 #define SEQ_FRAME_SIZE         6144
30 #define SEQ_FRAME_W            256
31 #define SEQ_FRAME_H            128
32 #define SEQ_NUM_FRAME_BUFFERS  30
33 #define SEQ_AUDIO_BUFFER_SIZE  882
34 #define SEQ_SAMPLE_RATE        22050
35 #define SEQ_FRAME_RATE         25
36
37
38 typedef struct TiertexSeqFrameBuffer {
39     int fill_size;
40     int data_size;
41     unsigned char *data;
42 } TiertexSeqFrameBuffer;
43
44 typedef struct SeqDemuxContext {
45     int audio_stream_index;
46     int video_stream_index;
47     int current_frame_pts;
48     int current_frame_offs;
49     TiertexSeqFrameBuffer frame_buffers[SEQ_NUM_FRAME_BUFFERS];
50     int frame_buffers_count;
51     unsigned int current_audio_data_size;
52     unsigned int current_audio_data_offs;
53     unsigned int current_pal_data_size;
54     unsigned int current_pal_data_offs;
55     unsigned int current_video_data_size;
56     unsigned char *current_video_data_ptr;
57     int audio_buffer_full;
58 } SeqDemuxContext;
59
60
61 static int seq_probe(AVProbeData *p)
62 {
63     int i;
64
65     if (p->buf_size < 256)
66         return 0;
67
68     /* there's no real header in a .seq file, the only thing they have in common */
69     /* is the first 256 bytes of the file which are always filled with 0 */
70     for (i = 0; i < 256; i++)
71         if (p->buf[i] != 0)
72             return 0;
73
74     /* only one fourth of the score since the previous check is too naive */
75     return AVPROBE_SCORE_MAX / 4;
76 }
77
78 static int seq_init_frame_buffers(SeqDemuxContext *seq, ByteIOContext *pb)
79 {
80     int i, sz;
81     TiertexSeqFrameBuffer *seq_buffer;
82
83     url_fseek(pb, 256, SEEK_SET);
84
85     for (i = 0; i < SEQ_NUM_FRAME_BUFFERS; i++) {
86         sz = get_le16(pb);
87         if (sz == 0)
88             break;
89         else {
90             seq_buffer = &seq->frame_buffers[i];
91             seq_buffer->fill_size = 0;
92             seq_buffer->data_size = sz;
93             seq_buffer->data = av_malloc(sz);
94             if (!seq_buffer->data)
95                 return AVERROR_NOMEM;
96         }
97     }
98     seq->frame_buffers_count = i;
99     return 0;
100 }
101
102 static int seq_fill_buffer(SeqDemuxContext *seq, ByteIOContext *pb, int buffer_num, unsigned int data_offs, int data_size)
103 {
104     TiertexSeqFrameBuffer *seq_buffer;
105
106     if (buffer_num >= SEQ_NUM_FRAME_BUFFERS)
107         return AVERROR_INVALIDDATA;
108
109     seq_buffer = &seq->frame_buffers[buffer_num];
110     if (seq_buffer->fill_size + data_size > seq_buffer->data_size)
111         return AVERROR_INVALIDDATA;
112
113     url_fseek(pb, seq->current_frame_offs + data_offs, SEEK_SET);
114     if (get_buffer(pb, seq_buffer->data + seq_buffer->fill_size, data_size) != data_size)
115         return AVERROR_IO;
116
117     seq_buffer->fill_size += data_size;
118     return 0;
119 }
120
121 static int seq_parse_frame_data(SeqDemuxContext *seq, ByteIOContext *pb)
122 {
123     unsigned int offset_table[4], buffer_num[4];
124     TiertexSeqFrameBuffer *seq_buffer;
125     int i, e;
126
127     seq->current_frame_offs += SEQ_FRAME_SIZE;
128     url_fseek(pb, seq->current_frame_offs, SEEK_SET);
129
130     /* sound data */
131     seq->current_audio_data_offs = get_le16(pb);
132     if (seq->current_audio_data_offs != 0) {
133         seq->current_audio_data_size = SEQ_AUDIO_BUFFER_SIZE * 2;
134     } else {
135         seq->current_audio_data_size = 0;
136     }
137
138     /* palette data */
139     seq->current_pal_data_offs = get_le16(pb);
140     if (seq->current_pal_data_offs != 0) {
141         seq->current_pal_data_size = 768;
142     } else {
143         seq->current_pal_data_size = 0;
144     }
145
146     /* video data */
147     for (i = 0; i < 4; i++)
148         buffer_num[i] = get_byte(pb);
149
150     for (i = 0; i < 4; i++)
151         offset_table[i] = get_le16(pb);
152
153     for (i = 0; i < 3; i++) {
154         if (offset_table[i] != 0) {
155             for (e = i + 1; e < 4 && offset_table[e] == 0; e++);
156             seq_fill_buffer(seq, pb, buffer_num[1 + i],
157               offset_table[i],
158               offset_table[e] - offset_table[i]);
159         }
160     }
161
162     if (buffer_num[0] != 255) {
163         seq_buffer = &seq->frame_buffers[buffer_num[0]];
164         seq->current_video_data_size = seq_buffer->fill_size;
165         seq->current_video_data_ptr  = seq_buffer->data;
166         seq_buffer->fill_size = 0;
167     } else {
168         seq->current_video_data_size = 0;
169         seq->current_video_data_ptr  = 0;
170     }
171
172     return 0;
173 }
174
175 static int seq_read_header(AVFormatContext *s, AVFormatParameters *ap)
176 {
177     int i, rc;
178     SeqDemuxContext *seq = (SeqDemuxContext *)s->priv_data;
179     ByteIOContext *pb = &s->pb;
180     AVStream *st;
181
182     /* init internal buffers */
183     rc = seq_init_frame_buffers(seq, pb);
184     if (rc)
185         return rc;
186
187     seq->current_frame_offs = 0;
188
189     /* preload (no audio data, just buffer operations related data) */
190     for (i = 1; i <= 100; i++) {
191         rc = seq_parse_frame_data(seq, pb);
192         if (rc)
193             return rc;
194     }
195
196     seq->current_frame_pts = 0;
197
198     seq->audio_buffer_full = 0;
199
200     /* initialize the video decoder stream */
201     st = av_new_stream(s, 0);
202     if (!st)
203         return AVERROR_NOMEM;
204
205     av_set_pts_info(st, 32, 1, SEQ_FRAME_RATE);
206     seq->video_stream_index = st->index;
207     st->codec->codec_type = CODEC_TYPE_VIDEO;
208     st->codec->codec_id = CODEC_ID_TIERTEXSEQVIDEO;
209     st->codec->codec_tag = 0;  /* no fourcc */
210     st->codec->width = SEQ_FRAME_W;
211     st->codec->height = SEQ_FRAME_H;
212
213     /* initialize the audio decoder stream */
214     st = av_new_stream(s, 0);
215     if (!st)
216         return AVERROR_NOMEM;
217
218     av_set_pts_info(st, 32, 1, SEQ_SAMPLE_RATE);
219     seq->audio_stream_index = st->index;
220     st->codec->codec_type = CODEC_TYPE_AUDIO;
221     st->codec->codec_id = CODEC_ID_PCM_S16BE;
222     st->codec->codec_tag = 0;  /* no tag */
223     st->codec->channels = 1;
224     st->codec->sample_rate = SEQ_SAMPLE_RATE;
225     st->codec->bits_per_sample = 16;
226     st->codec->bit_rate = st->codec->sample_rate * st->codec->bits_per_sample * st->codec->channels;
227     st->codec->block_align = st->codec->channels * st->codec->bits_per_sample;
228
229     return 0;
230 }
231
232 static int seq_read_packet(AVFormatContext *s, AVPacket *pkt)
233 {
234     int rc;
235     SeqDemuxContext *seq = (SeqDemuxContext *)s->priv_data;
236     ByteIOContext *pb = &s->pb;
237
238     if (!seq->audio_buffer_full) {
239         rc = seq_parse_frame_data(seq, pb);
240         if (rc)
241             return rc;
242
243         /* video packet */
244         if (seq->current_pal_data_size + seq->current_video_data_size != 0) {
245             if (av_new_packet(pkt, 1 + seq->current_pal_data_size + seq->current_video_data_size))
246                 return AVERROR_NOMEM;
247
248             pkt->data[0] = 0;
249             if (seq->current_pal_data_size != 0) {
250                 pkt->data[0] |= 1;
251                 url_fseek(pb, seq->current_frame_offs + seq->current_pal_data_offs, SEEK_SET);
252                 if (get_buffer(pb, &pkt->data[1], seq->current_pal_data_size) != seq->current_pal_data_size)
253                     return AVERROR_IO;
254             }
255             if (seq->current_video_data_size != 0) {
256                 pkt->data[0] |= 2;
257                 memcpy(&pkt->data[1 + seq->current_pal_data_size],
258                   seq->current_video_data_ptr,
259                   seq->current_video_data_size);
260             }
261             pkt->stream_index = seq->video_stream_index;
262             pkt->pts = seq->current_frame_pts;
263
264             /* sound buffer will be processed on next read_packet() call */
265             seq->audio_buffer_full = 1;
266             return 0;
267        }
268     }
269
270     /* audio packet */
271     if (seq->current_audio_data_offs == 0) /* end of data reached */
272         return AVERROR_IO;
273
274     url_fseek(pb, seq->current_frame_offs + seq->current_audio_data_offs, SEEK_SET);
275     rc = av_get_packet(pb, pkt, seq->current_audio_data_size);
276     if (rc < 0)
277         return rc;
278
279     pkt->stream_index = seq->audio_stream_index;
280     pkt->pts = seq->current_frame_pts++;
281
282     seq->audio_buffer_full = 0;
283     return 0;
284 }
285
286 static int seq_read_close(AVFormatContext *s)
287 {
288     int i;
289     SeqDemuxContext *seq = (SeqDemuxContext *)s->priv_data;
290
291     for (i = 0; i < SEQ_NUM_FRAME_BUFFERS; i++)
292         av_free(seq->frame_buffers[i].data);
293
294     return 0;
295 }
296
297 AVInputFormat tiertexseq_demuxer = {
298     "tiertexseq",
299     "Tiertex Limited SEQ format",
300     sizeof(SeqDemuxContext),
301     seq_probe,
302     seq_read_header,
303     seq_read_packet,
304     seq_read_close,
305 };