mov: Add an option for exporting all metadata
[ffmpeg.git] / libavformat / mov.c
1 /*
2  * MOV demuxer
3  * Copyright (c) 2001 Fabrice Bellard
4  * Copyright (c) 2009 Baptiste Coudurier <baptiste dot coudurier at gmail dot com>
5  *
6  * first version by Francois Revol <revol@free.fr>
7  * seek function by Gael Chardon <gael.dev@4now.net>
8  *
9  * This file is part of Libav.
10  *
11  * Libav is free software; you can redistribute it and/or
12  * modify it under the terms of the GNU Lesser General Public
13  * License as published by the Free Software Foundation; either
14  * version 2.1 of the License, or (at your option) any later version.
15  *
16  * Libav is distributed in the hope that it will be useful,
17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
19  * Lesser General Public License for more details.
20  *
21  * You should have received a copy of the GNU Lesser General Public
22  * License along with Libav; if not, write to the Free Software
23  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
24  */
25
26 #include <inttypes.h>
27 #include <limits.h>
28 #include <stdint.h>
29
30 #include "libavutil/attributes.h"
31 #include "libavutil/channel_layout.h"
32 #include "libavutil/intreadwrite.h"
33 #include "libavutil/intfloat.h"
34 #include "libavutil/mathematics.h"
35 #include "libavutil/time_internal.h"
36 #include "libavutil/avstring.h"
37 #include "libavutil/dict.h"
38 #include "libavutil/opt.h"
39 #include "libavcodec/ac3tab.h"
40 #include "avformat.h"
41 #include "internal.h"
42 #include "avio_internal.h"
43 #include "riff.h"
44 #include "isom.h"
45 #include "libavcodec/get_bits.h"
46 #include "id3v1.h"
47 #include "mov_chan.h"
48 #include "replaygain.h"
49
50 #if CONFIG_ZLIB
51 #include <zlib.h>
52 #endif
53
54 #include "qtpalette.h"
55
56
57 #undef NDEBUG
58 #include <assert.h>
59
60 /* those functions parse an atom */
61 /* links atom IDs to parse functions */
62 typedef struct MOVParseTableEntry {
63     uint32_t type;
64     int (*parse)(MOVContext *ctx, AVIOContext *pb, MOVAtom atom);
65 } MOVParseTableEntry;
66
67 static int mov_read_default(MOVContext *c, AVIOContext *pb, MOVAtom atom);
68
69 static int mov_metadata_track_or_disc_number(MOVContext *c, AVIOContext *pb,
70                                              unsigned len, const char *key)
71 {
72     char buf[16];
73
74     short current, total = 0;
75     avio_rb16(pb); // unknown
76     current = avio_rb16(pb);
77     if (len >= 6)
78         total = avio_rb16(pb);
79     if (!total)
80         snprintf(buf, sizeof(buf), "%d", current);
81     else
82         snprintf(buf, sizeof(buf), "%d/%d", current, total);
83     c->fc->event_flags |= AVFMT_EVENT_FLAG_METADATA_UPDATED;
84     av_dict_set(&c->fc->metadata, key, buf, 0);
85
86     return 0;
87 }
88
89 static int mov_metadata_int8_bypass_padding(MOVContext *c, AVIOContext *pb,
90                                             unsigned len, const char *key)
91 {
92     char buf[16];
93
94     /* bypass padding bytes */
95     avio_r8(pb);
96     avio_r8(pb);
97     avio_r8(pb);
98
99     snprintf(buf, sizeof(buf), "%d", avio_r8(pb));
100     c->fc->event_flags |= AVFMT_EVENT_FLAG_METADATA_UPDATED;
101     av_dict_set(&c->fc->metadata, key, buf, 0);
102
103     return 0;
104 }
105
106 static int mov_metadata_int8_no_padding(MOVContext *c, AVIOContext *pb,
107                                         unsigned len, const char *key)
108 {
109     char buf[16];
110
111     snprintf(buf, sizeof(buf), "%d", avio_r8(pb));
112     c->fc->event_flags |= AVFMT_EVENT_FLAG_METADATA_UPDATED;
113     av_dict_set(&c->fc->metadata, key, buf, 0);
114
115     return 0;
116 }
117
118 static int mov_metadata_gnre(MOVContext *c, AVIOContext *pb,
119                              unsigned len, const char *key)
120 {
121     short genre;
122     char buf[20];
123
124     avio_r8(pb); // unknown
125
126     genre = avio_r8(pb);
127     if (genre < 1 || genre > ID3v1_GENRE_MAX)
128         return 0;
129     snprintf(buf, sizeof(buf), "%s", ff_id3v1_genre_str[genre-1]);
130     c->fc->event_flags |= AVFMT_EVENT_FLAG_METADATA_UPDATED;
131     av_dict_set(&c->fc->metadata, key, buf, 0);
132
133     return 0;
134 }
135
136 static const uint32_t mac_to_unicode[128] = {
137     0x00C4,0x00C5,0x00C7,0x00C9,0x00D1,0x00D6,0x00DC,0x00E1,
138     0x00E0,0x00E2,0x00E4,0x00E3,0x00E5,0x00E7,0x00E9,0x00E8,
139     0x00EA,0x00EB,0x00ED,0x00EC,0x00EE,0x00EF,0x00F1,0x00F3,
140     0x00F2,0x00F4,0x00F6,0x00F5,0x00FA,0x00F9,0x00FB,0x00FC,
141     0x2020,0x00B0,0x00A2,0x00A3,0x00A7,0x2022,0x00B6,0x00DF,
142     0x00AE,0x00A9,0x2122,0x00B4,0x00A8,0x2260,0x00C6,0x00D8,
143     0x221E,0x00B1,0x2264,0x2265,0x00A5,0x00B5,0x2202,0x2211,
144     0x220F,0x03C0,0x222B,0x00AA,0x00BA,0x03A9,0x00E6,0x00F8,
145     0x00BF,0x00A1,0x00AC,0x221A,0x0192,0x2248,0x2206,0x00AB,
146     0x00BB,0x2026,0x00A0,0x00C0,0x00C3,0x00D5,0x0152,0x0153,
147     0x2013,0x2014,0x201C,0x201D,0x2018,0x2019,0x00F7,0x25CA,
148     0x00FF,0x0178,0x2044,0x20AC,0x2039,0x203A,0xFB01,0xFB02,
149     0x2021,0x00B7,0x201A,0x201E,0x2030,0x00C2,0x00CA,0x00C1,
150     0x00CB,0x00C8,0x00CD,0x00CE,0x00CF,0x00CC,0x00D3,0x00D4,
151     0xF8FF,0x00D2,0x00DA,0x00DB,0x00D9,0x0131,0x02C6,0x02DC,
152     0x00AF,0x02D8,0x02D9,0x02DA,0x00B8,0x02DD,0x02DB,0x02C7,
153 };
154
155 static int mov_read_mac_string(MOVContext *c, AVIOContext *pb, int len,
156                                char *dst, int dstlen)
157 {
158     char *p = dst;
159     char *end = dst+dstlen-1;
160     int i;
161
162     for (i = 0; i < len; i++) {
163         uint8_t t, c = avio_r8(pb);
164         if (c < 0x80 && p < end)
165             *p++ = c;
166         else
167             PUT_UTF8(mac_to_unicode[c-0x80], t, if (p < end) *p++ = t;);
168     }
169     *p = 0;
170     return p - dst;
171 }
172
173 static int mov_read_covr(MOVContext *c, AVIOContext *pb, int type, int len)
174 {
175     AVPacket pkt;
176     AVStream *st;
177     MOVStreamContext *sc;
178     enum AVCodecID id;
179     int ret;
180
181     switch (type) {
182     case 0xd:  id = AV_CODEC_ID_MJPEG; break;
183     case 0xe:  id = AV_CODEC_ID_PNG;   break;
184     case 0x1b: id = AV_CODEC_ID_BMP;   break;
185     default:
186         av_log(c->fc, AV_LOG_WARNING, "Unknown cover type: 0x%x.\n", type);
187         avio_skip(pb, len);
188         return 0;
189     }
190
191     st = avformat_new_stream(c->fc, NULL);
192     if (!st)
193         return AVERROR(ENOMEM);
194     sc = av_mallocz(sizeof(*sc));
195     if (!sc)
196         return AVERROR(ENOMEM);
197     st->priv_data = sc;
198
199     ret = av_get_packet(pb, &pkt, len);
200     if (ret < 0)
201         return ret;
202
203     st->disposition              |= AV_DISPOSITION_ATTACHED_PIC;
204
205     st->attached_pic              = pkt;
206     st->attached_pic.stream_index = st->index;
207     st->attached_pic.flags       |= AV_PKT_FLAG_KEY;
208
209     st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
210     st->codec->codec_id   = id;
211
212     return 0;
213 }
214
215 static int mov_metadata_loci(MOVContext *c, AVIOContext *pb, unsigned len)
216 {
217     char language[4] = { 0 };
218     char buf[100];
219     uint16_t langcode = 0;
220     double longitude, latitude;
221     const char *key = "location";
222
223     if (len < 4 + 2 + 1 + 1 + 4 + 4 + 4)
224         return AVERROR_INVALIDDATA;
225
226     avio_skip(pb, 4); // version+flags
227     langcode = avio_rb16(pb);
228     ff_mov_lang_to_iso639(langcode, language);
229     len -= 6;
230
231     len -= avio_get_str(pb, len, buf, sizeof(buf)); // place name
232     if (len < 1)
233         return AVERROR_INVALIDDATA;
234     avio_skip(pb, 1); // role
235     len -= 1;
236
237     if (len < 14)
238         return AVERROR_INVALIDDATA;
239     longitude = ((int32_t) avio_rb32(pb)) / (float) (1 << 16);
240     latitude  = ((int32_t) avio_rb32(pb)) / (float) (1 << 16);
241
242     // Try to output in the same format as the ?xyz field
243     snprintf(buf, sizeof(buf), "%+08.4f%+09.4f/", latitude, longitude);
244     if (*language && strcmp(language, "und")) {
245         char key2[16];
246         snprintf(key2, sizeof(key2), "%s-%s", key, language);
247         av_dict_set(&c->fc->metadata, key2, buf, 0);
248     }
249     c->fc->event_flags |= AVFMT_EVENT_FLAG_METADATA_UPDATED;
250     return av_dict_set(&c->fc->metadata, key, buf, 0);
251 }
252
253 static int mov_read_udta_string(MOVContext *c, AVIOContext *pb, MOVAtom atom)
254 {
255     char tmp_key[5];
256     char str[1024], key2[32], language[4] = {0};
257     const char *key = NULL;
258     uint16_t langcode = 0;
259     uint32_t data_type = 0, str_size;
260     int (*parse)(MOVContext*, AVIOContext*, unsigned, const char*) = NULL;
261
262     switch (atom.type) {
263     case MKTAG(0xa9,'n','a','m'): key = "title";     break;
264     case MKTAG(0xa9,'a','u','t'):
265     case MKTAG(0xa9,'A','R','T'): key = "artist";    break;
266     case MKTAG( 'a','A','R','T'): key = "album_artist";    break;
267     case MKTAG(0xa9,'w','r','t'): key = "composer";  break;
268     case MKTAG( 'c','p','r','t'):
269     case MKTAG(0xa9,'c','p','y'): key = "copyright"; break;
270     case MKTAG(0xa9,'c','m','t'):
271     case MKTAG(0xa9,'i','n','f'): key = "comment";   break;
272     case MKTAG(0xa9,'a','l','b'): key = "album";     break;
273     case MKTAG(0xa9,'d','a','y'): key = "date";      break;
274     case MKTAG(0xa9,'g','e','n'): key = "genre";     break;
275     case MKTAG( 'g','n','r','e'): key = "genre";
276         parse = mov_metadata_gnre; break;
277     case MKTAG(0xa9,'t','o','o'):
278     case MKTAG(0xa9,'s','w','r'): key = "encoder";   break;
279     case MKTAG(0xa9,'e','n','c'): key = "encoder";   break;
280     case MKTAG(0xa9,'x','y','z'): key = "location";  break;
281     case MKTAG( 'd','e','s','c'): key = "description";break;
282     case MKTAG( 'l','d','e','s'): key = "synopsis";  break;
283     case MKTAG( 't','v','s','h'): key = "show";      break;
284     case MKTAG( 't','v','e','n'): key = "episode_id";break;
285     case MKTAG( 't','v','n','n'): key = "network";   break;
286     case MKTAG( 't','r','k','n'): key = "track";
287         parse = mov_metadata_track_or_disc_number; break;
288     case MKTAG( 'd','i','s','k'): key = "disc";
289         parse = mov_metadata_track_or_disc_number; break;
290     case MKTAG( 't','v','e','s'): key = "episode_sort";
291         parse = mov_metadata_int8_bypass_padding; break;
292     case MKTAG( 't','v','s','n'): key = "season_number";
293         parse = mov_metadata_int8_bypass_padding; break;
294     case MKTAG( 's','t','i','k'): key = "media_type";
295         parse = mov_metadata_int8_no_padding; break;
296     case MKTAG( 'h','d','v','d'): key = "hd_video";
297         parse = mov_metadata_int8_no_padding; break;
298     case MKTAG( 'p','g','a','p'): key = "gapless_playback";
299         parse = mov_metadata_int8_no_padding; break;
300     case MKTAG( 'l','o','c','i'):
301         return mov_metadata_loci(c, pb, atom.size);
302     }
303
304     if (c->itunes_metadata && atom.size > 8) {
305         int data_size = avio_rb32(pb);
306         int tag = avio_rl32(pb);
307         if (tag == MKTAG('d','a','t','a')) {
308             data_type = avio_rb32(pb); // type
309             avio_rb32(pb); // unknown
310             str_size = data_size - 16;
311             atom.size -= 16;
312
313             if (atom.type == MKTAG('c', 'o', 'v', 'r')) {
314                 int ret = mov_read_covr(c, pb, data_type, str_size);
315                 if (ret < 0) {
316                     av_log(c->fc, AV_LOG_ERROR, "Error parsing cover art.\n");
317                     return ret;
318                 }
319             }
320         } else return 0;
321     } else if (atom.size > 4 && key && !c->itunes_metadata) {
322         str_size = avio_rb16(pb); // string length
323         langcode = avio_rb16(pb);
324         ff_mov_lang_to_iso639(langcode, language);
325         atom.size -= 4;
326     } else
327         str_size = atom.size;
328
329     if (c->export_all && !key) {
330         snprintf(tmp_key, 5, "%.4s", (char*)&atom.type);
331         key = tmp_key;
332     }
333
334     if (!key)
335         return 0;
336     if (atom.size < 0)
337         return AVERROR_INVALIDDATA;
338
339     str_size = FFMIN3(sizeof(str)-1, str_size, atom.size);
340
341     if (parse)
342         parse(c, pb, str_size, key);
343     else {
344         if (data_type == 3 || (data_type == 0 && (langcode < 0x400 || langcode == 0x7fff))) { // MAC Encoded
345             mov_read_mac_string(c, pb, str_size, str, sizeof(str));
346         } else {
347             avio_read(pb, str, str_size);
348             str[str_size] = 0;
349         }
350         c->fc->event_flags |= AVFMT_EVENT_FLAG_METADATA_UPDATED;
351         av_dict_set(&c->fc->metadata, key, str, 0);
352         if (*language && strcmp(language, "und")) {
353             snprintf(key2, sizeof(key2), "%s-%s", key, language);
354             av_dict_set(&c->fc->metadata, key2, str, 0);
355         }
356     }
357     av_dlog(c->fc, "lang \"%3s\" ", language);
358     av_dlog(c->fc, "tag \"%s\" value \"%s\" atom \"%.4s\" %d %"PRId64"\n",
359             key, str, (char*)&atom.type, str_size, atom.size);
360
361     return 0;
362 }
363
364 static int mov_read_chpl(MOVContext *c, AVIOContext *pb, MOVAtom atom)
365 {
366     int64_t start;
367     int i, nb_chapters, str_len, version;
368     char str[256+1];
369
370     if ((atom.size -= 5) < 0)
371         return 0;
372
373     version = avio_r8(pb);
374     avio_rb24(pb);
375     if (version)
376         avio_rb32(pb); // ???
377     nb_chapters = avio_r8(pb);
378
379     for (i = 0; i < nb_chapters; i++) {
380         if (atom.size < 9)
381             return 0;
382
383         start = avio_rb64(pb);
384         str_len = avio_r8(pb);
385
386         if ((atom.size -= 9+str_len) < 0)
387             return 0;
388
389         avio_read(pb, str, str_len);
390         str[str_len] = 0;
391         avpriv_new_chapter(c->fc, i, (AVRational){1,10000000}, start, AV_NOPTS_VALUE, str);
392     }
393     return 0;
394 }
395
396 #define MIN_DATA_ENTRY_BOX_SIZE 12
397 static int mov_read_dref(MOVContext *c, AVIOContext *pb, MOVAtom atom)
398 {
399     AVStream *st;
400     MOVStreamContext *sc;
401     int entries, i, j;
402
403     if (c->fc->nb_streams < 1)
404         return 0;
405     st = c->fc->streams[c->fc->nb_streams-1];
406     sc = st->priv_data;
407
408     avio_rb32(pb); // version + flags
409     entries = avio_rb32(pb);
410     if (entries >  (atom.size - 1) / MIN_DATA_ENTRY_BOX_SIZE + 1 ||
411         entries >= UINT_MAX / sizeof(*sc->drefs))
412         return AVERROR_INVALIDDATA;
413     av_free(sc->drefs);
414     sc->drefs = av_mallocz(entries * sizeof(*sc->drefs));
415     if (!sc->drefs)
416         return AVERROR(ENOMEM);
417     sc->drefs_count = entries;
418
419     for (i = 0; i < sc->drefs_count; i++) {
420         MOVDref *dref = &sc->drefs[i];
421         uint32_t size = avio_rb32(pb);
422         int64_t next = avio_tell(pb) + size - 4;
423
424         if (size < 12)
425             return AVERROR_INVALIDDATA;
426
427         dref->type = avio_rl32(pb);
428         avio_rb32(pb); // version + flags
429         av_dlog(c->fc, "type %.4s size %d\n", (char*)&dref->type, size);
430
431         if (dref->type == MKTAG('a','l','i','s') && size > 150) {
432             /* macintosh alias record */
433             uint16_t volume_len, len;
434             int16_t type;
435
436             avio_skip(pb, 10);
437
438             volume_len = avio_r8(pb);
439             volume_len = FFMIN(volume_len, 27);
440             avio_read(pb, dref->volume, 27);
441             dref->volume[volume_len] = 0;
442             av_log(c->fc, AV_LOG_DEBUG, "volume %s, len %d\n", dref->volume, volume_len);
443
444             avio_skip(pb, 12);
445
446             len = avio_r8(pb);
447             len = FFMIN(len, 63);
448             avio_read(pb, dref->filename, 63);
449             dref->filename[len] = 0;
450             av_log(c->fc, AV_LOG_DEBUG, "filename %s, len %d\n", dref->filename, len);
451
452             avio_skip(pb, 16);
453
454             /* read next level up_from_alias/down_to_target */
455             dref->nlvl_from = avio_rb16(pb);
456             dref->nlvl_to   = avio_rb16(pb);
457             av_log(c->fc, AV_LOG_DEBUG, "nlvl from %d, nlvl to %d\n",
458                    dref->nlvl_from, dref->nlvl_to);
459
460             avio_skip(pb, 16);
461
462             for (type = 0; type != -1 && avio_tell(pb) < next; ) {
463                 if (pb->eof_reached)
464                     return AVERROR_EOF;
465                 type = avio_rb16(pb);
466                 len = avio_rb16(pb);
467                 av_log(c->fc, AV_LOG_DEBUG, "type %d, len %d\n", type, len);
468                 if (len&1)
469                     len += 1;
470                 if (type == 2) { // absolute path
471                     av_free(dref->path);
472                     dref->path = av_mallocz(len+1);
473                     if (!dref->path)
474                         return AVERROR(ENOMEM);
475                     avio_read(pb, dref->path, len);
476                     if (len > volume_len && !strncmp(dref->path, dref->volume, volume_len)) {
477                         len -= volume_len;
478                         memmove(dref->path, dref->path+volume_len, len);
479                         dref->path[len] = 0;
480                     }
481                     for (j = 0; j < len; j++)
482                         if (dref->path[j] == ':')
483                             dref->path[j] = '/';
484                     av_log(c->fc, AV_LOG_DEBUG, "path %s\n", dref->path);
485                 } else if (type == 0) { // directory name
486                     av_free(dref->dir);
487                     dref->dir = av_malloc(len+1);
488                     if (!dref->dir)
489                         return AVERROR(ENOMEM);
490                     avio_read(pb, dref->dir, len);
491                     dref->dir[len] = 0;
492                     for (j = 0; j < len; j++)
493                         if (dref->dir[j] == ':')
494                             dref->dir[j] = '/';
495                     av_log(c->fc, AV_LOG_DEBUG, "dir %s\n", dref->dir);
496                 } else
497                     avio_skip(pb, len);
498             }
499         }
500         avio_seek(pb, next, SEEK_SET);
501     }
502     return 0;
503 }
504
505 static int mov_read_hdlr(MOVContext *c, AVIOContext *pb, MOVAtom atom)
506 {
507     AVStream *st;
508     uint32_t type;
509     uint32_t av_unused ctype;
510
511     if (c->fc->nb_streams < 1) // meta before first trak
512         return 0;
513
514     st = c->fc->streams[c->fc->nb_streams-1];
515
516     avio_r8(pb); /* version */
517     avio_rb24(pb); /* flags */
518
519     /* component type */
520     ctype = avio_rl32(pb);
521     type = avio_rl32(pb); /* component subtype */
522
523     av_dlog(c->fc, "ctype= %.4s (0x%08x)\n", (char*)&ctype, ctype);
524     av_dlog(c->fc, "stype= %.4s\n", (char*)&type);
525
526     if     (type == MKTAG('v','i','d','e'))
527         st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
528     else if (type == MKTAG('s','o','u','n'))
529         st->codec->codec_type = AVMEDIA_TYPE_AUDIO;
530     else if (type == MKTAG('m','1','a',' '))
531         st->codec->codec_id = AV_CODEC_ID_MP2;
532     else if ((type == MKTAG('s','u','b','p')) || (type == MKTAG('c','l','c','p')))
533         st->codec->codec_type = AVMEDIA_TYPE_SUBTITLE;
534
535     avio_rb32(pb); /* component  manufacture */
536     avio_rb32(pb); /* component flags */
537     avio_rb32(pb); /* component flags mask */
538
539     return 0;
540 }
541
542 int ff_mov_read_esds(AVFormatContext *fc, AVIOContext *pb)
543 {
544     AVStream *st;
545     int tag;
546
547     if (fc->nb_streams < 1)
548         return 0;
549     st = fc->streams[fc->nb_streams-1];
550
551     avio_rb32(pb); /* version + flags */
552     ff_mp4_read_descr(fc, pb, &tag);
553     if (tag == MP4ESDescrTag) {
554         ff_mp4_parse_es_descr(pb, NULL);
555     } else
556         avio_rb16(pb); /* ID */
557
558     ff_mp4_read_descr(fc, pb, &tag);
559     if (tag == MP4DecConfigDescrTag)
560         ff_mp4_read_dec_config_descr(fc, st, pb);
561     return 0;
562 }
563
564 static int mov_read_esds(MOVContext *c, AVIOContext *pb, MOVAtom atom)
565 {
566     return ff_mov_read_esds(c->fc, pb);
567 }
568
569 static int mov_read_dac3(MOVContext *c, AVIOContext *pb, MOVAtom atom)
570 {
571     AVStream *st;
572     int ac3info, acmod, lfeon, bsmod;
573
574     if (c->fc->nb_streams < 1)
575         return 0;
576     st = c->fc->streams[c->fc->nb_streams-1];
577
578     ac3info = avio_rb24(pb);
579     bsmod = (ac3info >> 14) & 0x7;
580     acmod = (ac3info >> 11) & 0x7;
581     lfeon = (ac3info >> 10) & 0x1;
582     st->codec->channels = ((int[]){2,1,2,3,3,4,4,5})[acmod] + lfeon;
583     st->codec->channel_layout = avpriv_ac3_channel_layout_tab[acmod];
584     if (lfeon)
585         st->codec->channel_layout |= AV_CH_LOW_FREQUENCY;
586     st->codec->audio_service_type = bsmod;
587     if (st->codec->channels > 1 && bsmod == 0x7)
588         st->codec->audio_service_type = AV_AUDIO_SERVICE_TYPE_KARAOKE;
589
590     return 0;
591 }
592
593 static int mov_read_dec3(MOVContext *c, AVIOContext *pb, MOVAtom atom)
594 {
595     AVStream *st;
596     int eac3info, acmod, lfeon, bsmod;
597
598     if (c->fc->nb_streams < 1)
599         return 0;
600     st = c->fc->streams[c->fc->nb_streams-1];
601
602     /* No need to parse fields for additional independent substreams and its
603      * associated dependent substreams since libavcodec's E-AC-3 decoder
604      * does not support them yet. */
605     avio_rb16(pb); /* data_rate and num_ind_sub */
606     eac3info = avio_rb24(pb);
607     bsmod = (eac3info >> 12) & 0x1f;
608     acmod = (eac3info >>  9) & 0x7;
609     lfeon = (eac3info >>  8) & 0x1;
610     st->codec->channel_layout = avpriv_ac3_channel_layout_tab[acmod];
611     if (lfeon)
612         st->codec->channel_layout |= AV_CH_LOW_FREQUENCY;
613     st->codec->channels = av_get_channel_layout_nb_channels(st->codec->channel_layout);
614     st->codec->audio_service_type = bsmod;
615     if (st->codec->channels > 1 && bsmod == 0x7)
616         st->codec->audio_service_type = AV_AUDIO_SERVICE_TYPE_KARAOKE;
617
618     return 0;
619 }
620
621 static int mov_read_chan(MOVContext *c, AVIOContext *pb, MOVAtom atom)
622 {
623     AVStream *st;
624
625     if (c->fc->nb_streams < 1)
626         return 0;
627     st = c->fc->streams[c->fc->nb_streams-1];
628
629     if (atom.size < 16)
630         return 0;
631
632     ff_mov_read_chan(c->fc, pb, st, atom.size - 4);
633
634     return 0;
635 }
636
637 static int mov_read_wfex(MOVContext *c, AVIOContext *pb, MOVAtom atom)
638 {
639     AVStream *st;
640
641     if (c->fc->nb_streams < 1)
642         return 0;
643     st = c->fc->streams[c->fc->nb_streams-1];
644
645     return ff_get_wav_header(pb, st->codec, atom.size);
646 }
647
648 static int mov_read_pasp(MOVContext *c, AVIOContext *pb, MOVAtom atom)
649 {
650     const int num = avio_rb32(pb);
651     const int den = avio_rb32(pb);
652     AVStream *st;
653
654     if (c->fc->nb_streams < 1)
655         return 0;
656     st = c->fc->streams[c->fc->nb_streams-1];
657
658     if ((st->sample_aspect_ratio.den != 1 || st->sample_aspect_ratio.num) && // default
659         (den != st->sample_aspect_ratio.den || num != st->sample_aspect_ratio.num)) {
660         av_log(c->fc, AV_LOG_WARNING,
661                "sample aspect ratio already set to %d:%d, ignoring 'pasp' atom (%d:%d)\n",
662                st->sample_aspect_ratio.num, st->sample_aspect_ratio.den,
663                num, den);
664     } else if (den != 0) {
665         st->sample_aspect_ratio.num = num;
666         st->sample_aspect_ratio.den = den;
667     }
668     return 0;
669 }
670
671 /* this atom contains actual media data */
672 static int mov_read_mdat(MOVContext *c, AVIOContext *pb, MOVAtom atom)
673 {
674     if (atom.size == 0) /* wrong one (MP4) */
675         return 0;
676     c->found_mdat=1;
677     return 0; /* now go for moov */
678 }
679
680 /* read major brand, minor version and compatible brands and store them as metadata */
681 static int mov_read_ftyp(MOVContext *c, AVIOContext *pb, MOVAtom atom)
682 {
683     uint32_t minor_ver;
684     int comp_brand_size;
685     char minor_ver_str[11]; /* 32 bit integer -> 10 digits + null */
686     char* comp_brands_str;
687     uint8_t type[5] = {0};
688
689     avio_read(pb, type, 4);
690     if (strcmp(type, "qt  "))
691         c->isom = 1;
692     av_log(c->fc, AV_LOG_DEBUG, "ISO: File Type Major Brand: %.4s\n",(char *)&type);
693     av_dict_set(&c->fc->metadata, "major_brand", type, 0);
694     minor_ver = avio_rb32(pb); /* minor version */
695     snprintf(minor_ver_str, sizeof(minor_ver_str), "%"PRIu32"", minor_ver);
696     av_dict_set(&c->fc->metadata, "minor_version", minor_ver_str, 0);
697
698     comp_brand_size = atom.size - 8;
699     if (comp_brand_size < 0)
700         return AVERROR_INVALIDDATA;
701     comp_brands_str = av_malloc(comp_brand_size + 1); /* Add null terminator */
702     if (!comp_brands_str)
703         return AVERROR(ENOMEM);
704     avio_read(pb, comp_brands_str, comp_brand_size);
705     comp_brands_str[comp_brand_size] = 0;
706     av_dict_set(&c->fc->metadata, "compatible_brands", comp_brands_str, 0);
707     av_freep(&comp_brands_str);
708
709     return 0;
710 }
711
712 /* this atom should contain all header atoms */
713 static int mov_read_moov(MOVContext *c, AVIOContext *pb, MOVAtom atom)
714 {
715     int ret;
716
717     if ((ret = mov_read_default(c, pb, atom)) < 0)
718         return ret;
719     /* we parsed the 'moov' atom, we can terminate the parsing as soon as we find the 'mdat' */
720     /* so we don't parse the whole file if over a network */
721     c->found_moov=1;
722     return 0; /* now go for mdat */
723 }
724
725 static int mov_read_moof(MOVContext *c, AVIOContext *pb, MOVAtom atom)
726 {
727     c->fragment.moof_offset = c->fragment.implicit_offset = avio_tell(pb) - 8;
728     av_dlog(c->fc, "moof offset %"PRIx64"\n", c->fragment.moof_offset);
729     return mov_read_default(c, pb, atom);
730 }
731
732 static void mov_metadata_creation_time(AVDictionary **metadata, time_t time)
733 {
734     char buffer[32];
735     if (time) {
736         struct tm *ptm, tmbuf;
737         time -= 2082844800;  /* seconds between 1904-01-01 and Epoch */
738         ptm = gmtime_r(&time, &tmbuf);
739         if (!ptm) return;
740         if (strftime(buffer, sizeof(buffer), "%Y-%m-%d %H:%M:%S", ptm))
741             av_dict_set(metadata, "creation_time", buffer, 0);
742     }
743 }
744
745 static int mov_read_mdhd(MOVContext *c, AVIOContext *pb, MOVAtom atom)
746 {
747     AVStream *st;
748     MOVStreamContext *sc;
749     int version;
750     char language[4] = {0};
751     unsigned lang;
752     time_t creation_time;
753
754     if (c->fc->nb_streams < 1)
755         return 0;
756     st = c->fc->streams[c->fc->nb_streams-1];
757     sc = st->priv_data;
758
759     if (sc->time_scale) {
760         av_log(c->fc, AV_LOG_ERROR, "Multiple mdhd?\n");
761         return AVERROR_INVALIDDATA;
762     }
763
764     version = avio_r8(pb);
765     if (version > 1) {
766         avpriv_request_sample(c->fc, "Version %d", version);
767         return AVERROR_PATCHWELCOME;
768     }
769     avio_rb24(pb); /* flags */
770     if (version == 1) {
771         creation_time = avio_rb64(pb);
772         avio_rb64(pb);
773     } else {
774         creation_time = avio_rb32(pb);
775         avio_rb32(pb); /* modification time */
776     }
777     mov_metadata_creation_time(&st->metadata, creation_time);
778
779     sc->time_scale = avio_rb32(pb);
780     st->duration = (version == 1) ? avio_rb64(pb) : avio_rb32(pb); /* duration */
781
782     lang = avio_rb16(pb); /* language */
783     if (ff_mov_lang_to_iso639(lang, language))
784         av_dict_set(&st->metadata, "language", language, 0);
785     avio_rb16(pb); /* quality */
786
787     return 0;
788 }
789
790 static int mov_read_mvhd(MOVContext *c, AVIOContext *pb, MOVAtom atom)
791 {
792     time_t creation_time;
793     int version = avio_r8(pb); /* version */
794     avio_rb24(pb); /* flags */
795
796     if (version == 1) {
797         creation_time = avio_rb64(pb);
798         avio_rb64(pb);
799     } else {
800         creation_time = avio_rb32(pb);
801         avio_rb32(pb); /* modification time */
802     }
803     mov_metadata_creation_time(&c->fc->metadata, creation_time);
804     c->time_scale = avio_rb32(pb); /* time scale */
805
806     av_dlog(c->fc, "time scale = %i\n", c->time_scale);
807
808     c->duration = (version == 1) ? avio_rb64(pb) : avio_rb32(pb); /* duration */
809     avio_rb32(pb); /* preferred scale */
810
811     avio_rb16(pb); /* preferred volume */
812
813     avio_skip(pb, 10); /* reserved */
814
815     avio_skip(pb, 36); /* display matrix */
816
817     avio_rb32(pb); /* preview time */
818     avio_rb32(pb); /* preview duration */
819     avio_rb32(pb); /* poster time */
820     avio_rb32(pb); /* selection time */
821     avio_rb32(pb); /* selection duration */
822     avio_rb32(pb); /* current time */
823     avio_rb32(pb); /* next track ID */
824
825     return 0;
826 }
827
828 static int mov_read_smi(MOVContext *c, AVIOContext *pb, MOVAtom atom)
829 {
830     AVStream *st;
831
832     if (c->fc->nb_streams < 1)
833         return 0;
834     st = c->fc->streams[c->fc->nb_streams-1];
835
836     if ((uint64_t)atom.size > (1<<30))
837         return AVERROR_INVALIDDATA;
838
839     // currently SVQ3 decoder expect full STSD header - so let's fake it
840     // this should be fixed and just SMI header should be passed
841     av_free(st->codec->extradata);
842     st->codec->extradata = av_mallocz(atom.size + 0x5a + FF_INPUT_BUFFER_PADDING_SIZE);
843     if (!st->codec->extradata)
844         return AVERROR(ENOMEM);
845     st->codec->extradata_size = 0x5a + atom.size;
846     memcpy(st->codec->extradata, "SVQ3", 4); // fake
847     avio_read(pb, st->codec->extradata + 0x5a, atom.size);
848     av_dlog(c->fc, "Reading SMI %"PRId64"  %s\n", atom.size, st->codec->extradata + 0x5a);
849     return 0;
850 }
851
852 static int mov_read_enda(MOVContext *c, AVIOContext *pb, MOVAtom atom)
853 {
854     AVStream *st;
855     int little_endian;
856
857     if (c->fc->nb_streams < 1)
858         return 0;
859     st = c->fc->streams[c->fc->nb_streams-1];
860
861     little_endian = avio_rb16(pb);
862     av_dlog(c->fc, "enda %d\n", little_endian);
863     if (little_endian == 1) {
864         switch (st->codec->codec_id) {
865         case AV_CODEC_ID_PCM_S24BE:
866             st->codec->codec_id = AV_CODEC_ID_PCM_S24LE;
867             break;
868         case AV_CODEC_ID_PCM_S32BE:
869             st->codec->codec_id = AV_CODEC_ID_PCM_S32LE;
870             break;
871         case AV_CODEC_ID_PCM_F32BE:
872             st->codec->codec_id = AV_CODEC_ID_PCM_F32LE;
873             break;
874         case AV_CODEC_ID_PCM_F64BE:
875             st->codec->codec_id = AV_CODEC_ID_PCM_F64LE;
876             break;
877         default:
878             break;
879         }
880     }
881     return 0;
882 }
883
884 static int mov_read_colr(MOVContext *c, AVIOContext *pb, MOVAtom atom)
885 {
886     AVStream *st;
887     char color_parameter_type[5] = { 0 };
888     int color_primaries, color_trc, color_matrix;
889
890     if (c->fc->nb_streams < 1)
891         return 0;
892     st = c->fc->streams[c->fc->nb_streams - 1];
893
894     avio_read(pb, color_parameter_type, 4);
895     if (strncmp(color_parameter_type, "nclx", 4) &&
896         strncmp(color_parameter_type, "nclc", 4)) {
897         av_log(c->fc, AV_LOG_WARNING, "unsupported color_parameter_type %s\n",
898                color_parameter_type);
899         return 0;
900     }
901
902     color_primaries = avio_rb16(pb);
903     color_trc = avio_rb16(pb);
904     color_matrix = avio_rb16(pb);
905
906     av_dlog(c->fc, "%s: pri %"PRIu16" trc %"PRIu16" matrix %"PRIu16"",
907             color_parameter_type, color_primaries, color_trc, color_matrix);
908
909     if (c->isom) {
910         uint8_t color_range = avio_r8(pb) >> 7;
911         av_dlog(c->fc, " full %"PRIu8"", color_range)
912         if (color_range)
913             st->codec->color_range = AVCOL_RANGE_JPEG;
914         else
915             st->codec->color_range = AVCOL_RANGE_MPEG;
916         /* 14496-12 references JPEG XR specs (rather than the more complete
917          * 23001-8) so some adjusting is required */
918         if (color_primaries >= AVCOL_PRI_FILM)
919             color_primaries = AVCOL_PRI_UNSPECIFIED;
920         if ((color_trc >= AVCOL_TRC_LINEAR &&
921              color_trc <= AVCOL_TRC_LOG_SQRT) ||
922             color_trc >= AVCOL_TRC_BT2020_10)
923             color_trc = AVCOL_TRC_UNSPECIFIED;
924         if (color_matrix >= AVCOL_SPC_BT2020_NCL)
925             color_matrix = AVCOL_SPC_UNSPECIFIED;
926         st->codec->color_primaries = color_primaries;
927         st->codec->color_trc = color_trc;
928         st->codec->colorspace = color_matrix;
929     } else {
930         /* color primaries, Table 4-4 */
931         switch (color_primaries) {
932         case 1: st->codec->color_primaries = AVCOL_PRI_BT709; break;
933         case 5: st->codec->color_primaries = AVCOL_PRI_SMPTE170M; break;
934         case 6: st->codec->color_primaries = AVCOL_PRI_SMPTE240M; break;
935         }
936         /* color transfer, Table 4-5 */
937         switch (color_trc) {
938         case 1: st->codec->color_trc = AVCOL_TRC_BT709; break;
939         case 7: st->codec->color_trc = AVCOL_TRC_SMPTE240M; break;
940         }
941         /* color matrix, Table 4-6 */
942         switch (color_matrix) {
943         case 1: st->codec->colorspace = AVCOL_SPC_BT709; break;
944         case 6: st->codec->colorspace = AVCOL_SPC_BT470BG; break;
945         case 7: st->codec->colorspace = AVCOL_SPC_SMPTE240M; break;
946         }
947     }
948     av_dlog(c->fc, "\n")
949
950     return 0;
951 }
952
953 static int mov_read_fiel(MOVContext *c, AVIOContext *pb, MOVAtom atom)
954 {
955     AVStream *st;
956     unsigned mov_field_order;
957     enum AVFieldOrder decoded_field_order = AV_FIELD_UNKNOWN;
958
959     if (c->fc->nb_streams < 1) // will happen with jp2 files
960         return 0;
961     st = c->fc->streams[c->fc->nb_streams-1];
962     if (atom.size < 2)
963         return AVERROR_INVALIDDATA;
964     mov_field_order = avio_rb16(pb);
965     if ((mov_field_order & 0xFF00) == 0x0100)
966         decoded_field_order = AV_FIELD_PROGRESSIVE;
967     else if ((mov_field_order & 0xFF00) == 0x0200) {
968         switch (mov_field_order & 0xFF) {
969         case 0x01: decoded_field_order = AV_FIELD_TT;
970                    break;
971         case 0x06: decoded_field_order = AV_FIELD_BB;
972                    break;
973         case 0x09: decoded_field_order = AV_FIELD_TB;
974                    break;
975         case 0x0E: decoded_field_order = AV_FIELD_BT;
976                    break;
977         }
978     }
979     if (decoded_field_order == AV_FIELD_UNKNOWN && mov_field_order) {
980         av_log(NULL, AV_LOG_ERROR, "Unknown MOV field order 0x%04x\n", mov_field_order);
981     }
982     st->codec->field_order = decoded_field_order;
983
984     return 0;
985 }
986
987 /* FIXME modify qdm2/svq3/h264 decoders to take full atom as extradata */
988 static int mov_read_extradata(MOVContext *c, AVIOContext *pb, MOVAtom atom)
989 {
990     AVStream *st;
991     uint64_t size;
992     uint8_t *buf;
993     int err;
994
995     if (c->fc->nb_streams < 1) // will happen with jp2 files
996         return 0;
997     st= c->fc->streams[c->fc->nb_streams-1];
998     size= (uint64_t)st->codec->extradata_size + atom.size + 8 + FF_INPUT_BUFFER_PADDING_SIZE;
999     if (size > INT_MAX || (uint64_t)atom.size > INT_MAX)
1000         return AVERROR_INVALIDDATA;
1001     if ((err = av_reallocp(&st->codec->extradata, size)) < 0) {
1002         st->codec->extradata_size = 0;
1003         return err;
1004     }
1005     buf = st->codec->extradata + st->codec->extradata_size;
1006     st->codec->extradata_size= size - FF_INPUT_BUFFER_PADDING_SIZE;
1007     AV_WB32(       buf    , atom.size + 8);
1008     AV_WL32(       buf + 4, atom.type);
1009     avio_read(pb, buf + 8, atom.size);
1010     return 0;
1011 }
1012
1013 static int mov_read_wave(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1014 {
1015     AVStream *st;
1016
1017     if (c->fc->nb_streams < 1)
1018         return 0;
1019     st = c->fc->streams[c->fc->nb_streams-1];
1020
1021     if ((uint64_t)atom.size > (1<<30))
1022         return AVERROR_INVALIDDATA;
1023
1024     if (st->codec->codec_id == AV_CODEC_ID_QDM2 || st->codec->codec_id == AV_CODEC_ID_QDMC) {
1025         // pass all frma atom to codec, needed at least for QDMC and QDM2
1026         av_free(st->codec->extradata);
1027         st->codec->extradata = av_mallocz(atom.size + FF_INPUT_BUFFER_PADDING_SIZE);
1028         if (!st->codec->extradata)
1029             return AVERROR(ENOMEM);
1030         st->codec->extradata_size = atom.size;
1031         avio_read(pb, st->codec->extradata, atom.size);
1032     } else if (atom.size > 8) { /* to read frma, esds atoms */
1033         int ret;
1034         if ((ret = mov_read_default(c, pb, atom)) < 0)
1035             return ret;
1036     } else
1037         avio_skip(pb, atom.size);
1038     return 0;
1039 }
1040
1041 /**
1042  * This function reads atom content and puts data in extradata without tag
1043  * nor size unlike mov_read_extradata.
1044  */
1045 static int mov_read_glbl(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1046 {
1047     AVStream *st;
1048
1049     if (c->fc->nb_streams < 1)
1050         return 0;
1051     st = c->fc->streams[c->fc->nb_streams-1];
1052
1053     if ((uint64_t)atom.size > (1<<30))
1054         return AVERROR_INVALIDDATA;
1055
1056     if (atom.size >= 10) {
1057         // Broken files created by legacy versions of libavformat will
1058         // wrap a whole fiel atom inside of a glbl atom.
1059         unsigned size = avio_rb32(pb);
1060         unsigned type = avio_rl32(pb);
1061         avio_seek(pb, -8, SEEK_CUR);
1062         if (type == MKTAG('f','i','e','l') && size == atom.size)
1063             return mov_read_default(c, pb, atom);
1064     }
1065     av_free(st->codec->extradata);
1066     st->codec->extradata = av_mallocz(atom.size + FF_INPUT_BUFFER_PADDING_SIZE);
1067     if (!st->codec->extradata)
1068         return AVERROR(ENOMEM);
1069     st->codec->extradata_size = atom.size;
1070     avio_read(pb, st->codec->extradata, atom.size);
1071     return 0;
1072 }
1073
1074 static int mov_read_dvc1(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1075 {
1076     AVStream *st;
1077     uint8_t profile_level;
1078
1079     if (c->fc->nb_streams < 1)
1080         return 0;
1081     st = c->fc->streams[c->fc->nb_streams-1];
1082
1083     if (atom.size >= (1<<28) || atom.size < 7)
1084         return AVERROR_INVALIDDATA;
1085
1086     profile_level = avio_r8(pb);
1087     if ((profile_level & 0xf0) != 0xc0)
1088         return 0;
1089
1090     av_free(st->codec->extradata);
1091     st->codec->extradata = av_mallocz(atom.size - 7 + FF_INPUT_BUFFER_PADDING_SIZE);
1092     if (!st->codec->extradata)
1093         return AVERROR(ENOMEM);
1094     st->codec->extradata_size = atom.size - 7;
1095     avio_seek(pb, 6, SEEK_CUR);
1096     avio_read(pb, st->codec->extradata, st->codec->extradata_size);
1097     return 0;
1098 }
1099
1100 /**
1101  * An strf atom is a BITMAPINFOHEADER struct. This struct is 40 bytes itself,
1102  * but can have extradata appended at the end after the 40 bytes belonging
1103  * to the struct.
1104  */
1105 static int mov_read_strf(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1106 {
1107     AVStream *st;
1108
1109     if (c->fc->nb_streams < 1)
1110         return 0;
1111     if (atom.size <= 40)
1112         return 0;
1113     st = c->fc->streams[c->fc->nb_streams-1];
1114
1115     if ((uint64_t)atom.size > (1<<30))
1116         return AVERROR_INVALIDDATA;
1117
1118     av_free(st->codec->extradata);
1119     st->codec->extradata = av_mallocz(atom.size - 40 + FF_INPUT_BUFFER_PADDING_SIZE);
1120     if (!st->codec->extradata)
1121         return AVERROR(ENOMEM);
1122     st->codec->extradata_size = atom.size - 40;
1123     avio_skip(pb, 40);
1124     avio_read(pb, st->codec->extradata, atom.size - 40);
1125     return 0;
1126 }
1127
1128 static int mov_read_stco(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1129 {
1130     AVStream *st;
1131     MOVStreamContext *sc;
1132     unsigned int i, entries;
1133
1134     if (c->fc->nb_streams < 1)
1135         return 0;
1136     st = c->fc->streams[c->fc->nb_streams-1];
1137     sc = st->priv_data;
1138
1139     avio_r8(pb); /* version */
1140     avio_rb24(pb); /* flags */
1141
1142     entries = avio_rb32(pb);
1143
1144     if (!entries)
1145         return 0;
1146     if (entries >= UINT_MAX/sizeof(int64_t))
1147         return AVERROR_INVALIDDATA;
1148
1149     sc->chunk_offsets = av_malloc(entries * sizeof(int64_t));
1150     if (!sc->chunk_offsets)
1151         return AVERROR(ENOMEM);
1152     sc->chunk_count = entries;
1153
1154     if      (atom.type == MKTAG('s','t','c','o'))
1155         for (i = 0; i < entries && !pb->eof_reached; i++)
1156             sc->chunk_offsets[i] = avio_rb32(pb);
1157     else if (atom.type == MKTAG('c','o','6','4'))
1158         for (i = 0; i < entries && !pb->eof_reached; i++)
1159             sc->chunk_offsets[i] = avio_rb64(pb);
1160     else
1161         return AVERROR_INVALIDDATA;
1162
1163     sc->chunk_count = i;
1164
1165     if (pb->eof_reached)
1166         return AVERROR_EOF;
1167
1168     return 0;
1169 }
1170
1171 /**
1172  * Compute codec id for 'lpcm' tag.
1173  * See CoreAudioTypes and AudioStreamBasicDescription at Apple.
1174  */
1175 enum AVCodecID ff_mov_get_lpcm_codec_id(int bps, int flags)
1176 {
1177     /* lpcm flags:
1178      * 0x1 = float
1179      * 0x2 = big-endian
1180      * 0x4 = signed
1181      */
1182     return ff_get_pcm_codec_id(bps, flags & 1, flags & 2, flags & 4 ? -1 : 0);
1183 }
1184
1185 static int mov_codec_id(AVStream *st, uint32_t format)
1186 {
1187     int id = ff_codec_get_id(ff_codec_movaudio_tags, format);
1188
1189     if (id <= 0 &&
1190         ((format & 0xFFFF) == 'm' + ('s' << 8) ||
1191          (format & 0xFFFF) == 'T' + ('S' << 8)))
1192         id = ff_codec_get_id(ff_codec_wav_tags, av_bswap32(format) & 0xFFFF);
1193
1194     if (st->codec->codec_type != AVMEDIA_TYPE_VIDEO && id > 0) {
1195         st->codec->codec_type = AVMEDIA_TYPE_AUDIO;
1196     } else if (st->codec->codec_type != AVMEDIA_TYPE_AUDIO &&
1197                /* skip old asf mpeg4 tag */
1198                format && format != MKTAG('m','p','4','s')) {
1199         id = ff_codec_get_id(ff_codec_movvideo_tags, format);
1200         if (id <= 0)
1201             id = ff_codec_get_id(ff_codec_bmp_tags, format);
1202         if (id > 0)
1203             st->codec->codec_type = AVMEDIA_TYPE_VIDEO;
1204         else if (st->codec->codec_type == AVMEDIA_TYPE_DATA) {
1205             id = ff_codec_get_id(ff_codec_movsubtitle_tags, format);
1206             if (id > 0)
1207                 st->codec->codec_type = AVMEDIA_TYPE_SUBTITLE;
1208         }
1209     }
1210
1211     st->codec->codec_tag = format;
1212
1213     return id;
1214 }
1215
1216 static void mov_parse_stsd_video(MOVContext *c, AVIOContext *pb,
1217                                  AVStream *st, MOVStreamContext *sc)
1218 {
1219     uint8_t codec_name[32];
1220     unsigned int color_depth, len, j;
1221     int color_greyscale;
1222     int color_table_id;
1223
1224     avio_rb16(pb); /* version */
1225     avio_rb16(pb); /* revision level */
1226     avio_rb32(pb); /* vendor */
1227     avio_rb32(pb); /* temporal quality */
1228     avio_rb32(pb); /* spatial quality */
1229
1230     st->codec->width  = avio_rb16(pb); /* width */
1231     st->codec->height = avio_rb16(pb); /* height */
1232
1233     avio_rb32(pb); /* horiz resolution */
1234     avio_rb32(pb); /* vert resolution */
1235     avio_rb32(pb); /* data size, always 0 */
1236     avio_rb16(pb); /* frames per samples */
1237
1238     len = avio_r8(pb); /* codec name, pascal string */
1239     if (len > 31)
1240         len = 31;
1241     mov_read_mac_string(c, pb, len, codec_name, sizeof(codec_name));
1242     if (len < 31)
1243         avio_skip(pb, 31 - len);
1244
1245     if (codec_name[0])
1246         av_dict_set(&st->metadata, "encoder", codec_name, 0);
1247
1248     /* codec_tag YV12 triggers an UV swap in rawdec.c */
1249     if (!memcmp(codec_name, "Planar Y'CbCr 8-bit 4:2:0", 25))
1250         st->codec->codec_tag = MKTAG('I', '4', '2', '0');
1251     /* Flash Media Server uses tag H263 with Sorenson Spark */
1252     if (st->codec->codec_tag == MKTAG('H','2','6','3') &&
1253         !memcmp(codec_name, "Sorenson H263", 13))
1254         st->codec->codec_id = AV_CODEC_ID_FLV1;
1255
1256     st->codec->bits_per_coded_sample = avio_rb16(pb); /* depth */
1257     color_table_id = avio_rb16(pb); /* colortable id */
1258     av_dlog(c->fc, "depth %d, ctab id %d\n",
1259             st->codec->bits_per_coded_sample, color_table_id);
1260     /* figure out the palette situation */
1261     color_depth     = st->codec->bits_per_coded_sample & 0x1F;
1262     color_greyscale = st->codec->bits_per_coded_sample & 0x20;
1263
1264     /* if the depth is 2, 4, or 8 bpp, file is palettized */
1265     if ((color_depth == 2) || (color_depth == 4) || (color_depth == 8)) {
1266         /* for palette traversal */
1267         unsigned int color_start, color_count, color_end;
1268         unsigned char r, g, b;
1269
1270         if (color_greyscale) {
1271             int color_index, color_dec;
1272             /* compute the greyscale palette */
1273             st->codec->bits_per_coded_sample = color_depth;
1274             color_count = 1 << color_depth;
1275             color_index = 255;
1276             color_dec   = 256 / (color_count - 1);
1277             for (j = 0; j < color_count; j++) {
1278                 r = g = b = color_index;
1279                 sc->palette[j] = (r << 16) | (g << 8) | (b);
1280                 color_index -= color_dec;
1281                 if (color_index < 0)
1282                     color_index = 0;
1283             }
1284         } else if (color_table_id) {
1285             const uint8_t *color_table;
1286             /* if flag bit 3 is set, use the default palette */
1287             color_count = 1 << color_depth;
1288             if (color_depth == 2)
1289                 color_table = ff_qt_default_palette_4;
1290             else if (color_depth == 4)
1291                 color_table = ff_qt_default_palette_16;
1292             else
1293                 color_table = ff_qt_default_palette_256;
1294
1295             for (j = 0; j < color_count; j++) {
1296                 r = color_table[j * 3 + 0];
1297                 g = color_table[j * 3 + 1];
1298                 b = color_table[j * 3 + 2];
1299                 sc->palette[j] = (r << 16) | (g << 8) | (b);
1300             }
1301         } else {
1302             /* load the palette from the file */
1303             color_start = avio_rb32(pb);
1304             color_count = avio_rb16(pb);
1305             color_end   = avio_rb16(pb);
1306             if ((color_start <= 255) && (color_end <= 255)) {
1307                 for (j = color_start; j <= color_end; j++) {
1308                     /* each R, G, or B component is 16 bits;
1309                      * only use the top 8 bits; skip alpha bytes
1310                      * up front */
1311                     avio_r8(pb);
1312                     avio_r8(pb);
1313                     r = avio_r8(pb);
1314                     avio_r8(pb);
1315                     g = avio_r8(pb);
1316                     avio_r8(pb);
1317                     b = avio_r8(pb);
1318                     avio_r8(pb);
1319                     sc->palette[j] = (r << 16) | (g << 8) | (b);
1320                 }
1321             }
1322         }
1323         sc->has_palette = 1;
1324     }
1325 }
1326
1327 static void mov_parse_stsd_audio(MOVContext *c, AVIOContext *pb,
1328                                  AVStream *st, MOVStreamContext *sc)
1329 {
1330     int bits_per_sample, flags;
1331     uint16_t version = avio_rb16(pb);
1332
1333     avio_rb16(pb); /* revision level */
1334     avio_rb32(pb); /* vendor */
1335
1336     st->codec->channels              = avio_rb16(pb); /* channel count */
1337     st->codec->bits_per_coded_sample = avio_rb16(pb); /* sample size */
1338     av_dlog(c->fc, "audio channels %d\n", st->codec->channels);
1339
1340     sc->audio_cid = avio_rb16(pb);
1341     avio_rb16(pb); /* packet size = 0 */
1342
1343     st->codec->sample_rate = ((avio_rb32(pb) >> 16));
1344
1345     // Read QT version 1 fields. In version 0 these do not exist.
1346     av_dlog(c->fc, "version =%d, isom =%d\n", version, c->isom);
1347     if (!c->isom) {
1348         if (version == 1) {
1349             sc->samples_per_frame = avio_rb32(pb);
1350             avio_rb32(pb); /* bytes per packet */
1351             sc->bytes_per_frame = avio_rb32(pb);
1352             avio_rb32(pb); /* bytes per sample */
1353         } else if (version == 2) {
1354             avio_rb32(pb); /* sizeof struct only */
1355             st->codec->sample_rate = av_int2double(avio_rb64(pb));
1356             st->codec->channels    = avio_rb32(pb);
1357             avio_rb32(pb); /* always 0x7F000000 */
1358             st->codec->bits_per_coded_sample = avio_rb32(pb);
1359
1360             flags = avio_rb32(pb); /* lpcm format specific flag */
1361             sc->bytes_per_frame   = avio_rb32(pb);
1362             sc->samples_per_frame = avio_rb32(pb);
1363             if (st->codec->codec_tag == MKTAG('l','p','c','m'))
1364                 st->codec->codec_id =
1365                     ff_mov_get_lpcm_codec_id(st->codec->bits_per_coded_sample,
1366                                              flags);
1367         }
1368     }
1369
1370     switch (st->codec->codec_id) {
1371     case AV_CODEC_ID_PCM_S8:
1372     case AV_CODEC_ID_PCM_U8:
1373         if (st->codec->bits_per_coded_sample == 16)
1374             st->codec->codec_id = AV_CODEC_ID_PCM_S16BE;
1375         break;
1376     case AV_CODEC_ID_PCM_S16LE:
1377     case AV_CODEC_ID_PCM_S16BE:
1378         if (st->codec->bits_per_coded_sample == 8)
1379             st->codec->codec_id = AV_CODEC_ID_PCM_S8;
1380         else if (st->codec->bits_per_coded_sample == 24)
1381             st->codec->codec_id =
1382                 st->codec->codec_id == AV_CODEC_ID_PCM_S16BE ?
1383                 AV_CODEC_ID_PCM_S24BE : AV_CODEC_ID_PCM_S24LE;
1384         break;
1385     /* set values for old format before stsd version 1 appeared */
1386     case AV_CODEC_ID_MACE3:
1387         sc->samples_per_frame = 6;
1388         sc->bytes_per_frame   = 2 * st->codec->channels;
1389         break;
1390     case AV_CODEC_ID_MACE6:
1391         sc->samples_per_frame = 6;
1392         sc->bytes_per_frame   = 1 * st->codec->channels;
1393         break;
1394     case AV_CODEC_ID_ADPCM_IMA_QT:
1395         sc->samples_per_frame = 64;
1396         sc->bytes_per_frame   = 34 * st->codec->channels;
1397         break;
1398     case AV_CODEC_ID_GSM:
1399         sc->samples_per_frame = 160;
1400         sc->bytes_per_frame   = 33;
1401         break;
1402     default:
1403         break;
1404     }
1405
1406     bits_per_sample = av_get_bits_per_sample(st->codec->codec_id);
1407     if (bits_per_sample) {
1408         st->codec->bits_per_coded_sample = bits_per_sample;
1409         sc->sample_size = (bits_per_sample >> 3) * st->codec->channels;
1410     }
1411 }
1412
1413 static void mov_parse_stsd_subtitle(MOVContext *c, AVIOContext *pb,
1414                                     AVStream *st, MOVStreamContext *sc,
1415                                     int size)
1416 {
1417     // ttxt stsd contains display flags, justification, background
1418     // color, fonts, and default styles, so fake an atom to read it
1419     MOVAtom fake_atom = { .size = size };
1420     // mp4s contains a regular esds atom
1421     if (st->codec->codec_tag != AV_RL32("mp4s"))
1422         mov_read_glbl(c, pb, fake_atom);
1423     st->codec->width  = sc->width;
1424     st->codec->height = sc->height;
1425 }
1426
1427 static uint32_t yuv_to_rgba(uint32_t ycbcr)
1428 {
1429     uint8_t r, g, b;
1430     int y, cb, cr;
1431
1432     y  = (ycbcr >> 16) & 0xFF;
1433     cr = (ycbcr >> 8)  & 0xFF;
1434     cb =  ycbcr        & 0xFF;
1435
1436     b = av_clip_uint8(1.164 * (y - 16)                      + 2.018 * (cb - 128));
1437     g = av_clip_uint8(1.164 * (y - 16) - 0.813 * (cr - 128) - 0.391 * (cb - 128));
1438     r = av_clip_uint8(1.164 * (y - 16) + 1.596 * (cr - 128));
1439
1440     return (r << 16) | (g << 8) | b;
1441 }
1442
1443 static int mov_rewrite_dvd_sub_extradata(AVStream *st)
1444 {
1445     char buf[256] = {0};
1446     uint8_t *src = st->codec->extradata;
1447     int i;
1448
1449     if (st->codec->extradata_size != 64)
1450         return 0;
1451
1452     if (st->codec->width > 0 &&  st->codec->height > 0)
1453         snprintf(buf, sizeof(buf), "size: %dx%d\n",
1454                  st->codec->width, st->codec->height);
1455     av_strlcat(buf, "palette: ", sizeof(buf));
1456
1457     for (i = 0; i < 16; i++) {
1458         uint32_t yuv = AV_RB32(src + i * 4);
1459         uint32_t rgba = yuv_to_rgba(yuv);
1460
1461         av_strlcatf(buf, sizeof(buf), "%06"PRIx32"%s", rgba, i != 15 ? ", " : "");
1462     }
1463
1464     if (av_strlcat(buf, "\n", sizeof(buf)) >= sizeof(buf))
1465         return 0;
1466
1467     av_freep(&st->codec->extradata);
1468     st->codec->extradata_size = 0;
1469     st->codec->extradata = av_mallocz(strlen(buf) + FF_INPUT_BUFFER_PADDING_SIZE);
1470     if (!st->codec->extradata)
1471         return AVERROR(ENOMEM);
1472     st->codec->extradata_size = strlen(buf);
1473     memcpy(st->codec->extradata, buf, st->codec->extradata_size);
1474
1475     return 0;
1476 }
1477
1478 static int mov_parse_stsd_data(MOVContext *c, AVIOContext *pb,
1479                                 AVStream *st, MOVStreamContext *sc,
1480                                 int size)
1481 {
1482     if (st->codec->codec_tag == MKTAG('t','m','c','d')) {
1483         st->codec->extradata_size = size;
1484         st->codec->extradata = av_malloc(size + FF_INPUT_BUFFER_PADDING_SIZE);
1485         if (!st->codec->extradata)
1486             return AVERROR(ENOMEM);
1487         avio_read(pb, st->codec->extradata, size);
1488     } else {
1489         /* other codec type, just skip (rtp, mp4s ...) */
1490         avio_skip(pb, size);
1491     }
1492     return 0;
1493 }
1494
1495 static int mov_finalize_stsd_codec(MOVContext *c, AVIOContext *pb,
1496                                    AVStream *st, MOVStreamContext *sc)
1497 {
1498     if (st->codec->codec_type == AVMEDIA_TYPE_AUDIO &&
1499         !st->codec->sample_rate && sc->time_scale > 1)
1500         st->codec->sample_rate = sc->time_scale;
1501
1502     /* special codec parameters handling */
1503     switch (st->codec->codec_id) {
1504 #if CONFIG_DV_DEMUXER
1505     case AV_CODEC_ID_DVAUDIO:
1506         c->dv_fctx  = avformat_alloc_context();
1507         c->dv_demux = avpriv_dv_init_demux(c->dv_fctx);
1508         if (!c->dv_demux) {
1509             av_log(c->fc, AV_LOG_ERROR, "dv demux context init error\n");
1510             return AVERROR(ENOMEM);
1511         }
1512         sc->dv_audio_container = 1;
1513         st->codec->codec_id    = AV_CODEC_ID_PCM_S16LE;
1514         break;
1515 #endif
1516     /* no ifdef since parameters are always those */
1517     case AV_CODEC_ID_QCELP:
1518         st->codec->channels = 1;
1519         // force sample rate for qcelp when not stored in mov
1520         if (st->codec->codec_tag != MKTAG('Q','c','l','p'))
1521             st->codec->sample_rate = 8000;
1522         break;
1523     case AV_CODEC_ID_AMR_NB:
1524         st->codec->channels    = 1;
1525         /* force sample rate for amr, stsd in 3gp does not store sample rate */
1526         st->codec->sample_rate = 8000;
1527         break;
1528     case AV_CODEC_ID_AMR_WB:
1529         st->codec->channels    = 1;
1530         st->codec->sample_rate = 16000;
1531         break;
1532     case AV_CODEC_ID_MP2:
1533     case AV_CODEC_ID_MP3:
1534         /* force type after stsd for m1a hdlr */
1535         st->codec->codec_type = AVMEDIA_TYPE_AUDIO;
1536         st->need_parsing      = AVSTREAM_PARSE_FULL;
1537         break;
1538     case AV_CODEC_ID_GSM:
1539     case AV_CODEC_ID_ADPCM_MS:
1540     case AV_CODEC_ID_ADPCM_IMA_WAV:
1541     case AV_CODEC_ID_ILBC:
1542         st->codec->block_align = sc->bytes_per_frame;
1543         break;
1544     case AV_CODEC_ID_ALAC:
1545         if (st->codec->extradata_size == 36) {
1546             st->codec->channels    = AV_RB8 (st->codec->extradata + 21);
1547             st->codec->sample_rate = AV_RB32(st->codec->extradata + 32);
1548         }
1549         break;
1550     case AV_CODEC_ID_VC1:
1551         st->need_parsing = AVSTREAM_PARSE_FULL;
1552         break;
1553     default:
1554         break;
1555     }
1556     return 0;
1557 }
1558
1559 static int mov_skip_multiple_stsd(MOVContext *c, AVIOContext *pb,
1560                                   int codec_tag, int format,
1561                                   int size)
1562 {
1563     int video_codec_id = ff_codec_get_id(ff_codec_movvideo_tags, format);
1564
1565     if (codec_tag &&
1566         (codec_tag == AV_RL32("avc1") ||
1567          codec_tag == AV_RL32("hvc1") ||
1568          codec_tag == AV_RL32("hev1") ||
1569          (codec_tag != format &&
1570           (c->fc->video_codec_id ? video_codec_id != c->fc->video_codec_id
1571                                  : codec_tag != MKTAG('j','p','e','g'))))) {
1572         /* Multiple fourcc, we skip JPEG. This is not correct, we should
1573          * export it as a separate AVStream but this needs a few changes
1574          * in the MOV demuxer, patch welcome. */
1575
1576         av_log(c->fc, AV_LOG_WARNING, "multiple fourcc not supported\n");
1577         avio_skip(pb, size);
1578         return 1;
1579     }
1580
1581     return 0;
1582 }
1583
1584 int ff_mov_read_stsd_entries(MOVContext *c, AVIOContext *pb, int entries)
1585 {
1586     AVStream *st;
1587     MOVStreamContext *sc;
1588     int pseudo_stream_id;
1589
1590     if (c->fc->nb_streams < 1)
1591         return 0;
1592     st = c->fc->streams[c->fc->nb_streams-1];
1593     sc = st->priv_data;
1594
1595     for (pseudo_stream_id = 0;
1596          pseudo_stream_id < entries && !pb->eof_reached;
1597          pseudo_stream_id++) {
1598         //Parsing Sample description table
1599         enum AVCodecID id;
1600         int ret, dref_id = 1;
1601         MOVAtom a = { AV_RL32("stsd") };
1602         int64_t start_pos = avio_tell(pb);
1603         uint32_t size = avio_rb32(pb); /* size */
1604         uint32_t format = avio_rl32(pb); /* data format */
1605
1606         if (size >= 16) {
1607             avio_rb32(pb); /* reserved */
1608             avio_rb16(pb); /* reserved */
1609             dref_id = avio_rb16(pb);
1610         } else {
1611             av_log(c->fc, AV_LOG_ERROR, "invalid size %"PRIu32" in stsd\n", size);
1612             return AVERROR_INVALIDDATA;
1613         }
1614
1615         if (mov_skip_multiple_stsd(c, pb, st->codec->codec_tag, format,
1616                                    size - (avio_tell(pb) - start_pos)))
1617             continue;
1618
1619         sc->pseudo_stream_id = st->codec->codec_tag ? -1 : pseudo_stream_id;
1620         sc->dref_id= dref_id;
1621
1622         id = mov_codec_id(st, format);
1623
1624         av_dlog(c->fc, "size=%"PRIu32" 4CC= %"PRIu8"%"PRIu8"%"PRIu8"%"PRIu8" codec_type=%d\n", size,
1625                 (format >> 0) & 0xff, (format >> 8) & 0xff, (format >> 16) & 0xff,
1626                 (format >> 24) & 0xff, st->codec->codec_type);
1627
1628         if (st->codec->codec_type==AVMEDIA_TYPE_VIDEO) {
1629             st->codec->codec_id = id;
1630             mov_parse_stsd_video(c, pb, st, sc);
1631         } else if (st->codec->codec_type==AVMEDIA_TYPE_AUDIO) {
1632             st->codec->codec_id = id;
1633             mov_parse_stsd_audio(c, pb, st, sc);
1634         } else if (st->codec->codec_type==AVMEDIA_TYPE_SUBTITLE){
1635             st->codec->codec_id = id;
1636             mov_parse_stsd_subtitle(c, pb, st, sc,
1637                                     size - (avio_tell(pb) - start_pos));
1638         } else {
1639             ret = mov_parse_stsd_data(c, pb, st, sc,
1640                                       size - (avio_tell(pb) - start_pos));
1641             if (ret < 0)
1642                 return ret;
1643         }
1644         /* this will read extra atoms at the end (wave, alac, damr, avcC, hvcC, SMI ...) */
1645         a.size = size - (avio_tell(pb) - start_pos);
1646         if (a.size > 8) {
1647             if ((ret = mov_read_default(c, pb, a)) < 0)
1648                 return ret;
1649         } else if (a.size > 0)
1650             avio_skip(pb, a.size);
1651     }
1652
1653     if (pb->eof_reached)
1654         return AVERROR_EOF;
1655
1656     return mov_finalize_stsd_codec(c, pb, st, sc);
1657 }
1658
1659 static int mov_read_stsd(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1660 {
1661     int entries;
1662
1663     avio_r8(pb); /* version */
1664     avio_rb24(pb); /* flags */
1665     entries = avio_rb32(pb);
1666
1667     return ff_mov_read_stsd_entries(c, pb, entries);
1668 }
1669
1670 static int mov_read_stsc(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1671 {
1672     AVStream *st;
1673     MOVStreamContext *sc;
1674     unsigned int i, entries;
1675
1676     if (c->fc->nb_streams < 1)
1677         return 0;
1678     st = c->fc->streams[c->fc->nb_streams-1];
1679     sc = st->priv_data;
1680
1681     avio_r8(pb); /* version */
1682     avio_rb24(pb); /* flags */
1683
1684     entries = avio_rb32(pb);
1685
1686     av_dlog(c->fc, "track[%i].stsc.entries = %i\n", c->fc->nb_streams-1, entries);
1687
1688     if (!entries)
1689         return 0;
1690     if (entries >= UINT_MAX / sizeof(*sc->stsc_data))
1691         return AVERROR_INVALIDDATA;
1692     sc->stsc_data = av_malloc(entries * sizeof(*sc->stsc_data));
1693     if (!sc->stsc_data)
1694         return AVERROR(ENOMEM);
1695
1696     for (i = 0; i < entries && !pb->eof_reached; i++) {
1697         sc->stsc_data[i].first = avio_rb32(pb);
1698         sc->stsc_data[i].count = avio_rb32(pb);
1699         sc->stsc_data[i].id = avio_rb32(pb);
1700     }
1701
1702     sc->stsc_count = i;
1703
1704     if (pb->eof_reached)
1705         return AVERROR_EOF;
1706
1707     return 0;
1708 }
1709
1710 static int mov_read_stps(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1711 {
1712     AVStream *st;
1713     MOVStreamContext *sc;
1714     unsigned i, entries;
1715
1716     if (c->fc->nb_streams < 1)
1717         return 0;
1718     st = c->fc->streams[c->fc->nb_streams-1];
1719     sc = st->priv_data;
1720
1721     avio_rb32(pb); // version + flags
1722
1723     entries = avio_rb32(pb);
1724     if (entries >= UINT_MAX / sizeof(*sc->stps_data))
1725         return AVERROR_INVALIDDATA;
1726     sc->stps_data = av_malloc(entries * sizeof(*sc->stps_data));
1727     if (!sc->stps_data)
1728         return AVERROR(ENOMEM);
1729
1730     for (i = 0; i < entries && !pb->eof_reached; i++) {
1731         sc->stps_data[i] = avio_rb32(pb);
1732         //av_dlog(c->fc, "stps %d\n", sc->stps_data[i]);
1733     }
1734
1735     sc->stps_count = i;
1736
1737     if (pb->eof_reached)
1738         return AVERROR_EOF;
1739
1740     return 0;
1741 }
1742
1743 static int mov_read_stss(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1744 {
1745     AVStream *st;
1746     MOVStreamContext *sc;
1747     unsigned int i, entries;
1748
1749     if (c->fc->nb_streams < 1)
1750         return 0;
1751     st = c->fc->streams[c->fc->nb_streams-1];
1752     sc = st->priv_data;
1753
1754     avio_r8(pb); /* version */
1755     avio_rb24(pb); /* flags */
1756
1757     entries = avio_rb32(pb);
1758
1759     av_dlog(c->fc, "keyframe_count = %d\n", entries);
1760
1761     if (!entries)
1762     {
1763         sc->keyframe_absent = 1;
1764         return 0;
1765     }
1766     if (entries >= UINT_MAX / sizeof(int))
1767         return AVERROR_INVALIDDATA;
1768     sc->keyframes = av_malloc(entries * sizeof(int));
1769     if (!sc->keyframes)
1770         return AVERROR(ENOMEM);
1771
1772     for (i = 0; i < entries && !pb->eof_reached; i++) {
1773         sc->keyframes[i] = avio_rb32(pb);
1774         //av_dlog(c->fc, "keyframes[]=%d\n", sc->keyframes[i]);
1775     }
1776
1777     sc->keyframe_count = i;
1778
1779     if (pb->eof_reached)
1780         return AVERROR_EOF;
1781
1782     return 0;
1783 }
1784
1785 static int mov_read_stsz(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1786 {
1787     AVStream *st;
1788     MOVStreamContext *sc;
1789     unsigned int i, entries, sample_size, field_size, num_bytes;
1790     GetBitContext gb;
1791     unsigned char* buf;
1792
1793     if (c->fc->nb_streams < 1)
1794         return 0;
1795     st = c->fc->streams[c->fc->nb_streams-1];
1796     sc = st->priv_data;
1797
1798     avio_r8(pb); /* version */
1799     avio_rb24(pb); /* flags */
1800
1801     if (atom.type == MKTAG('s','t','s','z')) {
1802         sample_size = avio_rb32(pb);
1803         if (!sc->sample_size) /* do not overwrite value computed in stsd */
1804             sc->sample_size = sample_size;
1805         field_size = 32;
1806     } else {
1807         sample_size = 0;
1808         avio_rb24(pb); /* reserved */
1809         field_size = avio_r8(pb);
1810     }
1811     entries = avio_rb32(pb);
1812
1813     av_dlog(c->fc, "sample_size = %d sample_count = %d\n", sc->sample_size, entries);
1814
1815     sc->sample_count = entries;
1816     if (sample_size)
1817         return 0;
1818
1819     if (field_size != 4 && field_size != 8 && field_size != 16 && field_size != 32) {
1820         av_log(c->fc, AV_LOG_ERROR, "Invalid sample field size %d\n", field_size);
1821         return AVERROR_INVALIDDATA;
1822     }
1823
1824     if (!entries)
1825         return 0;
1826     if (entries >= UINT_MAX / sizeof(int) || entries >= (UINT_MAX - 4) / field_size)
1827         return AVERROR_INVALIDDATA;
1828     sc->sample_sizes = av_malloc(entries * sizeof(int));
1829     if (!sc->sample_sizes)
1830         return AVERROR(ENOMEM);
1831
1832     num_bytes = (entries*field_size+4)>>3;
1833
1834     buf = av_malloc(num_bytes+FF_INPUT_BUFFER_PADDING_SIZE);
1835     if (!buf) {
1836         av_freep(&sc->sample_sizes);
1837         return AVERROR(ENOMEM);
1838     }
1839
1840     if (avio_read(pb, buf, num_bytes) < num_bytes) {
1841         av_freep(&sc->sample_sizes);
1842         av_free(buf);
1843         return AVERROR_INVALIDDATA;
1844     }
1845
1846     init_get_bits(&gb, buf, 8*num_bytes);
1847
1848     for (i = 0; i < entries && !pb->eof_reached; i++) {
1849         sc->sample_sizes[i] = get_bits_long(&gb, field_size);
1850         sc->data_size += sc->sample_sizes[i];
1851     }
1852
1853     sc->sample_count = i;
1854
1855     if (pb->eof_reached)
1856         return AVERROR_EOF;
1857
1858     av_free(buf);
1859     return 0;
1860 }
1861
1862 static int mov_read_stts(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1863 {
1864     AVStream *st;
1865     MOVStreamContext *sc;
1866     unsigned int i, entries;
1867     int64_t duration=0;
1868     int64_t total_sample_count=0;
1869
1870     if (c->fc->nb_streams < 1)
1871         return 0;
1872     st = c->fc->streams[c->fc->nb_streams-1];
1873     sc = st->priv_data;
1874
1875     avio_r8(pb); /* version */
1876     avio_rb24(pb); /* flags */
1877     entries = avio_rb32(pb);
1878
1879     av_dlog(c->fc, "track[%i].stts.entries = %i\n",
1880             c->fc->nb_streams-1, entries);
1881
1882     if (!entries)
1883         return 0;
1884     if (entries >= UINT_MAX / sizeof(*sc->stts_data))
1885         return AVERROR(EINVAL);
1886
1887     av_free(sc->stts_data);
1888     sc->stts_data = av_malloc(entries * sizeof(*sc->stts_data));
1889     if (!sc->stts_data)
1890         return AVERROR(ENOMEM);
1891
1892     for (i = 0; i < entries && !pb->eof_reached; i++) {
1893         int sample_duration;
1894         int sample_count;
1895
1896         sample_count=avio_rb32(pb);
1897         sample_duration = avio_rb32(pb);
1898         if (sample_count < 0) {
1899             av_log(c->fc, AV_LOG_ERROR, "Invalid sample_count=%d\n", sample_count);
1900             return AVERROR_INVALIDDATA;
1901         }
1902         sc->stts_data[i].count= sample_count;
1903         sc->stts_data[i].duration= sample_duration;
1904
1905         av_dlog(c->fc, "sample_count=%d, sample_duration=%d\n",
1906                 sample_count, sample_duration);
1907
1908         duration+=(int64_t)sample_duration*sample_count;
1909         total_sample_count+=sample_count;
1910     }
1911
1912     sc->stts_count = i;
1913
1914     if (pb->eof_reached)
1915         return AVERROR_EOF;
1916
1917     st->nb_frames= total_sample_count;
1918     if (duration)
1919         st->duration= duration;
1920     sc->track_end = duration;
1921     return 0;
1922 }
1923
1924 static int mov_read_ctts(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1925 {
1926     AVStream *st;
1927     MOVStreamContext *sc;
1928     unsigned int i, entries;
1929
1930     if (c->fc->nb_streams < 1)
1931         return 0;
1932     st = c->fc->streams[c->fc->nb_streams-1];
1933     sc = st->priv_data;
1934
1935     avio_r8(pb); /* version */
1936     avio_rb24(pb); /* flags */
1937     entries = avio_rb32(pb);
1938
1939     av_dlog(c->fc, "track[%i].ctts.entries = %i\n", c->fc->nb_streams-1, entries);
1940
1941     if (!entries)
1942         return 0;
1943     if (entries >= UINT_MAX / sizeof(*sc->ctts_data))
1944         return AVERROR_INVALIDDATA;
1945     sc->ctts_data = av_malloc(entries * sizeof(*sc->ctts_data));
1946     if (!sc->ctts_data)
1947         return AVERROR(ENOMEM);
1948
1949     for (i = 0; i < entries && !pb->eof_reached; i++) {
1950         int count    =avio_rb32(pb);
1951         int duration =avio_rb32(pb);
1952
1953         sc->ctts_data[i].count   = count;
1954         sc->ctts_data[i].duration= duration;
1955         if (duration < 0)
1956             sc->dts_shift = FFMAX(sc->dts_shift, -duration);
1957     }
1958
1959     sc->ctts_count = i;
1960
1961     if (pb->eof_reached)
1962         return AVERROR_EOF;
1963
1964     av_dlog(c->fc, "dts shift %d\n", sc->dts_shift);
1965
1966     return 0;
1967 }
1968
1969 static int mov_read_sbgp(MOVContext *c, AVIOContext *pb, MOVAtom atom)
1970 {
1971     AVStream *st;
1972     MOVStreamContext *sc;
1973     unsigned int i, entries;
1974     uint8_t version;
1975     uint32_t grouping_type;
1976
1977     if (c->fc->nb_streams < 1)
1978         return 0;
1979     st = c->fc->streams[c->fc->nb_streams-1];
1980     sc = st->priv_data;
1981
1982     version = avio_r8(pb); /* version */
1983     avio_rb24(pb); /* flags */
1984     grouping_type = avio_rl32(pb);
1985     if (grouping_type != MKTAG( 'r','a','p',' '))
1986         return 0; /* only support 'rap ' grouping */
1987     if (version == 1)
1988         avio_rb32(pb); /* grouping_type_parameter */
1989
1990     entries = avio_rb32(pb);
1991     if (!entries)
1992         return 0;
1993     if (entries >= UINT_MAX / sizeof(*sc->rap_group))
1994         return AVERROR_INVALIDDATA;
1995     sc->rap_group = av_malloc(entries * sizeof(*sc->rap_group));
1996     if (!sc->rap_group)
1997         return AVERROR(ENOMEM);
1998
1999     for (i = 0; i < entries && !pb->eof_reached; i++) {
2000         sc->rap_group[i].count = avio_rb32(pb); /* sample_count */
2001         sc->rap_group[i].index = avio_rb32(pb); /* group_description_index */
2002     }
2003
2004     sc->rap_group_count = i;
2005
2006     return pb->eof_reached ? AVERROR_EOF : 0;
2007 }
2008
2009 static void mov_build_index(MOVContext *mov, AVStream *st)
2010 {
2011     MOVStreamContext *sc = st->priv_data;
2012     int64_t current_offset;
2013     int64_t current_dts = 0;
2014     unsigned int stts_index = 0;
2015     unsigned int stsc_index = 0;
2016     unsigned int stss_index = 0;
2017     unsigned int stps_index = 0;
2018     unsigned int i, j;
2019     uint64_t stream_size = 0;
2020
2021     /* adjust first dts according to edit list */
2022     if (sc->time_offset && mov->time_scale > 0) {
2023         if (sc->time_offset < 0)
2024             sc->time_offset = av_rescale(sc->time_offset, sc->time_scale, mov->time_scale);
2025         current_dts = -sc->time_offset;
2026         if (sc->ctts_data && sc->stts_data && sc->stts_data[0].duration &&
2027             sc->ctts_data[0].duration / sc->stts_data[0].duration > 16) {
2028             /* more than 16 frames delay, dts are likely wrong
2029                this happens with files created by iMovie */
2030             sc->wrong_dts = 1;
2031             st->codec->has_b_frames = 1;
2032         }
2033     }
2034
2035     /* only use old uncompressed audio chunk demuxing when stts specifies it */
2036     if (!(st->codec->codec_type == AVMEDIA_TYPE_AUDIO &&
2037           sc->stts_count == 1 && sc->stts_data[0].duration == 1)) {
2038         unsigned int current_sample = 0;
2039         unsigned int stts_sample = 0;
2040         unsigned int sample_size;
2041         unsigned int distance = 0;
2042         unsigned int rap_group_index = 0;
2043         unsigned int rap_group_sample = 0;
2044         int rap_group_present = sc->rap_group_count && sc->rap_group;
2045         int key_off = (sc->keyframes && sc->keyframes[0] > 0) || (sc->stps_data && sc->stps_data[0] > 0);
2046
2047         current_dts -= sc->dts_shift;
2048
2049         if (!sc->sample_count)
2050             return;
2051         if (sc->sample_count >= UINT_MAX / sizeof(*st->index_entries) - st->nb_index_entries)
2052             return;
2053         if (av_reallocp_array(&st->index_entries,
2054                               st->nb_index_entries + sc->sample_count,
2055                               sizeof(*st->index_entries)) < 0) {
2056             st->nb_index_entries = 0;
2057             return;
2058         }
2059         st->index_entries_allocated_size = (st->nb_index_entries + sc->sample_count) * sizeof(*st->index_entries);
2060
2061         for (i = 0; i < sc->chunk_count; i++) {
2062             current_offset = sc->chunk_offsets[i];
2063             while (stsc_index + 1 < sc->stsc_count &&
2064                 i + 1 == sc->stsc_data[stsc_index + 1].first)
2065                 stsc_index++;
2066             for (j = 0; j < sc->stsc_data[stsc_index].count; j++) {
2067                 int keyframe = 0;
2068                 if (current_sample >= sc->sample_count) {
2069                     av_log(mov->fc, AV_LOG_ERROR, "wrong sample count\n");
2070                     return;
2071                 }
2072
2073                 if (!sc->keyframe_absent && (!sc->keyframe_count || current_sample+key_off == sc->keyframes[stss_index])) {
2074                     keyframe = 1;
2075                     if (stss_index + 1 < sc->keyframe_count)
2076                         stss_index++;
2077                 } else if (sc->stps_count && current_sample+key_off == sc->stps_data[stps_index]) {
2078                     keyframe = 1;
2079                     if (stps_index + 1 < sc->stps_count)
2080                         stps_index++;
2081                 }
2082                 if (rap_group_present && rap_group_index < sc->rap_group_count) {
2083                     if (sc->rap_group[rap_group_index].index > 0)
2084                         keyframe = 1;
2085                     if (++rap_group_sample == sc->rap_group[rap_group_index].count) {
2086                         rap_group_sample = 0;
2087                         rap_group_index++;
2088                     }
2089                 }
2090                 if (keyframe)
2091                     distance = 0;
2092                 sample_size = sc->sample_size > 0 ? sc->sample_size : sc->sample_sizes[current_sample];
2093                 if (sc->pseudo_stream_id == -1 ||
2094                    sc->stsc_data[stsc_index].id - 1 == sc->pseudo_stream_id) {
2095                     AVIndexEntry *e = &st->index_entries[st->nb_index_entries++];
2096                     e->pos = current_offset;
2097                     e->timestamp = current_dts;
2098                     e->size = sample_size;
2099                     e->min_distance = distance;
2100                     e->flags = keyframe ? AVINDEX_KEYFRAME : 0;
2101                     av_dlog(mov->fc, "AVIndex stream %d, sample %d, offset %"PRIx64", dts %"PRId64", "
2102                             "size %d, distance %d, keyframe %d\n", st->index, current_sample,
2103                             current_offset, current_dts, sample_size, distance, keyframe);
2104                 }
2105
2106                 current_offset += sample_size;
2107                 stream_size += sample_size;
2108                 current_dts += sc->stts_data[stts_index].duration;
2109                 distance++;
2110                 stts_sample++;
2111                 current_sample++;
2112                 if (stts_index + 1 < sc->stts_count && stts_sample == sc->stts_data[stts_index].count) {
2113                     stts_sample = 0;
2114                     stts_index++;
2115                 }
2116             }
2117         }
2118         if (st->duration > 0)
2119             st->codec->bit_rate = stream_size*8*sc->time_scale/st->duration;
2120     } else {
2121         unsigned chunk_samples, total = 0;
2122
2123         // compute total chunk count
2124         for (i = 0; i < sc->stsc_count; i++) {
2125             unsigned count, chunk_count;
2126
2127             chunk_samples = sc->stsc_data[i].count;
2128             if (i != sc->stsc_count - 1 &&
2129                 sc->samples_per_frame && chunk_samples % sc->samples_per_frame) {
2130                 av_log(mov->fc, AV_LOG_ERROR, "error unaligned chunk\n");
2131                 return;
2132             }
2133
2134             if (sc->samples_per_frame >= 160) { // gsm
2135                 count = chunk_samples / sc->samples_per_frame;
2136             } else if (sc->samples_per_frame > 1) {
2137                 unsigned samples = (1024/sc->samples_per_frame)*sc->samples_per_frame;
2138                 count = (chunk_samples+samples-1) / samples;
2139             } else {
2140                 count = (chunk_samples+1023) / 1024;
2141             }
2142
2143             if (i < sc->stsc_count - 1)
2144                 chunk_count = sc->stsc_data[i+1].first - sc->stsc_data[i].first;
2145             else
2146                 chunk_count = sc->chunk_count - (sc->stsc_data[i].first - 1);
2147             total += chunk_count * count;
2148         }
2149
2150         av_dlog(mov->fc, "chunk count %d\n", total);
2151         if (total >= UINT_MAX / sizeof(*st->index_entries) - st->nb_index_entries)
2152             return;
2153         if (av_reallocp_array(&st->index_entries,
2154                               st->nb_index_entries + total,
2155                               sizeof(*st->index_entries)) < 0) {
2156             st->nb_index_entries = 0;
2157             return;
2158         }
2159         st->index_entries_allocated_size = (st->nb_index_entries + total) * sizeof(*st->index_entries);
2160
2161         // populate index
2162         for (i = 0; i < sc->chunk_count; i++) {
2163             current_offset = sc->chunk_offsets[i];
2164             if (stsc_index + 1 < sc->stsc_count &&
2165                 i + 1 == sc->stsc_data[stsc_index + 1].first)
2166                 stsc_index++;
2167             chunk_samples = sc->stsc_data[stsc_index].count;
2168
2169             while (chunk_samples > 0) {
2170                 AVIndexEntry *e;
2171                 unsigned size, samples;
2172
2173                 if (sc->samples_per_frame >= 160) { // gsm
2174                     samples = sc->samples_per_frame;
2175                     size = sc->bytes_per_frame;
2176                 } else {
2177                     if (sc->samples_per_frame > 1) {
2178                         samples = FFMIN((1024 / sc->samples_per_frame)*
2179                                         sc->samples_per_frame, chunk_samples);
2180                         size = (samples / sc->samples_per_frame) * sc->bytes_per_frame;
2181                     } else {
2182                         samples = FFMIN(1024, chunk_samples);
2183                         size = samples * sc->sample_size;
2184                     }
2185                 }
2186
2187                 if (st->nb_index_entries >= total) {
2188                     av_log(mov->fc, AV_LOG_ERROR, "wrong chunk count %d\n", total);
2189                     return;
2190                 }
2191                 e = &st->index_entries[st->nb_index_entries++];
2192                 e->pos = current_offset;
2193                 e->timestamp = current_dts;
2194                 e->size = size;
2195                 e->min_distance = 0;
2196                 e->flags = AVINDEX_KEYFRAME;
2197                 av_dlog(mov->fc, "AVIndex stream %d, chunk %d, offset %"PRIx64", dts %"PRId64", "
2198                         "size %d, duration %d\n", st->index, i, current_offset, current_dts,
2199                         size, samples);
2200
2201                 current_offset += size;
2202                 current_dts += samples;
2203                 chunk_samples -= samples;
2204             }
2205         }
2206     }
2207 }
2208
2209 static int mov_open_dref(AVIOContext **pb, char *src, MOVDref *ref,
2210                          AVIOInterruptCB *int_cb)
2211 {
2212     /* try relative path, we do not try the absolute because it can leak information about our
2213        system to an attacker */
2214     if (ref->nlvl_to > 0 && ref->nlvl_from > 0) {
2215         char filename[1024];
2216         char *src_path;
2217         int i, l;
2218
2219         /* find a source dir */
2220         src_path = strrchr(src, '/');
2221         if (src_path)
2222             src_path++;
2223         else
2224             src_path = src;
2225
2226         /* find a next level down to target */
2227         for (i = 0, l = strlen(ref->path) - 1; l >= 0; l--)
2228             if (ref->path[l] == '/') {
2229                 if (i == ref->nlvl_to - 1)
2230                     break;
2231                 else
2232                     i++;
2233             }
2234
2235         /* compose filename if next level down to target was found */
2236         if (i == ref->nlvl_to - 1 && src_path - src  < sizeof(filename)) {
2237             memcpy(filename, src, src_path - src);
2238             filename[src_path - src] = 0;
2239
2240             for (i = 1; i < ref->nlvl_from; i++)
2241                 av_strlcat(filename, "../", 1024);
2242
2243             av_strlcat(filename, ref->path + l + 1, 1024);
2244
2245             if (!avio_open2(pb, filename, AVIO_FLAG_READ, int_cb, NULL))
2246                 return 0;
2247         }
2248     }
2249
2250     return AVERROR(ENOENT);
2251 }
2252
2253 static int mov_read_trak(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2254 {
2255     AVStream *st;
2256     MOVStreamContext *sc;
2257     int ret;
2258
2259     st = avformat_new_stream(c->fc, NULL);
2260     if (!st) return AVERROR(ENOMEM);
2261     st->id = c->fc->nb_streams;
2262     sc = av_mallocz(sizeof(MOVStreamContext));
2263     if (!sc) return AVERROR(ENOMEM);
2264
2265     st->priv_data = sc;
2266     st->codec->codec_type = AVMEDIA_TYPE_DATA;
2267     sc->ffindex = st->index;
2268
2269     if ((ret = mov_read_default(c, pb, atom)) < 0)
2270         return ret;
2271
2272     /* sanity checks */
2273     if (sc->chunk_count && (!sc->stts_count || !sc->stsc_count ||
2274                             (!sc->sample_size && !sc->sample_count))) {
2275         av_log(c->fc, AV_LOG_ERROR, "stream %d, missing mandatory atoms, broken header\n",
2276                st->index);
2277         return 0;
2278     }
2279
2280     if (sc->time_scale <= 0) {
2281         av_log(c->fc, AV_LOG_WARNING, "stream %d, timescale not set\n", st->index);
2282         sc->time_scale = c->time_scale;
2283         if (sc->time_scale <= 0)
2284             sc->time_scale = 1;
2285     }
2286
2287     avpriv_set_pts_info(st, 64, 1, sc->time_scale);
2288
2289     mov_build_index(c, st);
2290
2291     if (sc->dref_id-1 < sc->drefs_count && sc->drefs[sc->dref_id-1].path) {
2292         MOVDref *dref = &sc->drefs[sc->dref_id - 1];
2293         if (mov_open_dref(&sc->pb, c->fc->filename, dref, &c->fc->interrupt_callback) < 0)
2294             av_log(c->fc, AV_LOG_ERROR,
2295                    "stream %d, error opening alias: path='%s', dir='%s', "
2296                    "filename='%s', volume='%s', nlvl_from=%d, nlvl_to=%d\n",
2297                    st->index, dref->path, dref->dir, dref->filename,
2298                    dref->volume, dref->nlvl_from, dref->nlvl_to);
2299     } else
2300         sc->pb = c->fc->pb;
2301
2302     if (st->codec->codec_type == AVMEDIA_TYPE_VIDEO) {
2303         if (!st->sample_aspect_ratio.num &&
2304             (st->codec->width != sc->width || st->codec->height != sc->height)) {
2305             st->sample_aspect_ratio = av_d2q(((double)st->codec->height * sc->width) /
2306                                              ((double)st->codec->width * sc->height), INT_MAX);
2307         }
2308     }
2309
2310     // done for ai5q, ai52, ai55, ai1q, ai12 and ai15.
2311     if (!st->codec->extradata_size && st->codec->codec_id == AV_CODEC_ID_H264 &&
2312         TAG_IS_AVCI(st->codec->codec_tag)) {
2313         ret = ff_generate_avci_extradata(st);
2314         if (ret < 0)
2315             return ret;
2316     }
2317
2318     switch (st->codec->codec_id) {
2319 #if CONFIG_H261_DECODER
2320     case AV_CODEC_ID_H261:
2321 #endif
2322 #if CONFIG_H263_DECODER
2323     case AV_CODEC_ID_H263:
2324 #endif
2325 #if CONFIG_MPEG4_DECODER
2326     case AV_CODEC_ID_MPEG4:
2327 #endif
2328         st->codec->width = 0; /* let decoder init width/height */
2329         st->codec->height= 0;
2330         break;
2331     }
2332
2333     /* Do not need those anymore. */
2334     av_freep(&sc->chunk_offsets);
2335     av_freep(&sc->stsc_data);
2336     av_freep(&sc->sample_sizes);
2337     av_freep(&sc->keyframes);
2338     av_freep(&sc->stts_data);
2339     av_freep(&sc->stps_data);
2340     av_freep(&sc->rap_group);
2341
2342     return 0;
2343 }
2344
2345 static int mov_read_ilst(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2346 {
2347     int ret;
2348     c->itunes_metadata = 1;
2349     ret = mov_read_default(c, pb, atom);
2350     c->itunes_metadata = 0;
2351     return ret;
2352 }
2353
2354 static int mov_read_replaygain(MOVContext *c, AVIOContext *pb, int size)
2355 {
2356     int64_t end = avio_tell(pb) + size;
2357     uint8_t *key = NULL, *val = NULL;
2358     int i;
2359
2360     for (i = 0; i < 2; i++) {
2361         uint8_t **p;
2362         uint32_t len, tag;
2363
2364         if (end - avio_tell(pb) <= 12)
2365             break;
2366
2367         len = avio_rb32(pb);
2368         tag = avio_rl32(pb);
2369         avio_skip(pb, 4); // flags
2370
2371         if (len < 12 || len - 12 > end - avio_tell(pb))
2372             break;
2373         len -= 12;
2374
2375         if (tag == MKTAG('n', 'a', 'm', 'e'))
2376             p = &key;
2377         else if (tag == MKTAG('d', 'a', 't', 'a') && len > 4) {
2378             avio_skip(pb, 4);
2379             len -= 4;
2380             p = &val;
2381         } else
2382             break;
2383
2384         *p = av_malloc(len + 1);
2385         if (!*p)
2386             break;
2387         avio_read(pb, *p, len);
2388         (*p)[len] = 0;
2389     }
2390
2391     if (key && val) {
2392         av_dict_set(&c->fc->metadata, key, val,
2393                     AV_DICT_DONT_STRDUP_KEY | AV_DICT_DONT_STRDUP_VAL);
2394         key = val = NULL;
2395     }
2396
2397     avio_seek(pb, end, SEEK_SET);
2398     av_freep(&key);
2399     av_freep(&val);
2400     return 0;
2401 }
2402
2403 static int mov_read_custom(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2404 {
2405     int64_t end = avio_tell(pb) + atom.size;
2406     uint32_t tag, len;
2407
2408     if (atom.size < 8)
2409         goto fail;
2410
2411     len = avio_rb32(pb);
2412     tag = avio_rl32(pb);
2413
2414     if (len > atom.size)
2415         goto fail;
2416
2417     if (tag == MKTAG('m', 'e', 'a', 'n') && len > 12) {
2418         uint8_t domain[128];
2419         int domain_len;
2420
2421         avio_skip(pb, 4); // flags
2422         len -= 12;
2423
2424         domain_len = avio_get_str(pb, len, domain, sizeof(domain));
2425         avio_skip(pb, len - domain_len);
2426         if (!strcmp(domain, "org.hydrogenaudio.replaygain"))
2427             return mov_read_replaygain(c, pb, end - avio_tell(pb));
2428     }
2429
2430 fail:
2431     av_log(c->fc, AV_LOG_VERBOSE,
2432            "Unhandled or malformed custom metadata of size %"PRId64"\n", atom.size);
2433     return 0;
2434 }
2435
2436 static int mov_read_meta(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2437 {
2438     while (atom.size > 8) {
2439         uint32_t tag = avio_rl32(pb);
2440         atom.size -= 4;
2441         if (tag == MKTAG('h','d','l','r')) {
2442             avio_seek(pb, -8, SEEK_CUR);
2443             atom.size += 8;
2444             return mov_read_default(c, pb, atom);
2445         }
2446     }
2447     return 0;
2448 }
2449
2450 static int mov_read_tkhd(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2451 {
2452     int i;
2453     int width;
2454     int height;
2455     int64_t disp_transform[2];
2456     int display_matrix[3][3];
2457     AVStream *st;
2458     MOVStreamContext *sc;
2459     int version;
2460     int flags;
2461
2462     if (c->fc->nb_streams < 1)
2463         return 0;
2464     st = c->fc->streams[c->fc->nb_streams-1];
2465     sc = st->priv_data;
2466
2467     version = avio_r8(pb);
2468     flags = avio_rb24(pb);
2469     st->disposition |= (flags & MOV_TKHD_FLAG_ENABLED) ? AV_DISPOSITION_DEFAULT : 0;
2470
2471     if (version == 1) {
2472         avio_rb64(pb);
2473         avio_rb64(pb);
2474     } else {
2475         avio_rb32(pb); /* creation time */
2476         avio_rb32(pb); /* modification time */
2477     }
2478     st->id = (int)avio_rb32(pb); /* track id (NOT 0 !)*/
2479     avio_rb32(pb); /* reserved */
2480
2481     /* highlevel (considering edits) duration in movie timebase */
2482     (version == 1) ? avio_rb64(pb) : avio_rb32(pb);
2483     avio_rb32(pb); /* reserved */
2484     avio_rb32(pb); /* reserved */
2485
2486     avio_rb16(pb); /* layer */
2487     avio_rb16(pb); /* alternate group */
2488     avio_rb16(pb); /* volume */
2489     avio_rb16(pb); /* reserved */
2490
2491     //read in the display matrix (outlined in ISO 14496-12, Section 6.2.2)
2492     // they're kept in fixed point format through all calculations
2493     // save u,v,z to store the whole matrix in the AV_PKT_DATA_DISPLAYMATRIX
2494     // side data, but the scale factor is not needed to calculate aspect ratio
2495     for (i = 0; i < 3; i++) {
2496         display_matrix[i][0] = avio_rb32(pb);   // 16.16 fixed point
2497         display_matrix[i][1] = avio_rb32(pb);   // 16.16 fixed point
2498         display_matrix[i][2] = avio_rb32(pb);   //  2.30 fixed point
2499     }
2500
2501     width = avio_rb32(pb);       // 16.16 fixed point track width
2502     height = avio_rb32(pb);      // 16.16 fixed point track height
2503     sc->width = width >> 16;
2504     sc->height = height >> 16;
2505
2506     // save the matrix when it is not the default identity
2507     if (display_matrix[0][0] != (1 << 16) ||
2508         display_matrix[1][1] != (1 << 16) ||
2509         display_matrix[2][2] != (1 << 30) ||
2510         display_matrix[0][1] || display_matrix[0][2] ||
2511         display_matrix[1][0] || display_matrix[1][2] ||
2512         display_matrix[2][0] || display_matrix[2][1]) {
2513         int i, j;
2514
2515         av_freep(&sc->display_matrix);
2516         sc->display_matrix = av_malloc(sizeof(int32_t) * 9);
2517         if (!sc->display_matrix)
2518             return AVERROR(ENOMEM);
2519
2520         for (i = 0; i < 3; i++)
2521             for (j = 0; j < 3; j++)
2522                 sc->display_matrix[i * 3 + j] = display_matrix[j][i];
2523     }
2524
2525     // transform the display width/height according to the matrix
2526     // skip this if the display matrix is the default identity matrix
2527     // or if it is rotating the picture, ex iPhone 3GS
2528     // to keep the same scale, use [width height 1<<16]
2529     if (width && height &&
2530         ((display_matrix[0][0] != 65536  ||
2531           display_matrix[1][1] != 65536) &&
2532          !display_matrix[0][1] &&
2533          !display_matrix[1][0] &&
2534          !display_matrix[2][0] && !display_matrix[2][1])) {
2535         for (i = 0; i < 2; i++)
2536             disp_transform[i] =
2537                 (int64_t)  width  * display_matrix[0][i] +
2538                 (int64_t)  height * display_matrix[1][i] +
2539                 ((int64_t) display_matrix[2][i] << 16);
2540
2541         //sample aspect ratio is new width/height divided by old width/height
2542         st->sample_aspect_ratio = av_d2q(
2543             ((double) disp_transform[0] * height) /
2544             ((double) disp_transform[1] * width), INT_MAX);
2545     }
2546     return 0;
2547 }
2548
2549 static int mov_read_tfhd(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2550 {
2551     MOVFragment *frag = &c->fragment;
2552     MOVTrackExt *trex = NULL;
2553     int flags, track_id, i;
2554
2555     avio_r8(pb); /* version */
2556     flags = avio_rb24(pb);
2557
2558     track_id = avio_rb32(pb);
2559     if (!track_id)
2560         return AVERROR_INVALIDDATA;
2561     frag->track_id = track_id;
2562     for (i = 0; i < c->trex_count; i++)
2563         if (c->trex_data[i].track_id == frag->track_id) {
2564             trex = &c->trex_data[i];
2565             break;
2566         }
2567     if (!trex) {
2568         av_log(c->fc, AV_LOG_ERROR, "could not find corresponding trex\n");
2569         return AVERROR_INVALIDDATA;
2570     }
2571
2572     frag->base_data_offset = flags & MOV_TFHD_BASE_DATA_OFFSET ?
2573                              avio_rb64(pb) : flags & MOV_TFHD_DEFAULT_BASE_IS_MOOF ?
2574                              frag->moof_offset : frag->implicit_offset;
2575     frag->stsd_id  = flags & MOV_TFHD_STSD_ID ? avio_rb32(pb) : trex->stsd_id;
2576
2577     frag->duration = flags & MOV_TFHD_DEFAULT_DURATION ?
2578                      avio_rb32(pb) : trex->duration;
2579     frag->size     = flags & MOV_TFHD_DEFAULT_SIZE ?
2580                      avio_rb32(pb) : trex->size;
2581     frag->flags    = flags & MOV_TFHD_DEFAULT_FLAGS ?
2582                      avio_rb32(pb) : trex->flags;
2583     av_dlog(c->fc, "frag flags 0x%x\n", frag->flags);
2584     return 0;
2585 }
2586
2587 static int mov_read_chap(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2588 {
2589     c->chapter_track = avio_rb32(pb);
2590     return 0;
2591 }
2592
2593 static int mov_read_trex(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2594 {
2595     MOVTrackExt *trex;
2596     int err;
2597
2598     if ((uint64_t)c->trex_count+1 >= UINT_MAX / sizeof(*c->trex_data))
2599         return AVERROR_INVALIDDATA;
2600     if ((err = av_reallocp_array(&c->trex_data, c->trex_count + 1,
2601                                  sizeof(*c->trex_data))) < 0) {
2602         c->trex_count = 0;
2603         return err;
2604     }
2605     trex = &c->trex_data[c->trex_count++];
2606     avio_r8(pb); /* version */
2607     avio_rb24(pb); /* flags */
2608     trex->track_id = avio_rb32(pb);
2609     trex->stsd_id  = avio_rb32(pb);
2610     trex->duration = avio_rb32(pb);
2611     trex->size     = avio_rb32(pb);
2612     trex->flags    = avio_rb32(pb);
2613     return 0;
2614 }
2615
2616 static int mov_read_tfdt(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2617 {
2618     MOVFragment *frag = &c->fragment;
2619     AVStream *st = NULL;
2620     MOVStreamContext *sc;
2621     int version, i;
2622
2623     for (i = 0; i < c->fc->nb_streams; i++) {
2624         if (c->fc->streams[i]->id == frag->track_id) {
2625             st = c->fc->streams[i];
2626             break;
2627         }
2628     }
2629     if (!st) {
2630         av_log(c->fc, AV_LOG_ERROR, "could not find corresponding track id %d\n", frag->track_id);
2631         return AVERROR_INVALIDDATA;
2632     }
2633     sc = st->priv_data;
2634     if (sc->pseudo_stream_id + 1 != frag->stsd_id)
2635         return 0;
2636     version = avio_r8(pb);
2637     avio_rb24(pb); /* flags */
2638     if (version) {
2639         sc->track_end = avio_rb64(pb);
2640     } else {
2641         sc->track_end = avio_rb32(pb);
2642     }
2643     return 0;
2644 }
2645
2646 static int mov_read_trun(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2647 {
2648     MOVFragment *frag = &c->fragment;
2649     AVStream *st = NULL;
2650     MOVStreamContext *sc;
2651     MOVStts *ctts_data;
2652     uint64_t offset;
2653     int64_t dts;
2654     int data_offset = 0;
2655     unsigned entries, first_sample_flags = frag->flags;
2656     int flags, distance, i, found_keyframe = 0, err;
2657
2658     for (i = 0; i < c->fc->nb_streams; i++) {
2659         if (c->fc->streams[i]->id == frag->track_id) {
2660             st = c->fc->streams[i];
2661             break;
2662         }
2663     }
2664     if (!st) {
2665         av_log(c->fc, AV_LOG_ERROR, "could not find corresponding track id %d\n", frag->track_id);
2666         return AVERROR_INVALIDDATA;
2667     }
2668     sc = st->priv_data;
2669     if (sc->pseudo_stream_id+1 != frag->stsd_id)
2670         return 0;
2671     avio_r8(pb); /* version */
2672     flags = avio_rb24(pb);
2673     entries = avio_rb32(pb);
2674     av_dlog(c->fc, "flags 0x%x entries %d\n", flags, entries);
2675
2676     /* Always assume the presence of composition time offsets.
2677      * Without this assumption, for instance, we cannot deal with a track in fragmented movies that meet the following.
2678      *  1) in the initial movie, there are no samples.
2679      *  2) in the first movie fragment, there is only one sample without composition time offset.
2680      *  3) in the subsequent movie fragments, there are samples with composition time offset. */
2681     if (!sc->ctts_count && sc->sample_count)
2682     {
2683         /* Complement ctts table if moov atom doesn't have ctts atom. */
2684         ctts_data = av_realloc(NULL, sizeof(*sc->ctts_data));
2685         if (!ctts_data)
2686             return AVERROR(ENOMEM);
2687         sc->ctts_data = ctts_data;
2688         sc->ctts_data[sc->ctts_count].count = sc->sample_count;
2689         sc->ctts_data[sc->ctts_count].duration = 0;
2690         sc->ctts_count++;
2691     }
2692     if ((uint64_t)entries+sc->ctts_count >= UINT_MAX/sizeof(*sc->ctts_data))
2693         return AVERROR_INVALIDDATA;
2694     if ((err = av_reallocp_array(&sc->ctts_data, entries + sc->ctts_count,
2695                                  sizeof(*sc->ctts_data))) < 0) {
2696         sc->ctts_count = 0;
2697         return err;
2698     }
2699     if (flags & MOV_TRUN_DATA_OFFSET)        data_offset        = avio_rb32(pb);
2700     if (flags & MOV_TRUN_FIRST_SAMPLE_FLAGS) first_sample_flags = avio_rb32(pb);
2701     dts    = sc->track_end - sc->time_offset;
2702     offset = frag->base_data_offset + data_offset;
2703     distance = 0;
2704     av_dlog(c->fc, "first sample flags 0x%x\n", first_sample_flags);
2705     for (i = 0; i < entries && !pb->eof_reached; i++) {
2706         unsigned sample_size = frag->size;
2707         int sample_flags = i ? frag->flags : first_sample_flags;
2708         unsigned sample_duration = frag->duration;
2709         int keyframe = 0;
2710
2711         if (flags & MOV_TRUN_SAMPLE_DURATION) sample_duration = avio_rb32(pb);
2712         if (flags & MOV_TRUN_SAMPLE_SIZE)     sample_size     = avio_rb32(pb);
2713         if (flags & MOV_TRUN_SAMPLE_FLAGS)    sample_flags    = avio_rb32(pb);
2714         sc->ctts_data[sc->ctts_count].count = 1;
2715         sc->ctts_data[sc->ctts_count].duration = (flags & MOV_TRUN_SAMPLE_CTS) ?
2716                                                   avio_rb32(pb) : 0;
2717         sc->ctts_count++;
2718         if (st->codec->codec_type == AVMEDIA_TYPE_AUDIO)
2719             keyframe = 1;
2720         else if (!found_keyframe)
2721             keyframe = found_keyframe =
2722                 !(sample_flags & (MOV_FRAG_SAMPLE_FLAG_IS_NON_SYNC |
2723                                   MOV_FRAG_SAMPLE_FLAG_DEPENDS_YES));
2724         if (keyframe)
2725             distance = 0;
2726         av_add_index_entry(st, offset, dts, sample_size, distance,
2727                            keyframe ? AVINDEX_KEYFRAME : 0);
2728         av_dlog(c->fc, "AVIndex stream %d, sample %d, offset %"PRIx64", dts %"PRId64", "
2729                 "size %d, distance %d, keyframe %d\n", st->index, sc->sample_count+i,
2730                 offset, dts, sample_size, distance, keyframe);
2731         distance++;
2732         dts += sample_duration;
2733         offset += sample_size;
2734         sc->data_size += sample_size;
2735     }
2736
2737     if (pb->eof_reached)
2738         return AVERROR_EOF;
2739
2740     frag->implicit_offset = offset;
2741     st->duration = sc->track_end = dts + sc->time_offset;
2742     return 0;
2743 }
2744
2745 /* this atom should be null (from specs), but some buggy files put the 'moov' atom inside it... */
2746 /* like the files created with Adobe Premiere 5.0, for samples see */
2747 /* http://graphics.tudelft.nl/~wouter/publications/soundtests/ */
2748 static int mov_read_wide(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2749 {
2750     int err;
2751
2752     if (atom.size < 8)
2753         return 0; /* continue */
2754     if (avio_rb32(pb) != 0) { /* 0 sized mdat atom... use the 'wide' atom size */
2755         avio_skip(pb, atom.size - 4);
2756         return 0;
2757     }
2758     atom.type = avio_rl32(pb);
2759     atom.size -= 8;
2760     if (atom.type != MKTAG('m','d','a','t')) {
2761         avio_skip(pb, atom.size);
2762         return 0;
2763     }
2764     err = mov_read_mdat(c, pb, atom);
2765     return err;
2766 }
2767
2768 static int mov_read_cmov(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2769 {
2770 #if CONFIG_ZLIB
2771     AVIOContext ctx;
2772     uint8_t *cmov_data;
2773     uint8_t *moov_data; /* uncompressed data */
2774     long cmov_len, moov_len;
2775     int ret = -1;
2776
2777     avio_rb32(pb); /* dcom atom */
2778     if (avio_rl32(pb) != MKTAG('d','c','o','m'))
2779         return AVERROR_INVALIDDATA;
2780     if (avio_rl32(pb) != MKTAG('z','l','i','b')) {
2781         av_log(c->fc, AV_LOG_ERROR, "unknown compression for cmov atom !");
2782         return AVERROR_INVALIDDATA;
2783     }
2784     avio_rb32(pb); /* cmvd atom */
2785     if (avio_rl32(pb) != MKTAG('c','m','v','d'))
2786         return AVERROR_INVALIDDATA;
2787     moov_len = avio_rb32(pb); /* uncompressed size */
2788     cmov_len = atom.size - 6 * 4;
2789
2790     cmov_data = av_malloc(cmov_len);
2791     if (!cmov_data)
2792         return AVERROR(ENOMEM);
2793     moov_data = av_malloc(moov_len);
2794     if (!moov_data) {
2795         av_free(cmov_data);
2796         return AVERROR(ENOMEM);
2797     }
2798     avio_read(pb, cmov_data, cmov_len);
2799     if (uncompress (moov_data, (uLongf *) &moov_len, (const Bytef *)cmov_data, cmov_len) != Z_OK)
2800         goto free_and_return;
2801     if (ffio_init_context(&ctx, moov_data, moov_len, 0, NULL, NULL, NULL, NULL) != 0)
2802         goto free_and_return;
2803     atom.type = MKTAG('m','o','o','v');
2804     atom.size = moov_len;
2805     ret = mov_read_default(c, &ctx, atom);
2806 free_and_return:
2807     av_free(moov_data);
2808     av_free(cmov_data);
2809     return ret;
2810 #else
2811     av_log(c->fc, AV_LOG_ERROR, "this file requires zlib support compiled in\n");
2812     return AVERROR(ENOSYS);
2813 #endif
2814 }
2815
2816 /* edit list atom */
2817 static int mov_read_elst(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2818 {
2819     MOVStreamContext *sc;
2820     int i, edit_count, version;
2821
2822     if (c->fc->nb_streams < 1)
2823         return 0;
2824     sc = c->fc->streams[c->fc->nb_streams-1]->priv_data;
2825
2826     version = avio_r8(pb); /* version */
2827     avio_rb24(pb); /* flags */
2828     edit_count = avio_rb32(pb); /* entries */
2829
2830     if ((uint64_t)edit_count*12+8 > atom.size)
2831         return AVERROR_INVALIDDATA;
2832
2833     for (i=0; i<edit_count; i++){
2834         int64_t time;
2835         int64_t duration;
2836         if (version == 1) {
2837             duration = avio_rb64(pb);
2838             time     = avio_rb64(pb);
2839         } else {
2840             duration = avio_rb32(pb); /* segment duration */
2841             time     = (int32_t)avio_rb32(pb); /* media time */
2842         }
2843         avio_rb32(pb); /* Media rate */
2844         if (i == 0 && time >= -1) {
2845             sc->time_offset = time != -1 ? time : -duration;
2846         }
2847     }
2848
2849     if (edit_count > 1)
2850         av_log(c->fc, AV_LOG_WARNING, "multiple edit list entries, "
2851                "a/v desync might occur, patch welcome\n");
2852
2853     av_dlog(c->fc, "track[%i].edit_count = %i\n", c->fc->nb_streams-1, edit_count);
2854     return 0;
2855 }
2856
2857 static const MOVParseTableEntry mov_default_parse_table[] = {
2858 { MKTAG('a','v','s','s'), mov_read_extradata },
2859 { MKTAG('c','h','p','l'), mov_read_chpl },
2860 { MKTAG('c','o','6','4'), mov_read_stco },
2861 { MKTAG('c','o','l','r'), mov_read_colr },
2862 { MKTAG('c','t','t','s'), mov_read_ctts }, /* composition time to sample */
2863 { MKTAG('d','i','n','f'), mov_read_default },
2864 { MKTAG('d','r','e','f'), mov_read_dref },
2865 { MKTAG('e','d','t','s'), mov_read_default },
2866 { MKTAG('e','l','s','t'), mov_read_elst },
2867 { MKTAG('e','n','d','a'), mov_read_enda },
2868 { MKTAG('f','i','e','l'), mov_read_fiel },
2869 { MKTAG('f','t','y','p'), mov_read_ftyp },
2870 { MKTAG('g','l','b','l'), mov_read_glbl },
2871 { MKTAG('h','d','l','r'), mov_read_hdlr },
2872 { MKTAG('i','l','s','t'), mov_read_ilst },
2873 { MKTAG('j','p','2','h'), mov_read_extradata },
2874 { MKTAG('m','d','a','t'), mov_read_mdat },
2875 { MKTAG('m','d','h','d'), mov_read_mdhd },
2876 { MKTAG('m','d','i','a'), mov_read_default },
2877 { MKTAG('m','e','t','a'), mov_read_meta },
2878 { MKTAG('m','i','n','f'), mov_read_default },
2879 { MKTAG('m','o','o','f'), mov_read_moof },
2880 { MKTAG('m','o','o','v'), mov_read_moov },
2881 { MKTAG('m','v','e','x'), mov_read_default },
2882 { MKTAG('m','v','h','d'), mov_read_mvhd },
2883 { MKTAG('S','M','I',' '), mov_read_smi }, /* Sorenson extension ??? */
2884 { MKTAG('a','l','a','c'), mov_read_extradata }, /* alac specific atom */
2885 { MKTAG('a','v','c','C'), mov_read_glbl },
2886 { MKTAG('p','a','s','p'), mov_read_pasp },
2887 { MKTAG('s','t','b','l'), mov_read_default },
2888 { MKTAG('s','t','c','o'), mov_read_stco },
2889 { MKTAG('s','t','p','s'), mov_read_stps },
2890 { MKTAG('s','t','r','f'), mov_read_strf },
2891 { MKTAG('s','t','s','c'), mov_read_stsc },
2892 { MKTAG('s','t','s','d'), mov_read_stsd }, /* sample description */
2893 { MKTAG('s','t','s','s'), mov_read_stss }, /* sync sample */
2894 { MKTAG('s','t','s','z'), mov_read_stsz }, /* sample size */
2895 { MKTAG('s','t','t','s'), mov_read_stts },
2896 { MKTAG('s','t','z','2'), mov_read_stsz }, /* compact sample size */
2897 { MKTAG('t','k','h','d'), mov_read_tkhd }, /* track header */
2898 { MKTAG('t','f','d','t'), mov_read_tfdt },
2899 { MKTAG('t','f','h','d'), mov_read_tfhd }, /* track fragment header */
2900 { MKTAG('t','r','a','k'), mov_read_trak },
2901 { MKTAG('t','r','a','f'), mov_read_default },
2902 { MKTAG('t','r','e','f'), mov_read_default },
2903 { MKTAG('c','h','a','p'), mov_read_chap },
2904 { MKTAG('t','r','e','x'), mov_read_trex },
2905 { MKTAG('t','r','u','n'), mov_read_trun },
2906 { MKTAG('u','d','t','a'), mov_read_default },
2907 { MKTAG('w','a','v','e'), mov_read_wave },
2908 { MKTAG('e','s','d','s'), mov_read_esds },
2909 { MKTAG('d','a','c','3'), mov_read_dac3 }, /* AC-3 info */
2910 { MKTAG('d','e','c','3'), mov_read_dec3 }, /* EAC-3 info */
2911 { MKTAG('w','i','d','e'), mov_read_wide }, /* place holder */
2912 { MKTAG('w','f','e','x'), mov_read_wfex },
2913 { MKTAG('c','m','o','v'), mov_read_cmov },
2914 { MKTAG('c','h','a','n'), mov_read_chan }, /* channel layout */
2915 { MKTAG('d','v','c','1'), mov_read_dvc1 },
2916 { MKTAG('s','b','g','p'), mov_read_sbgp },
2917 { MKTAG('h','v','c','C'), mov_read_glbl },
2918 { MKTAG('-','-','-','-'), mov_read_custom },
2919 { 0, NULL }
2920 };
2921
2922 static int mov_read_default(MOVContext *c, AVIOContext *pb, MOVAtom atom)
2923 {
2924     int64_t total_size = 0;
2925     MOVAtom a;
2926     int i;
2927
2928     if (atom.size < 0)
2929         atom.size = INT64_MAX;
2930     while (total_size + 8 < atom.size && !pb->eof_reached) {
2931         int (*parse)(MOVContext*, AVIOContext*, MOVAtom) = NULL;
2932         a.size = atom.size;
2933         a.type=0;
2934         if (atom.size >= 8) {
2935             a.size = avio_rb32(pb);
2936             a.type = avio_rl32(pb);
2937         }
2938         av_dlog(c->fc, "type: %08x '%.4s' parent:'%.4s' sz: %"PRId64" %"PRId64" %"PRId64"\n",
2939                 a.type, (char*)&a.type, (char*)&atom.type, a.size, total_size, atom.size);
2940         total_size += 8;
2941         if (a.size == 1) { /* 64 bit extended size */
2942             a.size = avio_rb64(pb) - 8;
2943             total_size += 8;
2944         }
2945         if (a.size == 0) {
2946             a.size = atom.size - total_size;
2947             if (a.size <= 8)
2948                 break;
2949         }
2950         a.size -= 8;
2951         if (a.size < 0)
2952             break;
2953         a.size = FFMIN(a.size, atom.size - total_size);
2954
2955         for (i = 0; mov_default_parse_table[i].type; i++)
2956             if (mov_default_parse_table[i].type == a.type) {
2957                 parse = mov_default_parse_table[i].parse;
2958                 break;
2959             }
2960
2961         // container is user data
2962         if (!parse && (atom.type == MKTAG('u','d','t','a') ||
2963                        atom.type == MKTAG('i','l','s','t')))
2964             parse = mov_read_udta_string;
2965
2966         if (!parse) { /* skip leaf atoms data */
2967             avio_skip(pb, a.size);
2968         } else {
2969             int64_t start_pos = avio_tell(pb);
2970             int64_t left;
2971             int err = parse(c, pb, a);
2972             if (err < 0)
2973                 return err;
2974             if (c->found_moov && c->found_mdat &&
2975                 ((!pb->seekable || c->fc->flags & AVFMT_FLAG_IGNIDX) ||
2976                  start_pos + a.size == avio_size(pb))) {
2977                 if (!pb->seekable || c->fc->flags & AVFMT_FLAG_IGNIDX)
2978                     c->next_root_atom = start_pos + a.size;
2979                 return 0;
2980             }
2981             left = a.size - avio_tell(pb) + start_pos;
2982             if (left > 0) /* skip garbage at atom end */
2983                 avio_skip(pb, left);
2984             else if (left < 0) {
2985                 av_log(c->fc, AV_LOG_WARNING,
2986                        "overread end of atom '%.4s' by %"PRId64" bytes\n",
2987                        (char*)&a.type, -left);
2988                 avio_seek(pb, left, SEEK_CUR);
2989             }
2990         }
2991
2992         total_size += a.size;
2993     }
2994
2995     if (total_size < atom.size && atom.size < 0x7ffff)
2996         avio_skip(pb, atom.size - total_size);
2997
2998     return 0;
2999 }
3000
3001 static int mov_probe(AVProbeData *p)
3002 {
3003     unsigned int offset;
3004     uint32_t tag;
3005     int score = 0;
3006
3007     /* check file header */
3008     offset = 0;
3009     for (;;) {
3010         /* ignore invalid offset */
3011         if ((offset + 8) > (unsigned int)p->buf_size)
3012             return score;
3013         tag = AV_RL32(p->buf + offset + 4);
3014         switch(tag) {
3015         /* check for obvious tags */
3016         case MKTAG('j','P',' ',' '): /* jpeg 2000 signature */
3017         case MKTAG('m','o','o','v'):
3018         case MKTAG('m','d','a','t'):
3019         case MKTAG('p','n','o','t'): /* detect movs with preview pics like ew.mov and april.mov */
3020         case MKTAG('u','d','t','a'): /* Packet Video PVAuthor adds this and a lot of more junk */
3021         case MKTAG('f','t','y','p'):
3022             return AVPROBE_SCORE_MAX;
3023         /* those are more common words, so rate then a bit less */
3024         case MKTAG('e','d','i','w'): /* xdcam files have reverted first tags */
3025         case MKTAG('w','i','d','e'):
3026         case MKTAG('f','r','e','e'):
3027         case MKTAG('j','u','n','k'):
3028         case MKTAG('p','i','c','t'):
3029             return AVPROBE_SCORE_MAX - 5;
3030         case MKTAG(0x82,0x82,0x7f,0x7d):
3031         case MKTAG('s','k','i','p'):
3032         case MKTAG('u','u','i','d'):
3033         case MKTAG('p','r','f','l'):
3034             offset = AV_RB32(p->buf+offset) + offset;
3035             /* if we only find those cause probedata is too small at least rate them */
3036             score = AVPROBE_SCORE_EXTENSION;
3037             break;
3038         default:
3039             /* unrecognized tag */
3040             return score;
3041         }
3042     }
3043 }
3044
3045 // must be done after parsing all trak because there's no order requirement
3046 static void mov_read_chapters(AVFormatContext *s)
3047 {
3048     MOVContext *mov = s->priv_data;
3049     AVStream *st = NULL;
3050     MOVStreamContext *sc;
3051     int64_t cur_pos;
3052     int i;
3053
3054     for (i = 0; i < s->nb_streams; i++)
3055         if (s->streams[i]->id == mov->chapter_track) {
3056             st = s->streams[i];
3057             break;
3058         }
3059     if (!st) {
3060         av_log(s, AV_LOG_ERROR, "Referenced QT chapter track not found\n");
3061         return;
3062     }
3063
3064     st->discard = AVDISCARD_ALL;
3065     sc = st->priv_data;
3066     cur_pos = avio_tell(sc->pb);
3067
3068     for (i = 0; i < st->nb_index_entries; i++) {
3069         AVIndexEntry *sample = &st->index_entries[i];
3070         int64_t end = i+1 < st->nb_index_entries ? st->index_entries[i+1].timestamp : st->duration;
3071         uint8_t *title;
3072         uint16_t ch;
3073         int len, title_len;
3074
3075         if (avio_seek(sc->pb, sample->pos, SEEK_SET) != sample->pos) {
3076             av_log(s, AV_LOG_ERROR, "Chapter %d not found in file\n", i);
3077             goto finish;
3078         }
3079
3080         // the first two bytes are the length of the title
3081         len = avio_rb16(sc->pb);
3082         if (len > sample->size-2)
3083             continue;
3084         title_len = 2*len + 1;
3085         if (!(title = av_mallocz(title_len)))
3086             goto finish;
3087
3088         // The samples could theoretically be in any encoding if there's an encd
3089         // atom following, but in practice are only utf-8 or utf-16, distinguished
3090         // instead by the presence of a BOM
3091         if (!len) {
3092             title[0] = 0;
3093         } else {
3094             ch = avio_rb16(sc->pb);
3095             if (ch == 0xfeff)
3096                 avio_get_str16be(sc->pb, len, title, title_len);
3097             else if (ch == 0xfffe)
3098                 avio_get_str16le(sc->pb, len, title, title_len);
3099             else {
3100                 AV_WB16(title, ch);
3101                 if (len == 1 || len == 2)
3102                     title[len] = 0;
3103                 else
3104                     avio_get_str(sc->pb, len - 2, title + 2, title_len - 2);
3105             }
3106         }
3107
3108         avpriv_new_chapter(s, i, st->time_base, sample->timestamp, end, title);
3109         av_freep(&title);
3110     }
3111 finish:
3112     avio_seek(sc->pb, cur_pos, SEEK_SET);
3113 }
3114
3115 static int mov_read_close(AVFormatContext *s)
3116 {
3117     MOVContext *mov = s->priv_data;
3118     int i, j;
3119
3120     for (i = 0; i < s->nb_streams; i++) {
3121         AVStream *st = s->streams[i];
3122         MOVStreamContext *sc = st->priv_data;
3123
3124         av_freep(&sc->ctts_data);
3125         for (j = 0; j < sc->drefs_count; j++) {
3126             av_freep(&sc->drefs[j].path);
3127             av_freep(&sc->drefs[j].dir);
3128         }
3129         av_freep(&sc->drefs);
3130         if (sc->pb && sc->pb != s->pb)
3131             avio_close(sc->pb);
3132
3133         av_freep(&sc->chunk_offsets);
3134         av_freep(&sc->stsc_data);
3135         av_freep(&sc->sample_sizes);
3136         av_freep(&sc->keyframes);
3137         av_freep(&sc->stts_data);
3138         av_freep(&sc->stps_data);
3139         av_freep(&sc->rap_group);
3140         av_freep(&sc->display_matrix);
3141     }
3142
3143     if (mov->dv_demux) {
3144         avformat_free_context(mov->dv_fctx);
3145         mov->dv_fctx = NULL;
3146     }
3147
3148     av_freep(&mov->trex_data);
3149
3150     return 0;
3151 }
3152
3153 static int mov_read_header(AVFormatContext *s)
3154 {
3155     MOVContext *mov = s->priv_data;
3156     AVIOContext *pb = s->pb;
3157     int err;
3158     MOVAtom atom = { AV_RL32("root") };
3159     int i;
3160
3161     mov->fc = s;
3162     /* .mov and .mp4 aren't streamable anyway (only progressive download if moov is before mdat) */
3163     if (pb->seekable)
3164         atom.size = avio_size(pb);
3165     else
3166         atom.size = INT64_MAX;
3167
3168     /* check MOV header */
3169     if ((err = mov_read_default(mov, pb, atom)) < 0) {
3170         av_log(s, AV_LOG_ERROR, "error reading header: %d\n", err);
3171         mov_read_close(s);
3172         return err;
3173     }
3174     if (!mov->found_moov) {
3175         av_log(s, AV_LOG_ERROR, "moov atom not found\n");
3176         mov_read_close(s);
3177         return AVERROR_INVALIDDATA;
3178     }
3179     av_dlog(mov->fc, "on_parse_exit_offset=%"PRId64"\n", avio_tell(pb));
3180
3181     if (pb->seekable && mov->chapter_track > 0)
3182         mov_read_chapters(s);
3183
3184     for (i = 0; i < s->nb_streams; i++) {
3185         AVStream *st = s->streams[i];
3186         MOVStreamContext *sc = st->priv_data;
3187
3188         if (st->codec->codec_type == AVMEDIA_TYPE_SUBTITLE) {
3189             if (st->codec->width <= 0 || st->codec->height <= 0) {
3190                 st->codec->width  = sc->width;
3191                 st->codec->height = sc->height;
3192             }
3193             if (st->codec->codec_id == AV_CODEC_ID_DVD_SUBTITLE) {
3194                 if ((err = mov_rewrite_dvd_sub_extradata(st)) < 0)
3195                     return err;
3196             }
3197         }
3198     }
3199
3200     if (mov->trex_data) {
3201         for (i = 0; i < s->nb_streams; i++) {
3202             AVStream *st = s->streams[i];
3203             MOVStreamContext *sc = st->priv_data;
3204             if (st->duration > 0)
3205                 st->codec->bit_rate = sc->data_size * 8 * sc->time_scale / st->duration;
3206         }
3207     }
3208
3209     for (i = 0; i < s->nb_streams; i++) {
3210         AVStream *st = s->streams[i];
3211         MOVStreamContext *sc = st->priv_data;
3212
3213         switch (st->codec->codec_type) {
3214         case AVMEDIA_TYPE_AUDIO:
3215             err = ff_replaygain_export(st, s->metadata);
3216             if (err < 0) {
3217                 mov_read_close(s);
3218                 return err;
3219             }
3220             break;
3221         case AVMEDIA_TYPE_VIDEO:
3222             if (sc->display_matrix) {
3223                 AVPacketSideData *sd, *tmp;
3224
3225                 tmp = av_realloc_array(st->side_data,
3226                                        st->nb_side_data + 1, sizeof(*tmp));
3227                 if (!tmp)
3228                     return AVERROR(ENOMEM);
3229
3230                 st->side_data = tmp;
3231                 st->nb_side_data++;
3232
3233                 sd = &st->side_data[st->nb_side_data - 1];
3234                 sd->type = AV_PKT_DATA_DISPLAYMATRIX;
3235                 sd->size = sizeof(int32_t) * 9;
3236                 sd->data = (uint8_t*)sc->display_matrix;
3237                 sc->display_matrix = NULL;
3238             }
3239             break;
3240         }
3241     }
3242
3243     return 0;
3244 }
3245
3246 static AVIndexEntry *mov_find_next_sample(AVFormatContext *s, AVStream **st)
3247 {
3248     AVIndexEntry *sample = NULL;
3249     int64_t best_dts = INT64_MAX;
3250     int i;
3251     for (i = 0; i < s->nb_streams; i++) {
3252         AVStream *avst = s->streams[i];
3253         MOVStreamContext *msc = avst->priv_data;
3254         if (msc->pb && msc->current_sample < avst->nb_index_entries) {
3255             AVIndexEntry *current_sample = &avst->index_entries[msc->current_sample];
3256             int64_t dts = av_rescale(current_sample->timestamp, AV_TIME_BASE, msc->time_scale);
3257             av_dlog(s, "stream %d, sample %d, dts %"PRId64"\n", i, msc->current_sample, dts);
3258             if (!sample || (!s->pb->seekable && current_sample->pos < sample->pos) ||
3259                 (s->pb->seekable &&
3260                  ((msc->pb != s->pb && dts < best_dts) || (msc->pb == s->pb &&
3261                  ((FFABS(best_dts - dts) <= AV_TIME_BASE && current_sample->pos < sample->pos) ||
3262                   (FFABS(best_dts - dts) > AV_TIME_BASE && dts < best_dts)))))) {
3263                 sample = current_sample;
3264                 best_dts = dts;
3265                 *st = avst;
3266             }
3267         }
3268     }
3269     return sample;
3270 }
3271
3272 static int mov_read_packet(AVFormatContext *s, AVPacket *pkt)
3273 {
3274     MOVContext *mov = s->priv_data;
3275     MOVStreamContext *sc;
3276     AVIndexEntry *sample;
3277     AVStream *st = NULL;
3278     int ret;
3279  retry:
3280     sample = mov_find_next_sample(s, &st);
3281     if (!sample) {
3282         mov->found_mdat = 0;
3283         if (!mov->next_root_atom)
3284             return AVERROR_EOF;
3285         avio_seek(s->pb, mov->next_root_atom, SEEK_SET);
3286         mov->next_root_atom = 0;
3287         if (mov_read_default(mov, s->pb, (MOVAtom){ AV_RL32("root"), INT64_MAX }) < 0 ||
3288             s->pb->eof_reached)
3289             return AVERROR_EOF;
3290         av_dlog(s, "read fragments, offset 0x%"PRIx64"\n", avio_tell(s->pb));
3291         goto retry;
3292     }
3293     sc = st->priv_data;
3294     /* must be done just before reading, to avoid infinite loop on sample */
3295     sc->current_sample++;
3296
3297     if (st->discard != AVDISCARD_ALL) {
3298         if (avio_seek(sc->pb, sample->pos, SEEK_SET) != sample->pos) {
3299             av_log(mov->fc, AV_LOG_ERROR, "stream %d, offset 0x%"PRIx64": partial file\n",
3300                    sc->ffindex, sample->pos);
3301             return AVERROR_INVALIDDATA;
3302         }
3303         ret = av_get_packet(sc->pb, pkt, sample->size);
3304         if (ret < 0)
3305             return ret;
3306         if (sc->has_palette) {
3307             uint8_t *pal;
3308
3309             pal = av_packet_new_side_data(pkt, AV_PKT_DATA_PALETTE, AVPALETTE_SIZE);
3310             if (!pal) {
3311                 av_log(mov->fc, AV_LOG_ERROR, "Cannot append palette to packet\n");
3312             } else {
3313                 memcpy(pal, sc->palette, AVPALETTE_SIZE);
3314                 sc->has_palette = 0;
3315             }
3316         }
3317 #if CONFIG_DV_DEMUXER
3318         if (mov->dv_demux && sc->dv_audio_container) {
3319             avpriv_dv_produce_packet(mov->dv_demux, pkt, pkt->data, pkt->size);
3320             av_free(pkt->data);
3321             pkt->size = 0;
3322             ret = avpriv_dv_get_packet(mov->dv_demux, pkt);
3323             if (ret < 0)
3324                 return ret;
3325         }
3326 #endif
3327     }
3328
3329     pkt->stream_index = sc->ffindex;
3330     pkt->dts = sample->timestamp;
3331     if (sc->ctts_data && sc->ctts_index < sc->ctts_count) {
3332         pkt->pts = pkt->dts + sc->dts_shift + sc->ctts_data[sc->ctts_index].duration;
3333         /* update ctts context */
3334         sc->ctts_sample++;
3335         if (sc->ctts_index < sc->ctts_count &&
3336             sc->ctts_data[sc->ctts_index].count == sc->ctts_sample) {
3337             sc->ctts_index++;
3338             sc->ctts_sample = 0;
3339         }
3340         if (sc->wrong_dts)
3341             pkt->dts = AV_NOPTS_VALUE;
3342     } else {
3343         int64_t next_dts = (sc->current_sample < st->nb_index_entries) ?
3344             st->index_entries[sc->current_sample].timestamp : st->duration;
3345         pkt->duration = next_dts - pkt->dts;
3346         pkt->pts = pkt->dts;
3347     }
3348     if (st->discard == AVDISCARD_ALL)
3349         goto retry;
3350     pkt->flags |= sample->flags & AVINDEX_KEYFRAME ? AV_PKT_FLAG_KEY : 0;
3351     pkt->pos = sample->pos;
3352     av_dlog(s, "stream %d, pts %"PRId64", dts %"PRId64", pos 0x%"PRIx64", duration %d\n",
3353             pkt->stream_index, pkt->pts, pkt->dts, pkt->pos, pkt->duration);
3354     return 0;
3355 }
3356
3357 static int mov_seek_stream(AVFormatContext *s, AVStream *st, int64_t timestamp, int flags)
3358 {
3359     MOVStreamContext *sc = st->priv_data;
3360     int sample, time_sample;
3361     int i;
3362
3363     sample = av_index_search_timestamp(st, timestamp, flags);
3364     av_dlog(s, "stream %d, timestamp %"PRId64", sample %d\n", st->index, timestamp, sample);
3365     if (sample < 0 && st->nb_index_entries && timestamp < st->index_entries[0].timestamp)
3366         sample = 0;
3367     if (sample < 0) /* not sure what to do */
3368         return AVERROR_INVALIDDATA;
3369     sc->current_sample = sample;
3370     av_dlog(s, "stream %d, found sample %d\n", st->index, sc->current_sample);
3371     /* adjust ctts index */
3372     if (sc->ctts_data) {
3373         time_sample = 0;
3374         for (i = 0; i < sc->ctts_count; i++) {
3375             int next = time_sample + sc->ctts_data[i].count;
3376             if (next > sc->current_sample) {
3377                 sc->ctts_index = i;
3378                 sc->ctts_sample = sc->current_sample - time_sample;
3379                 break;
3380             }
3381             time_sample = next;
3382         }
3383     }
3384     return sample;
3385 }
3386
3387 static int mov_read_seek(AVFormatContext *s, int stream_index, int64_t sample_time, int flags)
3388 {
3389     AVStream *st;
3390     int64_t seek_timestamp, timestamp;
3391     int sample;
3392     int i;
3393
3394     if (stream_index >= s->nb_streams)
3395         return AVERROR_INVALIDDATA;
3396     if (sample_time < 0)
3397         sample_time = 0;
3398
3399     st = s->streams[stream_index];
3400     sample = mov_seek_stream(s, st, sample_time, flags);
3401     if (sample < 0)
3402         return sample;
3403
3404     /* adjust seek timestamp to found sample timestamp */
3405     seek_timestamp = st->index_entries[sample].timestamp;
3406
3407     for (i = 0; i < s->nb_streams; i++) {
3408         st = s->streams[i];
3409         if (stream_index == i)
3410             continue;
3411
3412         timestamp = av_rescale_q(seek_timestamp, s->streams[stream_index]->time_base, st->time_base);
3413         mov_seek_stream(s, st, timestamp, flags);
3414     }
3415     return 0;
3416 }
3417
3418 #define OFFSET(x) offsetof(MOVContext, x)
3419 #define FLAGS AV_OPT_FLAG_VIDEO_PARAM | AV_OPT_FLAG_DECODING_PARAM
3420 static const AVOption mov_options[] = {
3421     { "export_all", "Export unrecognized metadata entries", OFFSET(export_all),
3422         AV_OPT_TYPE_INT, { .i64 = 0 }, 0, 1, .flags = FLAGS },
3423     { NULL },
3424 };
3425
3426 static const AVClass mov_class = {
3427     .class_name = "mov,mp4,m4a,3gp,3g2,mj2",
3428     .item_name  = av_default_item_name,
3429     .option     = mov_options,
3430     .version    = LIBAVUTIL_VERSION_INT,
3431 };
3432
3433 AVInputFormat ff_mov_demuxer = {
3434     .name           = "mov,mp4,m4a,3gp,3g2,mj2",
3435     .long_name      = NULL_IF_CONFIG_SMALL("QuickTime / MOV"),
3436     .priv_class     = &mov_class,
3437     .priv_data_size = sizeof(MOVContext),
3438     .extensions     = "mov,mp4,m4a,3gp,3g2,mj2",
3439     .read_probe     = mov_probe,
3440     .read_header    = mov_read_header,
3441     .read_packet    = mov_read_packet,
3442     .read_close     = mov_read_close,
3443     .read_seek      = mov_read_seek,
3444 };