a9fa5d8aef164c5168aa4c28705f4070ac24b690
[ffmpeg.git] / libavformat / hlsenc.c
1 /*
2  * Apple HTTP Live Streaming segmenter
3  * Copyright (c) 2012, Luca Barbato
4  *
5  * This file is part of FFmpeg.
6  *
7  * FFmpeg is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * FFmpeg is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with FFmpeg; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
20  */
21
22 #include "config.h"
23 #include <float.h>
24 #include <stdint.h>
25 #if HAVE_UNISTD_H
26 #include <unistd.h>
27 #endif
28
29 #include "libavutil/avassert.h"
30 #include "libavutil/mathematics.h"
31 #include "libavutil/parseutils.h"
32 #include "libavutil/avstring.h"
33 #include "libavutil/opt.h"
34 #include "libavutil/log.h"
35 #include "libavutil/time_internal.h"
36
37 #include "avformat.h"
38 #include "avio_internal.h"
39 #include "internal.h"
40 #include "os_support.h"
41
42 #define KEYSIZE 16
43 #define LINE_BUFFER_SIZE 1024
44
45 typedef struct HLSSegment {
46     char filename[1024];
47     char sub_filename[1024];
48     double duration; /* in seconds */
49     int64_t pos;
50     int64_t size;
51
52     char key_uri[LINE_BUFFER_SIZE + 1];
53     char iv_string[KEYSIZE*2 + 1];
54
55     struct HLSSegment *next;
56 } HLSSegment;
57
58 typedef enum HLSFlags {
59     // Generate a single media file and use byte ranges in the playlist.
60     HLS_SINGLE_FILE = (1 << 0),
61     HLS_DELETE_SEGMENTS = (1 << 1),
62     HLS_ROUND_DURATIONS = (1 << 2),
63     HLS_DISCONT_START = (1 << 3),
64     HLS_OMIT_ENDLIST = (1 << 4),
65 } HLSFlags;
66
67 typedef enum {
68     PLAYLIST_TYPE_NONE,
69     PLAYLIST_TYPE_EVENT,
70     PLAYLIST_TYPE_VOD,
71     PLAYLIST_TYPE_NB,
72 } PlaylistType;
73
74 typedef struct HLSContext {
75     const AVClass *class;  // Class for private options.
76     unsigned number;
77     int64_t sequence;
78     int64_t start_sequence;
79     AVOutputFormat *oformat;
80     AVOutputFormat *vtt_oformat;
81
82     AVFormatContext *avf;
83     AVFormatContext *vtt_avf;
84
85     float time;            // Set by a private option.
86     int max_nb_segments;   // Set by a private option.
87     int  wrap;             // Set by a private option.
88     uint32_t flags;        // enum HLSFlags
89     uint32_t pl_type;      // enum PlaylistType
90     char *segment_filename;
91
92     int use_localtime;      ///< flag to expand filename with localtime
93     int use_localtime_mkdir;///< flag to mkdir dirname in timebased filename
94     int allowcache;
95     int64_t recording_time;
96     int has_video;
97     int has_subtitle;
98     int64_t start_pts;
99     int64_t end_pts;
100     double duration;      // last segment duration computed so far, in seconds
101     int64_t start_pos;    // last segment starting position
102     int64_t size;         // last segment size
103     int nb_entries;
104     int discontinuity_set;
105
106     HLSSegment *segments;
107     HLSSegment *last_segment;
108     HLSSegment *old_segments;
109
110     char *basename;
111     char *vtt_basename;
112     char *vtt_m3u8_name;
113     char *baseurl;
114     char *format_options_str;
115     char *vtt_format_options_str;
116     char *subtitle_filename;
117     AVDictionary *format_options;
118
119     char *key_info_file;
120     char key_file[LINE_BUFFER_SIZE + 1];
121     char key_uri[LINE_BUFFER_SIZE + 1];
122     char key_string[KEYSIZE*2 + 1];
123     char iv_string[KEYSIZE*2 + 1];
124     AVDictionary *vtt_format_options;
125
126     char *method;
127
128 } HLSContext;
129
130 static int hls_delete_old_segments(HLSContext *hls) {
131
132     HLSSegment *segment, *previous_segment = NULL;
133     float playlist_duration = 0.0f;
134     int ret = 0, path_size, sub_path_size;
135     char *dirname = NULL, *p, *sub_path;
136     char *path = NULL;
137
138     segment = hls->segments;
139     while (segment) {
140         playlist_duration += segment->duration;
141         segment = segment->next;
142     }
143
144     segment = hls->old_segments;
145     while (segment) {
146         playlist_duration -= segment->duration;
147         previous_segment = segment;
148         segment = previous_segment->next;
149         if (playlist_duration <= -previous_segment->duration) {
150             previous_segment->next = NULL;
151             break;
152         }
153     }
154
155     if (segment) {
156         if (hls->segment_filename) {
157             dirname = av_strdup(hls->segment_filename);
158         } else {
159             dirname = av_strdup(hls->avf->filename);
160         }
161         if (!dirname) {
162             ret = AVERROR(ENOMEM);
163             goto fail;
164         }
165         p = (char *)av_basename(dirname);
166         *p = '\0';
167     }
168
169     while (segment) {
170         av_log(hls, AV_LOG_DEBUG, "deleting old segment %s\n",
171                                   segment->filename);
172         path_size = strlen(dirname) + strlen(segment->filename) + 1;
173         path = av_malloc(path_size);
174         if (!path) {
175             ret = AVERROR(ENOMEM);
176             goto fail;
177         }
178
179         av_strlcpy(path, dirname, path_size);
180         av_strlcat(path, segment->filename, path_size);
181         if (unlink(path) < 0) {
182             av_log(hls, AV_LOG_ERROR, "failed to delete old segment %s: %s\n",
183                                      path, strerror(errno));
184         }
185
186         if (segment->sub_filename[0] != '\0') {
187             sub_path_size = strlen(dirname) + strlen(segment->sub_filename) + 1;
188             sub_path = av_malloc(sub_path_size);
189             if (!sub_path) {
190                 ret = AVERROR(ENOMEM);
191                 goto fail;
192             }
193
194             av_strlcpy(sub_path, dirname, sub_path_size);
195             av_strlcat(sub_path, segment->sub_filename, sub_path_size);
196             if (unlink(sub_path) < 0) {
197                 av_log(hls, AV_LOG_ERROR, "failed to delete old segment %s: %s\n",
198                                          sub_path, strerror(errno));
199             }
200             av_free(sub_path);
201         }
202         av_freep(&path);
203         previous_segment = segment;
204         segment = previous_segment->next;
205         av_free(previous_segment);
206     }
207
208 fail:
209     av_free(path);
210     av_free(dirname);
211
212     return ret;
213 }
214
215 static int hls_encryption_start(AVFormatContext *s)
216 {
217     HLSContext *hls = s->priv_data;
218     int ret;
219     AVIOContext *pb;
220     uint8_t key[KEYSIZE];
221
222     if ((ret = s->io_open(s, &pb, hls->key_info_file, AVIO_FLAG_READ, NULL)) < 0) {
223         av_log(hls, AV_LOG_ERROR,
224                 "error opening key info file %s\n", hls->key_info_file);
225         return ret;
226     }
227
228     ff_get_line(pb, hls->key_uri, sizeof(hls->key_uri));
229     hls->key_uri[strcspn(hls->key_uri, "\r\n")] = '\0';
230
231     ff_get_line(pb, hls->key_file, sizeof(hls->key_file));
232     hls->key_file[strcspn(hls->key_file, "\r\n")] = '\0';
233
234     ff_get_line(pb, hls->iv_string, sizeof(hls->iv_string));
235     hls->iv_string[strcspn(hls->iv_string, "\r\n")] = '\0';
236
237     ff_format_io_close(s, &pb);
238
239     if (!*hls->key_uri) {
240         av_log(hls, AV_LOG_ERROR, "no key URI specified in key info file\n");
241         return AVERROR(EINVAL);
242     }
243
244     if (!*hls->key_file) {
245         av_log(hls, AV_LOG_ERROR, "no key file specified in key info file\n");
246         return AVERROR(EINVAL);
247     }
248
249     if ((ret = s->io_open(s, &pb, hls->key_file, AVIO_FLAG_READ, NULL)) < 0) {
250         av_log(hls, AV_LOG_ERROR, "error opening key file %s\n", hls->key_file);
251         return ret;
252     }
253
254     ret = avio_read(pb, key, sizeof(key));
255     ff_format_io_close(s, &pb);
256     if (ret != sizeof(key)) {
257         av_log(hls, AV_LOG_ERROR, "error reading key file %s\n", hls->key_file);
258         if (ret >= 0 || ret == AVERROR_EOF)
259             ret = AVERROR(EINVAL);
260         return ret;
261     }
262     ff_data_to_hex(hls->key_string, key, sizeof(key), 0);
263
264     return 0;
265 }
266
267 static int hls_mux_init(AVFormatContext *s)
268 {
269     HLSContext *hls = s->priv_data;
270     AVFormatContext *oc;
271     AVFormatContext *vtt_oc = NULL;
272     int i, ret;
273
274     ret = avformat_alloc_output_context2(&hls->avf, hls->oformat, NULL, NULL);
275     if (ret < 0)
276         return ret;
277     oc = hls->avf;
278
279     oc->oformat            = hls->oformat;
280     oc->interrupt_callback = s->interrupt_callback;
281     oc->max_delay          = s->max_delay;
282     oc->opaque             = s->opaque;
283     oc->io_open            = s->io_open;
284     oc->io_close           = s->io_close;
285     av_dict_copy(&oc->metadata, s->metadata, 0);
286
287     if(hls->vtt_oformat) {
288         ret = avformat_alloc_output_context2(&hls->vtt_avf, hls->vtt_oformat, NULL, NULL);
289         if (ret < 0)
290             return ret;
291         vtt_oc          = hls->vtt_avf;
292         vtt_oc->oformat = hls->vtt_oformat;
293         av_dict_copy(&vtt_oc->metadata, s->metadata, 0);
294     }
295
296     for (i = 0; i < s->nb_streams; i++) {
297         AVStream *st;
298         AVFormatContext *loc;
299         if (s->streams[i]->codecpar->codec_type == AVMEDIA_TYPE_SUBTITLE)
300             loc = vtt_oc;
301         else
302             loc = oc;
303
304         if (!(st = avformat_new_stream(loc, NULL)))
305             return AVERROR(ENOMEM);
306         avcodec_parameters_copy(st->codecpar, s->streams[i]->codecpar);
307         st->sample_aspect_ratio = s->streams[i]->sample_aspect_ratio;
308         st->time_base = s->streams[i]->time_base;
309     }
310     hls->start_pos = 0;
311
312     return 0;
313 }
314
315 /* Create a new segment and append it to the segment list */
316 static int hls_append_segment(struct AVFormatContext *s, HLSContext *hls, double duration,
317                               int64_t pos, int64_t size)
318 {
319     HLSSegment *en = av_malloc(sizeof(*en));
320     char *tmp, *p;
321     const char *pl_dir, *filename;
322     int ret;
323
324     if (!en)
325         return AVERROR(ENOMEM);
326
327     filename = av_basename(hls->avf->filename);
328
329     if (hls->use_localtime_mkdir) {
330         /* Possibly prefix with mkdir'ed subdir, if playlist share same
331          * base path. */
332         tmp = av_strdup(s->filename);
333         if (!tmp) {
334             av_free(en);
335             return AVERROR(ENOMEM);
336         }
337
338         pl_dir = av_dirname(tmp);
339         p = hls->avf->filename;
340         if (strstr(p, pl_dir) == p)
341             filename = hls->avf->filename + strlen(pl_dir) + 1;
342         av_free(tmp);
343     }
344     av_strlcpy(en->filename, filename, sizeof(en->filename));
345
346     if(hls->has_subtitle)
347         av_strlcpy(en->sub_filename, av_basename(hls->vtt_avf->filename), sizeof(en->sub_filename));
348     else
349         en->sub_filename[0] = '\0';
350
351     en->duration = duration;
352     en->pos      = pos;
353     en->size     = size;
354     en->next     = NULL;
355
356     if (hls->key_info_file) {
357         av_strlcpy(en->key_uri, hls->key_uri, sizeof(en->key_uri));
358         av_strlcpy(en->iv_string, hls->iv_string, sizeof(en->iv_string));
359     }
360
361     if (!hls->segments)
362         hls->segments = en;
363     else
364         hls->last_segment->next = en;
365
366     hls->last_segment = en;
367
368     // EVENT or VOD playlists imply sliding window cannot be used
369     if (hls->pl_type != PLAYLIST_TYPE_NONE)
370         hls->max_nb_segments = 0;
371
372     if (hls->max_nb_segments && hls->nb_entries >= hls->max_nb_segments) {
373         en = hls->segments;
374         hls->segments = en->next;
375         if (en && hls->flags & HLS_DELETE_SEGMENTS &&
376                 !(hls->flags & HLS_SINGLE_FILE || hls->wrap)) {
377             en->next = hls->old_segments;
378             hls->old_segments = en;
379             if ((ret = hls_delete_old_segments(hls)) < 0)
380                 return ret;
381         } else
382             av_free(en);
383     } else
384         hls->nb_entries++;
385
386     hls->sequence++;
387
388     return 0;
389 }
390
391 static void hls_free_segments(HLSSegment *p)
392 {
393     HLSSegment *en;
394
395     while(p) {
396         en = p;
397         p = p->next;
398         av_free(en);
399     }
400 }
401
402 static void set_http_options(AVDictionary **options, HLSContext *c)
403 {
404     if (c->method)
405         av_dict_set(options, "method", c->method, 0);
406 }
407
408 static int hls_window(AVFormatContext *s, int last)
409 {
410     HLSContext *hls = s->priv_data;
411     HLSSegment *en;
412     int target_duration = 0;
413     int ret = 0;
414     AVIOContext *out = NULL;
415     AVIOContext *sub_out = NULL;
416     char temp_filename[1024];
417     int64_t sequence = FFMAX(hls->start_sequence, hls->sequence - hls->nb_entries);
418     int version = hls->flags & HLS_SINGLE_FILE ? 4 : 3;
419     const char *proto = avio_find_protocol_name(s->filename);
420     int use_rename = proto && !strcmp(proto, "file");
421     static unsigned warned_non_file;
422     char *key_uri = NULL;
423     char *iv_string = NULL;
424     AVDictionary *options = NULL;
425
426     if (!use_rename && !warned_non_file++)
427         av_log(s, AV_LOG_ERROR, "Cannot use rename on non file protocol, this may lead to races and temporarly partial files\n");
428
429     set_http_options(&options, hls);
430     snprintf(temp_filename, sizeof(temp_filename), use_rename ? "%s.tmp" : "%s", s->filename);
431     if ((ret = s->io_open(s, &out, temp_filename, AVIO_FLAG_WRITE, &options)) < 0)
432         goto fail;
433
434     for (en = hls->segments; en; en = en->next) {
435         if (target_duration < en->duration)
436             target_duration = ceil(en->duration);
437     }
438
439     hls->discontinuity_set = 0;
440     avio_printf(out, "#EXTM3U\n");
441     avio_printf(out, "#EXT-X-VERSION:%d\n", version);
442     if (hls->allowcache == 0 || hls->allowcache == 1) {
443         avio_printf(out, "#EXT-X-ALLOW-CACHE:%s\n", hls->allowcache == 0 ? "NO" : "YES");
444     }
445     avio_printf(out, "#EXT-X-TARGETDURATION:%d\n", target_duration);
446     avio_printf(out, "#EXT-X-MEDIA-SEQUENCE:%"PRId64"\n", sequence);
447     if (hls->pl_type == PLAYLIST_TYPE_EVENT) {
448         avio_printf(out, "#EXT-X-PLAYLIST-TYPE:EVENT\n");
449     } else if (hls->pl_type == PLAYLIST_TYPE_VOD) {
450         avio_printf(out, "#EXT-X-PLAYLIST-TYPE:VOD\n");
451     }
452
453     av_log(s, AV_LOG_VERBOSE, "EXT-X-MEDIA-SEQUENCE:%"PRId64"\n",
454            sequence);
455     if((hls->flags & HLS_DISCONT_START) && sequence==hls->start_sequence && hls->discontinuity_set==0 ){
456         avio_printf(out, "#EXT-X-DISCONTINUITY\n");
457         hls->discontinuity_set = 1;
458     }
459     for (en = hls->segments; en; en = en->next) {
460         if (hls->key_info_file && (!key_uri || strcmp(en->key_uri, key_uri) ||
461                                     av_strcasecmp(en->iv_string, iv_string))) {
462             avio_printf(out, "#EXT-X-KEY:METHOD=AES-128,URI=\"%s\"", en->key_uri);
463             if (*en->iv_string)
464                 avio_printf(out, ",IV=0x%s", en->iv_string);
465             avio_printf(out, "\n");
466             key_uri = en->key_uri;
467             iv_string = en->iv_string;
468         }
469
470         if (hls->flags & HLS_ROUND_DURATIONS)
471             avio_printf(out, "#EXTINF:%ld,\n",  lrint(en->duration));
472         else
473             avio_printf(out, "#EXTINF:%f,\n", en->duration);
474         if (hls->flags & HLS_SINGLE_FILE)
475              avio_printf(out, "#EXT-X-BYTERANGE:%"PRIi64"@%"PRIi64"\n",
476                          en->size, en->pos);
477         if (hls->baseurl)
478             avio_printf(out, "%s", hls->baseurl);
479         avio_printf(out, "%s\n", en->filename);
480     }
481
482     if (last && (hls->flags & HLS_OMIT_ENDLIST)==0)
483         avio_printf(out, "#EXT-X-ENDLIST\n");
484
485     if( hls->vtt_m3u8_name ) {
486         if ((ret = s->io_open(s, &sub_out, hls->vtt_m3u8_name, AVIO_FLAG_WRITE, &options)) < 0)
487             goto fail;
488         avio_printf(sub_out, "#EXTM3U\n");
489         avio_printf(sub_out, "#EXT-X-VERSION:%d\n", version);
490         if (hls->allowcache == 0 || hls->allowcache == 1) {
491             avio_printf(sub_out, "#EXT-X-ALLOW-CACHE:%s\n", hls->allowcache == 0 ? "NO" : "YES");
492         }
493         avio_printf(sub_out, "#EXT-X-TARGETDURATION:%d\n", target_duration);
494         avio_printf(sub_out, "#EXT-X-MEDIA-SEQUENCE:%"PRId64"\n", sequence);
495
496         av_log(s, AV_LOG_VERBOSE, "EXT-X-MEDIA-SEQUENCE:%"PRId64"\n",
497                sequence);
498
499         for (en = hls->segments; en; en = en->next) {
500             avio_printf(sub_out, "#EXTINF:%f,\n", en->duration);
501             if (hls->flags & HLS_SINGLE_FILE)
502                  avio_printf(sub_out, "#EXT-X-BYTERANGE:%"PRIi64"@%"PRIi64"\n",
503                          en->size, en->pos);
504             if (hls->baseurl)
505                 avio_printf(sub_out, "%s", hls->baseurl);
506             avio_printf(sub_out, "%s\n", en->sub_filename);
507         }
508
509         if (last)
510             avio_printf(sub_out, "#EXT-X-ENDLIST\n");
511
512     }
513
514 fail:
515     av_dict_free(&options);
516     ff_format_io_close(s, &out);
517     ff_format_io_close(s, &sub_out);
518     if (ret >= 0 && use_rename)
519         ff_rename(temp_filename, s->filename, s);
520     return ret;
521 }
522
523 static int hls_start(AVFormatContext *s)
524 {
525     HLSContext *c = s->priv_data;
526     AVFormatContext *oc = c->avf;
527     AVFormatContext *vtt_oc = c->vtt_avf;
528     AVDictionary *options = NULL;
529     char *filename, iv_string[KEYSIZE*2 + 1];
530     int err = 0;
531
532     if (c->flags & HLS_SINGLE_FILE) {
533         av_strlcpy(oc->filename, c->basename,
534                    sizeof(oc->filename));
535         if (c->vtt_basename)
536             av_strlcpy(vtt_oc->filename, c->vtt_basename,
537                   sizeof(vtt_oc->filename));
538     } else {
539         if (c->use_localtime) {
540             time_t now0;
541             struct tm *tm, tmpbuf;
542             time(&now0);
543             tm = localtime_r(&now0, &tmpbuf);
544             if (!strftime(oc->filename, sizeof(oc->filename), c->basename, tm)) {
545                 av_log(oc, AV_LOG_ERROR, "Could not get segment filename with use_localtime\n");
546                 return AVERROR(EINVAL);
547             }
548
549             if (c->use_localtime_mkdir) {
550                 const char *dir;
551                 char *fn_copy = av_strdup(oc->filename);
552                 if (!fn_copy) {
553                     return AVERROR(ENOMEM);
554                 }
555                 dir = av_dirname(fn_copy);
556                 if (mkdir(dir, 0777) == -1 && errno != EEXIST) {
557                     av_log(oc, AV_LOG_ERROR, "Could not create directory %s with use_localtime_mkdir\n", dir);
558                     av_free(fn_copy);
559                     return AVERROR(errno);
560                 }
561                 av_free(fn_copy);
562             }
563         } else if (av_get_frame_filename(oc->filename, sizeof(oc->filename),
564                                   c->basename, c->wrap ? c->sequence % c->wrap : c->sequence) < 0) {
565             av_log(oc, AV_LOG_ERROR, "Invalid segment filename template '%s' you can try use -use_localtime 1 with it\n", c->basename);
566             return AVERROR(EINVAL);
567         }
568         if( c->vtt_basename) {
569             if (av_get_frame_filename(vtt_oc->filename, sizeof(vtt_oc->filename),
570                               c->vtt_basename, c->wrap ? c->sequence % c->wrap : c->sequence) < 0) {
571                 av_log(vtt_oc, AV_LOG_ERROR, "Invalid segment filename template '%s'\n", c->vtt_basename);
572                 return AVERROR(EINVAL);
573             }
574        }
575     }
576     c->number++;
577
578     set_http_options(&options, c);
579
580     if (c->key_info_file) {
581         if ((err = hls_encryption_start(s)) < 0)
582             goto fail;
583         if ((err = av_dict_set(&options, "encryption_key", c->key_string, 0))
584                 < 0)
585             goto fail;
586         err = av_strlcpy(iv_string, c->iv_string, sizeof(iv_string));
587         if (!err)
588             snprintf(iv_string, sizeof(iv_string), "%032"PRIx64, c->sequence);
589         if ((err = av_dict_set(&options, "encryption_iv", iv_string, 0)) < 0)
590            goto fail;
591
592         filename = av_asprintf("crypto:%s", oc->filename);
593         if (!filename) {
594             err = AVERROR(ENOMEM);
595             goto fail;
596         }
597         err = s->io_open(s, &oc->pb, filename, AVIO_FLAG_WRITE, &options);
598         av_free(filename);
599         av_dict_free(&options);
600         if (err < 0)
601             return err;
602     } else
603         if ((err = s->io_open(s, &oc->pb, oc->filename, AVIO_FLAG_WRITE, &options)) < 0)
604             goto fail;
605     if (c->vtt_basename) {
606         set_http_options(&options, c);
607         if ((err = s->io_open(s, &vtt_oc->pb, vtt_oc->filename, AVIO_FLAG_WRITE, &options)) < 0)
608             goto fail;
609     }
610     av_dict_free(&options);
611
612     /* We only require one PAT/PMT per segment. */
613     if (oc->oformat->priv_class && oc->priv_data) {
614         char period[21];
615
616         snprintf(period, sizeof(period), "%d", (INT_MAX / 2) - 1);
617
618         av_opt_set(oc->priv_data, "mpegts_flags", "resend_headers", 0);
619         av_opt_set(oc->priv_data, "sdt_period", period, 0);
620         av_opt_set(oc->priv_data, "pat_period", period, 0);
621     }
622
623     if (c->vtt_basename) {
624         err = avformat_write_header(vtt_oc,NULL);
625         if (err < 0)
626             return err;
627     }
628
629     return 0;
630 fail:
631     av_dict_free(&options);
632
633     return err;
634 }
635
636 static int hls_write_header(AVFormatContext *s)
637 {
638     HLSContext *hls = s->priv_data;
639     int ret, i;
640     char *p;
641     const char *pattern = "%d.ts";
642     const char *pattern_localtime_fmt = "-%s.ts";
643     const char *vtt_pattern = "%d.vtt";
644     AVDictionary *options = NULL;
645     int basename_size;
646     int vtt_basename_size;
647
648     hls->sequence       = hls->start_sequence;
649     hls->recording_time = hls->time * AV_TIME_BASE;
650     hls->start_pts      = AV_NOPTS_VALUE;
651
652     if (hls->format_options_str) {
653         ret = av_dict_parse_string(&hls->format_options, hls->format_options_str, "=", ":", 0);
654         if (ret < 0) {
655             av_log(s, AV_LOG_ERROR, "Could not parse format options list '%s'\n", hls->format_options_str);
656             goto fail;
657         }
658     }
659
660     for (i = 0; i < s->nb_streams; i++) {
661         hls->has_video +=
662             s->streams[i]->codecpar->codec_type == AVMEDIA_TYPE_VIDEO;
663         hls->has_subtitle +=
664             s->streams[i]->codecpar->codec_type == AVMEDIA_TYPE_SUBTITLE;
665     }
666
667     if (hls->has_video > 1)
668         av_log(s, AV_LOG_WARNING,
669                "More than a single video stream present, "
670                "expect issues decoding it.\n");
671
672     hls->oformat = av_guess_format("mpegts", NULL, NULL);
673
674     if (!hls->oformat) {
675         ret = AVERROR_MUXER_NOT_FOUND;
676         goto fail;
677     }
678
679     if(hls->has_subtitle) {
680         hls->vtt_oformat = av_guess_format("webvtt", NULL, NULL);
681         if (!hls->oformat) {
682             ret = AVERROR_MUXER_NOT_FOUND;
683             goto fail;
684         }
685     }
686
687     if (hls->segment_filename) {
688         hls->basename = av_strdup(hls->segment_filename);
689         if (!hls->basename) {
690             ret = AVERROR(ENOMEM);
691             goto fail;
692         }
693     } else {
694         if (hls->flags & HLS_SINGLE_FILE)
695             pattern = ".ts";
696
697         if (hls->use_localtime) {
698             basename_size = strlen(s->filename) + strlen(pattern_localtime_fmt) + 1;
699         } else {
700             basename_size = strlen(s->filename) + strlen(pattern) + 1;
701         }
702         hls->basename = av_malloc(basename_size);
703         if (!hls->basename) {
704             ret = AVERROR(ENOMEM);
705             goto fail;
706         }
707
708         av_strlcpy(hls->basename, s->filename, basename_size);
709
710         p = strrchr(hls->basename, '.');
711         if (p)
712             *p = '\0';
713         if (hls->use_localtime) {
714             av_strlcat(hls->basename, pattern_localtime_fmt, basename_size);
715         } else {
716             av_strlcat(hls->basename, pattern, basename_size);
717         }
718     }
719
720     if(hls->has_subtitle) {
721
722         if (hls->flags & HLS_SINGLE_FILE)
723             vtt_pattern = ".vtt";
724         vtt_basename_size = strlen(s->filename) + strlen(vtt_pattern) + 1;
725         hls->vtt_basename = av_malloc(vtt_basename_size);
726         if (!hls->vtt_basename) {
727             ret = AVERROR(ENOMEM);
728             goto fail;
729         }
730         hls->vtt_m3u8_name = av_malloc(vtt_basename_size);
731         if (!hls->vtt_m3u8_name ) {
732             ret = AVERROR(ENOMEM);
733             goto fail;
734         }
735         av_strlcpy(hls->vtt_basename, s->filename, vtt_basename_size);
736         p = strrchr(hls->vtt_basename, '.');
737         if (p)
738             *p = '\0';
739
740         if( hls->subtitle_filename ) {
741             strcpy(hls->vtt_m3u8_name, hls->subtitle_filename);
742         } else {
743             strcpy(hls->vtt_m3u8_name, hls->vtt_basename);
744             av_strlcat(hls->vtt_m3u8_name, "_vtt.m3u8", vtt_basename_size);
745         }
746         av_strlcat(hls->vtt_basename, vtt_pattern, vtt_basename_size);
747     }
748
749     if ((ret = hls_mux_init(s)) < 0)
750         goto fail;
751
752     if ((ret = hls_start(s)) < 0)
753         goto fail;
754
755     av_dict_copy(&options, hls->format_options, 0);
756     ret = avformat_write_header(hls->avf, &options);
757     if (av_dict_count(options)) {
758         av_log(s, AV_LOG_ERROR, "Some of provided format options in '%s' are not recognized\n", hls->format_options_str);
759         ret = AVERROR(EINVAL);
760         goto fail;
761     }
762     //av_assert0(s->nb_streams == hls->avf->nb_streams);
763     for (i = 0; i < s->nb_streams; i++) {
764         AVStream *inner_st;
765         AVStream *outer_st = s->streams[i];
766         if (outer_st->codecpar->codec_type != AVMEDIA_TYPE_SUBTITLE)
767             inner_st = hls->avf->streams[i];
768         else if (hls->vtt_avf)
769             inner_st = hls->vtt_avf->streams[0];
770         else {
771             /* We have a subtitle stream, when the user does not want one */
772             inner_st = NULL;
773             continue;
774         }
775         avpriv_set_pts_info(outer_st, inner_st->pts_wrap_bits, inner_st->time_base.num, inner_st->time_base.den);
776     }
777 fail:
778
779     av_dict_free(&options);
780     if (ret < 0) {
781         av_freep(&hls->basename);
782         av_freep(&hls->vtt_basename);
783         if (hls->avf)
784             avformat_free_context(hls->avf);
785         if (hls->vtt_avf)
786             avformat_free_context(hls->vtt_avf);
787
788     }
789     return ret;
790 }
791
792 static int hls_write_packet(AVFormatContext *s, AVPacket *pkt)
793 {
794     HLSContext *hls = s->priv_data;
795     AVFormatContext *oc = NULL;
796     AVStream *st = s->streams[pkt->stream_index];
797     int64_t end_pts = hls->recording_time * hls->number;
798     int is_ref_pkt = 1;
799     int ret, can_split = 1;
800     int stream_index = 0;
801
802     if( st->codecpar->codec_type == AVMEDIA_TYPE_SUBTITLE ) {
803         oc = hls->vtt_avf;
804         stream_index = 0;
805     } else {
806         oc = hls->avf;
807         stream_index = pkt->stream_index;
808     }
809     if (hls->start_pts == AV_NOPTS_VALUE) {
810         hls->start_pts = pkt->pts;
811         hls->end_pts   = pkt->pts;
812     }
813
814     if (hls->has_video) {
815         can_split = st->codecpar->codec_type == AVMEDIA_TYPE_VIDEO &&
816                     pkt->flags & AV_PKT_FLAG_KEY;
817         is_ref_pkt = st->codecpar->codec_type == AVMEDIA_TYPE_VIDEO;
818     }
819     if (pkt->pts == AV_NOPTS_VALUE)
820         is_ref_pkt = can_split = 0;
821
822     if (is_ref_pkt)
823         hls->duration = (double)(pkt->pts - hls->end_pts)
824                                    * st->time_base.num / st->time_base.den;
825
826     if (can_split && av_compare_ts(pkt->pts - hls->start_pts, st->time_base,
827                                    end_pts, AV_TIME_BASE_Q) >= 0) {
828         int64_t new_start_pos;
829         av_write_frame(oc, NULL); /* Flush any buffered data */
830
831         new_start_pos = avio_tell(hls->avf->pb);
832         hls->size = new_start_pos - hls->start_pos;
833         ret = hls_append_segment(s, hls, hls->duration, hls->start_pos, hls->size);
834         hls->start_pos = new_start_pos;
835         if (ret < 0)
836             return ret;
837
838         hls->end_pts = pkt->pts;
839         hls->duration = 0;
840
841         if (hls->flags & HLS_SINGLE_FILE) {
842             if (hls->avf->oformat->priv_class && hls->avf->priv_data)
843                 av_opt_set(hls->avf->priv_data, "mpegts_flags", "resend_headers", 0);
844             hls->number++;
845         } else {
846             ff_format_io_close(s, &oc->pb);
847             if (hls->vtt_avf)
848                 ff_format_io_close(s, &hls->vtt_avf->pb);
849
850             ret = hls_start(s);
851         }
852
853         if (ret < 0)
854             return ret;
855
856         if( st->codecpar->codec_type == AVMEDIA_TYPE_SUBTITLE )
857             oc = hls->vtt_avf;
858         else
859         oc = hls->avf;
860
861         if ((ret = hls_window(s, 0)) < 0)
862             return ret;
863     }
864
865     ret = ff_write_chained(oc, stream_index, pkt, s, 0);
866
867     return ret;
868 }
869
870 static int hls_write_trailer(struct AVFormatContext *s)
871 {
872     HLSContext *hls = s->priv_data;
873     AVFormatContext *oc = hls->avf;
874     AVFormatContext *vtt_oc = hls->vtt_avf;
875
876     av_write_trailer(oc);
877     if (oc->pb) {
878         hls->size = avio_tell(hls->avf->pb) - hls->start_pos;
879         ff_format_io_close(s, &oc->pb);
880         hls_append_segment(s, hls, hls->duration, hls->start_pos, hls->size);
881     }
882
883     if (vtt_oc) {
884         if (vtt_oc->pb)
885             av_write_trailer(vtt_oc);
886         hls->size = avio_tell(hls->vtt_avf->pb) - hls->start_pos;
887         ff_format_io_close(s, &vtt_oc->pb);
888     }
889     av_freep(&hls->basename);
890     avformat_free_context(oc);
891
892     if (vtt_oc) {
893         av_freep(&hls->vtt_basename);
894         av_freep(&hls->vtt_m3u8_name);
895         avformat_free_context(vtt_oc);
896     }
897
898     hls->avf = NULL;
899     hls_window(s, 1);
900
901     hls_free_segments(hls->segments);
902     hls_free_segments(hls->old_segments);
903     return 0;
904 }
905
906 #define OFFSET(x) offsetof(HLSContext, x)
907 #define E AV_OPT_FLAG_ENCODING_PARAM
908 static const AVOption options[] = {
909     {"start_number",  "set first number in the sequence",        OFFSET(start_sequence),AV_OPT_TYPE_INT64,  {.i64 = 0},     0, INT64_MAX, E},
910     {"hls_time",      "set segment length in seconds",           OFFSET(time),    AV_OPT_TYPE_FLOAT,  {.dbl = 2},     0, FLT_MAX, E},
911     {"hls_list_size", "set maximum number of playlist entries",  OFFSET(max_nb_segments),    AV_OPT_TYPE_INT,    {.i64 = 5},     0, INT_MAX, E},
912     {"hls_ts_options","set hls mpegts list of options for the container format used for hls", OFFSET(format_options_str), AV_OPT_TYPE_STRING, {.str = NULL},  0, 0,    E},
913     {"hls_vtt_options","set hls vtt list of options for the container format used for hls", OFFSET(vtt_format_options_str), AV_OPT_TYPE_STRING, {.str = NULL},  0, 0,    E},
914     {"hls_wrap",      "set number after which the index wraps",  OFFSET(wrap),    AV_OPT_TYPE_INT,    {.i64 = 0},     0, INT_MAX, E},
915     {"hls_allow_cache", "explicitly set whether the client MAY (1) or MUST NOT (0) cache media segments", OFFSET(allowcache), AV_OPT_TYPE_INT, {.i64 = -1}, INT_MIN, INT_MAX, E},
916     {"hls_base_url",  "url to prepend to each playlist entry",   OFFSET(baseurl), AV_OPT_TYPE_STRING, {.str = NULL},  0, 0,       E},
917     {"hls_segment_filename", "filename template for segment files", OFFSET(segment_filename),   AV_OPT_TYPE_STRING, {.str = NULL},            0,       0,         E},
918     {"hls_key_info_file",    "file with key URI and key file path", OFFSET(key_info_file),      AV_OPT_TYPE_STRING, {.str = NULL},            0,       0,         E},
919     {"hls_subtitle_path",     "set path of hls subtitles", OFFSET(subtitle_filename), AV_OPT_TYPE_STRING, {.str = NULL},  0, 0,    E},
920     {"hls_flags",     "set flags affecting HLS playlist and media file generation", OFFSET(flags), AV_OPT_TYPE_FLAGS, {.i64 = 0 }, 0, UINT_MAX, E, "flags"},
921     {"single_file",   "generate a single media file indexed with byte ranges", 0, AV_OPT_TYPE_CONST, {.i64 = HLS_SINGLE_FILE }, 0, UINT_MAX,   E, "flags"},
922     {"delete_segments", "delete segment files that are no longer part of the playlist", 0, AV_OPT_TYPE_CONST, {.i64 = HLS_DELETE_SEGMENTS }, 0, UINT_MAX,   E, "flags"},
923     {"round_durations", "round durations in m3u8 to whole numbers", 0, AV_OPT_TYPE_CONST, {.i64 = HLS_ROUND_DURATIONS }, 0, UINT_MAX,   E, "flags"},
924     {"discont_start", "start the playlist with a discontinuity tag", 0, AV_OPT_TYPE_CONST, {.i64 = HLS_DISCONT_START }, 0, UINT_MAX,   E, "flags"},
925     {"omit_endlist", "Do not append an endlist when ending stream", 0, AV_OPT_TYPE_CONST, {.i64 = HLS_OMIT_ENDLIST }, 0, UINT_MAX,   E, "flags"},
926     {"use_localtime", "set filename expansion with strftime at segment creation", OFFSET(use_localtime), AV_OPT_TYPE_BOOL, {.i64 = 0 }, 0, 1, E },
927     {"use_localtime_mkdir", "create last directory component in strftime-generated filename", OFFSET(use_localtime_mkdir), AV_OPT_TYPE_BOOL, {.i64 = 0 }, 0, 1, E },
928     {"hls_playlist_type", "set the HLS playlist type", OFFSET(pl_type), AV_OPT_TYPE_INT, {.i64 = PLAYLIST_TYPE_NONE }, 0, PLAYLIST_TYPE_NB-1, E, "pl_type" },
929     {"event", "EVENT playlist", 0, AV_OPT_TYPE_CONST, {.i64 = PLAYLIST_TYPE_EVENT }, INT_MIN, INT_MAX, E, "pl_type" },
930     {"vod", "VOD playlist", 0, AV_OPT_TYPE_CONST, {.i64 = PLAYLIST_TYPE_VOD }, INT_MIN, INT_MAX, E, "pl_type" },
931     {"method", "set the HTTP method", OFFSET(method), AV_OPT_TYPE_STRING, {.str = NULL},  0, 0,    E},
932
933     { NULL },
934 };
935
936 static const AVClass hls_class = {
937     .class_name = "hls muxer",
938     .item_name  = av_default_item_name,
939     .option     = options,
940     .version    = LIBAVUTIL_VERSION_INT,
941 };
942
943
944 AVOutputFormat ff_hls_muxer = {
945     .name           = "hls",
946     .long_name      = NULL_IF_CONFIG_SMALL("Apple HTTP Live Streaming"),
947     .extensions     = "m3u8",
948     .priv_data_size = sizeof(HLSContext),
949     .audio_codec    = AV_CODEC_ID_AAC,
950     .video_codec    = AV_CODEC_ID_H264,
951     .subtitle_codec = AV_CODEC_ID_WEBVTT,
952     .flags          = AVFMT_NOFILE | AVFMT_ALLOW_FLUSH,
953     .write_header   = hls_write_header,
954     .write_packet   = hls_write_packet,
955     .write_trailer  = hls_write_trailer,
956     .priv_class     = &hls_class,
957 };