ff_end_tag: assert that the start is aligned.
[ffmpeg.git] / libavformat / mvdec.c
1 /*
2  * Silicon Graphics Movie demuxer
3  * Copyright (c) 2012 Peter Ross
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
24  * Silicon Graphics Movie demuxer
25  */
26
27 #include "libavutil/eval.h"
28 #include "libavutil/intreadwrite.h"
29 #include "libavutil/rational.h"
30 #include "avformat.h"
31 #include "internal.h"
32
33 typedef struct {
34     int nb_video_tracks;
35     int nb_audio_tracks;
36
37     int eof_count;        /**< number of streams that have finished */
38     int stream_index;     /**< current stream index */
39     int frame[2];         /**< frame nb for current stream */
40 } MvContext;
41
42 #define AUDIO_FORMAT_SIGNED 401
43
44 static int mv_probe(AVProbeData *p)
45 {
46     if (AV_RB32(p->buf) == MKBETAG('M','O','V','I') && AV_RB16(p->buf + 4) < 3)
47         return AVPROBE_SCORE_MAX;
48     return 0;
49 }
50
51 static char * var_read_string(AVIOContext *pb, int size)
52 {
53     char *str = av_malloc(size + 1);
54     int n;
55     if (!str)
56         return NULL;
57     n = avio_get_str(pb, size, str, size + 1);
58     if (n < size)
59          avio_skip(pb, size - n);
60     return str;
61 }
62
63 static int var_read_int(AVIOContext *pb, int size)
64 {
65     int v;
66     char * s = var_read_string(pb, size);
67     if (!s || sscanf(s, "%d", &v) != 1)
68         v = 0;
69     av_free(s);
70     return v;
71 }
72
73 static AVRational var_read_float(AVIOContext *pb, int size)
74 {
75     AVRational v;
76     char * s = var_read_string(pb, size);
77     if (!s)
78         return (AVRational){0, 0};
79     v = av_d2q(av_strtod(s, NULL), INT_MAX);
80     av_free(s);
81     return v;
82 }
83
84 static void var_read_metadata(AVFormatContext *avctx, const char *tag, int size)
85 {
86     char *value = var_read_string(avctx->pb, size);
87     if (value)
88         av_dict_set(&avctx->metadata, tag, value, AV_DICT_DONT_STRDUP_VAL);
89 }
90
91 static int set_channels(AVFormatContext *avctx, AVStream *st, int channels) {
92     if (channels <= 0) {
93         av_log(avctx, AV_LOG_ERROR, "Channel count %d invalid\n", channels);
94         return AVERROR_INVALIDDATA;
95     }
96     st->codec->channels = channels;
97     st->codec->channel_layout = (st->codec->channels == 1) ? AV_CH_LAYOUT_MONO : AV_CH_LAYOUT_STEREO;
98     return 0;
99 }
100
101 /**
102  * Parse global variable
103  * @return < 0 if unknown
104  */
105 static int parse_global_var(AVFormatContext *avctx, AVStream *st, const char *name, int size)
106 {
107     MvContext *mv = avctx->priv_data;
108     AVIOContext *pb = avctx->pb;
109     if (!strcmp(name, "__NUM_I_TRACKS")) {
110         mv->nb_video_tracks = var_read_int(pb, size);
111     } else if (!strcmp(name, "__NUM_A_TRACKS")) {
112         mv->nb_audio_tracks = var_read_int(pb, size);
113     } else if (!strcmp(name, "COMMENT") || !strcmp(name, "TITLE")) {
114         var_read_metadata(avctx, name, size);
115     } else if (!strcmp(name, "LOOP_MODE") || !strcmp(name, "NUM_LOOPS") || !strcmp(name, "OPTIMIZED")) {
116         avio_skip(pb, size); // ignore
117     } else
118         return -1;
119
120     return 0;
121 }
122
123 /**
124  * Parse audio variable
125  * @return < 0 if unknown
126  */
127 static int parse_audio_var(AVFormatContext *avctx, AVStream *st, const char *name, int size)
128 {
129     AVIOContext *pb = avctx->pb;
130     if (!strcmp(name, "__DIR_COUNT")) {
131         st->nb_frames = var_read_int(pb, size);
132     } else if (!strcmp(name, "AUDIO_FORMAT")) {
133         st->codec->codec_id = var_read_int(pb, size);
134     } else if (!strcmp(name, "COMPRESSION")) {
135         st->codec->codec_tag = var_read_int(pb, size);
136     } else if (!strcmp(name, "DEFAULT_VOL")) {
137         var_read_metadata(avctx, name, size);
138     } else if (!strcmp(name, "NUM_CHANNELS")) {
139         return set_channels(avctx, st, var_read_int(pb, size));
140     } else if (!strcmp(name, "SAMPLE_RATE")) {
141         st->codec->sample_rate = var_read_int(pb, size);
142         avpriv_set_pts_info(st, 33, 1, st->codec->sample_rate);
143     } else if (!strcmp(name, "SAMPLE_WIDTH")) {
144         st->codec->bits_per_coded_sample = var_read_int(pb, size) * 8;
145     } else
146         return -1;
147     return 0;
148 }
149
150 /**
151  * Parse video variable
152  * @return < 0 if unknown
153  */
154 static int parse_video_var(AVFormatContext *avctx, AVStream *st, const char *name, int size)
155 {
156     AVIOContext *pb = avctx->pb;
157     if (!strcmp(name, "__DIR_COUNT")) {
158         st->nb_frames = st->duration = var_read_int(pb, size);
159     } else if (!strcmp(name, "COMPRESSION")) {
160         char * str = var_read_string(pb, size);
161         if (!str)
162             return AVERROR_INVALIDDATA;
163         if (!strcmp(str, "1")) {
164             st->codec->codec_id = AV_CODEC_ID_MVC1;
165         } else if (!strcmp(str, "2")) {
166             st->codec->pix_fmt  = AV_PIX_FMT_ABGR;
167             st->codec->codec_id = AV_CODEC_ID_RAWVIDEO;
168         } else if (!strcmp(str, "3")) {
169             st->codec->codec_id = AV_CODEC_ID_SGIRLE;
170         } else if (!strcmp(str, "10")) {
171             st->codec->codec_id = AV_CODEC_ID_MJPEG;
172         } else if (!strcmp(str, "MVC2")) {
173             st->codec->codec_id = AV_CODEC_ID_MVC2;
174         } else {
175             av_log_ask_for_sample(avctx, "unknown video compression %s\n", str);
176         }
177         av_free(str);
178     } else if (!strcmp(name, "FPS")) {
179         AVRational fps = var_read_float(pb, size);
180         avpriv_set_pts_info(st, 64, fps.den, fps.num);
181     } else if (!strcmp(name, "HEIGHT")) {
182         st->codec->height = var_read_int(pb, size);
183     } else if (!strcmp(name, "PIXEL_ASPECT")) {
184         st->sample_aspect_ratio = var_read_float(pb, size);
185         av_reduce(&st->sample_aspect_ratio.num, &st->sample_aspect_ratio.den,
186                   st->sample_aspect_ratio.num, st->sample_aspect_ratio.den, INT_MAX);
187     } else if (!strcmp(name, "WIDTH")) {
188         st->codec->width = var_read_int(pb, size);
189     } else if (!strcmp(name, "ORIENTATION")) {
190         if (var_read_int(pb, size) == 1101) {
191             st->codec->extradata       = av_strdup("BottomUp");
192             st->codec->extradata_size  = 9;
193         }
194     } else if (!strcmp(name, "Q_SPATIAL") || !strcmp(name, "Q_TEMPORAL")) {
195         var_read_metadata(avctx, name, size);
196     } else if (!strcmp(name, "INTERLACING") || !strcmp(name, "PACKING")) {
197         avio_skip(pb, size); // ignore
198     } else
199         return -1;
200     return 0;
201 }
202
203 static void read_table(AVFormatContext *avctx, AVStream *st, int (*parse)(AVFormatContext *avctx, AVStream *st, const char *name, int size))
204 {
205     int count, i;
206     AVIOContext *pb = avctx->pb;
207     avio_skip(pb, 4);
208     count = avio_rb32(pb);
209     avio_skip(pb, 4);
210     for (i = 0; i < count; i++) {
211         char name[17];
212         int size;
213         avio_read(pb, name, 16);
214         name[sizeof(name) - 1] = 0;
215         size = avio_rb32(pb);
216         if (parse(avctx, st, name, size) < 0) {
217             av_log_ask_for_sample(avctx, "unknown variable %s\n", name);
218             avio_skip(pb, size);
219         }
220     }
221 }
222
223 static void read_index(AVIOContext *pb, AVStream *st)
224 {
225     uint64_t timestamp = 0;
226     int i;
227     for (i = 0; i < st->nb_frames; i++) {
228         uint32_t pos  = avio_rb32(pb);
229         uint32_t size = avio_rb32(pb);
230         avio_skip(pb, 8);
231         av_add_index_entry(st, pos, timestamp, size, 0, AVINDEX_KEYFRAME);
232         if (st->codec->codec_type == AVMEDIA_TYPE_AUDIO) {
233             timestamp += size / (st->codec->channels * 2);
234         } else {
235             timestamp++;
236         }
237     }
238 }
239
240 static int mv_read_header(AVFormatContext *avctx)
241 {
242     MvContext *mv = avctx->priv_data;
243     AVIOContext *pb = avctx->pb;
244     AVStream *ast = NULL, *vst = NULL; //initialization to suppress warning
245     int version, i;
246
247     avio_skip(pb, 4);
248
249     version = avio_rb16(pb);
250     if (version == 2) {
251         uint64_t timestamp;
252         int v;
253         avio_skip(pb, 22);
254
255         /* allocate audio track first to prevent unnecessary seeking
256            (audio packet always precede video packet for a given frame) */
257         ast = avformat_new_stream(avctx, NULL);
258         if (!ast)
259             return AVERROR(ENOMEM);
260
261         vst = avformat_new_stream(avctx, NULL);
262         if (!vst)
263             return AVERROR(ENOMEM);
264         vst->codec->codec_type = AVMEDIA_TYPE_VIDEO;
265         avpriv_set_pts_info(vst, 64, 1, 15);
266         vst->nb_frames = avio_rb32(pb);
267         v = avio_rb32(pb);
268         switch (v) {
269         case 1:
270             vst->codec->codec_id = AV_CODEC_ID_MVC1;
271             break;
272         case 2:
273             vst->codec->pix_fmt  = AV_PIX_FMT_ARGB;
274             vst->codec->codec_id = AV_CODEC_ID_RAWVIDEO;
275             break;
276         default:
277             av_log_ask_for_sample(avctx, "unknown video compression %i\n", v);
278             break;
279         }
280         vst->codec->codec_tag = 0;
281         vst->codec->width     = avio_rb32(pb);
282         vst->codec->height    = avio_rb32(pb);
283         avio_skip(pb, 12);
284
285         ast->codec->codec_type     = AVMEDIA_TYPE_AUDIO;
286         ast->nb_frames             = vst->nb_frames;
287         ast->codec->sample_rate    = avio_rb32(pb);
288         avpriv_set_pts_info(ast, 33, 1, ast->codec->sample_rate);
289         if (set_channels(avctx, ast, avio_rb32(pb)) < 0)
290             return AVERROR_INVALIDDATA;
291
292         v = avio_rb32(pb);
293         if (v == AUDIO_FORMAT_SIGNED) {
294             ast->codec->codec_id = AV_CODEC_ID_PCM_S16BE;
295         } else {
296             av_log_ask_for_sample(avctx, "unknown audio compression (format %i)\n", v);
297         }
298
299         avio_skip(pb, 12);
300         var_read_metadata(avctx, "title", 0x80);
301         var_read_metadata(avctx, "comment", 0x100);
302         avio_skip(pb, 0x80);
303
304         timestamp = 0;
305         for (i = 0; i < vst->nb_frames; i++) {
306             uint32_t pos   = avio_rb32(pb);
307             uint32_t asize = avio_rb32(pb);
308             uint32_t vsize = avio_rb32(pb);
309             avio_skip(pb, 8);
310             av_add_index_entry(ast, pos,         timestamp, asize, 0, AVINDEX_KEYFRAME);
311             av_add_index_entry(vst, pos + asize, i,         vsize, 0, AVINDEX_KEYFRAME);
312             timestamp += asize / (ast->codec->channels * 2);
313         }
314     } else if (!version && avio_rb16(pb) == 3) {
315         avio_skip(pb, 4);
316
317         read_table(avctx, NULL, parse_global_var);
318
319         if (mv->nb_audio_tracks > 1) {
320             av_log_ask_for_sample(avctx, "multiple audio streams\n");
321             return AVERROR_PATCHWELCOME;
322         } else if (mv->nb_audio_tracks) {
323             ast = avformat_new_stream(avctx, NULL);
324             if (!ast)
325                 return AVERROR(ENOMEM);
326             ast->codec->codec_type = AVMEDIA_TYPE_AUDIO;
327             /* temporarily store compression value in codec_tag; format value in codec_id */
328             read_table(avctx, ast, parse_audio_var);
329             if (ast->codec->codec_tag == 100 && ast->codec->codec_id == AUDIO_FORMAT_SIGNED && ast->codec->bits_per_coded_sample == 16) {
330                 ast->codec->codec_id = AV_CODEC_ID_PCM_S16BE;
331             } else {
332                 av_log_ask_for_sample(avctx, "unknown audio compression %i (format %i, width %i)\n",
333                     ast->codec->codec_tag, ast->codec->codec_id, ast->codec->bits_per_coded_sample);
334                 ast->codec->codec_id = AV_CODEC_ID_NONE;
335             }
336             ast->codec->codec_tag = 0;
337             if (ast->codec->channels <= 0) {
338                 av_log(avctx, AV_LOG_ERROR, "No valid channel count found\n");
339                 return AVERROR_INVALIDDATA;
340             }
341         }
342
343         if (mv->nb_video_tracks > 1) {
344             av_log_ask_for_sample(avctx, "multiple video streams\n");
345             return AVERROR_PATCHWELCOME;
346         } else if (mv->nb_video_tracks) {
347             vst = avformat_new_stream(avctx, NULL);
348             if (!vst)
349                 return AVERROR(ENOMEM);
350             vst->codec->codec_type = AVMEDIA_TYPE_VIDEO;
351             read_table(avctx, vst, parse_video_var);
352         }
353
354         if (mv->nb_audio_tracks)
355             read_index(pb, ast);
356
357         if (mv->nb_video_tracks)
358             read_index(pb, vst);
359     } else {
360         av_log_ask_for_sample(avctx, "unknown version %i\n", version);
361         return AVERROR_PATCHWELCOME;
362     }
363
364     return 0;
365 }
366
367 static int mv_read_packet(AVFormatContext *avctx, AVPacket *pkt)
368 {
369     MvContext *mv = avctx->priv_data;
370     AVIOContext *pb = avctx->pb;
371     AVStream *st = avctx->streams[mv->stream_index];
372     const AVIndexEntry *index;
373     int frame = mv->frame[mv->stream_index];
374     int ret;
375     uint64_t pos;
376
377     if (frame  < st->nb_index_entries) {
378         index = &st->index_entries[frame];
379         pos = avio_tell(pb);
380         if (index->pos > pos)
381             avio_skip(pb, index->pos - pos);
382         else if (index->pos < pos) {
383             if (!pb->seekable)
384                 return AVERROR(EIO);
385             ret = avio_seek(pb, index->pos, SEEK_SET);
386             if (ret < 0)
387                 return ret;
388         }
389         ret = av_get_packet(pb, pkt, index->size);
390         if (ret < 0)
391             return ret;
392
393         pkt->stream_index = mv->stream_index;
394         pkt->pts = index->timestamp;
395         pkt->flags |= AV_PKT_FLAG_KEY;
396
397         mv->frame[mv->stream_index]++;
398         mv->eof_count = 0;
399     } else {
400         mv->eof_count++;
401         if (mv->eof_count >= avctx->nb_streams)
402             return AVERROR_EOF;
403     }
404
405     mv->stream_index++;
406     if (mv->stream_index >= avctx->nb_streams)
407         mv->stream_index = 0;
408
409     return 0;
410 }
411
412 static int mv_read_seek(AVFormatContext *avctx, int stream_index, int64_t timestamp, int flags)
413 {
414     MvContext *mv = avctx->priv_data;
415     AVStream *st = avctx->streams[stream_index];
416     int frame, i;
417
418     if ((flags & AVSEEK_FLAG_FRAME) || (flags & AVSEEK_FLAG_BYTE))
419         return AVERROR(ENOSYS);
420
421     if (!avctx->pb->seekable)
422         return AVERROR(EIO);
423
424     frame = av_index_search_timestamp(st, timestamp, flags);
425     if (frame < 0)
426         return -1;
427
428     for (i = 0; i < avctx->nb_streams; i++)
429         mv->frame[i] = frame;
430     return 0;
431 }
432
433 AVInputFormat ff_mv_demuxer = {
434     .name           = "mv",
435     .long_name      = NULL_IF_CONFIG_SMALL("Silicon Graphics Movie"),
436     .priv_data_size = sizeof(MvContext),
437     .read_probe     = mv_probe,
438     .read_header    = mv_read_header,
439     .read_packet    = mv_read_packet,
440     .read_seek      = mv_read_seek,
441 };