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   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 (templ);
 354     gst_caps_unref (othercaps);
 355   } else {
 356     /* there was no peer, return the template caps */
 357     result = templ;
 358   }
 359   if (filter && result) {
 360     GstCaps *temp;
 361
 362     temp = gst_caps_intersect (result, filter);
 363     gst_caps_unref (result);
 364     result = temp;
 365   }
 366
 367   return result;
 368 }
 369
 370 static gboolean
 371 gst_alaw_enc_query (GstPad * pad, GstObject * parent, GstQuery * query)
 372 {
 373   gboolean res;
 374
 375   switch (GST_QUERY_TYPE (query)) {
 376     case GST_QUERY_CAPS:
 377     {
 378       GstCaps *filter, *caps;
 379
 380       gst_query_parse_caps (query, &filter);
 381       caps = gst_alaw_enc_getcaps (pad, filter);
 382       gst_query_set_caps_result (query, caps);
 383       gst_caps_unref (caps);
 384
 385       res = TRUE;
 386       break;
 387     }
 388     default:
 389       res = gst_pad_query_default (pad, parent, query);
 390       break;
 391   }
 392   return res;
 393 }
 394
 395 static gboolean
 396 gst_alaw_enc_setcaps (GstALawEnc * alawenc, GstCaps * caps)
 397 {
 398   GstStructure *structure;
 399   gboolean ret;
 400   GstCaps *base_caps;
 401
 402   structure = gst_caps_get_structure (caps, 0);
 403   gst_structure_get_int (structure, "channels", &alawenc->channels);
 404   gst_structure_get_int (structure, "rate", &alawenc->rate);
 405
 406   base_caps = gst_pad_get_pad_template_caps (alawenc->srcpad);
 407   base_caps = gst_caps_make_writable (base_caps);
 408   structure = gst_caps_get_structure (base_caps, 0);
 409   gst_structure_set (structure, "rate", G_TYPE_INT, alawenc->rate, NULL);
 410   gst_structure_set (structure, "channels", G_TYPE_INT, alawenc->channels,
 411       NULL);
 412
 413   GST_DEBUG_OBJECT (alawenc, "rate=%d, channels=%d", alawenc->rate,
 414       alawenc->channels);
 415
 416   ret = gst_pad_set_caps (alawenc->srcpad, base_caps);
 417
 418   gst_caps_unref (base_caps);
 419
 420   return ret;
 421 }
 422
 423 static void
 424 gst_alaw_enc_class_init (GstALawEncClass * klass)
 425 {
 426   GstElementClass *element_class = GST_ELEMENT_CLASS (klass);
 427
 428   gst_element_class_add_pad_template (element_class,
 429       gst_static_pad_template_get (&alaw_enc_src_factory));
 430   gst_element_class_add_pad_template (element_class,
 431       gst_static_pad_template_get (&alaw_enc_sink_factory));
 432
 433   gst_element_class_set_static_metadata (element_class,
 434       "A Law audio encoder", "Codec/Encoder/Audio",
 435       "Convert 16bit PCM to 8bit A law",
 436       "Zaheer Abbas Merali <zaheerabbas at merali dot org>");
 437
 438   GST_DEBUG_CATEGORY_INIT (alaw_enc_debug, "alawenc", 0, "A Law audio encoder");
 439 }
 440
 441 static void
 442 gst_alaw_enc_init (GstALawEnc * alawenc)
 443 {
 444   alawenc->sinkpad =
 445       gst_pad_new_from_static_template (&alaw_enc_sink_factory, "sink");
 446   gst_pad_set_query_function (alawenc->sinkpad,
 447       GST_DEBUG_FUNCPTR (gst_alaw_enc_query));
 448   gst_pad_set_event_function (alawenc->sinkpad,
 449       GST_DEBUG_FUNCPTR (gst_alaw_enc_event));
 450   gst_pad_set_chain_function (alawenc->sinkpad,
 451       GST_DEBUG_FUNCPTR (gst_alaw_enc_chain));
 452   gst_element_add_pad (GST_ELEMENT (alawenc), alawenc->sinkpad);
 453
 454   alawenc->srcpad =
 455       gst_pad_new_from_static_template (&alaw_enc_src_factory, "src");
 456   gst_pad_set_query_function (alawenc->srcpad,
 457       GST_DEBUG_FUNCPTR (gst_alaw_enc_query));
 458   gst_pad_use_fixed_caps (alawenc->srcpad);
 459   gst_element_add_pad (GST_ELEMENT (alawenc), alawenc->srcpad);
 460
 461   /* init rest */
 462   alawenc->channels = 0;
 463   alawenc->rate = 0;
 464 }
 465
 466 static gboolean
 467 gst_alaw_enc_event (GstPad * pad, GstObject * parent, GstEvent * event)
 468 {
 469   GstALawEnc *alawenc;
 470   gboolean res;
 471
 472   alawenc = GST_ALAW_ENC (parent);
 473
 474   switch (GST_EVENT_TYPE (event)) {
 475     case GST_EVENT_CAPS:
 476     {
 477       GstCaps *caps;
 478
 479       gst_event_parse_caps (event, &caps);
 480       gst_alaw_enc_setcaps (alawenc, caps);
 481       gst_event_unref (event);
 482
 483       res = TRUE;
 484       break;
 485     }
 486     default:
 487       res = gst_pad_event_default (pad, parent, event);
 488       break;
 489   }
 490   return res;
 491 }
 492
 493 static GstFlowReturn
 494 gst_alaw_enc_chain (GstPad * pad, GstObject * parent, GstBuffer * buffer)
 495 {
 496   GstALawEnc *alawenc;
 497   GstMapInfo inmap, outmap;
 498   gint16 *linear_data;
 499   gsize linear_size;
 500   guint8 *alaw_data;
 501   guint alaw_size;
 502   GstBuffer *outbuf;
 503   gint i;
 504   GstFlowReturn ret;
 505   GstClockTime timestamp, duration;
 506
 507   alawenc = GST_ALAW_ENC (parent);
 508
 509   if (G_UNLIKELY (alawenc->rate == 0 || alawenc->channels == 0))
 510     goto not_negotiated;
 511
 512   gst_buffer_map (buffer, &inmap, GST_MAP_READ);
 513   linear_data = (gint16 *) inmap.data;
 514   linear_size = inmap.size;
 515
 516   alaw_size = linear_size / 2;
 517
 518   timestamp = GST_BUFFER_TIMESTAMP (buffer);
 519   duration = GST_BUFFER_DURATION (buffer);
 520
 521   GST_LOG_OBJECT (alawenc, "buffer with ts=%" GST_TIME_FORMAT,
 522       GST_TIME_ARGS (timestamp));
 523
 524   outbuf = gst_buffer_new_allocate (NULL, alaw_size, NULL);
 525
 526   if (duration == GST_CLOCK_TIME_NONE) {
 527     duration = gst_util_uint64_scale_int (alaw_size,
 528         GST_SECOND, alawenc->rate * alawenc->channels);
 529   }
 530
 531   gst_buffer_map (outbuf, &outmap, GST_MAP_WRITE);
 532   alaw_data = outmap.data;
 533   alaw_size = outmap.size;
 534
 535   /* copy discont flag */
 536   if (GST_BUFFER_FLAG_IS_SET (buffer, GST_BUFFER_FLAG_DISCONT))
 537     GST_BUFFER_FLAG_SET (outbuf, GST_BUFFER_FLAG_DISCONT);
 538
 539   GST_BUFFER_TIMESTAMP (outbuf) = timestamp;
 540   GST_BUFFER_DURATION (outbuf) = duration;
 541
 542   for (i = 0; i < alaw_size; i++) {
 543     alaw_data[i] = s16_to_alaw (linear_data[i]);
 544   }
 545
 546   gst_buffer_unmap (outbuf, &outmap);
 547   gst_buffer_unmap (buffer, &inmap);
 548   gst_buffer_unref (buffer);
 549
 550   ret = gst_pad_push (alawenc->srcpad, outbuf);
 551
 552   return ret;
 553
 554 not_negotiated:
 555   {
 556     gst_buffer_unref (buffer);
 557     return GST_FLOW_NOT_NEGOTIATED;
 558   }
 559 }