]> git.sesse.net Git - casparcg/blob - modules/ffmpeg/consumer/ffmpeg_consumer.cpp
Created template alias for std::vector<T, tbb::cache_aligned_allocator<T>> to caspar...
[casparcg] / modules / ffmpeg / consumer / ffmpeg_consumer.cpp
1 /*
2 * Copyright (c) 2011 Sveriges Television AB <info@casparcg.com>
3 *
4 * This file is part of CasparCG (www.casparcg.com).
5 *
6 * CasparCG is free software: you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation, either version 3 of the License, or
9 * (at your option) any later version.
10 *
11 * CasparCG is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with CasparCG. If not, see <http://www.gnu.org/licenses/>.
18 *
19 * Author: Robert Nagy, ronag89@gmail.com
20 */
21  
22 #include "../StdAfx.h"
23
24 #include "../ffmpeg_error.h"
25
26 #include "ffmpeg_consumer.h"
27
28 #include "../producer/tbb_avcodec.h"
29
30 #include <core/frame/frame.h>
31 #include <core/mixer/audio/audio_util.h>
32 #include <core/consumer/frame_consumer.h>
33 #include <core/video_format.h>
34
35 #include <common/array.h>
36 #include <common/env.h>
37 #include <common/except.h>
38 #include <common/executor.h>
39 #include <common/future.h>
40 #include <common/diagnostics/graph.h>
41 #include <common/lock.h>
42 #include <common/memory.h>
43 #include <common/param.h>
44 #include <common/utf.h>
45 #include <common/assert.h>
46 #include <common/memshfl.h>
47
48 #include <boost/algorithm/string.hpp>
49 #include <boost/timer.hpp>
50 #include <boost/property_tree/ptree.hpp>
51 #include <boost/filesystem.hpp>
52 #include <boost/range/algorithm.hpp>
53 #include <boost/range/algorithm_ext.hpp>
54 #include <boost/lexical_cast.hpp>
55
56 #include <tbb/spin_mutex.h>
57
58 #include <numeric>
59
60 #if defined(_MSC_VER)
61 #pragma warning (push)
62 #pragma warning (disable : 4244)
63 #endif
64 extern "C" 
65 {
66         #define __STDC_CONSTANT_MACROS
67         #define __STDC_LIMIT_MACROS
68         #include <libavformat/avformat.h>
69         #include <libswscale/swscale.h>
70         #include <libavutil/opt.h>
71         #include <libavutil/pixdesc.h>
72         #include <libavutil/parseutils.h>
73         #include <libavutil/samplefmt.h>
74         #include <libswresample/swresample.h>
75 }
76 #if defined(_MSC_VER)
77 #pragma warning (pop)
78 #endif
79
80 namespace caspar { namespace ffmpeg {
81         
82 int av_opt_set(void *obj, const char *name, const char *val, int search_flags)
83 {
84         AVClass* av_class = *(AVClass**)obj;
85
86         if((strcmp(name, "pix_fmt") == 0 || strcmp(name, "pixel_format") == 0) && strcmp(av_class->class_name, "AVCodecContext") == 0)
87         {
88                 AVCodecContext* c = (AVCodecContext*)obj;               
89                 auto pix_fmt = av_get_pix_fmt(val);
90                 if(pix_fmt == PIX_FMT_NONE)
91                         return -1;              
92                 c->pix_fmt = pix_fmt;
93                 return 0;
94         }
95         //if((strcmp(name, "r") == 0 || strcmp(name, "frame_rate") == 0) && strcmp(av_class->class_name, "AVCodecContext") == 0)
96         //{
97         //      AVCodecContext* c = (AVCodecContext*)obj;       
98
99         //      if(c->codec_type != AVMEDIA_TYPE_VIDEO)
100         //              return -1;
101
102         //      AVRational rate;
103         //      int ret = av_parse_video_rate(&rate, val);
104         //      if(ret < 0)
105         //              return ret;
106
107         //      c->time_base.num = rate.den;
108         //      c->time_base.den = rate.num;
109         //      return 0;
110         //}
111
112         return ::av_opt_set(obj, name, val, search_flags);
113 }
114
115 struct option
116 {
117         std::string name;
118         std::string value;
119
120         option(std::string name, std::string value)
121                 : name(std::move(name))
122                 , value(std::move(value))
123         {
124         }
125 };
126         
127 struct output_format
128 {
129         AVOutputFormat* format;
130         int                             width;
131         int                             height;
132         AVCodecID               vcodec;
133         AVCodecID               acodec;
134         int                             croptop;
135         int                             cropbot;
136
137         output_format(const core::video_format_desc& format_desc, const std::string& filename, std::vector<option>& options)
138                 : format(av_guess_format(nullptr, filename.c_str(), nullptr))
139                 , width(format_desc.width)
140                 , height(format_desc.height)
141                 , vcodec(CODEC_ID_NONE)
142                 , acodec(CODEC_ID_NONE)
143                 , croptop(0)
144                 , cropbot(0)
145         {
146                 if(boost::iequals(boost::filesystem::path(filename).extension().string(), ".dv"))
147                         set_opt("f", "dv");
148
149                 boost::range::remove_erase_if(options, [&](const option& o)
150                 {
151                         return set_opt(o.name, o.value);
152                 });
153                 
154                 if(vcodec == CODEC_ID_NONE && format)
155                         vcodec = format->video_codec;
156
157                 if(acodec == CODEC_ID_NONE && format)
158                         acodec = format->audio_codec;
159                 
160                 if(vcodec == CODEC_ID_NONE)
161                         vcodec = CODEC_ID_H264;
162                 
163                 if(acodec == CODEC_ID_NONE)
164                         acodec = CODEC_ID_PCM_S16LE;
165         }
166         
167         bool set_opt(const std::string& name, const std::string& value)
168         {
169                 //if(name == "target")
170                 //{ 
171                 //      enum { PAL, NTSC, FILM, UNKNOWN } norm = UNKNOWN;
172                 //      
173                 //      if(name.find("pal-") != std::string::npos)
174                 //              norm = PAL;
175                 //      else if(name.find("ntsc-") != std::string::npos)
176                 //              norm = NTSC;
177
178                 //      if(norm == UNKNOWN)
179                 //              CASPAR_THROW_EXCEPTION(invalid_argument() << arg_name_info("target"));
180                 //      
181                 //      if (name.find("-dv") != std::string::npos) 
182                 //      {
183                 //              set_opt("f", "dv");
184                 //              if(norm == PAL)
185                 //              {
186                 //                      set_opt("s", "720x576");
187                 //              }
188                 //              else
189                 //              {
190                 //                      set_opt("s", "720x480");
191                 //                      if(height == 486)
192                 //                      {
193                 //                              set_opt("croptop", "2");
194                 //                              set_opt("cropbot", "4");
195                 //                      }
196                 //              }
197                 //              set_opt("s", norm == PAL ? "720x576" : "720x480");
198                 //      } 
199
200                 //      return true;
201                 //}
202                 //else 
203                 if(name == "f")
204                 {
205                         format = av_guess_format(value.c_str(), nullptr, nullptr);
206
207                         if(format == nullptr)
208                                 CASPAR_THROW_EXCEPTION(invalid_argument() << arg_name_info("f"));
209
210                         return true;
211                 }
212                 else if(name == "vcodec" || name == "v:codec")
213                 {
214                         auto c = avcodec_find_encoder_by_name(value.c_str());
215                         if(c == nullptr)
216                                 CASPAR_THROW_EXCEPTION(invalid_argument() << arg_name_info("vcodec"));
217
218                         vcodec = avcodec_find_encoder_by_name(value.c_str())->id;
219                         return true;
220
221                 }
222                 else if(name == "acodec" || name == "a:codec")
223                 {
224                         auto c = avcodec_find_encoder_by_name(value.c_str());
225                         if(c == nullptr)
226                                 CASPAR_THROW_EXCEPTION(invalid_argument() << arg_name_info("acodec"));
227
228                         acodec = avcodec_find_encoder_by_name(value.c_str())->id;
229
230                         return true;
231                 }
232                 else if(name == "s")
233                 {
234                         if(av_parse_video_size(&width, &height, value.c_str()) < 0)
235                                 CASPAR_THROW_EXCEPTION(invalid_argument() << arg_name_info("s"));
236                         
237                         return true;
238                 }
239                 else if(name == "croptop")
240                 {
241                         croptop = boost::lexical_cast<int>(value);
242
243                         return true;
244                 }
245                 else if(name == "cropbot")
246                 {
247                         cropbot = boost::lexical_cast<int>(value);
248
249                         return true;
250                 }
251                 
252                 return false;
253         }
254 };
255
256 typedef cache_aligned_vector<uint8_t> byte_vector;
257
258 struct ffmpeg_consumer : boost::noncopyable
259 {               
260         const spl::shared_ptr<diagnostics::graph>       graph_;
261         const std::string                                                       filename_;              
262         const std::shared_ptr<AVFormatContext>          oc_                                     { avformat_alloc_context(), av_free };
263         const core::video_format_desc                           format_desc_;   
264
265         core::monitor::subject                                          monitor_subject_;
266         
267         tbb::spin_mutex                                                         exception_mutex_;
268         std::exception_ptr                                                      exception_;
269         
270         std::shared_ptr<AVStream>                                       audio_st_;
271         std::shared_ptr<AVStream>                                       video_st_;
272         
273         byte_vector                                                                     picture_buffer_;
274         byte_vector                                                                     key_picture_buf_;
275         byte_vector                                                                     audio_buffer_;
276         std::shared_ptr<SwrContext>                                     swr_;
277         std::shared_ptr<SwsContext>                                     sws_;
278
279         int64_t                                                                         frame_number_           = 0;
280
281         output_format                                                           output_format_;
282         bool                                                                            key_only_;
283         
284         executor                                                                        executor_;
285 public:
286         ffmpeg_consumer(const std::string& filename, const core::video_format_desc& format_desc, std::vector<option> options, bool key_only)
287                 : filename_(filename)
288                 , format_desc_(format_desc)
289                 , output_format_(format_desc, filename, options)
290                 , key_only_(key_only)
291                 , executor_(print())
292         {
293                 check_space();
294
295                 // TODO: Ask stakeholders about case where file already exists.
296                 boost::filesystem::remove(boost::filesystem::path(env::media_folder() + u16(filename))); // Delete the file if it exists
297
298                 graph_->set_color("frame-time", diagnostics::color(0.1f, 1.0f, 0.1f));
299                 graph_->set_color("dropped-frame", diagnostics::color(0.3f, 0.6f, 0.3f));
300                 graph_->set_text(print());
301                 diagnostics::register_graph(graph_);
302
303                 executor_.set_capacity(8);
304
305                 oc_->oformat = output_format_.format;
306                                 
307                 strcpy_s(oc_->filename, filename_.c_str());
308                 
309                 //  Add the audio and video streams using the default format codecs     and initialize the codecs.
310                 video_st_ = add_video_stream(options);
311
312                 if (!key_only)
313                         audio_st_ = add_audio_stream(options);
314                                 
315                 av_dump_format(oc_.get(), 0, filename_.c_str(), 1);
316                  
317                 // Open the output ffmpeg, if needed.
318                 if (!(oc_->oformat->flags & AVFMT_NOFILE)) 
319                         THROW_ON_ERROR2(avio_open(&oc_->pb, filename.c_str(), AVIO_FLAG_WRITE), "[ffmpeg_consumer]");
320                                 
321                 THROW_ON_ERROR2(avformat_write_header(oc_.get(), nullptr), "[ffmpeg_consumer]");
322
323                 if(options.size() > 0)
324                 {
325                         for (auto& option : options)
326                                 CASPAR_LOG(warning) << L"Invalid option: -" << u16(option.name) << L" " << u16(option.value);
327                 }
328
329                 CASPAR_LOG(info) << print() << L" Successfully Initialized.";   
330         }
331
332         ~ffmpeg_consumer()
333         {    
334                 try
335                 {
336                         executor_.wait();
337                 }
338                 catch(...)
339                 {
340                         CASPAR_LOG_CURRENT_EXCEPTION();
341                 }
342
343                 LOG_ON_ERROR2(av_write_trailer(oc_.get()), "[ffmpeg_consumer]");
344                 
345                 if (!key_only_)
346                         audio_st_.reset();
347
348                 video_st_.reset();
349                           
350                 if (!(oc_->oformat->flags & AVFMT_NOFILE)) 
351                         LOG_ON_ERROR2(avio_close(oc_->pb), "[ffmpeg_consumer]");
352
353                 CASPAR_LOG(info) << print() << L" Successfully Uninitialized."; 
354         }
355         
356         // frame_consumer
357
358         void send(core::const_frame& frame)
359         {
360                 auto exception = lock(exception_mutex_, [&]
361                 {
362                         return exception_;
363                 });
364
365                 if(exception != nullptr)
366                         std::rethrow_exception(exception);
367
368                 executor_.begin_invoke([=]
369                 {               
370                         encode(frame);
371                 });
372         }
373
374         bool ready_for_frame() const
375         {
376                 return !executor_.is_full();
377         }
378
379         void mark_dropped()
380         {
381                 graph_->set_tag("dropped-frame");
382         }
383
384         std::wstring print() const
385         {
386                 return L"ffmpeg[" + u16(filename_) + L"]";
387         }
388         
389         core::monitor::subject& monitor_output()
390         {
391                 return monitor_subject_;
392         }
393
394 private:
395         std::shared_ptr<AVStream> add_video_stream(std::vector<option>& options)
396         { 
397                 if(output_format_.vcodec == CODEC_ID_NONE)
398                         return nullptr;
399
400                 auto st = av_new_stream(oc_.get(), 0);
401                 if (!st)                
402                         CASPAR_THROW_EXCEPTION(caspar_exception() << msg_info("Could not allocate video-stream.") << boost::errinfo_api_function("av_new_stream"));             
403
404                 auto encoder = avcodec_find_encoder(output_format_.vcodec);
405                 if (!encoder)
406                         CASPAR_THROW_EXCEPTION(caspar_exception() << msg_info("Codec not found."));
407
408                 auto c = st->codec;
409
410                 avcodec_get_context_defaults3(c, encoder);
411                                 
412                 c->codec_id                     = output_format_.vcodec;
413                 c->codec_type           = AVMEDIA_TYPE_VIDEO;
414                 c->width                        = output_format_.width;
415                 c->height                       = output_format_.height - output_format_.croptop - output_format_.cropbot;
416                 c->time_base.den        = format_desc_.time_scale;
417                 c->time_base.num        = format_desc_.duration;
418                 c->gop_size                     = 25;
419                 c->flags                   |= format_desc_.field_mode == core::field_mode::progressive ? 0 : (CODEC_FLAG_INTERLACED_ME | CODEC_FLAG_INTERLACED_DCT);
420                 c->pix_fmt                      = c->pix_fmt != PIX_FMT_NONE ? c->pix_fmt : PIX_FMT_YUV420P;
421
422                 if(c->codec_id == CODEC_ID_PRORES)
423                 {                       
424                         c->bit_rate     = output_format_.width < 1280 ? 63*1000000 : 220*1000000;
425                         c->pix_fmt      = PIX_FMT_YUV422P10;
426                 }
427                 else if(c->codec_id == CODEC_ID_DNXHD)
428                 {
429                         if(c->width < 1280 || c->height < 720)
430                                 CASPAR_THROW_EXCEPTION(caspar_exception() << msg_info("Unsupported video dimensions."));
431
432                         c->bit_rate     = 220*1000000;
433                         c->pix_fmt      = PIX_FMT_YUV422P;
434                 }
435                 else if(c->codec_id == CODEC_ID_DVVIDEO)
436                 {
437                         c->width = c->height == 1280 ? 960  : c->width;
438                         
439                         if(format_desc_.format == core::video_format::ntsc)
440                         {
441                                 c->pix_fmt = PIX_FMT_YUV411P;
442                                 output_format_.croptop = 2;
443                                 output_format_.cropbot = 4;
444                                 c->height                          = output_format_.height - output_format_.croptop - output_format_.cropbot;
445                         }
446                         else if(format_desc_.format == core::video_format::pal)
447                                 c->pix_fmt = PIX_FMT_YUV420P;
448                         else // dv50
449                                 c->pix_fmt = PIX_FMT_YUV422P;
450                         
451                         if(format_desc_.duration == 1001)                       
452                                 c->width = c->height == 1080 ? 1280 : c->width;                 
453                         else
454                                 c->width = c->height == 1080 ? 1440 : c->width;                 
455                 }
456                 else if(c->codec_id == CODEC_ID_H264)
457                 {                          
458                         c->pix_fmt = PIX_FMT_YUV420P;    
459                         av_opt_set(c->priv_data, "preset", "ultrafast", 0);
460                         av_opt_set(c->priv_data, "tune",   "fastdecode",   0);
461                         av_opt_set(c->priv_data, "crf",    "5",     0);
462                 }
463                 else if(c->codec_id == CODEC_ID_QTRLE)
464                 {
465                         c->pix_fmt = PIX_FMT_ARGB;
466                 }
467                                                                 
468                 boost::range::remove_erase_if(options, [&](const option& o)
469                 {
470                         return o.name.at(0) != 'a' && ffmpeg::av_opt_set(c, o.name.c_str(), o.value.c_str(), AV_OPT_SEARCH_CHILDREN) > -1;
471                 });
472                                 
473                 if(output_format_.format->flags & AVFMT_GLOBALHEADER)
474                         c->flags |= CODEC_FLAG_GLOBAL_HEADER;
475                 
476                 THROW_ON_ERROR2(tbb_avcodec_open(c, encoder), "[ffmpeg_consumer]");
477
478                 return std::shared_ptr<AVStream>(st, [](AVStream* st)
479                 {
480                         LOG_ON_ERROR2(tbb_avcodec_close(st->codec), "[ffmpeg_consumer]");
481                         av_freep(&st->codec);
482                         av_freep(&st);
483                 });
484         }
485                 
486         std::shared_ptr<AVStream> add_audio_stream(std::vector<option>& options)
487         {
488                 if(output_format_.acodec == CODEC_ID_NONE)
489                         return nullptr;
490
491                 auto st = av_new_stream(oc_.get(), 1);
492                 if(!st)
493                         CASPAR_THROW_EXCEPTION(caspar_exception() << msg_info("Could not allocate audio-stream") << boost::errinfo_api_function("av_new_stream"));              
494                 
495                 auto encoder = avcodec_find_encoder(output_format_.acodec);
496                 if (!encoder)
497                         CASPAR_THROW_EXCEPTION(caspar_exception() << msg_info("codec not found"));
498                 
499                 auto c = st->codec;
500
501                 avcodec_get_context_defaults3(c, encoder);
502
503                 c->codec_id                     = output_format_.acodec;
504                 c->codec_type           = AVMEDIA_TYPE_AUDIO;
505                 c->sample_rate          = 48000;
506                 c->channels                     = 2;
507                 c->sample_fmt           = AV_SAMPLE_FMT_S16;
508                 c->time_base.num        = 1;
509                 c->time_base.den        = c->sample_rate;
510
511                 if(output_format_.vcodec == CODEC_ID_FLV1)              
512                         c->sample_rate  = 44100;                
513
514                 if(output_format_.format->flags & AVFMT_GLOBALHEADER)
515                         c->flags |= CODEC_FLAG_GLOBAL_HEADER;
516                                 
517                 boost::range::remove_erase_if(options, [&](const option& o)
518                 {
519                         return ffmpeg::av_opt_set(c, o.name.c_str(), o.value.c_str(), AV_OPT_SEARCH_CHILDREN) > -1;
520                 });
521
522                 THROW_ON_ERROR2(avcodec_open2(c, encoder, nullptr), "[ffmpeg_consumer]");
523
524                 return std::shared_ptr<AVStream>(st, [](AVStream* st)
525                 {
526                         LOG_ON_ERROR2(avcodec_close(st->codec), "[ffmpeg_consumer]");;
527                         av_freep(&st->codec);
528                         av_freep(&st);
529                 });
530         }
531   
532         void encode_video_frame(core::const_frame frame)
533         { 
534                 if(!video_st_)
535                         return;
536                 
537                 auto enc = video_st_->codec;
538          
539                 auto av_frame                           = convert_video(frame, enc);
540                 av_frame->interlaced_frame      = format_desc_.field_mode != core::field_mode::progressive;
541                 av_frame->top_field_first       = format_desc_.field_mode == core::field_mode::upper;
542                 av_frame->pts                           = frame_number_++;
543
544                 monitor_subject_ << core::monitor::message("/frame")
545                                 % static_cast<int64_t>(frame_number_)
546                                 % static_cast<int64_t>(std::numeric_limits<int64_t>::max());
547
548                 AVPacket pkt;
549                 av_init_packet(&pkt);
550                 pkt.data = nullptr;
551                 pkt.size = 0;
552
553                 int got_packet = 0;
554                 THROW_ON_ERROR2(avcodec_encode_video2(enc, &pkt, av_frame.get(), &got_packet), "[ffmpeg_consumer]");
555                 std::shared_ptr<AVPacket> guard(&pkt, av_free_packet);
556
557                 if(!got_packet)
558                         return;
559                  
560                 if (pkt.pts != AV_NOPTS_VALUE)
561                         pkt.pts = av_rescale_q(pkt.pts, enc->time_base, video_st_->time_base);
562                 if (pkt.dts != AV_NOPTS_VALUE)
563                         pkt.dts = av_rescale_q(pkt.dts, enc->time_base, video_st_->time_base);
564                  
565                 pkt.stream_index = video_st_->index;
566                         
567                 THROW_ON_ERROR2(av_interleaved_write_frame(oc_.get(), &pkt), "[ffmpeg_consumer]");
568         }
569                 
570         uint64_t get_channel_layout(AVCodecContext* dec)
571         {
572                 auto layout = (dec->channel_layout && dec->channels == av_get_channel_layout_nb_channels(dec->channel_layout)) ? dec->channel_layout : av_get_default_channel_layout(dec->channels);
573                 return layout;
574         }
575                 
576         void encode_audio_frame(core::const_frame frame)
577         {               
578                 if(!audio_st_)
579                         return;
580                 
581                 auto enc = audio_st_->codec;
582
583                 boost::push_back(audio_buffer_, convert_audio(frame, enc));
584                         
585                 auto frame_size = enc->frame_size != 0 ? enc->frame_size * enc->channels * av_get_bytes_per_sample(enc->sample_fmt) : static_cast<int>(audio_buffer_.size());
586                         
587                 while(audio_buffer_.size() >= frame_size)
588                 {                       
589                         std::shared_ptr<AVFrame> av_frame(avcodec_alloc_frame(), av_free);
590                         avcodec_get_frame_defaults(av_frame.get());             
591                         av_frame->nb_samples = frame_size / (enc->channels * av_get_bytes_per_sample(enc->sample_fmt));
592
593                         AVPacket pkt;
594                         av_init_packet(&pkt);
595                         pkt.data = nullptr;
596                         pkt.size = 0;                           
597                         
598                         THROW_ON_ERROR2(avcodec_fill_audio_frame(av_frame.get(), enc->channels, enc->sample_fmt, audio_buffer_.data(), frame_size, 1), "[ffmpeg_consumer]");
599
600                         int got_packet = 0;
601                         THROW_ON_ERROR2(avcodec_encode_audio2(enc, &pkt, av_frame.get(), &got_packet), "[ffmpeg_consumer]");
602                         std::shared_ptr<AVPacket> guard(&pkt, av_free_packet);
603                                 
604                         audio_buffer_.erase(audio_buffer_.begin(), audio_buffer_.begin() + frame_size);
605
606                         if(!got_packet)
607                                 return;
608                 
609                         if (pkt.pts != AV_NOPTS_VALUE)
610                                 pkt.pts      = av_rescale_q(pkt.pts, enc->time_base, audio_st_->time_base);
611                         if (pkt.dts != AV_NOPTS_VALUE)
612                                 pkt.dts      = av_rescale_q(pkt.dts, enc->time_base, audio_st_->time_base);
613                         if (pkt.duration > 0)
614                                 pkt.duration = static_cast<int>(av_rescale_q(pkt.duration, enc->time_base, audio_st_->time_base));
615                 
616                         pkt.stream_index = audio_st_->index;
617                                                 
618                         THROW_ON_ERROR2(av_interleaved_write_frame(oc_.get(), &pkt), "[ffmpeg_consumer]");
619                 }
620         }                
621         
622         std::shared_ptr<AVFrame> convert_video(core::const_frame frame, AVCodecContext* c)
623         {
624                 if(!sws_) 
625                 {
626                         sws_.reset(sws_getContext(format_desc_.width, 
627                                                                           format_desc_.height - output_format_.croptop  - output_format_.cropbot, 
628                                                                           PIX_FMT_BGRA,
629                                                                           c->width,
630                                                                           c->height, 
631                                                                           c->pix_fmt, 
632                                                                           SWS_BICUBIC, nullptr, nullptr, nullptr), 
633                                                 sws_freeContext);
634                         if (sws_ == nullptr) 
635                                 CASPAR_THROW_EXCEPTION(caspar_exception() << msg_info("Cannot initialize the conversion context"));
636                 }
637
638                 // #in_frame
639
640                 std::shared_ptr<AVFrame> in_frame(avcodec_alloc_frame(), av_free);
641
642                 auto in_picture = reinterpret_cast<AVPicture*>(in_frame.get());
643                 
644                 if (key_only_)
645                 {
646                         key_picture_buf_.resize(frame.image_data().size());
647                         in_picture->linesize[0] = format_desc_.width * 4;
648                         in_picture->data[0] = key_picture_buf_.data();
649
650                         aligned_memshfl(in_picture->data[0], frame.image_data().begin(), frame.image_data().size(), 0x0F0F0F0F, 0x0B0B0B0B, 0x07070707, 0x03030303);
651                 }
652                 else
653                 {
654                         avpicture_fill(
655                                         in_picture,
656                                         const_cast<uint8_t*>(frame.image_data().begin()),
657                                         PIX_FMT_BGRA,
658                                         format_desc_.width,
659                                         format_desc_.height - output_format_.croptop  - output_format_.cropbot);
660                 }
661
662                 // crop-top
663
664                 for(int n = 0; n < 4; ++n)              
665                         in_frame->data[n] += in_frame->linesize[n] * output_format_.croptop;            
666                 
667                 // #out_frame
668
669                 std::shared_ptr<AVFrame> out_frame(avcodec_alloc_frame(), av_free);
670                 
671                 av_image_fill_linesizes(out_frame->linesize, c->pix_fmt, c->width);
672                 for(int n = 0; n < 4; ++n)
673                         out_frame->linesize[n] += 32 - (out_frame->linesize[n] % 32); // align
674
675                 picture_buffer_.resize(av_image_fill_pointers(out_frame->data, c->pix_fmt, c->height, nullptr, out_frame->linesize));
676                 av_image_fill_pointers(out_frame->data, c->pix_fmt, c->height, picture_buffer_.data(), out_frame->linesize);
677                 
678                 // #scale
679
680                 sws_scale(sws_.get(), 
681                                   in_frame->data, 
682                                   in_frame->linesize,
683                                   0, 
684                                   format_desc_.height - output_format_.cropbot - output_format_.croptop, 
685                                   out_frame->data, 
686                                   out_frame->linesize);
687
688                 return out_frame;
689         }
690         
691         byte_vector convert_audio(core::const_frame& frame, AVCodecContext* c)
692         {
693                 if(!swr_) 
694                 {
695                         swr_ = std::shared_ptr<SwrContext>(swr_alloc_set_opts(nullptr,
696                                                                                 get_channel_layout(c), c->sample_fmt, c->sample_rate,
697                                                                                 av_get_default_channel_layout(format_desc_.audio_channels), AV_SAMPLE_FMT_S32, format_desc_.audio_sample_rate,
698                                                                                 0, nullptr), [](SwrContext* p){swr_free(&p);});
699
700                         if(!swr_)
701                                 CASPAR_THROW_EXCEPTION(bad_alloc());
702
703                         THROW_ON_ERROR2(swr_init(swr_.get()), "[audio_decoder]");
704                 }
705                                 
706                 byte_vector buffer(48000);
707
708                 const uint8_t* in[]  = {reinterpret_cast<const uint8_t*>(frame.audio_data().data())};
709                 uint8_t*       out[] = {buffer.data()};
710
711                 auto channel_samples = swr_convert(swr_.get(), 
712                                                                                    out, static_cast<int>(buffer.size()) / c->channels / av_get_bytes_per_sample(c->sample_fmt), 
713                                                                                    in, static_cast<int>(frame.audio_data().size()/format_desc_.audio_channels));
714
715                 buffer.resize(channel_samples * c->channels * av_get_bytes_per_sample(c->sample_fmt));  
716
717                 return buffer;
718         }
719
720         void check_space()
721         {
722                 auto space = boost::filesystem::space(boost::filesystem::path(filename_).parent_path());
723                 if(space.available < 512*1000000)
724                         BOOST_THROW_EXCEPTION(file_write_error() << msg_info("out of space"));
725         }
726
727         void encode(const core::const_frame& frame)
728         {
729                 try
730                 {
731                         if(frame_number_ % 25 == 0)
732                                 check_space();
733
734                         boost::timer frame_timer;
735
736                         encode_video_frame(frame);
737                         encode_audio_frame(frame);
738
739                         graph_->set_value("frame-time", frame_timer.elapsed()*format_desc_.fps*0.5);
740                 }
741                 catch(...)
742                 {                       
743                         lock(exception_mutex_, [&]
744                         {
745                                 exception_ = std::current_exception();
746                         });
747                 }
748         }
749 };
750
751 struct ffmpeg_consumer_proxy : public core::frame_consumer
752 {
753         const std::wstring                      filename_;
754         const std::vector<option>       options_;
755         const bool                                      separate_key_;
756
757         std::unique_ptr<ffmpeg_consumer> consumer_;
758         std::unique_ptr<ffmpeg_consumer> key_only_consumer_;
759
760 public:
761
762         ffmpeg_consumer_proxy(const std::wstring& filename, const std::vector<option>& options, bool separate_key)
763                 : filename_(filename)
764                 , options_(options)
765                 , separate_key_(separate_key_)
766         {
767         }
768         
769         virtual void initialize(const core::video_format_desc& format_desc, int)
770         {
771                 if(consumer_)
772                         BOOST_THROW_EXCEPTION(invalid_operation() << msg_info("Cannot reinitialize ffmpeg-consumer."));
773
774                 consumer_.reset(new ffmpeg_consumer(u8(filename_), format_desc, options_, false));
775
776                 if (separate_key_)
777                 {
778                         boost::filesystem::wpath fill_file(filename_);
779                         auto without_extension = u16(fill_file.stem().string());
780                         auto key_file = env::media_folder() + without_extension + L"_A" + u16(fill_file.extension().string());
781
782                         key_only_consumer_.reset(new ffmpeg_consumer(u8(key_file), format_desc, options_, true));
783                 }
784         }
785         
786         std::future<bool> send(core::const_frame frame) override
787         {
788                 bool ready_for_frame = consumer_->ready_for_frame();
789                 
790                 if (ready_for_frame && separate_key_)
791                         ready_for_frame = ready_for_frame && key_only_consumer_->ready_for_frame();
792
793                 if (ready_for_frame)
794                 {
795                         consumer_->send(frame);
796                         
797                         if (separate_key_)
798                                 key_only_consumer_->send(frame);
799                 }
800                 else
801                 {
802                         consumer_->mark_dropped();
803                         
804                         if (separate_key_)
805                                 key_only_consumer_->mark_dropped();
806                 }
807                 
808                 return make_ready_future(true);
809         }
810         
811         std::wstring print() const override
812         {
813                 return consumer_ ? consumer_->print() : L"[ffmpeg_consumer]";
814         }
815
816         std::wstring name() const override
817         {
818                 return L"file";
819         }
820
821         boost::property_tree::wptree info() const override
822         {
823                 boost::property_tree::wptree info;
824                 info.add(L"type", L"file");
825                 info.add(L"filename", filename_);
826                 info.add(L"separate_key", separate_key_);
827                 return info;
828         }
829                 
830         bool has_synchronization_clock() const override
831         {
832                 return false;
833         }
834
835         int buffer_depth() const override
836         {
837                 return 1;
838         }
839
840         int index() const override
841         {
842                 return 200;
843         }
844
845         core::monitor::subject& monitor_output()
846         {
847                 return consumer_->monitor_output();
848         }
849 };      
850 spl::shared_ptr<core::frame_consumer> create_consumer(const std::vector<std::wstring>& params)
851 {
852         auto params2 = params;
853         auto separate_key_it = std::find(params2.begin(), params2.end(), L"SEPARATE_KEY");
854         bool separate_key = false;
855
856         if (separate_key_it != params2.end())
857         {
858                 separate_key = true;
859                 params2.erase(separate_key_it);
860         }
861
862         auto str = std::accumulate(params2.begin(), params2.end(), std::wstring(), [](const std::wstring& lhs, const std::wstring& rhs) {return lhs + L" " + rhs;});
863         
864         boost::wregex path_exp(LR"(\s*FILE(\s(?<PATH>.+\.[^\s]+))?.*)", boost::regex::icase);
865
866         boost::wsmatch path;
867         if(!boost::regex_match(str, path, path_exp))
868                 return core::frame_consumer::empty();
869         
870         boost::wregex opt_exp(LR"(-((?<NAME>[^\s]+)\s+(?<VALUE>[^\s]+)))");     
871         
872         std::vector<option> options;
873         for(boost::wsregex_iterator it(str.begin(), str.end(), opt_exp); it != boost::wsregex_iterator(); ++it)
874         {
875                 auto name  = u8(boost::trim_copy(boost::to_lower_copy((*it)["NAME"].str())));
876                 auto value = u8(boost::trim_copy(boost::to_lower_copy((*it)["VALUE"].str())));
877                 
878                 if(value == "h264")
879                         value = "libx264";
880                 else if(value == "dvcpro")
881                         value = "dvvideo";
882
883                 options.push_back(option(name, value));
884         }
885                                 
886         return spl::make_shared<ffmpeg_consumer_proxy>(env::media_folder() + path["PATH"].str(), options, separate_key);
887 }
888
889 spl::shared_ptr<core::frame_consumer> create_consumer(const boost::property_tree::wptree& ptree)
890 {
891         auto filename           = ptree.get<std::wstring>(L"path");
892         auto codec                      = ptree.get(L"vcodec", L"libx264");
893         auto separate_key       = ptree.get(L"separate-key", false);
894
895         std::vector<option> options;
896         options.push_back(option("vcodec", u8(codec)));
897         
898         return spl::make_shared<ffmpeg_consumer_proxy>(env::media_folder() + filename, options, separate_key);
899 }
900
901 }}