89202fdd3c35d147b746ce10cb48ef4e2d2ed95c
[ffmpeg.git] / libavformat / asfenc.c
1 /*
2  * ASF muxer
3  * Copyright (c) 2000, 2001 Fabrice Bellard
4  *
5  * This file is part of FFmpeg.
6  *
7  * FFmpeg is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * FFmpeg is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with FFmpeg; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20  */
21
22 #include "libavutil/avassert.h"
23 #include "libavutil/dict.h"
24 #include "libavutil/mathematics.h"
25 #include "avformat.h"
26 #include "avio_internal.h"
27 #include "internal.h"
28 #include "riff.h"
29 #include "asf.h"
30
31 #undef NDEBUG
32 #include <assert.h>
33
34
35 #define ASF_INDEXED_INTERVAL    10000000
36 #define ASF_INDEX_BLOCK         (1<<9)
37
38 #define ASF_PACKET_ERROR_CORRECTION_DATA_SIZE 0x2
39 #define ASF_PACKET_ERROR_CORRECTION_FLAGS          \
40     (ASF_PACKET_FLAG_ERROR_CORRECTION_PRESENT |    \
41      ASF_PACKET_ERROR_CORRECTION_DATA_SIZE)
42
43 #if (ASF_PACKET_ERROR_CORRECTION_FLAGS != 0)
44 #   define ASF_PACKET_ERROR_CORRECTION_FLAGS_FIELD_SIZE 1
45 #else
46 #   define ASF_PACKET_ERROR_CORRECTION_FLAGS_FIELD_SIZE 0
47 #endif
48
49 #define ASF_PPI_PROPERTY_FLAGS                                       \
50     (ASF_PL_FLAG_REPLICATED_DATA_LENGTH_FIELD_IS_BYTE           |    \
51      ASF_PL_FLAG_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_IS_DWORD |    \
52      ASF_PL_FLAG_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_IS_BYTE       |    \
53      ASF_PL_FLAG_STREAM_NUMBER_LENGTH_FIELD_IS_BYTE)
54
55 #define ASF_PPI_LENGTH_TYPE_FLAGS 0
56
57 #define ASF_PAYLOAD_FLAGS ASF_PL_FLAG_PAYLOAD_LENGTH_FIELD_IS_WORD
58
59 #if (ASF_PPI_FLAG_SEQUENCE_FIELD_IS_BYTE == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_SEQUENCE_FIELD_SIZE))
60 #   define ASF_PPI_SEQUENCE_FIELD_SIZE 1
61 #endif
62 #if (ASF_PPI_FLAG_SEQUENCE_FIELD_IS_WORD == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_SEQUENCE_FIELD_SIZE))
63 #   define ASF_PPI_SEQUENCE_FIELD_SIZE 2
64 #endif
65 #if (ASF_PPI_FLAG_SEQUENCE_FIELD_IS_DWORD == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_SEQUENCE_FIELD_SIZE))
66 #   define ASF_PPI_SEQUENCE_FIELD_SIZE 4
67 #endif
68 #ifndef ASF_PPI_SEQUENCE_FIELD_SIZE
69 #   define ASF_PPI_SEQUENCE_FIELD_SIZE 0
70 #endif
71
72 #if (ASF_PPI_FLAG_PACKET_LENGTH_FIELD_IS_BYTE == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_PACKET_LENGTH_FIELD_SIZE))
73 #   define ASF_PPI_PACKET_LENGTH_FIELD_SIZE 1
74 #endif
75 #if (ASF_PPI_FLAG_PACKET_LENGTH_FIELD_IS_WORD == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_PACKET_LENGTH_FIELD_SIZE))
76 #   define ASF_PPI_PACKET_LENGTH_FIELD_SIZE 2
77 #endif
78 #if (ASF_PPI_FLAG_PACKET_LENGTH_FIELD_IS_DWORD == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_PACKET_LENGTH_FIELD_SIZE))
79 #   define ASF_PPI_PACKET_LENGTH_FIELD_SIZE 4
80 #endif
81 #ifndef ASF_PPI_PACKET_LENGTH_FIELD_SIZE
82 #   define ASF_PPI_PACKET_LENGTH_FIELD_SIZE 0
83 #endif
84
85 #if (ASF_PPI_FLAG_PADDING_LENGTH_FIELD_IS_BYTE == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_PADDING_LENGTH_FIELD_SIZE))
86 #   define ASF_PPI_PADDING_LENGTH_FIELD_SIZE 1
87 #endif
88 #if (ASF_PPI_FLAG_PADDING_LENGTH_FIELD_IS_WORD == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_PADDING_LENGTH_FIELD_SIZE))
89 #   define ASF_PPI_PADDING_LENGTH_FIELD_SIZE 2
90 #endif
91 #if (ASF_PPI_FLAG_PADDING_LENGTH_FIELD_IS_DWORD == (ASF_PPI_LENGTH_TYPE_FLAGS & ASF_PPI_MASK_PADDING_LENGTH_FIELD_SIZE))
92 #   define ASF_PPI_PADDING_LENGTH_FIELD_SIZE 4
93 #endif
94 #ifndef ASF_PPI_PADDING_LENGTH_FIELD_SIZE
95 #   define ASF_PPI_PADDING_LENGTH_FIELD_SIZE 0
96 #endif
97
98 #if (ASF_PL_FLAG_REPLICATED_DATA_LENGTH_FIELD_IS_BYTE == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_REPLICATED_DATA_LENGTH_FIELD_SIZE))
99 #   define ASF_PAYLOAD_REPLICATED_DATA_LENGTH_FIELD_SIZE 1
100 #endif
101 #if (ASF_PL_FLAG_REPLICATED_DATA_LENGTH_FIELD_IS_WORD == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_REPLICATED_DATA_LENGTH_FIELD_SIZE))
102 #   define ASF_PAYLOAD_REPLICATED_DATA_LENGTH_FIELD_SIZE 2
103 #endif
104 #if (ASF_PL_FLAG_REPLICATED_DATA_LENGTH_FIELD_IS_DWORD == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_REPLICATED_DATA_LENGTH_FIELD_SIZE))
105 #   define ASF_PAYLOAD_REPLICATED_DATA_LENGTH_FIELD_SIZE 4
106 #endif
107 #ifndef ASF_PAYLOAD_REPLICATED_DATA_LENGTH_FIELD_SIZE
108 #   define ASF_PAYLOAD_REPLICATED_DATA_LENGTH_FIELD_SIZE 0
109 #endif
110
111 #if (ASF_PL_FLAG_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_IS_BYTE == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_SIZE))
112 #   define ASF_PAYLOAD_OFFSET_INTO_MEDIA_OBJECT_FIELD_SIZE 1
113 #endif
114 #if (ASF_PL_FLAG_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_IS_WORD == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_SIZE))
115 #   define ASF_PAYLOAD_OFFSET_INTO_MEDIA_OBJECT_FIELD_SIZE 2
116 #endif
117 #if (ASF_PL_FLAG_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_IS_DWORD == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_SIZE))
118 #   define ASF_PAYLOAD_OFFSET_INTO_MEDIA_OBJECT_FIELD_SIZE 4
119 #endif
120 #ifndef ASF_PAYLOAD_OFFSET_INTO_MEDIA_OBJECT_FIELD_SIZE
121 #   define ASF_PAYLOAD_OFFSET_INTO_MEDIA_OBJECT_FIELD_SIZE 0
122 #endif
123
124 #if (ASF_PL_FLAG_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_IS_BYTE == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_SIZE))
125 #   define ASF_PAYLOAD_MEDIA_OBJECT_NUMBER_FIELD_SIZE 1
126 #endif
127 #if (ASF_PL_FLAG_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_IS_WORD == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_SIZE))
128 #   define ASF_PAYLOAD_MEDIA_OBJECT_NUMBER_FIELD_SIZE 2
129 #endif
130 #if (ASF_PL_FLAG_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_IS_DWORD == (ASF_PPI_PROPERTY_FLAGS & ASF_PL_MASK_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_SIZE))
131 #   define ASF_PAYLOAD_MEDIA_OBJECT_NUMBER_FIELD_SIZE 4
132 #endif
133 #ifndef ASF_PAYLOAD_MEDIA_OBJECT_NUMBER_FIELD_SIZE
134 #   define ASF_PAYLOAD_MEDIA_OBJECT_NUMBER_FIELD_SIZE 0
135 #endif
136
137 #if (ASF_PL_FLAG_PAYLOAD_LENGTH_FIELD_IS_BYTE == (ASF_PAYLOAD_FLAGS & ASF_PL_MASK_PAYLOAD_LENGTH_FIELD_SIZE))
138 #   define ASF_PAYLOAD_LENGTH_FIELD_SIZE 1
139 #endif
140 #if (ASF_PL_FLAG_PAYLOAD_LENGTH_FIELD_IS_WORD == (ASF_PAYLOAD_FLAGS & ASF_PL_MASK_PAYLOAD_LENGTH_FIELD_SIZE))
141 #   define ASF_PAYLOAD_LENGTH_FIELD_SIZE 2
142 #endif
143 #ifndef ASF_PAYLOAD_LENGTH_FIELD_SIZE
144 #   define ASF_PAYLOAD_LENGTH_FIELD_SIZE 0
145 #endif
146
147 #define PACKET_HEADER_MIN_SIZE \
148     (ASF_PACKET_ERROR_CORRECTION_FLAGS_FIELD_SIZE +       \
149      ASF_PACKET_ERROR_CORRECTION_DATA_SIZE +              \
150      1 +        /* Length Type Flags */                   \
151      1 +        /* Property Flags */                      \
152      ASF_PPI_PACKET_LENGTH_FIELD_SIZE +                   \
153      ASF_PPI_SEQUENCE_FIELD_SIZE +                        \
154      ASF_PPI_PADDING_LENGTH_FIELD_SIZE +                  \
155      4 +        /* Send Time Field */                     \
156      2)         /* Duration Field */
157
158 // Replicated Data shall be at least 8 bytes long.
159 #define ASF_PAYLOAD_REPLICATED_DATA_LENGTH 0x08
160
161 #define PAYLOAD_HEADER_SIZE_SINGLE_PAYLOAD                \
162     (1 +     /* Stream Number */                          \
163      ASF_PAYLOAD_MEDIA_OBJECT_NUMBER_FIELD_SIZE +         \
164      ASF_PAYLOAD_OFFSET_INTO_MEDIA_OBJECT_FIELD_SIZE +    \
165      ASF_PAYLOAD_REPLICATED_DATA_LENGTH_FIELD_SIZE +      \
166      ASF_PAYLOAD_REPLICATED_DATA_LENGTH)
167
168 #define PAYLOAD_HEADER_SIZE_MULTIPLE_PAYLOADS             \
169     (1 +        /* Stream Number */                       \
170      ASF_PAYLOAD_MEDIA_OBJECT_NUMBER_FIELD_SIZE +         \
171      ASF_PAYLOAD_OFFSET_INTO_MEDIA_OBJECT_FIELD_SIZE +    \
172      ASF_PAYLOAD_REPLICATED_DATA_LENGTH_FIELD_SIZE +      \
173      ASF_PAYLOAD_REPLICATED_DATA_LENGTH +                 \
174      ASF_PAYLOAD_LENGTH_FIELD_SIZE)
175
176 #define SINGLE_PAYLOAD_DATA_LENGTH                        \
177     (PACKET_SIZE -                                        \
178      PACKET_HEADER_MIN_SIZE -                             \
179      PAYLOAD_HEADER_SIZE_SINGLE_PAYLOAD)
180
181 #define MULTI_PAYLOAD_CONSTANT                            \
182     (PACKET_SIZE -                                        \
183      PACKET_HEADER_MIN_SIZE -                             \
184      1 -         /* Payload Flags */                      \
185      2 * PAYLOAD_HEADER_SIZE_MULTIPLE_PAYLOADS)
186
187 #define DATA_HEADER_SIZE 50
188
189 typedef struct {
190     uint32_t seqno;
191     int is_streamed;
192     ASFStream streams[128];              ///< it's max number and it's not that big
193     /* non streamed additonnal info */
194     uint64_t nb_packets;                 ///< how many packets are there in the file, invalid if broadcasting
195     int64_t duration;                    ///< in 100ns units
196     /* packet filling */
197     unsigned char multi_payloads_present;
198     int packet_size_left;
199     int64_t packet_timestamp_start;
200     int64_t packet_timestamp_end;
201     unsigned int packet_nb_payloads;
202     uint8_t packet_buf[PACKET_SIZE];
203     AVIOContext pb;
204     /* only for reading */
205     uint64_t data_offset;                ///< beginning of the first data packet
206
207     ASFIndex *index_ptr;
208     uint32_t nb_index_memory_alloc;
209     uint16_t maximum_packet;
210     uint32_t next_packet_number;
211     uint16_t next_packet_count;
212     uint64_t next_packet_offset;
213     int      next_start_sec;
214     int      end_sec;
215 } ASFContext;
216
217 static const AVCodecTag codec_asf_bmp_tags[] = {
218     { AV_CODEC_ID_MPEG4,     MKTAG('M', '4', 'S', '2') },
219     { AV_CODEC_ID_MPEG4,     MKTAG('M', 'P', '4', 'S') },
220     { AV_CODEC_ID_MSMPEG4V3, MKTAG('M', 'P', '4', '3') },
221     { AV_CODEC_ID_NONE,      0 },
222 };
223
224 #define PREROLL_TIME 3100
225
226 static void put_str16(AVIOContext *s, const char *tag)
227 {
228     int len;
229     uint8_t *pb;
230     AVIOContext *dyn_buf;
231     if (avio_open_dyn_buf(&dyn_buf) < 0)
232         return;
233
234     avio_put_str16le(dyn_buf, tag);
235     len = avio_close_dyn_buf(dyn_buf, &pb);
236     avio_wl16(s, len);
237     avio_write(s, pb, len);
238     av_freep(&pb);
239 }
240
241 static int64_t put_header(AVIOContext *pb, const ff_asf_guid *g)
242 {
243     int64_t pos;
244
245     pos = avio_tell(pb);
246     ff_put_guid(pb, g);
247     avio_wl64(pb, 24);
248     return pos;
249 }
250
251 /* update header size */
252 static void end_header(AVIOContext *pb, int64_t pos)
253 {
254     int64_t pos1;
255
256     pos1 = avio_tell(pb);
257     avio_seek(pb, pos + 16, SEEK_SET);
258     avio_wl64(pb, pos1 - pos);
259     avio_seek(pb, pos1, SEEK_SET);
260 }
261
262 /* write an asf chunk (only used in streaming case) */
263 static void put_chunk(AVFormatContext *s, int type,
264                       int payload_length, int flags)
265 {
266     ASFContext *asf = s->priv_data;
267     AVIOContext *pb = s->pb;
268     int length;
269
270     length = payload_length + 8;
271     avio_wl16(pb, type);
272     avio_wl16(pb, length);      // size
273     avio_wl32(pb, asf->seqno);  // sequence number
274     avio_wl16(pb, flags);       // unknown bytes
275     avio_wl16(pb, length);      // size_confirm
276     asf->seqno++;
277 }
278
279 /* convert from unix to windows time */
280 static int64_t unix_to_file_time(int ti)
281 {
282     int64_t t;
283
284     t  = ti * INT64_C(10000000);
285     t += INT64_C(116444736000000000);
286     return t;
287 }
288
289 static int32_t get_send_time(ASFContext *asf, int64_t pres_time, uint64_t *offset)
290 {
291     int i;
292     int32_t send_time = 0;
293     *offset = asf->data_offset + DATA_HEADER_SIZE;
294     for (i = 0; i < asf->next_start_sec; i++) {
295         if (pres_time <= asf->index_ptr[i].send_time)
296             break;
297         send_time = asf->index_ptr[i].send_time;
298         *offset   = asf->index_ptr[i].offset;
299     }
300
301     return send_time / 10000;
302 }
303
304 static int asf_write_markers(AVFormatContext *s)
305 {
306     ASFContext *asf = s->priv_data;
307     AVIOContext *pb = s->pb;
308     int i;
309     AVRational scale = {1, 10000000};
310     int64_t hpos = put_header(pb, &ff_asf_marker_header);
311
312     ff_put_guid(pb, &ff_asf_reserved_4);// ASF spec mandates this reserved value
313     avio_wl32(pb, s->nb_chapters);     // markers count
314     avio_wl16(pb, 0);                  // ASF spec mandates 0 for this
315     avio_wl16(pb, 0);                  // name length 0, no name given
316
317     for (i = 0; i < s->nb_chapters; i++) {
318         AVChapter *c = s->chapters[i];
319         AVDictionaryEntry *t = av_dict_get(c->metadata, "title", NULL, 0);
320         int64_t pres_time = av_rescale_q(c->start, c->time_base, scale);
321         uint64_t offset;
322         int32_t send_time = get_send_time(asf, pres_time, &offset);
323         int len = 0;
324         uint8_t *buf;
325         AVIOContext *dyn_buf;
326         if (t) {
327             if (avio_open_dyn_buf(&dyn_buf) < 0)
328                 return AVERROR(ENOMEM);
329             avio_put_str16le(dyn_buf, t->value);
330             len = avio_close_dyn_buf(dyn_buf, &buf);
331         }
332         avio_wl64(pb, offset);            // offset of the packet with send_time
333         avio_wl64(pb, pres_time + PREROLL_TIME * 10000); // presentation time
334         avio_wl16(pb, 12 + len);          // entry length
335         avio_wl32(pb, send_time);         // send time
336         avio_wl32(pb, 0);                 // flags, should be 0
337         avio_wl32(pb, len / 2);           // marker desc length in WCHARS!
338         if (t) {
339             avio_write(pb, buf, len);     // marker desc
340             av_freep(&buf);
341         }
342     }
343     end_header(pb, hpos);
344     return 0;
345 }
346
347 /* write the header (used two times if non streamed) */
348 static int asf_write_header1(AVFormatContext *s, int64_t file_size,
349                              int64_t data_chunk_size)
350 {
351     ASFContext *asf = s->priv_data;
352     AVIOContext *pb = s->pb;
353     AVDictionaryEntry *tags[5];
354     int header_size, n, extra_size, extra_size2, wav_extra_size, file_time;
355     int has_title, has_aspect_ratio = 0;
356     int metadata_count;
357     AVCodecContext *enc;
358     int64_t header_offset, cur_pos, hpos;
359     int bit_rate;
360     int64_t duration;
361
362     ff_metadata_conv(&s->metadata, ff_asf_metadata_conv, NULL);
363
364     tags[0] = av_dict_get(s->metadata, "title", NULL, 0);
365     tags[1] = av_dict_get(s->metadata, "author", NULL, 0);
366     tags[2] = av_dict_get(s->metadata, "copyright", NULL, 0);
367     tags[3] = av_dict_get(s->metadata, "comment", NULL, 0);
368     tags[4] = av_dict_get(s->metadata, "rating", NULL, 0);
369
370     duration       = asf->duration + PREROLL_TIME * 10000;
371     has_title      = tags[0] || tags[1] || tags[2] || tags[3] || tags[4];
372     metadata_count = av_dict_count(s->metadata);
373
374     bit_rate = 0;
375     for (n = 0; n < s->nb_streams; n++) {
376         enc = s->streams[n]->codec;
377
378         avpriv_set_pts_info(s->streams[n], 32, 1, 1000); /* 32 bit pts in ms */
379
380         bit_rate += enc->bit_rate;
381         if (   enc->codec_type == AVMEDIA_TYPE_VIDEO
382             && enc->sample_aspect_ratio.num > 0
383             && enc->sample_aspect_ratio.den > 0)
384             has_aspect_ratio++;
385     }
386
387     if (asf->is_streamed) {
388         put_chunk(s, 0x4824, 0, 0xc00); /* start of stream (length will be patched later) */
389     }
390
391     ff_put_guid(pb, &ff_asf_header);
392     avio_wl64(pb, -1); /* header length, will be patched after */
393     avio_wl32(pb, 3 + has_title + !!metadata_count + s->nb_streams); /* number of chunks in header */
394     avio_w8(pb, 1); /* ??? */
395     avio_w8(pb, 2); /* ??? */
396
397     /* file header */
398     header_offset = avio_tell(pb);
399     hpos          = put_header(pb, &ff_asf_file_header);
400     ff_put_guid(pb, &ff_asf_my_guid);
401     avio_wl64(pb, file_size);
402     file_time = 0;
403     avio_wl64(pb, unix_to_file_time(file_time));
404     avio_wl64(pb, asf->nb_packets); /* number of packets */
405     avio_wl64(pb, duration); /* end time stamp (in 100ns units) */
406     avio_wl64(pb, asf->duration); /* duration (in 100ns units) */
407     avio_wl64(pb, PREROLL_TIME); /* start time stamp */
408     avio_wl32(pb, (asf->is_streamed || !pb->seekable) ? 3 : 2);  /* ??? */
409     avio_wl32(pb, s->packet_size); /* packet size */
410     avio_wl32(pb, s->packet_size); /* packet size */
411     avio_wl32(pb, bit_rate); /* Nominal data rate in bps */
412     end_header(pb, hpos);
413
414     /* unknown headers */
415     hpos = put_header(pb, &ff_asf_head1_guid);
416     ff_put_guid(pb, &ff_asf_head2_guid);
417     avio_wl16(pb, 6);
418     if (has_aspect_ratio) {
419         int64_t hpos2;
420         avio_wl32(pb, 26 + has_aspect_ratio * 84);
421         hpos2 = put_header(pb, &ff_asf_metadata_header);
422         avio_wl16(pb, 2 * has_aspect_ratio);
423         for (n = 0; n < s->nb_streams; n++) {
424             enc = s->streams[n]->codec;
425             if (   enc->codec_type == AVMEDIA_TYPE_VIDEO
426                 && enc->sample_aspect_ratio.num > 0
427                 && enc->sample_aspect_ratio.den > 0) {
428                 AVRational sar = enc->sample_aspect_ratio;
429                 avio_wl16(pb, 0);
430                 // the stream number is set like this below
431                 avio_wl16(pb, n + 1);
432                 avio_wl16(pb, 26); // name_len
433                 avio_wl16(pb,  3); // value_type
434                 avio_wl32(pb,  4); // value_len
435                 avio_put_str16le(pb, "AspectRatioX");
436                 avio_wl32(pb, sar.num);
437                 avio_wl16(pb, 0);
438                 // the stream number is set like this below
439                 avio_wl16(pb, n + 1);
440                 avio_wl16(pb, 26); // name_len
441                 avio_wl16(pb,  3); // value_type
442                 avio_wl32(pb,  4); // value_len
443                 avio_put_str16le(pb, "AspectRatioY");
444                 avio_wl32(pb, sar.den);
445             }
446         }
447         end_header(pb, hpos2);
448     } else {
449         avio_wl32(pb, 0);
450     }
451     end_header(pb, hpos);
452
453     /* title and other infos */
454     if (has_title) {
455         int len;
456         uint8_t *buf;
457         AVIOContext *dyn_buf;
458
459         if (avio_open_dyn_buf(&dyn_buf) < 0)
460             return AVERROR(ENOMEM);
461
462         hpos = put_header(pb, &ff_asf_comment_header);
463
464         for (n = 0; n < FF_ARRAY_ELEMS(tags); n++) {
465             len = tags[n] ? avio_put_str16le(dyn_buf, tags[n]->value) : 0;
466             avio_wl16(pb, len);
467         }
468         len = avio_close_dyn_buf(dyn_buf, &buf);
469         avio_write(pb, buf, len);
470         av_freep(&buf);
471         end_header(pb, hpos);
472     }
473     if (metadata_count) {
474         AVDictionaryEntry *tag = NULL;
475         hpos = put_header(pb, &ff_asf_extended_content_header);
476         avio_wl16(pb, metadata_count);
477         while ((tag = av_dict_get(s->metadata, "", tag, AV_DICT_IGNORE_SUFFIX))) {
478             put_str16(pb, tag->key);
479             avio_wl16(pb, 0);
480             put_str16(pb, tag->value);
481         }
482         end_header(pb, hpos);
483     }
484     /* chapters using ASF markers */
485     if (!asf->is_streamed && s->nb_chapters) {
486         int ret;
487         if (ret = asf_write_markers(s))
488             return ret;
489     }
490     /* stream headers */
491     for (n = 0; n < s->nb_streams; n++) {
492         int64_t es_pos;
493         //        ASFStream *stream = &asf->streams[n];
494
495         enc                 = s->streams[n]->codec;
496         asf->streams[n].num = n + 1;
497         asf->streams[n].seq = 1;
498
499         switch (enc->codec_type) {
500         case AVMEDIA_TYPE_AUDIO:
501             wav_extra_size = 0;
502             extra_size     = 18 + wav_extra_size;
503             extra_size2    = 8;
504             break;
505         default:
506         case AVMEDIA_TYPE_VIDEO:
507             wav_extra_size = enc->extradata_size;
508             extra_size     = 0x33 + wav_extra_size;
509             extra_size2    = 0;
510             break;
511         }
512
513         hpos = put_header(pb, &ff_asf_stream_header);
514         if (enc->codec_type == AVMEDIA_TYPE_AUDIO) {
515             ff_put_guid(pb, &ff_asf_audio_stream);
516             ff_put_guid(pb, &ff_asf_audio_conceal_spread);
517         } else {
518             ff_put_guid(pb, &ff_asf_video_stream);
519             ff_put_guid(pb, &ff_asf_video_conceal_none);
520         }
521         avio_wl64(pb, 0); /* ??? */
522         es_pos = avio_tell(pb);
523         avio_wl32(pb, extra_size); /* wav header len */
524         avio_wl32(pb, extra_size2); /* additional data len */
525         avio_wl16(pb, n + 1); /* stream number */
526         avio_wl32(pb, 0); /* ??? */
527
528         if (enc->codec_type == AVMEDIA_TYPE_AUDIO) {
529             /* WAVEFORMATEX header */
530             int wavsize = ff_put_wav_header(pb, enc);
531
532             if (wavsize < 0)
533                 return -1;
534             if (wavsize != extra_size) {
535                 cur_pos = avio_tell(pb);
536                 avio_seek(pb, es_pos, SEEK_SET);
537                 avio_wl32(pb, wavsize); /* wav header len */
538                 avio_seek(pb, cur_pos, SEEK_SET);
539             }
540             /* ERROR Correction */
541             avio_w8(pb, 0x01);
542             if (enc->codec_id == AV_CODEC_ID_ADPCM_G726 || !enc->block_align) {
543                 avio_wl16(pb, 0x0190);
544                 avio_wl16(pb, 0x0190);
545             } else {
546                 avio_wl16(pb, enc->block_align);
547                 avio_wl16(pb, enc->block_align);
548             }
549             avio_wl16(pb, 0x01);
550             avio_w8(pb, 0x00);
551         } else {
552             avio_wl32(pb, enc->width);
553             avio_wl32(pb, enc->height);
554             avio_w8(pb, 2); /* ??? */
555             avio_wl16(pb, 40 + enc->extradata_size); /* size */
556
557             /* BITMAPINFOHEADER header */
558             ff_put_bmp_header(pb, enc, ff_codec_bmp_tags, 1, 0);
559         }
560         end_header(pb, hpos);
561     }
562
563     /* media comments */
564
565     hpos = put_header(pb, &ff_asf_codec_comment_header);
566     ff_put_guid(pb, &ff_asf_codec_comment1_header);
567     avio_wl32(pb, s->nb_streams);
568     for (n = 0; n < s->nb_streams; n++) {
569         AVCodec *p;
570         const char *desc;
571         int len;
572         uint8_t *buf;
573         AVIOContext *dyn_buf;
574
575         enc = s->streams[n]->codec;
576         p   = avcodec_find_encoder(enc->codec_id);
577
578         if (enc->codec_type == AVMEDIA_TYPE_AUDIO)
579             avio_wl16(pb, 2);
580         else if (enc->codec_type == AVMEDIA_TYPE_VIDEO)
581             avio_wl16(pb, 1);
582         else
583             avio_wl16(pb, -1);
584
585         if (enc->codec_id == AV_CODEC_ID_WMAV2)
586             desc = "Windows Media Audio V8";
587         else
588             desc = p ? p->name : enc->codec_name;
589
590         if (avio_open_dyn_buf(&dyn_buf) < 0)
591             return AVERROR(ENOMEM);
592
593         avio_put_str16le(dyn_buf, desc);
594         len = avio_close_dyn_buf(dyn_buf, &buf);
595         avio_wl16(pb, len / 2); // "number of characters" = length in bytes / 2
596
597         avio_write(pb, buf, len);
598         av_freep(&buf);
599
600         avio_wl16(pb, 0); /* no parameters */
601
602         /* id */
603         if (enc->codec_type == AVMEDIA_TYPE_AUDIO) {
604             avio_wl16(pb, 2);
605             avio_wl16(pb, enc->codec_tag);
606         } else {
607             avio_wl16(pb, 4);
608             avio_wl32(pb, enc->codec_tag);
609         }
610         if (!enc->codec_tag)
611             return -1;
612     }
613     end_header(pb, hpos);
614
615     /* patch the header size fields */
616
617     cur_pos     = avio_tell(pb);
618     header_size = cur_pos - header_offset;
619     if (asf->is_streamed) {
620         header_size += 8 + 30 + DATA_HEADER_SIZE;
621
622         avio_seek(pb, header_offset - 10 - 30, SEEK_SET);
623         avio_wl16(pb, header_size);
624         avio_seek(pb, header_offset - 2 - 30, SEEK_SET);
625         avio_wl16(pb, header_size);
626
627         header_size -= 8 + 30 + DATA_HEADER_SIZE;
628     }
629     header_size += 24 + 6;
630     avio_seek(pb, header_offset - 14, SEEK_SET);
631     avio_wl64(pb, header_size);
632     avio_seek(pb, cur_pos, SEEK_SET);
633
634     /* movie chunk, followed by packets of packet_size */
635     asf->data_offset = cur_pos;
636     ff_put_guid(pb, &ff_asf_data_header);
637     avio_wl64(pb, data_chunk_size);
638     ff_put_guid(pb, &ff_asf_my_guid);
639     avio_wl64(pb, asf->nb_packets); /* nb packets */
640     avio_w8(pb, 1); /* ??? */
641     avio_w8(pb, 1); /* ??? */
642     return 0;
643 }
644
645 static int asf_write_header(AVFormatContext *s)
646 {
647     ASFContext *asf = s->priv_data;
648
649     s->packet_size  = PACKET_SIZE;
650     asf->nb_packets = 0;
651
652     asf->index_ptr             = av_malloc(sizeof(ASFIndex) * ASF_INDEX_BLOCK);
653     asf->nb_index_memory_alloc = ASF_INDEX_BLOCK;
654     asf->maximum_packet        = 0;
655
656     /* the data-chunk-size has to be 50 (DATA_HEADER_SIZE), which is
657      * data_size - asf->data_offset at the moment this function is done.
658      * It is needed to use asf as a streamable format. */
659     if (asf_write_header1(s, 0, DATA_HEADER_SIZE) < 0) {
660         //av_free(asf);
661         return -1;
662     }
663
664     avio_flush(s->pb);
665
666     asf->packet_nb_payloads     = 0;
667     asf->packet_timestamp_start = -1;
668     asf->packet_timestamp_end   = -1;
669     ffio_init_context(&asf->pb, asf->packet_buf, s->packet_size, 1,
670                       NULL, NULL, NULL, NULL);
671
672     if (s->avoid_negative_ts < 0)
673         s->avoid_negative_ts = 1;
674
675     return 0;
676 }
677
678 static int asf_write_stream_header(AVFormatContext *s)
679 {
680     ASFContext *asf = s->priv_data;
681
682     asf->is_streamed = 1;
683
684     return asf_write_header(s);
685 }
686
687 static int put_payload_parsing_info(AVFormatContext *s,
688                                     unsigned sendtime, unsigned duration,
689                                     int nb_payloads, int padsize)
690 {
691     ASFContext *asf = s->priv_data;
692     AVIOContext *pb = s->pb;
693     int ppi_size, i;
694     int64_t start = avio_tell(pb);
695
696     int iLengthTypeFlags = ASF_PPI_LENGTH_TYPE_FLAGS;
697
698     padsize -= PACKET_HEADER_MIN_SIZE;
699     if (asf->multi_payloads_present)
700         padsize--;
701     av_assert0(padsize >= 0);
702
703     avio_w8(pb, ASF_PACKET_ERROR_CORRECTION_FLAGS);
704     for (i = 0; i < ASF_PACKET_ERROR_CORRECTION_DATA_SIZE; i++)
705         avio_w8(pb, 0x0);
706
707     if (asf->multi_payloads_present)
708         iLengthTypeFlags |= ASF_PPI_FLAG_MULTIPLE_PAYLOADS_PRESENT;
709
710     if (padsize > 0) {
711         if (padsize < 256)
712             iLengthTypeFlags |= ASF_PPI_FLAG_PADDING_LENGTH_FIELD_IS_BYTE;
713         else
714             iLengthTypeFlags |= ASF_PPI_FLAG_PADDING_LENGTH_FIELD_IS_WORD;
715     }
716     avio_w8(pb, iLengthTypeFlags);
717
718     avio_w8(pb, ASF_PPI_PROPERTY_FLAGS);
719
720     if (iLengthTypeFlags & ASF_PPI_FLAG_PADDING_LENGTH_FIELD_IS_WORD)
721         avio_wl16(pb, padsize - 2);
722     if (iLengthTypeFlags & ASF_PPI_FLAG_PADDING_LENGTH_FIELD_IS_BYTE)
723         avio_w8(pb, padsize - 1);
724
725     avio_wl32(pb, sendtime);
726     avio_wl16(pb, duration);
727     if (asf->multi_payloads_present)
728         avio_w8(pb, nb_payloads | ASF_PAYLOAD_FLAGS);
729
730     ppi_size = avio_tell(pb) - start;
731
732     return ppi_size;
733 }
734
735 static void flush_packet(AVFormatContext *s)
736 {
737     ASFContext *asf = s->priv_data;
738     int packet_hdr_size, packet_filled_size;
739
740     av_assert0(asf->packet_timestamp_end >= asf->packet_timestamp_start);
741
742     if (asf->is_streamed)
743         put_chunk(s, 0x4424, s->packet_size, 0);
744
745     packet_hdr_size = put_payload_parsing_info(s,
746                                                asf->packet_timestamp_start,
747                                                asf->packet_timestamp_end - asf->packet_timestamp_start,
748                                                asf->packet_nb_payloads,
749                                                asf->packet_size_left);
750
751     packet_filled_size = PACKET_SIZE - asf->packet_size_left;
752     av_assert0(packet_hdr_size <= asf->packet_size_left);
753     memset(asf->packet_buf + packet_filled_size, 0, asf->packet_size_left);
754
755     avio_write(s->pb, asf->packet_buf, s->packet_size - packet_hdr_size);
756
757     avio_flush(s->pb);
758     asf->nb_packets++;
759     asf->packet_nb_payloads     = 0;
760     asf->packet_timestamp_start = -1;
761     asf->packet_timestamp_end   = -1;
762     ffio_init_context(&asf->pb, asf->packet_buf, s->packet_size, 1,
763                       NULL, NULL, NULL, NULL);
764 }
765
766 static void put_payload_header(AVFormatContext *s, ASFStream *stream,
767                                int64_t presentation_time, int m_obj_size,
768                                int m_obj_offset, int payload_len, int flags)
769 {
770     ASFContext *asf = s->priv_data;
771     AVIOContext *pb = &asf->pb;
772     int val;
773
774     val = stream->num;
775     if (flags & AV_PKT_FLAG_KEY)
776         val |= ASF_PL_FLAG_KEY_FRAME;
777     avio_w8(pb, val);
778
779     avio_w8(pb, stream->seq);     // Media object number
780     avio_wl32(pb, m_obj_offset);  // Offset Into Media Object
781
782     // Replicated Data shall be at least 8 bytes long.
783     // The first 4 bytes of data shall contain the
784     // Size of the Media Object that the payload belongs to.
785     // The next 4 bytes of data shall contain the
786     // Presentation Time for the media object that the payload belongs to.
787     avio_w8(pb, ASF_PAYLOAD_REPLICATED_DATA_LENGTH);
788
789     avio_wl32(pb, m_obj_size);        // Replicated Data - Media Object Size
790     avio_wl32(pb, (uint32_t) presentation_time); // Replicated Data - Presentation Time
791
792     if (asf->multi_payloads_present) {
793         avio_wl16(pb, payload_len);   // payload length
794     }
795 }
796
797 static void put_frame(AVFormatContext *s, ASFStream *stream, AVStream *avst,
798                       int64_t timestamp, const uint8_t *buf,
799                       int m_obj_size, int flags)
800 {
801     ASFContext *asf = s->priv_data;
802     int m_obj_offset, payload_len, frag_len1;
803
804     m_obj_offset = 0;
805     while (m_obj_offset < m_obj_size) {
806         payload_len = m_obj_size - m_obj_offset;
807         if (asf->packet_timestamp_start == -1) {
808             asf->multi_payloads_present = (payload_len < MULTI_PAYLOAD_CONSTANT);
809
810             asf->packet_size_left = PACKET_SIZE;
811             if (asf->multi_payloads_present) {
812                 frag_len1 = MULTI_PAYLOAD_CONSTANT - 1;
813             } else {
814                 frag_len1 = SINGLE_PAYLOAD_DATA_LENGTH;
815             }
816             asf->packet_timestamp_start = timestamp;
817         } else {
818             // multi payloads
819             frag_len1 = asf->packet_size_left -
820                         PAYLOAD_HEADER_SIZE_MULTIPLE_PAYLOADS -
821                         PACKET_HEADER_MIN_SIZE - 1;
822
823             if (frag_len1 < payload_len &&
824                 avst->codec->codec_type == AVMEDIA_TYPE_AUDIO) {
825                 flush_packet(s);
826                 continue;
827             }
828         }
829         if (frag_len1 > 0) {
830             if (payload_len > frag_len1)
831                 payload_len = frag_len1;
832             else if (payload_len == (frag_len1 - 1))
833                 payload_len = frag_len1 - 2;  // additional byte need to put padding length
834
835             put_payload_header(s, stream, timestamp + PREROLL_TIME,
836                                m_obj_size, m_obj_offset, payload_len, flags);
837             avio_write(&asf->pb, buf, payload_len);
838
839             if (asf->multi_payloads_present)
840                 asf->packet_size_left -= (payload_len + PAYLOAD_HEADER_SIZE_MULTIPLE_PAYLOADS);
841             else
842                 asf->packet_size_left -= (payload_len + PAYLOAD_HEADER_SIZE_SINGLE_PAYLOAD);
843             asf->packet_timestamp_end = timestamp;
844
845             asf->packet_nb_payloads++;
846         } else {
847             payload_len = 0;
848         }
849         m_obj_offset += payload_len;
850         buf          += payload_len;
851
852         if (!asf->multi_payloads_present)
853             flush_packet(s);
854         else if (asf->packet_size_left <= (PAYLOAD_HEADER_SIZE_MULTIPLE_PAYLOADS + PACKET_HEADER_MIN_SIZE + 1))
855             flush_packet(s);
856     }
857     stream->seq++;
858 }
859
860 static int update_index(AVFormatContext *s, int start_sec,
861                          uint32_t packet_number, uint16_t packet_count,
862                          uint64_t packet_offset)
863 {
864     ASFContext *asf = s->priv_data;
865
866     if (start_sec > asf->next_start_sec) {
867         int i;
868
869         if (!asf->next_start_sec) {
870             asf->next_packet_number = packet_number;
871             asf->next_packet_count  = packet_count;
872             asf->next_packet_offset = packet_offset;
873         }
874
875         if (start_sec > asf->nb_index_memory_alloc) {
876             int err;
877             asf->nb_index_memory_alloc = (start_sec + ASF_INDEX_BLOCK) & ~(ASF_INDEX_BLOCK - 1);
878             if ((err = av_reallocp_array(&asf->index_ptr,
879                                          asf->nb_index_memory_alloc,
880                                          sizeof(*asf->index_ptr))) < 0) {
881                 asf->nb_index_memory_alloc = 0;
882                 return err;
883             }
884         }
885         for (i = asf->next_start_sec; i < start_sec; i++) {
886             asf->index_ptr[i].packet_number = asf->next_packet_number;
887             asf->index_ptr[i].packet_count  = asf->next_packet_count;
888             asf->index_ptr[i].send_time     = asf->next_start_sec * INT64_C(10000000);
889             asf->index_ptr[i].offset        = asf->next_packet_offset;
890
891         }
892     }
893     asf->maximum_packet     = FFMAX(asf->maximum_packet, packet_count);
894     asf->next_packet_number = packet_number;
895     asf->next_packet_count  = packet_count;
896     asf->next_packet_offset = packet_offset;
897     asf->next_start_sec     = start_sec;
898
899     return 0;
900 }
901
902 static int asf_write_packet(AVFormatContext *s, AVPacket *pkt)
903 {
904     ASFContext *asf = s->priv_data;
905     AVIOContext *pb = s->pb;
906     ASFStream *stream;
907     AVCodecContext *codec;
908     uint32_t packet_number;
909     int64_t pts;
910     int start_sec;
911     int flags = pkt->flags;
912     int ret;
913     uint64_t offset = avio_tell(pb);
914
915     codec  = s->streams[pkt->stream_index]->codec;
916     stream = &asf->streams[pkt->stream_index];
917
918     if (codec->codec_type == AVMEDIA_TYPE_AUDIO)
919         flags &= ~AV_PKT_FLAG_KEY;
920
921     pts = (pkt->pts != AV_NOPTS_VALUE) ? pkt->pts : pkt->dts;
922     av_assert0(pts != AV_NOPTS_VALUE);
923     pts *= 10000;
924     asf->duration = FFMAX(asf->duration, pts + pkt->duration * 10000);
925
926     packet_number = asf->nb_packets;
927     put_frame(s, stream, s->streams[pkt->stream_index],
928               pkt->dts, pkt->data, pkt->size, flags);
929
930     start_sec = (int)((PREROLL_TIME * 10000 + pts + ASF_INDEXED_INTERVAL - 1)
931               / ASF_INDEXED_INTERVAL);
932
933     /* check index */
934     if ((!asf->is_streamed) && (flags & AV_PKT_FLAG_KEY)) {
935         uint16_t packet_count = asf->nb_packets - packet_number;
936         ret = update_index(s, start_sec, packet_number, packet_count, offset);
937         if (ret < 0)
938             return ret;
939     }
940     asf->end_sec = start_sec;
941
942     return 0;
943 }
944
945 static int asf_write_index(AVFormatContext *s, ASFIndex *index,
946                            uint16_t max, uint32_t count)
947 {
948     AVIOContext *pb = s->pb;
949     int i;
950
951     ff_put_guid(pb, &ff_asf_simple_index_header);
952     avio_wl64(pb, 24 + 16 + 8 + 4 + 4 + (4 + 2) * count);
953     ff_put_guid(pb, &ff_asf_my_guid);
954     avio_wl64(pb, ASF_INDEXED_INTERVAL);
955     avio_wl32(pb, max);
956     avio_wl32(pb, count);
957     for (i = 0; i < count; i++) {
958         avio_wl32(pb, index[i].packet_number);
959         avio_wl16(pb, index[i].packet_count);
960     }
961
962     return 0;
963 }
964
965 static int asf_write_trailer(AVFormatContext *s)
966 {
967     ASFContext *asf = s->priv_data;
968     int64_t file_size, data_size;
969     int ret;
970
971     /* flush the current packet */
972     if (asf->pb.buf_ptr > asf->pb.buffer)
973         flush_packet(s);
974
975     /* write index */
976     data_size = avio_tell(s->pb);
977     if (!asf->is_streamed && asf->next_start_sec) {
978         if ((ret = update_index(s, asf->end_sec + 1, 0, 0, 0)) < 0)
979             return ret;
980         asf_write_index(s, asf->index_ptr, asf->maximum_packet, asf->next_start_sec);
981     }
982     avio_flush(s->pb);
983
984     if (asf->is_streamed || !s->pb->seekable) {
985         put_chunk(s, 0x4524, 0, 0); /* end of stream */
986     } else {
987         /* rewrite an updated header */
988         file_size = avio_tell(s->pb);
989         avio_seek(s->pb, 0, SEEK_SET);
990         asf_write_header1(s, file_size, data_size - asf->data_offset);
991     }
992
993     av_freep(&asf->index_ptr);
994     return 0;
995 }
996
997 #if CONFIG_ASF_MUXER
998 AVOutputFormat ff_asf_muxer = {
999     .name           = "asf",
1000     .long_name      = NULL_IF_CONFIG_SMALL("ASF (Advanced / Active Streaming Format)"),
1001     .mime_type      = "video/x-ms-asf",
1002     .extensions     = "asf,wmv,wma",
1003     .priv_data_size = sizeof(ASFContext),
1004     .audio_codec    = AV_CODEC_ID_WMAV2,
1005     .video_codec    = AV_CODEC_ID_MSMPEG4V3,
1006     .write_header   = asf_write_header,
1007     .write_packet   = asf_write_packet,
1008     .write_trailer  = asf_write_trailer,
1009     .flags          = AVFMT_GLOBALHEADER,
1010     .codec_tag      = (const AVCodecTag * const []) {
1011         codec_asf_bmp_tags, ff_codec_bmp_tags, ff_codec_wav_tags, 0
1012     },
1013 };
1014 #endif /* CONFIG_ASF_MUXER */
1015
1016 #if CONFIG_ASF_STREAM_MUXER
1017 AVOutputFormat ff_asf_stream_muxer = {
1018     .name           = "asf_stream",
1019     .long_name      = NULL_IF_CONFIG_SMALL("ASF (Advanced / Active Streaming Format)"),
1020     .mime_type      = "video/x-ms-asf",
1021     .extensions     = "asf,wmv,wma",
1022     .priv_data_size = sizeof(ASFContext),
1023     .audio_codec    = AV_CODEC_ID_WMAV2,
1024     .video_codec    = AV_CODEC_ID_MSMPEG4V3,
1025     .write_header   = asf_write_stream_header,
1026     .write_packet   = asf_write_packet,
1027     .write_trailer  = asf_write_trailer,
1028     .flags          = AVFMT_GLOBALHEADER,
1029     .codec_tag      = (const AVCodecTag * const []) {
1030         codec_asf_bmp_tags, ff_codec_bmp_tags, ff_codec_wav_tags, 0
1031     },
1032 };
1033 #endif /* CONFIG_ASF_STREAM_MUXER */