/* GStreamer

 * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>

 *                    2001 Thomas <thomas@apestaart.org>

 *               2005,2006 Wim Taymans <wim@fluendo.com>

 *

 * adder.c: Adder element, N in, one out, samples are added

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Library General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * This library 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

 * Library General Public License for more details.

 *

 * You should have received a copy of the GNU Library General Public

 * License along with this library; if not, write to the

 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,

 * Boston, MA 02111-1307, USA.

 */

/**

 * SECTION:element-adder

 *

 * Mixed data is clamped to the min/max values of the data format.

 * <title>Example launch line</title>

 * gst-launch audiotestsrc freq=100 ! adder name=mix ! audioconvert ! alsasink audiotestsrc freq=500 ! mix.

 * </refsect2>

 *

 * Last reviewed on 2006-05-09 (0.10.7)

 */

/* Element-Checklist-Version: 5 */

#ifdef HAVE_CONFIG_H

#include "config.h"

#endif

#include "gstadder.h"

#include <gst/audio/audio.h>

#include <string.h>             /* strcmp */

/* highest positive/lowest negative x-bit value we can use for clamping */

#define MAX_INT_32  ((gint32) (0x7fffffff))

#define MAX_INT_16  ((gint16) (0x7fff))

#define MAX_INT_8   ((gint8)  (0x7f))

#define MAX_UINT_32 ((guint32)(0xffffffff))

#define MAX_UINT_16 ((guint16)(0xffff))

#define MAX_UINT_8  ((guint8) (0xff))

#define MIN_INT_32  ((gint32) (0x80000000))

#define MIN_INT_16  ((gint16) (0x8000))

#define MIN_INT_8   ((gint8)  (0x80))

#define MIN_UINT_32 ((guint32)(0x00000000))

#define MIN_UINT_16 ((guint16)(0x0000))

#define MIN_UINT_8  ((guint8) (0x00))

#define GST_CAT_DEFAULT gst_adder_debug

GST_DEBUG_CATEGORY_STATIC (GST_CAT_DEFAULT);

/* elementfactory information */

static GstStaticPadTemplate gst_adder_src_template =

    GST_PAD_SRC,

    GST_PAD_ALWAYS,

    );

static GstStaticPadTemplate gst_adder_sink_template =

    GST_PAD_SINK,

    GST_PAD_REQUEST,

    );

static void gst_adder_class_init (GstAdderClass * klass);

static void gst_adder_init (GstAdder * adder);

static gboolean gst_adder_setcaps (GstPad * pad, GstCaps * caps);

static gboolean gst_adder_query (GstPad * pad, GstQuery * query);

static gboolean gst_adder_src_event (GstPad * pad, GstEvent * event);

static gboolean gst_adder_sink_event (GstPad * pad, GstEvent * event);

static GstPad *gst_adder_request_new_pad (GstElement * element,

    GstPadTemplate * temp, const gchar * unused);

static void gst_adder_release_pad (GstElement * element, GstPad * pad);

static GstStateChangeReturn gst_adder_change_state (GstElement * element,

    GstStateChange transition);

static GstFlowReturn gst_adder_collected (GstCollectPads * pads,

    gpointer user_data);

static GstElementClass *parent_class = NULL;

#ifdef __SYMBIAN32__

EXPORT_C

#endif

GType

gst_adder_get_type (void)

{

  static GType adder_type = 0;

  if (G_UNLIKELY (adder_type == 0)) {

    static const GTypeInfo adder_info = {

      sizeof (GstAdderClass), NULL, NULL,

      (GClassInitFunc) gst_adder_class_init, NULL, NULL,

      sizeof (GstAdder), 0,

      (GInstanceInitFunc) gst_adder_init,

    };

    adder_type = g_type_register_static (GST_TYPE_ELEMENT, "GstAdder",

        &adder_info, 0);

    GST_DEBUG_CATEGORY_INIT (GST_CAT_DEFAULT, "adder", 0,

        "audio channel mixing element");

  }

  return adder_type;

}

#define MAKE_FUNC(name,type,ttype,min,max)                      \

static void name (type *out, type *in, gint bytes) {            \

  gint i;                                                       \

}

/* non-clipping versions (for float) */

static void name (type *out, type *in, gint bytes) {            \

  gint i;                                                       \

  for (i = 0; i < bytes / sizeof (type); i++)                   \

}

/* *INDENT-OFF* */

MAKE_FUNC (add_int32, gint32, gint64, MIN_INT_32, MAX_INT_32)

MAKE_FUNC (add_int16, gint16, gint32, MIN_INT_16, MAX_INT_16)

MAKE_FUNC (add_int8, gint8, gint16, MIN_INT_8, MAX_INT_8)

/* *INDENT-ON* */

static GstCaps *

gst_adder_sink_getcaps (GstPad * pad)

{

  GstAdder *adder;

  GstCaps *result, *peercaps, *sinkcaps;

  adder = GST_ADDER (GST_PAD_PARENT (pad));

  GST_OBJECT_LOCK (adder);

  /* get the downstream possible caps */

  peercaps = gst_pad_peer_get_caps (adder->srcpad);

  /* get the allowed caps on this sinkpad, we use the fixed caps function so

   * that it does not call recursively in this function. */

  sinkcaps = gst_pad_get_fixed_caps_func (pad);

  if (peercaps) {

    /* if the peer has caps, intersect */

    GST_DEBUG_OBJECT (adder, "intersecting peer and template caps");

    result = gst_caps_intersect (peercaps, sinkcaps);

    gst_caps_unref (peercaps);

    gst_caps_unref (sinkcaps);

  } else {

    /* the peer has no caps (or there is no peer), just use the allowed caps

     * of this sinkpad. */

    GST_DEBUG_OBJECT (adder, "no peer caps, using sinkcaps");

    result = sinkcaps;

  }

  GST_OBJECT_UNLOCK (adder);

  return result;

}

/* the first caps we receive on any of the sinkpads will define the caps for all

 * the other sinkpads because we can only mix streams with the same caps.

static gboolean

gst_adder_setcaps (GstPad * pad, GstCaps * caps)

{

  GstAdder *adder;

  GList *pads;

  GstStructure *structure;

  const char *media_type;

  adder = GST_ADDER (GST_PAD_PARENT (pad));

  GST_LOG_OBJECT (adder, "setting caps on pad %p,%s to %" GST_PTR_FORMAT, pad,

      GST_PAD_NAME (pad), caps);

  /* FIXME, see if the other pads can accept the format. Also lock the

   * format on the other pads to this new format. */

  GST_OBJECT_LOCK (adder);

  pads = GST_ELEMENT (adder)->pads;

  while (pads) {

    GstPad *otherpad = GST_PAD (pads->data);

    if (otherpad != pad) {

      gst_caps_replace (&GST_PAD_CAPS (otherpad), caps);

    }

    pads = g_list_next (pads);

  }

  GST_OBJECT_UNLOCK (adder);

  /* parse caps now */

  structure = gst_caps_get_structure (caps, 0);

  media_type = gst_structure_get_name (structure);

  if (strcmp (media_type, "audio/x-raw-int") == 0) {

    adder->format = GST_ADDER_FORMAT_INT;

    gst_structure_get_int (structure, "width", &adder->width);

    gst_structure_get_int (structure, "depth", &adder->depth);

    gst_structure_get_int (structure, "endianness", &adder->endianness);

    gst_structure_get_boolean (structure, "signed", &adder->is_signed);

    if (adder->endianness != G_BYTE_ORDER)

      goto not_supported;

    switch (adder->width) {

      case 8:

        adder->func = (adder->is_signed ?

            (GstAdderFunction) add_int8 : (GstAdderFunction) add_uint8);

        break;

      case 16:

        adder->func = (adder->is_signed ?

            (GstAdderFunction) add_int16 : (GstAdderFunction) add_uint16);

        break;

      case 32:

        adder->func = (adder->is_signed ?

            (GstAdderFunction) add_int32 : (GstAdderFunction) add_uint32);

        break;

      default:

        goto not_supported;

    }

  } else if (strcmp (media_type, "audio/x-raw-float") == 0) {

    adder->format = GST_ADDER_FORMAT_FLOAT;

    gst_structure_get_int (structure, "width", &adder->width);

    switch (adder->width) {

      case 32:

        adder->func = (GstAdderFunction) add_float32;

        break;

      case 64:

        adder->func = (GstAdderFunction) add_float64;

        break;

      default:

        goto not_supported;

    }

  } else {

    goto not_supported;

  }

  gst_structure_get_int (structure, "channels", &adder->channels);

  gst_structure_get_int (structure, "rate", &adder->rate);

  /* precalc bps */

  adder->bps = (adder->width / 8) * adder->channels;

  return TRUE;

  /* ERRORS */

not_supported:

  {

    GST_DEBUG_OBJECT (adder, "unsupported format set as caps");

    return FALSE;

  }

}

/* FIXME, the duration query should reflect how long you will produce

 * data, that is the amount of stream time until you will emit EOS.

 *

 * For synchronized mixing this is always the max of all the durations

 * of upstream since we emit EOS when all of them finished.

 *

 * We don't do synchronized mixing so this really depends on where the

 * streams where punched in and what their relative offsets are against

 * eachother which we can get from the first timestamps we see.

 *

 * When we add a new stream (or remove a stream) the duration might

 * also become invalid again and we need to post a new DURATION

 * message to notify this fact to the parent.

 * For now we take the max of all the upstream elements so the simple

 * cases work at least somewhat.

 */

static gboolean

gst_adder_query_duration (GstAdder * adder, GstQuery * query)

{

  gint64 max;

  gboolean res;

  GstFormat format;

  GstIterator *it;

  gboolean done;

  /* parse format */

  gst_query_parse_duration (query, &format, NULL);

  max = -1;

  res = TRUE;

  done = FALSE;

  it = gst_element_iterate_sink_pads (GST_ELEMENT_CAST (adder));

  while (!done) {

    GstIteratorResult ires;

    gpointer item;

    ires = gst_iterator_next (it, &item);

    switch (ires) {

      case GST_ITERATOR_DONE:

        done = TRUE;

        break;

      case GST_ITERATOR_OK:

      {

        GstPad *pad = GST_PAD_CAST (item);

        gint64 duration;

        /* ask sink peer for duration */

        res &= gst_pad_query_peer_duration (pad, &format, &duration);

        /* take max from all valid return values */

        if (res) {

          /* valid unknown length, stop searching */

          if (duration == -1) {

            max = duration;

            done = TRUE;

          }

          /* else see if bigger than current max */

          else if (duration > max)

            max = duration;

        }

        break;

      }

      case GST_ITERATOR_RESYNC:

        max = -1;

        res = TRUE;

        break;

      default:

        res = FALSE;

        done = TRUE;

        break;

    }

  }

  gst_iterator_free (it);

  if (res) {

    /* and store the max */

    gst_query_set_duration (query, format, max);

  }

  return res;

}

static gboolean

gst_adder_query (GstPad * pad, GstQuery * query)

{

  GstAdder *adder = GST_ADDER (gst_pad_get_parent (pad));

  gboolean res = FALSE;

  switch (GST_QUERY_TYPE (query)) {

    case GST_QUERY_POSITION:

    {

      GstFormat format;

      gst_query_parse_position (query, &format, NULL);

      switch (format) {

        case GST_FORMAT_TIME:

          /* FIXME, bring to stream time, might be tricky */

          gst_query_set_position (query, format, adder->timestamp);

          res = TRUE;

          break;

        case GST_FORMAT_DEFAULT:

          gst_query_set_position (query, format, adder->offset);

          res = TRUE;

          break;

        default:

          break;

      }

      break;

    }

    case GST_QUERY_DURATION:

      res = gst_adder_query_duration (adder, query);

      break;

    default:

      /* FIXME, needs a custom query handler because we have multiple

       * sinkpads */

      res = gst_pad_query_default (pad, query);

      break;

  }

  gst_object_unref (adder);

  return res;

}

{

  gst_event_ref (event);

  GST_LOG_OBJECT (pad, "About to send event %s", GST_EVENT_TYPE_NAME (event));

  if (!gst_pad_push_event (pad, event)) {

    g_value_set_boolean (ret, FALSE);

    GST_WARNING_OBJECT (pad, "Sending event  %p (%s) failed.",

        event, GST_EVENT_TYPE_NAME (event));

  } else {

    GST_LOG_OBJECT (pad, "Sent event  %p (%s).",

        event, GST_EVENT_TYPE_NAME (event));

  }

  gst_object_unref (pad);

  return TRUE;

}

/* forwards the event to all sinkpads, takes ownership of the

 * event

 *

 * Returns: TRUE if the event could be forwarded on all

 * sinkpads.

 */

static gboolean

{

  gboolean ret;

  GstIterator *it;

  GValue vret = { 0 };

  GST_LOG_OBJECT (adder, "Forwarding event %p (%s)", event,

      GST_EVENT_TYPE_NAME (event));

  ret = TRUE;

  g_value_init (&vret, G_TYPE_BOOLEAN);

  g_value_set_boolean (&vret, TRUE);

  it = gst_element_iterate_sink_pads (GST_ELEMENT_CAST (adder));

  gst_iterator_free (it);

  gst_event_unref (event);

  return ret;

}

static gboolean

gst_adder_src_event (GstPad * pad, GstEvent * event)

{

  GstAdder *adder;

  gboolean result;

  adder = GST_ADDER (gst_pad_get_parent (pad));

  switch (GST_EVENT_TYPE (event)) {

    case GST_EVENT_SEEK:

    {

      GstSeekFlags flags;

      GstSeekType curtype;

      gint64 cur;

      /* parse the seek parameters */

      gst_event_parse_seek (event, &adder->segment_rate, NULL, &flags, &curtype,

          &cur, NULL, NULL);

      /* check if we are flushing */

        /* make sure we accept nothing anymore and return WRONG_STATE */

        gst_collect_pads_set_flushing (adder->collect, TRUE);

        /* flushing seek, start flush downstream, the flush will be done

         * when all pads received a FLUSH_STOP. */

        gst_pad_push_event (adder->srcpad, gst_event_new_flush_start ());

      }

      /* now wait for the collected to be finished and mark a new

      GST_OBJECT_LOCK (adder->collect);

      if (curtype == GST_SEEK_TYPE_SET)

        adder->segment_position = cur;

      else

        adder->segment_position = 0;

      adder->segment_pending = TRUE;

      GST_OBJECT_UNLOCK (adder->collect);

      break;

    }

    case GST_EVENT_NAVIGATION:

      /* navigation is rather pointless. */

      result = FALSE;

      break;

    default: