asf: Use time_t where needed
[ffmpeg.git] / libavformat / asfdec.c
1 /*
2  * Microsoft Advanced Streaming Format demuxer
3  * Copyright (c) 2014 Alexandra Hájková
4  *
5  * This file is part of Libav.
6  *
7  * Libav 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  * Libav 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 Libav; 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/attributes.h"
23 #include "libavutil/avassert.h"
24 #include "libavutil/avstring.h"
25 #include "libavutil/bswap.h"
26 #include "libavutil/common.h"
27 #include "libavutil/dict.h"
28 #include "libavutil/internal.h"
29 #include "libavutil/mathematics.h"
30 #include "libavutil/opt.h"
31 #include "libavutil/time_internal.h"
32
33 #include "avformat.h"
34 #include "avio_internal.h"
35 #include "avlanguage.h"
36 #include "id3v2.h"
37 #include "internal.h"
38 #include "riff.h"
39 #include "asf.h"
40 #include "asfcrypt.h"
41
42 #define ASF_BOOL                              0x2
43 #define ASF_WORD                              0x5
44 #define ASF_GUID                              0x6
45 #define ASF_DWORD                             0x3
46 #define ASF_QWORD                             0x4
47 #define ASF_UNICODE                           0x0
48 #define ASF_FLAG_BROADCAST                    0x1
49 #define ASF_BYTE_ARRAY                        0x1
50 #define ASF_TYPE_AUDIO                        0x2
51 #define ASF_TYPE_VIDEO                        0x1
52 #define ASF_STREAM_NUM                        0x7F
53 #define ASF_MAX_STREAMS                       128
54 #define BMP_HEADER_SIZE                       40
55 #define ASF_NUM_OF_PAYLOADS                   0x3F
56 #define ASF_ERROR_CORRECTION_LENGTH_TYPE      0x60
57 #define ASF_PACKET_ERROR_CORRECTION_DATA_SIZE 0x2
58
59 typedef struct GUIDParseTable {
60     const char *name;
61     ff_asf_guid guid;
62     int (*read_object)(AVFormatContext *, const struct GUIDParseTable *);
63     int is_subobject;
64 } GUIDParseTable;
65
66 typedef struct ASFPacket {
67     AVPacket avpkt;
68     int64_t dts;
69     uint32_t frame_num; // ASF payloads with the same number are parts of the same frame
70     int flags;
71     int data_size;
72     int duration;
73     int size_left;
74     uint8_t stream_index;
75 } ASFPacket;
76
77 typedef struct ASFStream {
78     uint8_t stream_index; // from packet header
79     int index;  // stream index in AVFormatContext, set in asf_read_stream_properties
80     int type;
81     int indexed; // added index entries from the Simple Index Object or not
82     int8_t span;   // for deinterleaving
83     uint16_t virtual_pkt_len;
84     uint16_t virtual_chunk_len;
85     int16_t lang_idx;
86     ASFPacket pkt;
87 } ASFStream;
88
89 typedef struct ASFStreamData{
90     char langs[32];
91     AVDictionary *asf_met; // for storing per-stream metadata
92     AVRational aspect_ratio;
93 } ASFStreamData;
94
95 typedef struct ASFContext {
96     int data_reached;
97     int is_simple_index; // is simple index present or not 1/0
98     int is_header;
99
100     uint64_t preroll;
101     uint64_t nb_packets; // ASF packets
102     uint32_t packet_size;
103     int64_t send_time;
104     int duration;
105
106     uint32_t b_flags;    // flags with broadcast flag
107     uint32_t prop_flags; // file properties object flags
108
109     uint64_t data_size; // data object size
110     uint64_t unknown_size; // size of the unknown object
111
112     int64_t offset; // offset of the current object
113
114     int64_t data_offset;
115     int64_t first_packet_offset; // packet offset
116     int64_t unknown_offset;   // for top level header objects or subobjects without specified behavior
117
118     // ASF file must not contain more than 128 streams according to the specification
119     ASFStream *asf_st[ASF_MAX_STREAMS];
120     ASFStreamData asf_sd[ASF_MAX_STREAMS];
121     int nb_streams;
122
123     int stream_index; // from packet header, for the subpayload case
124
125     // packet parameteres
126     uint64_t sub_header_offset; // offset of subplayload header
127     int64_t sub_dts;
128     uint8_t dts_delta; // for subpayloads
129     uint32_t packet_size_internal; // packet size stored inside ASFPacket, can be 0
130     int64_t packet_offset; // offset of the current packet inside Data Object
131     uint32_t pad_len; // padding after payload
132     uint32_t rep_data_len;
133
134     // packet state
135     uint64_t sub_left;  // subpayloads left or not
136     unsigned int nb_sub; // number of subpayloads read so far from the current ASF packet
137     uint16_t mult_sub_len; // total length of subpayloads array inside multiple payload
138     uint64_t nb_mult_left; // multiple payloads left
139     int return_subpayload;
140     enum {
141         PARSE_PACKET_HEADER,
142         READ_SINGLE,
143         READ_MULTI,
144         READ_MULTI_SUB
145     } state;
146 } ASFContext;
147
148 static int detect_unknown_subobject(AVFormatContext *s, int64_t offset, int64_t size);
149 static const GUIDParseTable *find_guid(ff_asf_guid guid);
150
151 static int asf_probe(AVProbeData *pd)
152 {
153     /* check file header */
154     if (!ff_guidcmp(pd->buf, &ff_asf_header))
155         return AVPROBE_SCORE_MAX;
156     else
157         return 0;
158 }
159
160 static void swap_guid(ff_asf_guid guid)
161 {
162     FFSWAP(unsigned char, guid[0], guid[3]);
163     FFSWAP(unsigned char, guid[1], guid[2]);
164     FFSWAP(unsigned char, guid[4], guid[5]);
165     FFSWAP(unsigned char, guid[6], guid[7]);
166 }
167
168 static void align_position(AVIOContext *pb,  int64_t offset, uint64_t size)
169 {
170     if (avio_tell(pb) != offset + size)
171         avio_seek(pb, offset + size, SEEK_SET);
172 }
173
174 static int asf_read_unknown(AVFormatContext *s, const GUIDParseTable *g)
175 {
176     ASFContext *asf = s->priv_data;
177     AVIOContext *pb = s->pb;
178     uint64_t size   = avio_rl64(pb);
179     int ret;
180
181     if (asf->is_header)
182         asf->unknown_size = size;
183     asf->is_header = 0;
184     if (!g->is_subobject) {
185         if (!(ret = strcmp(g->name, "Header Extension")))
186             avio_skip(pb, 22); // skip reserved fields and Data Size
187         if ((ret = detect_unknown_subobject(s, asf->unknown_offset,
188                                             asf->unknown_size)) < 0)
189             return ret;
190     } else
191         avio_skip(pb, size - 24);
192
193     return 0;
194 }
195
196 static int get_asf_string(AVIOContext *pb, int maxlen, char *buf, int buflen)
197 {
198     char *q = buf;
199     int ret = 0;
200     if (buflen <= 0)
201         return AVERROR(EINVAL);
202     while (ret + 1 < maxlen) {
203         uint8_t tmp;
204         uint32_t ch;
205         GET_UTF16(ch, (ret += 2) <= maxlen ? avio_rl16(pb) : 0, break;);
206         PUT_UTF8(ch, tmp, if (q - buf < buflen - 1) *q++ = tmp;)
207     }
208     *q = 0;
209
210     return ret;
211 }
212
213 static int asf_read_marker(AVFormatContext *s, const GUIDParseTable *g)
214 {
215     ASFContext *asf = s->priv_data;
216     AVIOContext *pb = s->pb;
217     uint64_t size   = avio_rl64(pb);
218     int i, nb_markers, ret;
219     size_t len;
220     char name[1024];
221
222     avio_skip(pb, 8);
223     avio_skip(pb, 8); // skip reserved GUID
224     nb_markers = avio_rl32(pb);
225     avio_skip(pb, 2); // skip reserved field
226     len = avio_rl16(pb);
227     for (i = 0; i < len; i++)
228         avio_skip(pb, 1);
229
230     for (i = 0; i < nb_markers; i++) {
231         int64_t pts;
232
233         avio_skip(pb, 8);
234         pts = avio_rl64(pb);
235         pts -= asf->preroll * 10000;
236         avio_skip(pb, 2); // entry length
237         avio_skip(pb, 4); // send time
238         avio_skip(pb, 4); // flags
239         len = avio_rl32(pb);
240
241         if ((ret = avio_get_str16le(pb, len, name,
242                                     sizeof(name))) < len)
243             avio_skip(pb, len - ret);
244         avpriv_new_chapter(s, i, (AVRational) { 1, 10000000 }, pts,
245                            AV_NOPTS_VALUE, name);
246     }
247     align_position(pb, asf->offset, size);
248
249     return 0;
250 }
251
252 static int asf_read_metadata(AVFormatContext *s, const char *title, uint16_t len,
253                              unsigned char *ch, uint16_t buflen)
254 {
255     AVIOContext *pb = s->pb;
256
257     avio_get_str16le(pb, len, ch, buflen);
258     if (ch[0]) {
259         if (av_dict_set(&s->metadata, title, ch, 0) < 0)
260             av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
261     }
262
263     return 0;
264 }
265
266 static int asf_read_value(AVFormatContext *s, const uint8_t *name, uint16_t name_len,
267                           uint16_t val_len, int type, AVDictionary **met)
268 {
269     int ret;
270     uint8_t *value;
271     uint16_t buflen = 2 * val_len + 1;
272     AVIOContext *pb = s->pb;
273
274     value = av_malloc(buflen);
275     if (!value)
276         return AVERROR(ENOMEM);
277     if (type == ASF_UNICODE) {
278         // get_asf_string reads UTF-16 and converts it to UTF-8 which needs longer buffer
279         if ((ret = get_asf_string(pb, val_len, value, buflen)) < 0)
280             goto failed;
281         if (av_dict_set(met, name, value, 0) < 0)
282             av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
283     } else {
284         char buf[256];
285         if (val_len > sizeof(buf)) {
286             ret = AVERROR_INVALIDDATA;
287             goto failed;
288         }
289         if ((ret = avio_read(pb, value, val_len)) < 0)
290             goto failed;
291         if (ret < 2 * val_len)
292             value[ret] = '\0';
293         else
294             value[2 * val_len - 1] = '\0';
295         snprintf(buf, sizeof(buf), "%s", value);
296         if (av_dict_set(met, name, buf, 0) < 0)
297             av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
298     }
299     av_freep(&value);
300
301     return 0;
302
303 failed:
304     av_freep(&value);
305     return ret;
306 }
307 static int asf_read_generic_value(AVIOContext *pb, int type, uint64_t *value)
308 {
309
310     switch (type) {
311     case ASF_BOOL:
312         *value = avio_rl16(pb);
313         break;
314     case ASF_DWORD:
315         *value = avio_rl32(pb);
316         break;
317     case ASF_QWORD:
318         *value = avio_rl64(pb);
319         break;
320     case ASF_WORD:
321         *value = avio_rl16(pb);
322         break;
323     default:
324         return AVERROR_INVALIDDATA;
325     }
326
327     return 0;
328 }
329
330 static int asf_set_metadata(AVFormatContext *s, const uint8_t *name,
331                             uint16_t name_len, int type, AVDictionary **met)
332 {
333     AVIOContext *pb = s->pb;
334     uint64_t value;
335     char buf[32];
336     int ret;
337
338     ret = asf_read_generic_value(pb, type, &value);
339     if (ret < 0)
340         return ret;
341
342     snprintf(buf, sizeof(buf), "%"PRIu64, value);
343     if (av_dict_set(met, name, buf, 0) < 0)
344         av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
345
346     return 0;
347 }
348
349 /* MSDN claims that this should be "compatible with the ID3 frame, APIC",
350  * but in reality this is only loosely similar */
351 static int asf_read_picture(AVFormatContext *s, int len)
352 {
353     ASFContext *asf       = s->priv_data;
354     AVPacket pkt          = { 0 };
355     const CodecMime *mime = ff_id3v2_mime_tags;
356     enum  AVCodecID id    = AV_CODEC_ID_NONE;
357     char mimetype[64];
358     uint8_t  *desc = NULL;
359     AVStream   *st = NULL;
360     int ret, type, picsize, desc_len;
361     ASFStream *asf_st;
362
363     /* type + picsize + mime + desc */
364     if (len < 1 + 4 + 2 + 2) {
365         av_log(s, AV_LOG_ERROR, "Invalid attached picture size: %d.\n", len);
366         return AVERROR_INVALIDDATA;
367     }
368
369     /* picture type */
370     type = avio_r8(s->pb);
371     len--;
372     if (type >= FF_ARRAY_ELEMS(ff_id3v2_picture_types) || type < 0) {
373         av_log(s, AV_LOG_WARNING, "Unknown attached picture type: %d.\n", type);
374         type = 0;
375     }
376
377     /* picture data size */
378     picsize = avio_rl32(s->pb);
379     len    -= 4;
380
381     /* picture MIME type */
382     len -= avio_get_str16le(s->pb, len, mimetype, sizeof(mimetype));
383     while (mime->id != AV_CODEC_ID_NONE) {
384         if (!strncmp(mime->str, mimetype, sizeof(mimetype))) {
385             id = mime->id;
386             break;
387         }
388         mime++;
389     }
390     if (id == AV_CODEC_ID_NONE) {
391         av_log(s, AV_LOG_ERROR, "Unknown attached picture mimetype: %s.\n",
392                mimetype);
393         return 0;
394     }
395
396     if (picsize >= len) {
397         av_log(s, AV_LOG_ERROR, "Invalid attached picture data size: %d >= %d.\n",
398                picsize, len);
399         return AVERROR_INVALIDDATA;
400     }
401
402     /* picture description */
403     desc_len = (len - picsize) * 2 + 1;
404     desc     = av_malloc(desc_len);
405     if (!desc)
406         return AVERROR(ENOMEM);
407     len -= avio_get_str16le(s->pb, len - picsize, desc, desc_len);
408
409     ret = av_get_packet(s->pb, &pkt, picsize);
410     if (ret < 0)
411         goto fail;
412
413     st  = avformat_new_stream(s, NULL);
414     if (!st) {
415         ret = AVERROR(ENOMEM);
416         goto fail;
417     }
418     asf->asf_st[asf->nb_streams] = av_mallocz(sizeof(*asf_st));
419     asf_st = asf->asf_st[asf->nb_streams];
420     if (!asf_st) {
421         ret = AVERROR(ENOMEM);
422         goto fail;
423     }
424
425     st->disposition              |= AV_DISPOSITION_ATTACHED_PIC;
426     st->codec->codec_type         = asf_st->type = AVMEDIA_TYPE_VIDEO;
427     st->codec->codec_id           = id;
428     st->attached_pic              = pkt;
429     st->attached_pic.stream_index = asf_st->index = st->index;
430     st->attached_pic.flags       |= AV_PKT_FLAG_KEY;
431
432     asf->nb_streams++;
433
434     if (*desc) {
435         if (av_dict_set(&st->metadata, "title", desc, AV_DICT_DONT_STRDUP_VAL) < 0)
436             av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
437     } else
438         av_freep(&desc);
439
440     if (av_dict_set(&st->metadata, "comment", ff_id3v2_picture_types[type], 0) < 0)
441         av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
442
443     return 0;
444
445 fail:
446     av_freep(&desc);
447     av_free_packet(&pkt);
448     return ret;
449 }
450
451 static void get_id3_tag(AVFormatContext *s, int len)
452 {
453     ID3v2ExtraMeta *id3v2_extra_meta = NULL;
454
455     ff_id3v2_read(s, ID3v2_DEFAULT_MAGIC, &id3v2_extra_meta);
456     if (id3v2_extra_meta)
457         ff_id3v2_parse_apic(s, &id3v2_extra_meta);
458     ff_id3v2_free_extra_meta(&id3v2_extra_meta);
459 }
460
461 static int process_metadata(AVFormatContext *s, const uint8_t *name, uint16_t name_len,
462                             uint16_t val_len, uint16_t type, AVDictionary **met)
463 {
464     int ret;
465     ff_asf_guid guid;
466
467     if (val_len) {
468         switch (type) {
469         case ASF_UNICODE:
470             asf_read_value(s, name, name_len, val_len, type, met);
471             break;
472         case ASF_BYTE_ARRAY:
473             if (!strcmp(name, "WM/Picture")) // handle cover art
474                 asf_read_picture(s, val_len);
475             else if (!strcmp(name, "ID3")) // handle ID3 tag
476                 get_id3_tag(s, val_len);
477             else
478                 asf_read_value(s, name, name_len, val_len, type, met);
479             break;
480         case ASF_GUID:
481             ff_get_guid(s->pb, &guid);
482             break;
483         default:
484             if ((ret = asf_set_metadata(s, name, name_len, type, met)) < 0)
485                 return ret;
486             break;
487         }
488     }
489
490     return 0;
491 }
492
493 static int asf_read_ext_content(AVFormatContext *s, const GUIDParseTable *g)
494 {
495     ASFContext *asf  = s->priv_data;
496     AVIOContext *pb  = s->pb;
497     uint64_t size    = avio_rl64(pb);
498     uint16_t nb_desc = avio_rl16(pb);
499     int i, ret;
500
501     for (i = 0; i < nb_desc; i++) {
502         uint16_t name_len, type, val_len;
503         uint8_t *name = NULL;
504
505         name_len = avio_rl16(pb);
506         if (!name_len)
507             return AVERROR_INVALIDDATA;
508         name = av_malloc(name_len);
509         if (!name)
510             return AVERROR(ENOMEM);
511         avio_get_str16le(pb, name_len, name,
512                          name_len);
513         type    = avio_rl16(pb);
514         // BOOL values are 16 bits long in the Metadata Object
515         // but 32 bits long in the Extended Content Description Object
516         if (type == ASF_BOOL)
517             type = ASF_DWORD;
518         val_len = avio_rl16(pb);
519
520         ret = process_metadata(s, name, name_len, val_len, type, &s->metadata);
521         av_freep(&name);
522         if (ret < 0)
523             return ret;
524     }
525
526     align_position(pb, asf->offset, size);
527     return 0;
528 }
529
530 static AVStream *find_stream(AVFormatContext *s, uint16_t st_num)
531 {
532     AVStream *st = NULL;
533     ASFContext *asf = s->priv_data;
534     int i;
535
536     for (i = 0; i < asf->nb_streams; i++) {
537         if (asf->asf_st[i]->stream_index == st_num) {
538             st = s->streams[asf->asf_st[i]->index];
539             break;
540         }
541     }
542
543     return st;
544 }
545
546 static int asf_store_aspect_ratio(AVFormatContext *s, uint8_t st_num, uint8_t *name, int type)
547 {
548     ASFContext *asf   = s->priv_data;
549     AVIOContext *pb   = s->pb;
550     uint64_t value = 0;
551     int ret;
552
553     ret = asf_read_generic_value(pb, type, &value);
554     if (ret < 0)
555         return ret;
556
557     if (st_num < ASF_MAX_STREAMS) {
558         if (!strcmp(name, "AspectRatioX"))
559             asf->asf_sd[st_num].aspect_ratio.num = value;
560         else
561             asf->asf_sd[st_num].aspect_ratio.den = value;
562     }
563     return 0;
564 }
565
566 static int asf_read_metadata_obj(AVFormatContext *s, const GUIDParseTable *g)
567 {
568     ASFContext *asf   = s->priv_data;
569     AVIOContext *pb   = s->pb;
570     uint64_t size     = avio_rl64(pb);
571     uint16_t nb_recs  = avio_rl16(pb); // number of records in the Description Records list
572     int i, ret;
573
574     for (i = 0; i < nb_recs; i++) {
575         uint16_t name_len, buflen, type, val_len, st_num;
576         uint8_t *name = NULL;
577
578         avio_skip(pb, 2); // skip reserved field
579         st_num   = avio_rl16(pb);
580         name_len = avio_rl16(pb);
581         buflen   = 2 * name_len + 1;
582         if (!name_len)
583             break;
584         type     = avio_rl16(pb);
585         val_len  = avio_rl32(pb);
586         name     = av_malloc(name_len);
587         if (!name)
588             return AVERROR(ENOMEM);
589         avio_get_str16le(pb, name_len, name,
590                          buflen);
591         if (!strcmp(name, "AspectRatioX") || !strcmp(name, "AspectRatioY")) {
592             ret = asf_store_aspect_ratio(s, st_num, name, type);
593             if (ret < 0)
594                 return ret;
595         } else {
596             if (st_num < ASF_MAX_STREAMS) {
597                 if ((ret = process_metadata(s, name, name_len, val_len, type,
598                                             &asf->asf_sd[st_num].asf_met)) < 0) {
599                     av_freep(&name);
600                     break;
601                 }
602             }
603         }
604         av_freep(&name);
605     }
606
607     align_position(pb, asf->offset, size);
608     return 0;
609 }
610
611 static int asf_read_content_desc(AVFormatContext *s, const GUIDParseTable *g)
612 {
613     ASFContext *asf = s->priv_data;
614     AVIOContext *pb = s->pb;
615     int i;
616     static const char *const titles[] =
617     { "Title", "Author", "Copyright", "Description", "Rate" };
618     uint16_t len[5], buflen[5] = { 0 };
619     uint8_t *ch;
620     uint64_t size = avio_rl64(pb);
621
622     for (i = 0; i < 5; i++) {
623         len[i]  = avio_rl16(pb);
624         // utf8 string should be <= 2 * utf16 string, extra byte for the terminator
625         buflen[i]  = 2 * len[i] + 1;
626     }
627
628     for (i = 0; i < 5; i++) {
629         ch = av_malloc(buflen[i]);
630         if (!ch)
631             return(AVERROR(ENOMEM));
632         asf_read_metadata(s, titles[i], len[i], ch, buflen[i]);
633         av_freep(&ch);
634     }
635     align_position(pb, asf->offset, size);
636
637     return 0;
638 }
639
640 static int asf_read_properties(AVFormatContext *s, const GUIDParseTable *g)
641 {
642     ASFContext *asf = s->priv_data;
643     AVIOContext *pb = s->pb;
644     time_t creation_time;
645
646     avio_rl64(pb); // read object size
647     avio_skip(pb, 16); // skip File ID
648     avio_skip(pb, 8);  // skip File size
649     creation_time = avio_rl64(pb);
650     if (!(asf->b_flags & ASF_FLAG_BROADCAST)) {
651         struct tm tmbuf;
652         struct tm *tm;
653         char buf[64];
654
655         // creation date is in 100 ns units from 1 Jan 1601, conversion to s
656         creation_time /= 10000000;
657         // there are 11644473600 seconds between 1 Jan 1601 and 1 Jan 1970
658         creation_time -= 11644473600;
659         tm = gmtime_r(&creation_time, &tmbuf);
660         if (tm) {
661             if (!strftime(buf, sizeof(buf), "%Y-%m-%d %H:%M:%S", tm))
662                 buf[0] = '\0';
663         } else
664             buf[0] = '\0';
665         if (buf[0]) {
666             if (av_dict_set(&s->metadata, "creation_time", buf, 0) < 0)
667                 av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
668         }
669     }
670     asf->nb_packets  = avio_rl64(pb);
671     asf->duration    = avio_rl64(pb) / 10000; // stream duration
672     avio_skip(pb, 8); // skip send duration
673     asf->preroll     = avio_rl64(pb);
674     asf->duration   -= asf->preroll;
675     asf->b_flags     = avio_rl32(pb);
676     avio_skip(pb, 4); // skip minimal packet size
677     asf->packet_size  = avio_rl32(pb);
678     avio_skip(pb, 4); // skip max_bitrate
679
680     return 0;
681 }
682
683 static int parse_video_info(AVIOContext *pb, AVStream *st)
684 {
685     uint16_t size;
686     unsigned int tag;
687
688     st->codec->width  = avio_rl32(pb);
689     st->codec->height = avio_rl32(pb);
690     avio_skip(pb, 1); // skip reserved flags
691     size = avio_rl16(pb); // size of the Format Data
692     tag  = ff_get_bmp_header(pb, st);
693     st->codec->codec_tag = tag;
694     st->codec->codec_id  = ff_codec_get_id(ff_codec_bmp_tags, tag);
695
696     if (size > BMP_HEADER_SIZE) {
697         int ret;
698         st->codec->extradata_size  = size - BMP_HEADER_SIZE;
699         if (!(st->codec->extradata = av_malloc(st->codec->extradata_size +
700                                                AV_INPUT_BUFFER_PADDING_SIZE))) {
701             st->codec->extradata_size = 0;
702             return AVERROR(ENOMEM);
703         }
704         memset(st->codec->extradata + st->codec->extradata_size , 0,
705                AV_INPUT_BUFFER_PADDING_SIZE);
706         if ((ret = avio_read(pb, st->codec->extradata,
707                              st->codec->extradata_size)) < 0)
708             return ret;
709     }
710     return 0;
711 }
712
713 static int asf_read_stream_properties(AVFormatContext *s, const GUIDParseTable *g)
714 {
715     ASFContext *asf = s->priv_data;
716     AVIOContext *pb = s->pb;
717     uint64_t size;
718     uint32_t err_data_len, ts_data_len; // type specific data length
719     uint16_t flags;
720     ff_asf_guid stream_type;
721     enum AVMediaType type;
722     int i, ret;
723     uint8_t stream_index;
724     AVStream *st;
725     ASFStream *asf_st;
726
727     // ASF file must not contain more than 128 streams according to the specification
728     if (asf->nb_streams >= ASF_MAX_STREAMS)
729         return AVERROR_INVALIDDATA;
730
731     size = avio_rl64(pb);
732     ff_get_guid(pb, &stream_type);
733     if (!ff_guidcmp(&stream_type, &ff_asf_audio_stream))
734         type = AVMEDIA_TYPE_AUDIO;
735     else if (!ff_guidcmp(&stream_type, &ff_asf_video_stream))
736         type = AVMEDIA_TYPE_VIDEO;
737     else if (!ff_guidcmp(&stream_type, &ff_asf_jfif_media))
738         type = AVMEDIA_TYPE_VIDEO;
739     else if (!ff_guidcmp(&stream_type, &ff_asf_command_stream))
740         type = AVMEDIA_TYPE_DATA;
741     else if (!ff_guidcmp(&stream_type,
742                          &ff_asf_ext_stream_embed_stream_header))
743         type = AVMEDIA_TYPE_UNKNOWN;
744     else
745         return AVERROR_INVALIDDATA;
746
747     ff_get_guid(pb, &stream_type); // error correction type
748     avio_skip(pb, 8); // skip the time offset
749     ts_data_len      = avio_rl32(pb);
750     err_data_len     = avio_rl32(pb);
751     flags            = avio_rl16(pb); // bit 15 - Encrypted Content
752
753     stream_index = flags & ASF_STREAM_NUM;
754     for (i = 0; i < asf->nb_streams; i++)
755         if (stream_index == asf->asf_st[i]->stream_index) {
756             av_log(s, AV_LOG_WARNING,
757                    "Duplicate stream found, this stream will be ignored.\n");
758             align_position(pb, asf->offset, size);
759             return 0;
760         }
761
762     st = avformat_new_stream(s, NULL);
763     if (!st)
764         return AVERROR(ENOMEM);
765     avpriv_set_pts_info(st, 32, 1, 1000); // pts should be dword, in milliseconds
766     st->codec->codec_type = type;
767     asf->asf_st[asf->nb_streams] = av_mallocz(sizeof(*asf_st));
768     if (!asf->asf_st[asf->nb_streams])
769         return AVERROR(ENOMEM);
770     asf_st                       = asf->asf_st[asf->nb_streams];
771     asf->nb_streams++;
772     asf_st->stream_index         = stream_index;
773     asf_st->index                = st->index;
774     asf_st->indexed              = 0;
775     st->id                       = flags & ASF_STREAM_NUM;
776     av_init_packet(&asf_st->pkt.avpkt);
777     asf_st->pkt.data_size        = 0;
778     avio_skip(pb, 4); // skip reserved field
779
780     switch (type) {
781     case AVMEDIA_TYPE_AUDIO:
782         asf_st->type = AVMEDIA_TYPE_AUDIO;
783         if ((ret = ff_get_wav_header(s, pb, st->codec, ts_data_len)) < 0)
784             return ret;
785         break;
786     case AVMEDIA_TYPE_VIDEO:
787         asf_st->type = AVMEDIA_TYPE_VIDEO;
788         if ((ret = parse_video_info(pb, st)) < 0)
789             return ret;
790         break;
791     default:
792         avio_skip(pb, ts_data_len);
793         break;
794     }
795
796     if (err_data_len) {
797         if (type == AVMEDIA_TYPE_AUDIO) {
798             uint8_t span = avio_r8(pb);
799             if (span > 1) {
800                 asf_st->span              = span;
801                 asf_st->virtual_pkt_len   = avio_rl16(pb);
802                 asf_st->virtual_chunk_len = avio_rl16(pb);
803                 if (!asf_st->virtual_chunk_len || !asf_st->virtual_pkt_len)
804                     return AVERROR_INVALIDDATA;
805                 avio_skip(pb, err_data_len - 5);
806             } else
807                 avio_skip(pb, err_data_len - 1);
808         } else
809             avio_skip(pb, err_data_len);
810     }
811
812     align_position(pb, asf->offset, size);
813
814     return 0;
815 }
816
817 static void set_language(AVFormatContext *s, const char *rfc1766, AVDictionary **met)
818 {
819     // language abbr should contain at least 2 chars
820     if (rfc1766 && strlen(rfc1766) > 1) {
821         const char primary_tag[3] = { rfc1766[0], rfc1766[1], '\0' }; // ignore country code if any
822         const char *iso6392       = av_convert_lang_to(primary_tag,
823                                                        AV_LANG_ISO639_2_BIBL);
824         if (iso6392)
825             if (av_dict_set(met, "language", iso6392, 0) < 0)
826                 av_log(s, AV_LOG_WARNING, "av_dict_set failed.\n");
827     }
828 }
829
830 static int asf_read_ext_stream_properties(AVFormatContext *s, const GUIDParseTable *g)
831 {
832     ASFContext *asf = s->priv_data;
833     AVIOContext *pb = s->pb;
834     AVStream *st    = NULL;
835     ff_asf_guid guid;
836     uint16_t nb_st_name, nb_pay_exts, st_num, lang_idx;
837     int i, ret;
838     uint32_t bitrate;
839     uint64_t start_time, end_time, time_per_frame;
840     uint64_t size = avio_rl64(pb);
841
842     start_time = avio_rl64(pb);
843     end_time   = avio_rl64(pb);
844     bitrate    = avio_rl32(pb);
845     avio_skip(pb, 28); // skip some unused values
846     st_num     = avio_rl16(pb);
847     st_num    &= ASF_STREAM_NUM;
848     lang_idx   = avio_rl16(pb); // Stream Language ID Index
849     for (i = 0; i < asf->nb_streams; i++) {
850         if (st_num == asf->asf_st[i]->stream_index) {
851             st                       = s->streams[asf->asf_st[i]->index];
852             asf->asf_st[i]->lang_idx = lang_idx;
853             break;
854         }
855     }
856     time_per_frame = avio_rl64(pb); // average time per frame
857     if (st) {
858         st->start_time           = start_time;
859         st->duration             = end_time - start_time;
860         st->codec->bit_rate      = bitrate;
861         st->avg_frame_rate.num   = 10000000;
862         st->avg_frame_rate.den   = time_per_frame;
863     }
864     nb_st_name = avio_rl16(pb);
865     nb_pay_exts   = avio_rl16(pb);
866     for (i = 0; i < nb_st_name; i++) {
867         uint16_t len;
868
869         avio_rl16(pb); // Language ID Index
870         len = avio_rl16(pb);
871         avio_skip(pb, len);
872     }
873
874     for (i = 0; i < nb_pay_exts; i++) {
875         uint32_t len;
876         avio_skip(pb, 16); // Extension System ID
877         avio_skip(pb, 2);  // Extension Data Size
878         len = avio_rl32(pb);
879         avio_skip(pb, len);
880     }
881
882     if ((ret = ff_get_guid(pb, &guid)) < 0) {
883         align_position(pb, asf->offset, size);
884
885         return 0;
886     }
887
888     g = find_guid(guid);
889     if (g && !(strcmp(g->name, "Stream Properties"))) {
890         if ((ret = g->read_object(s, g)) < 0)
891             return ret;
892     }
893
894     align_position(pb, asf->offset, size);
895     return 0;
896 }
897
898 static int asf_read_language_list(AVFormatContext *s, const GUIDParseTable *g)
899 {
900     ASFContext *asf   = s->priv_data;
901     AVIOContext *pb   = s->pb;
902     int i, ret;
903     uint64_t size     = avio_rl64(pb);
904     uint16_t nb_langs = avio_rl16(pb);
905
906     if (nb_langs < ASF_MAX_STREAMS) {
907         for (i = 0; i < nb_langs; i++) {
908             size_t len;
909             len = avio_r8(pb);
910             if (!len)
911                 len = 6;
912             if ((ret = get_asf_string(pb, len, asf->asf_sd[i].langs,
913                                       sizeof(asf->asf_sd[i].langs))) < 0) {
914                 return ret;
915             }
916         }
917     }
918
919     align_position(pb, asf->offset, size);
920     return 0;
921 }
922
923 // returns data object offset when reading this object for the first time
924 static int asf_read_data(AVFormatContext *s, const GUIDParseTable *g)
925 {
926     ASFContext *asf = s->priv_data;
927     AVIOContext *pb = s->pb;
928     uint64_t size   = asf->data_size = avio_rl64(pb);
929     int i;
930
931     if (!asf->data_reached) {
932         asf->data_reached       = 1;
933         asf->data_offset        = asf->offset;
934     }
935
936     for (i = 0; i < asf->nb_streams; i++) {
937         if (!(asf->b_flags & ASF_FLAG_BROADCAST))
938             s->streams[i]->duration = asf->duration;
939     }
940     asf->nb_mult_left           = 0;
941     asf->sub_left               = 0;
942     asf->state                  = PARSE_PACKET_HEADER;
943     asf->return_subpayload      = 0;
944     asf->packet_size_internal   = 0;
945     avio_skip(pb, 16); // skip File ID
946     size = avio_rl64(pb); // Total Data Packets
947     if (size != asf->nb_packets)
948         av_log(s, AV_LOG_WARNING,
949                "Number of Packets from File Properties Object is not equal to Total"
950                "Datapackets value! num of packets %"PRIu64" total num %"PRIu64".\n",
951                size, asf->nb_packets);
952     avio_skip(pb, 2); // skip reserved field
953     asf->first_packet_offset = avio_tell(pb);
954     if (pb->seekable && !(asf->b_flags & ASF_FLAG_BROADCAST))
955         align_position(pb, asf->offset, asf->data_size);
956
957     return 0;
958 }
959
960 static int asf_read_simple_index(AVFormatContext *s, const GUIDParseTable *g)
961 {
962     ASFContext *asf = s->priv_data;
963     AVIOContext *pb = s->pb;
964     AVStream *st    = NULL;
965     uint64_t interval; // index entry time interval in 100 ns units, usually it's 1s
966     uint32_t pkt_num, nb_entries;
967     int32_t prev_pkt_num = -1;
968     int i;
969     uint64_t size = avio_rl64(pb);
970
971     // simple index objects should be ordered by stream number, this loop tries to find
972     // the first not indexed video stream
973     for (i = 0; i < asf->nb_streams; i++) {
974         if ((asf->asf_st[i]->type == AVMEDIA_TYPE_VIDEO) && !asf->asf_st[i]->indexed) {
975             asf->asf_st[i]->indexed = 1;
976             st = s->streams[asf->asf_st[i]->index];
977             break;
978         }
979     }
980     if (!st) {
981         avio_skip(pb, size - 24); // if there's no video stream, skip index object
982         return 0;
983     }
984     avio_skip(pb, 16); // skip File ID
985     interval = avio_rl64(pb);
986     avio_skip(pb, 4);
987     nb_entries = avio_rl32(pb);
988     for (i = 0; i < nb_entries; i++) {
989         pkt_num = avio_rl32(pb);
990         avio_skip(pb, 2);
991         if (prev_pkt_num != pkt_num) {
992             av_add_index_entry(st, asf->first_packet_offset + asf->packet_size *
993                                pkt_num, av_rescale(interval, i, 10000),
994                                asf->packet_size, 0, AVINDEX_KEYFRAME);
995             prev_pkt_num = pkt_num;
996         }
997     }
998     asf->is_simple_index = 1;
999     align_position(pb, asf->offset, size);
1000
1001     return 0;
1002 }
1003
1004 static const GUIDParseTable gdef[] = {
1005     { "Data",                         { 0x75, 0xB2, 0x26, 0x36, 0x66, 0x8E, 0x11, 0xCF, 0xA6, 0xD9, 0x00, 0xAA, 0x00, 0x62, 0xCE, 0x6C }, asf_read_data, 1 },
1006     { "Simple Index",                 { 0x33, 0x00, 0x08, 0x90, 0xE5, 0xB1, 0x11, 0xCF, 0x89, 0xF4, 0x00, 0xA0, 0xC9, 0x03, 0x49, 0xCB }, asf_read_simple_index, 1 },
1007     { "Content Description",          { 0x75, 0xB2, 0x26, 0x33, 0x66 ,0x8E, 0x11, 0xCF, 0xA6, 0xD9, 0x00, 0xAA, 0x00, 0x62, 0xCE, 0x6C }, asf_read_content_desc, 1 },
1008     { "Extended Content Description", { 0xD2, 0xD0, 0xA4, 0x40, 0xE3, 0x07, 0x11, 0xD2, 0x97, 0xF0, 0x00, 0xA0, 0xC9, 0x5e, 0xA8, 0x50 }, asf_read_ext_content, 1 },
1009     { "Stream Bitrate Properties",    { 0x7B, 0xF8, 0x75, 0xCE, 0x46, 0x8D, 0x11, 0xD1, 0x8D, 0x82, 0x00, 0x60, 0x97, 0xC9, 0xA2, 0xB2 }, asf_read_unknown, 1 },
1010     { "File Properties",              { 0x8C, 0xAB, 0xDC, 0xA1, 0xA9, 0x47, 0x11, 0xCF, 0x8E, 0xE4, 0x00, 0xC0, 0x0C, 0x20, 0x53, 0x65 }, asf_read_properties, 1 },
1011     { "Header Extension",             { 0x5F, 0xBF, 0x03, 0xB5, 0xA9, 0x2E, 0x11, 0xCF, 0x8E, 0xE3, 0x00, 0xC0, 0x0C, 0x20, 0x53, 0x65 }, asf_read_unknown, 0 },
1012     { "Stream Properties",            { 0xB7, 0xDC, 0x07, 0x91, 0xA9, 0xB7, 0x11, 0xCF, 0x8E, 0xE6, 0x00, 0xC0, 0x0C, 0x20, 0x53, 0x65 }, asf_read_stream_properties, 1 },
1013     { "Codec List",                   { 0x86, 0xD1, 0x52, 0x40, 0x31, 0x1D, 0x11, 0xD0, 0xA3, 0xA4, 0x00, 0xA0, 0xC9, 0x03, 0x48, 0xF6 }, asf_read_unknown, 1 },
1014     { "Marker",                       { 0xF4, 0x87, 0xCD, 0x01, 0xA9, 0x51, 0x11, 0xCF, 0x8E, 0xE6, 0x00, 0xC0, 0x0C, 0x20, 0x53, 0x65 }, asf_read_marker, 1 },
1015     { "Script Command",               { 0x1E, 0xFB, 0x1A, 0x30, 0x0B, 0x62, 0x11, 0xD0, 0xA3, 0x9B, 0x00, 0xA0, 0xC9, 0x03, 0x48, 0xF6 }, asf_read_unknown, 1 },
1016     { "Language List",                { 0x7C, 0x43, 0x46, 0xa9, 0xef, 0xe0, 0x4B, 0xFC, 0xB2, 0x29, 0x39, 0x3e, 0xde, 0x41, 0x5c, 0x85 }, asf_read_language_list, 1},
1017     { "Padding",                      { 0x18, 0x06, 0xD4, 0x74, 0xCA, 0xDF, 0x45, 0x09, 0xA4, 0xBA, 0x9A, 0xAB, 0xCB, 0x96, 0xAA, 0xE8 }, asf_read_unknown, 1 },
1018     { "DRMv1 Header",                 { 0x22, 0x11, 0xB3, 0xFB, 0xBD, 0x23, 0x11, 0xD2, 0xB4, 0xB7, 0x00, 0xA0, 0xC9, 0x55, 0xFC, 0x6E }, asf_read_unknown, 1 },
1019     { "DRMv2 Header",                 { 0x29, 0x8A, 0xE6, 0x14, 0x26, 0x22, 0x4C, 0x17, 0xB9, 0x35, 0xDA, 0xE0, 0x7E, 0xE9, 0x28, 0x9c }, asf_read_unknown, 1 },
1020     { "Index",                        { 0xD6, 0xE2, 0x29, 0xD3, 0x35, 0xDA, 0x11, 0xD1, 0x90, 0x34, 0x00, 0xA0, 0xC9, 0x03, 0x49, 0xBE }, asf_read_unknown, 1 },
1021     { "Media Object Index",           { 0xFE, 0xB1, 0x03, 0xF8, 0x12, 0xAD, 0x4C, 0x64, 0x84, 0x0F, 0x2A, 0x1D, 0x2F, 0x7A, 0xD4, 0x8C }, asf_read_unknown, 1 },
1022     { "Timecode Index",               { 0x3C, 0xB7, 0x3F, 0xD0, 0x0C, 0x4A, 0x48, 0x03, 0x95, 0x3D, 0xED, 0xF7, 0xB6, 0x22, 0x8F, 0x0C }, asf_read_unknown, 0 },
1023     { "Bitrate_Mutual_Exclusion",     { 0xD6, 0xE2, 0x29, 0xDC, 0x35, 0xDA, 0x11, 0xD1, 0x90, 0x34, 0x00, 0xA0, 0xC9, 0x03, 0x49, 0xBE }, asf_read_unknown, 1 },
1024     { "Error Correction",             { 0x75, 0xB2, 0x26, 0x35, 0x66, 0x8E, 0x11, 0xCF, 0xA6, 0xD9, 0x00, 0xAA, 0x00, 0x62, 0xCE, 0x6C }, asf_read_unknown, 1 },
1025     { "Content Branding",             { 0x22, 0x11, 0xB3, 0xFA, 0xBD, 0x23, 0x11, 0xD2, 0xB4, 0xB7, 0x00, 0xA0, 0xC9, 0x55, 0xFC, 0x6E }, asf_read_unknown, 1 },
1026     { "Content Encryption",           { 0x22, 0x11, 0xB3, 0xFB, 0xBD, 0x23, 0x11, 0xD2, 0xB4, 0xB7, 0x00, 0xA0, 0xC9, 0x55, 0xFC, 0x6E }, asf_read_unknown, 1 },
1027     { "Extended Content Encryption",  { 0x29, 0x8A, 0xE6, 0x14, 0x26, 0x22, 0x4C, 0x17, 0xB9, 0x35, 0xDA, 0xE0, 0x7E, 0xE9, 0x28, 0x9C }, asf_read_unknown, 1 },
1028     { "Digital Signature",            { 0x22, 0x11, 0xB3, 0xFC, 0xBD, 0x23, 0x11, 0xD2, 0xB4, 0xB7, 0x00, 0xA0, 0xC9, 0x55, 0xFC, 0x6E }, asf_read_unknown, 1 },
1029     { "Extended Stream Properties",   { 0x14, 0xE6, 0xA5, 0xCB, 0xC6, 0x72, 0x43, 0x32, 0x83, 0x99, 0xA9, 0x69, 0x52, 0x06, 0x5B, 0x5A }, asf_read_ext_stream_properties, 1 },
1030     { "Advanced Mutual Exclusion",    { 0xA0, 0x86, 0x49, 0xCF, 0x47, 0x75, 0x46, 0x70, 0x8A, 0x16, 0x6E, 0x35, 0x35, 0x75, 0x66, 0xCD }, asf_read_unknown, 1 },
1031     { "Group Mutual Exclusion",       { 0xD1, 0x46, 0x5A, 0x40, 0x5A, 0x79, 0x43, 0x38, 0xB7, 0x1B, 0xE3, 0x6B, 0x8F, 0xD6, 0xC2, 0x49 }, asf_read_unknown, 1},
1032     { "Stream Prioritization",        { 0xD4, 0xFE, 0xD1, 0x5B, 0x88, 0xD3, 0x45, 0x4F, 0x81, 0xF0, 0xED, 0x5C, 0x45, 0x99, 0x9E, 0x24 }, asf_read_unknown, 1 },
1033     { "Bandwidth Sharing Object",     { 0xA6, 0x96, 0x09, 0xE6, 0x51, 0x7B, 0x11, 0xD2, 0xB6, 0xAF, 0x00, 0xC0, 0x4F, 0xD9, 0x08, 0xE9 }, asf_read_unknown, 1 },
1034     { "Metadata",                     { 0xC5, 0xF8, 0xCB, 0xEA, 0x5B, 0xAF, 0x48, 0x77, 0x84, 0x67, 0xAA, 0x8C, 0x44, 0xFA, 0x4C, 0xCA }, asf_read_metadata_obj, 1 },
1035     { "Metadata Library",             { 0x44, 0x23, 0x1C, 0x94, 0x94, 0x98, 0x49, 0xD1, 0xA1, 0x41, 0x1D, 0x13, 0x4E, 0x45, 0x70, 0x54 }, asf_read_metadata_obj, 1 },
1036     { "Audio Spread",                 { 0xBF, 0xC3, 0xCD, 0x50, 0x61, 0x8F, 0x11, 0xCF, 0x8B, 0xB2, 0x00, 0xAA, 0x00, 0xB4, 0xE2, 0x20 }, asf_read_unknown, 1 },
1037     { "Index Parameters",             { 0xD6, 0xE2, 0x29, 0xDF, 0x35, 0xDA, 0x11, 0xD1, 0x90, 0x34, 0x00, 0xA0, 0xC9, 0x03, 0x49, 0xBE }, asf_read_unknown, 1 },
1038     { "Content Encryption System Windows Media DRM Network Devices",
1039                                       { 0x7A, 0x07, 0x9B, 0xB6, 0xDA, 0XA4, 0x4e, 0x12, 0xA5, 0xCA, 0x91, 0xD3, 0x8D, 0xC1, 0x1A, 0x8D }, asf_read_unknown, 1 },
1040     { "Mutex Language",               { 0xD6, 0xE2, 0x2A, 0x00, 0x25, 0xDA, 0x11, 0xD1, 0x90, 0x34, 0x00, 0xA0, 0xC9, 0x03, 0x49, 0xBE }, asf_read_unknown, 1 },
1041     { "Mutex Bitrate",                { 0xD6, 0xE2, 0x2A, 0x01, 0x25, 0xDA, 0x11, 0xD1, 0x90, 0x34, 0x00, 0xA0, 0xC9, 0x03, 0x49, 0xBE }, asf_read_unknown, 1 },
1042     { "Mutex Unknown",                { 0xD6, 0xE2, 0x2A, 0x02, 0x25, 0xDA, 0x11, 0xD1, 0x90, 0x34, 0x00, 0xA0, 0xC9, 0x03, 0x49, 0xBE }, asf_read_unknown, 1 },
1043     { "Bandwith Sharing Exclusive",   { 0xAF, 0x60, 0x60, 0xAA, 0x51, 0x97, 0x11, 0xD2, 0xB6, 0xAF, 0x00, 0xC0, 0x4F, 0xD9, 0x08, 0xE9 }, asf_read_unknown, 1 },
1044     { "Bandwith Sharing Partial",     { 0xAF, 0x60, 0x60, 0xAB, 0x51, 0x97, 0x11, 0xD2, 0xB6, 0xAF, 0x00, 0xC0, 0x4F, 0xD9, 0x08, 0xE9 }, asf_read_unknown, 1 },
1045     { "Payload Extension System Timecode", { 0x39, 0x95, 0x95, 0xEC, 0x86, 0x67, 0x4E, 0x2D, 0x8F, 0xDB, 0x98, 0x81, 0x4C, 0xE7, 0x6C, 0x1E }, asf_read_unknown, 1 },
1046     { "Payload Extension System File Name", { 0xE1, 0x65, 0xEC, 0x0E, 0x19, 0xED, 0x45, 0xD7, 0xB4, 0xA7, 0x25, 0xCB, 0xD1, 0xE2, 0x8E, 0x9B }, asf_read_unknown, 1 },
1047     { "Payload Extension System Content Type", { 0xD5, 0x90, 0xDC, 0x20, 0x07, 0xBC, 0x43, 0x6C, 0x9C, 0xF7, 0xF3, 0xBB, 0xFB, 0xF1, 0xA4, 0xDC }, asf_read_unknown, 1 },
1048     { "Payload Extension System Pixel Aspect Ratio", { 0x1, 0x1E, 0xE5, 0x54, 0xF9, 0xEA, 0x4B, 0xC8, 0x82, 0x1A, 0x37, 0x6B, 0x74, 0xE4, 0xC4, 0xB8 }, asf_read_unknown, 1 },
1049     { "Payload Extension System Sample Duration", { 0xC6, 0xBD, 0x94, 0x50, 0x86, 0x7F, 0x49, 0x07, 0x83, 0xA3, 0xC7, 0x79, 0x21, 0xB7, 0x33, 0xAD }, asf_read_unknown, 1 },
1050     { "Payload Extension System Encryption Sample ID", { 0x66, 0x98, 0xB8, 0x4E, 0x0A, 0xFA, 0x43, 0x30, 0xAE, 0xB2, 0x1C, 0x0A, 0x98, 0xD7, 0xA4, 0x4D }, asf_read_unknown, 1 },
1051     { "Payload Extension System Degradable JPEG", { 0x00, 0xE1, 0xAF, 0x06, 0x7B, 0xEC, 0x11, 0xD1, 0xA5, 0x82, 0x00, 0xC0, 0x4F, 0xC2, 0x9C, 0xFB }, asf_read_unknown, 1 },
1052 };
1053
1054 #define READ_LEN(flag, name, len)            \
1055     do {                                     \
1056         if ((flag) == name ## IS_BYTE)       \
1057             len = avio_r8(pb);               \
1058         else if ((flag) == name ## IS_WORD)  \
1059             len = avio_rl16(pb);             \
1060         else if ((flag) == name ## IS_DWORD) \
1061             len = avio_rl32(pb);             \
1062         else                                 \
1063             len = 0;                         \
1064     } while(0)
1065
1066 static int asf_read_subpayload(AVFormatContext *s, AVPacket *pkt, int is_header)
1067 {
1068     ASFContext *asf = s->priv_data;
1069     AVIOContext *pb = s->pb;
1070     uint8_t sub_len;
1071     int ret, i;
1072
1073     if (is_header) {
1074         asf->dts_delta = avio_r8(pb);
1075         if (asf->nb_mult_left) {
1076             asf->mult_sub_len = avio_rl16(pb); // total
1077         }
1078         asf->sub_header_offset = avio_tell(pb);
1079         asf->nb_sub = 0;
1080         asf->sub_left = 1;
1081     }
1082     sub_len = avio_r8(pb);
1083     if ((ret = av_get_packet(pb, pkt, sub_len)) < 0) // each subpayload is entire frame
1084         return ret;
1085     for (i = 0; i < asf->nb_streams; i++) {
1086         if (asf->stream_index == asf->asf_st[i]->stream_index) {
1087             pkt->stream_index  = asf->asf_st[i]->index;
1088             break;
1089         }
1090     }
1091     asf->return_subpayload = 1;
1092     if (!sub_len)
1093         asf->return_subpayload = 0;
1094
1095     if (sub_len)
1096         asf->nb_sub++;
1097     pkt->dts = asf->sub_dts + (asf->nb_sub - 1) * asf->dts_delta - asf->preroll;
1098     if (asf->nb_mult_left && (avio_tell(pb) >=
1099                               (asf->sub_header_offset + asf->mult_sub_len))) {
1100         asf->sub_left = 0;
1101         asf->nb_mult_left--;
1102     }
1103     if (avio_tell(pb) >= asf->packet_offset + asf->packet_size - asf->pad_len) {
1104         asf->sub_left = 0;
1105         if (!asf->nb_mult_left) {
1106             avio_skip(pb, asf->pad_len);
1107             if (avio_tell(pb) != asf->packet_offset + asf->packet_size) {
1108                 if (!asf->packet_size)
1109                     return AVERROR_INVALIDDATA;
1110                 av_log(s, AV_LOG_WARNING,
1111                        "Position %"PRId64" wrong, should be %"PRId64"\n",
1112                        avio_tell(pb), asf->packet_offset + asf->packet_size);
1113                 avio_seek(pb, asf->packet_offset + asf->packet_size, SEEK_SET);
1114             }
1115         }
1116     }
1117
1118     return 0;
1119 }
1120
1121 static void reset_packet(ASFPacket *asf_pkt)
1122 {
1123     asf_pkt->size_left = 0;
1124     asf_pkt->data_size = 0;
1125     asf_pkt->duration  = 0;
1126     asf_pkt->flags     = 0;
1127     asf_pkt->dts       = 0;
1128     asf_pkt->duration  = 0;
1129     av_free_packet(&asf_pkt->avpkt);
1130     av_init_packet(&asf_pkt->avpkt);
1131 }
1132
1133 static int asf_read_replicated_data(AVFormatContext *s, ASFPacket *asf_pkt)
1134 {
1135     ASFContext *asf = s->priv_data;
1136     AVIOContext *pb = s->pb;
1137     int ret;
1138
1139     if (!asf_pkt->data_size) {
1140         asf_pkt->data_size = asf_pkt->size_left = avio_rl32(pb); // read media object size
1141         if (asf_pkt->data_size <= 0)
1142             return AVERROR_EOF;
1143         if ((ret = av_new_packet(&asf_pkt->avpkt, asf_pkt->data_size)) < 0)
1144             return ret;
1145     } else
1146         avio_skip(pb, 4); // reading of media object size is already done
1147     asf_pkt->dts = avio_rl32(pb); // read presentation time
1148     if (asf->rep_data_len && (asf->rep_data_len >= 8))
1149         avio_skip(pb, asf->rep_data_len - 8); // skip replicated data
1150
1151     return 0;
1152 }
1153
1154 static int asf_read_multiple_payload(AVFormatContext *s, AVPacket *pkt,
1155                                  ASFPacket *asf_pkt)
1156 {
1157     ASFContext *asf = s->priv_data;
1158     AVIOContext *pb = s->pb;
1159     uint16_t pay_len;
1160     unsigned char *p;
1161     int ret;
1162     int skip = 0;
1163
1164     // if replicated lenght is 1, subpayloads are present
1165     if (asf->rep_data_len == 1) {
1166         asf->sub_left = 1;
1167         asf->state = READ_MULTI_SUB;
1168         pkt->flags = asf_pkt->flags;
1169         if ((ret = asf_read_subpayload(s, pkt, 1)) < 0)
1170             return ret;
1171     } else {
1172         if (asf->rep_data_len)
1173             if ((ret = asf_read_replicated_data(s, asf_pkt)) < 0)
1174                 return ret;
1175         pay_len = avio_rl16(pb); // payload length should be WORD
1176         if (pay_len > asf->packet_size) {
1177             av_log(s, AV_LOG_ERROR,
1178                    "Error: invalid data packet size, pay_len %"PRIu16", "
1179                    "asf->packet_size %"PRIu32", offset %"PRId64".\n",
1180                    pay_len, asf->packet_size, avio_tell(pb));
1181             return AVERROR_INVALIDDATA;
1182         }
1183         p = asf_pkt->avpkt.data + asf_pkt->data_size - asf_pkt->size_left;
1184         if (pay_len > asf_pkt->size_left) {
1185             av_log(s, AV_LOG_ERROR,
1186                    "Error: invalid buffer size, pay_len %d, data size left %d.\n",
1187             pay_len, asf_pkt->size_left);
1188             skip = pay_len - asf_pkt->size_left;
1189             pay_len = asf_pkt->size_left;
1190         }
1191         if ((ret = avio_read(pb, p, pay_len)) < 0)
1192             return ret;
1193         if (s->key && s->keylen == 20)
1194             ff_asfcrypt_dec(s->key, p, ret);
1195         avio_skip(pb, skip);
1196         asf_pkt->size_left -= pay_len;
1197         asf->nb_mult_left--;
1198     }
1199
1200     return 0;
1201 }
1202
1203 static int asf_read_single_payload(AVFormatContext *s, AVPacket *pkt,
1204                                ASFPacket *asf_pkt)
1205 {
1206     ASFContext *asf = s->priv_data;
1207     AVIOContext *pb = s->pb;
1208     int64_t  offset;
1209     uint64_t size;
1210     unsigned char *p;
1211     int ret;
1212
1213     if (!asf_pkt->data_size) {
1214         asf_pkt->data_size = asf_pkt->size_left = avio_rl32(pb); // read media object size
1215         if (asf_pkt->data_size <= 0)
1216             return AVERROR_EOF;
1217         if ((ret = av_new_packet(&asf_pkt->avpkt, asf_pkt->data_size)) < 0)
1218             return ret;
1219     } else
1220         avio_skip(pb, 4); // skip media object size
1221     asf_pkt->dts = avio_rl32(pb); // read presentation time
1222     if (asf->rep_data_len >= 8)
1223         avio_skip(pb, asf->rep_data_len - 8); // skip replicated data
1224     offset = avio_tell(pb);
1225
1226     // size of the payload - size of the packet without header and padding
1227     if (asf->packet_size_internal)
1228         size = asf->packet_size_internal - offset + asf->packet_offset - asf->pad_len;
1229     else
1230         size = asf->packet_size - offset + asf->packet_offset - asf->pad_len;
1231     if (size > asf->packet_size) {
1232         av_log(s, AV_LOG_ERROR,
1233                "Error: invalid data packet size, offset %"PRId64".\n",
1234                avio_tell(pb));
1235         return AVERROR_INVALIDDATA;
1236     }
1237     p = asf_pkt->avpkt.data + asf_pkt->data_size - asf_pkt->size_left;
1238     if (size > asf_pkt->size_left)
1239         return AVERROR_INVALIDDATA;
1240     if (asf_pkt->size_left > size)
1241         asf_pkt->size_left -= size;
1242     else
1243         asf_pkt->size_left = 0;
1244     if ((ret = avio_read(pb, p, size)) < 0)
1245         return ret;
1246     if (s->key && s->keylen == 20)
1247             ff_asfcrypt_dec(s->key, p, ret);
1248     if (asf->packet_size_internal)
1249         avio_skip(pb, asf->packet_size - asf->packet_size_internal);
1250     avio_skip(pb, asf->pad_len); // skip padding
1251
1252     return 0;
1253 }
1254
1255 static int asf_read_payload(AVFormatContext *s, AVPacket *pkt)
1256 {
1257     ASFContext *asf = s->priv_data;
1258     AVIOContext *pb = s->pb;
1259     int ret, i;
1260     ASFPacket *asf_pkt = NULL;
1261
1262     if (!asf->sub_left) {
1263         uint32_t off_len, media_len;
1264         uint8_t stream_num;
1265
1266         stream_num = avio_r8(pb);
1267         asf->stream_index = stream_num & ASF_STREAM_NUM;
1268         for (i = 0; i < asf->nb_streams; i++) {
1269             if (asf->stream_index == asf->asf_st[i]->stream_index) {
1270                 asf_pkt               = &asf->asf_st[i]->pkt;
1271                 asf_pkt->stream_index = asf->asf_st[i]->index;
1272                 break;
1273             }
1274         }
1275         if (!asf_pkt)
1276             return AVERROR_INVALIDDATA;
1277         if (stream_num >> 7)
1278             asf_pkt->flags |= AV_PKT_FLAG_KEY;
1279         READ_LEN(asf->prop_flags & ASF_PL_MASK_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_SIZE,
1280                  ASF_PL_FLAG_MEDIA_OBJECT_NUMBER_LENGTH_FIELD_, media_len);
1281         READ_LEN(asf->prop_flags & ASF_PL_MASK_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_SIZE,
1282                  ASF_PL_FLAG_OFFSET_INTO_MEDIA_OBJECT_LENGTH_FIELD_, off_len);
1283         READ_LEN(asf->prop_flags & ASF_PL_MASK_REPLICATED_DATA_LENGTH_FIELD_SIZE,
1284                  ASF_PL_FLAG_REPLICATED_DATA_LENGTH_FIELD_, asf->rep_data_len);
1285         if (asf_pkt->size_left && (asf_pkt->frame_num != media_len)) {
1286             av_log(s, AV_LOG_WARNING, "Unfinished frame will be ignored\n");
1287             reset_packet(asf_pkt);
1288         }
1289         asf_pkt->frame_num = media_len;
1290         asf->sub_dts = off_len;
1291         if (asf->nb_mult_left) {
1292             if ((ret = asf_read_multiple_payload(s, pkt, asf_pkt)) < 0)
1293                 return ret;
1294         } else if (asf->rep_data_len == 1) {
1295             asf->sub_left = 1;
1296             asf->state    = READ_SINGLE;
1297             pkt->flags    = asf_pkt->flags;
1298             if ((ret = asf_read_subpayload(s, pkt, 1)) < 0)
1299                 return ret;
1300         } else {
1301             if ((ret = asf_read_single_payload(s, pkt, asf_pkt)) < 0)
1302                 return ret;
1303         }
1304     } else {
1305         for (i = 0; i <= asf->nb_streams; i++) {
1306             if (asf->stream_index == asf->asf_st[i]->stream_index) {
1307                 asf_pkt = &asf->asf_st[i]->pkt;
1308                 break;
1309             }
1310         }
1311         if (!asf_pkt)
1312             return AVERROR_INVALIDDATA;
1313         pkt->flags         = asf_pkt->flags;
1314         pkt->dts           = asf_pkt->dts;
1315         pkt->stream_index  = asf->asf_st[i]->index;
1316         if ((ret = asf_read_subpayload(s, pkt, 0)) < 0) // read subpayload without its header
1317             return ret;
1318     }
1319
1320     return 0;
1321 }
1322
1323 static int asf_read_packet_header(AVFormatContext *s)
1324 {
1325     ASFContext *asf = s->priv_data;
1326     AVIOContext *pb = s->pb;
1327     uint64_t size;
1328     uint32_t av_unused seq;
1329     unsigned char error_flags, len_flags, pay_flags;
1330
1331     asf->packet_offset = avio_tell(pb);
1332     error_flags = avio_r8(pb); // read Error Correction Flags
1333     if (error_flags & ASF_PACKET_FLAG_ERROR_CORRECTION_PRESENT) {
1334         if (!(error_flags & ASF_ERROR_CORRECTION_LENGTH_TYPE)) {
1335             size = error_flags & ASF_PACKET_ERROR_CORRECTION_DATA_SIZE;
1336             avio_skip(pb, size);
1337         }
1338         len_flags       = avio_r8(pb);
1339     } else
1340         len_flags = error_flags;
1341     asf->prop_flags = avio_r8(pb);
1342     READ_LEN(len_flags & ASF_PPI_MASK_PACKET_LENGTH_FIELD_SIZE,
1343              ASF_PPI_FLAG_PACKET_LENGTH_FIELD_, asf->packet_size_internal);
1344     READ_LEN(len_flags & ASF_PPI_MASK_SEQUENCE_FIELD_SIZE,
1345              ASF_PPI_FLAG_SEQUENCE_FIELD_, seq);
1346     READ_LEN(len_flags & ASF_PPI_MASK_PADDING_LENGTH_FIELD_SIZE,
1347              ASF_PPI_FLAG_PADDING_LENGTH_FIELD_, asf->pad_len );
1348     asf->send_time = avio_rl32(pb); // send time
1349     avio_skip(pb, 2); // skip duration
1350     if (len_flags & ASF_PPI_FLAG_MULTIPLE_PAYLOADS_PRESENT) { // Multiple Payloads present
1351         pay_flags = avio_r8(pb);
1352         asf->nb_mult_left = (pay_flags & ASF_NUM_OF_PAYLOADS);
1353     }
1354
1355     return 0;
1356 }
1357
1358 static int asf_deinterleave(AVFormatContext *s, ASFPacket *asf_pkt, int st_num)
1359 {
1360     ASFContext *asf    = s->priv_data;
1361     ASFStream *asf_st  = asf->asf_st[st_num];
1362     unsigned char *p   = asf_pkt->avpkt.data;
1363     uint16_t pkt_len   = asf->asf_st[st_num]->virtual_pkt_len;
1364     uint16_t chunk_len = asf->asf_st[st_num]->virtual_chunk_len;
1365     int nchunks        = pkt_len / chunk_len;
1366     AVPacket pkt;
1367     int pos = 0, j, l, ret;
1368
1369
1370     if ((ret = av_new_packet(&pkt, asf_pkt->data_size)) < 0)
1371         return ret;
1372
1373     while (asf_pkt->data_size >= asf_st->span * pkt_len + pos) {
1374         if (pos >= asf_pkt->data_size) {
1375             break;
1376         }
1377         for (l = 0; l < pkt_len; l++) {
1378             if (pos >= asf_pkt->data_size) {
1379                 break;
1380             }
1381             for (j = 0; j < asf_st->span; j++) {
1382                 if ((pos + chunk_len) >= asf_pkt->data_size)
1383                     break;
1384                 memcpy(pkt.data + pos,
1385                        p + (j * nchunks + l) * chunk_len,
1386                        chunk_len);
1387                 pos += chunk_len;
1388             }
1389         }
1390         p += asf_st->span * pkt_len;
1391         if (p > asf_pkt->avpkt.data + asf_pkt->data_size)
1392             break;
1393     }
1394     av_free_packet(&asf_pkt->avpkt);
1395     asf_pkt->avpkt = pkt;
1396
1397     return 0;
1398 }
1399
1400 static int asf_read_packet(AVFormatContext *s, AVPacket *pkt)
1401 {
1402     ASFContext *asf = s->priv_data;
1403     AVIOContext *pb = s->pb;
1404     int ret, i;
1405
1406     if ((avio_tell(pb) >= asf->data_offset + asf->data_size) &&
1407         !(asf->b_flags & ASF_FLAG_BROADCAST))
1408         return AVERROR_EOF;
1409     while (!pb->eof_reached) {
1410         if (asf->state == PARSE_PACKET_HEADER) {
1411             asf_read_packet_header(s);
1412             if (!asf->nb_mult_left)
1413                 asf->state = READ_SINGLE;
1414             else
1415                 asf->state = READ_MULTI;
1416         }
1417         if ((ret = asf_read_payload(s, pkt)) < 0)
1418             return ret;
1419         switch (asf->state) {
1420         case READ_SINGLE:
1421             if (!asf->sub_left)
1422                 asf->state = PARSE_PACKET_HEADER;
1423             break;
1424         case READ_MULTI_SUB:
1425             if (!asf->sub_left && !asf->nb_mult_left) {
1426                 asf->state = PARSE_PACKET_HEADER;
1427                 if (!asf->return_subpayload)
1428                     avio_skip(pb, asf->pad_len); // skip padding
1429                 if (asf->packet_offset + asf->packet_size > avio_tell(pb))
1430                     avio_seek(pb, asf->packet_offset + asf->packet_size, SEEK_SET);
1431             } else if (!asf->sub_left)
1432                 asf->state = READ_MULTI;
1433             break;
1434         case READ_MULTI:
1435             if (!asf->nb_mult_left) {
1436                 asf->state = PARSE_PACKET_HEADER;
1437                 if (!asf->return_subpayload) {
1438                     avio_skip(pb, asf->pad_len); // skip padding
1439                 }
1440                 if (asf->packet_offset + asf->packet_size > avio_tell(pb))
1441                     avio_seek(pb, asf->packet_offset + asf->packet_size, SEEK_SET);
1442             }
1443             break;
1444         }
1445         if (asf->return_subpayload) {
1446             asf->return_subpayload = 0;
1447             return 0;
1448         }
1449         for (i = 0; i < s->nb_streams; i++) {
1450             ASFPacket *asf_pkt = &asf->asf_st[i]->pkt;
1451             if (asf_pkt && !asf_pkt->size_left && asf_pkt->data_size) {
1452                 if (asf->asf_st[i]->span > 1 &&
1453                     asf->asf_st[i]->type == AVMEDIA_TYPE_AUDIO)
1454                     if ((ret = asf_deinterleave(s, asf_pkt, i)) < 0)
1455                         return ret;
1456                 av_packet_move_ref(pkt, &asf_pkt->avpkt);
1457                 pkt->stream_index  = asf->asf_st[i]->index;
1458                 pkt->flags         = asf_pkt->flags;
1459                 pkt->dts           = asf_pkt->dts - asf->preroll;
1460                 asf_pkt->data_size = 0;
1461                 asf_pkt->frame_num = 0;
1462                 return 0;
1463             }
1464         }
1465     }
1466
1467     if (pb->eof_reached)
1468         return AVERROR_EOF;
1469
1470     return 0;
1471 }
1472
1473 static int asf_read_close(AVFormatContext *s)
1474 {
1475     ASFContext *asf = s->priv_data;
1476     int i;
1477
1478     for (i = 0; i < ASF_MAX_STREAMS; i++) {
1479         av_dict_free(&asf->asf_sd[i].asf_met);
1480         if (i < asf->nb_streams) {
1481             av_free_packet(&asf->asf_st[i]->pkt.avpkt);
1482             av_freep(&asf->asf_st[i]);
1483         }
1484     }
1485
1486     asf->nb_streams = 0;
1487     return 0;
1488 }
1489
1490 static void reset_packet_state(AVFormatContext *s)
1491 {
1492     ASFContext *asf        = s->priv_data;
1493     int i;
1494
1495     asf->state             = PARSE_PACKET_HEADER;
1496     asf->offset            = 0;
1497     asf->return_subpayload = 0;
1498     asf->sub_left          = 0;
1499     asf->sub_header_offset = 0;
1500     asf->packet_offset     = asf->first_packet_offset;
1501     asf->pad_len           = 0;
1502     asf->rep_data_len      = 0;
1503     asf->dts_delta         = 0;
1504     asf->mult_sub_len      = 0;
1505     asf->nb_mult_left      = 0;
1506     asf->nb_sub            = 0;
1507     asf->prop_flags        = 0;
1508     asf->sub_dts           = 0;
1509     for (i = 0; i < asf->nb_streams; i++) {
1510         ASFPacket *pkt = &asf->asf_st[i]->pkt;
1511         pkt->size_left = 0;
1512         pkt->data_size = 0;
1513         pkt->duration  = 0;
1514         pkt->flags     = 0;
1515         pkt->dts       = 0;
1516         pkt->duration  = 0;
1517         av_free_packet(&pkt->avpkt);
1518         av_init_packet(&pkt->avpkt);
1519     }
1520 }
1521
1522 /*
1523  * Find a timestamp for the requested position within the payload
1524  * where the pos (position) is the offset inside the Data Object.
1525  * When position is not on the packet boundary, asf_read_timestamp tries
1526  * to find the closest packet offset after this position. If this packet
1527  * is a key frame, this packet timestamp is read and an index entry is created
1528  * for the packet. If this packet belongs to the requested stream,
1529  * asf_read_timestamp upgrades pos to the packet beginning offset and
1530  * returns this packet's dts. So returned dts is the dts of the first key frame with
1531  * matching stream number after given position.
1532  */
1533 static int64_t asf_read_timestamp(AVFormatContext *s, int stream_index,
1534                                   int64_t *pos, int64_t pos_limit)
1535 {
1536     ASFContext *asf = s->priv_data;
1537     int64_t pkt_pos = *pos, pkt_offset, dts = AV_NOPTS_VALUE, data_end;
1538     AVPacket pkt;
1539     int n;
1540
1541     data_end = asf->data_offset + asf->data_size;
1542
1543     n = (pkt_pos - asf->first_packet_offset + asf->packet_size - 1) /
1544         asf->packet_size;
1545     n = av_clip(n, 0, ((data_end - asf->first_packet_offset) / asf->packet_size - 1));
1546     pkt_pos = asf->first_packet_offset +  n * asf->packet_size;
1547
1548     avio_seek(s->pb, pkt_pos, SEEK_SET);
1549     pkt_offset = pkt_pos;
1550
1551     reset_packet_state(s);
1552     while (avio_tell(s->pb) < data_end) {
1553
1554         int i, ret, st_found;
1555
1556         av_init_packet(&pkt);
1557         pkt_offset = avio_tell(s->pb);
1558         if ((ret = asf_read_packet(s, &pkt)) < 0) {
1559             dts = AV_NOPTS_VALUE;
1560             return ret;
1561         }
1562         // ASFPacket may contain fragments of packets belonging to different streams,
1563         // pkt_offset is the offset of the first fragment within it.
1564         if ((pkt_offset >= (pkt_pos + asf->packet_size)))
1565             pkt_pos += asf->packet_size;
1566         for (i = 0; i < asf->nb_streams; i++) {
1567             ASFStream *st = asf->asf_st[i];
1568
1569             st_found = 0;
1570             if (pkt.flags & AV_PKT_FLAG_KEY) {
1571                 dts = pkt.dts;
1572                 if (dts) {
1573                     av_add_index_entry(s->streams[pkt.stream_index], pkt_pos,
1574                                        dts, pkt.size, 0, AVINDEX_KEYFRAME);
1575                     if (stream_index == st->index) {
1576                         st_found = 1;
1577                         break;
1578                     }
1579                 }
1580             }
1581         }
1582         if (st_found)
1583             break;
1584         av_free_packet(&pkt);
1585     }
1586     *pos = pkt_pos;
1587
1588     av_free_packet(&pkt);
1589     return dts;
1590 }
1591
1592 static int asf_read_seek(AVFormatContext *s, int stream_index,
1593                          int64_t timestamp, int flags)
1594 {
1595     ASFContext *asf = s->priv_data;
1596     int idx, ret;
1597
1598     if (s->streams[stream_index]->nb_index_entries && asf->is_simple_index) {
1599         idx = av_index_search_timestamp(s->streams[stream_index], timestamp, flags);
1600         if (idx < 0 || idx >= s->streams[stream_index]->nb_index_entries)
1601             return AVERROR_INVALIDDATA;
1602         avio_seek(s->pb, s->streams[stream_index]->index_entries[idx].pos, SEEK_SET);
1603     } else {
1604         if ((ret = ff_seek_frame_binary(s, stream_index, timestamp, flags)) < 0)
1605             return ret;
1606     }
1607
1608     reset_packet_state(s);
1609
1610     return 0;
1611 }
1612
1613 static const GUIDParseTable *find_guid(ff_asf_guid guid)
1614 {
1615     int j, ret;
1616     const GUIDParseTable *g;
1617
1618     swap_guid(guid);
1619     g = gdef;
1620     for (j = 0; j < FF_ARRAY_ELEMS(gdef); j++) {
1621         if (!(ret = memcmp(guid, g->guid, sizeof(g->guid))))
1622             return g;
1623         g++;
1624     }
1625
1626     return NULL;
1627 }
1628
1629 static int detect_unknown_subobject(AVFormatContext *s, int64_t offset, int64_t size)
1630 {
1631     ASFContext *asf = s->priv_data;
1632     AVIOContext *pb = s->pb;
1633     const GUIDParseTable *g = NULL;
1634     ff_asf_guid guid;
1635     int ret;
1636
1637     while (avio_tell(pb) <= offset + size) {
1638         if (avio_tell(pb) == asf->offset)
1639             break;
1640         asf->offset = avio_tell(pb);
1641         if ((ret = ff_get_guid(pb, &guid)) < 0)
1642             return ret;
1643         g = find_guid(guid);
1644         if (g) {
1645             if ((ret = g->read_object(s, g)) < 0)
1646                 return ret;
1647         } else {
1648             GUIDParseTable g2;
1649
1650             g2.name         = "Unknown";
1651             g2.is_subobject = 1;
1652             asf_read_unknown(s, &g2);
1653         }
1654     }
1655
1656     return 0;
1657 }
1658
1659 static int asf_read_header(AVFormatContext *s)
1660 {
1661     ASFContext *asf         = s->priv_data;
1662     AVIOContext *pb         = s->pb;
1663     const GUIDParseTable *g = NULL;
1664     ff_asf_guid guid;
1665     int i, ret;
1666     uint64_t size;
1667
1668     asf->preroll         = 0;
1669     asf->is_simple_index = 0;
1670     ff_get_guid(pb, &guid);
1671     if (ff_guidcmp(&guid, &ff_asf_header))
1672         return AVERROR_INVALIDDATA;
1673     avio_skip(pb, 8); // skip header object size
1674     avio_skip(pb, 6); // skip number of header objects and 2 reserved bytes
1675     asf->data_reached = 0;
1676
1677     /* 1  is here instead of pb->eof_reached because (when not streaming), Data are skipped
1678      * for the first time,
1679      * Index object is processed and got eof and then seeking back to the Data is performed.
1680      */
1681     while (1) {
1682         // for the cases when object size is invalid
1683         if (avio_tell(pb) == asf->offset)
1684             break;
1685         asf->offset = avio_tell(pb);
1686         if ((ret = ff_get_guid(pb, &guid)) < 0) {
1687             if (ret == AVERROR_EOF && asf->data_reached)
1688                 break;
1689             else
1690                 goto failed;
1691         }
1692         g = find_guid(guid);
1693         if (g) {
1694             asf->unknown_offset = asf->offset;
1695             asf->is_header = 1;
1696             if ((ret = g->read_object(s, g)) < 0)
1697                 goto failed;
1698         } else {
1699             size = avio_rl64(pb);
1700             align_position(pb, asf->offset, size);
1701         }
1702         if (asf->data_reached && (!pb->seekable || (asf->b_flags & ASF_FLAG_BROADCAST)))
1703             break;
1704     }
1705
1706     if (!asf->data_reached) {
1707         av_log(s, AV_LOG_ERROR, "Data Object was not found.\n");
1708         ret = AVERROR_INVALIDDATA;
1709         goto failed;
1710     }
1711     if (pb->seekable)
1712         avio_seek(pb, asf->first_packet_offset, SEEK_SET);
1713
1714     for (i = 0; i < asf->nb_streams; i++) {
1715         const char *rfc1766 = asf->asf_sd[asf->asf_st[i]->lang_idx].langs;
1716         AVStream *st        = s->streams[asf->asf_st[i]->index];
1717         set_language(s, rfc1766, &st->metadata);
1718     }
1719
1720     for (i = 0; i < ASF_MAX_STREAMS; i++) {
1721         AVStream *st = NULL;
1722
1723         st = find_stream(s, i);
1724         if (st) {
1725             av_dict_copy(&st->metadata, asf->asf_sd[i].asf_met, AV_DICT_IGNORE_SUFFIX);
1726             if (asf->asf_sd[i].aspect_ratio.num > 0 && asf->asf_sd[i].aspect_ratio.den > 0) {
1727                 st->sample_aspect_ratio.num = asf->asf_sd[i].aspect_ratio.num;
1728                 st->sample_aspect_ratio.den = asf->asf_sd[i].aspect_ratio.den;
1729             }
1730         }
1731     }
1732
1733     return 0;
1734
1735 failed:
1736     asf_read_close(s);
1737     return ret;
1738 }
1739
1740 AVInputFormat ff_asf_demuxer = {
1741     .name           = "asf",
1742     .long_name      = NULL_IF_CONFIG_SMALL("ASF (Advanced / Active Streaming Format)"),
1743     .priv_data_size = sizeof(ASFContext),
1744     .read_probe     = asf_probe,
1745     .read_header    = asf_read_header,
1746     .read_packet    = asf_read_packet,
1747     .read_close     = asf_read_close,
1748     .read_timestamp = asf_read_timestamp,
1749     .read_seek      = asf_read_seek,
1750     .flags          = AVFMT_NOBINSEARCH | AVFMT_NOGENSEARCH,
1751 };