gst/law/mulaw-encode.c

   1 /* GStreamer
   2  * Copyright (C) <1999> Erik Walthinsen <omega@cse.ogi.edu>
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Library General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  * License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17  * Boston, MA 02111-1307, USA.
  18  */
  19 /**
  20  * SECTION:element-mulawenc
  21  *
  22  * This element encode mulaw audio. Mulaw coding is also known as G.711.
  23  */
  24
  25 #ifdef HAVE_CONFIG_H
  26 #include "config.h"
  27 #endif
  28 #include <gst/gst.h>
  29 #include <gst/audio/audio.h>
  30
  31 #include "mulaw-encode.h"
  32 #include "mulaw-conversion.h"
  33
  34 extern GstStaticPadTemplate mulaw_enc_src_factory;
  35 extern GstStaticPadTemplate mulaw_enc_sink_factory;
  36
  37 /* Stereo signals and args */
  38 enum
  39 {
  40   /* FILL ME */
  41   LAST_SIGNAL
  42 };
  43
  44 enum
  45 {
  46   ARG_0
  47 };
  48
  49 static gboolean gst_mulawenc_event (GstPad * pad, GstObject * parent,
  50     GstEvent * event);
  51 static GstFlowReturn gst_mulawenc_chain (GstPad * pad, GstObject * parent,
  52     GstBuffer * buffer);
  53
  54 #define gst_mulawenc_parent_class parent_class
  55 G_DEFINE_TYPE (GstMuLawEnc, gst_mulawenc, GST_TYPE_ELEMENT);
  56
  57 /*static guint gst_stereo_signals[LAST_SIGNAL] = { 0 }; */
  58
  59 static GstCaps *
  60 mulawenc_getcaps (GstPad * pad, GstCaps * filter)
  61 {
  62   GstMuLawEnc *mulawenc;
  63   GstPad *otherpad;
  64   GstCaps *othercaps, *result;
  65   GstCaps *templ;
  66   const gchar *name;
  67   gint i;
  68
  69   mulawenc = GST_MULAWENC (GST_PAD_PARENT (pad));
  70
  71   /* figure out the name of the caps we are going to return */
  72   if (pad == mulawenc->srcpad) {
  73     name = "audio/x-mulaw";
  74     otherpad = mulawenc->sinkpad;
  75   } else {
  76     name = "audio/x-raw";
  77     otherpad = mulawenc->srcpad;
  78   }
  79   /* get caps from the peer, this can return NULL when there is no peer */
  80   othercaps = gst_pad_peer_query_caps (otherpad, NULL);
  81
  82   /* get the template caps to make sure we return something acceptable */
  83   templ = gst_pad_get_pad_template_caps (pad);
  84
  85   if (othercaps) {
  86     /* there was a peer */
  87     othercaps = gst_caps_make_writable (othercaps);
  88
  89     /* go through the caps and remove the fields we don't want */
  90     for (i = 0; i < gst_caps_get_size (othercaps); i++) {
  91       GstStructure *structure;
  92
  93       structure = gst_caps_get_structure (othercaps, i);
  94
  95       /* adjust the name */
  96       gst_structure_set_name (structure, name);
  97
  98       if (pad == mulawenc->srcpad) {
  99         /* remove the fields we don't want */
 100         gst_structure_remove_fields (structure, "format", NULL);
 101       } else {
 102         /* add fixed fields */
 103         gst_structure_set (structure, "format", G_TYPE_STRING,
 104             GST_AUDIO_NE (S16), NULL);
 105       }
 106     }
 107     /* filter against the allowed caps of the pad to return our result */
 108     result = gst_caps_intersect (othercaps, templ);
 109     gst_caps_unref (othercaps);
 110     gst_caps_unref (templ);
 111   } else {
 112     /* there was no peer, return the template caps */
 113     result = templ;
 114   }
 115   if (filter && result) {
 116     GstCaps *temp;
 117
 118     temp = gst_caps_intersect (result, filter);
 119     gst_caps_unref (result);
 120     result = temp;
 121   }
 122
 123   return result;
 124 }
 125
 126 static gboolean
 127 gst_mulawenc_query (GstPad * pad, GstObject * parent, GstQuery * query)
 128 {
 129   gboolean res;
 130
 131   switch (GST_QUERY_TYPE (query)) {
 132     case GST_QUERY_CAPS:
 133     {
 134       GstCaps *filter, *caps;
 135
 136       gst_query_parse_caps (query, &filter);
 137       caps = mulawenc_getcaps (pad, filter);
 138       gst_query_set_caps_result (query, caps);
 139       gst_caps_unref (caps);
 140
 141       res = TRUE;
 142       break;
 143     }
 144     default:
 145       res = gst_pad_query_default (pad, parent, query);
 146       break;
 147   }
 148   return res;
 149 }
 150
 151
 152 static gboolean
 153 mulawenc_setcaps (GstMuLawEnc * mulawenc, GstCaps * caps)
 154 {
 155   GstStructure *structure;
 156   GstCaps *base_caps;
 157
 158   structure = gst_caps_get_structure (caps, 0);
 159   gst_structure_get_int (structure, "channels", &mulawenc->channels);
 160   gst_structure_get_int (structure, "rate", &mulawenc->rate);
 161
 162   base_caps = gst_caps_copy (gst_pad_get_pad_template_caps (mulawenc->srcpad));
 163
 164   structure = gst_caps_get_structure (base_caps, 0);
 165   gst_structure_set (structure, "rate", G_TYPE_INT, mulawenc->rate, NULL);
 166   gst_structure_set (structure, "channels", G_TYPE_INT, mulawenc->channels,
 167       NULL);
 168
 169   gst_pad_set_caps (mulawenc->srcpad, base_caps);
 170
 171   gst_caps_unref (base_caps);
 172
 173   return TRUE;
 174 }
 175
 176 static void
 177 gst_mulawenc_class_init (GstMuLawEncClass * klass)
 178 {
 179   GstElementClass *element_class = GST_ELEMENT_CLASS (klass);
 180
 181   gst_element_class_add_pad_template (element_class,
 182       gst_static_pad_template_get (&mulaw_enc_src_factory));
 183   gst_element_class_add_pad_template (element_class,
 184       gst_static_pad_template_get (&mulaw_enc_sink_factory));
 185
 186   gst_element_class_set_details_simple (element_class, "Mu Law audio encoder",
 187       "Codec/Encoder/Audio",
 188       "Convert 16bit PCM to 8bit mu law",
 189       "Zaheer Abbas Merali <zaheerabbas at merali dot org>");
 190 }
 191
 192 static void
 193 gst_mulawenc_init (GstMuLawEnc * mulawenc)
 194 {
 195   mulawenc->sinkpad =
 196       gst_pad_new_from_static_template (&mulaw_enc_sink_factory, "sink");
 197   gst_pad_set_query_function (mulawenc->sinkpad, gst_mulawenc_query);
 198   gst_pad_set_event_function (mulawenc->sinkpad, gst_mulawenc_event);
 199   gst_pad_set_chain_function (mulawenc->sinkpad, gst_mulawenc_chain);
 200   gst_element_add_pad (GST_ELEMENT (mulawenc), mulawenc->sinkpad);
 201
 202   mulawenc->srcpad =
 203       gst_pad_new_from_static_template (&mulaw_enc_src_factory, "src");
 204   gst_pad_set_query_function (mulawenc->srcpad, gst_mulawenc_query);
 205   gst_element_add_pad (GST_ELEMENT (mulawenc), mulawenc->srcpad);
 206
 207   /* init rest */
 208   mulawenc->channels = 0;
 209   mulawenc->rate = 0;
 210 }
 211
 212 static gboolean
 213 gst_mulawenc_event (GstPad * pad, GstObject * parent, GstEvent * event)
 214 {
 215   GstMuLawEnc *mulawenc;
 216   gboolean res;
 217
 218   mulawenc = GST_MULAWENC (parent);
 219
 220   switch (GST_EVENT_TYPE (event)) {
 221     case GST_EVENT_CAPS:
 222     {
 223       GstCaps *caps;
 224
 225       gst_event_parse_caps (event, &caps);
 226       mulawenc_setcaps (mulawenc, caps);
 227       gst_event_unref (event);
 228
 229       res = TRUE;
 230       break;
 231     }
 232     default:
 233       res = gst_pad_event_default (pad, parent, event);
 234       break;
 235   }
 236   return res;
 237 }
 238
 239 static GstFlowReturn
 240 gst_mulawenc_chain (GstPad * pad, GstObject * parent, GstBuffer * buffer)
 241 {
 242   GstMuLawEnc *mulawenc;
 243   GstMapInfo inmap, outmap;
 244   gint16 *linear_data;
 245   gsize linear_size;
 246   guint8 *mulaw_data;
 247   guint mulaw_size;
 248   GstBuffer *outbuf;
 249   GstFlowReturn ret;
 250   GstClockTime timestamp, duration;
 251
 252   mulawenc = GST_MULAWENC (parent);
 253
 254   if (!mulawenc->rate || !mulawenc->channels)
 255     goto not_negotiated;
 256
 257   gst_buffer_map (buffer, &inmap, GST_MAP_READ);
 258   linear_data = (gint16 *) inmap.data;
 259   linear_size = inmap.size;
 260
 261   mulaw_size = linear_size / 2;
 262
 263   timestamp = GST_BUFFER_TIMESTAMP (buffer);
 264   duration = GST_BUFFER_DURATION (buffer);
 265
 266   outbuf = gst_buffer_new_allocate (NULL, mulaw_size, NULL);
 267
 268   if (duration == -1) {
 269     duration = gst_util_uint64_scale_int (mulaw_size,
 270         GST_SECOND, mulawenc->rate * mulawenc->channels);
 271   }
 272
 273   gst_buffer_map (outbuf, &outmap, GST_MAP_WRITE);
 274   mulaw_data = outmap.data;
 275
 276   /* copy discont flag */
 277   if (GST_BUFFER_FLAG_IS_SET (buffer, GST_BUFFER_FLAG_DISCONT))
 278     GST_BUFFER_FLAG_SET (outbuf, GST_BUFFER_FLAG_DISCONT);
 279
 280   GST_BUFFER_TIMESTAMP (outbuf) = timestamp;
 281   GST_BUFFER_DURATION (outbuf) = duration;
 282
 283   mulaw_encode (linear_data, mulaw_data, mulaw_size);
 284
 285   gst_buffer_unmap (outbuf, &outmap);
 286   gst_buffer_unmap (buffer, &inmap);
 287   gst_buffer_unref (buffer);
 288
 289   ret = gst_pad_push (mulawenc->srcpad, outbuf);
 290
 291 done:
 292
 293   return ret;
 294
 295 not_negotiated:
 296   {
 297     GST_DEBUG_OBJECT (mulawenc, "no format negotiated");
 298     ret = GST_FLOW_NOT_NEGOTIATED;
 299     gst_buffer_unref (buffer);
 300     goto done;
 301   }
 302 }