avformat/movenc: Check ff_put_wav_header() return code
[ffmpeg.git] / libavformat / movenc.c
1 /*
2  * MOV, 3GP, MP4 muxer
3  * Copyright (c) 2003 Thomas Raivio
4  * Copyright (c) 2004 Gildas Bazin <gbazin at videolan dot org>
5  * Copyright (c) 2009 Baptiste Coudurier <baptiste dot coudurier at gmail dot com>
6  *
7  * This file is part of FFmpeg.
8  *
9  * FFmpeg is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Lesser General Public
11  * License as published by the Free Software Foundation; either
12  * version 2.1 of the License, or (at your option) any later version.
13  *
14  * FFmpeg is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17  * Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public
20  * License along with FFmpeg; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
22  */
23
24 #include <stdint.h>
25 #include <inttypes.h>
26
27 #include "movenc.h"
28 #include "avformat.h"
29 #include "avio_internal.h"
30 #include "riff.h"
31 #include "avio.h"
32 #include "isom.h"
33 #include "avc.h"
34 #include "libavcodec/get_bits.h"
35 #include "libavcodec/put_bits.h"
36 #include "libavcodec/vc1.h"
37 #include "libavcodec/raw.h"
38 #include "internal.h"
39 #include "libavutil/avstring.h"
40 #include "libavutil/intfloat.h"
41 #include "libavutil/mathematics.h"
42 #include "libavutil/opt.h"
43 #include "libavutil/dict.h"
44 #include "libavutil/pixdesc.h"
45 #include "hevc.h"
46 #include "rtpenc.h"
47 #include "mov_chan.h"
48
49 #undef NDEBUG
50 #include <assert.h>
51
52 static const AVOption options[] = {
53     { "movflags", "MOV muxer flags", offsetof(MOVMuxContext, flags), AV_OPT_TYPE_FLAGS, {.i64 = 0}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
54     { "rtphint", "Add RTP hint tracks", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_RTP_HINT}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
55     { "moov_size", "maximum moov size so it can be placed at the begin", offsetof(MOVMuxContext, reserved_moov_size), AV_OPT_TYPE_INT, {.i64 = 0}, 0, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, 0 },
56     { "empty_moov", "Make the initial moov atom empty (not supported by QuickTime)", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_EMPTY_MOOV}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
57     { "frag_keyframe", "Fragment at video keyframes", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_FRAG_KEYFRAME}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
58     { "separate_moof", "Write separate moof/mdat atoms for each track", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_SEPARATE_MOOF}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
59     { "frag_custom", "Flush fragments on caller requests", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_FRAG_CUSTOM}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
60     { "isml", "Create a live smooth streaming feed (for pushing to a publishing point)", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_ISML}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
61     { "faststart", "Run a second pass to put the index (moov atom) at the beginning of the file", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_FASTSTART}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
62     { "omit_tfhd_offset", "Omit the base data offset in tfhd atoms", 0, AV_OPT_TYPE_CONST, {.i64 = FF_MOV_FLAG_OMIT_TFHD_OFFSET}, INT_MIN, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM, "movflags" },
63     FF_RTP_FLAG_OPTS(MOVMuxContext, rtp_flags),
64     { "skip_iods", "Skip writing iods atom.", offsetof(MOVMuxContext, iods_skip), AV_OPT_TYPE_INT, {.i64 = 1}, 0, 1, AV_OPT_FLAG_ENCODING_PARAM},
65     { "iods_audio_profile", "iods audio profile atom.", offsetof(MOVMuxContext, iods_audio_profile), AV_OPT_TYPE_INT, {.i64 = -1}, -1, 255, AV_OPT_FLAG_ENCODING_PARAM},
66     { "iods_video_profile", "iods video profile atom.", offsetof(MOVMuxContext, iods_video_profile), AV_OPT_TYPE_INT, {.i64 = -1}, -1, 255, AV_OPT_FLAG_ENCODING_PARAM},
67     { "frag_duration", "Maximum fragment duration", offsetof(MOVMuxContext, max_fragment_duration), AV_OPT_TYPE_INT, {.i64 = 0}, 0, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM},
68     { "min_frag_duration", "Minimum fragment duration", offsetof(MOVMuxContext, min_fragment_duration), AV_OPT_TYPE_INT, {.i64 = 0}, 0, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM},
69     { "frag_size", "Maximum fragment size", offsetof(MOVMuxContext, max_fragment_size), AV_OPT_TYPE_INT, {.i64 = 0}, 0, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM},
70     { "ism_lookahead", "Number of lookahead entries for ISM files", offsetof(MOVMuxContext, ism_lookahead), AV_OPT_TYPE_INT, {.i64 = 0}, 0, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM},
71     { "use_editlist", "use edit list", offsetof(MOVMuxContext, use_editlist), AV_OPT_TYPE_INT, {.i64 = -1}, -1, 1, AV_OPT_FLAG_ENCODING_PARAM},
72     { "video_track_timescale", "set timescale of all video tracks", offsetof(MOVMuxContext, video_track_timescale), AV_OPT_TYPE_INT, {.i64 = 0}, 0, INT_MAX, AV_OPT_FLAG_ENCODING_PARAM},
73     { "brand",    "Override major brand", offsetof(MOVMuxContext, major_brand),   AV_OPT_TYPE_STRING, {.str = NULL}, .flags = AV_OPT_FLAG_ENCODING_PARAM },
74     { NULL },
75 };
76
77 #define MOV_CLASS(flavor)\
78 static const AVClass flavor ## _muxer_class = {\
79     .class_name = #flavor " muxer",\
80     .item_name  = av_default_item_name,\
81     .option     = options,\
82     .version    = LIBAVUTIL_VERSION_INT,\
83 };
84
85 static int get_moov_size(AVFormatContext *s);
86
87 //FIXME support 64 bit variant with wide placeholders
88 static int64_t update_size(AVIOContext *pb, int64_t pos)
89 {
90     int64_t curpos = avio_tell(pb);
91     avio_seek(pb, pos, SEEK_SET);
92     avio_wb32(pb, curpos - pos); /* rewrite size */
93     avio_seek(pb, curpos, SEEK_SET);
94
95     return curpos - pos;
96 }
97
98 static int supports_edts(MOVMuxContext *mov)
99 {
100     // EDTS with fragments is tricky as we don't know the duration when its written
101     return (mov->use_editlist<0 && !(mov->flags & FF_MOV_FLAG_FRAGMENT)) || mov->use_editlist>0;
102 }
103
104 static int co64_required(const MOVTrack *track)
105 {
106     if (track->entry > 0 && track->cluster[track->entry - 1].pos + track->data_offset > UINT32_MAX)
107         return 1;
108     return 0;
109 }
110
111 /* Chunk offset atom */
112 static int mov_write_stco_tag(AVIOContext *pb, MOVTrack *track)
113 {
114     int i;
115     int mode64 = co64_required(track); // use 32 bit size variant if possible
116     int64_t pos = avio_tell(pb);
117     avio_wb32(pb, 0); /* size */
118     if (mode64)
119         ffio_wfourcc(pb, "co64");
120     else
121         ffio_wfourcc(pb, "stco");
122     avio_wb32(pb, 0); /* version & flags */
123     avio_wb32(pb, track->chunkCount); /* entry count */
124     for (i = 0; i < track->entry; i++) {
125         if (!track->cluster[i].chunkNum)
126             continue;
127         if (mode64 == 1)
128             avio_wb64(pb, track->cluster[i].pos + track->data_offset);
129         else
130             avio_wb32(pb, track->cluster[i].pos + track->data_offset);
131     }
132     return update_size(pb, pos);
133 }
134
135 /* Sample size atom */
136 static int mov_write_stsz_tag(AVIOContext *pb, MOVTrack *track)
137 {
138     int equalChunks = 1;
139     int i, j, entries = 0, tst = -1, oldtst = -1;
140
141     int64_t pos = avio_tell(pb);
142     avio_wb32(pb, 0); /* size */
143     ffio_wfourcc(pb, "stsz");
144     avio_wb32(pb, 0); /* version & flags */
145
146     for (i = 0; i < track->entry; i++) {
147         tst = track->cluster[i].size / track->cluster[i].entries;
148         if (oldtst != -1 && tst != oldtst)
149             equalChunks = 0;
150         oldtst = tst;
151         entries += track->cluster[i].entries;
152     }
153     if (equalChunks && track->entry) {
154         int sSize = track->entry ? track->cluster[0].size / track->cluster[0].entries : 0;
155         sSize = FFMAX(1, sSize); // adpcm mono case could make sSize == 0
156         avio_wb32(pb, sSize); // sample size
157         avio_wb32(pb, entries); // sample count
158     } else {
159         avio_wb32(pb, 0); // sample size
160         avio_wb32(pb, entries); // sample count
161         for (i = 0; i < track->entry; i++) {
162             for (j = 0; j < track->cluster[i].entries; j++) {
163                 avio_wb32(pb, track->cluster[i].size /
164                           track->cluster[i].entries);
165             }
166         }
167     }
168     return update_size(pb, pos);
169 }
170
171 /* Sample to chunk atom */
172 static int mov_write_stsc_tag(AVIOContext *pb, MOVTrack *track)
173 {
174     int index = 0, oldval = -1, i;
175     int64_t entryPos, curpos;
176
177     int64_t pos = avio_tell(pb);
178     avio_wb32(pb, 0); /* size */
179     ffio_wfourcc(pb, "stsc");
180     avio_wb32(pb, 0); // version & flags
181     entryPos = avio_tell(pb);
182     avio_wb32(pb, track->chunkCount); // entry count
183     for (i = 0; i < track->entry; i++) {
184         if (oldval != track->cluster[i].samples_in_chunk && track->cluster[i].chunkNum) {
185             avio_wb32(pb, track->cluster[i].chunkNum); // first chunk
186             avio_wb32(pb, track->cluster[i].samples_in_chunk); // samples per chunk
187             avio_wb32(pb, 0x1); // sample description index
188             oldval = track->cluster[i].samples_in_chunk;
189             index++;
190         }
191     }
192     curpos = avio_tell(pb);
193     avio_seek(pb, entryPos, SEEK_SET);
194     avio_wb32(pb, index); // rewrite size
195     avio_seek(pb, curpos, SEEK_SET);
196
197     return update_size(pb, pos);
198 }
199
200 /* Sync sample atom */
201 static int mov_write_stss_tag(AVIOContext *pb, MOVTrack *track, uint32_t flag)
202 {
203     int64_t curpos, entryPos;
204     int i, index = 0;
205     int64_t pos = avio_tell(pb);
206     avio_wb32(pb, 0); // size
207     ffio_wfourcc(pb, flag == MOV_SYNC_SAMPLE ? "stss" : "stps");
208     avio_wb32(pb, 0); // version & flags
209     entryPos = avio_tell(pb);
210     avio_wb32(pb, track->entry); // entry count
211     for (i = 0; i < track->entry; i++) {
212         if (track->cluster[i].flags & flag) {
213             avio_wb32(pb, i + 1);
214             index++;
215         }
216     }
217     curpos = avio_tell(pb);
218     avio_seek(pb, entryPos, SEEK_SET);
219     avio_wb32(pb, index); // rewrite size
220     avio_seek(pb, curpos, SEEK_SET);
221     return update_size(pb, pos);
222 }
223
224 static int mov_write_amr_tag(AVIOContext *pb, MOVTrack *track)
225 {
226     avio_wb32(pb, 0x11); /* size */
227     if (track->mode == MODE_MOV) ffio_wfourcc(pb, "samr");
228     else                         ffio_wfourcc(pb, "damr");
229     ffio_wfourcc(pb, "FFMP");
230     avio_w8(pb, 0); /* decoder version */
231
232     avio_wb16(pb, 0x81FF); /* Mode set (all modes for AMR_NB) */
233     avio_w8(pb, 0x00); /* Mode change period (no restriction) */
234     avio_w8(pb, 0x01); /* Frames per sample */
235     return 0x11;
236 }
237
238 static int mov_write_ac3_tag(AVIOContext *pb, MOVTrack *track)
239 {
240     GetBitContext gbc;
241     PutBitContext pbc;
242     uint8_t buf[3];
243     int fscod, bsid, bsmod, acmod, lfeon, frmsizecod;
244
245     if (track->vos_len < 7)
246         return -1;
247
248     avio_wb32(pb, 11);
249     ffio_wfourcc(pb, "dac3");
250
251     init_get_bits(&gbc, track->vos_data + 4, (track->vos_len - 4) * 8);
252     fscod      = get_bits(&gbc, 2);
253     frmsizecod = get_bits(&gbc, 6);
254     bsid       = get_bits(&gbc, 5);
255     bsmod      = get_bits(&gbc, 3);
256     acmod      = get_bits(&gbc, 3);
257     if (acmod == 2) {
258         skip_bits(&gbc, 2); // dsurmod
259     } else {
260         if ((acmod & 1) && acmod != 1)
261             skip_bits(&gbc, 2); // cmixlev
262         if (acmod & 4)
263             skip_bits(&gbc, 2); // surmixlev
264     }
265     lfeon = get_bits1(&gbc);
266
267     init_put_bits(&pbc, buf, sizeof(buf));
268     put_bits(&pbc, 2, fscod);
269     put_bits(&pbc, 5, bsid);
270     put_bits(&pbc, 3, bsmod);
271     put_bits(&pbc, 3, acmod);
272     put_bits(&pbc, 1, lfeon);
273     put_bits(&pbc, 5, frmsizecod >> 1); // bit_rate_code
274     put_bits(&pbc, 5, 0); // reserved
275
276     flush_put_bits(&pbc);
277     avio_write(pb, buf, sizeof(buf));
278
279     return 11;
280 }
281
282 /**
283  * This function writes extradata "as is".
284  * Extradata must be formatted like a valid atom (with size and tag).
285  */
286 static int mov_write_extradata_tag(AVIOContext *pb, MOVTrack *track)
287 {
288     avio_write(pb, track->enc->extradata, track->enc->extradata_size);
289     return track->enc->extradata_size;
290 }
291
292 static int mov_write_enda_tag(AVIOContext *pb)
293 {
294     avio_wb32(pb, 10);
295     ffio_wfourcc(pb, "enda");
296     avio_wb16(pb, 1); /* little endian */
297     return 10;
298 }
299
300 static int mov_write_enda_tag_be(AVIOContext *pb)
301 {
302   avio_wb32(pb, 10);
303   ffio_wfourcc(pb, "enda");
304   avio_wb16(pb, 0); /* big endian */
305   return 10;
306 }
307
308 static void put_descr(AVIOContext *pb, int tag, unsigned int size)
309 {
310     int i = 3;
311     avio_w8(pb, tag);
312     for (; i > 0; i--)
313         avio_w8(pb, (size >> (7 * i)) | 0x80);
314     avio_w8(pb, size & 0x7F);
315 }
316
317 static unsigned compute_avg_bitrate(MOVTrack *track)
318 {
319     uint64_t size = 0;
320     int i;
321     if (!track->track_duration)
322         return 0;
323     for (i = 0; i < track->entry; i++)
324         size += track->cluster[i].size;
325     return size * 8 * track->timescale / track->track_duration;
326 }
327
328 static int mov_write_esds_tag(AVIOContext *pb, MOVTrack *track) // Basic
329 {
330     int64_t pos = avio_tell(pb);
331     int decoder_specific_info_len = track->vos_len ? 5 + track->vos_len : 0;
332     unsigned avg_bitrate;
333
334     avio_wb32(pb, 0); // size
335     ffio_wfourcc(pb, "esds");
336     avio_wb32(pb, 0); // Version
337
338     // ES descriptor
339     put_descr(pb, 0x03, 3 + 5+13 + decoder_specific_info_len + 5+1);
340     avio_wb16(pb, track->track_id);
341     avio_w8(pb, 0x00); // flags (= no flags)
342
343     // DecoderConfig descriptor
344     put_descr(pb, 0x04, 13 + decoder_specific_info_len);
345
346     // Object type indication
347     if ((track->enc->codec_id == AV_CODEC_ID_MP2 ||
348          track->enc->codec_id == AV_CODEC_ID_MP3) &&
349         track->enc->sample_rate > 24000)
350         avio_w8(pb, 0x6B); // 11172-3
351     else
352         avio_w8(pb, ff_codec_get_tag(ff_mp4_obj_type, track->enc->codec_id));
353
354     // the following fields is made of 6 bits to identify the streamtype (4 for video, 5 for audio)
355     // plus 1 bit to indicate upstream and 1 bit set to 1 (reserved)
356     if (track->enc->codec_id == AV_CODEC_ID_DVD_SUBTITLE)
357         avio_w8(pb, (0x38 << 2) | 1); // flags (= NeroSubpicStream)
358     else if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO)
359         avio_w8(pb, 0x15); // flags (= Audiostream)
360     else
361         avio_w8(pb, 0x11); // flags (= Visualstream)
362
363     avio_wb24(pb, track->enc->rc_buffer_size >> 3); // Buffersize DB
364
365     avg_bitrate = compute_avg_bitrate(track);
366     // maxbitrate (FIXME should be max rate in any 1 sec window)
367     avio_wb32(pb, FFMAX3(track->enc->bit_rate, track->enc->rc_max_rate, avg_bitrate));
368     avio_wb32(pb, avg_bitrate);
369
370     if (track->vos_len) {
371         // DecoderSpecific info descriptor
372         put_descr(pb, 0x05, track->vos_len);
373         avio_write(pb, track->vos_data, track->vos_len);
374     }
375
376     // SL descriptor
377     put_descr(pb, 0x06, 1);
378     avio_w8(pb, 0x02);
379     return update_size(pb, pos);
380 }
381
382 static int mov_pcm_le_gt16(enum AVCodecID codec_id)
383 {
384     return codec_id == AV_CODEC_ID_PCM_S24LE ||
385            codec_id == AV_CODEC_ID_PCM_S32LE ||
386            codec_id == AV_CODEC_ID_PCM_F32LE ||
387            codec_id == AV_CODEC_ID_PCM_F64LE;
388 }
389
390 static int mov_pcm_be_gt16(enum AVCodecID codec_id)
391 {
392     return codec_id == AV_CODEC_ID_PCM_S24BE ||
393            codec_id == AV_CODEC_ID_PCM_S32BE ||
394            codec_id == AV_CODEC_ID_PCM_F32BE ||
395            codec_id == AV_CODEC_ID_PCM_F64BE;
396 }
397
398 static int mov_write_ms_tag(AVIOContext *pb, MOVTrack *track)
399 {
400     int ret;
401     int64_t pos = avio_tell(pb);
402     avio_wb32(pb, 0);
403     avio_wl32(pb, track->tag); // store it byteswapped
404     track->enc->codec_tag = av_bswap16(track->tag >> 16);
405     if ((ret = ff_put_wav_header(pb, track->enc, 0)) < 0)
406         return ret;
407     return update_size(pb, pos);
408 }
409
410 static int mov_write_wfex_tag(AVIOContext *pb, MOVTrack *track)
411 {
412     int ret;
413     int64_t pos = avio_tell(pb);
414     avio_wb32(pb, 0);
415     ffio_wfourcc(pb, "wfex");
416     if ((ret = ff_put_wav_header(pb, track->enc, FF_PUT_WAV_HEADER_FORCE_WAVEFORMATEX)) < 0)
417         return ret;
418     return update_size(pb, pos);
419 }
420
421 static int mov_write_chan_tag(AVIOContext *pb, MOVTrack *track)
422 {
423     uint32_t layout_tag, bitmap;
424     int64_t pos = avio_tell(pb);
425
426     layout_tag = ff_mov_get_channel_layout_tag(track->enc->codec_id,
427                                                track->enc->channel_layout,
428                                                &bitmap);
429     if (!layout_tag) {
430         av_log(track->enc, AV_LOG_WARNING, "not writing 'chan' tag due to "
431                "lack of channel information\n");
432         return 0;
433     }
434
435     avio_wb32(pb, 0);           // Size
436     ffio_wfourcc(pb, "chan");   // Type
437     avio_w8(pb, 0);             // Version
438     avio_wb24(pb, 0);           // Flags
439     avio_wb32(pb, layout_tag);  // mChannelLayoutTag
440     avio_wb32(pb, bitmap);      // mChannelBitmap
441     avio_wb32(pb, 0);           // mNumberChannelDescriptions
442
443     return update_size(pb, pos);
444 }
445
446 static int mov_write_wave_tag(AVIOContext *pb, MOVTrack *track)
447 {
448     int64_t pos = avio_tell(pb);
449
450     avio_wb32(pb, 0);     /* size */
451     ffio_wfourcc(pb, "wave");
452
453     if (track->enc->codec_id != AV_CODEC_ID_QDM2) {
454     avio_wb32(pb, 12);    /* size */
455     ffio_wfourcc(pb, "frma");
456     avio_wl32(pb, track->tag);
457     }
458
459     if (track->enc->codec_id == AV_CODEC_ID_AAC) {
460         /* useless atom needed by mplayer, ipod, not needed by quicktime */
461         avio_wb32(pb, 12); /* size */
462         ffio_wfourcc(pb, "mp4a");
463         avio_wb32(pb, 0);
464         mov_write_esds_tag(pb, track);
465     } else if (mov_pcm_le_gt16(track->enc->codec_id))  {
466       mov_write_enda_tag(pb);
467     } else if (mov_pcm_be_gt16(track->enc->codec_id))  {
468       mov_write_enda_tag_be(pb);
469     } else if (track->enc->codec_id == AV_CODEC_ID_AMR_NB) {
470         mov_write_amr_tag(pb, track);
471     } else if (track->enc->codec_id == AV_CODEC_ID_AC3) {
472         mov_write_ac3_tag(pb, track);
473     } else if (track->enc->codec_id == AV_CODEC_ID_ALAC ||
474                track->enc->codec_id == AV_CODEC_ID_QDM2) {
475         mov_write_extradata_tag(pb, track);
476     } else if (track->enc->codec_id == AV_CODEC_ID_ADPCM_MS ||
477                track->enc->codec_id == AV_CODEC_ID_ADPCM_IMA_WAV) {
478         mov_write_ms_tag(pb, track);
479     }
480
481     avio_wb32(pb, 8);     /* size */
482     avio_wb32(pb, 0);     /* null tag */
483
484     return update_size(pb, pos);
485 }
486
487 static int mov_write_dvc1_structs(MOVTrack *track, uint8_t *buf)
488 {
489     uint8_t *unescaped;
490     const uint8_t *start, *next, *end = track->vos_data + track->vos_len;
491     int unescaped_size, seq_found = 0;
492     int level = 0, interlace = 0;
493     int packet_seq   = track->vc1_info.packet_seq;
494     int packet_entry = track->vc1_info.packet_entry;
495     int slices       = track->vc1_info.slices;
496     PutBitContext pbc;
497
498     if (track->start_dts == AV_NOPTS_VALUE) {
499         /* No packets written yet, vc1_info isn't authoritative yet. */
500         /* Assume inline sequence and entry headers. This will be
501          * overwritten at the end if the file is seekable. */
502         packet_seq = packet_entry = 1;
503     }
504
505     unescaped = av_mallocz(track->vos_len + FF_INPUT_BUFFER_PADDING_SIZE);
506     if (!unescaped)
507         return AVERROR(ENOMEM);
508     start = find_next_marker(track->vos_data, end);
509     for (next = start; next < end; start = next) {
510         GetBitContext gb;
511         int size;
512         next = find_next_marker(start + 4, end);
513         size = next - start - 4;
514         if (size <= 0)
515             continue;
516         unescaped_size = vc1_unescape_buffer(start + 4, size, unescaped);
517         init_get_bits(&gb, unescaped, 8 * unescaped_size);
518         if (AV_RB32(start) == VC1_CODE_SEQHDR) {
519             int profile = get_bits(&gb, 2);
520             if (profile != PROFILE_ADVANCED) {
521                 av_free(unescaped);
522                 return AVERROR(ENOSYS);
523             }
524             seq_found = 1;
525             level = get_bits(&gb, 3);
526             /* chromaformat, frmrtq_postproc, bitrtq_postproc, postprocflag,
527              * width, height */
528             skip_bits_long(&gb, 2 + 3 + 5 + 1 + 2*12);
529             skip_bits(&gb, 1); /* broadcast */
530             interlace = get_bits1(&gb);
531             skip_bits(&gb, 4); /* tfcntrflag, finterpflag, reserved, psf */
532         }
533     }
534     if (!seq_found) {
535         av_free(unescaped);
536         return AVERROR(ENOSYS);
537     }
538
539     init_put_bits(&pbc, buf, 7);
540     /* VC1DecSpecStruc */
541     put_bits(&pbc, 4, 12); /* profile - advanced */
542     put_bits(&pbc, 3, level);
543     put_bits(&pbc, 1, 0); /* reserved */
544     /* VC1AdvDecSpecStruc */
545     put_bits(&pbc, 3, level);
546     put_bits(&pbc, 1, 0); /* cbr */
547     put_bits(&pbc, 6, 0); /* reserved */
548     put_bits(&pbc, 1, !interlace); /* no interlace */
549     put_bits(&pbc, 1, !packet_seq); /* no multiple seq */
550     put_bits(&pbc, 1, !packet_entry); /* no multiple entry */
551     put_bits(&pbc, 1, !slices); /* no slice code */
552     put_bits(&pbc, 1, 0); /* no bframe */
553     put_bits(&pbc, 1, 0); /* reserved */
554     put_bits32(&pbc, track->enc->time_base.den); /* framerate */
555     flush_put_bits(&pbc);
556
557     av_free(unescaped);
558
559     return 0;
560 }
561
562 static int mov_write_dvc1_tag(AVIOContext *pb, MOVTrack *track)
563 {
564     uint8_t buf[7] = { 0 };
565     int ret;
566
567     if ((ret = mov_write_dvc1_structs(track, buf)) < 0)
568         return ret;
569
570     avio_wb32(pb, track->vos_len + 8 + sizeof(buf));
571     ffio_wfourcc(pb, "dvc1");
572     track->vc1_info.struct_offset = avio_tell(pb);
573     avio_write(pb, buf, sizeof(buf));
574     avio_write(pb, track->vos_data, track->vos_len);
575
576     return 0;
577 }
578
579 static int mov_write_glbl_tag(AVIOContext *pb, MOVTrack *track)
580 {
581     avio_wb32(pb, track->vos_len + 8);
582     ffio_wfourcc(pb, "glbl");
583     avio_write(pb, track->vos_data, track->vos_len);
584     return 8 + track->vos_len;
585 }
586
587 /**
588  * Compute flags for 'lpcm' tag.
589  * See CoreAudioTypes and AudioStreamBasicDescription at Apple.
590  */
591 static int mov_get_lpcm_flags(enum AVCodecID codec_id)
592 {
593     switch (codec_id) {
594     case AV_CODEC_ID_PCM_F32BE:
595     case AV_CODEC_ID_PCM_F64BE:
596         return 11;
597     case AV_CODEC_ID_PCM_F32LE:
598     case AV_CODEC_ID_PCM_F64LE:
599         return 9;
600     case AV_CODEC_ID_PCM_U8:
601         return 10;
602     case AV_CODEC_ID_PCM_S16BE:
603     case AV_CODEC_ID_PCM_S24BE:
604     case AV_CODEC_ID_PCM_S32BE:
605         return 14;
606     case AV_CODEC_ID_PCM_S8:
607     case AV_CODEC_ID_PCM_S16LE:
608     case AV_CODEC_ID_PCM_S24LE:
609     case AV_CODEC_ID_PCM_S32LE:
610         return 12;
611     default:
612         return 0;
613     }
614 }
615
616 static int get_cluster_duration(MOVTrack *track, int cluster_idx)
617 {
618     int64_t next_dts;
619
620     if (cluster_idx >= track->entry)
621         return 0;
622
623     if (cluster_idx + 1 == track->entry)
624         next_dts = track->track_duration + track->start_dts;
625     else
626         next_dts = track->cluster[cluster_idx + 1].dts;
627
628     next_dts -= track->cluster[cluster_idx].dts;
629
630     av_assert0(next_dts >= 0);
631     av_assert0(next_dts <= INT_MAX);
632
633     return next_dts;
634 }
635
636 static int get_samples_per_packet(MOVTrack *track)
637 {
638     int i, first_duration;
639
640 // return track->enc->frame_size;
641
642     /* use 1 for raw PCM */
643     if (!track->audio_vbr)
644         return 1;
645
646     /* check to see if duration is constant for all clusters */
647     if (!track->entry)
648         return 0;
649     first_duration = get_cluster_duration(track, 0);
650     for (i = 1; i < track->entry; i++) {
651         if (get_cluster_duration(track, i) != first_duration)
652             return 0;
653     }
654     return first_duration;
655 }
656
657 static int mov_write_audio_tag(AVIOContext *pb, MOVTrack *track)
658 {
659     int64_t pos = avio_tell(pb);
660     int version = 0;
661     uint32_t tag = track->tag;
662
663     if (track->mode == MODE_MOV) {
664         if (track->timescale > UINT16_MAX) {
665             if (mov_get_lpcm_flags(track->enc->codec_id))
666                 tag = AV_RL32("lpcm");
667             version = 2;
668         } else if (track->audio_vbr || mov_pcm_le_gt16(track->enc->codec_id) ||
669                    mov_pcm_be_gt16(track->enc->codec_id) ||
670                    track->enc->codec_id == AV_CODEC_ID_ADPCM_MS ||
671                    track->enc->codec_id == AV_CODEC_ID_ADPCM_IMA_WAV ||
672                    track->enc->codec_id == AV_CODEC_ID_QDM2) {
673             version = 1;
674         }
675     }
676
677     avio_wb32(pb, 0); /* size */
678     avio_wl32(pb, tag); // store it byteswapped
679     avio_wb32(pb, 0); /* Reserved */
680     avio_wb16(pb, 0); /* Reserved */
681     avio_wb16(pb, 1); /* Data-reference index, XXX  == 1 */
682
683     /* SoundDescription */
684     avio_wb16(pb, version); /* Version */
685     avio_wb16(pb, 0); /* Revision level */
686     avio_wb32(pb, 0); /* Reserved */
687
688     if (version == 2) {
689         avio_wb16(pb, 3);
690         avio_wb16(pb, 16);
691         avio_wb16(pb, 0xfffe);
692         avio_wb16(pb, 0);
693         avio_wb32(pb, 0x00010000);
694         avio_wb32(pb, 72);
695         avio_wb64(pb, av_double2int(track->enc->sample_rate));
696         avio_wb32(pb, track->enc->channels);
697         avio_wb32(pb, 0x7F000000);
698         avio_wb32(pb, av_get_bits_per_sample(track->enc->codec_id));
699         avio_wb32(pb, mov_get_lpcm_flags(track->enc->codec_id));
700         avio_wb32(pb, track->sample_size);
701         avio_wb32(pb, get_samples_per_packet(track));
702     } else {
703         if (track->mode == MODE_MOV) {
704             avio_wb16(pb, track->enc->channels);
705             if (track->enc->codec_id == AV_CODEC_ID_PCM_U8 ||
706                 track->enc->codec_id == AV_CODEC_ID_PCM_S8)
707                 avio_wb16(pb, 8); /* bits per sample */
708             else
709                 avio_wb16(pb, 16);
710             avio_wb16(pb, track->audio_vbr ? -2 : 0); /* compression ID */
711         } else { /* reserved for mp4/3gp */
712             avio_wb16(pb, 2);
713             avio_wb16(pb, 16);
714             avio_wb16(pb, 0);
715         }
716
717         avio_wb16(pb, 0); /* packet size (= 0) */
718         avio_wb16(pb, track->enc->sample_rate <= UINT16_MAX ?
719                       track->enc->sample_rate : 0);
720         avio_wb16(pb, 0); /* Reserved */
721     }
722
723     if (version == 1) { /* SoundDescription V1 extended info */
724         if (mov_pcm_le_gt16(track->enc->codec_id) ||
725             mov_pcm_be_gt16(track->enc->codec_id))
726             avio_wb32(pb, 1); /*  must be 1 for  uncompressed formats */
727         else
728             avio_wb32(pb, track->enc->frame_size); /* Samples per packet */
729         avio_wb32(pb, track->sample_size / track->enc->channels); /* Bytes per packet */
730         avio_wb32(pb, track->sample_size); /* Bytes per frame */
731         avio_wb32(pb, 2); /* Bytes per sample */
732     }
733
734     if (track->mode == MODE_MOV &&
735         (track->enc->codec_id == AV_CODEC_ID_AAC           ||
736          track->enc->codec_id == AV_CODEC_ID_AC3           ||
737          track->enc->codec_id == AV_CODEC_ID_AMR_NB        ||
738          track->enc->codec_id == AV_CODEC_ID_ALAC          ||
739          track->enc->codec_id == AV_CODEC_ID_ADPCM_MS      ||
740          track->enc->codec_id == AV_CODEC_ID_ADPCM_IMA_WAV ||
741          track->enc->codec_id == AV_CODEC_ID_QDM2          ||
742          (mov_pcm_le_gt16(track->enc->codec_id) && version==1) ||
743          (mov_pcm_be_gt16(track->enc->codec_id) && version==1)))
744         mov_write_wave_tag(pb, track);
745     else if (track->tag == MKTAG('m','p','4','a'))
746         mov_write_esds_tag(pb, track);
747     else if (track->enc->codec_id == AV_CODEC_ID_AMR_NB)
748         mov_write_amr_tag(pb, track);
749     else if (track->enc->codec_id == AV_CODEC_ID_AC3)
750         mov_write_ac3_tag(pb, track);
751     else if (track->enc->codec_id == AV_CODEC_ID_ALAC)
752         mov_write_extradata_tag(pb, track);
753     else if (track->enc->codec_id == AV_CODEC_ID_WMAPRO)
754         mov_write_wfex_tag(pb, track);
755     else if (track->vos_len > 0)
756         mov_write_glbl_tag(pb, track);
757
758     if (track->mode == MODE_MOV && track->enc->codec_type == AVMEDIA_TYPE_AUDIO)
759         mov_write_chan_tag(pb, track);
760
761     return update_size(pb, pos);
762 }
763
764 static int mov_write_d263_tag(AVIOContext *pb)
765 {
766     avio_wb32(pb, 0xf); /* size */
767     ffio_wfourcc(pb, "d263");
768     ffio_wfourcc(pb, "FFMP");
769     avio_w8(pb, 0); /* decoder version */
770     /* FIXME use AVCodecContext level/profile, when encoder will set values */
771     avio_w8(pb, 0xa); /* level */
772     avio_w8(pb, 0); /* profile */
773     return 0xf;
774 }
775
776 static int mov_write_avcc_tag(AVIOContext *pb, MOVTrack *track)
777 {
778     int64_t pos = avio_tell(pb);
779
780     avio_wb32(pb, 0);
781     ffio_wfourcc(pb, "avcC");
782     ff_isom_write_avcc(pb, track->vos_data, track->vos_len);
783     return update_size(pb, pos);
784 }
785
786 static int mov_write_hvcc_tag(AVIOContext *pb, MOVTrack *track)
787 {
788     int64_t pos = avio_tell(pb);
789
790     avio_wb32(pb, 0);
791     ffio_wfourcc(pb, "hvcC");
792     ff_isom_write_hvcc(pb, track->vos_data, track->vos_len, 0);
793     return update_size(pb, pos);
794 }
795
796 /* also used by all avid codecs (dv, imx, meridien) and their variants */
797 static int mov_write_avid_tag(AVIOContext *pb, MOVTrack *track)
798 {
799     int i;
800     avio_wb32(pb, 24); /* size */
801     ffio_wfourcc(pb, "ACLR");
802     ffio_wfourcc(pb, "ACLR");
803     ffio_wfourcc(pb, "0001");
804     avio_wb32(pb, 2); /* yuv range: full 1 / normal 2 */
805     avio_wb32(pb, 0); /* unknown */
806
807     avio_wb32(pb, 24); /* size */
808     ffio_wfourcc(pb, "APRG");
809     ffio_wfourcc(pb, "APRG");
810     ffio_wfourcc(pb, "0001");
811     avio_wb32(pb, 1); /* unknown */
812     avio_wb32(pb, 0); /* unknown */
813
814     avio_wb32(pb, 120); /* size */
815     ffio_wfourcc(pb, "ARES");
816     ffio_wfourcc(pb, "ARES");
817     ffio_wfourcc(pb, "0001");
818     avio_wb32(pb, AV_RB32(track->vos_data + 0x28)); /* dnxhd cid, some id ? */
819     avio_wb32(pb, track->enc->width);
820     /* values below are based on samples created with quicktime and avid codecs */
821     if (track->vos_data[5] & 2) { // interlaced
822         avio_wb32(pb, track->enc->height / 2);
823         avio_wb32(pb, 2); /* unknown */
824         avio_wb32(pb, 0); /* unknown */
825         avio_wb32(pb, 4); /* unknown */
826     } else {
827         avio_wb32(pb, track->enc->height);
828         avio_wb32(pb, 1); /* unknown */
829         avio_wb32(pb, 0); /* unknown */
830         if (track->enc->height == 1080)
831             avio_wb32(pb, 5); /* unknown */
832         else
833             avio_wb32(pb, 6); /* unknown */
834     }
835     /* padding */
836     for (i = 0; i < 10; i++)
837         avio_wb64(pb, 0);
838
839     /* extra padding for stsd needed */
840     avio_wb32(pb, 0);
841     return 0;
842 }
843
844 static int mp4_get_codec_tag(AVFormatContext *s, MOVTrack *track)
845 {
846     int tag = track->enc->codec_tag;
847
848     if (!ff_codec_get_tag(ff_mp4_obj_type, track->enc->codec_id))
849         return 0;
850
851     if      (track->enc->codec_id == AV_CODEC_ID_H264)      tag = MKTAG('a','v','c','1');
852     else if (track->enc->codec_id == AV_CODEC_ID_HEVC)      tag = MKTAG('h','e','v','1');
853     else if (track->enc->codec_id == AV_CODEC_ID_AC3)       tag = MKTAG('a','c','-','3');
854     else if (track->enc->codec_id == AV_CODEC_ID_DIRAC)     tag = MKTAG('d','r','a','c');
855     else if (track->enc->codec_id == AV_CODEC_ID_MOV_TEXT)  tag = MKTAG('t','x','3','g');
856     else if (track->enc->codec_id == AV_CODEC_ID_VC1)       tag = MKTAG('v','c','-','1');
857     else if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO)  tag = MKTAG('m','p','4','v');
858     else if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO)  tag = MKTAG('m','p','4','a');
859     else if (track->enc->codec_id == AV_CODEC_ID_DVD_SUBTITLE)  tag = MKTAG('m','p','4','s');
860
861     return tag;
862 }
863
864 static const AVCodecTag codec_ipod_tags[] = {
865     { AV_CODEC_ID_H264,     MKTAG('a','v','c','1') },
866     { AV_CODEC_ID_MPEG4,    MKTAG('m','p','4','v') },
867     { AV_CODEC_ID_AAC,      MKTAG('m','p','4','a') },
868     { AV_CODEC_ID_ALAC,     MKTAG('a','l','a','c') },
869     { AV_CODEC_ID_AC3,      MKTAG('a','c','-','3') },
870     { AV_CODEC_ID_MOV_TEXT, MKTAG('t','x','3','g') },
871     { AV_CODEC_ID_MOV_TEXT, MKTAG('t','e','x','t') },
872     { AV_CODEC_ID_NONE, 0 },
873 };
874
875 static int ipod_get_codec_tag(AVFormatContext *s, MOVTrack *track)
876 {
877     int tag = track->enc->codec_tag;
878
879     // keep original tag for subs, ipod supports both formats
880     if (!(track->enc->codec_type == AVMEDIA_TYPE_SUBTITLE &&
881           (tag == MKTAG('t', 'x', '3', 'g') ||
882            tag == MKTAG('t', 'e', 'x', 't'))))
883         tag = ff_codec_get_tag(codec_ipod_tags, track->enc->codec_id);
884
885     if (!av_match_ext(s->filename, "m4a") && !av_match_ext(s->filename, "m4v"))
886         av_log(s, AV_LOG_WARNING, "Warning, extension is not .m4a nor .m4v "
887                "Quicktime/Ipod might not play the file\n");
888
889     return tag;
890 }
891
892 static int mov_get_dv_codec_tag(AVFormatContext *s, MOVTrack *track)
893 {
894     int tag;
895
896     if (track->enc->width == 720) { /* SD */
897         if (track->enc->height == 480) { /* NTSC */
898             if  (track->enc->pix_fmt == AV_PIX_FMT_YUV422P) tag = MKTAG('d','v','5','n');
899             else                                            tag = MKTAG('d','v','c',' ');
900        }else if (track->enc->pix_fmt == AV_PIX_FMT_YUV422P) tag = MKTAG('d','v','5','p');
901         else if (track->enc->pix_fmt == AV_PIX_FMT_YUV420P) tag = MKTAG('d','v','c','p');
902         else                                                tag = MKTAG('d','v','p','p');
903     } else if (track->enc->height == 720) { /* HD 720 line */
904         if  (track->enc->time_base.den == 50)               tag = MKTAG('d','v','h','q');
905         else                                                tag = MKTAG('d','v','h','p');
906     } else if (track->enc->height == 1080) { /* HD 1080 line */
907         if  (track->enc->time_base.den == 25)               tag = MKTAG('d','v','h','5');
908         else                                                tag = MKTAG('d','v','h','6');
909     } else {
910         av_log(s, AV_LOG_ERROR, "unsupported height for dv codec\n");
911         return 0;
912     }
913
914     return tag;
915 }
916
917 static AVRational find_fps(AVFormatContext *s, AVStream *st)
918 {
919     AVRational rate = {st->codec->time_base.den, st->codec->time_base.num};
920     /* if the codec time base makes no sense, try to fallback on stream frame rate */
921     if (av_timecode_check_frame_rate(rate) < 0) {
922         av_log(s, AV_LOG_DEBUG, "timecode: tbc=%d/%d invalid, fallback on %d/%d\n",
923                rate.num, rate.den, st->avg_frame_rate.num, st->avg_frame_rate.den);
924         rate = st->avg_frame_rate;
925     }
926
927     return rate;
928 }
929
930 static int mov_get_mpeg2_xdcam_codec_tag(AVFormatContext *s, MOVTrack *track)
931 {
932     int tag = track->enc->codec_tag;
933     int interlaced = track->enc->field_order > AV_FIELD_PROGRESSIVE;
934     AVStream *st = track->st;
935     int rate = av_q2d(find_fps(s, st));
936
937     if (!tag)
938         tag = MKTAG('m', '2', 'v', '1'); //fallback tag
939
940     if (track->enc->pix_fmt == AV_PIX_FMT_YUV420P) {
941         if (track->enc->width == 1280 && track->enc->height == 720) {
942             if (!interlaced) {
943                 if      (rate == 24) tag = MKTAG('x','d','v','4');
944                 else if (rate == 25) tag = MKTAG('x','d','v','5');
945                 else if (rate == 30) tag = MKTAG('x','d','v','1');
946                 else if (rate == 50) tag = MKTAG('x','d','v','a');
947                 else if (rate == 60) tag = MKTAG('x','d','v','9');
948             }
949         } else if (track->enc->width == 1440 && track->enc->height == 1080) {
950             if (!interlaced) {
951                 if      (rate == 24) tag = MKTAG('x','d','v','6');
952                 else if (rate == 25) tag = MKTAG('x','d','v','7');
953                 else if (rate == 30) tag = MKTAG('x','d','v','8');
954             } else {
955                 if      (rate == 25) tag = MKTAG('x','d','v','3');
956                 else if (rate == 30) tag = MKTAG('x','d','v','2');
957             }
958         } else if (track->enc->width == 1920 && track->enc->height == 1080) {
959             if (!interlaced) {
960                 if      (rate == 24) tag = MKTAG('x','d','v','d');
961                 else if (rate == 25) tag = MKTAG('x','d','v','e');
962                 else if (rate == 30) tag = MKTAG('x','d','v','f');
963             } else {
964                 if      (rate == 25) tag = MKTAG('x','d','v','c');
965                 else if (rate == 30) tag = MKTAG('x','d','v','b');
966             }
967         }
968     } else if (track->enc->pix_fmt == AV_PIX_FMT_YUV422P) {
969         if (track->enc->width == 1280 && track->enc->height == 720) {
970             if (!interlaced) {
971                 if      (rate == 24) tag = MKTAG('x','d','5','4');
972                 else if (rate == 25) tag = MKTAG('x','d','5','5');
973                 else if (rate == 30) tag = MKTAG('x','d','5','1');
974                 else if (rate == 50) tag = MKTAG('x','d','5','a');
975                 else if (rate == 60) tag = MKTAG('x','d','5','9');
976             }
977         } else if (track->enc->width == 1920 && track->enc->height == 1080) {
978             if (!interlaced) {
979                 if      (rate == 24) tag = MKTAG('x','d','5','d');
980                 else if (rate == 25) tag = MKTAG('x','d','5','e');
981                 else if (rate == 30) tag = MKTAG('x','d','5','f');
982             } else {
983                 if      (rate == 25) tag = MKTAG('x','d','5','c');
984                 else if (rate == 30) tag = MKTAG('x','d','5','b');
985             }
986         }
987     }
988
989     return tag;
990 }
991
992 static const struct {
993     enum AVPixelFormat pix_fmt;
994     uint32_t tag;
995     unsigned bps;
996 } mov_pix_fmt_tags[] = {
997     { AV_PIX_FMT_YUYV422, MKTAG('y','u','v','2'),  0 },
998     { AV_PIX_FMT_YUYV422, MKTAG('y','u','v','s'),  0 },
999     { AV_PIX_FMT_UYVY422, MKTAG('2','v','u','y'),  0 },
1000     { AV_PIX_FMT_RGB555BE,MKTAG('r','a','w',' '), 16 },
1001     { AV_PIX_FMT_RGB555LE,MKTAG('L','5','5','5'), 16 },
1002     { AV_PIX_FMT_RGB565LE,MKTAG('L','5','6','5'), 16 },
1003     { AV_PIX_FMT_RGB565BE,MKTAG('B','5','6','5'), 16 },
1004     { AV_PIX_FMT_GRAY16BE,MKTAG('b','1','6','g'), 16 },
1005     { AV_PIX_FMT_RGB24,   MKTAG('r','a','w',' '), 24 },
1006     { AV_PIX_FMT_BGR24,   MKTAG('2','4','B','G'), 24 },
1007     { AV_PIX_FMT_ARGB,    MKTAG('r','a','w',' '), 32 },
1008     { AV_PIX_FMT_BGRA,    MKTAG('B','G','R','A'), 32 },
1009     { AV_PIX_FMT_RGBA,    MKTAG('R','G','B','A'), 32 },
1010     { AV_PIX_FMT_ABGR,    MKTAG('A','B','G','R'), 32 },
1011     { AV_PIX_FMT_RGB48BE, MKTAG('b','4','8','r'), 48 },
1012 };
1013
1014 static int mov_get_rawvideo_codec_tag(AVFormatContext *s, MOVTrack *track)
1015 {
1016     int tag = track->enc->codec_tag;
1017     int i;
1018     enum AVPixelFormat pix_fmt;
1019
1020     for (i = 0; i < FF_ARRAY_ELEMS(mov_pix_fmt_tags); i++) {
1021         if (track->enc->pix_fmt == mov_pix_fmt_tags[i].pix_fmt) {
1022             tag = mov_pix_fmt_tags[i].tag;
1023             track->enc->bits_per_coded_sample = mov_pix_fmt_tags[i].bps;
1024             if (track->enc->codec_tag == mov_pix_fmt_tags[i].tag)
1025                 break;
1026         }
1027     }
1028
1029     pix_fmt = avpriv_find_pix_fmt(avpriv_pix_fmt_bps_mov,
1030                                   track->enc->bits_per_coded_sample);
1031     if (tag == MKTAG('r','a','w',' ') &&
1032         track->enc->pix_fmt != pix_fmt &&
1033         track->enc->pix_fmt != AV_PIX_FMT_NONE)
1034         av_log(s, AV_LOG_ERROR, "%s rawvideo cannot be written to mov, output file will be unreadable\n",
1035                av_get_pix_fmt_name(track->enc->pix_fmt));
1036     return tag;
1037 }
1038
1039 static int mov_get_codec_tag(AVFormatContext *s, MOVTrack *track)
1040 {
1041     int tag = track->enc->codec_tag;
1042
1043     if (!tag || (track->enc->strict_std_compliance >= FF_COMPLIANCE_NORMAL &&
1044                  (track->enc->codec_id == AV_CODEC_ID_DVVIDEO ||
1045                   track->enc->codec_id == AV_CODEC_ID_RAWVIDEO ||
1046                   track->enc->codec_id == AV_CODEC_ID_H263 ||
1047                   track->enc->codec_id == AV_CODEC_ID_MPEG2VIDEO ||
1048                   av_get_bits_per_sample(track->enc->codec_id)))) { // pcm audio
1049         if (track->enc->codec_id == AV_CODEC_ID_DVVIDEO)
1050             tag = mov_get_dv_codec_tag(s, track);
1051         else if (track->enc->codec_id == AV_CODEC_ID_RAWVIDEO)
1052             tag = mov_get_rawvideo_codec_tag(s, track);
1053         else if (track->enc->codec_id == AV_CODEC_ID_MPEG2VIDEO)
1054             tag = mov_get_mpeg2_xdcam_codec_tag(s, track);
1055         else if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO) {
1056             tag = ff_codec_get_tag(ff_codec_movvideo_tags, track->enc->codec_id);
1057             if (!tag) { // if no mac fcc found, try with Microsoft tags
1058                 tag = ff_codec_get_tag(ff_codec_bmp_tags, track->enc->codec_id);
1059                 if (tag)
1060                     av_log(s, AV_LOG_WARNING, "Using MS style video codec tag, "
1061                            "the file may be unplayable!\n");
1062             }
1063         } else if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO) {
1064             tag = ff_codec_get_tag(ff_codec_movaudio_tags, track->enc->codec_id);
1065             if (!tag) { // if no mac fcc found, try with Microsoft tags
1066                 int ms_tag = ff_codec_get_tag(ff_codec_wav_tags, track->enc->codec_id);
1067                 if (ms_tag) {
1068                     tag = MKTAG('m', 's', ((ms_tag >> 8) & 0xff), (ms_tag & 0xff));
1069                     av_log(s, AV_LOG_WARNING, "Using MS style audio codec tag, "
1070                            "the file may be unplayable!\n");
1071                 }
1072             }
1073         } else if (track->enc->codec_type == AVMEDIA_TYPE_SUBTITLE)
1074             tag = ff_codec_get_tag(ff_codec_movsubtitle_tags, track->enc->codec_id);
1075     }
1076
1077     return tag;
1078 }
1079
1080 static const AVCodecTag codec_3gp_tags[] = {
1081     { AV_CODEC_ID_H263,     MKTAG('s','2','6','3') },
1082     { AV_CODEC_ID_H264,     MKTAG('a','v','c','1') },
1083     { AV_CODEC_ID_MPEG4,    MKTAG('m','p','4','v') },
1084     { AV_CODEC_ID_AAC,      MKTAG('m','p','4','a') },
1085     { AV_CODEC_ID_AMR_NB,   MKTAG('s','a','m','r') },
1086     { AV_CODEC_ID_AMR_WB,   MKTAG('s','a','w','b') },
1087     { AV_CODEC_ID_MOV_TEXT, MKTAG('t','x','3','g') },
1088     { AV_CODEC_ID_NONE, 0 },
1089 };
1090
1091 static const AVCodecTag codec_f4v_tags[] = { // XXX: add GIF/PNG/JPEG?
1092     { AV_CODEC_ID_MP3,    MKTAG('.','m','p','3') },
1093     { AV_CODEC_ID_AAC,    MKTAG('m','p','4','a') },
1094     { AV_CODEC_ID_H264,   MKTAG('a','v','c','1') },
1095     { AV_CODEC_ID_VP6A,   MKTAG('V','P','6','A') },
1096     { AV_CODEC_ID_VP6F,   MKTAG('V','P','6','F') },
1097     { AV_CODEC_ID_NONE, 0 },
1098 };
1099
1100 static int mov_find_codec_tag(AVFormatContext *s, MOVTrack *track)
1101 {
1102     int tag;
1103
1104     if (track->mode == MODE_MP4 || track->mode == MODE_PSP)
1105         tag = mp4_get_codec_tag(s, track);
1106     else if (track->mode == MODE_ISM) {
1107         tag = mp4_get_codec_tag(s, track);
1108         if (!tag && track->enc->codec_id == AV_CODEC_ID_WMAPRO)
1109             tag = MKTAG('w', 'm', 'a', ' ');
1110     } else if (track->mode == MODE_IPOD)
1111         tag = ipod_get_codec_tag(s, track);
1112     else if (track->mode & MODE_3GP)
1113         tag = ff_codec_get_tag(codec_3gp_tags, track->enc->codec_id);
1114     else if (track->mode == MODE_F4V)
1115         tag = ff_codec_get_tag(codec_f4v_tags, track->enc->codec_id);
1116     else
1117         tag = mov_get_codec_tag(s, track);
1118
1119     return tag;
1120 }
1121
1122 /** Write uuid atom.
1123  * Needed to make file play in iPods running newest firmware
1124  * goes after avcC atom in moov.trak.mdia.minf.stbl.stsd.avc1
1125  */
1126 static int mov_write_uuid_tag_ipod(AVIOContext *pb)
1127 {
1128     avio_wb32(pb, 28);
1129     ffio_wfourcc(pb, "uuid");
1130     avio_wb32(pb, 0x6b6840f2);
1131     avio_wb32(pb, 0x5f244fc5);
1132     avio_wb32(pb, 0xba39a51b);
1133     avio_wb32(pb, 0xcf0323f3);
1134     avio_wb32(pb, 0x0);
1135     return 28;
1136 }
1137
1138 static const uint16_t fiel_data[] = {
1139     0x0000, 0x0100, 0x0201, 0x0206, 0x0209, 0x020e
1140 };
1141
1142 static int mov_write_fiel_tag(AVIOContext *pb, MOVTrack *track)
1143 {
1144     unsigned mov_field_order = 0;
1145     if (track->enc->field_order < FF_ARRAY_ELEMS(fiel_data))
1146         mov_field_order = fiel_data[track->enc->field_order];
1147     else
1148         return 0;
1149     avio_wb32(pb, 10);
1150     ffio_wfourcc(pb, "fiel");
1151     avio_wb16(pb, mov_field_order);
1152     return 10;
1153 }
1154
1155 static int mov_write_subtitle_tag(AVIOContext *pb, MOVTrack *track)
1156 {
1157     int64_t pos = avio_tell(pb);
1158     avio_wb32(pb, 0);    /* size */
1159     avio_wl32(pb, track->tag); // store it byteswapped
1160     avio_wb32(pb, 0);    /* Reserved */
1161     avio_wb16(pb, 0);    /* Reserved */
1162     avio_wb16(pb, 1);    /* Data-reference index */
1163
1164     if (track->enc->codec_id == AV_CODEC_ID_DVD_SUBTITLE)
1165         mov_write_esds_tag(pb, track);
1166     else if (track->enc->extradata_size)
1167         avio_write(pb, track->enc->extradata, track->enc->extradata_size);
1168
1169     return update_size(pb, pos);
1170 }
1171
1172 static int mov_write_pasp_tag(AVIOContext *pb, MOVTrack *track)
1173 {
1174     AVRational sar;
1175     av_reduce(&sar.num, &sar.den, track->enc->sample_aspect_ratio.num,
1176               track->enc->sample_aspect_ratio.den, INT_MAX);
1177
1178     avio_wb32(pb, 16);
1179     ffio_wfourcc(pb, "pasp");
1180     avio_wb32(pb, sar.num);
1181     avio_wb32(pb, sar.den);
1182     return 16;
1183 }
1184
1185 static void find_compressor(char * compressor_name, int len, MOVTrack *track)
1186 {
1187     int xdcam_res =  (track->enc->width == 1280 && track->enc->height == 720)
1188                   || (track->enc->width == 1440 && track->enc->height == 1080)
1189                   || (track->enc->width == 1920 && track->enc->height == 1080);
1190
1191     if (track->mode == MODE_MOV && track->enc->codec && track->enc->codec->name) {
1192         av_strlcpy(compressor_name, track->enc->codec->name, 32);
1193     } else if (track->enc->codec_id == AV_CODEC_ID_MPEG2VIDEO && xdcam_res) {
1194         int interlaced = track->enc->field_order > AV_FIELD_PROGRESSIVE;
1195         AVStream *st = track->st;
1196         int rate = av_q2d(find_fps(NULL, st));
1197         av_strlcatf(compressor_name, len, "XDCAM");
1198         if (track->enc->pix_fmt == AV_PIX_FMT_YUV422P) {
1199             av_strlcatf(compressor_name, len, " HD422");
1200         } else if(track->enc->width == 1440) {
1201             av_strlcatf(compressor_name, len, " HD");
1202         } else
1203             av_strlcatf(compressor_name, len, " EX");
1204
1205         av_strlcatf(compressor_name, len, " %d%c", track->enc->height, interlaced ? 'i' : 'p');
1206
1207         av_strlcatf(compressor_name, len, "%d", rate * (interlaced + 1));
1208     }
1209 }
1210
1211 static int mov_write_video_tag(AVIOContext *pb, MOVTrack *track)
1212 {
1213     int64_t pos = avio_tell(pb);
1214     char compressor_name[32] = { 0 };
1215
1216     avio_wb32(pb, 0); /* size */
1217     avio_wl32(pb, track->tag); // store it byteswapped
1218     avio_wb32(pb, 0); /* Reserved */
1219     avio_wb16(pb, 0); /* Reserved */
1220     avio_wb16(pb, 1); /* Data-reference index */
1221
1222     avio_wb16(pb, 0); /* Codec stream version */
1223     avio_wb16(pb, 0); /* Codec stream revision (=0) */
1224     if (track->mode == MODE_MOV) {
1225         ffio_wfourcc(pb, "FFMP"); /* Vendor */
1226         if (track->enc->codec_id == AV_CODEC_ID_RAWVIDEO) {
1227             avio_wb32(pb, 0); /* Temporal Quality */
1228             avio_wb32(pb, 0x400); /* Spatial Quality = lossless*/
1229         } else {
1230             avio_wb32(pb, 0x200); /* Temporal Quality = normal */
1231             avio_wb32(pb, 0x200); /* Spatial Quality = normal */
1232         }
1233     } else {
1234         avio_wb32(pb, 0); /* Reserved */
1235         avio_wb32(pb, 0); /* Reserved */
1236         avio_wb32(pb, 0); /* Reserved */
1237     }
1238     avio_wb16(pb, track->enc->width); /* Video width */
1239     avio_wb16(pb, track->height); /* Video height */
1240     avio_wb32(pb, 0x00480000); /* Horizontal resolution 72dpi */
1241     avio_wb32(pb, 0x00480000); /* Vertical resolution 72dpi */
1242     avio_wb32(pb, 0); /* Data size (= 0) */
1243     avio_wb16(pb, 1); /* Frame count (= 1) */
1244
1245     /* FIXME not sure, ISO 14496-1 draft where it shall be set to 0 */
1246     find_compressor(compressor_name, 32, track);
1247     avio_w8(pb, strlen(compressor_name));
1248     avio_write(pb, compressor_name, 31);
1249
1250     if (track->mode == MODE_MOV && track->enc->bits_per_coded_sample)
1251         avio_wb16(pb, track->enc->bits_per_coded_sample);
1252     else
1253         avio_wb16(pb, 0x18); /* Reserved */
1254     avio_wb16(pb, 0xffff); /* Reserved */
1255     if (track->tag == MKTAG('m','p','4','v'))
1256         mov_write_esds_tag(pb, track);
1257     else if (track->enc->codec_id == AV_CODEC_ID_H263)
1258         mov_write_d263_tag(pb);
1259     else if (track->enc->codec_id == AV_CODEC_ID_AVUI ||
1260             track->enc->codec_id == AV_CODEC_ID_SVQ3) {
1261         mov_write_extradata_tag(pb, track);
1262         avio_wb32(pb, 0);
1263     } else if (track->enc->codec_id == AV_CODEC_ID_DNXHD)
1264         mov_write_avid_tag(pb, track);
1265     else if (track->enc->codec_id == AV_CODEC_ID_HEVC)
1266         mov_write_hvcc_tag(pb, track);
1267     else if (track->enc->codec_id == AV_CODEC_ID_H264) {
1268         mov_write_avcc_tag(pb, track);
1269         if (track->mode == MODE_IPOD)
1270             mov_write_uuid_tag_ipod(pb);
1271     } else if (track->enc->codec_id == AV_CODEC_ID_VC1 && track->vos_len > 0)
1272         mov_write_dvc1_tag(pb, track);
1273     else if (track->enc->codec_id == AV_CODEC_ID_VP6F ||
1274              track->enc->codec_id == AV_CODEC_ID_VP6A) {
1275         /* Don't write any potential extradata here - the cropping
1276          * is signalled via the normal width/height fields. */
1277     } else if (track->vos_len > 0)
1278         mov_write_glbl_tag(pb, track);
1279
1280     if (track->enc->codec_id != AV_CODEC_ID_H264 &&
1281         track->enc->codec_id != AV_CODEC_ID_MPEG4 &&
1282         track->enc->codec_id != AV_CODEC_ID_DNXHD)
1283         if (track->enc->field_order != AV_FIELD_UNKNOWN)
1284             mov_write_fiel_tag(pb, track);
1285
1286     if (track->enc->sample_aspect_ratio.den && track->enc->sample_aspect_ratio.num &&
1287         track->enc->sample_aspect_ratio.den != track->enc->sample_aspect_ratio.num) {
1288         mov_write_pasp_tag(pb, track);
1289     }
1290
1291     return update_size(pb, pos);
1292 }
1293
1294 static int mov_write_rtp_tag(AVIOContext *pb, MOVTrack *track)
1295 {
1296     int64_t pos = avio_tell(pb);
1297     avio_wb32(pb, 0); /* size */
1298     ffio_wfourcc(pb, "rtp ");
1299     avio_wb32(pb, 0); /* Reserved */
1300     avio_wb16(pb, 0); /* Reserved */
1301     avio_wb16(pb, 1); /* Data-reference index */
1302
1303     avio_wb16(pb, 1); /* Hint track version */
1304     avio_wb16(pb, 1); /* Highest compatible version */
1305     avio_wb32(pb, track->max_packet_size); /* Max packet size */
1306
1307     avio_wb32(pb, 12); /* size */
1308     ffio_wfourcc(pb, "tims");
1309     avio_wb32(pb, track->timescale);
1310
1311     return update_size(pb, pos);
1312 }
1313
1314 static int mov_write_tmcd_tag(AVIOContext *pb, MOVTrack *track)
1315 {
1316     int64_t pos = avio_tell(pb);
1317 #if 1
1318     int frame_duration = av_rescale(track->timescale, track->enc->time_base.num, track->enc->time_base.den);
1319     int nb_frames = 1.0/av_q2d(track->enc->time_base) + 0.5;
1320
1321     if (nb_frames > 255) {
1322         av_log(NULL, AV_LOG_ERROR, "fps %d is too large\n", nb_frames);
1323         return AVERROR(EINVAL);
1324     }
1325
1326     avio_wb32(pb, 0); /* size */
1327     ffio_wfourcc(pb, "tmcd");               /* Data format */
1328     avio_wb32(pb, 0);                       /* Reserved */
1329     avio_wb32(pb, 1);                       /* Data reference index */
1330     avio_wb32(pb, 0);                       /* Flags */
1331     avio_wb32(pb, track->timecode_flags);   /* Flags (timecode) */
1332     avio_wb32(pb, track->timescale);        /* Timescale */
1333     avio_wb32(pb, frame_duration);          /* Frame duration */
1334     avio_w8(pb, nb_frames);                 /* Number of frames */
1335     avio_wb24(pb, 0);                       /* Reserved */
1336     /* TODO: source reference string */
1337 #else
1338
1339     avio_wb32(pb, 0); /* size */
1340     ffio_wfourcc(pb, "tmcd");               /* Data format */
1341     avio_wb32(pb, 0);                       /* Reserved */
1342     avio_wb32(pb, 1);                       /* Data reference index */
1343     if (track->enc->extradata_size)
1344         avio_write(pb, track->enc->extradata, track->enc->extradata_size);
1345 #endif
1346     return update_size(pb, pos);
1347 }
1348
1349 static int mov_write_stsd_tag(AVIOContext *pb, MOVTrack *track)
1350 {
1351     int64_t pos = avio_tell(pb);
1352     avio_wb32(pb, 0); /* size */
1353     ffio_wfourcc(pb, "stsd");
1354     avio_wb32(pb, 0); /* version & flags */
1355     avio_wb32(pb, 1); /* entry count */
1356     if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO)
1357         mov_write_video_tag(pb, track);
1358     else if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO)
1359         mov_write_audio_tag(pb, track);
1360     else if (track->enc->codec_type == AVMEDIA_TYPE_SUBTITLE)
1361         mov_write_subtitle_tag(pb, track);
1362     else if (track->enc->codec_tag == MKTAG('r','t','p',' '))
1363         mov_write_rtp_tag(pb, track);
1364     else if (track->enc->codec_tag == MKTAG('t','m','c','d'))
1365         mov_write_tmcd_tag(pb, track);
1366     return update_size(pb, pos);
1367 }
1368
1369 static int mov_write_ctts_tag(AVIOContext *pb, MOVTrack *track)
1370 {
1371     MOVStts *ctts_entries;
1372     uint32_t entries = 0;
1373     uint32_t atom_size;
1374     int i;
1375
1376     ctts_entries = av_malloc((track->entry + 1) * sizeof(*ctts_entries)); /* worst case */
1377     ctts_entries[0].count = 1;
1378     ctts_entries[0].duration = track->cluster[0].cts;
1379     for (i = 1; i < track->entry; i++) {
1380         if (track->cluster[i].cts == ctts_entries[entries].duration) {
1381             ctts_entries[entries].count++; /* compress */
1382         } else {
1383             entries++;
1384             ctts_entries[entries].duration = track->cluster[i].cts;
1385             ctts_entries[entries].count = 1;
1386         }
1387     }
1388     entries++; /* last one */
1389     atom_size = 16 + (entries * 8);
1390     avio_wb32(pb, atom_size); /* size */
1391     ffio_wfourcc(pb, "ctts");
1392     avio_wb32(pb, 0); /* version & flags */
1393     avio_wb32(pb, entries); /* entry count */
1394     for (i = 0; i < entries; i++) {
1395         avio_wb32(pb, ctts_entries[i].count);
1396         avio_wb32(pb, ctts_entries[i].duration);
1397     }
1398     av_free(ctts_entries);
1399     return atom_size;
1400 }
1401
1402 /* Time to sample atom */
1403 static int mov_write_stts_tag(AVIOContext *pb, MOVTrack *track)
1404 {
1405     MOVStts *stts_entries;
1406     uint32_t entries = -1;
1407     uint32_t atom_size;
1408     int i;
1409
1410     if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO && !track->audio_vbr) {
1411         stts_entries = av_malloc(sizeof(*stts_entries)); /* one entry */
1412         stts_entries[0].count = track->sample_count;
1413         stts_entries[0].duration = 1;
1414         entries = 1;
1415     } else {
1416         stts_entries = track->entry ?
1417                        av_malloc(track->entry * sizeof(*stts_entries)) : /* worst case */
1418                        NULL;
1419         for (i = 0; i < track->entry; i++) {
1420             int duration = get_cluster_duration(track, i);
1421             if (i && duration == stts_entries[entries].duration) {
1422                 stts_entries[entries].count++; /* compress */
1423             } else {
1424                 entries++;
1425                 stts_entries[entries].duration = duration;
1426                 stts_entries[entries].count = 1;
1427             }
1428         }
1429         entries++; /* last one */
1430     }
1431     atom_size = 16 + (entries * 8);
1432     avio_wb32(pb, atom_size); /* size */
1433     ffio_wfourcc(pb, "stts");
1434     avio_wb32(pb, 0); /* version & flags */
1435     avio_wb32(pb, entries); /* entry count */
1436     for (i = 0; i < entries; i++) {
1437         avio_wb32(pb, stts_entries[i].count);
1438         avio_wb32(pb, stts_entries[i].duration);
1439     }
1440     av_free(stts_entries);
1441     return atom_size;
1442 }
1443
1444 static int mov_write_dref_tag(AVIOContext *pb)
1445 {
1446     avio_wb32(pb, 28); /* size */
1447     ffio_wfourcc(pb, "dref");
1448     avio_wb32(pb, 0); /* version & flags */
1449     avio_wb32(pb, 1); /* entry count */
1450
1451     avio_wb32(pb, 0xc); /* size */
1452     //FIXME add the alis and rsrc atom
1453     ffio_wfourcc(pb, "url ");
1454     avio_wb32(pb, 1); /* version & flags */
1455
1456     return 28;
1457 }
1458
1459 static int mov_write_stbl_tag(AVIOContext *pb, MOVTrack *track)
1460 {
1461     int64_t pos = avio_tell(pb);
1462     avio_wb32(pb, 0); /* size */
1463     ffio_wfourcc(pb, "stbl");
1464     mov_write_stsd_tag(pb, track);
1465     mov_write_stts_tag(pb, track);
1466     if ((track->enc->codec_type == AVMEDIA_TYPE_VIDEO ||
1467          track->enc->codec_tag == MKTAG('r','t','p',' ')) &&
1468         track->has_keyframes && track->has_keyframes < track->entry)
1469         mov_write_stss_tag(pb, track, MOV_SYNC_SAMPLE);
1470     if (track->mode == MODE_MOV && track->flags & MOV_TRACK_STPS)
1471         mov_write_stss_tag(pb, track, MOV_PARTIAL_SYNC_SAMPLE);
1472     if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO &&
1473         track->flags & MOV_TRACK_CTTS)
1474         mov_write_ctts_tag(pb, track);
1475     mov_write_stsc_tag(pb, track);
1476     mov_write_stsz_tag(pb, track);
1477     mov_write_stco_tag(pb, track);
1478     return update_size(pb, pos);
1479 }
1480
1481 static int mov_write_dinf_tag(AVIOContext *pb)
1482 {
1483     int64_t pos = avio_tell(pb);
1484     avio_wb32(pb, 0); /* size */
1485     ffio_wfourcc(pb, "dinf");
1486     mov_write_dref_tag(pb);
1487     return update_size(pb, pos);
1488 }
1489
1490 static int mov_write_nmhd_tag(AVIOContext *pb)
1491 {
1492     avio_wb32(pb, 12);
1493     ffio_wfourcc(pb, "nmhd");
1494     avio_wb32(pb, 0);
1495     return 12;
1496 }
1497
1498 static int mov_write_tcmi_tag(AVIOContext *pb, MOVTrack *track)
1499 {
1500     int64_t pos = avio_tell(pb);
1501     const char *font = "Lucida Grande";
1502     avio_wb32(pb, 0);                   /* size */
1503     ffio_wfourcc(pb, "tcmi");           /* timecode media information atom */
1504     avio_wb32(pb, 0);                   /* version & flags */
1505     avio_wb16(pb, 0);                   /* text font */
1506     avio_wb16(pb, 0);                   /* text face */
1507     avio_wb16(pb, 12);                  /* text size */
1508     avio_wb16(pb, 0);                   /* (unknown, not in the QT specs...) */
1509     avio_wb16(pb, 0x0000);              /* text color (red) */
1510     avio_wb16(pb, 0x0000);              /* text color (green) */
1511     avio_wb16(pb, 0x0000);              /* text color (blue) */
1512     avio_wb16(pb, 0xffff);              /* background color (red) */
1513     avio_wb16(pb, 0xffff);              /* background color (green) */
1514     avio_wb16(pb, 0xffff);              /* background color (blue) */
1515     avio_w8(pb, strlen(font));          /* font len (part of the pascal string) */
1516     avio_write(pb, font, strlen(font)); /* font name */
1517     return update_size(pb, pos);
1518 }
1519
1520 static int mov_write_gmhd_tag(AVIOContext *pb, MOVTrack *track)
1521 {
1522     int64_t pos = avio_tell(pb);
1523     avio_wb32(pb, 0);      /* size */
1524     ffio_wfourcc(pb, "gmhd");
1525     avio_wb32(pb, 0x18);   /* gmin size */
1526     ffio_wfourcc(pb, "gmin");/* generic media info */
1527     avio_wb32(pb, 0);      /* version & flags */
1528     avio_wb16(pb, 0x40);   /* graphics mode = */
1529     avio_wb16(pb, 0x8000); /* opColor (r?) */
1530     avio_wb16(pb, 0x8000); /* opColor (g?) */
1531     avio_wb16(pb, 0x8000); /* opColor (b?) */
1532     avio_wb16(pb, 0);      /* balance */
1533     avio_wb16(pb, 0);      /* reserved */
1534
1535     /*
1536      * This special text atom is required for
1537      * Apple Quicktime chapters. The contents
1538      * don't appear to be documented, so the
1539      * bytes are copied verbatim.
1540      */
1541     if (track->tag != MKTAG('c','6','0','8')) {
1542     avio_wb32(pb, 0x2C);   /* size */
1543     ffio_wfourcc(pb, "text");
1544     avio_wb16(pb, 0x01);
1545     avio_wb32(pb, 0x00);
1546     avio_wb32(pb, 0x00);
1547     avio_wb32(pb, 0x00);
1548     avio_wb32(pb, 0x01);
1549     avio_wb32(pb, 0x00);
1550     avio_wb32(pb, 0x00);
1551     avio_wb32(pb, 0x00);
1552     avio_wb32(pb, 0x00004000);
1553     avio_wb16(pb, 0x0000);
1554     }
1555
1556     if (track->enc->codec_tag == MKTAG('t','m','c','d')) {
1557         int64_t tmcd_pos = avio_tell(pb);
1558         avio_wb32(pb, 0); /* size */
1559         ffio_wfourcc(pb, "tmcd");
1560         mov_write_tcmi_tag(pb, track);
1561         update_size(pb, tmcd_pos);
1562     }
1563     return update_size(pb, pos);
1564 }
1565
1566 static int mov_write_smhd_tag(AVIOContext *pb)
1567 {
1568     avio_wb32(pb, 16); /* size */
1569     ffio_wfourcc(pb, "smhd");
1570     avio_wb32(pb, 0); /* version & flags */
1571     avio_wb16(pb, 0); /* reserved (balance, normally = 0) */
1572     avio_wb16(pb, 0); /* reserved */
1573     return 16;
1574 }
1575
1576 static int mov_write_vmhd_tag(AVIOContext *pb)
1577 {
1578     avio_wb32(pb, 0x14); /* size (always 0x14) */
1579     ffio_wfourcc(pb, "vmhd");
1580     avio_wb32(pb, 0x01); /* version & flags */
1581     avio_wb64(pb, 0); /* reserved (graphics mode = copy) */
1582     return 0x14;
1583 }
1584
1585 static int is_clcp_track(MOVTrack *track)
1586 {
1587     return track->tag == MKTAG('c','7','0','8') ||
1588            track->tag == MKTAG('c','6','0','8');
1589 }
1590
1591 static int mov_write_hdlr_tag(AVIOContext *pb, MOVTrack *track)
1592 {
1593     const char *hdlr, *descr = NULL, *hdlr_type = NULL;
1594     int64_t pos = avio_tell(pb);
1595
1596     hdlr      = "dhlr";
1597     hdlr_type = "url ";
1598     descr     = "DataHandler";
1599
1600     if (track) {
1601         hdlr = (track->mode == MODE_MOV) ? "mhlr" : "\0\0\0\0";
1602         if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO) {
1603             hdlr_type = "vide";
1604             descr     = "VideoHandler";
1605         } else if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO) {
1606             hdlr_type = "soun";
1607             descr     = "SoundHandler";
1608         } else if (track->enc->codec_type == AVMEDIA_TYPE_SUBTITLE) {
1609             if (is_clcp_track(track)) {
1610                 hdlr_type = "clcp";
1611                 descr = "ClosedCaptionHandler";
1612             } else {
1613                 if (track->tag == MKTAG('t','x','3','g')) {
1614                     hdlr_type = "sbtl";
1615                 } else if (track->tag == MKTAG('m','p','4','s')) {
1616                     hdlr_type = "subp";
1617                 } else {
1618                     hdlr_type = "text";
1619                 }
1620             descr = "SubtitleHandler";
1621             }
1622         } else if (track->enc->codec_tag == MKTAG('r','t','p',' ')) {
1623             hdlr_type = "hint";
1624             descr     = "HintHandler";
1625         } else if (track->enc->codec_tag == MKTAG('t','m','c','d')) {
1626             hdlr_type = "tmcd";
1627             descr = "TimeCodeHandler";
1628         } else {
1629             char tag_buf[32];
1630             av_get_codec_tag_string(tag_buf, sizeof(tag_buf),
1631                                     track->enc->codec_tag);
1632
1633             av_log(track->enc, AV_LOG_WARNING,
1634                    "Unknown hldr_type for %s / 0x%04X, writing dummy values\n",
1635                    tag_buf, track->enc->codec_tag);
1636         }
1637     }
1638
1639     avio_wb32(pb, 0); /* size */
1640     ffio_wfourcc(pb, "hdlr");
1641     avio_wb32(pb, 0); /* Version & flags */
1642     avio_write(pb, hdlr, 4); /* handler */
1643     ffio_wfourcc(pb, hdlr_type); /* handler type */
1644     avio_wb32(pb, 0); /* reserved */
1645     avio_wb32(pb, 0); /* reserved */
1646     avio_wb32(pb, 0); /* reserved */
1647     if (!track || track->mode == MODE_MOV)
1648         avio_w8(pb, strlen(descr)); /* pascal string */
1649     avio_write(pb, descr, strlen(descr)); /* handler description */
1650     if (track && track->mode != MODE_MOV)
1651         avio_w8(pb, 0); /* c string */
1652     return update_size(pb, pos);
1653 }
1654
1655 static int mov_write_hmhd_tag(AVIOContext *pb)
1656 {
1657     /* This atom must be present, but leaving the values at zero
1658      * seems harmless. */
1659     avio_wb32(pb, 28); /* size */
1660     ffio_wfourcc(pb, "hmhd");
1661     avio_wb32(pb, 0); /* version, flags */
1662     avio_wb16(pb, 0); /* maxPDUsize */
1663     avio_wb16(pb, 0); /* avgPDUsize */
1664     avio_wb32(pb, 0); /* maxbitrate */
1665     avio_wb32(pb, 0); /* avgbitrate */
1666     avio_wb32(pb, 0); /* reserved */
1667     return 28;
1668 }
1669
1670 static int mov_write_minf_tag(AVIOContext *pb, MOVTrack *track)
1671 {
1672     int64_t pos = avio_tell(pb);
1673     avio_wb32(pb, 0); /* size */
1674     ffio_wfourcc(pb, "minf");
1675     if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO)
1676         mov_write_vmhd_tag(pb);
1677     else if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO)
1678         mov_write_smhd_tag(pb);
1679     else if (track->enc->codec_type == AVMEDIA_TYPE_SUBTITLE) {
1680         if (track->tag == MKTAG('t','e','x','t') || is_clcp_track(track)) {
1681             mov_write_gmhd_tag(pb, track);
1682         } else {
1683             mov_write_nmhd_tag(pb);
1684         }
1685     } else if (track->tag == MKTAG('r','t','p',' ')) {
1686         mov_write_hmhd_tag(pb);
1687     } else if (track->tag == MKTAG('t','m','c','d')) {
1688         mov_write_gmhd_tag(pb, track);
1689     }
1690     if (track->mode == MODE_MOV) /* FIXME: Why do it for MODE_MOV only ? */
1691         mov_write_hdlr_tag(pb, NULL);
1692     mov_write_dinf_tag(pb);
1693     mov_write_stbl_tag(pb, track);
1694     return update_size(pb, pos);
1695 }
1696
1697 static int mov_write_mdhd_tag(AVIOContext *pb, MOVTrack *track)
1698 {
1699     int version = track->track_duration < INT32_MAX ? 0 : 1;
1700
1701     if (track->mode == MODE_ISM)
1702         version = 1;
1703
1704     (version == 1) ? avio_wb32(pb, 44) : avio_wb32(pb, 32); /* size */
1705     ffio_wfourcc(pb, "mdhd");
1706     avio_w8(pb, version);
1707     avio_wb24(pb, 0); /* flags */
1708     if (version == 1) {
1709         avio_wb64(pb, track->time);
1710         avio_wb64(pb, track->time);
1711     } else {
1712         avio_wb32(pb, track->time); /* creation time */
1713         avio_wb32(pb, track->time); /* modification time */
1714     }
1715     avio_wb32(pb, track->timescale); /* time scale (sample rate for audio) */
1716     if (!track->entry)
1717         (version == 1) ? avio_wb64(pb, UINT64_C(0xffffffffffffffff)) : avio_wb32(pb, 0xffffffff);
1718     else
1719         (version == 1) ? avio_wb64(pb, track->track_duration) : avio_wb32(pb, track->track_duration); /* duration */
1720     avio_wb16(pb, track->language); /* language */
1721     avio_wb16(pb, 0); /* reserved (quality) */
1722
1723     if (version != 0 && track->mode == MODE_MOV) {
1724         av_log(NULL, AV_LOG_ERROR,
1725                "FATAL error, file duration too long for timebase, this file will not be\n"
1726                "playable with quicktime. Choose a different timebase or a different\n"
1727                "container format\n");
1728     }
1729
1730     return 32;
1731 }
1732
1733 static int mov_write_mdia_tag(AVIOContext *pb, MOVTrack *track)
1734 {
1735     int64_t pos = avio_tell(pb);
1736     avio_wb32(pb, 0); /* size */
1737     ffio_wfourcc(pb, "mdia");
1738     mov_write_mdhd_tag(pb, track);
1739     mov_write_hdlr_tag(pb, track);
1740     mov_write_minf_tag(pb, track);
1741     return update_size(pb, pos);
1742 }
1743
1744 /* transformation matrix
1745      |a  b  u|
1746      |c  d  v|
1747      |tx ty w| */
1748 static void write_matrix(AVIOContext *pb, int16_t a, int16_t b, int16_t c,
1749                          int16_t d, int16_t tx, int16_t ty)
1750 {
1751     avio_wb32(pb, a << 16);  /* 16.16 format */
1752     avio_wb32(pb, b << 16);  /* 16.16 format */
1753     avio_wb32(pb, 0);        /* u in 2.30 format */
1754     avio_wb32(pb, c << 16);  /* 16.16 format */
1755     avio_wb32(pb, d << 16);  /* 16.16 format */
1756     avio_wb32(pb, 0);        /* v in 2.30 format */
1757     avio_wb32(pb, tx << 16); /* 16.16 format */
1758     avio_wb32(pb, ty << 16); /* 16.16 format */
1759     avio_wb32(pb, 1 << 30);  /* w in 2.30 format */
1760 }
1761
1762 static int mov_write_tkhd_tag(AVIOContext *pb, MOVTrack *track, AVStream *st)
1763 {
1764     int64_t duration = av_rescale_rnd(track->track_duration, MOV_TIMESCALE,
1765                                       track->timescale, AV_ROUND_UP);
1766     int version = duration < INT32_MAX ? 0 : 1;
1767     int rotation = 0;
1768
1769     if (track->mode == MODE_ISM)
1770         version = 1;
1771
1772     (version == 1) ? avio_wb32(pb, 104) : avio_wb32(pb, 92); /* size */
1773     ffio_wfourcc(pb, "tkhd");
1774     avio_w8(pb, version);
1775     avio_wb24(pb, (track->flags & MOV_TRACK_ENABLED) ?
1776                   MOV_TKHD_FLAG_ENABLED | MOV_TKHD_FLAG_IN_MOVIE :
1777                   MOV_TKHD_FLAG_IN_MOVIE);
1778     if (version == 1) {
1779         avio_wb64(pb, track->time);
1780         avio_wb64(pb, track->time);
1781     } else {
1782         avio_wb32(pb, track->time); /* creation time */
1783         avio_wb32(pb, track->time); /* modification time */
1784     }
1785     avio_wb32(pb, track->track_id); /* track-id */
1786     avio_wb32(pb, 0); /* reserved */
1787     if (!track->entry)
1788         (version == 1) ? avio_wb64(pb, UINT64_C(0xffffffffffffffff)) : avio_wb32(pb, 0xffffffff);
1789     else
1790         (version == 1) ? avio_wb64(pb, duration) : avio_wb32(pb, duration);
1791
1792     avio_wb32(pb, 0); /* reserved */
1793     avio_wb32(pb, 0); /* reserved */
1794     avio_wb16(pb, 0); /* layer */
1795     avio_wb16(pb, st ? st->codec->codec_type : 0); /* alternate group) */
1796     /* Volume, only for audio */
1797     if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO)
1798         avio_wb16(pb, 0x0100);
1799     else
1800         avio_wb16(pb, 0);
1801     avio_wb16(pb, 0); /* reserved */
1802
1803     /* Matrix structure */
1804     if (st && st->metadata) {
1805         AVDictionaryEntry *rot = av_dict_get(st->metadata, "rotate", NULL, 0);
1806         rotation = (rot && rot->value) ? atoi(rot->value) : 0;
1807     }
1808     if (rotation == 90) {
1809         write_matrix(pb,  0,  1, -1,  0, track->enc->height, 0);
1810     } else if (rotation == 180) {
1811         write_matrix(pb, -1,  0,  0, -1, track->enc->width, track->enc->height);
1812     } else if (rotation == 270) {
1813         write_matrix(pb,  0, -1,  1,  0, 0, track->enc->width);
1814     } else {
1815         write_matrix(pb,  1,  0,  0,  1, 0, 0);
1816     }
1817     /* Track width and height, for visual only */
1818     if (st && (track->enc->codec_type == AVMEDIA_TYPE_VIDEO ||
1819                track->enc->codec_type == AVMEDIA_TYPE_SUBTITLE)) {
1820         if (track->mode == MODE_MOV) {
1821             avio_wb32(pb, track->enc->width << 16);
1822             avio_wb32(pb, track->height << 16);
1823         } else {
1824             double sample_aspect_ratio = av_q2d(st->sample_aspect_ratio);
1825             if (!sample_aspect_ratio || track->height != track->enc->height)
1826                 sample_aspect_ratio = 1;
1827             avio_wb32(pb, sample_aspect_ratio * track->enc->width * 0x10000);
1828             avio_wb32(pb, track->height * 0x10000);
1829         }
1830     } else {
1831         avio_wb32(pb, 0);
1832         avio_wb32(pb, 0);
1833     }
1834     return 0x5c;
1835 }
1836
1837 static int mov_write_tapt_tag(AVIOContext *pb, MOVTrack *track)
1838 {
1839     int32_t width = av_rescale(track->enc->sample_aspect_ratio.num, track->enc->width,
1840                                track->enc->sample_aspect_ratio.den);
1841
1842     int64_t pos = avio_tell(pb);
1843
1844     avio_wb32(pb, 0); /* size */
1845     ffio_wfourcc(pb, "tapt");
1846
1847     avio_wb32(pb, 20);
1848     ffio_wfourcc(pb, "clef");
1849     avio_wb32(pb, 0);
1850     avio_wb32(pb, width << 16);
1851     avio_wb32(pb, track->enc->height << 16);
1852
1853     avio_wb32(pb, 20);
1854     ffio_wfourcc(pb, "prof");
1855     avio_wb32(pb, 0);
1856     avio_wb32(pb, width << 16);
1857     avio_wb32(pb, track->enc->height << 16);
1858
1859     avio_wb32(pb, 20);
1860     ffio_wfourcc(pb, "enof");
1861     avio_wb32(pb, 0);
1862     avio_wb32(pb, track->enc->width << 16);
1863     avio_wb32(pb, track->enc->height << 16);
1864
1865     return update_size(pb, pos);
1866 }
1867
1868 // This box seems important for the psp playback ... without it the movie seems to hang
1869 static int mov_write_edts_tag(AVIOContext *pb, MOVTrack *track)
1870 {
1871     int64_t duration = av_rescale_rnd(track->track_duration, MOV_TIMESCALE,
1872                                       track->timescale, AV_ROUND_UP);
1873     int version = duration < INT32_MAX ? 0 : 1;
1874     int entry_size, entry_count, size;
1875     int64_t delay, start_ct = track->cluster[0].cts;
1876     delay = av_rescale_rnd(track->cluster[0].dts + start_ct, MOV_TIMESCALE,
1877                            track->timescale, AV_ROUND_DOWN);
1878     version |= delay < INT32_MAX ? 0 : 1;
1879
1880     entry_size = (version == 1) ? 20 : 12;
1881     entry_count = 1 + (delay > 0);
1882     size = 24 + entry_count * entry_size;
1883
1884     /* write the atom data */
1885     avio_wb32(pb, size);
1886     ffio_wfourcc(pb, "edts");
1887     avio_wb32(pb, size - 8);
1888     ffio_wfourcc(pb, "elst");
1889     avio_w8(pb, version);
1890     avio_wb24(pb, 0); /* flags */
1891
1892     avio_wb32(pb, entry_count);
1893     if (delay > 0) { /* add an empty edit to delay presentation */
1894         if (version == 1) {
1895             avio_wb64(pb, delay);
1896             avio_wb64(pb, -1);
1897         } else {
1898             avio_wb32(pb, delay);
1899             avio_wb32(pb, -1);
1900         }
1901         avio_wb32(pb, 0x00010000);
1902     } else {
1903         av_assert0(av_rescale_rnd(track->cluster[0].dts, MOV_TIMESCALE, track->timescale, AV_ROUND_DOWN) <= 0);
1904         start_ct  = -FFMIN(track->cluster[0].dts, 0); //FFMIN needed due to rounding
1905         duration += delay;
1906     }
1907
1908     /* duration */
1909     if (version == 1) {
1910         avio_wb64(pb, duration);
1911         avio_wb64(pb, start_ct);
1912     } else {
1913         avio_wb32(pb, duration);
1914         avio_wb32(pb, start_ct);
1915     }
1916     avio_wb32(pb, 0x00010000);
1917     return size;
1918 }
1919
1920 static int mov_write_tref_tag(AVIOContext *pb, MOVTrack *track)
1921 {
1922     avio_wb32(pb, 20);   // size
1923     ffio_wfourcc(pb, "tref");
1924     avio_wb32(pb, 12);   // size (subatom)
1925     avio_wl32(pb, track->tref_tag);
1926     avio_wb32(pb, track->tref_id);
1927     return 20;
1928 }
1929
1930 // goes at the end of each track!  ... Critical for PSP playback ("Incompatible data" without it)
1931 static int mov_write_uuid_tag_psp(AVIOContext *pb, MOVTrack *mov)
1932 {
1933     avio_wb32(pb, 0x34); /* size ... reports as 28 in mp4box! */
1934     ffio_wfourcc(pb, "uuid");
1935     ffio_wfourcc(pb, "USMT");
1936     avio_wb32(pb, 0x21d24fce);
1937     avio_wb32(pb, 0xbb88695c);
1938     avio_wb32(pb, 0xfac9c740);
1939     avio_wb32(pb, 0x1c);     // another size here!
1940     ffio_wfourcc(pb, "MTDT");
1941     avio_wb32(pb, 0x00010012);
1942     avio_wb32(pb, 0x0a);
1943     avio_wb32(pb, 0x55c40000);
1944     avio_wb32(pb, 0x1);
1945     avio_wb32(pb, 0x0);
1946     return 0x34;
1947 }
1948
1949 static int mov_write_udta_sdp(AVIOContext *pb, MOVTrack *track)
1950 {
1951     AVFormatContext *ctx = track->rtp_ctx;
1952     char buf[1000] = "";
1953     int len;
1954
1955     ff_sdp_write_media(buf, sizeof(buf), ctx->streams[0], track->src_track,
1956                        NULL, NULL, 0, 0, ctx);
1957     av_strlcatf(buf, sizeof(buf), "a=control:streamid=%d\r\n", track->track_id);
1958     len = strlen(buf);
1959
1960     avio_wb32(pb, len + 24);
1961     ffio_wfourcc(pb, "udta");
1962     avio_wb32(pb, len + 16);
1963     ffio_wfourcc(pb, "hnti");
1964     avio_wb32(pb, len + 8);
1965     ffio_wfourcc(pb, "sdp ");
1966     avio_write(pb, buf, len);
1967     return len + 24;
1968 }
1969
1970 static int mov_write_trak_tag(AVIOContext *pb, MOVMuxContext *mov,
1971                               MOVTrack *track, AVStream *st)
1972 {
1973     int64_t pos = avio_tell(pb);
1974     avio_wb32(pb, 0); /* size */
1975     ffio_wfourcc(pb, "trak");
1976     mov_write_tkhd_tag(pb, track, st);
1977     if (supports_edts(mov))
1978         mov_write_edts_tag(pb, track);  // PSP Movies and several other cases require edts box
1979     if (track->tref_tag)
1980         mov_write_tref_tag(pb, track);
1981     mov_write_mdia_tag(pb, track);
1982     if (track->mode == MODE_PSP)
1983         mov_write_uuid_tag_psp(pb, track); // PSP Movies require this uuid box
1984     if (track->tag == MKTAG('r','t','p',' '))
1985         mov_write_udta_sdp(pb, track);
1986     if (track->mode == MODE_MOV) {
1987         if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO) {
1988             double sample_aspect_ratio = av_q2d(st->sample_aspect_ratio);
1989             if (st->sample_aspect_ratio.num && 1.0 != sample_aspect_ratio) {
1990                 mov_write_tapt_tag(pb, track);
1991             }
1992         }
1993         if (is_clcp_track(track) && st->sample_aspect_ratio.num) {
1994             mov_write_tapt_tag(pb, track);
1995         }
1996     }
1997     return update_size(pb, pos);
1998 }
1999
2000 static int mov_write_iods_tag(AVIOContext *pb, MOVMuxContext *mov)
2001 {
2002     int i, has_audio = 0, has_video = 0;
2003     int64_t pos = avio_tell(pb);
2004     int audio_profile = mov->iods_audio_profile;
2005     int video_profile = mov->iods_video_profile;
2006     for (i = 0; i < mov->nb_streams; i++) {
2007         if (mov->tracks[i].entry > 0) {
2008             has_audio |= mov->tracks[i].enc->codec_type == AVMEDIA_TYPE_AUDIO;
2009             has_video |= mov->tracks[i].enc->codec_type == AVMEDIA_TYPE_VIDEO;
2010         }
2011     }
2012     if (audio_profile < 0)
2013         audio_profile = 0xFF - has_audio;
2014     if (video_profile < 0)
2015         video_profile = 0xFF - has_video;
2016     avio_wb32(pb, 0x0); /* size */
2017     ffio_wfourcc(pb, "iods");
2018     avio_wb32(pb, 0);    /* version & flags */
2019     put_descr(pb, 0x10, 7);
2020     avio_wb16(pb, 0x004f);
2021     avio_w8(pb, 0xff);
2022     avio_w8(pb, 0xff);
2023     avio_w8(pb, audio_profile);
2024     avio_w8(pb, video_profile);
2025     avio_w8(pb, 0xff);
2026     return update_size(pb, pos);
2027 }
2028
2029 static int mov_write_trex_tag(AVIOContext *pb, MOVTrack *track)
2030 {
2031     avio_wb32(pb, 0x20); /* size */
2032     ffio_wfourcc(pb, "trex");
2033     avio_wb32(pb, 0);   /* version & flags */
2034     avio_wb32(pb, track->track_id); /* track ID */
2035     avio_wb32(pb, 1);   /* default sample description index */
2036     avio_wb32(pb, 0);   /* default sample duration */
2037     avio_wb32(pb, 0);   /* default sample size */
2038     avio_wb32(pb, 0);   /* default sample flags */
2039     return 0;
2040 }
2041
2042 static int mov_write_mvex_tag(AVIOContext *pb, MOVMuxContext *mov)
2043 {
2044     int64_t pos = avio_tell(pb);
2045     int i;
2046     avio_wb32(pb, 0x0); /* size */
2047     ffio_wfourcc(pb, "mvex");
2048     for (i = 0; i < mov->nb_streams; i++)
2049         mov_write_trex_tag(pb, &mov->tracks[i]);
2050     return update_size(pb, pos);
2051 }
2052
2053 static int mov_write_mvhd_tag(AVIOContext *pb, MOVMuxContext *mov)
2054 {
2055     int max_track_id = 1, i;
2056     int64_t max_track_len_temp, max_track_len = 0;
2057     int version;
2058
2059     for (i = 0; i < mov->nb_streams; i++) {
2060         if (mov->tracks[i].entry > 0 && mov->tracks[i].timescale) {
2061             max_track_len_temp = av_rescale_rnd(mov->tracks[i].track_duration,
2062                                                 MOV_TIMESCALE,
2063                                                 mov->tracks[i].timescale,
2064                                                 AV_ROUND_UP);
2065             if (max_track_len < max_track_len_temp)
2066                 max_track_len = max_track_len_temp;
2067             if (max_track_id < mov->tracks[i].track_id)
2068                 max_track_id = mov->tracks[i].track_id;
2069         }
2070     }
2071
2072     version = max_track_len < UINT32_MAX ? 0 : 1;
2073     (version == 1) ? avio_wb32(pb, 120) : avio_wb32(pb, 108); /* size */
2074     ffio_wfourcc(pb, "mvhd");
2075     avio_w8(pb, version);
2076     avio_wb24(pb, 0); /* flags */
2077     if (version == 1) {
2078         avio_wb64(pb, mov->time);
2079         avio_wb64(pb, mov->time);
2080     } else {
2081         avio_wb32(pb, mov->time); /* creation time */
2082         avio_wb32(pb, mov->time); /* modification time */
2083     }
2084     avio_wb32(pb, MOV_TIMESCALE);
2085     (version == 1) ? avio_wb64(pb, max_track_len) : avio_wb32(pb, max_track_len); /* duration of longest track */
2086
2087     avio_wb32(pb, 0x00010000); /* reserved (preferred rate) 1.0 = normal */
2088     avio_wb16(pb, 0x0100); /* reserved (preferred volume) 1.0 = normal */
2089     avio_wb16(pb, 0); /* reserved */
2090     avio_wb32(pb, 0); /* reserved */
2091     avio_wb32(pb, 0); /* reserved */
2092
2093     /* Matrix structure */
2094     write_matrix(pb, 1, 0, 0, 1, 0, 0);
2095
2096     avio_wb32(pb, 0); /* reserved (preview time) */
2097     avio_wb32(pb, 0); /* reserved (preview duration) */
2098     avio_wb32(pb, 0); /* reserved (poster time) */
2099     avio_wb32(pb, 0); /* reserved (selection time) */
2100     avio_wb32(pb, 0); /* reserved (selection duration) */
2101     avio_wb32(pb, 0); /* reserved (current time) */
2102     avio_wb32(pb, max_track_id + 1); /* Next track id */
2103     return 0x6c;
2104 }
2105
2106 static int mov_write_itunes_hdlr_tag(AVIOContext *pb, MOVMuxContext *mov,
2107                                      AVFormatContext *s)
2108 {
2109     avio_wb32(pb, 33); /* size */
2110     ffio_wfourcc(pb, "hdlr");
2111     avio_wb32(pb, 0);
2112     avio_wb32(pb, 0);
2113     ffio_wfourcc(pb, "mdir");
2114     ffio_wfourcc(pb, "appl");
2115     avio_wb32(pb, 0);
2116     avio_wb32(pb, 0);
2117     avio_w8(pb, 0);
2118     return 33;
2119 }
2120
2121 /* helper function to write a data tag with the specified string as data */
2122 static int mov_write_string_data_tag(AVIOContext *pb, const char *data, int lang, int long_style)
2123 {
2124     if (long_style) {
2125         int size = 16 + strlen(data);
2126         avio_wb32(pb, size); /* size */
2127         ffio_wfourcc(pb, "data");
2128         avio_wb32(pb, 1);
2129         avio_wb32(pb, 0);
2130         avio_write(pb, data, strlen(data));
2131         return size;
2132     } else {
2133         if (!lang)
2134             lang = ff_mov_iso639_to_lang("und", 1);
2135         avio_wb16(pb, strlen(data)); /* string length */
2136         avio_wb16(pb, lang);
2137         avio_write(pb, data, strlen(data));
2138         return strlen(data) + 4;
2139     }
2140 }
2141
2142 static int mov_write_string_tag(AVIOContext *pb, const char *name,
2143                                 const char *value, int lang, int long_style)
2144 {
2145     int size = 0;
2146     if (value && value[0]) {
2147         int64_t pos = avio_tell(pb);
2148         avio_wb32(pb, 0); /* size */
2149         ffio_wfourcc(pb, name);
2150         mov_write_string_data_tag(pb, value, lang, long_style);
2151         size = update_size(pb, pos);
2152     }
2153     return size;
2154 }
2155
2156 static int mov_write_string_metadata(AVFormatContext *s, AVIOContext *pb,
2157                                      const char *name, const char *tag,
2158                                      int long_style)
2159 {
2160     int l, lang = 0, len, len2;
2161     AVDictionaryEntry *t, *t2 = NULL;
2162     char tag2[16];
2163
2164     if (!(t = av_dict_get(s->metadata, tag, NULL, 0)))
2165         return 0;
2166
2167     len = strlen(t->key);
2168     snprintf(tag2, sizeof(tag2), "%s-", tag);
2169     while ((t2 = av_dict_get(s->metadata, tag2, t2, AV_DICT_IGNORE_SUFFIX))) {
2170         len2 = strlen(t2->key);
2171         if (len2 == len + 4 && !strcmp(t->value, t2->value)
2172             && (l = ff_mov_iso639_to_lang(&t2->key[len2 - 3], 1)) >= 0) {
2173             lang = l;
2174             break;
2175         }
2176     }
2177     return mov_write_string_tag(pb, name, t->value, lang, long_style);
2178 }
2179
2180 /* iTunes bpm number */
2181 static int mov_write_tmpo_tag(AVIOContext *pb, AVFormatContext *s)
2182 {
2183     AVDictionaryEntry *t = av_dict_get(s->metadata, "tmpo", NULL, 0);
2184     int size = 0, tmpo = t ? atoi(t->value) : 0;
2185     if (tmpo) {
2186         size = 26;
2187         avio_wb32(pb, size);
2188         ffio_wfourcc(pb, "tmpo");
2189         avio_wb32(pb, size-8); /* size */
2190         ffio_wfourcc(pb, "data");
2191         avio_wb32(pb, 0x15);  //type specifier
2192         avio_wb32(pb, 0);
2193         avio_wb16(pb, tmpo);        // data
2194     }
2195     return size;
2196 }
2197
2198 /* iTunes track or disc number */
2199 static int mov_write_trkn_tag(AVIOContext *pb, MOVMuxContext *mov,
2200                               AVFormatContext *s, int disc)
2201 {
2202     AVDictionaryEntry *t = av_dict_get(s->metadata,
2203                                        disc ? "disc" : "track",
2204                                        NULL, 0);
2205     int size = 0, track = t ? atoi(t->value) : 0;
2206     if (track) {
2207         int tracks = 0;
2208         char *slash = strchr(t->value, '/');
2209         if (slash)
2210             tracks = atoi(slash + 1);
2211         avio_wb32(pb, 32); /* size */
2212         ffio_wfourcc(pb, disc ? "disk" : "trkn");
2213         avio_wb32(pb, 24); /* size */
2214         ffio_wfourcc(pb, "data");
2215         avio_wb32(pb, 0);        // 8 bytes empty
2216         avio_wb32(pb, 0);
2217         avio_wb16(pb, 0);        // empty
2218         avio_wb16(pb, track);    // track / disc number
2219         avio_wb16(pb, tracks);   // total track / disc number
2220         avio_wb16(pb, 0);        // empty
2221         size = 32;
2222     }
2223     return size;
2224 }
2225
2226 static int mov_write_int8_metadata(AVFormatContext *s, AVIOContext *pb,
2227                                    const char *name, const char *tag,
2228                                    int len)
2229 {
2230     AVDictionaryEntry *t = NULL;
2231     uint8_t num;
2232     int size = 24 + len;
2233
2234     if (len != 1 && len != 4)
2235         return -1;
2236
2237     if (!(t = av_dict_get(s->metadata, tag, NULL, 0)))
2238         return 0;
2239     num = atoi(t->value);
2240
2241     avio_wb32(pb, size);
2242     ffio_wfourcc(pb, name);
2243     avio_wb32(pb, size - 8);
2244     ffio_wfourcc(pb, "data");
2245     avio_wb32(pb, 0x15);
2246     avio_wb32(pb, 0);
2247     if (len==4) avio_wb32(pb, num);
2248     else        avio_w8 (pb, num);
2249
2250     return size;
2251 }
2252
2253 /* iTunes meta data list */
2254 static int mov_write_ilst_tag(AVIOContext *pb, MOVMuxContext *mov,
2255                               AVFormatContext *s)
2256 {
2257     int64_t pos = avio_tell(pb);
2258     avio_wb32(pb, 0); /* size */
2259     ffio_wfourcc(pb, "ilst");
2260     mov_write_string_metadata(s, pb, "\251nam", "title"    , 1);
2261     mov_write_string_metadata(s, pb, "\251ART", "artist"   , 1);
2262     mov_write_string_metadata(s, pb, "aART", "album_artist", 1);
2263     mov_write_string_metadata(s, pb, "\251wrt", "composer" , 1);
2264     mov_write_string_metadata(s, pb, "\251alb", "album"    , 1);
2265     mov_write_string_metadata(s, pb, "\251day", "date"     , 1);
2266     if (!mov->exact &&
2267         !mov_write_string_metadata(s, pb, "\251too", "encoding_tool", 1))
2268         mov_write_string_tag(pb, "\251too", LIBAVFORMAT_IDENT, 0, 1);
2269     mov_write_string_metadata(s, pb, "\251cmt", "comment"  , 1);
2270     mov_write_string_metadata(s, pb, "\251gen", "genre"    , 1);
2271     mov_write_string_metadata(s, pb, "\251cpy", "copyright", 1);
2272     mov_write_string_metadata(s, pb, "\251grp", "grouping" , 1);
2273     mov_write_string_metadata(s, pb, "\251lyr", "lyrics"   , 1);
2274     mov_write_string_metadata(s, pb, "desc",    "description",1);
2275     mov_write_string_metadata(s, pb, "ldes",    "synopsis" , 1);
2276     mov_write_string_metadata(s, pb, "tvsh",    "show"     , 1);
2277     mov_write_string_metadata(s, pb, "tven",    "episode_id",1);
2278     mov_write_string_metadata(s, pb, "tvnn",    "network"  , 1);
2279     mov_write_int8_metadata  (s, pb, "tves",    "episode_sort",4);
2280     mov_write_int8_metadata  (s, pb, "tvsn",    "season_number",4);
2281     mov_write_int8_metadata  (s, pb, "stik",    "media_type",1);
2282     mov_write_int8_metadata  (s, pb, "hdvd",    "hd_video",  1);
2283     mov_write_int8_metadata  (s, pb, "pgap",    "gapless_playback",1);
2284     mov_write_int8_metadata  (s, pb, "cpil",    "compilation", 1);
2285     mov_write_trkn_tag(pb, mov, s, 0); // track number
2286     mov_write_trkn_tag(pb, mov, s, 1); // disc number
2287     mov_write_tmpo_tag(pb, s);
2288     return update_size(pb, pos);
2289 }
2290
2291 /* iTunes meta data tag */
2292 static int mov_write_meta_tag(AVIOContext *pb, MOVMuxContext *mov,
2293                               AVFormatContext *s)
2294 {
2295     int size = 0;
2296     int64_t pos = avio_tell(pb);
2297     avio_wb32(pb, 0); /* size */
2298     ffio_wfourcc(pb, "meta");
2299     avio_wb32(pb, 0);
2300     mov_write_itunes_hdlr_tag(pb, mov, s);
2301     mov_write_ilst_tag(pb, mov, s);
2302     size = update_size(pb, pos);
2303     return size;
2304 }
2305
2306 static int utf8len(const uint8_t *b)
2307 {
2308     int len = 0;
2309     int val;
2310     while (*b) {
2311         GET_UTF8(val, *b++, return -1;)
2312         len++;
2313     }
2314     return len;
2315 }
2316
2317 static int ascii_to_wc(AVIOContext *pb, const uint8_t *b)
2318 {
2319     int val;
2320     while (*b) {
2321         GET_UTF8(val, *b++, return -1;)
2322         avio_wb16(pb, val);
2323     }
2324     avio_wb16(pb, 0x00);
2325     return 0;
2326 }
2327
2328 static uint16_t language_code(const char *str)
2329 {
2330     return (((str[0] - 0x60) & 0x1F) << 10) +
2331            (((str[1] - 0x60) & 0x1F) <<  5) +
2332            (( str[2] - 0x60) & 0x1F);
2333 }
2334
2335 static int mov_write_3gp_udta_tag(AVIOContext *pb, AVFormatContext *s,
2336                                   const char *tag, const char *str)
2337 {
2338     int64_t pos = avio_tell(pb);
2339     AVDictionaryEntry *t = av_dict_get(s->metadata, str, NULL, 0);
2340     if (!t || !utf8len(t->value))
2341         return 0;
2342     avio_wb32(pb, 0);   /* size */
2343     ffio_wfourcc(pb, tag); /* type */
2344     avio_wb32(pb, 0);   /* version + flags */
2345     if (!strcmp(tag, "yrrc"))
2346         avio_wb16(pb, atoi(t->value));
2347     else {
2348         avio_wb16(pb, language_code("eng")); /* language */
2349         avio_write(pb, t->value, strlen(t->value) + 1); /* UTF8 string value */
2350         if (!strcmp(tag, "albm") &&
2351             (t = av_dict_get(s->metadata, "track", NULL, 0)))
2352             avio_w8(pb, atoi(t->value));
2353     }
2354     return update_size(pb, pos);
2355 }
2356
2357 static int mov_write_chpl_tag(AVIOContext *pb, AVFormatContext *s)
2358 {
2359     int64_t pos = avio_tell(pb);
2360     int i, nb_chapters = FFMIN(s->nb_chapters, 255);
2361
2362     avio_wb32(pb, 0);            // size
2363     ffio_wfourcc(pb, "chpl");
2364     avio_wb32(pb, 0x01000000);   // version + flags
2365     avio_wb32(pb, 0);            // unknown
2366     avio_w8(pb, nb_chapters);
2367
2368     for (i = 0; i < nb_chapters; i++) {
2369         AVChapter *c = s->chapters[i];
2370         AVDictionaryEntry *t;
2371         avio_wb64(pb, av_rescale_q(c->start, c->time_base, (AVRational){1,10000000}));
2372
2373         if ((t = av_dict_get(c->metadata, "title", NULL, 0))) {
2374             int len = FFMIN(strlen(t->value), 255);
2375             avio_w8(pb, len);
2376             avio_write(pb, t->value, len);
2377         } else
2378             avio_w8(pb, 0);
2379     }
2380     return update_size(pb, pos);
2381 }
2382
2383 static int mov_write_udta_tag(AVIOContext *pb, MOVMuxContext *mov,
2384                               AVFormatContext *s)
2385 {
2386     AVIOContext *pb_buf;
2387     int ret, size;
2388     uint8_t *buf;
2389
2390     ret = avio_open_dyn_buf(&pb_buf);
2391     if (ret < 0)
2392         return ret;
2393
2394     if (mov->mode & MODE_3GP) {
2395         mov_write_3gp_udta_tag(pb_buf, s, "perf", "artist");
2396         mov_write_3gp_udta_tag(pb_buf, s, "titl", "title");
2397         mov_write_3gp_udta_tag(pb_buf, s, "auth", "author");
2398         mov_write_3gp_udta_tag(pb_buf, s, "gnre", "genre");
2399         mov_write_3gp_udta_tag(pb_buf, s, "dscp", "comment");
2400         mov_write_3gp_udta_tag(pb_buf, s, "albm", "album");
2401         mov_write_3gp_udta_tag(pb_buf, s, "cprt", "copyright");
2402         mov_write_3gp_udta_tag(pb_buf, s, "yrrc", "date");
2403     } else if (mov->mode == MODE_MOV) { // the title field breaks gtkpod with mp4 and my suspicion is that stuff is not valid in mp4
2404         mov_write_string_metadata(s, pb_buf, "\251ART", "artist",      0);
2405         mov_write_string_metadata(s, pb_buf, "\251nam", "title",       0);
2406         mov_write_string_metadata(s, pb_buf, "\251aut", "author",      0);
2407         mov_write_string_metadata(s, pb_buf, "\251alb", "album",       0);
2408         mov_write_string_metadata(s, pb_buf, "\251day", "date",        0);
2409         mov_write_string_metadata(s, pb_buf, "\251swr", "encoder",     0);
2410         // currently ignored by mov.c
2411         mov_write_string_metadata(s, pb_buf, "\251des", "comment",     0);
2412         // add support for libquicktime, this atom is also actually read by mov.c
2413         mov_write_string_metadata(s, pb_buf, "\251cmt", "comment",     0);
2414         mov_write_string_metadata(s, pb_buf, "\251gen", "genre",       0);
2415         mov_write_string_metadata(s, pb_buf, "\251cpy", "copyright",   0);
2416     } else {
2417         /* iTunes meta data */
2418         mov_write_meta_tag(pb_buf, mov, s);
2419     }
2420
2421     if (s->nb_chapters)
2422         mov_write_chpl_tag(pb_buf, s);
2423
2424     if ((size = avio_close_dyn_buf(pb_buf, &buf)) > 0) {
2425         avio_wb32(pb, size + 8);
2426         ffio_wfourcc(pb, "udta");
2427         avio_write(pb, buf, size);
2428     }
2429     av_free(buf);
2430
2431     return 0;
2432 }
2433
2434 static void mov_write_psp_udta_tag(AVIOContext *pb,
2435                                    const char *str, const char *lang, int type)
2436 {
2437     int len = utf8len(str) + 1;
2438     if (len <= 0)
2439         return;
2440     avio_wb16(pb, len * 2 + 10);        /* size */
2441     avio_wb32(pb, type);                /* type */
2442     avio_wb16(pb, language_code(lang)); /* language */
2443     avio_wb16(pb, 0x01);                /* ? */
2444     ascii_to_wc(pb, str);
2445 }
2446
2447 static int mov_write_uuidusmt_tag(AVIOContext *pb, AVFormatContext *s)
2448 {
2449     MOVMuxContext *mov = s->priv_data;
2450     AVDictionaryEntry *title = av_dict_get(s->metadata, "title", NULL, 0);
2451     int64_t pos, pos2;
2452
2453     if (title) {
2454         pos = avio_tell(pb);
2455         avio_wb32(pb, 0); /* size placeholder*/
2456         ffio_wfourcc(pb, "uuid");
2457         ffio_wfourcc(pb, "USMT");
2458         avio_wb32(pb, 0x21d24fce); /* 96 bit UUID */
2459         avio_wb32(pb, 0xbb88695c);
2460         avio_wb32(pb, 0xfac9c740);
2461
2462         pos2 = avio_tell(pb);
2463         avio_wb32(pb, 0); /* size placeholder*/
2464         ffio_wfourcc(pb, "MTDT");
2465         avio_wb16(pb, 4);
2466
2467         // ?
2468         avio_wb16(pb, 0x0C);                 /* size */
2469         avio_wb32(pb, 0x0B);                 /* type */
2470         avio_wb16(pb, language_code("und")); /* language */
2471         avio_wb16(pb, 0x0);                  /* ? */
2472         avio_wb16(pb, 0x021C);               /* data */
2473
2474         if (!mov->exact)
2475             mov_write_psp_udta_tag(pb, LIBAVCODEC_IDENT,      "eng", 0x04);
2476         mov_write_psp_udta_tag(pb, title->value,          "eng", 0x01);
2477         mov_write_psp_udta_tag(pb, "2006/04/01 11:11:11", "und", 0x03);
2478
2479         update_size(pb, pos2);
2480         return update_size(pb, pos);
2481     }
2482
2483     return 0;
2484 }
2485
2486 static void build_chunks(MOVTrack *trk)
2487 {
2488     int i;
2489     MOVIentry *chunk = &trk->cluster[0];
2490     uint64_t chunkSize = chunk->size;
2491     chunk->chunkNum = 1;
2492     if (trk->chunkCount)
2493         return;
2494     trk->chunkCount = 1;
2495     for (i = 1; i<trk->entry; i++){
2496         if (chunk->pos + chunkSize == trk->cluster[i].pos &&
2497             chunkSize + trk->cluster[i].size < (1<<20)){
2498             chunkSize             += trk->cluster[i].size;
2499             chunk->samples_in_chunk += trk->cluster[i].entries;
2500         } else {
2501             trk->cluster[i].chunkNum = chunk->chunkNum+1;
2502             chunk=&trk->cluster[i];
2503             chunkSize = chunk->size;
2504             trk->chunkCount++;
2505         }
2506     }
2507 }
2508
2509 static int mov_write_moov_tag(AVIOContext *pb, MOVMuxContext *mov,
2510                               AVFormatContext *s)
2511 {
2512     int i;
2513     int64_t pos = avio_tell(pb);
2514     avio_wb32(pb, 0); /* size placeholder*/
2515     ffio_wfourcc(pb, "moov");
2516
2517     for (i = 0; i < mov->nb_streams; i++) {
2518         if (mov->tracks[i].entry <= 0 && !(mov->flags & FF_MOV_FLAG_FRAGMENT))
2519             continue;
2520
2521         mov->tracks[i].time     = mov->time;
2522         mov->tracks[i].track_id = i + 1;
2523
2524         if (mov->tracks[i].entry)
2525             build_chunks(&mov->tracks[i]);
2526     }
2527
2528     if (mov->chapter_track)
2529         for (i = 0; i < s->nb_streams; i++) {
2530             mov->tracks[i].tref_tag = MKTAG('c','h','a','p');
2531             mov->tracks[i].tref_id  = mov->tracks[mov->chapter_track].track_id;
2532         }
2533     for (i = 0; i < mov->nb_streams; i++) {
2534         if (mov->tracks[i].tag == MKTAG('r','t','p',' ')) {
2535             mov->tracks[i].tref_tag = MKTAG('h','i','n','t');
2536             mov->tracks[i].tref_id =
2537                 mov->tracks[mov->tracks[i].src_track].track_id;
2538         }
2539     }
2540     for (i = 0; i < mov->nb_streams; i++) {
2541         if (mov->tracks[i].tag == MKTAG('t','m','c','d')) {
2542             int src_trk = mov->tracks[i].src_track;
2543             mov->tracks[src_trk].tref_tag = mov->tracks[i].tag;
2544             mov->tracks[src_trk].tref_id  = mov->tracks[i].track_id;
2545             //src_trk may have a different timescale than the tmcd track
2546             mov->tracks[i].track_duration = av_rescale(mov->tracks[src_trk].track_duration,
2547                                                        mov->tracks[i].timescale,
2548                                                        mov->tracks[src_trk].timescale);
2549         }
2550     }
2551
2552     mov_write_mvhd_tag(pb, mov);
2553     if (mov->mode != MODE_MOV && !mov->iods_skip)
2554         mov_write_iods_tag(pb, mov);
2555     for (i = 0; i < mov->nb_streams; i++) {
2556         if (mov->tracks[i].entry > 0 || mov->flags & FF_MOV_FLAG_FRAGMENT) {
2557             mov_write_trak_tag(pb, mov, &(mov->tracks[i]), i < s->nb_streams ? s->streams[i] : NULL);
2558         }
2559     }
2560     if (mov->flags & FF_MOV_FLAG_FRAGMENT)
2561         mov_write_mvex_tag(pb, mov); /* QuickTime requires trak to precede this */
2562
2563     if (mov->mode == MODE_PSP)
2564         mov_write_uuidusmt_tag(pb, s);
2565     else
2566         mov_write_udta_tag(pb, mov, s);
2567
2568     return update_size(pb, pos);
2569 }
2570
2571 static void param_write_int(AVIOContext *pb, const char *name, int value)
2572 {
2573     avio_printf(pb, "<param name=\"%s\" value=\"%d\" valuetype=\"data\"/>\n", name, value);
2574 }
2575
2576 static void param_write_string(AVIOContext *pb, const char *name, const char *value)
2577 {
2578     avio_printf(pb, "<param name=\"%s\" value=\"%s\" valuetype=\"data\"/>\n", name, value);
2579 }
2580
2581 static void param_write_hex(AVIOContext *pb, const char *name, const uint8_t *value, int len)
2582 {
2583     char buf[150];
2584     len = FFMIN(sizeof(buf) / 2 - 1, len);
2585     ff_data_to_hex(buf, value, len, 0);
2586     buf[2 * len] = '\0';
2587     avio_printf(pb, "<param name=\"%s\" value=\"%s\" valuetype=\"data\"/>\n", name, buf);
2588 }
2589
2590 static int mov_write_isml_manifest(AVIOContext *pb, MOVMuxContext *mov)
2591 {
2592     int64_t pos = avio_tell(pb);
2593     int i;
2594     static const uint8_t uuid[] = {
2595         0xa5, 0xd4, 0x0b, 0x30, 0xe8, 0x14, 0x11, 0xdd,
2596         0xba, 0x2f, 0x08, 0x00, 0x20, 0x0c, 0x9a, 0x66
2597     };
2598
2599     avio_wb32(pb, 0);
2600     ffio_wfourcc(pb, "uuid");
2601     avio_write(pb, uuid, sizeof(uuid));
2602     avio_wb32(pb, 0);
2603
2604     avio_printf(pb, "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n");
2605     avio_printf(pb, "<smil xmlns=\"http://www.w3.org/2001/SMIL20/Language\">\n");
2606     avio_printf(pb, "<head>\n");
2607     if (!mov->exact)
2608         avio_printf(pb, "<meta name=\"creator\" content=\"%s\" />\n",
2609                     LIBAVFORMAT_IDENT);
2610     avio_printf(pb, "</head>\n");
2611     avio_printf(pb, "<body>\n");
2612     avio_printf(pb, "<switch>\n");
2613     for (i = 0; i < mov->nb_streams; i++) {
2614         MOVTrack *track = &mov->tracks[i];
2615         const char *type;
2616         /* track->track_id is initialized in write_moov, and thus isn't known
2617          * here yet */
2618         int track_id = i + 1;
2619
2620         if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO) {
2621             type = "video";
2622         } else if (track->enc->codec_type == AVMEDIA_TYPE_AUDIO) {
2623             type = "audio";
2624         } else {
2625             continue;
2626         }
2627         avio_printf(pb, "<%s systemBitrate=\"%d\">\n", type,
2628                                                        track->enc->bit_rate);
2629         param_write_int(pb, "systemBitrate", track->enc->bit_rate);
2630         param_write_int(pb, "trackID", track_id);
2631         if (track->enc->codec_type == AVMEDIA_TYPE_VIDEO) {
2632             if (track->enc->codec_id == AV_CODEC_ID_H264) {
2633                 uint8_t *ptr;
2634                 int size = track->enc->extradata_size;
2635                 if (!ff_avc_write_annexb_extradata(track->enc->extradata, &ptr,
2636                                                    &size)) {
2637                     param_write_hex(pb, "CodecPrivateData",
2638                                     ptr ? ptr : track->enc->extradata,
2639                                     size);
2640                     av_free(ptr);
2641                 }
2642                 param_write_string(pb, "FourCC", "H264");
2643             } else if (track->enc->codec_id == AV_CODEC_ID_VC1) {
2644                 param_write_string(pb, "FourCC", "WVC1");
2645                 param_write_hex(pb, "CodecPrivateData", track->enc->extradata,
2646                                 track->enc->extradata_size);
2647             }
2648             param_write_int(pb, "MaxWidth", track->enc->width);
2649             param_write_int(pb, "MaxHeight", track->enc->height);
2650             param_write_int(pb, "DisplayWidth", track->enc->width);
2651             param_write_int(pb, "DisplayHeight", track->enc->height);
2652         } else {
2653             if (track->enc->codec_id == AV_CODEC_ID_AAC) {
2654                 param_write_string(pb, "FourCC", "AACL");
2655             } else if (track->enc->codec_id == AV_CODEC_ID_WMAPRO) {
2656                 param_write_string(pb, "FourCC", "WMAP");
2657             }
2658             param_write_hex(pb, "CodecPrivateData", track->enc->extradata,
2659                             track->enc->extradata_size);
2660             param_write_int(pb, "AudioTag", ff_codec_get_tag(ff_codec_wav_tags,
2661                                                              track->enc->codec_id));
2662             param_write_int(pb, "Channels", track->enc->channels);
2663             param_write_int(pb, "SamplingRate", track->enc->sample_rate);
2664             param_write_int(pb, "BitsPerSample", 16);
2665             param_write_int(pb, "PacketSize", track->enc->block_align ?
2666                                               track->enc->block_align : 4);
2667         }
2668         avio_printf(pb, "</%s>\n", type);
2669     }
2670     avio_printf(pb, "</switch>\n");
2671     avio_printf(pb, "</body>\n");
2672     avio_printf(pb, "</smil>\n");
2673
2674     return update_size(pb, pos);
2675 }
2676
2677 static int mov_write_mfhd_tag(AVIOContext *pb, MOVMuxContext *mov)
2678 {
2679     avio_wb32(pb, 16);
2680     ffio_wfourcc(pb, "mfhd");
2681     avio_wb32(pb, 0);
2682     avio_wb32(pb, mov->fragments);
2683     return 0;
2684 }
2685
2686 static int mov_write_tfhd_tag(AVIOContext *pb, MOVMuxContext *mov,
2687                               MOVTrack *track, int64_t moof_offset)
2688 {
2689     int64_t pos = avio_tell(pb);
2690     uint32_t flags = MOV_TFHD_DEFAULT_SIZE | MOV_TFHD_DEFAULT_DURATION |
2691                      MOV_TFHD_BASE_DATA_OFFSET;
2692     if (!track->entry) {
2693         flags |= MOV_TFHD_DURATION_IS_EMPTY;
2694     } else {
2695         flags |= MOV_TFHD_DEFAULT_FLAGS;
2696     }
2697     if (mov->flags & FF_MOV_FLAG_OMIT_TFHD_OFFSET)
2698         flags &= ~MOV_TFHD_BASE_DATA_OFFSET;
2699
2700     /* Don't set a default sample size, the silverlight player refuses
2701      * to play files with that set. Don't set a default sample duration,
2702      * WMP freaks out if it is set. Don't set a base data offset, PIFF
2703      * file format says it MUST NOT be set. */
2704     if (track->mode == MODE_ISM)
2705         flags &= ~(MOV_TFHD_DEFAULT_SIZE | MOV_TFHD_DEFAULT_DURATION |
2706                    MOV_TFHD_BASE_DATA_OFFSET);
2707
2708     avio_wb32(pb, 0); /* size placeholder */
2709     ffio_wfourcc(pb, "tfhd");
2710     avio_w8(pb, 0); /* version */
2711     avio_wb24(pb, flags);
2712
2713     avio_wb32(pb, track->track_id); /* track-id */
2714     if (flags & MOV_TFHD_BASE_DATA_OFFSET)
2715         avio_wb64(pb, moof_offset);
2716     if (flags & MOV_TFHD_DEFAULT_DURATION) {
2717         track->default_duration = get_cluster_duration(track, 0);
2718         avio_wb32(pb, track->default_duration);
2719     }
2720     if (flags & MOV_TFHD_DEFAULT_SIZE) {
2721         track->default_size = track->entry ? track->cluster[0].size : 1;
2722         avio_wb32(pb, track->default_size);
2723     } else
2724         track->default_size = -1;
2725
2726     if (flags & MOV_TFHD_DEFAULT_FLAGS) {
2727         track->default_sample_flags =
2728             track->enc->codec_type == AVMEDIA_TYPE_VIDEO ?
2729             (MOV_FRAG_SAMPLE_FLAG_DEPENDS_YES | MOV_FRAG_SAMPLE_FLAG_IS_NON_SYNC) :
2730             MOV_FRAG_SAMPLE_FLAG_DEPENDS_NO;
2731         avio_wb32(pb, track->default_sample_flags);
2732     }
2733
2734     return update_size(pb, pos);
2735 }
2736
2737 static uint32_t get_sample_flags(MOVTrack *track, MOVIentry *entry)
2738 {
2739     return entry->flags & MOV_SYNC_SAMPLE ? MOV_FRAG_SAMPLE_FLAG_DEPENDS_NO :
2740            (MOV_FRAG_SAMPLE_FLAG_DEPENDS_YES | MOV_FRAG_SAMPLE_FLAG_IS_NON_SYNC);
2741 }
2742
2743 static int mov_write_trun_tag(AVIOContext *pb, MOVMuxContext *mov,
2744                               MOVTrack *track, int moof_size)
2745 {
2746     int64_t pos = avio_tell(pb);
2747     uint32_t flags = MOV_TRUN_DATA_OFFSET;
2748     int i;
2749
2750     for (i = 0; i < track->entry; i++) {
2751         if (get_cluster_duration(track, i) != track->default_duration)
2752             flags |= MOV_TRUN_SAMPLE_DURATION;
2753         if (track->cluster[i].size != track->default_size)
2754             flags |= MOV_TRUN_SAMPLE_SIZE;
2755         if (i > 0 && get_sample_flags(track, &track->cluster[i]) != track->default_sample_flags)
2756             flags |= MOV_TRUN_SAMPLE_FLAGS;
2757     }
2758     if (!(flags & MOV_TRUN_SAMPLE_FLAGS))
2759         flags |= MOV_TRUN_FIRST_SAMPLE_FLAGS;
2760     if (track->flags & MOV_TRACK_CTTS)
2761         flags |= MOV_TRUN_SAMPLE_CTS;
2762
2763     avio_wb32(pb, 0); /* size placeholder */
2764     ffio_wfourcc(pb, "trun");
2765     avio_w8(pb, 0); /* version */
2766     avio_wb24(pb, flags);
2767
2768     avio_wb32(pb, track->entry); /* sample count */
2769     if (mov->flags & FF_MOV_FLAG_OMIT_TFHD_OFFSET &&
2770         !(mov->flags & FF_MOV_FLAG_SEPARATE_MOOF) &&
2771         track->track_id != 1)
2772         avio_wb32(pb, 0); /* Later tracks follow immediately after the previous one */
2773     else
2774         avio_wb32(pb, moof_size + 8 + track->data_offset +
2775                       track->cluster[0].pos); /* data offset */
2776     if (flags & MOV_TRUN_FIRST_SAMPLE_FLAGS)
2777         avio_wb32(pb, get_sample_flags(track, &track->cluster[0]));
2778
2779     for (i = 0; i < track->entry; i++) {
2780         if (flags & MOV_TRUN_SAMPLE_DURATION)
2781             avio_wb32(pb, get_cluster_duration(track, i));
2782         if (flags & MOV_TRUN_SAMPLE_SIZE)
2783             avio_wb32(pb, track->cluster[i].size);
2784         if (flags & MOV_TRUN_SAMPLE_FLAGS)
2785             avio_wb32(pb, get_sample_flags(track, &track->cluster[i]));
2786         if (flags & MOV_TRUN_SAMPLE_CTS)
2787             avio_wb32(pb, track->cluster[i].cts);
2788     }
2789
2790     return update_size(pb, pos);
2791 }
2792
2793 static int mov_write_tfxd_tag(AVIOContext *pb, MOVTrack *track)
2794 {
2795     int64_t pos = avio_tell(pb);
2796     static const uint8_t uuid[] = {
2797         0x6d, 0x1d, 0x9b, 0x05, 0x42, 0xd5, 0x44, 0xe6,
2798         0x80, 0xe2, 0x14, 0x1d, 0xaf, 0xf7, 0x57, 0xb2
2799     };
2800
2801     avio_wb32(pb, 0); /* size placeholder */
2802     ffio_wfourcc(pb, "uuid");
2803     avio_write(pb, uuid, sizeof(uuid));
2804     avio_w8(pb, 1);
2805     avio_wb24(pb, 0);
2806     avio_wb64(pb, track->frag_start);
2807     avio_wb64(pb, track->start_dts + track->track_duration -
2808                   track->cluster[0].dts);
2809
2810     return update_size(pb, pos);
2811 }
2812
2813 static int mov_write_tfrf_tag(AVIOContext *pb, MOVMuxContext *mov,
2814                               MOVTrack *track, int entry)
2815 {
2816     int n = track->nb_frag_info - 1 - entry, i;
2817     int size = 8 + 16 + 4 + 1 + 16*n;
2818     static const uint8_t uuid[] = {
2819         0xd4, 0x80, 0x7e, 0xf2, 0xca, 0x39, 0x46, 0x95,
2820         0x8e, 0x54, 0x26, 0xcb, 0x9e, 0x46, 0xa7, 0x9f
2821     };
2822
2823     if (entry < 0)
2824         return 0;
2825
2826     avio_seek(pb, track->frag_info[entry].tfrf_offset, SEEK_SET);
2827     avio_wb32(pb, size);
2828     ffio_wfourcc(pb, "uuid");
2829     avio_write(pb, uuid, sizeof(uuid));
2830     avio_w8(pb, 1);
2831     avio_wb24(pb, 0);
2832     avio_w8(pb, n);
2833     for (i = 0; i < n; i++) {
2834         int index = entry + 1 + i;
2835         avio_wb64(pb, track->frag_info[index].time);
2836         avio_wb64(pb, track->frag_info[index].duration);
2837     }
2838     if (n < mov->ism_lookahead) {
2839         int free_size = 16 * (mov->ism_lookahead - n);
2840         avio_wb32(pb, free_size);
2841         ffio_wfourcc(pb, "free");
2842         ffio_fill(pb, 0, free_size - 8);
2843     }
2844
2845     return 0;
2846 }
2847
2848 static int mov_write_tfrf_tags(AVIOContext *pb, MOVMuxContext *mov,
2849                                MOVTrack *track)
2850 {
2851     int64_t pos = avio_tell(pb);
2852     int i;
2853     for (i = 0; i < mov->ism_lookahead; i++) {
2854         /* Update the tfrf tag for the last ism_lookahead fragments,
2855          * nb_frag_info - 1 is the next fragment to be written. */
2856         mov_write_tfrf_tag(pb, mov, track, track->nb_frag_info - 2 - i);
2857     }
2858     avio_seek(pb, pos, SEEK_SET);
2859     return 0;
2860 }
2861
2862 static int mov_write_traf_tag(AVIOContext *pb, MOVMuxContext *mov,
2863                               MOVTrack *track, int64_t moof_offset,
2864                               int moof_size)
2865 {
2866     int64_t pos = avio_tell(pb);
2867     avio_wb32(pb, 0); /* size placeholder */
2868     ffio_wfourcc(pb, "traf");
2869
2870     mov_write_tfhd_tag(pb, mov, track, moof_offset);
2871     mov_write_trun_tag(pb, mov, track, moof_size);
2872     if (mov->mode == MODE_ISM) {
2873         mov_write_tfxd_tag(pb, track);
2874
2875         if (mov->ism_lookahead) {
2876             int i, size = 16 + 4 + 1 + 16 * mov->ism_lookahead;
2877
2878             track->tfrf_offset = avio_tell(pb);
2879             avio_wb32(pb, 8 + size);
2880             ffio_wfourcc(pb, "free");
2881             for (i = 0; i < size; i++)
2882                 avio_w8(pb, 0);
2883         }
2884     }
2885
2886     return update_size(pb, pos);
2887 }
2888
2889 static int mov_write_moof_tag_internal(AVIOContext *pb, MOVMuxContext *mov,
2890                                        int tracks, int moof_size)
2891 {
2892     int64_t pos = avio_tell(pb);
2893     int i;
2894
2895     avio_wb32(pb, 0); /* size placeholder */
2896     ffio_wfourcc(pb, "moof");
2897
2898     mov_write_mfhd_tag(pb, mov);
2899     for (i = 0; i < mov->nb_streams; i++) {
2900         MOVTrack *track = &mov->tracks[i];
2901         if (tracks >= 0 && i != tracks)
2902             continue;
2903         if (!track->entry)
2904             continue;
2905         mov_write_traf_tag(pb, mov, track, pos, moof_size);
2906     }
2907
2908     return update_size(pb, pos);
2909 }
2910
2911 static int mov_write_moof_tag(AVIOContext *pb, MOVMuxContext *mov, int tracks)
2912 {
2913     AVIOContext *avio_buf;
2914     int ret, moof_size;
2915
2916     if ((ret = ffio_open_null_buf(&avio_buf)) < 0)
2917         return ret;
2918     mov_write_moof_tag_internal(avio_buf, mov, tracks, 0);
2919     moof_size = ffio_close_null_buf(avio_buf);
2920     return mov_write_moof_tag_internal(pb, mov, tracks, moof_size);
2921 }
2922
2923 static int mov_write_tfra_tag(AVIOContext *pb, MOVTrack *track)
2924 {
2925     int64_t pos = avio_tell(pb);
2926     int i;
2927
2928     avio_wb32(pb, 0); /* size placeholder */
2929     ffio_wfourcc(pb, "tfra");
2930     avio_w8(pb, 1); /* version */
2931     avio_wb24(pb, 0);
2932
2933     avio_wb32(pb, track->track_id);
2934     avio_wb32(pb, 0); /* length of traf/trun/sample num */
2935     avio_wb32(pb, track->nb_frag_info);
2936     for (i = 0; i < track->nb_frag_info; i++) {
2937         avio_wb64(pb, track->frag_info[i].time);
2938         avio_wb64(pb, track->frag_info[i].offset);
2939         avio_w8(pb, 1); /* traf number */
2940         avio_w8(pb, 1); /* trun number */
2941         avio_w8(pb, 1); /* sample number */
2942     }
2943
2944     return update_size(pb, pos);
2945 }
2946
2947 static int mov_write_mfra_tag(AVIOContext *pb, MOVMuxContext *mov)
2948 {
2949     int64_t pos = avio_tell(pb);
2950     int i;
2951
2952     avio_wb32(pb, 0); /* size placeholder */
2953     ffio_wfourcc(pb, "mfra");
2954     /* An empty mfra atom is enough to indicate to the publishing point that
2955      * the stream has ended. */
2956     if (mov->flags & FF_MOV_FLAG_ISML)
2957         return update_size(pb, pos);
2958
2959     for (i = 0; i < mov->nb_streams; i++) {
2960         MOVTrack *track = &mov->tracks[i];
2961         if (track->nb_frag_info)
2962             mov_write_tfra_tag(pb, track);
2963     }
2964
2965     avio_wb32(pb, 16);
2966     ffio_wfourcc(pb, "mfro");
2967     avio_wb32(pb, 0); /* version + flags */
2968     avio_wb32(pb, avio_tell(pb) + 4 - pos);
2969
2970     return update_size(pb, pos);
2971 }
2972
2973 static int mov_write_mdat_tag(AVIOContext *pb, MOVMuxContext *mov)
2974 {
2975     avio_wb32(pb, 8);    // placeholder for extended size field (64 bit)
2976     ffio_wfourcc(pb, mov->mode == MODE_MOV ? "wide" : "free");
2977
2978     mov->mdat_pos = avio_tell(pb);
2979     avio_wb32(pb, 0); /* size placeholder*/
2980     ffio_wfourcc(pb, "mdat");
2981     return 0;
2982 }
2983
2984 /* TODO: This needs to be more general */
2985 static int mov_write_ftyp_tag(AVIOContext *pb, AVFormatContext *s)
2986 {
2987     MOVMuxContext *mov = s->priv_data;
2988     int64_t pos = avio_tell(pb);
2989     int has_h264 = 0, has_video = 0;
2990     int minor = 0x200;
2991     int i;
2992
2993     for (i = 0; i < s->nb_streams; i++) {
2994         AVStream *st = s->streams[i];
2995         if (st->codec->codec_type == AVMEDIA_TYPE_VIDEO)
2996             has_video = 1;
2997         if (st->codec->codec_id == AV_CODEC_ID_H264)
2998             has_h264 = 1;
2999     }
3000
3001     avio_wb32(pb, 0); /* size */
3002     ffio_wfourcc(pb, "ftyp");
3003
3004     if (mov->major_brand && strlen(mov->major_brand) >= 4)
3005         ffio_wfourcc(pb, mov->major_brand);
3006     else if (mov->mode == MODE_3GP) {
3007         ffio_wfourcc(pb, has_h264 ? "3gp6"  : "3gp4");
3008         minor =     has_h264 ?   0x100 :   0x200;
3009     } else if (mov->mode & MODE_3G2) {
3010         ffio_wfourcc(pb, has_h264 ? "3g2b"  : "3g2a");
3011         minor =     has_h264 ? 0x20000 : 0x10000;
3012     } else if (mov->mode == MODE_PSP)
3013         ffio_wfourcc(pb, "MSNV");
3014     else if (mov->mode == MODE_MP4)
3015         ffio_wfourcc(pb, "isom");
3016     else if (mov->mode == MODE_IPOD)
3017         ffio_wfourcc(pb, has_video ? "M4V ":"M4A ");
3018     else if (mov->mode == MODE_ISM)
3019         ffio_wfourcc(pb, "isml");
3020     else if (mov->mode == MODE_F4V)
3021         ffio_wfourcc(pb, "f4v ");
3022     else
3023         ffio_wfourcc(pb, "qt  ");
3024
3025     avio_wb32(pb, minor);
3026
3027     if (mov->mode == MODE_MOV)
3028         ffio_wfourcc(pb, "qt  ");
3029     else if (mov->mode == MODE_ISM) {
3030         ffio_wfourcc(pb, "piff");
3031         ffio_wfourcc(pb, "iso2");
3032     } else {
3033         ffio_wfourcc(pb, "isom");
3034         ffio_wfourcc(pb, "iso2");
3035         if (has_h264)
3036             ffio_wfourcc(pb, "avc1");
3037     }
3038
3039     if (mov->mode == MODE_3GP)
3040         ffio_wfourcc(pb, has_h264 ? "3gp6":"3gp4");
3041     else if (mov->mode & MODE_3G2)
3042         ffio_wfourcc(pb, has_h264 ? "3g2b":"3g2a");
3043     else if (mov->mode == MODE_PSP)
3044         ffio_wfourcc(pb, "MSNV");
3045     else if (mov->mode == MODE_MP4)
3046         ffio_wfourcc(pb, "mp41");
3047     return update_size(pb, pos);
3048 }
3049
3050 static void mov_write_uuidprof_tag(AVIOContext *pb, AVFormatContext *s)
3051 {
3052     AVCodecContext *video_codec = s->streams[0]->codec;
3053     AVCodecContext *audio_codec = s->streams[1]->codec;
3054     int audio_rate = audio_codec->sample_rate;
3055     int frame_rate = ((video_codec->time_base.den) * (0x10000)) / (video_codec->time_base.num);
3056     int audio_kbitrate = audio_codec->bit_rate / 1000;
3057     int video_kbitrate = FFMIN(video_codec->bit_rate / 1000, 800 - audio_kbitrate);
3058
3059     avio_wb32(pb, 0x94); /* size */
3060     ffio_wfourcc(pb, "uuid");
3061     ffio_wfourcc(pb, "PROF");
3062
3063     avio_wb32(pb, 0x21d24fce); /* 96 bit UUID */
3064     avio_wb32(pb, 0xbb88695c);
3065     avio_wb32(pb, 0xfac9c740);
3066
3067     avio_wb32(pb, 0x0);  /* ? */
3068     avio_wb32(pb, 0x3);  /* 3 sections ? */
3069
3070     avio_wb32(pb, 0x14); /* size */
3071     ffio_wfourcc(pb, "FPRF");
3072     avio_wb32(pb, 0x0);  /* ? */
3073     avio_wb32(pb, 0x0);  /* ? */
3074     avio_wb32(pb, 0x0);  /* ? */
3075
3076     avio_wb32(pb, 0x2c);  /* size */
3077     ffio_wfourcc(pb, "APRF"); /* audio */
3078     avio_wb32(pb, 0x0);
3079     avio_wb32(pb, 0x2);   /* TrackID */
3080     ffio_wfourcc(pb, "mp4a");
3081     avio_wb32(pb, 0x20f);
3082     avio_wb32(pb, 0x0);
3083     avio_wb32(pb, audio_kbitrate);
3084     avio_wb32(pb, audio_kbitrate);
3085     avio_wb32(pb, audio_rate);
3086     avio_wb32(pb, audio_codec->channels);
3087
3088     avio_wb32(pb, 0x34);  /* size */
3089     ffio_wfourcc(pb, "VPRF");   /* video */
3090     avio_wb32(pb, 0x0);
3091     avio_wb32(pb, 0x1);    /* TrackID */
3092     if (video_codec->codec_id == AV_CODEC_ID_H264) {
3093         ffio_wfourcc(pb, "avc1");
3094         avio_wb16(pb, 0x014D);
3095         avio_wb16(pb, 0x0015);
3096     } else {
3097         ffio_wfourcc(pb, "mp4v");
3098         avio_wb16(pb, 0x0000);
3099         avio_wb16(pb, 0x0103);
3100     }
3101     avio_wb32(pb, 0x0);
3102     avio_wb32(pb, video_kbitrate);
3103     avio_wb32(pb, video_kbitrate);
3104     avio_wb32(pb, frame_rate);
3105     avio_wb32(pb, frame_rate);
3106     avio_wb16(pb, video_codec->width);
3107     avio_wb16(pb, video_codec->height);
3108     avio_wb32(pb, 0x010001); /* ? */
3109 }
3110
3111 static int mov_parse_mpeg2_frame(AVPacket *pkt, uint32_t *flags)
3112 {
3113     uint32_t c = -1;
3114     int i, closed_gop = 0;
3115
3116     for (i = 0; i < pkt->size - 4; i++) {
3117         c = (c << 8) + pkt->data[i];
3118         if (c == 0x1b8) { // gop
3119             closed_gop = pkt->data[i + 4] >> 6 & 0x01;
3120         } else if (c == 0x100) { // pic
3121             int temp_ref = (pkt->data[i + 1] << 2) | (pkt->data[i + 2] >> 6);
3122             if (!temp_ref || closed_gop) // I picture is not reordered
3123                 *flags = MOV_SYNC_SAMPLE;
3124             else
3125                 *flags = MOV_PARTIAL_SYNC_SAMPLE;
3126             break;
3127         }
3128     }
3129     return 0;
3130 }
3131
3132 static void mov_parse_vc1_frame(AVPacket *pkt, MOVTrack *trk, int fragment)
3133 {
3134     const uint8_t *start, *next, *end = pkt->data + pkt->size;
3135     int seq = 0, entry = 0;
3136     int key = pkt->flags & AV_PKT_FLAG_KEY;
3137     start = find_next_marker(pkt->data, end);
3138     for (next = start; next < end; start = next) {
3139         next = find_next_marker(start + 4, end);
3140         switch (AV_RB32(start)) {
3141         case VC1_CODE_SEQHDR:
3142             seq = 1;
3143             break;
3144         case VC1_CODE_ENTRYPOINT:
3145             entry = 1;
3146             break;
3147         case VC1_CODE_SLICE:
3148             trk->vc1_info.slices = 1;
3149             break;
3150         }
3151     }
3152     if (!trk->entry && !fragment) {
3153         /* First packet in first fragment */
3154         trk->vc1_info.first_packet_seq   = seq;
3155         trk->vc1_info.first_packet_entry = entry;
3156     } else if ((seq && !trk->vc1_info.packet_seq) ||
3157                (entry && !trk->vc1_info.packet_entry)) {
3158         int i;
3159         for (i = 0; i < trk->entry; i++)
3160             trk->cluster[i].flags &= ~MOV_SYNC_SAMPLE;
3161         trk->has_keyframes = 0;
3162         if (seq)
3163             trk->vc1_info.packet_seq = 1;
3164         if (entry)
3165             trk->vc1_info.packet_entry = 1;
3166         if (!fragment) {
3167             /* First fragment */
3168             if ((!seq   || trk->vc1_info.first_packet_seq) &&
3169                 (!entry || trk->vc1_info.first_packet_entry)) {
3170                 /* First packet had the same headers as this one, readd the
3171                  * sync sample flag. */
3172                 trk->cluster[0].flags |= MOV_SYNC_SAMPLE;
3173                 trk->has_keyframes = 1;
3174             }
3175         }
3176     }
3177     if (trk->vc1_info.packet_seq && trk->vc1_info.packet_entry)
3178         key = seq && entry;
3179     else if (trk->vc1_info.packet_seq)
3180         key = seq;
3181     else if (trk->vc1_info.packet_entry)
3182         key = entry;
3183     if (key) {
3184         trk->cluster[trk->entry].flags |= MOV_SYNC_SAMPLE;
3185         trk->has_keyframes++;
3186     }
3187 }
3188
3189 static int mov_flush_fragment(AVFormatContext *s)
3190 {
3191     MOVMuxContext *mov = s->priv_data;
3192     int i, first_track = -1;
3193     int64_t mdat_size = 0;
3194
3195     if (!(mov->flags & FF_MOV_FLAG_FRAGMENT))
3196         return 0;
3197
3198     if (!(mov->flags & FF_MOV_FLAG_EMPTY_MOOV) && mov->fragments == 0) {
3199         int64_t pos = avio_tell(s->pb);
3200         uint8_t *buf;
3201         int buf_size, moov_size;
3202
3203         for (i = 0; i < mov->nb_streams; i++)
3204             if (!mov->tracks[i].entry)
3205                 break;
3206         /* Don't write the initial moov unless all tracks have data */
3207         if (i < mov->nb_streams)
3208             return 0;
3209
3210         moov_size = get_moov_size(s);
3211         for (i = 0; i < mov->nb_streams; i++)
3212             mov->tracks[i].data_offset = pos + moov_size + 8;
3213
3214         mov_write_moov_tag(s->pb, mov, s);
3215
3216         buf_size = avio_close_dyn_buf(mov->mdat_buf, &buf);
3217         mov->mdat_buf = NULL;
3218         avio_wb32(s->pb, buf_size + 8);
3219         ffio_wfourcc(s->pb, "mdat");
3220         avio_write(s->pb, buf, buf_size);
3221         av_free(buf);
3222
3223         mov->fragments++;
3224         mov->mdat_size = 0;
3225         for (i = 0; i < mov->nb_streams; i++) {
3226             if (mov->tracks[i].entry)
3227                 mov->tracks[i].frag_start += mov->tracks[i].start_dts +
3228                                              mov->tracks[i].track_duration -
3229                                              mov->tracks[i].cluster[0].dts;
3230             mov->tracks[i].entry = 0;
3231         }
3232         avio_flush(s->pb);
3233         return 0;
3234     }
3235
3236     for (i = 0; i < mov->nb_streams; i++) {
3237         MOVTrack *track = &mov->tracks[i];
3238         if (mov->flags & FF_MOV_FLAG_SEPARATE_MOOF)
3239             track->data_offset = 0;
3240         else
3241             track->data_offset = mdat_size;
3242         if (!track->mdat_buf)
3243             continue;
3244         mdat_size += avio_tell(track->mdat_buf);
3245         if (first_track < 0)
3246             first_track = i;
3247     }
3248
3249     if (!mdat_size)
3250         return 0;
3251
3252     for (i = 0; i < mov->nb_streams; i++) {
3253         MOVTrack *track = &mov->tracks[i];
3254         int buf_size, write_moof = 1, moof_tracks = -1;
3255         uint8_t *buf;
3256         int64_t duration = 0;
3257
3258         if (track->entry)
3259             duration = track->start_dts + track->track_duration -
3260                        track->cluster[0].dts;
3261         if (mov->flags & FF_MOV_FLAG_SEPARATE_MOOF) {
3262             if (!track->mdat_buf)
3263                 continue;
3264             mdat_size = avio_tell(track->mdat_buf);
3265             moof_tracks = i;
3266         } else {
3267             write_moof = i == first_track;
3268         }
3269
3270         if (write_moof) {
3271             MOVFragmentInfo *info;
3272             avio_flush(s->pb);
3273             track->nb_frag_info++;
3274             if (track->nb_frag_info >= track->frag_info_capacity) {
3275                 unsigned new_capacity = track->nb_frag_info + MOV_FRAG_INFO_ALLOC_INCREMENT;
3276                 if (av_reallocp_array(&track->frag_info,
3277                                       new_capacity,
3278                                       sizeof(*track->frag_info)))
3279                     return AVERROR(ENOMEM);
3280                 track->frag_info_capacity = new_capacity;
3281             }
3282             info = &track->frag_info[track->nb_frag_info - 1];
3283             info->offset   = avio_tell(s->pb);
3284             info->time     = mov->tracks[i].frag_start;
3285             info->duration = duration;
3286             mov_write_tfrf_tags(s->pb, mov, track);
3287
3288             mov_write_moof_tag(s->pb, mov, moof_tracks);
3289             info->tfrf_offset = track->tfrf_offset;
3290             mov->fragments++;
3291
3292             avio_wb32(s->pb, mdat_size + 8);
3293             ffio_wfourcc(s->pb, "mdat");
3294         }
3295
3296         if (track->entry)
3297             track->frag_start += duration;
3298         track->entry = 0;
3299         if (!track->mdat_buf)
3300             continue;
3301         buf_size = avio_close_dyn_buf(track->mdat_buf, &buf);
3302         track->mdat_buf = NULL;
3303
3304         avio_write(s->pb, buf, buf_size);
3305         av_free(buf);
3306     }
3307
3308     mov->mdat_size = 0;
3309
3310     avio_flush(s->pb);
3311     return 0;
3312 }
3313
3314 int ff_mov_write_packet(AVFormatContext *s, AVPacket *pkt)
3315 {
3316     MOVMuxContext *mov = s->priv_data;
3317     AVIOContext *pb = s->pb;
3318     MOVTrack *trk = &mov->tracks[pkt->stream_index];
3319     AVCodecContext *enc = trk->enc;
3320     unsigned int samples_in_chunk = 0;
3321     int size = pkt->size;
3322     uint8_t *reformatted_data = NULL;
3323
3324     if (trk->entry) {
3325         int64_t duration = pkt->dts - trk->cluster[trk->entry - 1].dts;
3326         if (duration < 0 || duration > INT_MAX) {
3327             av_log(s, AV_LOG_ERROR, "Application provided duration: %"PRId64" / timestamp: %"PRId64" is out of range for mov/mp4 format\n",
3328                 duration, pkt->dts
3329             );
3330
3331             pkt->dts = trk->cluster[trk->entry - 1].dts + 1;
3332             pkt->pts = AV_NOPTS_VALUE;
3333         }
3334     }
3335     if (mov->flags & FF_MOV_FLAG_FRAGMENT) {
3336         int ret;
3337         if (mov->fragments > 0) {
3338             if (!trk->mdat_buf) {
3339                 if ((ret = avio_open_dyn_buf(&trk->mdat_buf)) < 0)
3340                     return ret;
3341             }
3342             pb = trk->mdat_buf;
3343         } else {
3344             if (!mov->mdat_buf) {
3345                 if ((ret = avio_open_dyn_buf(&mov->mdat_buf)) < 0)
3346                     return ret;
3347             }
3348             pb = mov->mdat_buf;
3349         }
3350     }
3351
3352     if (enc->codec_id == AV_CODEC_ID_AMR_NB) {
3353         /* We must find out how many AMR blocks there are in one packet */
3354         static uint16_t packed_size[16] =
3355             {13, 14, 16, 18, 20, 21, 27, 32, 6, 0, 0, 0, 0, 0, 0, 1};
3356         int len = 0;
3357
3358         while (len < size && samples_in_chunk < 100) {
3359             len += packed_size[(pkt->data[len] >> 3) & 0x0F];
3360             samples_in_chunk++;
3361         }
3362         if (samples_in_chunk > 1) {
3363             av_log(s, AV_LOG_ERROR, "fatal error, input is not a single packet, implement a AVParser for it\n");
3364             return -1;
3365         }
3366     } else if (enc->codec_id == AV_CODEC_ID_ADPCM_MS ||
3367                enc->codec_id == AV_CODEC_ID_ADPCM_IMA_WAV) {
3368         samples_in_chunk = enc->frame_size;
3369     } else if (trk->sample_size)
3370         samples_in_chunk = size / trk->sample_size;
3371     else
3372         samples_in_chunk = 1;
3373
3374     /* copy extradata if it exists */
3375     if (trk->vos_len == 0 && enc->extradata_size > 0) {
3376         trk->vos_len  = enc->extradata_size;
3377         trk->vos_data = av_malloc(trk->vos_len);
3378         memcpy(trk->vos_data, enc->extradata, trk->vos_len);
3379     }
3380
3381     if (enc->codec_id == AV_CODEC_ID_AAC && pkt->size > 2 &&
3382         (AV_RB16(pkt->data) & 0xfff0) == 0xfff0) {
3383         if (!s->streams[pkt->stream_index]->nb_frames) {
3384             av_log(s, AV_LOG_ERROR, "Malformed AAC bitstream detected: "
3385                    "use audio bitstream filter 'aac_adtstoasc' to fix it "
3386                    "('-bsf:a aac_adtstoasc' option with ffmpeg)\n");
3387             return -1;
3388         }
3389         av_log(s, AV_LOG_WARNING, "aac bitstream error\n");
3390     }
3391     if (enc->codec_id == AV_CODEC_ID_H264 && trk->vos_len > 0 && *(uint8_t *)trk->vos_data != 1) {
3392         /* from x264 or from bytestream h264 */
3393         /* nal reformating needed */
3394         if (trk->hint_track >= 0 && trk->hint_track < mov->nb_streams) {
3395             ff_avc_parse_nal_units_buf(pkt->data, &reformatted_data,
3396                                        &size);
3397             avio_write(pb, reformatted_data, size);
3398         } else {
3399             size = ff_avc_parse_nal_units(pb, pkt->data, pkt->size);
3400         }
3401     } else if (enc->codec_id == AV_CODEC_ID_HEVC && trk->vos_len > 6 &&
3402                (AV_RB24(trk->vos_data) == 1 || AV_RB32(trk->vos_data) == 1)) {
3403         /* extradata is Annex B, assume the bitstream is too and convert it */
3404         if (trk->hint_track >= 0 && trk->hint_track < mov->nb_streams) {
3405             ff_hevc_annexb2mp4_buf(pkt->data, &reformatted_data, &size, 0, NULL);
3406             avio_write(pb, reformatted_data, size);
3407         } else {
3408             size = ff_hevc_annexb2mp4(pb, pkt->data, pkt->size, 0, NULL);
3409         }
3410     } else {
3411         avio_write(pb, pkt->data, size);
3412     }
3413
3414     if ((enc->codec_id == AV_CODEC_ID_DNXHD ||
3415          enc->codec_id == AV_CODEC_ID_AC3) && !trk->vos_len) {
3416         /* copy frame to create needed atoms */
3417         trk->vos_len  = size;
3418         trk->vos_data = av_malloc(size);
3419         if (!trk->vos_data)
3420             return AVERROR(ENOMEM);
3421         memcpy(trk->vos_data, pkt->data, size);
3422     }
3423
3424     if (trk->entry >= trk->cluster_capacity) {
3425         unsigned new_capacity = 2 * (trk->entry + MOV_INDEX_CLUSTER_SIZE);
3426         if (av_reallocp_array(&trk->cluster, new_capacity,
3427                               sizeof(*trk->cluster)))
3428             return AVERROR(ENOMEM);
3429         trk->cluster_capacity = new_capacity;
3430     }
3431
3432     trk->cluster[trk->entry].pos              = avio_tell(pb) - size;
3433     trk->cluster[trk->entry].samples_in_chunk = samples_in_chunk;
3434     trk->cluster[trk->entry].chunkNum         = 0;
3435     trk->cluster[trk->entry].size             = size;
3436     trk->cluster[trk->entry].entries          = samples_in_chunk;
3437     trk->cluster[trk->entry].dts              = pkt->dts;
3438     if (!trk->entry && trk->start_dts != AV_NOPTS_VALUE) {
3439         /* First packet of a new fragment. We already wrote the duration
3440          * of the last packet of the previous fragment based on track_duration,
3441          * which might not exactly match our dts. Therefore adjust the dts
3442          * of this packet to be what the previous packets duration implies. */
3443         trk->cluster[trk->entry].dts = trk->start_dts + trk->track_duration;
3444     }
3445     if (!trk->entry && trk->start_dts == AV_NOPTS_VALUE && !supports_edts(mov)) {
3446         trk->cluster[trk->entry].dts = trk->start_dts = 0;
3447     }
3448     if (trk->start_dts == AV_NOPTS_VALUE)
3449         trk->start_dts = pkt->dts;
3450     trk->track_duration = pkt->dts - trk->start_dts + pkt->duration;
3451     trk->last_sample_is_subtitle_end = 0;
3452
3453     if (pkt->pts == AV_NOPTS_VALUE) {
3454         av_log(s, AV_LOG_WARNING, "pts has no value\n");
3455         pkt->pts = pkt->dts;
3456     }
3457     if (pkt->dts != pkt->pts)
3458         trk->flags |= MOV_TRACK_CTTS;
3459     trk->cluster[trk->entry].cts   = pkt->pts - pkt->dts;
3460     trk->cluster[trk->entry].flags = 0;
3461     if (enc->codec_id == AV_CODEC_ID_VC1) {
3462         mov_parse_vc1_frame(pkt, trk, mov->fragments);
3463     } else if (pkt->flags & AV_PKT_FLAG_KEY) {
3464         if (mov->mode == MODE_MOV && enc->codec_id == AV_CODEC_ID_MPEG2VIDEO &&
3465             trk->entry > 0) { // force sync sample for the first key frame
3466             mov_parse_mpeg2_frame(pkt, &trk->cluster[trk->entry].flags);
3467             if (trk->cluster[trk->entry].flags & MOV_PARTIAL_SYNC_SAMPLE)
3468                 trk->flags |= MOV_TRACK_STPS;
3469         } else {
3470             trk->cluster[trk->entry].flags = MOV_SYNC_SAMPLE;
3471         }
3472         if (trk->cluster[trk->entry].flags & MOV_SYNC_SAMPLE)
3473             trk->has_keyframes++;
3474     }
3475     trk->entry++;
3476     trk->sample_count += samples_in_chunk;
3477     mov->mdat_size    += size;
3478
3479     if (trk->hint_track >= 0 && trk->hint_track < mov->nb_streams)
3480         ff_mov_add_hinted_packet(s, pkt, trk->hint_track, trk->entry,
3481                                  reformatted_data, size);
3482     av_free(reformatted_data);
3483     return 0;
3484 }
3485
3486 static int mov_write_single_packet(AVFormatContext *s, AVPacket *pkt)
3487 {
3488         MOVMuxContext *mov = s->priv_data;
3489         MOVTrack *trk = &mov->tracks[pkt->stream_index];
3490         AVCodecContext *enc = trk->enc;
3491         int64_t frag_duration = 0;
3492         int size = pkt->size;
3493
3494         if (!pkt->size)
3495             return 0;             /* Discard 0 sized packets */
3496
3497         if (trk->entry && pkt->stream_index < s->nb_streams)
3498             frag_duration = av_rescale_q(pkt->dts - trk->cluster[0].dts,
3499                                          s->streams[pkt->stream_index]->time_base,
3500                                          AV_TIME_BASE_Q);
3501         if ((mov->max_fragment_duration &&
3502              frag_duration >= mov->max_fragment_duration) ||
3503              (mov->max_fragment_size && mov->mdat_size + size >= mov->max_fragment_size) ||
3504              (mov->flags & FF_MOV_FLAG_FRAG_KEYFRAME &&
3505               enc->codec_type == AVMEDIA_TYPE_VIDEO &&
3506               trk->entry && pkt->flags & AV_PKT_FLAG_KEY)) {
3507             if (frag_duration >= mov->min_fragment_duration)
3508                 mov_flush_fragment(s);
3509         }
3510
3511         return ff_mov_write_packet(s, pkt);
3512 }
3513
3514 static int mov_write_subtitle_end_packet(AVFormatContext *s,
3515                                          int stream_index,
3516                                          int64_t dts) {
3517     AVPacket end;
3518     uint8_t data[2] = {0};
3519     int ret;
3520
3521     av_init_packet(&end);
3522     end.size = sizeof(data);
3523     end.data = data;
3524     end.pts = dts;
3525     end.dts = dts;
3526     end.duration = 0;
3527     end.stream_index = stream_index;
3528
3529     ret = mov_write_single_packet(s, &end);
3530     av_free_packet(&end);
3531
3532     return ret;
3533 }
3534
3535 static int mov_write_packet(AVFormatContext *s, AVPacket *pkt)
3536 {
3537     if (!pkt) {
3538         mov_flush_fragment(s);
3539         return 1;
3540     } else {
3541         int i;
3542         MOVMuxContext *mov = s->priv_data;
3543
3544         if (!pkt->size) return 0; /* Discard 0 sized packets */
3545
3546         /*
3547          * Subtitles require special handling.
3548          *
3549          * 1) For full complaince, every track must have a sample at
3550          * dts == 0, which is rarely true for subtitles. So, as soon
3551          * as we see any packet with dts > 0, write an empty subtitle
3552          * at dts == 0 for any subtitle track with no samples in it.
3553          *
3554          * 2) For each subtitle track, check if the current packet's
3555          * dts is past the duration of the last subtitle sample. If
3556          * so, we now need to write an end sample for that subtitle.
3557          *
3558          * This must be done conditionally to allow for subtitles that
3559          * immediately replace each other, in which case an end sample
3560          * is not needed, and is, in fact, actively harmful.
3561          *
3562          * 3) See mov_write_trailer for how the final end sample is
3563          * handled.
3564          */
3565         for (i = 0; i < mov->nb_streams; i++) {
3566             MOVTrack *trk = &mov->tracks[i];
3567             int ret;
3568
3569             if (trk->enc->codec_id == AV_CODEC_ID_MOV_TEXT &&
3570                 trk->track_duration < pkt->dts &&
3571                 (trk->entry == 0 || !trk->last_sample_is_subtitle_end)) {
3572                 ret = mov_write_subtitle_end_packet(s, i, trk->track_duration);
3573                 if (ret < 0) return ret;
3574                 trk->last_sample_is_subtitle_end = 1;
3575             }
3576         }
3577
3578         return mov_write_single_packet(s, pkt);
3579     }
3580 }
3581
3582 // QuickTime chapters involve an additional text track with the chapter names
3583 // as samples, and a tref pointing from the other tracks to the chapter one.
3584 static int mov_create_chapter_track(AVFormatContext *s, int tracknum)
3585 {
3586     AVIOContext *pb;
3587
3588     MOVMuxContext *mov = s->priv_data;
3589     MOVTrack *track = &mov->tracks[tracknum];
3590     AVPacket pkt = { .stream_index = tracknum, .flags = AV_PKT_FLAG_KEY };
3591     int i, len;
3592
3593     track->mode = mov->mode;
3594     track->tag = MKTAG('t','e','x','t');
3595     track->timescale = MOV_TIMESCALE;
3596     track->enc = avcodec_alloc_context3(NULL);
3597     if (!track->enc)
3598         return AVERROR(ENOMEM);
3599     track->enc->codec_type = AVMEDIA_TYPE_SUBTITLE;
3600 #if 0
3601     // These properties are required to make QT recognize the chapter track
3602     uint8_t chapter_properties[43] = { 0, 0, 0, 0, 0, 0, 0, 1, };
3603     if (ff_alloc_extradata(track->enc, sizeof(chapter_properties)))
3604         return AVERROR(ENOMEM);
3605     memcpy(track->enc->extradata, chapter_properties, sizeof(chapter_properties));
3606 #else
3607     if (avio_open_dyn_buf(&pb) >= 0) {
3608         int size;
3609         uint8_t *buf;
3610
3611         /* Stub header (usually for Quicktime chapter track) */
3612         // TextSampleEntry
3613         avio_wb32(pb, 0x01); // displayFlags
3614         avio_w8(pb, 0x00);   // horizontal justification
3615         avio_w8(pb, 0x00);   // vertical justification