1a18ab021441d105287ba89c5f8224709a998e8c
[ffmpeg.git] / libavformat / dashdec.c
1 /*
2  * Dynamic Adaptive Streaming over HTTP demux
3  * Copyright (c) 2017 samsamsam@o2.pl based on HLS demux
4  * Copyright (c) 2017 Steven Liu
5  *
6  * This file is part of FFmpeg.
7  *
8  * FFmpeg is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * FFmpeg is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with FFmpeg; if not, write to the Free Software
20  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
21  */
22 #include <libxml/parser.h>
23 #include "libavutil/intreadwrite.h"
24 #include "libavutil/opt.h"
25 #include "libavutil/time.h"
26 #include "libavutil/parseutils.h"
27 #include "internal.h"
28 #include "avio_internal.h"
29 #include "dash.h"
30
31 #define INITIAL_BUFFER_SIZE 32768
32
33 struct fragment {
34     int64_t url_offset;
35     int64_t size;
36     char *url;
37 };
38
39 /*
40  * reference to : ISO_IEC_23009-1-DASH-2012
41  * Section: 5.3.9.6.2
42  * Table: Table 17 — Semantics of SegmentTimeline element
43  * */
44 struct timeline {
45     /* starttime: Element or Attribute Name
46      * specifies the MPD start time, in @timescale units,
47      * the first Segment in the series starts relative to the beginning of the Period.
48      * The value of this attribute must be equal to or greater than the sum of the previous S
49      * element earliest presentation time and the sum of the contiguous Segment durations.
50      * If the value of the attribute is greater than what is expressed by the previous S element,
51      * it expresses discontinuities in the timeline.
52      * If not present then the value shall be assumed to be zero for the first S element
53      * and for the subsequent S elements, the value shall be assumed to be the sum of
54      * the previous S element's earliest presentation time and contiguous duration
55      * (i.e. previous S@starttime + @duration * (@repeat + 1)).
56      * */
57     int64_t starttime;
58     /* repeat: Element or Attribute Name
59      * specifies the repeat count of the number of following contiguous Segments with
60      * the same duration expressed by the value of @duration. This value is zero-based
61      * (e.g. a value of three means four Segments in the contiguous series).
62      * */
63     int64_t repeat;
64     /* duration: Element or Attribute Name
65      * specifies the Segment duration, in units of the value of the @timescale.
66      * */
67     int64_t duration;
68 };
69
70 /*
71  * Each playlist has its own demuxer. If it is currently active,
72  * it has an opened AVIOContext too, and potentially an AVPacket
73  * containing the next packet from this stream.
74  */
75 struct representation {
76     char *url_template;
77     AVIOContext pb;
78     AVIOContext *input;
79     AVFormatContext *parent;
80     AVFormatContext *ctx;
81     AVPacket pkt;
82     int rep_idx;
83     int rep_count;
84     int stream_index;
85
86     enum AVMediaType type;
87     char id[20];
88     int bandwidth;
89
90     int n_fragments;
91     struct fragment **fragments; /* VOD list of fragment for profile */
92
93     int n_timelines;
94     struct timeline **timelines;
95
96     int64_t first_seq_no;
97     int64_t last_seq_no;
98     int64_t start_number; /* used in case when we have dynamic list of segment to know which segments are new one*/
99
100     int64_t fragment_duration;
101     int64_t fragment_timescale;
102
103     int64_t presentation_timeoffset;
104
105     int64_t cur_seq_no;
106     int64_t cur_seg_offset;
107     int64_t cur_seg_size;
108     struct fragment *cur_seg;
109
110     /* Currently active Media Initialization Section */
111     struct fragment *init_section;
112     uint8_t *init_sec_buf;
113     uint32_t init_sec_buf_size;
114     uint32_t init_sec_data_len;
115     uint32_t init_sec_buf_read_offset;
116     int64_t cur_timestamp;
117     int is_restart_needed;
118 };
119
120 typedef struct DASHContext {
121     const AVClass *class;
122     char *base_url;
123     struct representation *cur_video;
124     struct representation *cur_audio;
125
126     /* MediaPresentationDescription Attribute */
127     uint64_t media_presentation_duration;
128     uint64_t suggested_presentation_delay;
129     uint64_t availability_start_time;
130     uint64_t publish_time;
131     uint64_t minimum_update_period;
132     uint64_t time_shift_buffer_depth;
133     uint64_t min_buffer_time;
134
135     /* Period Attribute */
136     uint64_t period_duration;
137     uint64_t period_start;
138
139     int is_live;
140     AVIOInterruptCB *interrupt_callback;
141     char *user_agent;                    ///< holds HTTP user agent set as an AVOption to the HTTP protocol context
142     char *cookies;                       ///< holds HTTP cookie values set in either the initial response or as an AVOption to the HTTP protocol context
143     char *headers;                       ///< holds HTTP headers set as an AVOption to the HTTP protocol context
144     char *allowed_extensions;
145     AVDictionary *avio_opts;
146 } DASHContext;
147
148 static uint64_t get_current_time_in_sec(void)
149 {
150     return  av_gettime() / 1000000;
151 }
152
153 static uint64_t get_utc_date_time_insec(AVFormatContext *s, const char *datetime)
154 {
155     struct tm timeinfo;
156     int year = 0;
157     int month = 0;
158     int day = 0;
159     int hour = 0;
160     int minute = 0;
161     int ret = 0;
162     float second = 0.0;
163
164     /* ISO-8601 date parser */
165     if (!datetime)
166         return 0;
167
168     ret = sscanf(datetime, "%d-%d-%dT%d:%d:%fZ", &year, &month, &day, &hour, &minute, &second);
169     /* year, month, day, hour, minute, second  6 arguments */
170     if (ret != 6) {
171         av_log(s, AV_LOG_WARNING, "get_utc_date_time_insec get a wrong time format\n");
172     }
173     timeinfo.tm_year = year - 1900;
174     timeinfo.tm_mon  = month - 1;
175     timeinfo.tm_mday = day;
176     timeinfo.tm_hour = hour;
177     timeinfo.tm_min  = minute;
178     timeinfo.tm_sec  = (int)second;
179
180     return av_timegm(&timeinfo);
181 }
182
183 static uint32_t get_duration_insec(AVFormatContext *s, const char *duration)
184 {
185     /* ISO-8601 duration parser */
186     uint32_t days = 0;
187     uint32_t hours = 0;
188     uint32_t mins = 0;
189     uint32_t secs = 0;
190     int size = 0;
191     float value = 0;
192     char type = '\0';
193     const char *ptr = duration;
194
195     while (*ptr) {
196         if (*ptr == 'P' || *ptr == 'T') {
197             ptr++;
198             continue;
199         }
200
201         if (sscanf(ptr, "%f%c%n", &value, &type, &size) != 2) {
202             av_log(s, AV_LOG_WARNING, "get_duration_insec get a wrong time format\n");
203             return 0; /* parser error */
204         }
205         switch (type) {
206             case 'D':
207                 days = (uint32_t)value;
208                 break;
209             case 'H':
210                 hours = (uint32_t)value;
211                 break;
212             case 'M':
213                 mins = (uint32_t)value;
214                 break;
215             case 'S':
216                 secs = (uint32_t)value;
217                 break;
218             default:
219                 // handle invalid type
220                 break;
221         }
222         ptr += size;
223     }
224     return  ((days * 24 + hours) * 60 + mins) * 60 + secs;
225 }
226
227 static int64_t get_segment_start_time_based_on_timeline(struct representation *pls, int64_t cur_seq_no)
228 {
229     int64_t start_time = 0;
230     int64_t i = 0;
231     int64_t j = 0;
232     int64_t num = 0;
233
234     if (pls->n_timelines) {
235         for (i = 0; i < pls->n_timelines; i++) {
236             if (pls->timelines[i]->starttime > 0) {
237                 start_time = pls->timelines[i]->starttime;
238             }
239             if (num == cur_seq_no)
240                 goto finish;
241
242             start_time += pls->timelines[i]->duration;
243             for (j = 0; j < pls->timelines[i]->repeat; j++) {
244                 num++;
245                 if (num == cur_seq_no)
246                     goto finish;
247                 start_time += pls->timelines[i]->duration;
248             }
249             num++;
250         }
251     }
252 finish:
253     return start_time;
254 }
255
256 static int64_t calc_next_seg_no_from_timelines(struct representation *pls, int64_t cur_time)
257 {
258     int64_t i = 0;
259     int64_t j = 0;
260     int64_t num = 0;
261     int64_t start_time = 0;
262
263     for (i = 0; i < pls->n_timelines; i++) {
264         if (pls->timelines[i]->starttime > 0) {
265             start_time = pls->timelines[i]->starttime;
266         }
267         if (start_time > cur_time)
268             goto finish;
269
270         start_time += pls->timelines[i]->duration;
271         for (j = 0; j < pls->timelines[i]->repeat; j++) {
272             num++;
273             if (start_time > cur_time)
274                 goto finish;
275             start_time += pls->timelines[i]->duration;
276         }
277         num++;
278     }
279
280     return -1;
281
282 finish:
283     return num;
284 }
285
286 static void free_fragment(struct fragment **seg)
287 {
288     if (!(*seg)) {
289         return;
290     }
291     av_freep(&(*seg)->url);
292     av_freep(seg);
293 }
294
295 static void free_fragment_list(struct representation *pls)
296 {
297     int i;
298
299     for (i = 0; i < pls->n_fragments; i++) {
300         free_fragment(&pls->fragments[i]);
301     }
302     av_freep(&pls->fragments);
303     pls->n_fragments = 0;
304 }
305
306 static void free_timelines_list(struct representation *pls)
307 {
308     int i;
309
310     for (i = 0; i < pls->n_timelines; i++) {
311         av_freep(&pls->timelines[i]);
312     }
313     av_freep(&pls->timelines);
314     pls->n_timelines = 0;
315 }
316
317 static void free_representation(struct representation *pls)
318 {
319     free_fragment_list(pls);
320     free_timelines_list(pls);
321     free_fragment(&pls->cur_seg);
322     free_fragment(&pls->init_section);
323     av_freep(&pls->init_sec_buf);
324     av_freep(&pls->pb.buffer);
325     if (pls->input)
326         ff_format_io_close(pls->parent, &pls->input);
327     if (pls->ctx) {
328         pls->ctx->pb = NULL;
329         avformat_close_input(&pls->ctx);
330     }
331
332     av_freep(&pls->url_template);
333     av_freep(&pls);
334 }
335
336 static void set_httpheader_options(DASHContext *c, AVDictionary **opts)
337 {
338     // broker prior HTTP options that should be consistent across requests
339     av_dict_set(opts, "user-agent", c->user_agent, 0);
340     av_dict_set(opts, "cookies", c->cookies, 0);
341     av_dict_set(opts, "headers", c->headers, 0);
342     if (c->is_live) {
343         av_dict_set(opts, "seekable", "0", 0);
344     }
345 }
346 static void update_options(char **dest, const char *name, void *src)
347 {
348     av_freep(dest);
349     av_opt_get(src, name, AV_OPT_SEARCH_CHILDREN, (uint8_t**)dest);
350     if (*dest)
351         av_freep(dest);
352 }
353
354 static int open_url(AVFormatContext *s, AVIOContext **pb, const char *url,
355                     AVDictionary *opts, AVDictionary *opts2, int *is_http)
356 {
357     DASHContext *c = s->priv_data;
358     AVDictionary *tmp = NULL;
359     const char *proto_name = NULL;
360     int ret;
361
362     av_dict_copy(&tmp, opts, 0);
363     av_dict_copy(&tmp, opts2, 0);
364
365     if (av_strstart(url, "crypto", NULL)) {
366         if (url[6] == '+' || url[6] == ':')
367             proto_name = avio_find_protocol_name(url + 7);
368     }
369
370     if (!proto_name)
371         proto_name = avio_find_protocol_name(url);
372
373     if (!proto_name)
374         return AVERROR_INVALIDDATA;
375
376     // only http(s) & file are allowed
377     if (av_strstart(proto_name, "file", NULL)) {
378         if (strcmp(c->allowed_extensions, "ALL") && !av_match_ext(url, c->allowed_extensions)) {
379             av_log(s, AV_LOG_ERROR,
380                 "Filename extension of \'%s\' is not a common multimedia extension, blocked for security reasons.\n"
381                 "If you wish to override this adjust allowed_extensions, you can set it to \'ALL\' to allow all\n",
382                 url);
383             return AVERROR_INVALIDDATA;
384         }
385     } else if (av_strstart(proto_name, "http", NULL)) {
386         ;
387     } else
388         return AVERROR_INVALIDDATA;
389
390     if (!strncmp(proto_name, url, strlen(proto_name)) && url[strlen(proto_name)] == ':')
391         ;
392     else if (av_strstart(url, "crypto", NULL) && !strncmp(proto_name, url + 7, strlen(proto_name)) && url[7 + strlen(proto_name)] == ':')
393         ;
394     else if (strcmp(proto_name, "file") || !strncmp(url, "file,", 5))
395         return AVERROR_INVALIDDATA;
396
397     ret = s->io_open(s, pb, url, AVIO_FLAG_READ, &tmp);
398     if (ret >= 0) {
399         // update cookies on http response with setcookies.
400         char *new_cookies = NULL;
401
402         if (!(s->flags & AVFMT_FLAG_CUSTOM_IO))
403             av_opt_get(*pb, "cookies", AV_OPT_SEARCH_CHILDREN, (uint8_t**)&new_cookies);
404
405         if (new_cookies) {
406             av_free(c->cookies);
407             c->cookies = new_cookies;
408         }
409
410         av_dict_set(&opts, "cookies", c->cookies, 0);
411     }
412
413     av_dict_free(&tmp);
414
415     if (is_http)
416         *is_http = av_strstart(proto_name, "http", NULL);
417
418     return ret;
419 }
420
421 static char *get_content_url(xmlNodePtr *baseurl_nodes,
422                              int n_baseurl_nodes,
423                              char *rep_id_val,
424                              char *rep_bandwidth_val,
425                              char *val)
426 {
427     int i;
428     char *text;
429     char *url = NULL;
430     char tmp_str[MAX_URL_SIZE];
431     char tmp_str_2[MAX_URL_SIZE];
432
433     memset(tmp_str, 0, sizeof(tmp_str));
434
435     for (i = 0; i < n_baseurl_nodes; ++i) {
436         if (baseurl_nodes[i] &&
437             baseurl_nodes[i]->children &&
438             baseurl_nodes[i]->children->type == XML_TEXT_NODE) {
439             text = xmlNodeGetContent(baseurl_nodes[i]->children);
440             if (text) {
441                 memset(tmp_str, 0, sizeof(tmp_str));
442                 memset(tmp_str_2, 0, sizeof(tmp_str_2));
443                 ff_make_absolute_url(tmp_str_2, MAX_URL_SIZE, tmp_str, text);
444                 av_strlcpy(tmp_str, tmp_str_2, sizeof(tmp_str));
445                 xmlFree(text);
446             }
447         }
448     }
449
450     if (val)
451         av_strlcat(tmp_str, (const char*)val, sizeof(tmp_str));
452
453     if (rep_id_val) {
454         url = av_strireplace(tmp_str, "$RepresentationID$", (const char*)rep_id_val);
455         if (!url) {
456             return NULL;
457         }
458         av_strlcpy(tmp_str, url, sizeof(tmp_str));
459         av_free(url);
460     }
461     if (rep_bandwidth_val && tmp_str[0] != '\0') {
462         url = av_strireplace(tmp_str, "$Bandwidth$", (const char*)rep_bandwidth_val);
463         if (!url) {
464             return NULL;
465         }
466     }
467     return url;
468 }
469
470 static char *get_val_from_nodes_tab(xmlNodePtr *nodes, const int n_nodes, const char *attrname)
471 {
472     int i;
473     char *val;
474
475     for (i = 0; i < n_nodes; ++i) {
476         if (nodes[i]) {
477             val = xmlGetProp(nodes[i], attrname);
478             if (val)
479                 return val;
480         }
481     }
482
483     return NULL;
484 }
485
486 static xmlNodePtr find_child_node_by_name(xmlNodePtr rootnode, const char *nodename)
487 {
488     xmlNodePtr node = rootnode;
489     if (!node) {
490         return NULL;
491     }
492
493     node = xmlFirstElementChild(node);
494     while (node) {
495         if (!av_strcasecmp(node->name, nodename)) {
496             return node;
497         }
498         node = xmlNextElementSibling(node);
499     }
500     return NULL;
501 }
502
503 static enum AVMediaType get_content_type(xmlNodePtr node)
504 {
505     enum AVMediaType type = AVMEDIA_TYPE_UNKNOWN;
506     int i = 0;
507     const char *attr;
508     char *val = NULL;
509
510     if (node) {
511         for (i = 0; i < 2; i++) {
512             attr = i ? "mimeType" : "contentType";
513             val = xmlGetProp(node, attr);
514             if (val) {
515                 if (av_stristr((const char *)val, "video")) {
516                     type = AVMEDIA_TYPE_VIDEO;
517                 } else if (av_stristr((const char *)val, "audio")) {
518                     type = AVMEDIA_TYPE_AUDIO;
519                 }
520                 xmlFree(val);
521             }
522         }
523     }
524     return type;
525 }
526
527 static int parse_manifest_segmenturlnode(AVFormatContext *s, struct representation *rep,
528                                          xmlNodePtr fragmenturl_node,
529                                          xmlNodePtr *baseurl_nodes,
530                                          char *rep_id_val,
531                                          char *rep_bandwidth_val)
532 {
533     char *initialization_val = NULL;
534     char *media_val = NULL;
535
536     if (!av_strcasecmp(fragmenturl_node->name, (const char *)"Initialization")) {
537         initialization_val = xmlGetProp(fragmenturl_node, "sourceURL");
538         if (initialization_val) {
539             rep->init_section = av_mallocz(sizeof(struct fragment));
540             if (!rep->init_section) {
541                 xmlFree(initialization_val);
542                 return AVERROR(ENOMEM);
543             }
544             rep->init_section->url = get_content_url(baseurl_nodes, 4,
545                                                      rep_id_val,
546                                                      rep_bandwidth_val,
547                                                      initialization_val);
548             if (!rep->init_section->url) {
549                 av_free(rep->init_section);
550                 xmlFree(initialization_val);
551                 return AVERROR(ENOMEM);
552             }
553             rep->init_section->size = -1;
554             xmlFree(initialization_val);
555         }
556     } else if (!av_strcasecmp(fragmenturl_node->name, (const char *)"SegmentURL")) {
557         media_val = xmlGetProp(fragmenturl_node, "media");
558         if (media_val) {
559             struct fragment *seg = av_mallocz(sizeof(struct fragment));
560             if (!seg) {
561                 xmlFree(media_val);
562                 return AVERROR(ENOMEM);
563             }
564             seg->url = get_content_url(baseurl_nodes, 4,
565                                        rep_id_val,
566                                        rep_bandwidth_val,
567                                        media_val);
568             if (!seg->url) {
569                 av_free(seg);
570                 xmlFree(media_val);
571                 return AVERROR(ENOMEM);
572             }
573             seg->size = -1;
574             dynarray_add(&rep->fragments, &rep->n_fragments, seg);
575             xmlFree(media_val);
576         }
577     }
578
579     return 0;
580 }
581
582 static int parse_manifest_segmenttimeline(AVFormatContext *s, struct representation *rep,
583                                           xmlNodePtr fragment_timeline_node)
584 {
585     xmlAttrPtr attr = NULL;
586     char *val  = NULL;
587
588     if (!av_strcasecmp(fragment_timeline_node->name, (const char *)"S")) {
589         struct timeline *tml = av_mallocz(sizeof(struct timeline));
590         if (!tml) {
591             return AVERROR(ENOMEM);
592         }
593         attr = fragment_timeline_node->properties;
594         while (attr) {
595             val = xmlGetProp(fragment_timeline_node, attr->name);
596
597             if (!val) {
598                 av_log(s, AV_LOG_WARNING, "parse_manifest_segmenttimeline attr->name = %s val is NULL\n", attr->name);
599                 continue;
600             }
601
602             if (!av_strcasecmp(attr->name, (const char *)"t")) {
603                 tml->starttime = (int64_t)strtoll(val, NULL, 10);
604             } else if (!av_strcasecmp(attr->name, (const char *)"r")) {
605                 tml->repeat =(int64_t) strtoll(val, NULL, 10);
606             } else if (!av_strcasecmp(attr->name, (const char *)"d")) {
607                 tml->duration = (int64_t)strtoll(val, NULL, 10);
608             }
609             attr = attr->next;
610             xmlFree(val);
611         }
612         dynarray_add(&rep->timelines, &rep->n_timelines, tml);
613     }
614
615     return 0;
616 }
617
618 static int parse_manifest_representation(AVFormatContext *s, const char *url,
619                                          xmlNodePtr node,
620                                          xmlNodePtr adaptionset_node,
621                                          xmlNodePtr mpd_baseurl_node,
622                                          xmlNodePtr period_baseurl_node,
623                                          xmlNodePtr fragment_template_node,
624                                          xmlNodePtr content_component_node,
625                                          xmlNodePtr adaptionset_baseurl_node)
626 {
627     int32_t ret = 0;
628     int32_t audio_rep_idx = 0;
629     int32_t video_rep_idx = 0;
630     DASHContext *c = s->priv_data;
631     struct representation *rep = NULL;
632     struct fragment *seg = NULL;
633     xmlNodePtr representation_segmenttemplate_node = NULL;
634     xmlNodePtr representation_baseurl_node = NULL;
635     xmlNodePtr representation_segmentlist_node = NULL;
636     xmlNodePtr fragment_timeline_node = NULL;
637     xmlNodePtr fragment_templates_tab[2];
638     char *duration_val = NULL;
639     char *presentation_timeoffset_val = NULL;
640     char *startnumber_val = NULL;
641     char *timescale_val = NULL;
642     char *initialization_val = NULL;
643     char *media_val = NULL;
644     xmlNodePtr baseurl_nodes[4];
645     xmlNodePtr representation_node = node;
646     char *rep_id_val = xmlGetProp(representation_node, "id");
647     char *rep_bandwidth_val = xmlGetProp(representation_node, "bandwidth");
648     enum AVMediaType type = AVMEDIA_TYPE_UNKNOWN;
649
650     // try get information from representation
651     if (type == AVMEDIA_TYPE_UNKNOWN)
652         type = get_content_type(representation_node);
653     // try get information from contentComponen
654     if (type == AVMEDIA_TYPE_UNKNOWN)
655         type = get_content_type(content_component_node);
656     // try get information from adaption set
657     if (type == AVMEDIA_TYPE_UNKNOWN)
658         type = get_content_type(adaptionset_node);
659     if (type == AVMEDIA_TYPE_UNKNOWN) {
660         av_log(s, AV_LOG_VERBOSE, "Parsing '%s' - skipp not supported representation type\n", url);
661     } else if ((type == AVMEDIA_TYPE_VIDEO && !c->cur_video) || (type == AVMEDIA_TYPE_AUDIO && !c->cur_audio)) {
662         // convert selected representation to our internal struct
663         rep = av_mallocz(sizeof(struct representation));
664         if (!rep) {
665             ret = AVERROR(ENOMEM);
666             goto end;
667         }
668         representation_segmenttemplate_node = find_child_node_by_name(representation_node, "SegmentTemplate");
669         representation_baseurl_node = find_child_node_by_name(representation_node, "BaseURL");
670         representation_segmentlist_node = find_child_node_by_name(representation_node, "SegmentList");
671
672         baseurl_nodes[0] = mpd_baseurl_node;
673         baseurl_nodes[1] = period_baseurl_node;
674         baseurl_nodes[2] = adaptionset_baseurl_node;
675         baseurl_nodes[3] = representation_baseurl_node;
676
677         if (representation_segmenttemplate_node || fragment_template_node) {
678             fragment_timeline_node = NULL;
679             fragment_templates_tab[0] = representation_segmenttemplate_node;
680             fragment_templates_tab[1] = fragment_template_node;
681
682             presentation_timeoffset_val = get_val_from_nodes_tab(fragment_templates_tab, 2, "presentationTimeOffset");
683             duration_val = get_val_from_nodes_tab(fragment_templates_tab, 2, "duration");
684             startnumber_val = get_val_from_nodes_tab(fragment_templates_tab, 2, "startNumber");
685             timescale_val = get_val_from_nodes_tab(fragment_templates_tab, 2, "timescale");
686             initialization_val = get_val_from_nodes_tab(fragment_templates_tab, 2, "initialization");
687             media_val = get_val_from_nodes_tab(fragment_templates_tab, 2, "media");
688
689             if (initialization_val) {
690                 rep->init_section = av_mallocz(sizeof(struct fragment));
691                 if (!rep->init_section) {
692                     av_free(rep);
693                     ret = AVERROR(ENOMEM);
694                     goto end;
695                 }
696                 rep->init_section->url = get_content_url(baseurl_nodes, 4, rep_id_val, rep_bandwidth_val, initialization_val);
697                 if (!rep->init_section->url) {
698                     av_free(rep->init_section);
699                     av_free(rep);
700                     ret = AVERROR(ENOMEM);
701                     goto end;
702                 }
703                 rep->init_section->size = -1;
704                 xmlFree(initialization_val);
705             }
706
707             if (media_val) {
708                 rep->url_template = get_content_url(baseurl_nodes, 4, rep_id_val, rep_bandwidth_val, media_val);
709                 xmlFree(media_val);
710             }
711
712             if (presentation_timeoffset_val) {
713                 rep->presentation_timeoffset = (int64_t) strtoll(presentation_timeoffset_val, NULL, 10);
714                 xmlFree(presentation_timeoffset_val);
715             }
716             if (duration_val) {
717                 rep->fragment_duration = (int64_t) strtoll(duration_val, NULL, 10);
718                 xmlFree(duration_val);
719             }
720             if (timescale_val) {
721                 rep->fragment_timescale = (int64_t) strtoll(timescale_val, NULL, 10);
722                 xmlFree(timescale_val);
723             }
724             if (startnumber_val) {
725                 rep->first_seq_no = (int64_t) strtoll(startnumber_val, NULL, 10);
726                 xmlFree(startnumber_val);
727             }
728
729             fragment_timeline_node = find_child_node_by_name(representation_segmenttemplate_node, "SegmentTimeline");
730
731             if (!fragment_timeline_node)
732                 fragment_timeline_node = find_child_node_by_name(fragment_template_node, "SegmentTimeline");
733             if (fragment_timeline_node) {
734                 fragment_timeline_node = xmlFirstElementChild(fragment_timeline_node);
735                 while (fragment_timeline_node) {
736                     ret = parse_manifest_segmenttimeline(s, rep, fragment_timeline_node);
737                     if (ret < 0) {
738                         return ret;
739                     }
740                     fragment_timeline_node = xmlNextElementSibling(fragment_timeline_node);
741                 }
742             }
743         } else if (representation_baseurl_node && !representation_segmentlist_node) {
744             seg = av_mallocz(sizeof(struct fragment));
745             if (!seg) {
746                 ret = AVERROR(ENOMEM);
747                 goto end;
748             }
749             seg->url = get_content_url(baseurl_nodes, 4, rep_id_val, rep_bandwidth_val, NULL);
750             if (!seg->url) {
751                 av_free(seg);
752                 ret = AVERROR(ENOMEM);
753                 goto end;
754             }
755             seg->size = -1;
756             dynarray_add(&rep->fragments, &rep->n_fragments, seg);
757         } else if (representation_segmentlist_node) {
758             // TODO: https://www.brendanlong.com/the-structure-of-an-mpeg-dash-mpd.html
759             // http://www-itec.uni-klu.ac.at/dash/ddash/mpdGenerator.php?fragmentlength=15&type=full
760             xmlNodePtr fragmenturl_node = NULL;
761             duration_val = xmlGetProp(representation_segmentlist_node, "duration");
762             timescale_val = xmlGetProp(representation_segmentlist_node, "timescale");
763             if (duration_val) {
764                 rep->fragment_duration = (int64_t) strtoll(duration_val, NULL, 10);
765                 xmlFree(duration_val);
766             }
767             if (timescale_val) {
768                 rep->fragment_timescale = (int64_t) strtoll(timescale_val, NULL, 10);
769                 xmlFree(timescale_val);
770             }
771             fragmenturl_node = xmlFirstElementChild(representation_segmentlist_node);
772             while (fragmenturl_node) {
773                 ret = parse_manifest_segmenturlnode(s, rep, fragmenturl_node,
774                                                     baseurl_nodes,
775                                                     rep_id_val,
776                                                     rep_bandwidth_val);
777                 if (ret < 0) {
778                     return ret;
779                 }
780                 fragmenturl_node = xmlNextElementSibling(fragmenturl_node);
781             }
782
783             fragment_timeline_node = find_child_node_by_name(representation_segmenttemplate_node, "SegmentTimeline");
784
785             if (!fragment_timeline_node)
786                 fragment_timeline_node = find_child_node_by_name(fragment_template_node, "SegmentTimeline");
787             if (fragment_timeline_node) {
788                 fragment_timeline_node = xmlFirstElementChild(fragment_timeline_node);
789                 while (fragment_timeline_node) {
790                     ret = parse_manifest_segmenttimeline(s, rep, fragment_timeline_node);
791                     if (ret < 0) {
792                         return ret;
793                     }
794                     fragment_timeline_node = xmlNextElementSibling(fragment_timeline_node);
795                 }
796             }
797         } else {
798             free_representation(rep);
799             rep = NULL;
800             av_log(s, AV_LOG_ERROR, "Unknown format of Representation node id[%s] \n", (const char *)rep_id_val);
801         }
802
803         if (rep) {
804             if (rep->fragment_duration > 0 && !rep->fragment_timescale)
805                 rep->fragment_timescale = 1;
806             rep->bandwidth = rep_bandwidth_val ? atoi(rep_bandwidth_val) : 0;
807             strncpy(rep->id, rep_id_val ? rep_id_val : "", sizeof(rep->id));
808             if (type == AVMEDIA_TYPE_VIDEO) {
809                 rep->rep_idx = video_rep_idx;
810                 c->cur_video = rep;
811             } else {
812                 rep->rep_idx = audio_rep_idx;
813                 c->cur_audio = rep;
814             }
815         }
816     }
817
818     video_rep_idx += type == AVMEDIA_TYPE_VIDEO;
819     audio_rep_idx += type == AVMEDIA_TYPE_AUDIO;
820
821 end:
822     if (rep_id_val)
823         xmlFree(rep_id_val);
824     if (rep_bandwidth_val)
825         xmlFree(rep_bandwidth_val);
826
827     return ret;
828 }
829
830 static int parse_manifest_adaptationset(AVFormatContext *s, const char *url,
831                                         xmlNodePtr adaptionset_node,
832                                         xmlNodePtr mpd_baseurl_node,
833                                         xmlNodePtr period_baseurl_node)
834 {
835     int ret = 0;
836     xmlNodePtr fragment_template_node = NULL;
837     xmlNodePtr content_component_node = NULL;
838     xmlNodePtr adaptionset_baseurl_node = NULL;
839     xmlNodePtr node = NULL;
840
841     node = xmlFirstElementChild(adaptionset_node);
842     while (node) {
843         if (!av_strcasecmp(node->name, (const char *)"SegmentTemplate")) {
844             fragment_template_node = node;
845         } else if (!av_strcasecmp(node->name, (const char *)"ContentComponent")) {
846             content_component_node = node;
847         } else if (!av_strcasecmp(node->name, (const char *)"BaseURL")) {
848             adaptionset_baseurl_node = node;
849         } else if (!av_strcasecmp(node->name, (const char *)"Representation")) {
850             ret = parse_manifest_representation(s, url, node,
851                                                 adaptionset_node,
852                                                 mpd_baseurl_node,
853                                                 period_baseurl_node,
854                                                 fragment_template_node,
855                                                 content_component_node,
856                                                 adaptionset_baseurl_node);
857             if (ret < 0) {
858                 return ret;
859             }
860         }
861         node = xmlNextElementSibling(node);
862     }
863     return 0;
864 }
865
866 static int parse_manifest(AVFormatContext *s, const char *url, AVIOContext *in)
867 {
868     DASHContext *c = s->priv_data;
869     int ret = 0;
870     int close_in = 0;
871     uint8_t *new_url = NULL;
872     int64_t filesize = 0;
873     char *buffer = NULL;
874     AVDictionary *opts = NULL;
875     xmlDoc *doc = NULL;
876     xmlNodePtr root_element = NULL;
877     xmlNodePtr node = NULL;
878     xmlNodePtr period_node = NULL;
879     xmlNodePtr mpd_baseurl_node = NULL;
880     xmlNodePtr period_baseurl_node = NULL;
881     xmlNodePtr adaptionset_node = NULL;
882     xmlAttrPtr attr = NULL;
883     char *val  = NULL;
884     uint32_t perdiod_duration_sec = 0;
885     uint32_t perdiod_start_sec = 0;
886     int32_t audio_rep_idx = 0;
887     int32_t video_rep_idx = 0;
888
889     if (!in) {
890         close_in = 1;
891
892         set_httpheader_options(c, &opts);
893         ret = avio_open2(&in, url, AVIO_FLAG_READ, c->interrupt_callback, &opts);
894         av_dict_free(&opts);
895         if (ret < 0)
896             return ret;
897     }
898
899     if (av_opt_get(in, "location", AV_OPT_SEARCH_CHILDREN, &new_url) >= 0) {
900         c->base_url = av_strdup(new_url);
901     } else {
902         c->base_url = av_strdup(url);
903     }
904
905     filesize = avio_size(in);
906     if (filesize <= 0) {
907         filesize = 8 * 1024;
908     }
909
910     buffer = av_mallocz(filesize);
911     if (!buffer) {
912         av_free(c->base_url);
913         return AVERROR(ENOMEM);
914     }
915
916     filesize = avio_read(in, buffer, filesize);
917     if (filesize <= 0) {
918         av_log(s, AV_LOG_ERROR, "Unable to read to offset '%s'\n", url);
919         ret = AVERROR_INVALIDDATA;
920     } else {
921         LIBXML_TEST_VERSION
922
923         doc = xmlReadMemory(buffer, filesize, c->base_url, NULL, 0);
924         root_element = xmlDocGetRootElement(doc);
925         node = root_element;
926
927         if (!node) {
928             ret = AVERROR_INVALIDDATA;
929             av_log(s, AV_LOG_ERROR, "Unable to parse '%s' - missing root node\n", url);
930             goto cleanup;
931         }
932
933         if (node->type != XML_ELEMENT_NODE ||
934             av_strcasecmp(node->name, (const char *)"MPD")) {
935             ret = AVERROR_INVALIDDATA;
936             av_log(s, AV_LOG_ERROR, "Unable to parse '%s' - wrong root node name[%s] type[%d]\n", url, node->name, (int)node->type);
937             goto cleanup;
938         }
939
940         val = xmlGetProp(node, "type");
941         if (!val) {
942             av_log(s, AV_LOG_ERROR, "Unable to parse '%s' - missing type attrib\n", url);
943             ret = AVERROR_INVALIDDATA;
944             goto cleanup;
945         }
946         if (!av_strcasecmp(val, (const char *)"dynamic"))
947             c->is_live = 1;
948         xmlFree(val);
949
950         attr = node->properties;
951         while (attr) {
952             val = xmlGetProp(node, attr->name);
953
954             if (!av_strcasecmp(attr->name, (const char *)"availabilityStartTime")) {
955                 c->availability_start_time = get_utc_date_time_insec(s, (const char *)val);
956             } else if (!av_strcasecmp(attr->name, (const char *)"publishTime")) {
957                 c->publish_time = get_utc_date_time_insec(s, (const char *)val);
958             } else if (!av_strcasecmp(attr->name, (const char *)"minimumUpdatePeriod")) {
959                 c->minimum_update_period = get_duration_insec(s, (const char *)val);
960             } else if (!av_strcasecmp(attr->name, (const char *)"timeShiftBufferDepth")) {
961                 c->time_shift_buffer_depth = get_duration_insec(s, (const char *)val);
962             } else if (!av_strcasecmp(attr->name, (const char *)"minBufferTime")) {
963                 c->min_buffer_time = get_duration_insec(s, (const char *)val);
964             } else if (!av_strcasecmp(attr->name, (const char *)"suggestedPresentationDelay")) {
965                 c->suggested_presentation_delay = get_duration_insec(s, (const char *)val);
966             } else if (!av_strcasecmp(attr->name, (const char *)"mediaPresentationDuration")) {
967                 c->media_presentation_duration = get_duration_insec(s, (const char *)val);
968             }
969             attr = attr->next;
970             xmlFree(val);
971         }
972
973         mpd_baseurl_node = find_child_node_by_name(node, "BaseURL");
974
975         // at now we can handle only one period, with the longest duration
976         node = xmlFirstElementChild(node);
977         while (node) {
978             if (!av_strcasecmp(node->name, (const char *)"Period")) {
979                 perdiod_duration_sec = 0;
980                 perdiod_start_sec = 0;
981                 attr = node->properties;
982                 while (attr) {
983                     val = xmlGetProp(node, attr->name);
984                     if (!av_strcasecmp(attr->name, (const char *)"duration")) {
985                         perdiod_duration_sec = get_duration_insec(s, (const char *)val);
986                     } else if (!av_strcasecmp(attr->name, (const char *)"start")) {
987                         perdiod_start_sec = get_duration_insec(s, (const char *)val);
988                     }
989                     attr = attr->next;
990                     xmlFree(val);
991                 }
992                 if ((perdiod_duration_sec) >= (c->period_duration)) {
993                     period_node = node;
994                     c->period_duration = perdiod_duration_sec;
995                     c->period_start = perdiod_start_sec;
996                     if (c->period_start > 0)
997                         c->media_presentation_duration = c->period_duration;
998                 }
999             }
1000             node = xmlNextElementSibling(node);
1001         }
1002         if (!period_node) {
1003             av_log(s, AV_LOG_ERROR, "Unable to parse '%s' - missing Period node\n", url);
1004             ret = AVERROR_INVALIDDATA;
1005             goto cleanup;
1006         }
1007
1008         adaptionset_node = xmlFirstElementChild(period_node);
1009         while (adaptionset_node) {
1010             if (!av_strcasecmp(adaptionset_node->name, (const char *)"BaseURL")) {
1011                 period_baseurl_node = adaptionset_node;
1012             } else if (!av_strcasecmp(adaptionset_node->name, (const char *)"AdaptationSet")) {
1013                 parse_manifest_adaptationset(s, url, adaptionset_node, mpd_baseurl_node, period_baseurl_node);
1014             }
1015             adaptionset_node = xmlNextElementSibling(adaptionset_node);
1016         }
1017         if (c->cur_video) {
1018             c->cur_video->rep_count = video_rep_idx;
1019             av_log(s, AV_LOG_VERBOSE, "rep_idx[%d]\n", (int)c->cur_video->rep_idx);
1020             av_log(s, AV_LOG_VERBOSE, "rep_count[%d]\n", (int)video_rep_idx);
1021         }
1022         if (c->cur_audio) {
1023             c->cur_audio->rep_count = audio_rep_idx;
1024         }
1025 cleanup:
1026         /*free the document */
1027         xmlFreeDoc(doc);
1028         xmlCleanupParser();
1029     }
1030
1031     av_free(new_url);
1032     av_free(buffer);
1033     if (close_in) {
1034         avio_close(in);
1035     }
1036     return ret;
1037 }
1038
1039 static int64_t calc_cur_seg_no(AVFormatContext *s, struct representation *pls)
1040 {
1041     DASHContext *c = s->priv_data;
1042     int64_t num = 0;
1043     int64_t start_time_offset = 0;
1044
1045     if (c->is_live) {
1046         if (pls->n_fragments) {
1047             num = pls->first_seq_no;
1048         } else if (pls->n_timelines) {
1049             start_time_offset = get_segment_start_time_based_on_timeline(pls, 0xFFFFFFFF) - pls->timelines[pls->first_seq_no]->starttime; // total duration of playlist
1050             if (start_time_offset < 60 * pls->fragment_timescale)
1051                 start_time_offset = 0;
1052             else
1053                 start_time_offset = start_time_offset - 60 * pls->fragment_timescale;
1054
1055             num = calc_next_seg_no_from_timelines(pls, pls->timelines[pls->first_seq_no]->starttime + start_time_offset);
1056             if (num == -1)
1057                 num = pls->first_seq_no;
1058         } else if (pls->fragment_duration){
1059             if (pls->presentation_timeoffset) {
1060                 num = pls->presentation_timeoffset * pls->fragment_timescale / pls->fragment_duration;
1061             } else if (c->publish_time > 0 && !c->availability_start_time) {
1062                 num = pls->first_seq_no + (((c->publish_time - c->availability_start_time) - c->suggested_presentation_delay) * pls->fragment_timescale) / pls->fragment_duration;
1063             } else {
1064                 num = pls->first_seq_no + (((get_current_time_in_sec() - c->availability_start_time) - c->suggested_presentation_delay) * pls->fragment_timescale) / pls->fragment_duration;
1065             }
1066         }
1067     } else {
1068         num = pls->first_seq_no;
1069     }
1070     return num;
1071 }
1072
1073 static int64_t calc_min_seg_no(AVFormatContext *s, struct representation *pls)
1074 {
1075     DASHContext *c = s->priv_data;
1076     int64_t num = 0;
1077
1078     if (c->is_live && pls->fragment_duration) {
1079         num = pls->first_seq_no + (((get_current_time_in_sec() - c->availability_start_time) - c->time_shift_buffer_depth) * pls->fragment_timescale) / pls->fragment_duration;
1080     } else {
1081         num = pls->first_seq_no;
1082     }
1083     return num;
1084 }
1085
1086 static int64_t calc_max_seg_no(struct representation *pls, DASHContext *c)
1087 {
1088     int64_t num = 0;
1089
1090     if (pls->n_fragments) {
1091         num = pls->first_seq_no + pls->n_fragments - 1;
1092     } else if (pls->n_timelines) {
1093         int i = 0;
1094         num = pls->first_seq_no + pls->n_timelines - 1;
1095         for (i = 0; i < pls->n_timelines; i++) {
1096             num += pls->timelines[i]->repeat;
1097         }
1098     } else if (c->is_live && pls->fragment_duration) {
1099         num = pls->first_seq_no + (((get_current_time_in_sec() - c->availability_start_time)) * pls->fragment_timescale)  / pls->fragment_duration;
1100     } else if (pls->fragment_duration) {
1101         num = pls->first_seq_no + (c->media_presentation_duration * pls->fragment_timescale) / pls->fragment_duration;
1102     }
1103
1104     return num;
1105 }
1106
1107 static void move_timelines(struct representation *rep_src, struct representation *rep_dest, DASHContext *c)
1108 {
1109     if (rep_dest && rep_src ) {
1110         free_timelines_list(rep_dest);
1111         rep_dest->timelines    = rep_src->timelines;
1112         rep_dest->n_timelines  = rep_src->n_timelines;
1113         rep_dest->first_seq_no = rep_src->first_seq_no;
1114         rep_dest->last_seq_no = calc_max_seg_no(rep_dest, c);
1115         rep_src->timelines = NULL;
1116         rep_src->n_timelines = 0;
1117         rep_dest->cur_seq_no = rep_src->cur_seq_no;
1118     }
1119 }
1120
1121 static void move_segments(struct representation *rep_src, struct representation *rep_dest, DASHContext *c)
1122 {
1123     if (rep_dest && rep_src ) {
1124         free_fragment_list(rep_dest);
1125         if (rep_src->start_number > (rep_dest->start_number + rep_dest->n_fragments))
1126             rep_dest->cur_seq_no = 0;
1127         else
1128             rep_dest->cur_seq_no += rep_src->start_number - rep_dest->start_number;
1129         rep_dest->fragments    = rep_src->fragments;
1130         rep_dest->n_fragments  = rep_src->n_fragments;
1131         rep_dest->parent  = rep_src->parent;
1132         rep_dest->last_seq_no = calc_max_seg_no(rep_dest, c);
1133         rep_src->fragments = NULL;
1134         rep_src->n_fragments = 0;
1135     }
1136 }
1137
1138
1139 static int refresh_manifest(AVFormatContext *s)
1140 {
1141
1142     int ret = 0;
1143     DASHContext *c = s->priv_data;
1144
1145     // save current context
1146     struct representation *cur_video =  c->cur_video;
1147     struct representation *cur_audio =  c->cur_audio;
1148     char *base_url = c->base_url;
1149
1150     c->base_url = NULL;
1151     c->cur_video = NULL;
1152     c->cur_audio = NULL;
1153     ret = parse_manifest(s, s->filename, NULL);
1154     if (ret)
1155         goto finish;
1156
1157     if (cur_video && cur_video->timelines || cur_audio && cur_audio->timelines) {
1158         // calc current time
1159         int64_t currentVideoTime = 0;
1160         int64_t currentAudioTime = 0;
1161         if (cur_video && cur_video->timelines)
1162             currentVideoTime = get_segment_start_time_based_on_timeline(cur_video, cur_video->cur_seq_no) / cur_video->fragment_timescale;
1163         if (cur_audio && cur_audio->timelines)
1164             currentAudioTime = get_segment_start_time_based_on_timeline(cur_audio, cur_audio->cur_seq_no) / cur_audio->fragment_timescale;
1165         // update segments
1166         if (cur_video && cur_video->timelines) {
1167             c->cur_video->cur_seq_no = calc_next_seg_no_from_timelines(c->cur_video, currentVideoTime * cur_video->fragment_timescale - 1);
1168             if (c->cur_video->cur_seq_no >= 0) {
1169                 move_timelines(c->cur_video, cur_video, c);
1170             }
1171         }
1172         if (cur_audio && cur_audio->timelines) {
1173             c->cur_audio->cur_seq_no = calc_next_seg_no_from_timelines(c->cur_audio, currentAudioTime * cur_audio->fragment_timescale - 1);
1174             if (c->cur_audio->cur_seq_no >= 0) {
1175                move_timelines(c->cur_audio, cur_audio, c);
1176             }
1177         }
1178     }
1179     if (cur_video && cur_video->fragments) {
1180         move_segments(c->cur_video, cur_video, c);
1181     }
1182     if (cur_audio && cur_audio->fragments) {
1183         move_segments(c->cur_audio, cur_audio, c);
1184     }
1185
1186 finish:
1187     // restore context
1188     if (c->base_url)
1189         av_free(base_url);
1190     else
1191         c->base_url  = base_url;
1192     if (c->cur_audio)
1193         free_representation(c->cur_audio);
1194     if (c->cur_video)
1195         free_representation(c->cur_video);
1196     c->cur_audio = cur_audio;
1197     c->cur_video = cur_video;
1198     return ret;
1199 }
1200
1201 static struct fragment *get_current_fragment(struct representation *pls)
1202 {
1203     int64_t min_seq_no = 0;
1204     int64_t max_seq_no = 0;
1205     struct fragment *seg = NULL;
1206     struct fragment *seg_ptr = NULL;
1207     DASHContext *c = pls->parent->priv_data;
1208
1209     while (( !ff_check_interrupt(c->interrupt_callback)&& pls->n_fragments > 0)) {
1210         if (pls->cur_seq_no < pls->n_fragments) {
1211             seg_ptr = pls->fragments[pls->cur_seq_no];
1212             seg = av_mallocz(sizeof(struct fragment));
1213             if (!seg) {
1214                 return NULL;
1215             }
1216             seg->url = av_strdup(seg_ptr->url);
1217             if (!seg->url) {
1218                 av_free(seg);
1219                 return NULL;
1220             }
1221             seg->size = seg_ptr->size;
1222             seg->url_offset = seg_ptr->url_offset;
1223             return seg;
1224         } else if (c->is_live) {
1225             refresh_manifest(pls->parent);
1226         } else {
1227             break;
1228         }
1229     }
1230     if (c->is_live) {
1231         min_seq_no = calc_min_seg_no(pls->parent, pls);
1232         max_seq_no = calc_max_seg_no(pls, c);
1233
1234         if (pls->timelines || pls->fragments) {
1235             refresh_manifest(pls->parent);
1236         }
1237         if (pls->cur_seq_no <= min_seq_no) {
1238             av_log(pls->parent, AV_LOG_VERBOSE, "old fragment: cur[%"PRId64"] min[%"PRId64"] max[%"PRId64"], playlist %d\n", (int64_t)pls->cur_seq_no, min_seq_no, max_seq_no, (int)pls->rep_idx);
1239             pls->cur_seq_no = calc_cur_seg_no(pls->parent, pls);
1240         } else if (pls->cur_seq_no > max_seq_no) {
1241             av_log(pls->parent, AV_LOG_VERBOSE, "new fragment: min[%"PRId64"] max[%"PRId64"], playlist %d\n", min_seq_no, max_seq_no, (int)pls->rep_idx);
1242         }
1243         seg = av_mallocz(sizeof(struct fragment));
1244         if (!seg) {
1245             return NULL;
1246         }
1247     } else if (pls->cur_seq_no <= pls->last_seq_no) {
1248         seg = av_mallocz(sizeof(struct fragment));
1249         if (!seg) {
1250             return NULL;
1251         }
1252     }
1253     if (seg) {
1254         char tmpfilename[MAX_URL_SIZE];
1255
1256         ff_dash_fill_tmpl_params(tmpfilename, sizeof(tmpfilename), pls->url_template, 0, pls->cur_seq_no, 0, get_segment_start_time_based_on_timeline(pls, pls->cur_seq_no));
1257         seg->url = av_strireplace(pls->url_template, pls->url_template, tmpfilename);
1258         if (!seg->url) {
1259             av_log(pls->parent, AV_LOG_WARNING, "Unable to resolve template url '%s', try to use origin template\n", pls->url_template);
1260             seg->url = av_strdup(pls->url_template);
1261             if (!seg->url) {
1262                 av_log(pls->parent, AV_LOG_ERROR, "Cannot resolve template url '%s'\n", pls->url_template);
1263                 return NULL;
1264             }
1265         }
1266
1267         seg->size = -1;
1268     }
1269
1270     return seg;
1271 }
1272
1273 enum ReadFromURLMode {
1274     READ_NORMAL,
1275     READ_COMPLETE,
1276 };
1277
1278 static int read_from_url(struct representation *pls, struct fragment *seg,
1279                          uint8_t *buf, int buf_size,
1280                          enum ReadFromURLMode mode)
1281 {
1282     int ret;
1283
1284     /* limit read if the fragment was only a part of a file */
1285     if (seg->size >= 0)
1286         buf_size = FFMIN(buf_size, pls->cur_seg_size - pls->cur_seg_offset);
1287
1288     if (mode == READ_COMPLETE) {
1289         ret = avio_read(pls->input, buf, buf_size);
1290         if (ret < buf_size) {
1291             av_log(pls->parent, AV_LOG_WARNING, "Could not read complete fragment.\n");
1292         }
1293     } else {
1294         ret = avio_read(pls->input, buf, buf_size);
1295     }
1296     if (ret > 0)
1297         pls->cur_seg_offset += ret;
1298
1299     return ret;
1300 }
1301
1302 static int open_input(DASHContext *c, struct representation *pls, struct fragment *seg)
1303 {
1304     AVDictionary *opts = NULL;
1305     char url[MAX_URL_SIZE];
1306     int ret;
1307
1308     set_httpheader_options(c, &opts);
1309     if (seg->size >= 0) {
1310         /* try to restrict the HTTP request to the part we want
1311          * (if this is in fact a HTTP request) */
1312         av_dict_set_int(&opts, "offset", seg->url_offset, 0);
1313         av_dict_set_int(&opts, "end_offset", seg->url_offset + seg->size, 0);
1314     }
1315
1316     ff_make_absolute_url(url, MAX_URL_SIZE, c->base_url, seg->url);
1317     av_log(pls->parent, AV_LOG_VERBOSE, "DASH request for url '%s', offset %"PRId64", playlist %d\n",
1318            url, seg->url_offset, pls->rep_idx);
1319     ret = open_url(pls->parent, &pls->input, url, c->avio_opts, opts, NULL);
1320     if (ret < 0) {
1321         goto cleanup;
1322     }
1323
1324     /* Seek to the requested position. If this was a HTTP request, the offset
1325      * should already be where want it to, but this allows e.g. local testing
1326      * without a HTTP server. */
1327     if (!ret && seg->url_offset) {
1328         int64_t seekret = avio_seek(pls->input, seg->url_offset, SEEK_SET);
1329         if (seekret < 0) {
1330             av_log(pls->parent, AV_LOG_ERROR, "Unable to seek to offset %"PRId64" of DASH fragment '%s'\n", seg->url_offset, seg->url);
1331             ret = (int) seekret;
1332             ff_format_io_close(pls->parent, &pls->input);
1333         }
1334     }
1335
1336 cleanup:
1337     av_dict_free(&opts);
1338     pls->cur_seg_offset = 0;
1339     pls->cur_seg_size = seg->size;
1340     return ret;
1341 }
1342
1343 static int update_init_section(struct representation *pls)
1344 {
1345     static const int max_init_section_size = 1024 * 1024;
1346     DASHContext *c = pls->parent->priv_data;
1347     int64_t sec_size;
1348     int64_t urlsize;
1349     int ret;
1350
1351     if (!pls->init_section || pls->init_sec_buf)
1352         return 0;
1353
1354     ret = open_input(c, pls, pls->init_section);
1355     if (ret < 0) {
1356         av_log(pls->parent, AV_LOG_WARNING,
1357                "Failed to open an initialization section in playlist %d\n",
1358                pls->rep_idx);
1359         return ret;
1360     }
1361
1362     if (pls->init_section->size >= 0)
1363         sec_size = pls->init_section->size;
1364     else if ((urlsize = avio_size(pls->input)) >= 0)
1365         sec_size = urlsize;
1366     else
1367         sec_size = max_init_section_size;
1368
1369     av_log(pls->parent, AV_LOG_DEBUG,
1370            "Downloading an initialization section of size %"PRId64"\n",
1371            sec_size);
1372
1373     sec_size = FFMIN(sec_size, max_init_section_size);
1374
1375     av_fast_malloc(&pls->init_sec_buf, &pls->init_sec_buf_size, sec_size);
1376
1377     ret = read_from_url(pls, pls->init_section, pls->init_sec_buf,
1378                         pls->init_sec_buf_size, READ_COMPLETE);
1379     ff_format_io_close(pls->parent, &pls->input);
1380
1381     if (ret < 0)
1382         return ret;
1383
1384     pls->init_sec_data_len = ret;
1385     pls->init_sec_buf_read_offset = 0;
1386
1387     return 0;
1388 }
1389
1390 static int64_t seek_data(void *opaque, int64_t offset, int whence)
1391 {
1392     struct representation *v = opaque;
1393     if (v->n_fragments && !v->init_sec_data_len) {
1394         return avio_seek(v->input, offset, whence);
1395     }
1396
1397     return AVERROR(ENOSYS);
1398 }
1399
1400 static int read_data(void *opaque, uint8_t *buf, int buf_size)
1401 {
1402     int ret = 0;
1403     struct representation *v = opaque;
1404     DASHContext *c = v->parent->priv_data;
1405
1406 restart:
1407     if (!v->input) {
1408         free_fragment(&v->cur_seg);
1409         v->cur_seg = get_current_fragment(v);
1410         if (!v->cur_seg) {
1411             ret = AVERROR_EOF;
1412             goto end;
1413         }
1414
1415         /* load/update Media Initialization Section, if any */
1416         ret = update_init_section(v);
1417         if (ret)
1418             goto end;
1419
1420         ret = open_input(c, v, v->cur_seg);
1421         if (ret < 0) {
1422             if (ff_check_interrupt(c->interrupt_callback)) {
1423                 goto end;
1424                 ret = AVERROR_EXIT;
1425             }
1426             av_log(v->parent, AV_LOG_WARNING, "Failed to open fragment of playlist %d\n", v->rep_idx);
1427             v->cur_seq_no++;
1428             goto restart;
1429         }
1430     }
1431
1432     if (v->init_sec_buf_read_offset < v->init_sec_data_len) {
1433         /* Push init section out first before first actual fragment */
1434         int copy_size = FFMIN(v->init_sec_data_len - v->init_sec_buf_read_offset, buf_size);
1435         memcpy(buf, v->init_sec_buf, copy_size);
1436         v->init_sec_buf_read_offset += copy_size;
1437         ret = copy_size;
1438         goto end;
1439     }
1440
1441     /* check the v->cur_seg, if it is null, get current and double check if the new v->cur_seg*/
1442     if (!v->cur_seg) {
1443         v->cur_seg = get_current_fragment(v);
1444     }
1445     if (!v->cur_seg) {
1446         ret = AVERROR_EOF;
1447         goto end;
1448     }
1449     ret = read_from_url(v, v->cur_seg, buf, buf_size, READ_NORMAL);
1450     if (ret > 0)
1451         goto end;
1452
1453     if (!v->is_restart_needed)
1454         v->cur_seq_no++;
1455     v->is_restart_needed = 1;
1456
1457 end:
1458     return ret;
1459 }
1460
1461 static int save_avio_options(AVFormatContext *s)
1462 {
1463     DASHContext *c = s->priv_data;
1464     const char *opts[] = { "headers", "user_agent", "user-agent", "cookies", NULL }, **opt = opts;
1465     uint8_t *buf = NULL;
1466     int ret = 0;
1467
1468     while (*opt) {
1469         if (av_opt_get(s->pb, *opt, AV_OPT_SEARCH_CHILDREN, &buf) >= 0) {
1470             if (buf[0] != '\0') {
1471                 ret = av_dict_set(&c->avio_opts, *opt, buf, AV_DICT_DONT_STRDUP_VAL);
1472                 if (ret < 0) {
1473                     av_freep(&buf);
1474                     return ret;
1475                 }
1476             } else {
1477                 av_freep(&buf);
1478             }
1479         }
1480         opt++;
1481     }
1482
1483     return ret;
1484 }
1485
1486 static int nested_io_open(AVFormatContext *s, AVIOContext **pb, const char *url,
1487                           int flags, AVDictionary **opts)
1488 {
1489     av_log(s, AV_LOG_ERROR,
1490            "A DASH playlist item '%s' referred to an external file '%s'. "
1491            "Opening this file was forbidden for security reasons\n",
1492            s->filename, url);
1493     return AVERROR(EPERM);
1494 }
1495
1496 static int reopen_demux_for_component(AVFormatContext *s, struct representation *pls)
1497 {
1498     DASHContext *c = s->priv_data;
1499     AVInputFormat *in_fmt = NULL;
1500     AVDictionary  *in_fmt_opts = NULL;
1501     uint8_t *avio_ctx_buffer  = NULL;
1502     int ret = 0;
1503
1504     if (pls->ctx) {
1505         /* note: the internal buffer could have changed, and be != avio_ctx_buffer */
1506         av_freep(&pls->pb.buffer);
1507         memset(&pls->pb, 0x00, sizeof(AVIOContext));
1508         pls->ctx->pb = NULL;
1509         avformat_close_input(&pls->ctx);
1510         pls->ctx = NULL;
1511     }
1512     if (!(pls->ctx = avformat_alloc_context())) {
1513         ret = AVERROR(ENOMEM);
1514         goto fail;
1515     }
1516
1517     avio_ctx_buffer  = av_malloc(INITIAL_BUFFER_SIZE);
1518     if (!avio_ctx_buffer ) {
1519         ret = AVERROR(ENOMEM);
1520         avformat_free_context(pls->ctx);
1521         pls->ctx = NULL;
1522         goto fail;
1523     }
1524     if (c->is_live) {
1525         ffio_init_context(&pls->pb, avio_ctx_buffer , INITIAL_BUFFER_SIZE, 0, pls, read_data, NULL, NULL);
1526     } else {
1527         ffio_init_context(&pls->pb, avio_ctx_buffer , INITIAL_BUFFER_SIZE, 0, pls, read_data, NULL, seek_data);
1528     }
1529     pls->pb.seekable = 0;
1530
1531     if ((ret = ff_copy_whiteblacklists(pls->ctx, s)) < 0)
1532         goto fail;
1533
1534     pls->ctx->flags = AVFMT_FLAG_CUSTOM_IO;
1535     pls->ctx->probesize = 1024 * 4;
1536     pls->ctx->max_analyze_duration = 4 * AV_TIME_BASE;
1537     ret = av_probe_input_buffer(&pls->pb, &in_fmt, "", NULL, 0, 0);
1538     if (ret < 0) {
1539         av_log(s, AV_LOG_ERROR, "Error when loading first fragment, playlist %d\n", (int)pls->rep_idx);
1540         avformat_free_context(pls->ctx);
1541         pls->ctx = NULL;
1542         goto fail;
1543     }
1544
1545     pls->ctx->pb = &pls->pb;
1546     pls->ctx->io_open  = nested_io_open;
1547
1548     // provide additional information from mpd if available
1549     ret = avformat_open_input(&pls->ctx, "", in_fmt, &in_fmt_opts); //pls->init_section->url
1550     av_dict_free(&in_fmt_opts);
1551     if (ret < 0)
1552         goto fail;
1553     if (pls->n_fragments) {
1554         ret = avformat_find_stream_info(pls->ctx, NULL);
1555         if (ret < 0)
1556             goto fail;
1557     }
1558
1559 fail:
1560     return ret;
1561 }
1562
1563 static int open_demux_for_component(AVFormatContext *s, struct representation *pls)
1564 {
1565     int ret = 0;
1566     int i;
1567
1568     pls->parent = s;
1569     pls->cur_seq_no  = calc_cur_seg_no(s, pls);
1570     pls->last_seq_no = calc_max_seg_no(pls, s->priv_data);
1571
1572     ret = reopen_demux_for_component(s, pls);
1573     if (ret < 0) {
1574         goto fail;
1575     }
1576     for (i = 0; i < pls->ctx->nb_streams; i++) {
1577         AVStream *st = avformat_new_stream(s, NULL);
1578         AVStream *ist = pls->ctx->streams[i];
1579         if (!st) {
1580             ret = AVERROR(ENOMEM);
1581             goto fail;
1582         }
1583         st->id = i;
1584         avcodec_parameters_copy(st->codecpar, pls->ctx->streams[i]->codecpar);
1585         avpriv_set_pts_info(st, ist->pts_wrap_bits, ist->time_base.num, ist->time_base.den);
1586     }
1587
1588     return 0;
1589 fail:
1590     return ret;
1591 }
1592
1593 static int dash_read_header(AVFormatContext *s)
1594 {
1595     void *u = (s->flags & AVFMT_FLAG_CUSTOM_IO) ? NULL : s->pb;
1596     DASHContext *c = s->priv_data;
1597     int ret = 0;
1598     int stream_index = 0;
1599
1600     c->interrupt_callback = &s->interrupt_callback;
1601     // if the URL context is good, read important options we must broker later
1602     if (u) {
1603         update_options(&c->user_agent, "user-agent", u);
1604         update_options(&c->cookies, "cookies", u);
1605         update_options(&c->headers, "headers", u);
1606     }
1607
1608     if ((ret = parse_manifest(s, s->filename, s->pb)) < 0)
1609         goto fail;
1610
1611     if ((ret = save_avio_options(s)) < 0)
1612         goto fail;
1613
1614     /* If this isn't a live stream, fill the total duration of the
1615      * stream. */
1616     if (!c->is_live) {
1617         s->duration = (int64_t) c->media_presentation_duration * AV_TIME_BASE;
1618     }
1619
1620     /* Open the demuxer for curent video and current audio components if available */
1621     if (!ret && c->cur_video) {
1622         ret = open_demux_for_component(s, c->cur_video);
1623         if (!ret) {
1624             c->cur_video->stream_index = stream_index;
1625             ++stream_index;
1626         } else {
1627             free_representation(c->cur_video);
1628             c->cur_video = NULL;
1629         }
1630     }
1631
1632     if (!ret && c->cur_audio) {
1633         ret = open_demux_for_component(s, c->cur_audio);
1634         if (!ret) {
1635             c->cur_audio->stream_index = stream_index;
1636             ++stream_index;
1637         } else {
1638             free_representation(c->cur_audio);
1639             c->cur_audio = NULL;
1640         }
1641     }
1642
1643     if (!stream_index) {
1644         ret = AVERROR_INVALIDDATA;
1645         goto fail;
1646     }
1647
1648     /* Create a program */
1649     if (!ret) {
1650         AVProgram *program;
1651         program = av_new_program(s, 0);
1652         if (!program) {
1653             goto fail;
1654         }
1655
1656         if (c->cur_video) {
1657             int stream_index = c->cur_video->stream_index;
1658             av_program_add_stream_index(s, 0, stream_index);
1659             if (c->cur_video->bandwidth > 0)
1660                 av_dict_set_int(&s->streams[stream_index]->metadata, "variant_bitrate", c->cur_video->bandwidth, 0);
1661             if (c->cur_video->id[0])
1662                 av_dict_set(&s->streams[stream_index]->metadata, "id", c->cur_video->id, 0);
1663         }
1664         if (c->cur_audio) {
1665             int stream_index = c->cur_audio->stream_index;
1666             av_program_add_stream_index(s, 0, stream_index);
1667             if (c->cur_audio->bandwidth > 0)
1668                 av_dict_set_int(&s->streams[stream_index]->metadata, "variant_bitrate", c->cur_audio->bandwidth, 0);
1669             if (c->cur_audio->id[0])
1670                 av_dict_set(&s->streams[stream_index]->metadata, "id", c->cur_audio->id, 0);
1671         }
1672     }
1673
1674     return 0;
1675 fail:
1676     return ret;
1677 }
1678
1679 static int dash_read_packet(AVFormatContext *s, AVPacket *pkt)
1680 {
1681     DASHContext *c = s->priv_data;
1682     int ret = 0;
1683     struct representation *cur = NULL;
1684
1685     if (!c->cur_audio && !c->cur_video ) {
1686         return AVERROR_INVALIDDATA;
1687     }
1688     if (c->cur_audio && !c->cur_video) {
1689         cur = c->cur_audio;
1690     } else if (!c->cur_audio && c->cur_video) {
1691         cur = c->cur_video;
1692     } else if (c->cur_video->cur_timestamp < c->cur_audio->cur_timestamp) {
1693         cur = c->cur_video;
1694     } else {
1695         cur = c->cur_audio;
1696     }
1697
1698     if (cur->ctx) {
1699         while (!ff_check_interrupt(c->interrupt_callback) && !ret) {
1700             ret = av_read_frame(cur->ctx, pkt);
1701             if (ret >= 0) {
1702                 /* If we got a packet, return it */
1703                 cur->cur_timestamp = av_rescale(pkt->pts, (int64_t)cur->ctx->streams[0]->time_base.num * 90000, cur->ctx->streams[0]->time_base.den);
1704                 pkt->stream_index = cur->stream_index;
1705                 return 0;
1706             }
1707             if (cur->is_restart_needed) {
1708                 cur->cur_seg_offset = 0;
1709                 cur->init_sec_buf_read_offset = 0;
1710                 if (cur->input)
1711                     ff_format_io_close(cur->parent, &cur->input);
1712                 ret = reopen_demux_for_component(s, cur);
1713                 cur->is_restart_needed = 0;
1714             }
1715
1716         }
1717     }
1718     return AVERROR_EOF;
1719 }
1720
1721 static int dash_close(AVFormatContext *s)
1722 {
1723     DASHContext *c = s->priv_data;
1724     if (c->cur_audio) {
1725         free_representation(c->cur_audio);
1726     }
1727     if (c->cur_video) {
1728         free_representation(c->cur_video);
1729     }
1730
1731     av_freep(&c->cookies);
1732     av_freep(&c->user_agent);
1733     av_dict_free(&c->avio_opts);
1734     av_freep(&c->base_url);
1735     return 0;
1736 }
1737
1738 static int dash_seek(AVFormatContext *s, struct representation *pls, int64_t seek_pos_msec, int flags)
1739 {
1740     int ret = 0;
1741     int i = 0;
1742     int j = 0;
1743     int64_t duration = 0;
1744
1745     av_log(pls->parent, AV_LOG_VERBOSE, "DASH seek pos[%"PRId64"ms], playlist %d\n", seek_pos_msec, pls->rep_idx);
1746
1747     // single fragment mode
1748     if (pls->n_fragments == 1) {
1749         pls->cur_timestamp = 0;
1750         pls->cur_seg_offset = 0;
1751         ff_read_frame_flush(pls->ctx);
1752         return av_seek_frame(pls->ctx, -1, seek_pos_msec * 1000, flags);
1753     }
1754
1755     if (pls->input)
1756         ff_format_io_close(pls->parent, &pls->input);
1757
1758     // find the nearest fragment
1759     if (pls->n_timelines > 0 && pls->fragment_timescale > 0) {
1760         int64_t num = pls->first_seq_no;
1761         av_log(pls->parent, AV_LOG_VERBOSE, "dash_seek with SegmentTimeline start n_timelines[%d] "
1762                "last_seq_no[%"PRId64"], playlist %d.\n",
1763                (int)pls->n_timelines, (int64_t)pls->last_seq_no, (int)pls->rep_idx);
1764         for (i = 0; i < pls->n_timelines; i++) {
1765             if (pls->timelines[i]->starttime > 0) {
1766                 duration = pls->timelines[i]->starttime;
1767             }
1768             duration += pls->timelines[i]->duration;
1769             if (seek_pos_msec < ((duration * 1000) /  pls->fragment_timescale)) {
1770                 goto set_seq_num;
1771             }
1772             for (j = 0; j < pls->timelines[i]->repeat; j++) {
1773                 duration += pls->timelines[i]->duration;
1774                 num++;
1775                 if (seek_pos_msec < ((duration * 1000) /  pls->fragment_timescale)) {
1776                     goto set_seq_num;
1777                 }
1778             }
1779             num++;
1780         }
1781
1782 set_seq_num:
1783         pls->cur_seq_no = num > pls->last_seq_no ? pls->last_seq_no : num;
1784         av_log(pls->parent, AV_LOG_VERBOSE, "dash_seek with SegmentTimeline end cur_seq_no[%"PRId64"], playlist %d.\n",
1785                (int64_t)pls->cur_seq_no, (int)pls->rep_idx);
1786     } else if (pls->fragment_duration > 0) {
1787         pls->cur_seq_no = pls->first_seq_no + ((seek_pos_msec * pls->fragment_timescale) / pls->fragment_duration) / 1000;
1788     } else {
1789         av_log(pls->parent, AV_LOG_ERROR, "dash_seek missing fragment_duration\n");
1790         pls->cur_seq_no = pls->first_seq_no;
1791     }
1792     pls->cur_timestamp = 0;
1793     pls->cur_seg_offset = 0;
1794     pls->init_sec_buf_read_offset = 0;
1795     ret = reopen_demux_for_component(s, pls);
1796
1797     return ret;
1798 }
1799
1800 static int dash_read_seek(AVFormatContext *s, int stream_index, int64_t timestamp, int flags)
1801 {
1802     int ret = 0;
1803     DASHContext *c = s->priv_data;
1804     int64_t seek_pos_msec = av_rescale_rnd(timestamp, 1000,
1805                                            s->streams[stream_index]->time_base.den,
1806                                            flags & AVSEEK_FLAG_BACKWARD ?
1807                                            AV_ROUND_DOWN : AV_ROUND_UP);
1808     if ((flags & AVSEEK_FLAG_BYTE) || c->is_live)
1809         return AVERROR(ENOSYS);
1810     if (c->cur_audio) {
1811         ret = dash_seek(s, c->cur_audio, seek_pos_msec, flags);
1812     }
1813     if (!ret && c->cur_video) {
1814         ret = dash_seek(s, c->cur_video, seek_pos_msec, flags);
1815     }
1816     return ret;
1817 }
1818
1819 static int dash_probe(AVProbeData *p)
1820 {
1821     if (!av_stristr(p->buf, "<MPD"))
1822         return 0;
1823
1824     if (av_stristr(p->buf, "dash:profile:isoff-on-demand:2011") ||
1825         av_stristr(p->buf, "dash:profile:isoff-live:2011") ||
1826         av_stristr(p->buf, "dash:profile:isoff-live:2012") ||
1827         av_stristr(p->buf, "dash:profile:isoff-main:2011")) {
1828         return AVPROBE_SCORE_MAX;
1829     }
1830     if (av_stristr(p->buf, "dash:profile")) {
1831         return AVPROBE_SCORE_MAX;
1832     }
1833
1834     return 0;
1835 }
1836
1837 #define OFFSET(x) offsetof(DASHContext, x)
1838 #define FLAGS AV_OPT_FLAG_DECODING_PARAM
1839 static const AVOption dash_options[] = {
1840     {"allowed_extensions", "List of file extensions that dash is allowed to access",
1841         OFFSET(allowed_extensions), AV_OPT_TYPE_STRING,
1842         {.str = "aac,m4a,m4s,m4v,mov,mp4"},
1843         INT_MIN, INT_MAX, FLAGS},
1844     {NULL}
1845 };
1846
1847 static const AVClass dash_class = {
1848     .class_name = "dash",
1849     .item_name  = av_default_item_name,
1850     .option     = dash_options,
1851     .version    = LIBAVUTIL_VERSION_INT,
1852 };
1853
1854 AVInputFormat ff_dash_demuxer = {
1855     .name           = "dash",
1856     .long_name      = NULL_IF_CONFIG_SMALL("Dynamic Adaptive Streaming over HTTP"),
1857     .priv_class     = &dash_class,
1858     .priv_data_size = sizeof(DASHContext),
1859     .read_probe     = dash_probe,
1860     .read_header    = dash_read_header,
1861     .read_packet    = dash_read_packet,
1862     .read_close     = dash_close,
1863     .read_seek      = dash_read_seek,
1864     .flags          = AVFMT_NO_BYTE_SEEK,
1865 };