according to the standard the object_type for H264 is 33, not 241
[ffmpeg.git] / libavformat / movenc.c
1 /*
2  * MOV, 3GP, MP4 encoder.
3  * Copyright (c) 2003 Thomas Raivio.
4  * Copyright (c) 2004 Gildas Bazin <gbazin at videolan dot org>.
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20 #include "avformat.h"
21 #include "avi.h"
22 #include "avio.h"
23
24 #undef NDEBUG
25 #include <assert.h>
26
27 #define MOV_INDEX_CLUSTER_SIZE 16384
28 #define globalTimescale 1000
29
30 #define MODE_MP4 0
31 #define MODE_MOV 1
32 #define MODE_3GP 2
33 #define MODE_PSP 3 // example working PSP command line: 
34 // ffmpeg -i testinput.avi  -f psp -r 14.985 -s 320x240 -b 768 -ar 24000 -ab 32 M4V00001.MP4
35 #define MODE_3G2 4
36
37 typedef struct MOVIentry {
38     unsigned int flags, pos, size;
39     unsigned int samplesInChunk;
40     char         key_frame;
41     unsigned int entries;
42 } MOVIentry;
43
44 typedef struct MOVIndex {
45     int         mode;
46     int         entry;
47     int         mdat_size;
48     int         ents_allocated;
49     long        timescale;
50     long        time;
51     long        trackDuration;
52     long        sampleCount;
53     long        sampleDuration;
54     int         hasKeyframes;
55     int         trackID;
56     AVCodecContext *enc;
57
58     int         vosLen;
59     uint8_t     *vosData;
60     MOVIentry** cluster;
61 } MOVTrack;
62
63 typedef struct MOVContext {
64     int     mode;
65     long    time;
66     int     nb_streams;
67     int     mdat_written;
68     offset_t mdat_pos;
69     long    timescale;
70     MOVTrack tracks[MAX_STREAMS];
71 } MOVContext;
72
73 static int mov_write_esds_tag(ByteIOContext *pb, MOVTrack* track);
74
75 const CodecTag ff_mov_obj_type[] = {
76     { CODEC_ID_MPEG4     ,  32 },
77     { CODEC_ID_AAC       ,  64 },
78     { CODEC_ID_MPEG1VIDEO, 106 },
79     { CODEC_ID_MPEG2VIDEO,  96 },//mpeg2 profiles
80     { CODEC_ID_MP2       , 107 },//FIXME mpeg2 mpeg audio -> 105
81     { CODEC_ID_MP3       , 107 },//FIXME mpeg2 mpeg audio -> 105
82     { CODEC_ID_H264      ,  33 },
83     { CODEC_ID_H263      , 242 },
84     { CODEC_ID_H261      , 243 },
85     { CODEC_ID_MJPEG     , 108 },
86     { CODEC_ID_PCM_S16LE , 224 },
87     { CODEC_ID_VORBIS    , 225 },
88     { CODEC_ID_AC3       , 226 },
89     { CODEC_ID_PCM_ALAW  , 227 },
90     { CODEC_ID_PCM_MULAW , 228 },
91     { CODEC_ID_PCM_S16BE , 230 },
92     { 0,0  },
93 };
94
95 //FIXME supprt 64bit varaint with wide placeholders
96 static int updateSize (ByteIOContext *pb, int pos)
97 {
98     long curpos = url_ftell(pb);
99     url_fseek(pb, pos, SEEK_SET);
100     put_be32(pb, curpos - pos); /* rewrite size */
101     url_fseek(pb, curpos, SEEK_SET);
102
103     return curpos - pos;
104 }
105
106 /* Chunk offset atom */
107 static int mov_write_stco_tag(ByteIOContext *pb, MOVTrack* track)
108 {
109     int i;
110     int pos = url_ftell(pb);
111     put_be32(pb, 0); /* size */
112     put_tag(pb, "stco");
113     put_be32(pb, 0); /* version & flags */
114     put_be32(pb, track->entry); /* entry count */
115     for (i=0; i<track->entry; i++) {
116         int cl = i / MOV_INDEX_CLUSTER_SIZE;
117         int id = i % MOV_INDEX_CLUSTER_SIZE;
118         put_be32(pb, track->cluster[cl][id].pos);
119     }
120     return updateSize (pb, pos);
121 }
122
123 /* Sample size atom */
124 static int mov_write_stsz_tag(ByteIOContext *pb, MOVTrack* track)
125 {
126     int equalChunks = 1;
127     int i, j, entries = 0, tst = -1, oldtst = -1;
128
129     int pos = url_ftell(pb);
130     put_be32(pb, 0); /* size */
131     put_tag(pb, "stsz");
132     put_be32(pb, 0); /* version & flags */
133
134     for (i=0; i<track->entry; i++) {
135         int cl = i / MOV_INDEX_CLUSTER_SIZE;
136         int id = i % MOV_INDEX_CLUSTER_SIZE;
137         tst = track->cluster[cl][id].size/track->cluster[cl][id].entries;
138         if(oldtst != -1 && tst != oldtst) {
139             equalChunks = 0;
140         }
141         oldtst = tst;
142         entries += track->cluster[cl][id].entries;
143     }
144     if (equalChunks) {
145         int sSize = track->cluster[0][0].size/track->cluster[0][0].entries;
146         put_be32(pb, sSize); // sample size 
147         put_be32(pb, entries); // sample count
148     }
149     else {
150         put_be32(pb, 0); // sample size 
151         put_be32(pb, entries); // sample count 
152         for (i=0; i<track->entry; i++) {
153             int cl = i / MOV_INDEX_CLUSTER_SIZE;
154             int id = i % MOV_INDEX_CLUSTER_SIZE;
155             for ( j=0; j<track->cluster[cl][id].entries; j++) {
156                 put_be32(pb, track->cluster[cl][id].size /
157                          track->cluster[cl][id].entries);
158             }
159         }
160     }
161     return updateSize (pb, pos);
162 }
163
164 /* Sample to chunk atom */
165 static int mov_write_stsc_tag(ByteIOContext *pb, MOVTrack* track)
166 {
167     int index = 0, oldval = -1, i, entryPos, curpos;
168
169     int pos = url_ftell(pb);
170     put_be32(pb, 0); /* size */
171     put_tag(pb, "stsc");
172     put_be32(pb, 0); // version & flags 
173     entryPos = url_ftell(pb);
174     put_be32(pb, track->entry); // entry count 
175     for (i=0; i<track->entry; i++) {
176         int cl = i / MOV_INDEX_CLUSTER_SIZE;
177         int id = i % MOV_INDEX_CLUSTER_SIZE;
178         if(oldval != track->cluster[cl][id].samplesInChunk)
179         {
180             put_be32(pb, i+1); // first chunk 
181             put_be32(pb, track->cluster[cl][id].samplesInChunk); // samples per chunk
182             put_be32(pb, 0x1); // sample description index 
183             oldval = track->cluster[cl][id].samplesInChunk;
184             index++;
185         }
186     }
187     curpos = url_ftell(pb);
188     url_fseek(pb, entryPos, SEEK_SET);
189     put_be32(pb, index); // rewrite size 
190     url_fseek(pb, curpos, SEEK_SET);
191
192     return updateSize (pb, pos);
193 }
194
195 /* Sync sample atom */
196 static int mov_write_stss_tag(ByteIOContext *pb, MOVTrack* track)
197 {
198     long curpos;
199     int i, index = 0, entryPos;
200     int pos = url_ftell(pb);
201     put_be32(pb, 0); // size 
202     put_tag(pb, "stss");
203     put_be32(pb, 0); // version & flags 
204     entryPos = url_ftell(pb);
205     put_be32(pb, track->entry); // entry count 
206     for (i=0; i<track->entry; i++) {
207         int cl = i / MOV_INDEX_CLUSTER_SIZE;
208         int id = i % MOV_INDEX_CLUSTER_SIZE;
209         if(track->cluster[cl][id].key_frame == 1) {
210             put_be32(pb, i+1);
211             index++;
212         }
213     }
214     curpos = url_ftell(pb);
215     url_fseek(pb, entryPos, SEEK_SET);
216     put_be32(pb, index); // rewrite size 
217     url_fseek(pb, curpos, SEEK_SET);
218     return updateSize (pb, pos);
219 }
220
221 static int mov_write_damr_tag(ByteIOContext *pb)
222 {
223     put_be32(pb, 0x11); /* size */
224     put_tag(pb, "damr");
225     put_tag(pb, "FFMP");
226     put_byte(pb, 0);
227
228     put_be16(pb, 0x80); /* Mode set (all modes for AMR_NB) */
229     put_be16(pb, 0xa); /* Mode change period (no restriction) */
230     //put_be16(pb, 0x81ff); /* Mode set (all modes for AMR_NB) */
231     //put_be16(pb, 1); /* Mode change period (no restriction) */
232     return 0x11;
233 }
234
235 static int mov_write_wave_tag(ByteIOContext *pb, MOVTrack* track)
236 {
237     int pos = url_ftell(pb);
238
239     put_be32(pb, 0);     /* size */
240     put_tag(pb, "wave");
241
242     put_be32(pb, 12);    /* size */
243     put_tag(pb, "frma");
244     put_tag(pb, "mp4a");
245
246     put_be32(pb, 12);    /* size */
247     put_tag(pb, "mp4a");
248     put_be32(pb, 0);
249
250     mov_write_esds_tag(pb, track);
251
252     put_be32(pb, 12);    /* size */
253     put_tag(pb, "srcq");
254     put_be32(pb, 0x40);
255
256     put_be32(pb, 8);     /* size */
257     put_be32(pb, 0);     /* null tag */
258
259     return updateSize (pb, pos);
260 }
261
262 const CodecTag codec_movaudio_tags[] = {
263     { CODEC_ID_PCM_MULAW, MKTAG('u', 'l', 'a', 'w') },
264     { CODEC_ID_PCM_ALAW, MKTAG('a', 'l', 'a', 'w') },
265     { CODEC_ID_ADPCM_IMA_QT, MKTAG('i', 'm', 'a', '4') },
266     { CODEC_ID_MACE3, MKTAG('M', 'A', 'C', '3') },
267     { CODEC_ID_MACE6, MKTAG('M', 'A', 'C', '6') },
268     { CODEC_ID_AAC, MKTAG('m', 'p', '4', 'a') },
269     { CODEC_ID_AMR_NB, MKTAG('s', 'a', 'm', 'r') },
270     { CODEC_ID_PCM_S16BE, MKTAG('t', 'w', 'o', 's') },
271     { CODEC_ID_PCM_S16LE, MKTAG('s', 'o', 'w', 't') },
272     { CODEC_ID_MP3, MKTAG('.', 'm', 'p', '3') },
273     { 0, 0 },
274 };
275
276 static int mov_write_audio_tag(ByteIOContext *pb, MOVTrack* track)
277 {
278     int pos = url_ftell(pb);
279     int tag;
280     
281     put_be32(pb, 0); /* size */
282
283     tag = track->enc->codec_tag;
284     if (!tag)
285     tag = codec_get_tag(codec_movaudio_tags, track->enc->codec_id);
286     // if no mac fcc found, try with Microsoft tags
287     if (!tag)
288     {
289         int tmp = codec_get_tag(codec_wav_tags, track->enc->codec_id);
290         tag = MKTAG('m', 's', ((tmp >> 8) & 0xff), (tmp & 0xff));
291     }
292     put_le32(pb, tag); // store it byteswapped
293
294     put_be32(pb, 0); /* Reserved */
295     put_be16(pb, 0); /* Reserved */
296     put_be16(pb, 1); /* Data-reference index, XXX  == 1 */
297
298     /* SoundDescription */
299     if(track->mode == MODE_MOV && track->enc->codec_id == CODEC_ID_AAC)
300         put_be16(pb, 1); /* Version 1 */
301     else
302         put_be16(pb, 0); /* Version 0 */
303     put_be16(pb, 0); /* Revision level */
304     put_be32(pb, 0); /* Reserved */
305
306     put_be16(pb, track->enc->channels); /* Number of channels */
307     /* TODO: Currently hard-coded to 16-bit, there doesn't seem
308                  to be a good way to get number of bits of audio */
309     put_be16(pb, 0x10); /* Reserved */
310
311     if(track->enc->codec_id == CODEC_ID_AAC ||
312        track->enc->codec_id == CODEC_ID_MP3)
313     {
314         put_be16(pb, 0xfffe); /* compression ID (vbr)*/
315     }
316     else
317     {
318         put_be16(pb, 0); /* compression ID (= 0) */
319     }
320     put_be16(pb, 0); /* packet size (= 0) */
321     put_be16(pb, track->timescale); /* Time scale */
322     put_be16(pb, 0); /* Reserved */
323
324     if(track->mode == MODE_MOV && track->enc->codec_id == CODEC_ID_AAC)
325     {
326         /* SoundDescription V1 extended info */
327         put_be32(pb, track->enc->frame_size); /* Samples per packet  */
328         put_be32(pb, 1536); /* Bytes per packet */
329         put_be32(pb, 2); /* Bytes per frame */
330         put_be32(pb, 2); /* Bytes per sample */
331     }
332
333     if(track->enc->codec_id == CODEC_ID_AAC) {
334         if( track->mode == MODE_MOV ) mov_write_wave_tag(pb, track);
335         else mov_write_esds_tag(pb, track);
336     }
337     if(track->enc->codec_id == CODEC_ID_AMR_NB)
338         mov_write_damr_tag(pb);
339     return updateSize (pb, pos);
340 }
341
342 static int mov_write_d263_tag(ByteIOContext *pb)
343 {
344     put_be32(pb, 0xf); /* size */
345     put_tag(pb, "d263");
346     put_tag(pb, "FFMP");
347     put_be16(pb, 0x0a);
348     put_byte(pb, 0);
349     return 0xf;
350 }
351
352 /* TODO: No idea about these values */
353 static int mov_write_svq3_tag(ByteIOContext *pb)
354 {
355     put_be32(pb, 0x15);
356     put_tag(pb, "SMI ");
357     put_tag(pb, "SEQH");
358     put_be32(pb, 0x5);
359     put_be32(pb, 0xe2c0211d);
360     put_be32(pb, 0xc0000000);
361     put_byte(pb, 0);   
362     return 0x15;
363 }
364
365 static unsigned int descrLength(unsigned int len)
366 {
367     if (len < 0x00000080)
368         return 2 + len;
369     else if (len < 0x00004000)
370         return 3 + len;
371     else if(len < 0x00200000)
372         return 4 + len;
373     else
374         return 5 + len;
375 }
376
377 static void putDescr(ByteIOContext *pb, int tag, int size)
378 {
379     uint32_t len;
380     uint8_t  vals[4];
381
382     len = size;
383     vals[3] = (uint8_t)(len & 0x7f);
384     len >>= 7;
385     vals[2] = (uint8_t)((len & 0x7f) | 0x80); 
386     len >>= 7;
387     vals[1] = (uint8_t)((len & 0x7f) | 0x80); 
388     len >>= 7;
389     vals[0] = (uint8_t)((len & 0x7f) | 0x80);
390
391     put_byte(pb, tag); // DescriptorTag
392
393     if (size < 0x00000080)
394     {
395         put_byte(pb, vals[3]);
396     }
397     else if (size < 0x00004000)
398     {
399         put_byte(pb, vals[2]);
400         put_byte(pb, vals[3]);
401     }
402     else if (size < 0x00200000)
403     {
404         put_byte(pb, vals[1]);
405         put_byte(pb, vals[2]);
406         put_byte(pb, vals[3]);
407     }
408     else if (size < 0x10000000)
409     {
410         put_byte(pb, vals[0]);
411         put_byte(pb, vals[1]);
412         put_byte(pb, vals[2]);
413         put_byte(pb, vals[3]);
414     }
415 }
416
417 static int mov_write_esds_tag(ByteIOContext *pb, MOVTrack* track) // Basic
418 {
419     int decoderSpecificInfoLen;
420     int pos = url_ftell(pb);
421     void *vosDataBackup=track->vosData;
422     int vosLenBackup=track->vosLen;
423     
424     // we should be able to have these passed in, via vosData, then we wouldn't need to attack this routine at all
425     static const char PSPAACData[]={0x13,0x10};
426     static const char PSPMP4Data[]={0x00,0x00,0x01,0xB0,0x03,0x00,0x00,0x01,0xB5,0x09,0x00,0x00,0x01,0x00,0x00,0x00,0x01,0x20,0x00,0x84,0x5D,0x4C,0x28,0x50,0x20,0xF0,0xA3,0x1F };
427     
428     
429     if (track->mode == MODE_PSP)  // fails on psp if this is not here
430     {
431         if (track->enc->codec_id == CODEC_ID_AAC)
432         {
433             track->vosLen = 2;
434             track->vosData = PSPAACData;
435         }
436
437         if (track->enc->codec_id == CODEC_ID_MPEG4)
438         {
439             track->vosLen = 28;
440             track->vosData = PSPMP4Data;
441         }
442     }
443
444     decoderSpecificInfoLen = track->vosLen ? descrLength(track->vosLen):0;
445
446     put_be32(pb, 0);               // size
447     put_tag(pb, "esds");
448     put_be32(pb, 0);               // Version
449
450     // ES descriptor
451     putDescr(pb, 0x03, 3 + descrLength(13 + decoderSpecificInfoLen) +
452              descrLength(1));
453     put_be16(pb, track->trackID);
454     put_byte(pb, 0x00);            // flags (= no flags)
455
456     // DecoderConfig descriptor
457     putDescr(pb, 0x04, 13 + decoderSpecificInfoLen);
458
459     // Object type indication
460     put_byte(pb, codec_get_tag(ff_mov_obj_type, track->enc->codec_id));
461
462     // the following fields is made of 6 bits to identify the streamtype (4 for video, 5 for audio)
463     // plus 1 bit to indicate upstream and 1 bit set to 1 (reserved)
464     if(track->enc->codec_type == CODEC_TYPE_AUDIO)
465         put_byte(pb, 0x15);            // flags (= Audiostream)
466     else
467         put_byte(pb, 0x11);            // flags (= Visualstream)
468
469     put_byte(pb,  track->enc->rc_buffer_size>>(3+16));             // Buffersize DB (24 bits)
470     put_be16(pb, (track->enc->rc_buffer_size>>3)&0xFFFF);          // Buffersize DB
471
472     put_be32(pb, FFMAX(track->enc->bit_rate, track->enc->rc_max_rate));     // maxbitrate  (FIXME should be max rate in any 1 sec window)
473     if(track->enc->rc_max_rate != track->enc->rc_min_rate || track->enc->rc_min_rate==0)
474         put_be32(pb, 0);     // vbr
475     else
476         put_be32(pb, track->enc->rc_max_rate);     // avg bitrate
477
478     if (track->vosLen)
479     {
480         // DecoderSpecific info descriptor
481         putDescr(pb, 0x05, track->vosLen);
482         put_buffer(pb, track->vosData, track->vosLen);
483     }
484
485     track->vosData = vosDataBackup;
486     track->vosLen = vosLenBackup;
487
488     // SL descriptor
489     putDescr(pb, 0x06, 1);
490     put_byte(pb, 0x02);
491     return updateSize (pb, pos);
492 }
493
494 const CodecTag codec_movvideo_tags[] = {
495     { CODEC_ID_SVQ1, MKTAG('S', 'V', 'Q', '1') },
496     { CODEC_ID_SVQ3, MKTAG('S', 'V', 'Q', '3') },
497     { CODEC_ID_MPEG4, MKTAG('m', 'p', '4', 'v') },
498     { CODEC_ID_H263, MKTAG('s', '2', '6', '3') },
499     { CODEC_ID_DVVIDEO, MKTAG('d', 'v', 'c', ' ') },
500     { 0, 0 },
501 };
502
503 static int mov_write_video_tag(ByteIOContext *pb, MOVTrack* track)
504 {
505     int pos = url_ftell(pb);
506     char compressor_name[32];
507     int tag;
508
509     put_be32(pb, 0); /* size */
510
511     tag = track->enc->codec_tag;
512     if (!tag)
513     tag = codec_get_tag(codec_movvideo_tags, track->enc->codec_id);
514     // if no mac fcc found, try with Microsoft tags
515     if (!tag)
516         tag = codec_get_tag(codec_bmp_tags, track->enc->codec_id);
517     put_le32(pb, tag); // store it byteswapped
518
519     put_be32(pb, 0); /* Reserved */
520     put_be16(pb, 0); /* Reserved */
521     put_be16(pb, 1); /* Data-reference index */
522
523     put_be16(pb, 0); /* Codec stream version */
524     put_be16(pb, 0); /* Codec stream revision (=0) */
525     put_tag(pb, "FFMP"); /* Vendor */
526     if(track->enc->codec_id == CODEC_ID_RAWVIDEO) {
527         put_be32(pb, 0); /* Temporal Quality */
528         put_be32(pb, 0x400); /* Spatial Quality = lossless*/
529     } else {
530         put_be32(pb, 0x200); /* Temporal Quality = normal */
531         put_be32(pb, 0x200); /* Spatial Quality = normal */
532     }
533     put_be16(pb, track->enc->width); /* Video width */
534     put_be16(pb, track->enc->height); /* Video height */
535     put_be32(pb, 0x00480000); /* Horizontal resolution 72dpi */
536     put_be32(pb, 0x00480000); /* Vertical resolution 72dpi */
537     put_be32(pb, 0); /* Data size (= 0) */
538     put_be16(pb, 1); /* Frame count (= 1) */
539     
540     memset(compressor_name,0,32);
541     if (track->enc->codec && track->enc->codec->name)
542         strncpy(compressor_name,track->enc->codec->name,31);
543     put_byte(pb, strlen(compressor_name));
544     put_buffer(pb, compressor_name, 31);
545     
546     put_be16(pb, 0x18); /* Reserved */
547     put_be16(pb, 0xffff); /* Reserved */
548     if(track->enc->codec_id == CODEC_ID_MPEG4)
549         mov_write_esds_tag(pb, track);
550     else if(track->enc->codec_id == CODEC_ID_H263)
551         mov_write_d263_tag(pb);
552     else if(track->enc->codec_id == CODEC_ID_SVQ3)
553         mov_write_svq3_tag(pb);    
554
555     return updateSize (pb, pos);
556 }
557
558 static int mov_write_stsd_tag(ByteIOContext *pb, MOVTrack* track)
559 {
560     int pos = url_ftell(pb);
561     put_be32(pb, 0); /* size */
562     put_tag(pb, "stsd");
563     put_be32(pb, 0); /* version & flags */
564     put_be32(pb, 1); /* entry count */
565     if (track->enc->codec_type == CODEC_TYPE_VIDEO)
566         mov_write_video_tag(pb, track);
567     else if (track->enc->codec_type == CODEC_TYPE_AUDIO)
568         mov_write_audio_tag(pb, track);
569     return updateSize(pb, pos);
570 }
571
572 /* TODO: */
573 /* Time to sample atom */
574 static int mov_write_stts_tag(ByteIOContext *pb, MOVTrack* track)
575 {
576     put_be32(pb, 0x18); /* size */
577     put_tag(pb, "stts");
578     put_be32(pb, 0); /* version & flags */
579     put_be32(pb, 1); /* entry count */
580
581     put_be32(pb, track->sampleCount); /* sample count */
582     put_be32(pb, track->sampleDuration); /* sample duration */
583     return 0x18;
584 }
585
586 static int mov_write_dref_tag(ByteIOContext *pb)
587 {
588     put_be32(pb, 28); /* size */
589     put_tag(pb, "dref");
590     put_be32(pb, 0); /* version & flags */
591     put_be32(pb, 1); /* entry count */
592
593     put_be32(pb, 0xc); /* size */
594     put_tag(pb, "url ");
595     put_be32(pb, 1); /* version & flags */
596
597     return 28;
598 }
599
600 static int mov_write_stbl_tag(ByteIOContext *pb, MOVTrack* track)
601 {
602     int pos = url_ftell(pb);
603     put_be32(pb, 0); /* size */
604     put_tag(pb, "stbl");
605     mov_write_stsd_tag(pb, track);
606     mov_write_stts_tag(pb, track);
607     if (track->enc->codec_type == CODEC_TYPE_VIDEO &&
608         track->hasKeyframes)
609         mov_write_stss_tag(pb, track);
610     mov_write_stsc_tag(pb, track);
611     mov_write_stsz_tag(pb, track);
612     mov_write_stco_tag(pb, track);
613     return updateSize(pb, pos);
614 }
615
616 static int mov_write_dinf_tag(ByteIOContext *pb)
617 {
618     int pos = url_ftell(pb);
619     put_be32(pb, 0); /* size */
620     put_tag(pb, "dinf");
621     mov_write_dref_tag(pb);
622     return updateSize(pb, pos);
623 }
624
625 static int mov_write_smhd_tag(ByteIOContext *pb)
626 {
627     put_be32(pb, 16); /* size */
628     put_tag(pb, "smhd");
629     put_be32(pb, 0); /* version & flags */
630     put_be16(pb, 0); /* reserved (balance, normally = 0) */
631     put_be16(pb, 0); /* reserved */
632     return 16;
633 }
634
635 static int mov_write_vmhd_tag(ByteIOContext *pb)
636 {
637     put_be32(pb, 0x14); /* size (always 0x14) */
638     put_tag(pb, "vmhd");
639     put_be32(pb, 0x01); /* version & flags */
640     put_be64(pb, 0); /* reserved (graphics mode = copy) */
641     return 0x14;
642 }
643
644 static int mov_write_hdlr_tag(ByteIOContext *pb, MOVTrack* track)
645 {
646     char *descr, *hdlr, *hdlr_type;
647     int pos = url_ftell(pb);
648     
649     if (!track) { /* no media --> data handler */
650         hdlr = "dhlr";
651         hdlr_type = "url ";
652         descr = "DataHandler";
653     } else {
654         hdlr = (track->mode == MODE_MOV) ? "mhlr" : "\0\0\0\0";
655         if (track->enc->codec_type == CODEC_TYPE_VIDEO) {
656             hdlr_type = "vide";
657             descr = "VideoHandler";
658         } else {
659             hdlr_type = "soun";
660             descr = "SoundHandler";
661         }
662     }
663     
664     put_be32(pb, 0); /* size */
665     put_tag(pb, "hdlr");
666     put_be32(pb, 0); /* Version & flags */
667     put_buffer(pb, hdlr, 4); /* handler */
668     put_tag(pb, hdlr_type); /* handler type */
669     put_be32(pb ,0); /* reserved */
670     put_be32(pb ,0); /* reserved */
671     put_be32(pb ,0); /* reserved */
672     put_byte(pb, strlen(descr)); /* string counter */
673     put_buffer(pb, descr, strlen(descr)); /* handler description */
674     return updateSize(pb, pos);
675 }
676
677 static int mov_write_minf_tag(ByteIOContext *pb, MOVTrack* track)
678 {
679     int pos = url_ftell(pb);
680     put_be32(pb, 0); /* size */
681     put_tag(pb, "minf");
682     if(track->enc->codec_type == CODEC_TYPE_VIDEO)
683         mov_write_vmhd_tag(pb);
684     else
685         mov_write_smhd_tag(pb);
686     if (track->mode == MODE_MOV) /* FIXME: Why do it for MODE_MOV only ? */
687         mov_write_hdlr_tag(pb, NULL);
688     mov_write_dinf_tag(pb);
689     mov_write_stbl_tag(pb, track);
690     return updateSize(pb, pos);
691 }
692
693 static int mov_write_mdhd_tag(ByteIOContext *pb, MOVTrack* track)
694 {
695     put_be32(pb, 32); /* size */
696     put_tag(pb, "mdhd");
697     put_be32(pb, 0); /* Version & flags */
698     put_be32(pb, track->time); /* creation time */
699     put_be32(pb, track->time); /* modification time */
700     put_be32(pb, track->timescale); /* time scale (sample rate for audio) */ 
701     put_be32(pb, track->trackDuration); /* duration */
702     put_be16(pb, 0); /* language, 0 = english */
703     put_be16(pb, 0); /* reserved (quality) */
704     return 32;
705 }
706
707 static int mov_write_mdia_tag(ByteIOContext *pb, MOVTrack* track)
708 {
709     int pos = url_ftell(pb);
710     put_be32(pb, 0); /* size */
711     put_tag(pb, "mdia");
712     mov_write_mdhd_tag(pb, track);
713     mov_write_hdlr_tag(pb, track);
714     mov_write_minf_tag(pb, track);
715     return updateSize(pb, pos);
716 }
717
718 static int mov_write_tkhd_tag(ByteIOContext *pb, MOVTrack* track)
719 {
720     put_be32(pb, 0x5c); /* size (always 0x5c) */
721     put_tag(pb, "tkhd");
722     put_be32(pb, 0xf); /* version & flags (track enabled) */
723     put_be32(pb, track->time); /* creation time */
724     put_be32(pb, track->time); /* modification time */
725     put_be32(pb, track->trackID); /* track-id */
726     put_be32(pb, 0); /* reserved */
727     put_be32(pb, av_rescale_rnd(track->trackDuration, globalTimescale, track->timescale, AV_ROUND_UP)); /* duration */
728
729     put_be32(pb, 0); /* reserved */
730     put_be32(pb, 0); /* reserved */
731     put_be32(pb, 0x0); /* reserved (Layer & Alternate group) */
732     /* Volume, only for audio */
733     if(track->enc->codec_type == CODEC_TYPE_AUDIO)
734         put_be16(pb, 0x0100);
735     else
736         put_be16(pb, 0);
737     put_be16(pb, 0); /* reserved */
738
739     /* Matrix structure */
740     put_be32(pb, 0x00010000); /* reserved */
741     put_be32(pb, 0x0); /* reserved */
742     put_be32(pb, 0x0); /* reserved */
743     put_be32(pb, 0x0); /* reserved */
744     put_be32(pb, 0x00010000); /* reserved */
745     put_be32(pb, 0x0); /* reserved */
746     put_be32(pb, 0x0); /* reserved */
747     put_be32(pb, 0x0); /* reserved */
748     put_be32(pb, 0x40000000); /* reserved */
749
750     /* Track width and height, for visual only */
751     if(track->enc->codec_type == CODEC_TYPE_VIDEO) {
752         double sample_aspect_ratio = av_q2d(track->enc->sample_aspect_ratio);
753         if( !sample_aspect_ratio ) sample_aspect_ratio = 1;
754         put_be32(pb, sample_aspect_ratio * track->enc->width*0x10000);
755         put_be32(pb, track->enc->height*0x10000);
756     }
757     else {
758         put_be32(pb, 0);
759         put_be32(pb, 0);
760     }
761     return 0x5c;
762 }
763
764 // This box seems important for the psp playback ... without it the movie seems to hang
765 static int mov_write_edts_tag(ByteIOContext *pb, MOVTrack *track)
766 {
767     put_be32(pb, 0x24); /* size  */
768     put_tag(pb, "edts");
769     put_be32(pb, 0x1c); /* size  */
770     put_tag(pb, "elst");
771     put_be32(pb, 0x0);
772     put_be32(pb, 0x1);
773
774     put_be32(pb, av_rescale_rnd(track->trackDuration, globalTimescale, track->timescale, AV_ROUND_UP)); /* duration   ... doesn't seem to effect psp */
775
776     put_be32(pb, 0x0);
777     put_be32(pb, 0x00010000);
778     return 0x24;
779 }
780
781 // goes at the end of each track!  ... Critical for PSP playback ("Incompatible data" without it)
782 static int mov_write_uuid_tag_psp(ByteIOContext *pb, MOVTrack *mov)
783 {
784     put_be32(pb, 0x34); /* size ... reports as 28 in mp4box! */
785     put_tag(pb, "uuid");
786     put_tag(pb, "USMT");
787     put_be32(pb, 0x21d24fce);
788     put_be32(pb, 0xbb88695c);
789     put_be32(pb, 0xfac9c740);
790     put_be32(pb, 0x1c);     // another size here!
791     put_tag(pb, "MTDT");
792     put_be32(pb, 0x00010012);
793     put_be32(pb, 0x0a);
794     put_be32(pb, 0x55c40000);
795     put_be32(pb, 0x1);
796     put_be32(pb, 0x0);
797     return 0x34;
798 }
799
800 static int mov_write_trak_tag(ByteIOContext *pb, MOVTrack* track)
801 {
802     int pos = url_ftell(pb);
803     put_be32(pb, 0); /* size */
804     put_tag(pb, "trak");
805     mov_write_tkhd_tag(pb, track);
806     if (track->mode == MODE_PSP) 
807         mov_write_edts_tag(pb, track);  // PSP Movies require edts box
808     mov_write_mdia_tag(pb, track);
809     if (track->mode == MODE_PSP) 
810         mov_write_uuid_tag_psp(pb,track);  // PSP Movies require this uuid box
811     return updateSize(pb, pos);
812 }
813
814 #if 0
815 /* TODO: Not sorted out, but not necessary either */
816 static int mov_write_iods_tag(ByteIOContext *pb, MOVContext *mov)
817 {
818     put_be32(pb, 0x15); /* size */
819     put_tag(pb, "iods");
820     put_be32(pb, 0);    /* version & flags */
821     put_be16(pb, 0x1007);
822     put_byte(pb, 0);
823     put_be16(pb, 0x4fff);
824     put_be16(pb, 0xfffe);
825     put_be16(pb, 0x01ff);
826     return 0x15;
827 }
828 #endif
829
830 static int mov_write_mvhd_tag(ByteIOContext *pb, MOVContext *mov)
831 {
832     int maxTrackID = 1, maxTrackLen = 0, i;
833     int64_t maxTrackLenTemp;
834
835     put_be32(pb, 0x6c); /* size (always 0x6c) */
836     put_tag(pb, "mvhd");
837     put_be32(pb, 0); /* version & flags */
838     put_be32(pb, mov->time); /* creation time */
839     put_be32(pb, mov->time); /* modification time */
840     put_be32(pb, mov->timescale); /* timescale */
841     for (i=0; i<MAX_STREAMS; i++) {
842         if(mov->tracks[i].entry > 0) {
843             maxTrackLenTemp = av_rescale_rnd(mov->tracks[i].trackDuration, globalTimescale, mov->tracks[i].timescale, AV_ROUND_UP);
844             if(maxTrackLen < maxTrackLenTemp)
845                 maxTrackLen = maxTrackLenTemp;
846             if(maxTrackID < mov->tracks[i].trackID)
847                 maxTrackID = mov->tracks[i].trackID;
848         }
849     }
850     put_be32(pb, maxTrackLen); /* duration of longest track */
851
852     put_be32(pb, 0x00010000); /* reserved (preferred rate) 1.0 = normal */
853     put_be16(pb, 0x0100); /* reserved (preferred volume) 1.0 = normal */
854     put_be16(pb, 0); /* reserved */
855     put_be32(pb, 0); /* reserved */
856     put_be32(pb, 0); /* reserved */
857
858     /* Matrix structure */
859     put_be32(pb, 0x00010000); /* reserved */
860     put_be32(pb, 0x0); /* reserved */
861     put_be32(pb, 0x0); /* reserved */
862     put_be32(pb, 0x0); /* reserved */
863     put_be32(pb, 0x00010000); /* reserved */
864     put_be32(pb, 0x0); /* reserved */
865     put_be32(pb, 0x0); /* reserved */
866     put_be32(pb, 0x0); /* reserved */
867     put_be32(pb, 0x40000000); /* reserved */
868
869     put_be32(pb, 0); /* reserved (preview time) */
870     put_be32(pb, 0); /* reserved (preview duration) */
871     put_be32(pb, 0); /* reserved (poster time) */
872     put_be32(pb, 0); /* reserved (selection time) */
873     put_be32(pb, 0); /* reserved (selection duration) */
874     put_be32(pb, 0); /* reserved (current time) */
875     put_be32(pb, maxTrackID+1); /* Next track id */
876     return 0x6c;
877 }
878
879 static int mov_write_itunes_hdlr_tag(ByteIOContext *pb, MOVContext* mov,
880                                      AVFormatContext *s)
881 {
882     int pos = url_ftell(pb);
883     put_be32(pb, 0); /* size */
884     put_tag(pb, "hdlr");
885     put_be32(pb, 0);
886     put_be32(pb, 0);
887     put_tag(pb, "mdir");
888     put_tag(pb, "appl");
889     put_be32(pb, 0);
890     put_be32(pb, 0);
891     put_be16(pb, 0);
892     return updateSize(pb, pos);
893 }
894
895 /* helper function to write a data tag with the specified string as data */
896 static int mov_write_string_data_tag(ByteIOContext *pb, MOVContext* mov,
897                                      AVFormatContext *s, const char *data)
898 {
899     int pos = url_ftell(pb);
900     put_be32(pb, 0); /* size */
901     put_tag(pb, "data");
902     put_be32(pb, 1);
903     put_be32(pb, 0);
904     put_buffer(pb, data, strlen(data));
905     return updateSize(pb, pos);
906 }
907
908 /* iTunes name of the song/movie */
909 static int mov_write_nam_tag(ByteIOContext *pb, MOVContext* mov,
910                              AVFormatContext *s)
911 {
912     int size = 0;
913     if ( s->title[0] ) {
914         int pos = url_ftell(pb);
915         put_be32(pb, 0); /* size */
916         put_tag(pb, "\251nam");
917         mov_write_string_data_tag(pb, mov, s, s->title);
918         size = updateSize(pb, pos);
919     }
920     return size;
921 }
922
923 /* iTunes name of the artist/performer */
924 static int mov_write_ART_tag(ByteIOContext *pb, MOVContext* mov,
925                              AVFormatContext *s)
926 {
927     int size = 0;
928     if ( s->author[0] ) {
929         int pos = url_ftell(pb);
930         put_be32(pb, 0); /* size */
931         put_tag(pb, "\251ART");
932         // we use the author here as this is the only thing that we have...
933         mov_write_string_data_tag(pb, mov, s, s->author);
934         size = updateSize(pb, pos);
935     }
936     return size;
937 }
938
939 /* iTunes name of the writer */
940 static int mov_write_wrt_tag(ByteIOContext *pb, MOVContext* mov,
941                              AVFormatContext *s)
942 {
943     int size = 0;
944     if ( s->author[0] ) {
945         int pos = url_ftell(pb);
946         put_be32(pb, 0); /* size */
947         put_tag(pb, "\251wrt");
948         mov_write_string_data_tag(pb, mov, s, s->author);
949         size = updateSize(pb, pos);
950     }
951     return size;
952 }
953
954 /* iTunes name of the album */
955 static int mov_write_alb_tag(ByteIOContext *pb, MOVContext* mov,
956                              AVFormatContext *s)
957 {
958     int size = 0;
959     if ( s->album[0] ) {
960         int pos = url_ftell(pb);
961         put_be32(pb, 0); /* size */
962         put_tag(pb, "\251alb");
963         mov_write_string_data_tag(pb, mov, s, s->album);
964         size = updateSize(pb, pos);
965     }
966     return size;
967 }
968
969 /* iTunes year */
970 static int mov_write_day_tag(ByteIOContext *pb, MOVContext* mov,
971                              AVFormatContext *s)
972 {
973     char year[5];
974     int size = 0;
975     if ( s->year ) {
976         int pos = url_ftell(pb);
977         put_be32(pb, 0); /* size */
978         put_tag(pb, "\251day");
979         snprintf(year, 5, "%04d", s->year);
980         mov_write_string_data_tag(pb, mov, s, year);
981         size = updateSize(pb, pos);
982     }
983     return size;
984 }
985
986 /* iTunes tool used to create the file */
987 static int mov_write_too_tag(ByteIOContext *pb, MOVContext* mov,
988                              AVFormatContext *s)
989 {
990     int pos = url_ftell(pb);
991     put_be32(pb, 0); /* size */
992     put_tag(pb, "\251too");
993     mov_write_string_data_tag(pb, mov, s, LIBAVFORMAT_IDENT);
994     return updateSize(pb, pos);
995 }
996
997 /* iTunes comment */
998 static int mov_write_cmt_tag(ByteIOContext *pb, MOVContext* mov,
999                              AVFormatContext *s)
1000 {
1001     int size = 0;
1002     if ( s->comment[0] ) {
1003         int pos = url_ftell(pb);
1004         put_be32(pb, 0); /* size */
1005         put_tag(pb, "\251cmt");
1006         mov_write_string_data_tag(pb, mov, s, s->comment);
1007         size = updateSize(pb, pos);
1008     }
1009     return size;
1010 }
1011
1012 /* iTunes custom genre */
1013 static int mov_write_gen_tag(ByteIOContext *pb, MOVContext* mov,
1014                              AVFormatContext *s)
1015 {
1016     int size = 0;
1017     if ( s->genre[0] ) {
1018         int pos = url_ftell(pb);
1019         put_be32(pb, 0); /* size */
1020         put_tag(pb, "\251gen");
1021         mov_write_string_data_tag(pb, mov, s, s->genre);
1022         size = updateSize(pb, pos);
1023     }
1024     return size;
1025 }
1026
1027 /* iTunes track number */
1028 static int mov_write_trkn_tag(ByteIOContext *pb, MOVContext* mov,
1029                               AVFormatContext *s)
1030 {
1031     int size = 0;
1032     if ( s->track ) {
1033         int pos = url_ftell(pb);
1034         put_be32(pb, 0); /* size */
1035         put_tag(pb, "trkn");
1036         {
1037             int pos = url_ftell(pb);
1038             put_be32(pb, 0); /* size */
1039             put_tag(pb, "data");
1040             put_be32(pb, 0);        // 8 bytes empty
1041             put_be32(pb, 0);
1042             put_be16(pb, 0);        // empty
1043             put_be16(pb, s->track); // track number
1044             put_be16(pb, 0);        // total track number
1045             put_be16(pb, 0);        // empty
1046             updateSize(pb, pos);
1047         }
1048         size = updateSize(pb, pos);
1049     }
1050     return size;
1051 }
1052
1053 /* iTunes meta data list */
1054 static int mov_write_ilst_tag(ByteIOContext *pb, MOVContext* mov,
1055                               AVFormatContext *s)
1056 {
1057     int pos = url_ftell(pb);
1058     put_be32(pb, 0); /* size */
1059     put_tag(pb, "ilst");
1060     mov_write_nam_tag(pb, mov, s);
1061     mov_write_ART_tag(pb, mov, s);
1062     mov_write_wrt_tag(pb, mov, s);
1063     mov_write_alb_tag(pb, mov, s);
1064     mov_write_day_tag(pb, mov, s);
1065     mov_write_too_tag(pb, mov, s);
1066     mov_write_cmt_tag(pb, mov, s);
1067     mov_write_gen_tag(pb, mov, s);
1068     mov_write_trkn_tag(pb, mov, s);
1069     return updateSize(pb, pos);
1070 }
1071
1072 /* iTunes meta data tag */
1073 static int mov_write_meta_tag(ByteIOContext *pb, MOVContext* mov,
1074                               AVFormatContext *s)
1075 {
1076     int size = 0;
1077
1078     // only save meta tag if required
1079     if ( s->title[0] || s->author[0] || s->album[0] || s->year || 
1080          s->comment[0] || s->genre[0] || s->track ) {
1081         int pos = url_ftell(pb);
1082         put_be32(pb, 0); /* size */
1083         put_tag(pb, "meta");
1084         put_be32(pb, 0);
1085         mov_write_itunes_hdlr_tag(pb, mov, s);
1086         mov_write_ilst_tag(pb, mov, s);
1087         size = updateSize(pb, pos);
1088     }
1089     return size;
1090 }
1091     
1092 static int mov_write_udta_tag(ByteIOContext *pb, MOVContext* mov,
1093                               AVFormatContext *s)
1094 {
1095     int pos = url_ftell(pb);
1096     int i;
1097
1098     put_be32(pb, 0); /* size */
1099     put_tag(pb, "udta");
1100
1101     /* iTunes meta data */
1102     mov_write_meta_tag(pb, mov, s);
1103
1104     /* Requirements */
1105     for (i=0; i<MAX_STREAMS; i++) {
1106         if(mov->tracks[i].entry <= 0) continue;
1107         if (mov->tracks[i].enc->codec_id == CODEC_ID_AAC ||
1108             mov->tracks[i].enc->codec_id == CODEC_ID_MPEG4) {
1109             int pos = url_ftell(pb);
1110             put_be32(pb, 0); /* size */
1111             put_tag(pb, "\251req");
1112             put_be16(pb, sizeof("QuickTime 6.0 or greater") - 1);
1113             put_be16(pb, 0);
1114             put_buffer(pb, "QuickTime 6.0 or greater",
1115                        sizeof("QuickTime 6.0 or greater") - 1);
1116             updateSize(pb, pos);
1117             break;
1118         }
1119     }
1120
1121     /* Encoder */
1122     if(mov->tracks[0].enc && !(mov->tracks[0].enc->flags & CODEC_FLAG_BITEXACT))
1123     {
1124         int pos = url_ftell(pb);
1125         put_be32(pb, 0); /* size */
1126         put_tag(pb, "\251enc");
1127         put_be16(pb, sizeof(LIBAVFORMAT_IDENT) - 1); /* string length */
1128         put_be16(pb, 0);
1129         put_buffer(pb, LIBAVFORMAT_IDENT, sizeof(LIBAVFORMAT_IDENT) - 1);
1130         updateSize(pb, pos);
1131     }
1132
1133     if( s->title[0] )
1134     {
1135         int pos = url_ftell(pb);
1136         put_be32(pb, 0); /* size */
1137         put_tag(pb, "\251nam");
1138         put_be16(pb, strlen(s->title)); /* string length */
1139         put_be16(pb, 0);
1140         put_buffer(pb, s->title, strlen(s->title));
1141         updateSize(pb, pos);
1142     }
1143
1144     if( s->author[0] )
1145     {
1146         int pos = url_ftell(pb);
1147         put_be32(pb, 0); /* size */
1148         put_tag(pb, /*"\251aut"*/ "\251day" );
1149         put_be16(pb, strlen(s->author)); /* string length */
1150         put_be16(pb, 0);
1151         put_buffer(pb, s->author, strlen(s->author));
1152         updateSize(pb, pos);
1153     }
1154
1155     if( s->comment[0] )
1156     {
1157         int pos = url_ftell(pb);
1158         put_be32(pb, 0); /* size */
1159         put_tag(pb, "\251des");
1160         put_be16(pb, strlen(s->comment)); /* string length */
1161         put_be16(pb, 0);
1162         put_buffer(pb, s->comment, strlen(s->comment));
1163         updateSize(pb, pos);
1164     }
1165
1166     return updateSize(pb, pos);
1167 }
1168
1169 static int mov_write_moov_tag(ByteIOContext *pb, MOVContext *mov,
1170                               AVFormatContext *s)
1171 {
1172     int pos, i;
1173     pos = url_ftell(pb);
1174     put_be32(pb, 0); /* size placeholder*/
1175     put_tag(pb, "moov");
1176     mov->timescale = globalTimescale;
1177
1178     for (i=0; i<MAX_STREAMS; i++) {
1179         if(mov->tracks[i].entry <= 0) continue;
1180
1181         if(mov->tracks[i].enc->codec_type == CODEC_TYPE_VIDEO) {
1182             mov->tracks[i].timescale = mov->tracks[i].enc->time_base.den;
1183             mov->tracks[i].sampleDuration = mov->tracks[i].enc->time_base.num;
1184         }
1185         else if(mov->tracks[i].enc->codec_type == CODEC_TYPE_AUDIO) {
1186             /* If AMR, track timescale = 8000, AMR_WB = 16000 */
1187             if(mov->tracks[i].enc->codec_id == CODEC_ID_AMR_NB) {
1188                 mov->tracks[i].sampleDuration = 160;  // Bytes per chunk
1189                 mov->tracks[i].timescale = 8000;
1190             }
1191             else {
1192                 mov->tracks[i].timescale = mov->tracks[i].enc->sample_rate;
1193                 mov->tracks[i].sampleDuration = mov->tracks[i].enc->frame_size;
1194             }
1195         }
1196
1197         mov->tracks[i].trackDuration = 
1198             mov->tracks[i].sampleCount * mov->tracks[i].sampleDuration;
1199         mov->tracks[i].time = mov->time;
1200         mov->tracks[i].trackID = i+1;
1201     }
1202
1203     mov_write_mvhd_tag(pb, mov);
1204     //mov_write_iods_tag(pb, mov);
1205     for (i=0; i<MAX_STREAMS; i++) {
1206         if(mov->tracks[i].entry > 0) {
1207             mov_write_trak_tag(pb, &(mov->tracks[i]));
1208         }
1209     }
1210
1211     mov_write_udta_tag(pb, mov, s);
1212
1213     return updateSize(pb, pos);
1214 }
1215
1216 int mov_write_mdat_tag(ByteIOContext *pb, MOVContext* mov)
1217 {
1218     mov->mdat_pos = url_ftell(pb); 
1219     put_be32(pb, 0); /* size placeholder*/
1220     put_tag(pb, "mdat");
1221     return 0;
1222 }
1223
1224 /* TODO: This needs to be more general */
1225 int mov_write_ftyp_tag(ByteIOContext *pb, AVFormatContext *s)
1226 {
1227     MOVContext *mov = s->priv_data;
1228
1229     put_be32(pb, 0x14 ); /* size */
1230     put_tag(pb, "ftyp");
1231
1232     if ( mov->mode == MODE_3GP )
1233         put_tag(pb, "3gp4");
1234     else if ( mov->mode == MODE_3G2 )
1235         put_tag(pb, "3g2a");
1236     else if ( mov->mode == MODE_PSP )
1237         put_tag(pb, "MSNV");
1238     else
1239         put_tag(pb, "isom");
1240
1241     put_be32(pb, 0x200 );
1242
1243     if ( mov->mode == MODE_3GP )
1244         put_tag(pb, "3gp4");
1245     else if ( mov->mode == MODE_3G2 )
1246         put_tag(pb, "3g2a");
1247     else if ( mov->mode == MODE_PSP )
1248         put_tag(pb, "MSNV");
1249     else
1250         put_tag(pb, "mp41");
1251
1252     return 0x14;
1253 }
1254
1255 static void mov_write_uuidprof_tag(ByteIOContext *pb, AVFormatContext *s)
1256 {
1257     int AudioRate = s->streams[1]->codec.sample_rate;
1258     int FrameRate = ((s->streams[0]->codec.time_base.den) * (0x10000))/ (s->streams[0]->codec.time_base.num);
1259  
1260     //printf("audiorate = %d\n",AudioRate);
1261     //printf("framerate = %d / %d = 0x%x\n",s->streams[0]->codec.time_base.den,s->streams[0]->codec.time_base.num,FrameRate);
1262
1263     put_be32(pb, 0x94 ); /* size */
1264     put_tag(pb, "uuid");
1265     put_tag(pb, "PROF");
1266
1267     put_be32(pb, 0x21d24fce ); /* 96 bit UUID */
1268     put_be32(pb, 0xbb88695c );
1269     put_be32(pb, 0xfac9c740 );
1270
1271     put_be32(pb, 0x0 );  /* ? */
1272     put_be32(pb, 0x3 );  /* 3 sections ? */
1273
1274     put_be32(pb, 0x14 ); /* size */
1275     put_tag(pb, "FPRF");
1276     put_be32(pb, 0x0 );  /* ? */
1277     put_be32(pb, 0x0 );  /* ? */
1278     put_be32(pb, 0x0 );  /* ? */
1279
1280     put_be32(pb, 0x2c );  /* size */
1281     put_tag(pb, "APRF");   /* audio */
1282     put_be32(pb, 0x0 );
1283     put_be32(pb, 0x2 );
1284     put_tag(pb, "mp4a");
1285     put_be32(pb, 0x20f );
1286     put_be32(pb, 0x0 );
1287     put_be32(pb, 0x40 );
1288     put_be32(pb, 0x40 );
1289     put_be32(pb, AudioRate ); //24000   ... audio rate?
1290     put_be32(pb, 0x2 );
1291
1292     put_be32(pb, 0x34 );  /* size */
1293     put_tag(pb, "VPRF");   /* video */
1294     put_be32(pb, 0x0 );
1295     put_be32(pb, 0x1 );
1296     put_tag(pb, "mp4v");
1297     put_be32(pb, 0x103 );
1298     put_be32(pb, 0x0 );
1299     put_be32(pb, 0xc0 );
1300     put_be32(pb, 0xc0 );
1301     put_be32(pb, FrameRate);  // was 0xefc29   
1302     put_be32(pb, FrameRate );  // was 0xefc29
1303     put_be16(pb, s->streams[0]->codec.width);
1304     put_be16(pb, s->streams[0]->codec.height);
1305     put_be32(pb, 0x010001 );
1306 }
1307
1308 static int mov_write_header(AVFormatContext *s)
1309 {
1310     ByteIOContext *pb = &s->pb;
1311     MOVContext *mov = s->priv_data;
1312     int i;
1313
1314     for(i=0; i<s->nb_streams; i++){
1315         AVCodecContext *c= &s->streams[i]->codec;
1316
1317         if      (c->codec_type == CODEC_TYPE_VIDEO){
1318             if (!codec_get_tag(codec_movvideo_tags, c->codec_id)){
1319                 if(!codec_get_tag(codec_bmp_tags, c->codec_id))
1320                     return -1;
1321                 else
1322                     av_log(s, AV_LOG_INFO, "Warning, using MS style video codec tag, the file may be unplayable!\n");
1323             }
1324         }else if(c->codec_type == CODEC_TYPE_AUDIO){
1325             if (!codec_get_tag(codec_movaudio_tags, c->codec_id)){
1326                 if(!codec_get_tag(codec_wav_tags, c->codec_id))
1327                     return -1;
1328                 else
1329                     av_log(s, AV_LOG_INFO, "Warning, using MS style audio codec tag, the file may be unplayable!\n");
1330             }
1331         }
1332     }
1333
1334     /* Default mode == MP4 */
1335     mov->mode = MODE_MP4;
1336
1337     if (s->oformat != NULL) {
1338         if (!strcmp("3gp", s->oformat->name)) mov->mode = MODE_3GP;
1339         else if (!strcmp("3g2", s->oformat->name)) mov->mode = MODE_3G2;
1340         else if (!strcmp("mov", s->oformat->name)) mov->mode = MODE_MOV;
1341         else if (!strcmp("psp", s->oformat->name)) mov->mode = MODE_PSP;
1342
1343         if ( mov->mode == MODE_3GP || mov->mode == MODE_3G2 ||
1344              mov->mode == MODE_MP4 || mov->mode == MODE_PSP )
1345             mov_write_ftyp_tag(pb,s);
1346         if ( mov->mode == MODE_PSP ) {
1347             if ( s->nb_streams != 2 ) {
1348                 av_log(s, AV_LOG_ERROR, "PSP mode need one video and one audio stream\n");
1349                 return -1;
1350             }
1351             mov_write_uuidprof_tag(pb,s);
1352         }
1353     }
1354
1355     for (i=0; i<MAX_STREAMS; i++) {
1356         mov->tracks[i].mode = mov->mode;
1357     }
1358
1359     put_flush_packet(pb);
1360
1361     return 0;
1362 }
1363
1364 static int mov_write_packet(AVFormatContext *s, AVPacket *pkt)
1365 {
1366     MOVContext *mov = s->priv_data;
1367     ByteIOContext *pb = &s->pb;
1368     AVCodecContext *enc = &s->streams[pkt->stream_index]->codec;
1369     MOVTrack* trk = &mov->tracks[pkt->stream_index];
1370     int cl, id;
1371     unsigned int samplesInChunk = 0;
1372     int size= pkt->size;
1373
1374     if (url_is_streamed(&s->pb)) return 0; /* Can't handle that */
1375     if (!size) return 0; /* Discard 0 sized packets */
1376
1377     if (enc->codec_type == CODEC_TYPE_VIDEO ) {
1378         samplesInChunk = 1;
1379     }
1380     else if (enc->codec_type == CODEC_TYPE_AUDIO ) {
1381         if( enc->codec_id == CODEC_ID_AMR_NB) {
1382             /* We must find out how many AMR blocks there are in one packet */
1383             static uint16_t packed_size[16] =
1384                 {13, 14, 16, 18, 20, 21, 27, 32, 6, 0, 0, 0, 0, 0, 0, 0};
1385             int len = 0;
1386
1387             while (len < size && samplesInChunk < 100) {
1388                 len += packed_size[(pkt->data[len] >> 3) & 0x0F];
1389                 samplesInChunk++;
1390             }
1391         }
1392         else if(enc->codec_id == CODEC_ID_PCM_ALAW) {
1393             samplesInChunk = size/enc->channels;
1394         }
1395         else if(enc->codec_id == CODEC_ID_PCM_S16BE || enc->codec_id == CODEC_ID_PCM_S16LE) {
1396             samplesInChunk = size/(2*enc->channels);
1397         }           
1398         else {
1399             samplesInChunk = 1;
1400         }
1401     }
1402
1403     if ((enc->codec_id == CODEC_ID_MPEG4 || enc->codec_id == CODEC_ID_AAC)
1404         && trk->vosLen == 0) {
1405 //        assert(enc->extradata_size);
1406
1407         trk->vosLen = enc->extradata_size;
1408         trk->vosData = av_malloc(trk->vosLen);
1409         memcpy(trk->vosData, enc->extradata, trk->vosLen);
1410     }
1411
1412     cl = trk->entry / MOV_INDEX_CLUSTER_SIZE;
1413     id = trk->entry % MOV_INDEX_CLUSTER_SIZE;
1414
1415     if (trk->ents_allocated <= trk->entry) {
1416         trk->cluster = av_realloc(trk->cluster, (cl+1)*sizeof(void*)); 
1417         if (!trk->cluster)
1418             return -1;
1419         trk->cluster[cl] = av_malloc(MOV_INDEX_CLUSTER_SIZE*sizeof(MOVIentry));
1420         if (!trk->cluster[cl])
1421             return -1;
1422         trk->ents_allocated += MOV_INDEX_CLUSTER_SIZE;
1423     }
1424     if (mov->mdat_written == 0) {
1425         mov_write_mdat_tag(pb, mov);
1426         mov->mdat_written = 1;
1427         mov->time = s->timestamp + 0x7C25B080; //1970 based -> 1904 based
1428     }
1429
1430     trk->cluster[cl][id].pos = url_ftell(pb);
1431     trk->cluster[cl][id].samplesInChunk = samplesInChunk;
1432     trk->cluster[cl][id].size = size;
1433     trk->cluster[cl][id].entries = samplesInChunk;
1434     if(enc->codec_type == CODEC_TYPE_VIDEO) {
1435         trk->cluster[cl][id].key_frame = !!(pkt->flags & PKT_FLAG_KEY);
1436         if(trk->cluster[cl][id].key_frame)
1437             trk->hasKeyframes = 1;
1438     }
1439     trk->enc = enc;
1440     trk->entry++;
1441     trk->sampleCount += samplesInChunk;
1442     trk->mdat_size += size;
1443
1444     put_buffer(pb, pkt->data, size);
1445
1446     put_flush_packet(pb);
1447     return 0;
1448 }
1449
1450 static int mov_write_trailer(AVFormatContext *s)
1451 {
1452     MOVContext *mov = s->priv_data;
1453     ByteIOContext *pb = &s->pb;
1454     int res = 0;
1455     int i, j;
1456
1457     offset_t moov_pos = url_ftell(pb);
1458
1459     /* Write size of mdat tag */
1460     for (i=0, j=0; i<MAX_STREAMS; i++) {
1461         if(mov->tracks[i].ents_allocated > 0) {
1462             j += mov->tracks[i].mdat_size;
1463         }
1464     }
1465     url_fseek(pb, mov->mdat_pos, SEEK_SET);
1466     put_be32(pb, j+8);
1467     url_fseek(pb, moov_pos, SEEK_SET);
1468
1469     mov_write_moov_tag(pb, mov, s);
1470
1471     for (i=0; i<MAX_STREAMS; i++) {
1472         for (j=0; j<mov->tracks[i].ents_allocated/MOV_INDEX_CLUSTER_SIZE; j++) {
1473             av_free(mov->tracks[i].cluster[j]);
1474         }
1475         av_free(mov->tracks[i].cluster);
1476         if( mov->tracks[i].vosLen ) av_free( mov->tracks[i].vosData );
1477
1478         mov->tracks[i].cluster = NULL;
1479         mov->tracks[i].ents_allocated = mov->tracks[i].entry = 0;
1480     }
1481
1482     put_flush_packet(pb);
1483
1484     return res;
1485 }
1486
1487 static AVOutputFormat mov_oformat = {
1488     "mov",
1489     "mov format",
1490     NULL,
1491     "mov",
1492     sizeof(MOVContext),
1493     CODEC_ID_AAC,
1494     CODEC_ID_MPEG4,
1495     mov_write_header,
1496     mov_write_packet,
1497     mov_write_trailer,
1498     .flags = AVFMT_GLOBALHEADER,
1499 };
1500
1501 static AVOutputFormat _3gp_oformat = {
1502     "3gp",
1503     "3gp format",
1504     NULL,
1505     "3gp",
1506     sizeof(MOVContext),
1507     CODEC_ID_AMR_NB,
1508     CODEC_ID_H263,
1509     mov_write_header,
1510     mov_write_packet,
1511     mov_write_trailer,
1512     .flags = AVFMT_GLOBALHEADER,
1513 };
1514
1515 static AVOutputFormat mp4_oformat = {
1516     "mp4",
1517     "mp4 format",
1518     "application/mp4",
1519     "mp4,m4a",
1520     sizeof(MOVContext),
1521     CODEC_ID_AAC,
1522     CODEC_ID_MPEG4,
1523     mov_write_header,
1524     mov_write_packet,
1525     mov_write_trailer,
1526     .flags = AVFMT_GLOBALHEADER,
1527 };
1528
1529 static AVOutputFormat psp_oformat = {
1530     "psp",
1531     "psp mp4 format",
1532     NULL,
1533     "mp4,psp",
1534     sizeof(MOVContext),
1535     CODEC_ID_AAC,
1536     CODEC_ID_MPEG4,
1537     mov_write_header,
1538     mov_write_packet,
1539     mov_write_trailer,
1540 //    .flags = AVFMT_GLOBALHEADER,
1541 };
1542
1543 static AVOutputFormat _3g2_oformat = {
1544     "3g2",
1545     "3gp2 format",
1546     NULL,
1547     "3g2",
1548     sizeof(MOVContext),
1549     CODEC_ID_AMR_NB,
1550     CODEC_ID_H263,
1551     mov_write_header,
1552     mov_write_packet,
1553     mov_write_trailer,
1554     .flags = AVFMT_GLOBALHEADER,
1555 };
1556
1557 int movenc_init(void)
1558 {
1559     av_register_output_format(&mov_oformat);
1560     av_register_output_format(&_3gp_oformat);
1561     av_register_output_format(&mp4_oformat);
1562     av_register_output_format(&psp_oformat);
1563     av_register_output_format(&_3g2_oformat);
1564     return 0;
1565 }