/*
  * Copyright (c) 2008 Vitor Sessak
  *

  * 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
  */
 

 /**
  * @file
  * memory buffer source filter
  */
 

 #include <float.h>
 

 #include "libavutil/channel_layout.h"
 #include "libavutil/common.h"
 #include "libavutil/fifo.h"

 #include "libavutil/frame.h"

 #include "libavutil/imgutils.h"

 #include "libavutil/internal.h"

 #include "libavutil/opt.h"
 #include "libavutil/samplefmt.h"

 #include "audio.h"

 #include "avfilter.h"

 #include "buffersrc.h"

 #include "formats.h"

 #include "internal.h"

 #include "video.h"

 typedef struct BufferSourceContext {

     const AVClass    *class;

     AVFifoBuffer     *fifo;

     AVRational        time_base;     ///< time_base to set in the output link

     AVRational        frame_rate;    ///< frame_rate to set in the output link

     unsigned          nb_failed_requests;

     unsigned          warning_limit;

 
     /* video only */

     int               w, h;

     enum AVPixelFormat  pix_fmt;

     AVRational        pixel_aspect;

     char              *sws_param;

     AVBufferRef *hw_frames_ctx;
 

     /* audio only */
     int sample_rate;
     enum AVSampleFormat sample_fmt;

     int channels;

     uint64_t channel_layout;
     char    *channel_layout_str;
 

     int got_format_from_params;

     int eof;

 } BufferSourceContext;
 

 #define CHECK_VIDEO_PARAM_CHANGE(s, c, width, height, format)\

     if (c->w != width || c->h != height || c->pix_fmt != format) {\

         av_log(s, AV_LOG_INFO, "Changing frame properties on the fly is not supported by all filters.\n");\

     }
 

 #define CHECK_AUDIO_PARAM_CHANGE(s, c, srate, ch_layout, ch_count, format)\

     if (c->sample_fmt != format || c->sample_rate != srate ||\

         c->channel_layout != ch_layout || c->channels != ch_count) {\

         av_log(s, AV_LOG_ERROR, "Changing frame properties on the fly is not supported.\n");\
         return AVERROR(EINVAL);\
     }
 

 AVBufferSrcParameters *av_buffersrc_parameters_alloc(void)
 {
     AVBufferSrcParameters *par = av_mallocz(sizeof(*par));
     if (!par)
         return NULL;
 
     par->format = -1;
 
     return par;
 }
 
 int av_buffersrc_parameters_set(AVFilterContext *ctx, AVBufferSrcParameters *param)
 {
     BufferSourceContext *s = ctx->priv;
 
     if (param->time_base.num > 0 && param->time_base.den > 0)
         s->time_base = param->time_base;
 
     switch (ctx->filter->outputs[0].type) {
     case AVMEDIA_TYPE_VIDEO:
         if (param->format != AV_PIX_FMT_NONE) {
             s->got_format_from_params = 1;
             s->pix_fmt = param->format;
         }
         if (param->width > 0)
             s->w = param->width;
         if (param->height > 0)
             s->h = param->height;
         if (param->sample_aspect_ratio.num > 0 && param->sample_aspect_ratio.den > 0)
             s->pixel_aspect = param->sample_aspect_ratio;
         if (param->frame_rate.num > 0 && param->frame_rate.den > 0)
             s->frame_rate = param->frame_rate;
         if (param->hw_frames_ctx) {
             av_buffer_unref(&s->hw_frames_ctx);
             s->hw_frames_ctx = av_buffer_ref(param->hw_frames_ctx);
             if (!s->hw_frames_ctx)
                 return AVERROR(ENOMEM);
         }
         break;
     case AVMEDIA_TYPE_AUDIO:
         if (param->format != AV_SAMPLE_FMT_NONE) {
             s->got_format_from_params = 1;
             s->sample_fmt = param->format;
         }
         if (param->sample_rate > 0)
             s->sample_rate = param->sample_rate;
         if (param->channel_layout)
             s->channel_layout = param->channel_layout;
         break;
     default:
         return AVERROR_BUG;
     }
 
     return 0;
 }
 

 int attribute_align_arg av_buffersrc_write_frame(AVFilterContext *ctx, const AVFrame *frame)

 {

     return av_buffersrc_add_frame_flags(ctx, (AVFrame *)frame,
                                         AV_BUFFERSRC_FLAG_KEEP_REF);

 }
 

 int attribute_align_arg av_buffersrc_add_frame(AVFilterContext *ctx, AVFrame *frame)

 {

     return av_buffersrc_add_frame_flags(ctx, frame, 0);
 }
 
 static int av_buffersrc_add_frame_internal(AVFilterContext *ctx,
                                            AVFrame *frame, int flags);
 

 int attribute_align_arg av_buffersrc_add_frame_flags(AVFilterContext *ctx, AVFrame *frame, int flags)

 {
     AVFrame *copy = NULL;

     int ret = 0;

     if (frame && frame->channel_layout &&

         av_get_channel_layout_nb_channels(frame->channel_layout) != frame->channels) {

         av_log(ctx, AV_LOG_ERROR, "Layout indicates a different number of channels than actually present\n");

         return AVERROR(EINVAL);
     }

     if (!(flags & AV_BUFFERSRC_FLAG_KEEP_REF) || !frame)
         return av_buffersrc_add_frame_internal(ctx, frame, flags);
 

     if (!(copy = av_frame_alloc()))

         return AVERROR(ENOMEM);

     ret = av_frame_ref(copy, frame);
     if (ret >= 0)

         ret = av_buffersrc_add_frame_internal(ctx, copy, flags);

     av_frame_free(&copy);
     return ret;

 }
 

 static int push_frame(AVFilterGraph *graph)
 {
     int ret;
 
     while (1) {
         ret = ff_filter_graph_run_once(graph);
         if (ret == AVERROR(EAGAIN))
             break;
         if (ret < 0)
             return ret;
     }
     return 0;
 }
 

 static int av_buffersrc_add_frame_internal(AVFilterContext *ctx,
                                            AVFrame *frame, int flags)

 {

     BufferSourceContext *s = ctx->priv;
     AVFrame *copy;

     int refcounted, ret;

     s->nb_failed_requests = 0;
 

     if (!frame)
         return av_buffersrc_close(ctx, AV_NOPTS_VALUE, flags);
     if (s->eof)

         return AVERROR(EINVAL);
 

     refcounted = !!frame->buf[0];
 

     if (!(flags & AV_BUFFERSRC_FLAG_NO_CHECK_FORMAT)) {
 

     switch (ctx->outputs[0]->type) {

     case AVMEDIA_TYPE_VIDEO:

         CHECK_VIDEO_PARAM_CHANGE(ctx, s, frame->width, frame->height,

                                  frame->format);
         break;
     case AVMEDIA_TYPE_AUDIO:

         /* For layouts unknown on input but known on link after negotiation. */
         if (!frame->channel_layout)
             frame->channel_layout = s->channel_layout;

         CHECK_AUDIO_PARAM_CHANGE(ctx, s, frame->sample_rate, frame->channel_layout,

                                  frame->channels, frame->format);

         break;
     default:
         return AVERROR(EINVAL);

     }

     }
 

     if (!av_fifo_space(s->fifo) &&
         (ret = av_fifo_realloc2(s->fifo, av_fifo_size(s->fifo) +
                                          sizeof(copy))) < 0)

         return ret;

     if (!(copy = av_frame_alloc()))
         return AVERROR(ENOMEM);

 
     if (refcounted) {
         av_frame_move_ref(copy, frame);
     } else {
         ret = av_frame_ref(copy, frame);
         if (ret < 0) {
             av_frame_free(&copy);
             return ret;
         }
     }

     if ((ret = av_fifo_generic_write(s->fifo, &copy, sizeof(copy), NULL)) < 0) {

         if (refcounted)
             av_frame_move_ref(frame, copy);

         av_frame_free(&copy);

         return ret;
     }

     if ((ret = ctx->output_pads[0].request_frame(ctx->outputs[0])) < 0)
         return ret;

     if ((flags & AV_BUFFERSRC_FLAG_PUSH)) {
         ret = push_frame(ctx->graph);
         if (ret < 0)
             return ret;
     }
 

     return 0;
 }
 

 int av_buffersrc_close(AVFilterContext *ctx, int64_t pts, unsigned flags)
 {
     BufferSourceContext *s = ctx->priv;
 
     s->eof = 1;
     ff_avfilter_link_set_in_status(ctx->outputs[0], AVERROR_EOF, pts);
     return (flags & AV_BUFFERSRC_FLAG_PUSH) ? push_frame(ctx->graph) : 0;
 }
 

 static av_cold int init_video(AVFilterContext *ctx)

 {
     BufferSourceContext *c = ctx->priv;

     if (!(c->pix_fmt != AV_PIX_FMT_NONE || c->got_format_from_params) || !c->w || !c->h ||

         av_q2d(c->time_base) <= 0) {

         av_log(ctx, AV_LOG_ERROR, "Invalid parameters provided.\n");

         return AVERROR(EINVAL);
     }

     if (!(c->fifo = av_fifo_alloc(sizeof(AVFrame*))))

         return AVERROR(ENOMEM);
 

     av_log(ctx, AV_LOG_VERBOSE, "w:%d h:%d pixfmt:%s tb:%d/%d fr:%d/%d sar:%d/%d sws_param:%s\n",

            c->w, c->h, av_get_pix_fmt_name(c->pix_fmt),

            c->time_base.num, c->time_base.den, c->frame_rate.num, c->frame_rate.den,

            c->pixel_aspect.num, c->pixel_aspect.den, (char *)av_x_if_null(c->sws_param, ""));

     c->warning_limit = 100;

     return 0;

 }
 

 unsigned av_buffersrc_get_nb_failed_requests(AVFilterContext *buffer_src)
 {
     return ((BufferSourceContext *)buffer_src->priv)->nb_failed_requests;
 }
 

 #define OFFSET(x) offsetof(BufferSourceContext, x)
 #define A AV_OPT_FLAG_FILTERING_PARAM|AV_OPT_FLAG_AUDIO_PARAM
 #define V AV_OPT_FLAG_FILTERING_PARAM|AV_OPT_FLAG_VIDEO_PARAM
 
 static const AVOption buffer_options[] = {
     { "width",         NULL,                     OFFSET(w),                AV_OPT_TYPE_INT,      { .i64 = 0 }, 0, INT_MAX, V },
     { "video_size",    NULL,                     OFFSET(w),                AV_OPT_TYPE_IMAGE_SIZE,                .flags = V },

     { "height",        NULL,                     OFFSET(h),                AV_OPT_TYPE_INT,      { .i64 = 0 }, 0, INT_MAX, V },

     { "pix_fmt",       NULL,                     OFFSET(pix_fmt),          AV_OPT_TYPE_PIXEL_FMT, { .i64 = AV_PIX_FMT_NONE }, .min = AV_PIX_FMT_NONE, .max = INT_MAX, .flags = V },

     { "sar",           "sample aspect ratio",    OFFSET(pixel_aspect),     AV_OPT_TYPE_RATIONAL, { .dbl = 0 }, 0, DBL_MAX, V },

     { "pixel_aspect",  "sample aspect ratio",    OFFSET(pixel_aspect),     AV_OPT_TYPE_RATIONAL, { .dbl = 0 }, 0, DBL_MAX, V },

     { "time_base",     NULL,                     OFFSET(time_base),        AV_OPT_TYPE_RATIONAL, { .dbl = 0 }, 0, DBL_MAX, V },
     { "frame_rate",    NULL,                     OFFSET(frame_rate),       AV_OPT_TYPE_RATIONAL, { .dbl = 0 }, 0, DBL_MAX, V },
     { "sws_param",     NULL,                     OFFSET(sws_param),        AV_OPT_TYPE_STRING,                    .flags = V },
     { NULL },
 };
 
 AVFILTER_DEFINE_CLASS(buffer);
 

 static const AVOption abuffer_options[] = {

     { "time_base",      NULL, OFFSET(time_base),           AV_OPT_TYPE_RATIONAL, { .dbl = 0 }, 0, INT_MAX, A },
     { "sample_rate",    NULL, OFFSET(sample_rate),         AV_OPT_TYPE_INT,      { .i64 = 0 }, 0, INT_MAX, A },

     { "sample_fmt",     NULL, OFFSET(sample_fmt),          AV_OPT_TYPE_SAMPLE_FMT, { .i64 = AV_SAMPLE_FMT_NONE }, .min = AV_SAMPLE_FMT_NONE, .max = INT_MAX, .flags = A },

     { "channel_layout", NULL, OFFSET(channel_layout_str),  AV_OPT_TYPE_STRING,             .flags = A },

     { "channels",       NULL, OFFSET(channels),            AV_OPT_TYPE_INT,      { .i64 = 0 }, 0, INT_MAX, A },

     { NULL },
 };
 

 AVFILTER_DEFINE_CLASS(abuffer);

 static av_cold int init_audio(AVFilterContext *ctx)

 {
     BufferSourceContext *s = ctx->priv;
     int ret = 0;
 

     if (!(s->sample_fmt != AV_SAMPLE_FMT_NONE || s->got_format_from_params)) {

         av_log(ctx, AV_LOG_ERROR, "Sample format was not set or was invalid\n");

         return AVERROR(EINVAL);

     }
 

     if (s->channel_layout_str || s->channel_layout) {

         int n;

 
         if (!s->channel_layout) {

             s->channel_layout = av_get_channel_layout(s->channel_layout_str);
             if (!s->channel_layout) {
                 av_log(ctx, AV_LOG_ERROR, "Invalid channel layout %s.\n",
                        s->channel_layout_str);
                 return AVERROR(EINVAL);
             }

         }

         n = av_get_channel_layout_nb_channels(s->channel_layout);
         if (s->channels) {
             if (n != s->channels) {
                 av_log(ctx, AV_LOG_ERROR,
                        "Mismatching channel count %d and layout '%s' "
                        "(%d channels)\n",
                        s->channels, s->channel_layout_str, n);

                 return AVERROR(EINVAL);

             }
         }
         s->channels = n;
     } else if (!s->channels) {
         av_log(ctx, AV_LOG_ERROR, "Neither number of channels nor "
                                   "channel layout specified\n");

         return AVERROR(EINVAL);

     }

     if (!(s->fifo = av_fifo_alloc(sizeof(AVFrame*))))
         return AVERROR(ENOMEM);

 
     if (!s->time_base.num)
         s->time_base = (AVRational){1, s->sample_rate};
 

     av_log(ctx, AV_LOG_VERBOSE,

            "tb:%d/%d samplefmt:%s samplerate:%d chlayout:%s\n",

            s->time_base.num, s->time_base.den, av_get_sample_fmt_name(s->sample_fmt),

            s->sample_rate, s->channel_layout_str);

     s->warning_limit = 100;

 
     return ret;
 }
 

 static av_cold void uninit(AVFilterContext *ctx)
 {
     BufferSourceContext *s = ctx->priv;

     while (s->fifo && av_fifo_size(s->fifo)) {

         AVFrame *frame;
         av_fifo_generic_read(s->fifo, &frame, sizeof(frame), NULL);
         av_frame_free(&frame);

     }

     av_buffer_unref(&s->hw_frames_ctx);

     av_fifo_freep(&s->fifo);

 }
 

 static int query_formats(AVFilterContext *ctx)
 {
     BufferSourceContext *c = ctx->priv;

     AVFilterChannelLayouts *channel_layouts = NULL;
     AVFilterFormats *formats = NULL;
     AVFilterFormats *samplerates = NULL;

     int ret;

 
     switch (ctx->outputs[0]->type) {
     case AVMEDIA_TYPE_VIDEO:

         if ((ret = ff_add_format         (&formats, c->pix_fmt)) < 0 ||
             (ret = ff_set_common_formats (ctx     , formats   )) < 0)
             return ret;

         break;
     case AVMEDIA_TYPE_AUDIO:

         if ((ret = ff_add_format             (&formats    , c->sample_fmt )) < 0 ||
             (ret = ff_set_common_formats     (ctx         , formats       )) < 0 ||
             (ret = ff_add_format             (&samplerates, c->sample_rate)) < 0 ||
             (ret = ff_set_common_samplerates (ctx         , samplerates   )) < 0)
             return ret;

         if ((ret = ff_add_channel_layout(&channel_layouts,

                               c->channel_layout ? c->channel_layout :

                               FF_COUNT2LAYOUT(c->channels))) < 0)
             return ret;
         if ((ret = ff_set_common_channel_layouts(ctx, channel_layouts)) < 0)
             return ret;

         break;
     default:
         return AVERROR(EINVAL);
     }

 
     return 0;
 }
 
 static int config_props(AVFilterLink *link)
 {
     BufferSourceContext *c = link->src->priv;
 

     switch (link->type) {
     case AVMEDIA_TYPE_VIDEO:
         link->w = c->w;
         link->h = c->h;
         link->sample_aspect_ratio = c->pixel_aspect;

 
         if (c->hw_frames_ctx) {
             link->hw_frames_ctx = av_buffer_ref(c->hw_frames_ctx);
             if (!link->hw_frames_ctx)
                 return AVERROR(ENOMEM);
         }

         break;
     case AVMEDIA_TYPE_AUDIO:

         if (!c->channel_layout)
             c->channel_layout = link->channel_layout;

         break;
     default:
         return AVERROR(EINVAL);
     }

     link->time_base = c->time_base;

     link->frame_rate = c->frame_rate;

     return 0;
 }
 
 static int request_frame(AVFilterLink *link)
 {
     BufferSourceContext *c = link->src->priv;

     AVFrame *frame;

     int ret;

     if (!av_fifo_size(c->fifo)) {

         if (c->eof)
             return AVERROR_EOF;

         c->nb_failed_requests++;

         return AVERROR(EAGAIN);

     }

     av_fifo_generic_read(c->fifo, &frame, sizeof(frame), NULL);

     ret = ff_filter_frame(link, frame);

     return ret;

 }
 
 static int poll_frame(AVFilterLink *link)
 {
     BufferSourceContext *c = link->src->priv;

     int size = av_fifo_size(c->fifo);
     if (!size && c->eof)
         return AVERROR_EOF;

     return size/sizeof(AVFrame*);

 }
 

 static const AVFilterPad avfilter_vsrc_buffer_outputs[] = {
     {
         .name          = "default",
         .type          = AVMEDIA_TYPE_VIDEO,
         .request_frame = request_frame,
         .poll_frame    = poll_frame,
         .config_props  = config_props,
     },
     { NULL }
 };
 

 AVFilter ff_vsrc_buffer = {

     .name      = "buffer",

     .description = NULL_IF_CONFIG_SMALL("Buffer video frames, and make them accessible to the filterchain."),

     .priv_size = sizeof(BufferSourceContext),
     .query_formats = query_formats,
 

     .init      = init_video,

     .uninit    = uninit,

     .inputs    = NULL,

     .outputs   = avfilter_vsrc_buffer_outputs,

     .priv_class = &buffer_class,

 };

 static const AVFilterPad avfilter_asrc_abuffer_outputs[] = {
     {
         .name          = "default",
         .type          = AVMEDIA_TYPE_AUDIO,
         .request_frame = request_frame,
         .poll_frame    = poll_frame,
         .config_props  = config_props,
     },
     { NULL }

 };

 AVFilter ff_asrc_abuffer = {

     .name          = "abuffer",
     .description   = NULL_IF_CONFIG_SMALL("Buffer audio frames, and make them accessible to the filterchain."),
     .priv_size     = sizeof(BufferSourceContext),
     .query_formats = query_formats,
 
     .init      = init_audio,
     .uninit    = uninit,
 

     .inputs    = NULL,

     .outputs   = avfilter_asrc_abuffer_outputs,

     .priv_class = &abuffer_class,

 };