gst/law/alaw-encode.c

   1 /* GStreamer PCM to A-Law conversion
   2  * Copyright (C) 2000 by Abramo Bagnara <abramo@alsa-project.org>
   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.1 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-alawenc
  21  *
  22  * This element encode alaw audio. Alaw coding is also known as G.711.
  23  */
  24
  25 #ifdef HAVE_CONFIG_H
  26 #include "config.h"
  27 #endif
  28
  29 #include <gst/audio/audio.h>
  30 #include "alaw-encode.h"
  31
  32 GST_DEBUG_CATEGORY_STATIC (alaw_enc_debug);
  33 #define GST_CAT_DEFAULT alaw_enc_debug
  34
  35 extern GstStaticPadTemplate alaw_enc_src_factory;
  36 extern GstStaticPadTemplate alaw_enc_sink_factory;
  37
  38 static gboolean gst_alaw_enc_event (GstPad * pad, GstObject * parent,
  39     GstEvent * event);
  40 static GstFlowReturn gst_alaw_enc_chain (GstPad * pad, GstObject * parent,
  41     GstBuffer * buffer);
  42
  43 G_DEFINE_TYPE (GstALawEnc, gst_alaw_enc, GST_TYPE_ELEMENT);
  44
  45 /* some day we might have defines in gstconfig.h that tell us about the
  46  * desired cpu/memory/binary size trade-offs */
  47 #define GST_ALAW_ENC_USE_TABLE
  48
  49 #ifdef GST_ALAW_ENC_USE_TABLE
  50
  51 static const guint8 alaw_encode[2048 + 1] = {
  52   0xd5, 0xd4, 0xd7, 0xd6, 0xd1, 0xd0, 0xd3, 0xd2, 0xdd, 0xdc, 0xdf, 0xde,
  53   0xd9, 0xd8, 0xdb, 0xda, 0xc5, 0xc4, 0xc7, 0xc6, 0xc1, 0xc0, 0xc3, 0xc2,
  54   0xcd, 0xcc, 0xcf, 0xce, 0xc9, 0xc8, 0xcb, 0xca, 0xf5, 0xf5, 0xf4, 0xf4,
  55   0xf7, 0xf7, 0xf6, 0xf6, 0xf1, 0xf1, 0xf0, 0xf0, 0xf3, 0xf3, 0xf2, 0xf2,
  56   0xfd, 0xfd, 0xfc, 0xfc, 0xff, 0xff, 0xfe, 0xfe, 0xf9, 0xf9, 0xf8, 0xf8,
  57   0xfb, 0xfb, 0xfa, 0xfa, 0xe5, 0xe5, 0xe5, 0xe5, 0xe4, 0xe4, 0xe4, 0xe4,
  58   0xe7, 0xe7, 0xe7, 0xe7, 0xe6, 0xe6, 0xe6, 0xe6, 0xe1, 0xe1, 0xe1, 0xe1,
  59   0xe0, 0xe0, 0xe0, 0xe0, 0xe3, 0xe3, 0xe3, 0xe3, 0xe2, 0xe2, 0xe2, 0xe2,
  60   0xed, 0xed, 0xed, 0xed, 0xec, 0xec, 0xec, 0xec, 0xef, 0xef, 0xef, 0xef,
  61   0xee, 0xee, 0xee, 0xee, 0xe9, 0xe9, 0xe9, 0xe9, 0xe8, 0xe8, 0xe8, 0xe8,
  62   0xeb, 0xeb, 0xeb, 0xeb, 0xea, 0xea, 0xea, 0xea, 0x95, 0x95, 0x95, 0x95,
  63   0x95, 0x95, 0x95, 0x95, 0x94, 0x94, 0x94, 0x94, 0x94, 0x94, 0x94, 0x94,
  64   0x97, 0x97, 0x97, 0x97, 0x97, 0x97, 0x97, 0x97, 0x96, 0x96, 0x96, 0x96,
  65   0x96, 0x96, 0x96, 0x96, 0x91, 0x91, 0x91, 0x91, 0x91, 0x91, 0x91, 0x91,
  66   0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x90, 0x93, 0x93, 0x93, 0x93,
  67   0x93, 0x93, 0x93, 0x93, 0x92, 0x92, 0x92, 0x92, 0x92, 0x92, 0x92, 0x92,
  68   0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9d, 0x9c, 0x9c, 0x9c, 0x9c,
  69   0x9c, 0x9c, 0x9c, 0x9c, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f, 0x9f,
  70   0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x9e, 0x99, 0x99, 0x99, 0x99,
  71   0x99, 0x99, 0x99, 0x99, 0x98, 0x98, 0x98, 0x98, 0x98, 0x98, 0x98, 0x98,
  72   0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9b, 0x9a, 0x9a, 0x9a, 0x9a,
  73   0x9a, 0x9a, 0x9a, 0x9a, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85,
  74   0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x85, 0x84, 0x84, 0x84, 0x84,
  75   0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84, 0x84,
  76   0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87, 0x87,
  77   0x87, 0x87, 0x87, 0x87, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86,
  78   0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x86, 0x81, 0x81, 0x81, 0x81,
  79   0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81, 0x81,
  80   0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80, 0x80,
  81   0x80, 0x80, 0x80, 0x80, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83,
  82   0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x83, 0x82, 0x82, 0x82, 0x82,
  83   0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82, 0x82,
  84   0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d, 0x8d,
  85   0x8d, 0x8d, 0x8d, 0x8d, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c,
  86   0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8c, 0x8f, 0x8f, 0x8f, 0x8f,
  87   0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f, 0x8f,
  88   0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e, 0x8e,
  89   0x8e, 0x8e, 0x8e, 0x8e, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89,
  90   0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x89, 0x88, 0x88, 0x88, 0x88,
  91   0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88, 0x88,
  92   0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b, 0x8b,
  93   0x8b, 0x8b, 0x8b, 0x8b, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a,
  94   0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0x8a, 0xb5, 0xb5, 0xb5, 0xb5,
  95   0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5,
  96   0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5, 0xb5,
  97   0xb5, 0xb5, 0xb5, 0xb5, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4,
  98   0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4,
  99   0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4, 0xb4,
 100   0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7,
 101   0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7,
 102   0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb7, 0xb6, 0xb6, 0xb6, 0xb6,
 103   0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6,
 104   0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6, 0xb6,
 105   0xb6, 0xb6, 0xb6, 0xb6, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1,
 106   0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1,
 107   0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1, 0xb1,
 108   0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0,
 109   0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0,
 110   0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb0, 0xb3, 0xb3, 0xb3, 0xb3,
 111   0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3,
 112   0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3, 0xb3,
 113   0xb3, 0xb3, 0xb3, 0xb3, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2,
 114   0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2,
 115   0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2, 0xb2,
 116   0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd,
 117   0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd,
 118   0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbd, 0xbc, 0xbc, 0xbc, 0xbc,
 119   0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc,
 120   0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc, 0xbc,
 121   0xbc, 0xbc, 0xbc, 0xbc, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf,
 122   0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf,
 123   0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf, 0xbf,
 124   0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe,
 125   0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe,
 126   0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xbe, 0xb9, 0xb9, 0xb9, 0xb9,
 127   0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9,
 128   0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9, 0xb9,
 129   0xb9, 0xb9, 0xb9, 0xb9, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8,
 130   0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8,
 131   0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8, 0xb8,
 132   0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb,
 133   0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb,
 134   0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xbb, 0xba, 0xba, 0xba, 0xba,
 135   0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba,
 136   0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba, 0xba,
 137   0xba, 0xba, 0xba, 0xba, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
 138   0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
 139   0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
 140   0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
 141   0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5,
 142   0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa5, 0xa4, 0xa4, 0xa4, 0xa4,
 143   0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
 144   0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
 145   0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
 146   0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
 147   0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4, 0xa4,
 148   0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
 149   0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
 150   0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
 151   0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
 152   0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7, 0xa7,
 153   0xa7, 0xa7, 0xa7, 0xa7, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
 154   0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
 155   0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
 156   0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
 157   0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6,
 158   0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa6, 0xa1, 0xa1, 0xa1, 0xa1,
 159   0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
 160   0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
 161   0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
 162   0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
 163   0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1, 0xa1,
 164   0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
 165   0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
 166   0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
 167   0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
 168   0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0, 0xa0,
 169   0xa0, 0xa0, 0xa0, 0xa0, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
 170   0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
 171   0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
 172   0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
 173   0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3,
 174   0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa3, 0xa2, 0xa2, 0xa2, 0xa2,
 175   0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
 176   0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
 177   0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
 178   0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
 179   0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2, 0xa2,
 180   0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
 181   0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
 182   0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
 183   0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
 184   0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad, 0xad,
 185   0xad, 0xad, 0xad, 0xad, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
 186   0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
 187   0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
 188   0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
 189   0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac,
 190   0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xac, 0xaf, 0xaf, 0xaf, 0xaf,
 191   0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
 192   0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
 193   0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
 194   0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
 195   0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf, 0xaf,
 196   0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
 197   0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
 198   0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
 199   0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
 200   0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae, 0xae,
 201   0xae, 0xae, 0xae, 0xae, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
 202   0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
 203   0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
 204   0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
 205   0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9,
 206   0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa9, 0xa8, 0xa8, 0xa8, 0xa8,
 207   0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
 208   0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
 209   0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
 210   0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
 211   0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8, 0xa8,
 212   0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
 213   0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
 214   0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
 215   0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
 216   0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab, 0xab,
 217   0xab, 0xab, 0xab, 0xab, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
 218   0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
 219   0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
 220   0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
 221   0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
 222   0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0x2a
 223 };
 224
 225 static inline guint8
 226 s16_to_alaw (gint16 pcm_val)
 227 {
 228   if (pcm_val >= 0)
 229     return alaw_encode[pcm_val / 16];
 230   else
 231     return (0x7F & alaw_encode[pcm_val / -16]);
 232 }
 233
 234 #else /* GST_ALAW_ENC_USE_TABLE */
 235
 236 /*
 237  * s16_to_alaw() - Convert a 16-bit linear PCM value to 8-bit A-law
 238  *
 239  * s16_to_alaw() accepts an 16-bit integer and encodes it as A-law data.
 240  *
 241  *              Linear Input Code       Compressed Code
 242  *      ------------------------        ---------------
 243  *      0000000wxyza                    000wxyz
 244  *      0000001wxyza                    001wxyz
 245  *      000001wxyzab                    010wxyz
 246  *      00001wxyzabc                    011wxyz
 247  *      0001wxyzabcd                    100wxyz
 248  *      001wxyzabcde                    101wxyz
 249  *      01wxyzabcdef                    110wxyz
 250  *      1wxyzabcdefg                    111wxyz
 251  *
 252  * For further information see John C. Bellamy's Digital Telephony, 1982,
 253  * John Wiley & Sons, pps 98-111 and 472-476.
 254  */
 255
 256 static inline gint
 257 val_seg (gint val)
 258 {
 259   gint r = 1;
 260
 261   val >>= 8;
 262   if (val & 0xf0) {
 263     val >>= 4;
 264     r += 4;
 265   }
 266   if (val & 0x0c) {
 267     val >>= 2;
 268     r += 2;
 269   }
 270   if (val & 0x02)
 271     r += 1;
 272   return r;
 273 }
 274
 275 static inline guint8
 276 s16_to_alaw (gint pcm_val)
 277 {
 278   gint seg;
 279   guint8 mask;
 280   guint8 aval;
 281
 282   if (pcm_val >= 0) {
 283     mask = 0xD5;
 284   } else {
 285     mask = 0x55;
 286     pcm_val = -pcm_val;
 287     if (pcm_val > 0x7fff)
 288       pcm_val = 0x7fff;
 289   }
 290
 291   if (pcm_val < 256)
 292     aval = pcm_val >> 4;
 293   else {
 294     /* Convert the scaled magnitude to segment number. */
 295     seg = val_seg (pcm_val);
 296     aval = (seg << 4) | ((pcm_val >> (seg + 3)) & 0x0f);
 297   }
 298   return aval ^ mask;
 299 }
 300
 301 #endif /* GST_ALAW_ENC_USE_TABLE */
 302
 303 static GstCaps *
 304 gst_alaw_enc_getcaps (GstPad * pad, GstCaps * filter)
 305 {
 306   GstALawEnc *alawenc;
 307   GstPad *otherpad;
 308   GstCaps *othercaps, *result;
 309   const GstCaps *templ;
 310   const gchar *name;
 311   gint i;
 312
 313   alawenc = GST_ALAW_ENC (GST_PAD_PARENT (pad));
 314
 315   /* figure out the name of the caps we are going to return */
 316   if (pad == alawenc->srcpad) {
 317     name = "audio/x-alaw";
 318     otherpad = alawenc->sinkpad;
 319   } else {
 320     name = "audio/x-raw";
 321     otherpad = alawenc->srcpad;
 322   }
 323   /* get caps from the peer, this can return NULL when there is no peer */
 324   othercaps = gst_pad_peer_query_caps (otherpad, NULL);
 325
 326   /* get the template caps to make sure we return something acceptable */
 327   templ = gst_pad_get_pad_template_caps (pad);
 328
 329   if (othercaps) {
 330     /* there was a peer */
 331     othercaps = gst_caps_make_writable (othercaps);
 332
 333     /* go through the caps and remove the fields we don't want */
 334     for (i = 0; i < gst_caps_get_size (othercaps); i++) {
 335       GstStructure *structure;
 336
 337       structure = gst_caps_get_structure (othercaps, i);
 338
 339       /* adjust the name */
 340       gst_structure_set_name (structure, name);
 341
 342       if (pad == alawenc->srcpad) {
 343         /* remove the fields we don't want */
 344         gst_structure_remove_fields (structure, "format", NULL);
 345       } else {
 346         /* add fixed fields */
 347         gst_structure_set (structure, "format", G_TYPE_STRING,
 348             GST_AUDIO_NE (S16), NULL);
 349       }
 350     }
 351     /* filter against the allowed caps of the pad to return our result */
 352     result = gst_caps_intersect (othercaps, templ);
 353     gst_caps_unref (othercaps);
 354   } else {
 355     /* there was no peer, return the template caps */
 356     result = gst_caps_copy (templ);
 357   }
 358   if (filter && result) {
 359     GstCaps *temp;
 360
 361     temp = gst_caps_intersect (result, filter);
 362     gst_caps_unref (result);
 363     result = temp;
 364   }
 365
 366   return result;
 367 }
 368
 369 static gboolean
 370 gst_alaw_enc_query (GstPad * pad, GstObject * parent, GstQuery * query)
 371 {
 372   gboolean res;
 373
 374   switch (GST_QUERY_TYPE (query)) {
 375     case GST_QUERY_CAPS:
 376     {
 377       GstCaps *filter, *caps;
 378
 379       gst_query_parse_caps (query, &filter);
 380       caps = gst_alaw_enc_getcaps (pad, filter);
 381       gst_query_set_caps_result (query, caps);
 382       gst_caps_unref (caps);
 383
 384       res = TRUE;
 385       break;
 386     }
 387     default:
 388       res = gst_pad_query_default (pad, parent, query);
 389       break;
 390   }
 391   return res;
 392 }
 393
 394 static gboolean
 395 gst_alaw_enc_setcaps (GstALawEnc * alawenc, GstCaps * caps)
 396 {
 397   GstStructure *structure;
 398   gboolean ret;
 399   GstCaps *base_caps;
 400
 401   structure = gst_caps_get_structure (caps, 0);
 402   gst_structure_get_int (structure, "channels", &alawenc->channels);
 403   gst_structure_get_int (structure, "rate", &alawenc->rate);
 404
 405   base_caps = gst_caps_copy (gst_pad_get_pad_template_caps (alawenc->srcpad));
 406   structure = gst_caps_get_structure (base_caps, 0);
 407   gst_structure_set (structure, "rate", G_TYPE_INT, alawenc->rate, NULL);
 408   gst_structure_set (structure, "channels", G_TYPE_INT, alawenc->channels,
 409       NULL);
 410
 411   GST_DEBUG_OBJECT (alawenc, "rate=%d, channels=%d", alawenc->rate,
 412       alawenc->channels);
 413
 414   ret = gst_pad_set_caps (alawenc->srcpad, base_caps);
 415
 416   gst_caps_unref (base_caps);
 417
 418   return ret;
 419 }
 420
 421 static void
 422 gst_alaw_enc_class_init (GstALawEncClass * klass)
 423 {
 424   GstElementClass *element_class = GST_ELEMENT_CLASS (klass);
 425
 426   gst_element_class_add_pad_template (element_class,
 427       gst_static_pad_template_get (&alaw_enc_src_factory));
 428   gst_element_class_add_pad_template (element_class,
 429       gst_static_pad_template_get (&alaw_enc_sink_factory));
 430
 431   gst_element_class_set_details_simple (element_class,
 432       "A Law audio encoder", "Codec/Encoder/Audio",
 433       "Convert 16bit PCM to 8bit A law",
 434       "Zaheer Abbas Merali <zaheerabbas at merali dot org>");
 435
 436   GST_DEBUG_CATEGORY_INIT (alaw_enc_debug, "alawenc", 0, "A Law audio encoder");
 437 }
 438
 439 static void
 440 gst_alaw_enc_init (GstALawEnc * alawenc)
 441 {
 442   alawenc->sinkpad =
 443       gst_pad_new_from_static_template (&alaw_enc_sink_factory, "sink");
 444   gst_pad_set_query_function (alawenc->sinkpad,
 445       GST_DEBUG_FUNCPTR (gst_alaw_enc_query));
 446   gst_pad_set_event_function (alawenc->sinkpad,
 447       GST_DEBUG_FUNCPTR (gst_alaw_enc_event));
 448   gst_pad_set_chain_function (alawenc->sinkpad,
 449       GST_DEBUG_FUNCPTR (gst_alaw_enc_chain));
 450   gst_element_add_pad (GST_ELEMENT (alawenc), alawenc->sinkpad);
 451
 452   alawenc->srcpad =
 453       gst_pad_new_from_static_template (&alaw_enc_src_factory, "src");
 454   gst_pad_set_query_function (alawenc->srcpad,
 455       GST_DEBUG_FUNCPTR (gst_alaw_enc_query));
 456   gst_pad_use_fixed_caps (alawenc->srcpad);
 457   gst_element_add_pad (GST_ELEMENT (alawenc), alawenc->srcpad);
 458
 459   /* init rest */
 460   alawenc->channels = 0;
 461   alawenc->rate = 0;
 462 }
 463
 464 static gboolean
 465 gst_alaw_enc_event (GstPad * pad, GstObject * parent, GstEvent * event)
 466 {
 467   GstALawEnc *alawenc;
 468   gboolean res;
 469
 470   alawenc = GST_ALAW_ENC (parent);
 471
 472   switch (GST_EVENT_TYPE (event)) {
 473     case GST_EVENT_CAPS:
 474     {
 475       GstCaps *caps;
 476
 477       gst_event_parse_caps (event, &caps);
 478       gst_alaw_enc_setcaps (alawenc, caps);
 479       gst_event_unref (event);
 480
 481       res = TRUE;
 482       break;
 483     }
 484     default:
 485       res = gst_pad_event_default (pad, parent, event);
 486       break;
 487   }
 488   return res;
 489 }
 490
 491 static GstFlowReturn
 492 gst_alaw_enc_chain (GstPad * pad, GstObject * parent, GstBuffer * buffer)
 493 {
 494   GstALawEnc *alawenc;
 495   gint16 *linear_data;
 496   gsize linear_size;
 497   guint8 *alaw_data;
 498   guint alaw_size;
 499   GstBuffer *outbuf;
 500   gint i;
 501   GstFlowReturn ret;
 502   GstClockTime timestamp, duration;
 503
 504   alawenc = GST_ALAW_ENC (parent);
 505
 506   if (G_UNLIKELY (alawenc->rate == 0 || alawenc->channels == 0))
 507     goto not_negotiated;
 508
 509   linear_data = gst_buffer_map (buffer, &linear_size, NULL, GST_MAP_READ);
 510
 511   alaw_size = linear_size / 2;
 512
 513   timestamp = GST_BUFFER_TIMESTAMP (buffer);
 514   duration = GST_BUFFER_DURATION (buffer);
 515
 516   GST_LOG_OBJECT (alawenc, "buffer with ts=%" GST_TIME_FORMAT,
 517       GST_TIME_ARGS (timestamp));
 518
 519   outbuf = gst_buffer_new_allocate (NULL, alaw_size, 0);
 520
 521   if (duration == GST_CLOCK_TIME_NONE) {
 522     duration = gst_util_uint64_scale_int (alaw_size,
 523         GST_SECOND, alawenc->rate * alawenc->channels);
 524   }
 525
 526   alaw_data = gst_buffer_map (outbuf, NULL, NULL, GST_MAP_WRITE);
 527
 528   /* copy discont flag */
 529   if (GST_BUFFER_FLAG_IS_SET (buffer, GST_BUFFER_FLAG_DISCONT))
 530     GST_BUFFER_FLAG_SET (outbuf, GST_BUFFER_FLAG_DISCONT);
 531
 532   GST_BUFFER_TIMESTAMP (outbuf) = timestamp;
 533   GST_BUFFER_DURATION (outbuf) = duration;
 534
 535   for (i = 0; i < alaw_size; i++) {
 536     alaw_data[i] = s16_to_alaw (linear_data[i]);
 537   }
 538
 539   gst_buffer_unmap (outbuf, alaw_data, -1);
 540   gst_buffer_unmap (buffer, linear_data, -1);
 541   gst_buffer_unref (buffer);
 542
 543   ret = gst_pad_push (alawenc->srcpad, outbuf);
 544
 545   return ret;
 546
 547 not_negotiated:
 548   {
 549     gst_buffer_unref (buffer);
 550     return GST_FLOW_NOT_NEGOTIATED;
 551   }
 552 }