/*
  * Blackmagic DeckLink output
  * Copyright (c) 2013-2014 Ramiro Polla
  *
  * This file is part of FFmpeg.
  *
  * FFmpeg is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * FFmpeg is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with FFmpeg; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 

 #include <atomic>
 using std::atomic;
 

 /* Include internal.h first to avoid conflict between winsock.h (used by
  * DeckLink headers) and winsock2.h (used by libavformat) in MSVC++ builds */
 extern "C" {
 #include "libavformat/internal.h"
 }
 

 #include <DeckLinkAPI.h>
 
 extern "C" {

 #include "libavformat/avformat.h"

 #include "libavutil/imgutils.h"

 #include "avdevice.h"

 }
 

 #include "decklink_common.h"

 #include "decklink_enc.h"
 
 
 /* DeckLink callback class declaration */
 class decklink_frame : public IDeckLinkVideoFrame
 {
 public:

     decklink_frame(struct decklink_ctx *ctx, AVFrame *avframe, AVCodecID codec_id, int height, int width) :
         _ctx(ctx), _avframe(avframe), _avpacket(NULL), _codec_id(codec_id), _height(height), _width(width),  _refs(1) { }
     decklink_frame(struct decklink_ctx *ctx, AVPacket *avpacket, AVCodecID codec_id, int height, int width) :
         _ctx(ctx), _avframe(NULL), _avpacket(avpacket), _codec_id(codec_id), _height(height), _width(width), _refs(1) { }
 
     virtual long           STDMETHODCALLTYPE GetWidth      (void)          { return _width; }
     virtual long           STDMETHODCALLTYPE GetHeight     (void)          { return _height; }
     virtual long           STDMETHODCALLTYPE GetRowBytes   (void)
     {
       if (_codec_id == AV_CODEC_ID_WRAPPED_AVFRAME)
           return _avframe->linesize[0] < 0 ? -_avframe->linesize[0] : _avframe->linesize[0];
       else
           return ((GetWidth() + 47) / 48) * 128;
     }
     virtual BMDPixelFormat STDMETHODCALLTYPE GetPixelFormat(void)

     {

         if (_codec_id == AV_CODEC_ID_WRAPPED_AVFRAME)
             return bmdFormat8BitYUV;

         else

             return bmdFormat10BitYUV;
     }
     virtual BMDFrameFlags  STDMETHODCALLTYPE GetFlags      (void)
     {
        if (_codec_id == AV_CODEC_ID_WRAPPED_AVFRAME)
            return _avframe->linesize[0] < 0 ? bmdFrameFlagFlipVertical : bmdFrameFlagDefault;
        else
            return bmdFrameFlagDefault;
     }
 
     virtual HRESULT        STDMETHODCALLTYPE GetBytes      (void **buffer)
     {
         if (_codec_id == AV_CODEC_ID_WRAPPED_AVFRAME) {
             if (_avframe->linesize[0] < 0)
                 *buffer = (void *)(_avframe->data[0] + _avframe->linesize[0] * (_avframe->height - 1));
             else
                 *buffer = (void *)(_avframe->data[0]);
         } else {
             *buffer = (void *)(_avpacket->data);
         }

         return S_OK;
     }

 
     virtual HRESULT STDMETHODCALLTYPE GetTimecode     (BMDTimecodeFormat format, IDeckLinkTimecode **timecode) { return S_FALSE; }
     virtual HRESULT STDMETHODCALLTYPE GetAncillaryData(IDeckLinkVideoFrameAncillary **ancillary)               { return S_FALSE; }
 
     virtual HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, LPVOID *ppv) { return E_NOINTERFACE; }

     virtual ULONG   STDMETHODCALLTYPE AddRef(void)                            { return ++_refs; }

     virtual ULONG   STDMETHODCALLTYPE Release(void)
     {

         int ret = --_refs;

         if (!ret) {
             av_frame_free(&_avframe);

             av_packet_free(&_avpacket);

             delete this;
         }
         return ret;
     }

 
     struct decklink_ctx *_ctx;
     AVFrame *_avframe;

     AVPacket *_avpacket;
     AVCodecID _codec_id;
     int _height;
     int _width;

 
 private:

     std::atomic<int>  _refs;

 };
 

 class decklink_output_callback : public IDeckLinkVideoOutputCallback

 {
 public:
     virtual HRESULT STDMETHODCALLTYPE ScheduledFrameCompleted(IDeckLinkVideoFrame *_frame, BMDOutputFrameCompletionResult result)
     {
         decklink_frame *frame = static_cast<decklink_frame *>(_frame);
         struct decklink_ctx *ctx = frame->_ctx;
 

         if (frame->_avframe)
             av_frame_unref(frame->_avframe);
         if (frame->_avpacket)
             av_packet_unref(frame->_avpacket);

         pthread_mutex_lock(&ctx->mutex);
         ctx->frames_buffer_available_spots++;
         pthread_cond_broadcast(&ctx->cond);
         pthread_mutex_unlock(&ctx->mutex);

 
         return S_OK;
     }
     virtual HRESULT STDMETHODCALLTYPE ScheduledPlaybackHasStopped(void)       { return S_OK; }
     virtual HRESULT STDMETHODCALLTYPE QueryInterface(REFIID iid, LPVOID *ppv) { return E_NOINTERFACE; }
     virtual ULONG   STDMETHODCALLTYPE AddRef(void)                            { return 1; }
     virtual ULONG   STDMETHODCALLTYPE Release(void)                           { return 1; }
 };
 
 static int decklink_setup_video(AVFormatContext *avctx, AVStream *st)
 {

     struct decklink_cctx *cctx = (struct decklink_cctx *)avctx->priv_data;
     struct decklink_ctx *ctx = (struct decklink_ctx *)cctx->ctx;

     AVCodecParameters *c = st->codecpar;

 
     if (ctx->video) {
         av_log(avctx, AV_LOG_ERROR, "Only one video stream is supported!\n");
         return -1;
     }
 

     if (c->codec_id == AV_CODEC_ID_WRAPPED_AVFRAME) {
         if (c->format != AV_PIX_FMT_UYVY422) {
             av_log(avctx, AV_LOG_ERROR, "Unsupported pixel format!"
                    " Only AV_PIX_FMT_UYVY422 is supported.\n");
             return -1;
         }
     } else if (c->codec_id != AV_CODEC_ID_V210) {
         av_log(avctx, AV_LOG_ERROR, "Unsupported codec type!"
                " Only V210 and wrapped frame with AV_PIX_FMT_UYVY422 are supported.\n");

         return -1;
     }

     if (ff_decklink_set_format(avctx, c->width, c->height,

                             st->time_base.num, st->time_base.den, c->field_order)) {
         av_log(avctx, AV_LOG_ERROR, "Unsupported video size, framerate or field order!"

                " Check available formats with -list_formats 1.\n");
         return -1;
     }
     if (ctx->dlo->EnableVideoOutput(ctx->bmd_mode,
                                     bmdVideoOutputFlagDefault) != S_OK) {
         av_log(avctx, AV_LOG_ERROR, "Could not enable video output!\n");
         return -1;
     }
 
     /* Set callback. */

     ctx->output_callback = new decklink_output_callback();
     ctx->dlo->SetScheduledFrameCompletionCallback(ctx->output_callback);

     ctx->frames_preroll = st->time_base.den * ctx->preroll;
     if (st->time_base.den > 1000)

         ctx->frames_preroll /= 1000;
 
     /* Buffer twice as many frames as the preroll. */
     ctx->frames_buffer = ctx->frames_preroll * 2;
     ctx->frames_buffer = FFMIN(ctx->frames_buffer, 60);

     pthread_mutex_init(&ctx->mutex, NULL);
     pthread_cond_init(&ctx->cond, NULL);
     ctx->frames_buffer_available_spots = ctx->frames_buffer;

 
     /* The device expects the framerate to be fixed. */

     avpriv_set_pts_info(st, 64, st->time_base.num, st->time_base.den);

 
     ctx->video = 1;
 
     return 0;
 }
 
 static int decklink_setup_audio(AVFormatContext *avctx, AVStream *st)
 {

     struct decklink_cctx *cctx = (struct decklink_cctx *)avctx->priv_data;
     struct decklink_ctx *ctx = (struct decklink_ctx *)cctx->ctx;

     AVCodecParameters *c = st->codecpar;

 
     if (ctx->audio) {
         av_log(avctx, AV_LOG_ERROR, "Only one audio stream is supported!\n");
         return -1;
     }
     if (c->sample_rate != 48000) {
         av_log(avctx, AV_LOG_ERROR, "Unsupported sample rate!"
                " Only 48kHz is supported.\n");
         return -1;
     }

     if (c->channels != 2 && c->channels != 8 && c->channels != 16) {

         av_log(avctx, AV_LOG_ERROR, "Unsupported number of channels!"

                " Only 2, 8 or 16 channels are supported.\n");

         return -1;
     }
     if (ctx->dlo->EnableAudioOutput(bmdAudioSampleRate48kHz,
                                     bmdAudioSampleType16bitInteger,
                                     c->channels,
                                     bmdAudioOutputStreamTimestamped) != S_OK) {
         av_log(avctx, AV_LOG_ERROR, "Could not enable audio output!\n");
         return -1;
     }
     if (ctx->dlo->BeginAudioPreroll() != S_OK) {
         av_log(avctx, AV_LOG_ERROR, "Could not begin audio preroll!\n");
         return -1;
     }
 
     /* The device expects the sample rate to be fixed. */
     avpriv_set_pts_info(st, 64, 1, c->sample_rate);
     ctx->channels = c->channels;
 
     ctx->audio = 1;
 
     return 0;
 }
 
 av_cold int ff_decklink_write_trailer(AVFormatContext *avctx)
 {

     struct decklink_cctx *cctx = (struct decklink_cctx *)avctx->priv_data;
     struct decklink_ctx *ctx = (struct decklink_ctx *)cctx->ctx;

 
     if (ctx->playback_started) {
         BMDTimeValue actual;
         ctx->dlo->StopScheduledPlayback(ctx->last_pts * ctx->bmd_tb_num,
                                         &actual, ctx->bmd_tb_den);
         ctx->dlo->DisableVideoOutput();
         if (ctx->audio)
             ctx->dlo->DisableAudioOutput();
     }
 

     ff_decklink_cleanup(avctx);

     if (ctx->output_callback)
         delete ctx->output_callback;

     pthread_mutex_destroy(&ctx->mutex);
     pthread_cond_destroy(&ctx->cond);

 
     av_freep(&cctx->ctx);
 
     return 0;
 }
 
 static int decklink_write_video_packet(AVFormatContext *avctx, AVPacket *pkt)
 {

     struct decklink_cctx *cctx = (struct decklink_cctx *)avctx->priv_data;
     struct decklink_ctx *ctx = (struct decklink_ctx *)cctx->ctx;

     AVStream *st = avctx->streams[pkt->stream_index];
     AVFrame *avframe = NULL, *tmp = (AVFrame *)pkt->data;
     AVPacket *avpacket = NULL;

     decklink_frame *frame;
     buffercount_type buffered;
     HRESULT hr;
 

     if (st->codecpar->codec_id == AV_CODEC_ID_WRAPPED_AVFRAME) {
         if (tmp->format != AV_PIX_FMT_UYVY422 ||
             tmp->width  != ctx->bmd_width ||
             tmp->height != ctx->bmd_height) {
             av_log(avctx, AV_LOG_ERROR, "Got a frame with invalid pixel format or dimension.\n");
             return AVERROR(EINVAL);
         }
 
         avframe = av_frame_clone(tmp);
         if (!avframe) {
             av_log(avctx, AV_LOG_ERROR, "Could not clone video frame.\n");
             return AVERROR(EIO);
         }
 
         frame = new decklink_frame(ctx, avframe, st->codecpar->codec_id, avframe->height, avframe->width);
     } else {
         avpacket = av_packet_clone(pkt);
         if (!avpacket) {
             av_log(avctx, AV_LOG_ERROR, "Could not clone video frame.\n");
             return AVERROR(EIO);
         }
 
         frame = new decklink_frame(ctx, avpacket, st->codecpar->codec_id, ctx->bmd_height, ctx->bmd_width);

     }
 
     if (!frame) {
         av_log(avctx, AV_LOG_ERROR, "Could not create new frame.\n");

         av_frame_free(&avframe);

         av_packet_free(&avpacket);

         return AVERROR(EIO);
     }
 
     /* Always keep at most one second of frames buffered. */

     pthread_mutex_lock(&ctx->mutex);
     while (ctx->frames_buffer_available_spots == 0) {
         pthread_cond_wait(&ctx->cond, &ctx->mutex);
     }
     ctx->frames_buffer_available_spots--;
     pthread_mutex_unlock(&ctx->mutex);

 
     /* Schedule frame for playback. */
     hr = ctx->dlo->ScheduleVideoFrame((struct IDeckLinkVideoFrame *) frame,
                                       pkt->pts * ctx->bmd_tb_num,
                                       ctx->bmd_tb_num, ctx->bmd_tb_den);

     /* Pass ownership to DeckLink, or release on failure */
     frame->Release();

     if (hr != S_OK) {
         av_log(avctx, AV_LOG_ERROR, "Could not schedule video frame."
                 " error %08x.\n", (uint32_t) hr);
         return AVERROR(EIO);
     }
 
     ctx->dlo->GetBufferedVideoFrameCount(&buffered);
     av_log(avctx, AV_LOG_DEBUG, "Buffered video frames: %d.\n", (int) buffered);
     if (pkt->pts > 2 && buffered <= 2)
         av_log(avctx, AV_LOG_WARNING, "There are not enough buffered video frames."
                " Video may misbehave!\n");
 
     /* Preroll video frames. */
     if (!ctx->playback_started && pkt->pts > ctx->frames_preroll) {
         av_log(avctx, AV_LOG_DEBUG, "Ending audio preroll.\n");
         if (ctx->audio && ctx->dlo->EndAudioPreroll() != S_OK) {
             av_log(avctx, AV_LOG_ERROR, "Could not end audio preroll!\n");
             return AVERROR(EIO);
         }
         av_log(avctx, AV_LOG_DEBUG, "Starting scheduled playback.\n");
         if (ctx->dlo->StartScheduledPlayback(0, ctx->bmd_tb_den, 1.0) != S_OK) {
             av_log(avctx, AV_LOG_ERROR, "Could not start scheduled playback!\n");
             return AVERROR(EIO);
         }
         ctx->playback_started = 1;
     }
 
     return 0;
 }
 
 static int decklink_write_audio_packet(AVFormatContext *avctx, AVPacket *pkt)
 {

     struct decklink_cctx *cctx = (struct decklink_cctx *)avctx->priv_data;
     struct decklink_ctx *ctx = (struct decklink_ctx *)cctx->ctx;

     int sample_count = pkt->size / (ctx->channels << 1);
     buffercount_type buffered;
 
     ctx->dlo->GetBufferedAudioSampleFrameCount(&buffered);
     if (pkt->pts > 1 && !buffered)
         av_log(avctx, AV_LOG_WARNING, "There's no buffered audio."
                " Audio will misbehave!\n");
 
     if (ctx->dlo->ScheduleAudioSamples(pkt->data, sample_count, pkt->pts,
                                        bmdAudioSampleRate48kHz, NULL) != S_OK) {
         av_log(avctx, AV_LOG_ERROR, "Could not schedule audio samples.\n");
         return AVERROR(EIO);
     }
 
     return 0;
 }
 
 extern "C" {
 
 av_cold int ff_decklink_write_header(AVFormatContext *avctx)
 {

     struct decklink_cctx *cctx = (struct decklink_cctx *)avctx->priv_data;

     struct decklink_ctx *ctx;
     unsigned int n;

     int ret;

 
     ctx = (struct decklink_ctx *) av_mallocz(sizeof(struct decklink_ctx));
     if (!ctx)
         return AVERROR(ENOMEM);
     ctx->list_devices = cctx->list_devices;
     ctx->list_formats = cctx->list_formats;
     ctx->preroll      = cctx->preroll;
     cctx->ctx = ctx;
 

     /* List available devices and exit. */

     if (ctx->list_devices) {

         ff_decklink_list_devices_legacy(avctx, 0, 1);

         return AVERROR_EXIT;
     }
 

     ret = ff_decklink_init_device(avctx, avctx->filename);
     if (ret < 0)
         return ret;

 
     /* Get output device. */
     if (ctx->dl->QueryInterface(IID_IDeckLinkOutput, (void **) &ctx->dlo) != S_OK) {
         av_log(avctx, AV_LOG_ERROR, "Could not open output device from '%s'\n",
                avctx->filename);

         ret = AVERROR(EIO);
         goto error;

     }
 
     /* List supported formats. */
     if (ctx->list_formats) {

         ff_decklink_list_formats(avctx);

         ret = AVERROR_EXIT;
         goto error;

     }
 
     /* Setup streams. */

     ret = AVERROR(EIO);

     for (n = 0; n < avctx->nb_streams; n++) {
         AVStream *st = avctx->streams[n];

         AVCodecParameters *c = st->codecpar;

         if        (c->codec_type == AVMEDIA_TYPE_AUDIO) {
             if (decklink_setup_audio(avctx, st))
                 goto error;
         } else if (c->codec_type == AVMEDIA_TYPE_VIDEO) {
             if (decklink_setup_video(avctx, st))
                 goto error;
         } else {
             av_log(avctx, AV_LOG_ERROR, "Unsupported stream type.\n");
             goto error;
         }
     }
 
     return 0;
 
 error:

     ff_decklink_cleanup(avctx);

     return ret;

 }
 
 int ff_decklink_write_packet(AVFormatContext *avctx, AVPacket *pkt)
 {

     struct decklink_cctx *cctx = (struct decklink_cctx *)avctx->priv_data;
     struct decklink_ctx *ctx = (struct decklink_ctx *)cctx->ctx;

     AVStream *st = avctx->streams[pkt->stream_index];
 
     ctx->last_pts = FFMAX(ctx->last_pts, pkt->pts);
 

     if      (st->codecpar->codec_type == AVMEDIA_TYPE_VIDEO)

         return decklink_write_video_packet(avctx, pkt);

     else if (st->codecpar->codec_type == AVMEDIA_TYPE_AUDIO)

         return decklink_write_audio_packet(avctx, pkt);
 
     return AVERROR(EIO);
 }
 

 int ff_decklink_list_output_devices(AVFormatContext *avctx, struct AVDeviceInfoList *device_list)
 {
     return ff_decklink_list_devices(avctx, device_list, 0, 1);
 }
 

 } /* extern "C" */