gst/rtp/gstrtph263pay.c

   1 /* GStreamer
   2  * Copyright (C) <2005> Wim Taymans <wim.taymans@gmail.com>
   3  * Copyright (C) <2008> Dejan Sakelsak <dejan.sakelsak@marand.si>
   4  * Copyright (C) <2009> Janin Kolenc  <janin.kolenc@marand.si>
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Library General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Library General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Library General Public
  17  * License along with this library; if not, write to the
  18  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  19  * Boston, MA 02111-1307, USA.
  20  *
  21  */
  22
  23 #ifdef HAVE_CONFIG_H
  24 #  include "config.h"
  25 #endif
  26
  27 #include <string.h>
  28 #include <math.h>
  29 #include <gst/rtp/gstrtpbuffer.h>
  30
  31 #include "gstrtph263pay.h"
  32
  33 typedef enum
  34 {
  35   GST_H263_FRAME_TYPE_I = 0,
  36   GST_H263_FRAME_TYPE_P = 1,
  37   GST_H263_FRAME_TYPE_PB = 2
  38 } GstRtpH263PayFrameType;
  39
  40 typedef enum
  41 {
  42   GST_RTP_H263_PAYLOAD_PICTURE_FORMAT_RES1 = 0,
  43   GST_RTP_H263_PAYLOAD_PICTURE_FORMAT_SQCIF = 1,
  44   GST_RTP_H263_PAYLOAD_PICTURE_FORMAT_QCIF = 2,
  45   GST_RTP_H263_PAYLOAD_PICTURE_FORMAT_CIF = 3,
  46   GST_RTP_H263_PAYLOAD_PICTURE_FORMAT_4CIF = 4,
  47   GST_RTP_H263_PAYLOAD_PICTURE_FORMAT_16CIF = 5,
  48   GST_RTP_H263_PAYLOAD_PICTURE_FORMAT_RES2 = 6,
  49   GST_H263_PAYLOAD_PICTURE_FORMAT_PLUS = 7
  50 } GstRtpH263PayPictureFormat;
  51
  52 static const guint format_props[8][2] = { {254, 254},
  53 {6, 8},
  54 {9, 11},
  55 {18, 22},
  56 {18, 88},
  57 {18, 352},
  58 {254, 254},
  59 {255, 255}
  60 };
  61
  62 /*
  63  * I-frame MCBPC table: code, mask, nbits, cb, cr, mb type -> 10 = undefined (because we have guint)
  64  */
  65 #define MCBPC_I_LEN 9
  66 #define MCBPC_I_WID 6
  67 static const guint32 mcbpc_I[9][6] = {
  68   {0x8000, 0x8000, 1, 0, 0, 3},
  69   {0x2000, 0xe000, 3, 0, 1, 3},
  70   {0x4000, 0xe000, 3, 1, 0, 3},
  71   {0x6000, 0xe000, 3, 1, 1, 3},
  72   {0x1000, 0xf000, 4, 0, 0, 4},
  73   {0x0400, 0xfc00, 6, 0, 1, 4},
  74   {0x0800, 0xfc00, 6, 1, 0, 4},
  75   {0x0c00, 0xfc00, 6, 1, 1, 4},
  76   {0x0080, 0xff80, 9, 10, 10, 10}
  77 };
  78
  79 /*
  80  * P-frame MCBPC table: code, mask, nbits, cb, cr, mb type -> 10 = undefined (because we have guint)
  81  */
  82 #define MCBPC_P_LEN 21
  83 #define MCBPC_P_WID 6
  84 static const guint16 mcbpc_P[21][6] = {
  85   {0x8000, 0x8000, 1, 0, 0, 0},
  86   {0x3000, 0xf000, 4, 0, 1, 0},
  87   {0x2000, 0xf000, 4, 1, 0, 0},
  88   {0x1400, 0xfc00, 6, 1, 1, 0},
  89   {0x6000, 0xe000, 3, 0, 0, 1},
  90   {0x0e00, 0xfe00, 7, 0, 1, 1},
  91   {0x0c00, 0xfe00, 7, 1, 0, 1},
  92   {0x0280, 0xff80, 9, 1, 1, 1},
  93   {0x4000, 0xe000, 3, 0, 0, 2},
  94   {0x0a00, 0xfe00, 7, 0, 1, 2},
  95   {0x0800, 0xfe00, 7, 1, 0, 2},
  96   {0x0500, 0xff00, 8, 1, 1, 2},
  97   {0x1800, 0xf800, 5, 0, 0, 3},
  98   {0x0400, 0xff00, 8, 0, 1, 3},
  99   {0x0300, 0xff00, 8, 1, 0, 3},
 100   {0x0600, 0xfe00, 7, 1, 1, 3},
 101   {0x1000, 0xfc00, 6, 0, 0, 4},
 102   {0x0200, 0xff80, 9, 0, 1, 4},
 103   {0x0180, 0xff80, 9, 1, 0, 4},
 104   {0x0100, 0xff80, 9, 1, 1, 4},
 105   {0x0080, 0xff80, 9, 10, 10, 10}
 106 };
 107
 108 /*
 109  * I-frame CBPY (code, mask, nbits, Y0, Y1, Y2, Y3)
 110  */
 111 #define CBPY_LEN 16
 112 #define CBPY_WID 7
 113 static const guint8 cbpy_I[16][7] = {
 114   {0x30, 0xf0, 4, 0, 0, 0, 0},
 115   {0x28, 0xf8, 5, 0, 0, 0, 1},
 116   {0x20, 0xf8, 5, 0, 0, 1, 0},
 117   {0x90, 0xf0, 4, 0, 0, 1, 1},
 118   {0x18, 0xf8, 5, 0, 1, 0, 0},
 119   {0x70, 0xf0, 4, 0, 1, 0, 1},
 120   {0x08, 0xfc, 6, 0, 1, 1, 0},
 121   {0xb0, 0xf0, 4, 0, 1, 1, 1},
 122   {0x10, 0xf8, 5, 1, 0, 0, 0},
 123   {0x0c, 0xfc, 6, 1, 0, 0, 1},
 124   {0x50, 0xf0, 4, 1, 0, 1, 0},
 125   {0xa0, 0xf0, 4, 1, 0, 1, 1},
 126   {0x40, 0xf0, 4, 1, 1, 0, 0},
 127   {0x80, 0xf0, 4, 1, 1, 0, 1},
 128   {0x60, 0xf0, 4, 1, 1, 1, 0},
 129   {0xc0, 0xc0, 2, 1, 1, 1, 1}
 130 };
 131
 132 /*
 133  * P-frame CBPY (code, mask, nbits, Y0, Y1, Y2, Y3)
 134  */
 135 static const guint8 cbpy_P[16][7] = {
 136   {0x30, 0xf0, 4, 1, 1, 1, 1},
 137   {0x28, 0xf8, 5, 1, 1, 1, 0},
 138   {0x20, 0xf8, 5, 1, 1, 0, 1},
 139   {0x90, 0xf0, 4, 1, 1, 0, 0},
 140   {0x18, 0xf8, 5, 1, 0, 1, 1},
 141   {0x70, 0xf0, 4, 1, 0, 1, 0},
 142   {0x08, 0xfc, 6, 1, 0, 0, 1},
 143   {0xb0, 0xf0, 4, 1, 0, 0, 0},
 144   {0x10, 0xf8, 5, 0, 1, 1, 1},
 145   {0x0c, 0xfc, 6, 0, 1, 1, 0},
 146   {0x50, 0xf0, 4, 0, 1, 0, 1},
 147   {0xa0, 0xf0, 4, 0, 1, 0, 0},
 148   {0x40, 0xf0, 4, 0, 0, 1, 1},
 149   {0x80, 0xf0, 4, 0, 0, 1, 0},
 150   {0x60, 0xf0, 4, 0, 0, 0, 1},
 151   {0xc0, 0xc0, 2, 0, 0, 0, 0}
 152 };
 153
 154 /*
 155  * Block TCOEF table (code, mask, nbits, LAST, RUN, LEVEL)
 156  */
 157 #define TCOEF_LEN 103
 158 #define TCOEF_WID 6
 159 static const guint16 tcoef[103][6] = {
 160   {0x8000, 0xc000, 3, 0, 0, 1},
 161   {0xf000, 0xf000, 5, 0, 0, 2},
 162   {0x5400, 0xfc00, 7, 0, 0, 3},
 163   {0x2e00, 0xfe00, 8, 0, 0, 4},
 164   {0x1f00, 0xff00, 9, 0, 0, 5},
 165   {0x1280, 0xff80, 10, 0, 0, 6},
 166   {0x1200, 0xff80, 10, 0, 0, 7},
 167   {0x0840, 0xffc0, 11, 0, 0, 8},
 168   {0x0800, 0xffc0, 11, 0, 0, 9},
 169   {0x00e0, 0xffe0, 12, 0, 0, 10},       //10
 170   {0x00c0, 0xffe0, 12, 0, 0, 11},
 171   {0x0400, 0xffe0, 12, 0, 0, 12},
 172   {0xc000, 0xe000, 4, 0, 1, 1},
 173   {0x5000, 0xfc00, 7, 0, 1, 2},
 174   {0x1e00, 0xff00, 9, 0, 1, 3},
 175   {0x03c0, 0xffc0, 11, 0, 1, 4},
 176   {0x0420, 0xffe0, 12, 0, 1, 5},
 177   {0x0500, 0xfff0, 13, 0, 1, 6},
 178   {0xe000, 0xf000, 5, 0, 2, 1},
 179   {0x1d00, 0xff00, 9, 0, 2, 2}, //20
 180   {0x0380, 0xffc0, 11, 0, 2, 3},
 181   {0x0510, 0xfff0, 13, 0, 2, 4},
 182   {0x6800, 0xf800, 6, 0, 3, 1},
 183   {0x1180, 0xff80, 10, 0, 3, 2},
 184   {0x0340, 0xffc0, 11, 0, 3, 3},
 185   {0x6000, 0xf800, 6, 0, 4, 1},
 186   {0x1100, 0xff80, 10, 0, 4, 2},
 187   {0x0520, 0xfff0, 13, 0, 4, 3},
 188   {0x5800, 0xf800, 6, 0, 5, 1},
 189   {0x0300, 0xffc0, 11, 0, 5, 2},        // 30
 190   {0x0530, 0xfff0, 13, 0, 5, 3},
 191   {0x4c00, 0xfc00, 7, 0, 6, 1},
 192   {0x02c0, 0xffc0, 11, 0, 6, 2},
 193   {0x0540, 0xfff0, 13, 0, 6, 3},
 194   {0x4800, 0xfc00, 7, 0, 7, 1},
 195   {0x0280, 0xffc0, 11, 0, 7, 2},
 196   {0x4400, 0xfc00, 7, 0, 8, 1},
 197   {0x0240, 0xffc0, 11, 0, 8, 2},
 198   {0x4000, 0xfc00, 7, 0, 9, 1},
 199   {0x0200, 0xffc0, 11, 0, 9, 2},        // 40
 200   {0x2c00, 0xfe00, 8, 0, 10, 1},
 201   {0x0550, 0xfff0, 13, 0, 10, 2},
 202   {0x2a00, 0xfe00, 8, 0, 11, 1},
 203   {0x2800, 0xfe00, 8, 0, 12, 1},
 204   {0x1c00, 0xff00, 9, 0, 13, 1},
 205   {0x1b00, 0xff00, 9, 0, 14, 1},
 206   {0x1080, 0xff80, 10, 0, 15, 1},
 207   {0x1000, 0xff80, 10, 0, 16, 1},
 208   {0x0f80, 0xff80, 10, 0, 17, 1},
 209   {0x0f00, 0xff80, 10, 0, 18, 1},       // 50
 210   {0x0e80, 0xff80, 10, 0, 19, 1},
 211   {0x0e00, 0xff80, 10, 0, 20, 1},
 212   {0x0d80, 0xff80, 10, 0, 21, 1},
 213   {0x0d00, 0xff80, 10, 0, 22, 1},
 214   {0x0440, 0xffe0, 12, 0, 23, 1},
 215   {0x0460, 0xffe0, 12, 0, 24, 1},
 216   {0x0560, 0xfff0, 13, 0, 25, 1},
 217   {0x0570, 0xfff0, 13, 0, 26, 1},
 218   {0x7000, 0xf000, 5, 1, 0, 1},
 219   {0x0c80, 0xff80, 10, 1, 0, 2},        // 60
 220   {0x00a0, 0xffe0, 12, 1, 0, 3},
 221   {0x3c00, 0xfc00, 7, 1, 1, 1},
 222   {0x0080, 0xffe0, 12, 1, 1, 2},
 223   {0x3800, 0xfc00, 7, 1, 2, 1},
 224   {0x3400, 0xfc00, 7, 1, 3, 1},
 225   {0x3000, 0xfc00, 7, 1, 4, 1},
 226   {0x2600, 0xfe00, 8, 1, 5, 1},
 227   {0x2400, 0xfe00, 8, 1, 6, 1},
 228   {0x2200, 0xfe00, 8, 1, 7, 1},
 229   {0x2000, 0xfe00, 8, 1, 8, 1}, // 70
 230   {0x1a00, 0xff00, 9, 1, 9, 1},
 231   {0x1900, 0xff00, 9, 1, 10, 1},
 232   {0x1800, 0xff00, 9, 1, 11, 1},
 233   {0x1700, 0xff00, 9, 1, 12, 1},
 234   {0x1600, 0xff00, 9, 1, 13, 1},
 235   {0x1500, 0xff00, 9, 1, 14, 1},
 236   {0x1400, 0xff00, 9, 1, 15, 1},
 237   {0x1300, 0xff00, 9, 1, 16, 1},
 238   {0x0c00, 0xff80, 10, 1, 17, 1},
 239   {0x0b80, 0xff80, 10, 1, 18, 1},       // 80
 240   {0x0b00, 0xff80, 10, 1, 19, 1},
 241   {0x0a80, 0xff80, 10, 1, 20, 1},
 242   {0x0a00, 0xff80, 10, 1, 21, 1},
 243   {0x0980, 0xff80, 10, 1, 22, 1},
 244   {0x0900, 0xff80, 10, 1, 23, 1},
 245   {0x0880, 0xff80, 10, 1, 24, 1},
 246   {0x01c0, 0xffc0, 11, 1, 25, 1},
 247   {0x0180, 0xffc0, 11, 1, 26, 1},
 248   {0x0140, 0xffc0, 11, 1, 27, 1},
 249   {0x0100, 0xffc0, 11, 1, 28, 1},       // 90
 250   {0x0480, 0xffe0, 12, 1, 29, 1},
 251   {0x04a0, 0xffe0, 12, 1, 30, 1},
 252   {0x04c0, 0xffe0, 12, 1, 31, 1},
 253   {0x04e0, 0xffe0, 12, 1, 32, 1},
 254   {0x0580, 0xfff0, 13, 1, 33, 1},
 255   {0x0590, 0xfff0, 13, 1, 34, 1},
 256   {0x05a0, 0xfff0, 13, 1, 35, 1},
 257   {0x05b0, 0xfff0, 13, 1, 36, 1},
 258   {0x05c0, 0xfff0, 13, 1, 37, 1},
 259   {0x05d0, 0xfff0, 13, 1, 38, 1},       // 100
 260   {0x05e0, 0xfff0, 13, 1, 39, 1},
 261   {0x05f0, 0xfff0, 13, 1, 40, 1},
 262   {0x0600, 0xfe00, 7, 0, 0xffff, 0xffff}
 263 };
 264
 265 /*
 266  * Motion vector code table (Code, mask, nbits, vector (halfpixel, two's complement), diff (halfpixel, two's complement))
 267  */
 268 #define MVD_LEN 64
 269 #define MVD_WID 5
 270 static const guint16 mvd[64][5] = {
 271   {0x0028, 0xfff8, 13, 0x0060, 0x0020},
 272   {0x0038, 0xfff8, 13, 0x0061, 0x0021},
 273   {0x0050, 0xfff0, 12, 0x0062, 0x0022},
 274   {0x0070, 0xfff0, 12, 0x0063, 0x0023},
 275   {0x0090, 0xfff0, 12, 0x0064, 0x0024},
 276   {0x00b0, 0xfff0, 12, 0x0065, 0x0025},
 277   {0x00d0, 0xfff0, 12, 0x0066, 0x0026},
 278   {0x00f0, 0xfff0, 12, 0x0067, 0x0027},
 279   {0x0120, 0xffe0, 11, 0x0068, 0x0028},
 280   {0x0160, 0xffe0, 11, 0x0069, 0x0029},
 281   {0x01a0, 0xffe0, 11, 0x006a, 0x002a},
 282   {0x01e0, 0xffe0, 11, 0x006b, 0x002b},
 283   {0x0220, 0xffe0, 11, 0x006c, 0x002c},
 284   {0x0260, 0xffe0, 11, 0x006d, 0x002d},
 285   {0x02a0, 0xffe0, 11, 0x006e, 0x002e},
 286   {0x02e0, 0xffe0, 11, 0x006f, 0x002f},
 287   {0x0320, 0xffe0, 11, 0x0070, 0x0030},
 288   {0x0360, 0xffe0, 11, 0x0071, 0x0031},
 289   {0x03a0, 0xffe0, 11, 0x0072, 0x0032},
 290   {0x03e0, 0xffe0, 11, 0x0073, 0x0033},
 291   {0x0420, 0xffe0, 11, 0x0074, 0x0034},
 292   {0x0460, 0xffe0, 11, 0x0075, 0x0035},
 293   {0x04c0, 0xffc0, 10, 0x0076, 0x0036},
 294   {0x0540, 0xffc0, 10, 0x0077, 0x0037},
 295   {0x05c0, 0xffc0, 10, 0x0078, 0x0038},
 296   {0x0700, 0xff00, 8, 0x0079, 0x0039},
 297   {0x0900, 0xff00, 8, 0x007a, 0x003a},
 298   {0x0b00, 0xff00, 8, 0x007b, 0x003b},
 299   {0x0e00, 0xfe00, 7, 0x007c, 0x003c},
 300   {0x1800, 0xf800, 5, 0x007d, 0x003d},
 301   {0x3000, 0xf000, 4, 0x007e, 0x003e},
 302   {0x6000, 0xe000, 3, 0x007f, 0x003f},
 303   {0x8000, 0x8000, 1, 0x0000, 0x0000},
 304   {0x4000, 0xe000, 3, 0x0001, 0x0041},
 305   {0x2000, 0xf000, 4, 0x0002, 0x0042},
 306   {0x1000, 0xf800, 5, 0x0003, 0x0043},
 307   {0x0c00, 0xfe00, 7, 0x0004, 0x0044},
 308   {0x0a00, 0xff00, 8, 0x0005, 0x0045},
 309   {0x0800, 0xff00, 8, 0x0006, 0x0046},
 310   {0x0600, 0xff00, 8, 0x0007, 0x0047},
 311   {0x0580, 0xffc0, 10, 0x0008, 0x0048},
 312   {0x0500, 0xffc0, 10, 0x0009, 0x0049},
 313   {0x0480, 0xffc0, 10, 0x000a, 0x004a},
 314   {0x0440, 0xffe0, 11, 0x000b, 0x004b},
 315   {0x0400, 0xffe0, 11, 0x000c, 0x004c},
 316   {0x03c0, 0xffe0, 11, 0x000d, 0x004d},
 317   {0x0380, 0xffe0, 11, 0x000e, 0x004e},
 318   {0x0340, 0xffe0, 11, 0x000f, 0x004f},
 319   {0x0300, 0xffe0, 11, 0x0010, 0x0050},
 320   {0x02c0, 0xffe0, 11, 0x0011, 0x0051},
 321   {0x0280, 0xffe0, 11, 0x0012, 0x0052},
 322   {0x0240, 0xffe0, 11, 0x0013, 0x0053},
 323   {0x0200, 0xffe0, 11, 0x0014, 0x0054},
 324   {0x01c0, 0xffe0, 11, 0x0015, 0x0055},
 325   {0x0180, 0xffe0, 11, 0x0016, 0x0056},
 326   {0x0140, 0xffe0, 11, 0x0017, 0x0057},
 327   {0x0100, 0xffe0, 11, 0x0018, 0x0058},
 328   {0x00e0, 0xfff0, 12, 0x0019, 0x0059},
 329   {0x00c0, 0xfff0, 12, 0x001a, 0x005a},
 330   {0x00a0, 0xfff0, 12, 0x001b, 0x005b},
 331   {0x0080, 0xfff0, 12, 0x001c, 0x005c},
 332   {0x0060, 0xfff0, 12, 0x001d, 0x005d},
 333   {0x0040, 0xfff0, 12, 0x001e, 0x005e},
 334   {0x0030, 0xfff8, 13, 0x001f, 0x005f}
 335 };
 336
 337 GST_DEBUG_CATEGORY_STATIC (rtph263pay_debug);
 338 #define GST_CAT_DEFAULT (rtph263pay_debug)
 339
 340 #define GST_RTP_HEADER_LEN 12
 341
 342 enum
 343 {
 344   PROP_0,
 345   PROP_MODE_A_ONLY
 346 };
 347
 348 static GstStaticPadTemplate gst_rtp_h263_pay_sink_template =
 349 GST_STATIC_PAD_TEMPLATE ("sink",
 350     GST_PAD_SINK,
 351     GST_PAD_ALWAYS,
 352     GST_STATIC_CAPS ("video/x-h263, "
 353         "variant = (string) \"itu\", " "h263version = (string) \"h263\"")
 354     );
 355
 356 static GstStaticPadTemplate gst_rtp_h263_pay_src_template =
 357     GST_STATIC_PAD_TEMPLATE ("src",
 358     GST_PAD_SRC,
 359     GST_PAD_ALWAYS,
 360     GST_STATIC_CAPS ("application/x-rtp, "
 361         "media = (string) \"video\", "
 362         "payload = (int) " GST_RTP_PAYLOAD_H263_STRING ", "
 363         "clock-rate = (int) 90000, " "encoding-name = (string) \"H263\"; "
 364         "application/x-rtp, "
 365         "media = (string) \"video\", "
 366         "payload = (int) " GST_RTP_PAYLOAD_DYNAMIC_STRING ", "
 367         "clock-rate = (int) 90000, " "encoding-name = (string) \"H263\"")
 368     );
 369
 370 static void gst_rtp_h263_pay_finalize (GObject * object);
 371
 372 static gboolean gst_rtp_h263_pay_setcaps (GstBaseRTPPayload * payload,
 373     GstCaps * caps);
 374 static void gst_rtp_h263_pay_set_property (GObject * object, guint prop_id,
 375     const GValue * value, GParamSpec * pspec);
 376 static void gst_rtp_h263_pay_get_property (GObject * object, guint prop_id,
 377     GValue * value, GParamSpec * pspec);
 378 static GstFlowReturn gst_rtp_h263_pay_handle_buffer (GstBaseRTPPayload *
 379     payload, GstBuffer * buffer);
 380
 381 static void gst_rtp_h263_pay_boundry_init (GstRtpH263PayBoundry * boundry,
 382     guint8 * start, guint8 * end, guint8 sbit, guint8 ebit);
 383 static GstRtpH263PayGob *gst_rtp_h263_pay_gob_new (GstRtpH263PayBoundry *
 384     boundry, guint gobn);
 385 static GstRtpH263PayMB *gst_rtp_h263_pay_mb_new (GstRtpH263PayBoundry * boundry,
 386     guint mba);
 387 static GstRtpH263PayPackage *gst_rtp_h263_pay_package_new_empty ();
 388 static GstRtpH263PayPackage *gst_rtp_h263_pay_package_new (guint8 * start,
 389     guint8 * end, guint length, guint8 sbit, guint8 ebit, GstBuffer * outbuf,
 390     gboolean marker);
 391
 392 static void gst_rtp_h263_pay_mb_destroy (GstRtpH263PayMB * mb);
 393 static void gst_rtp_h263_pay_gob_destroy (GstRtpH263PayGob * gob, guint ind);
 394 static void gst_rtp_h263_pay_context_destroy (GstRtpH263PayContext * context,
 395     guint ind);
 396 static void gst_rtp_h263_pay_package_destroy (GstRtpH263PayPackage * pack);
 397
 398 GST_BOILERPLATE (GstRtpH263Pay, gst_rtp_h263_pay, GstBaseRTPPayload,
 399     GST_TYPE_BASE_RTP_PAYLOAD)
 400
 401      static void gst_rtp_h263_pay_base_init (gpointer klass)
 402 {
 403   GstElementClass *element_class = GST_ELEMENT_CLASS (klass);
 404
 405   gst_element_class_add_static_pad_template (element_class,
 406       &gst_rtp_h263_pay_src_template);
 407   gst_element_class_add_static_pad_template (element_class,
 408       &gst_rtp_h263_pay_sink_template);
 409
 410   gst_element_class_set_details_simple (element_class,
 411       "RTP H263 packet payloader", "Codec/Payloader/Network/RTP",
 412       "Payload-encodes H263 video in RTP packets (RFC 2190)",
 413       "Neil Stratford <neils@vipadia.com>"
 414       "Dejan Sakelsak <dejan.sakelsak@marand.si>");
 415 }
 416
 417 static void
 418 gst_rtp_h263_pay_class_init (GstRtpH263PayClass * klass)
 419 {
 420   GObjectClass *gobject_class;
 421   GstBaseRTPPayloadClass *gstbasertppayload_class;
 422
 423   gobject_class = (GObjectClass *) klass;
 424   gstbasertppayload_class = (GstBaseRTPPayloadClass *) klass;
 425
 426   gobject_class->finalize = gst_rtp_h263_pay_finalize;
 427
 428   gstbasertppayload_class->set_caps = gst_rtp_h263_pay_setcaps;
 429   gstbasertppayload_class->handle_buffer = gst_rtp_h263_pay_handle_buffer;
 430   gobject_class->set_property = gst_rtp_h263_pay_set_property;
 431   gobject_class->get_property = gst_rtp_h263_pay_get_property;
 432
 433   g_object_class_install_property (G_OBJECT_CLASS (klass),
 434       PROP_MODE_A_ONLY, g_param_spec_boolean ("modea-only",
 435           "Fragment packets in mode A Only",
 436           "Disable packetization modes B and C", DEFAULT_MODE_A,
 437           G_PARAM_READWRITE | G_PARAM_STATIC_STRINGS));
 438
 439   GST_DEBUG_CATEGORY_INIT (rtph263pay_debug, "rtph263pay", 0,
 440       "H263 RTP Payloader");
 441 }
 442
 443 static void
 444 gst_rtp_h263_pay_init (GstRtpH263Pay * rtph263pay, GstRtpH263PayClass * klass)
 445 {
 446   rtph263pay->adapter = gst_adapter_new ();
 447
 448   rtph263pay->prop_payload_mode = DEFAULT_MODE_A;
 449 }
 450
 451 static void
 452 gst_rtp_h263_pay_finalize (GObject * object)
 453 {
 454   GstRtpH263Pay *rtph263pay;
 455
 456   rtph263pay = GST_RTP_H263_PAY (object);
 457
 458   g_object_unref (rtph263pay->adapter);
 459   rtph263pay->adapter = NULL;
 460
 461   G_OBJECT_CLASS (parent_class)->finalize (object);
 462 }
 463
 464 static gboolean
 465 gst_rtp_h263_pay_setcaps (GstBaseRTPPayload * payload, GstCaps * caps)
 466 {
 467   gboolean res;
 468
 469   payload->pt = GST_RTP_PAYLOAD_H263;
 470   gst_basertppayload_set_options (payload, "video", TRUE, "H263", 90000);
 471   res = gst_basertppayload_set_outcaps (payload, NULL);
 472
 473   return res;
 474 }
 475
 476 static void
 477 gst_rtp_h263_pay_context_destroy (GstRtpH263PayContext * context, guint ind)
 478 {
 479   if (!context)
 480     return;
 481
 482   if (context->gobs) {
 483     guint i;
 484
 485     for (i = 0; i < format_props[ind][0]; i++) {
 486       if (context->gobs[i]) {
 487         gst_rtp_h263_pay_gob_destroy (context->gobs[i], ind);
 488       }
 489     }
 490
 491     g_free (context->gobs);
 492   }
 493
 494   g_free (context);
 495 }
 496
 497 static void
 498 gst_rtp_h263_pay_set_property (GObject * object, guint prop_id,
 499     const GValue * value, GParamSpec * pspec)
 500 {
 501   GstRtpH263Pay *rtph263pay;
 502
 503   rtph263pay = GST_RTP_H263_PAY (object);
 504
 505   switch (prop_id) {
 506     case PROP_MODE_A_ONLY:
 507       rtph263pay->prop_payload_mode = g_value_get_boolean (value);
 508       break;
 509     default:
 510       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 511       break;
 512   }
 513 }
 514
 515 static void
 516 gst_rtp_h263_pay_get_property (GObject * object, guint prop_id,
 517     GValue * value, GParamSpec * pspec)
 518 {
 519   GstRtpH263Pay *rtph263pay;
 520
 521   rtph263pay = GST_RTP_H263_PAY (object);
 522
 523   switch (prop_id) {
 524     case PROP_MODE_A_ONLY:
 525       g_value_set_boolean (value, rtph263pay->prop_payload_mode);
 526       break;
 527     default:
 528       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 529       break;
 530   }
 531 }
 532
 533 static GstRtpH263PayPackage *
 534 gst_rtp_h263_pay_package_new_empty (void)
 535 {
 536   return (GstRtpH263PayPackage *) g_malloc0 (sizeof (GstRtpH263PayPackage));
 537 }
 538
 539 static GstRtpH263PayPackage *
 540 gst_rtp_h263_pay_package_new (guint8 * start, guint8 * end, guint length,
 541     guint8 sbit, guint8 ebit, GstBuffer * outbuf, gboolean marker)
 542 {
 543
 544   GstRtpH263PayPackage *package;
 545
 546   package = gst_rtp_h263_pay_package_new_empty ();
 547
 548   package->payload_start = start;
 549   package->payload_end = end;
 550   package->payload_len = length;
 551   package->sbit = sbit;
 552   package->ebit = ebit;
 553   package->outbuf = outbuf;
 554   package->marker = marker;
 555
 556   return package;
 557 }
 558
 559 static void
 560 gst_rtp_h263_pay_package_destroy (GstRtpH263PayPackage * pack)
 561 {
 562   if (pack)
 563     g_free (pack);
 564 }
 565
 566 static void
 567 gst_rtp_h263_pay_boundry_init (GstRtpH263PayBoundry * boundry,
 568     guint8 * start, guint8 * end, guint8 sbit, guint8 ebit)
 569 {
 570   boundry->start = start;
 571   boundry->end = end;
 572   boundry->sbit = sbit;
 573   boundry->ebit = ebit;
 574 }
 575
 576 static void
 577 gst_rtp_h263_pay_splat_header_A (guint8 * header,
 578     GstRtpH263PayPackage * package, GstRtpH263PayPic * piclayer)
 579 {
 580
 581   GstRtpH263PayAHeader *a_header;
 582
 583   a_header = (GstRtpH263PayAHeader *) header;
 584
 585   a_header->f = 0;
 586   a_header->p = 0;
 587   a_header->sbit = package->sbit;
 588   a_header->ebit = package->ebit;
 589   a_header->src = GST_H263_PICTURELAYER_PLSRC (piclayer);
 590   a_header->i = GST_H263_PICTURELAYER_PLTYPE (piclayer);
 591   a_header->u = GST_H263_PICTURELAYER_PLUMV (piclayer);
 592   a_header->s = GST_H263_PICTURELAYER_PLSAC (piclayer);
 593   a_header->a = GST_H263_PICTURELAYER_PLAP (piclayer);
 594   a_header->r1 = 0;
 595   a_header->r2 = 0;
 596   a_header->dbq = 0;
 597   a_header->trb = 0;
 598   a_header->tr = 0;
 599
 600 }
 601
 602 static void
 603 gst_rtp_h263_pay_splat_header_B (guint8 * header,
 604     GstRtpH263PayPackage * package, GstRtpH263PayPic * piclayer)
 605 {
 606
 607   GstRtpH263PayBHeader *b_header;
 608
 609   b_header = (GstRtpH263PayBHeader *) header;
 610
 611   b_header->f = 1;
 612   b_header->p = 0;
 613   b_header->sbit = package->sbit;
 614   b_header->ebit = package->ebit;
 615   b_header->src = GST_H263_PICTURELAYER_PLSRC (piclayer);
 616   b_header->quant = package->quant;
 617   b_header->gobn = package->gobn;
 618   b_header->mba1 = package->mba >> 6;
 619   b_header->mba2 = package->mba & 0x003f;
 620   b_header->r = 0;
 621   b_header->i = GST_H263_PICTURELAYER_PLTYPE (piclayer);
 622   b_header->u = GST_H263_PICTURELAYER_PLUMV (piclayer);
 623   b_header->s = GST_H263_PICTURELAYER_PLSAC (piclayer);
 624   b_header->a = GST_H263_PICTURELAYER_PLAP (piclayer);
 625
 626   b_header->hmv11 = 0;
 627   b_header->hmv12 = 0;
 628   b_header->vmv11 = 0;
 629   b_header->vmv12 = 0;
 630   b_header->hmv21 = 0;
 631   b_header->hmv22 = 0;
 632   b_header->vmv21 = 0;
 633
 634   if (package->nmvd > 0) {
 635     //mvd[0]
 636     b_header->hmv11 = (package->mvd[0] & 0x7f) >> 3;
 637     b_header->hmv12 = (package->mvd[0] & 0x07);
 638     //mvd[1]
 639     b_header->vmv11 = (package->mvd[1] & 0x07f) >> 2;
 640     b_header->vmv12 = (package->mvd[1] & 0x03);
 641
 642     if (package->nmvd == 8) {
 643       //mvd[4]
 644       b_header->hmv21 = (package->mvd[4] & 0x7f) >> 1;
 645       b_header->hmv22 = (package->mvd[4] & 0x01);
 646       //mvd[5]
 647       b_header->vmv21 = (package->mvd[5] & 0x7f);
 648     }
 649   }
 650
 651 }
 652
 653 static gboolean
 654 gst_rtp_h263_pay_gobfinder (GstRtpH263Pay * rtph263pay,
 655     GstRtpH263PayBoundry * boundry)
 656 {
 657   guint8 *current;
 658   guint range;
 659   guint i;
 660
 661   current = boundry->end + 1;
 662   range = (rtph263pay->data - current) + rtph263pay->available_data;
 663
 664
 665   GST_DEBUG ("Searching for next GOB, data:%p, len:%u, payload_len:%p,"
 666       " current:%p, range:%u", rtph263pay->data, rtph263pay->available_data,
 667       boundry->end + 1, current, range);
 668
 669   /* If we are past the end, stop */
 670   if (current >= rtph263pay->data + rtph263pay->available_data)
 671     return FALSE;
 672
 673   for (i = 3; i < range - 3; i++) {
 674     if ((current[i] == 0x0) &&
 675         (current[i + 1] == 0x0) && (current[i + 2] >> 7 == 0x1)) {
 676       GST_LOG ("GOB end found at: %p start: %p len: %u", current + i - 1,
 677           boundry->end + 1, (guint) (current + i - boundry->end + 2));
 678       gst_rtp_h263_pay_boundry_init (boundry, boundry->end + 1,
 679           current + i - 1, 0, 0);
 680
 681       return TRUE;
 682     }
 683   }
 684
 685   GST_DEBUG ("Couldn't find any new GBSC in this frame, range:%u", range);
 686
 687   gst_rtp_h263_pay_boundry_init (boundry, boundry->end + 1,
 688       (guint8 *) (rtph263pay->data + rtph263pay->available_data - 1), 0, 0);
 689
 690   return TRUE;
 691 }
 692
 693 static GstRtpH263PayGob *
 694 gst_rtp_h263_pay_gob_new (GstRtpH263PayBoundry * boundry, guint gobn)
 695 {
 696   GstRtpH263PayGob *gob;
 697
 698   gob = (GstRtpH263PayGob *) g_malloc0 (sizeof (GstRtpH263PayGob));
 699
 700   gob->start = boundry->start;
 701   gob->end = boundry->end;
 702   gob->length = boundry->end - boundry->start + 1;
 703   gob->ebit = boundry->ebit;
 704   gob->sbit = boundry->sbit;
 705   gob->gobn = gobn;
 706   gob->quant = 0;
 707   gob->macroblocks = NULL;
 708   gob->nmacroblocs = 0;
 709
 710   return gob;
 711 }
 712
 713 static void
 714 gst_rtp_h263_pay_gob_destroy (GstRtpH263PayGob * gob, guint ind)
 715 {
 716
 717   if (!gob)
 718     return;
 719
 720   if (gob->macroblocks) {
 721
 722     guint i;
 723
 724     for (i = 0; i < gob->nmacroblocs; i++) {
 725       gst_rtp_h263_pay_mb_destroy (gob->macroblocks[i]);
 726     }
 727
 728     g_free (gob->macroblocks);
 729   }
 730
 731   g_free (gob);
 732 }
 733
 734 /*
 735  * decode MCBPC for I frames and return index in table or -1 if not found
 736  */
 737 static gint
 738 gst_rtp_h263_pay_decode_mcbpc_I (guint32 value)
 739 {
 740
 741   gint i;
 742   guint16 code;
 743
 744   code = value >> 16;
 745
 746   GST_DEBUG ("value:0x%08x, code:0x%04x", value, code);
 747
 748   for (i = 0; i < MCBPC_I_LEN; i++) {
 749     if ((code & mcbpc_I[i][1]) == mcbpc_I[i][0]) {
 750       return i;
 751     }
 752   }
 753
 754   GST_WARNING ("Couldn't find code, returning -1");
 755
 756   return -1;
 757 }
 758
 759 /*
 760  * decode MCBPC for P frames and return index in table or -1 if not found
 761  */
 762 static gint
 763 gst_rtp_h263_pay_decode_mcbpc_P (guint32 value)
 764 {
 765
 766   gint i;
 767   guint16 code;
 768
 769   code = value >> 16;
 770
 771   GST_DEBUG ("value:0x%08x, code:0x%04x", value, code);
 772
 773   for (i = 0; i < MCBPC_P_LEN; i++) {
 774     if ((code & mcbpc_P[i][1]) == mcbpc_P[i][0]) {
 775       return i;
 776     }
 777   }
 778
 779   GST_WARNING ("Couldn't find code, returning -1");
 780
 781   return -1;
 782 }
 783
 784 /*
 785  * decode CBPY and return index in table or -1 if not found
 786  */
 787 static gint
 788 gst_rtp_h263_pay_decode_cbpy (guint32 value, const guint8 cbpy_table[16][7])
 789 {
 790
 791   gint i;
 792   guint8 code;
 793
 794   code = value >> 24;
 795
 796   GST_DEBUG ("value:0x%08x, code:0x%04x", value, code);
 797
 798   for (i = 0; i < CBPY_LEN; i++) {
 799     if ((code & cbpy_table[i][1]) == cbpy_table[i][0]) {
 800       return i;
 801     }
 802   }
 803
 804   GST_WARNING ("Couldn't find code, returning -1");
 805
 806   return -1;
 807 }
 808
 809 /*
 810  * decode MVD and return index in table or -1 if not found
 811  */
 812 static gint
 813 gst_rtp_h263_pay_decode_mvd (guint32 value)
 814 {
 815
 816   gint i;
 817   guint16 code;
 818
 819   code = value >> 16;
 820
 821   GST_DEBUG ("value:0x%08x, code:0x%04x", value, code);
 822
 823   for (i = 0; i < MVD_LEN; i++) {
 824     if ((code & mvd[i][1]) == mvd[i][0]) {
 825       return i;
 826     }
 827   }
 828
 829   GST_WARNING ("Couldn't find code, returning -1");
 830
 831   return -1;
 832 }
 833
 834 /*
 835  * decode TCOEF and return index in table or -1 if not found
 836  */
 837 static gint
 838 gst_rtp_h263_pay_decode_tcoef (guint32 value)
 839 {
 840
 841   gint i;
 842   guint16 code;
 843
 844   code = value >> 16;
 845
 846   GST_DEBUG ("value:0x%08x, code:0x%04x", value, code);
 847
 848   for (i = 0; i < TCOEF_LEN; i++) {
 849     if ((code & tcoef[i][1]) == tcoef[i][0]) {
 850       GST_LOG ("tcoef is %d", i);
 851       return i;
 852     }
 853   }
 854
 855   GST_WARNING ("Couldn't find code, returning -1");
 856
 857   return -1;
 858 }
 859
 860 /*
 861  * the 32-bit register is like a window that we move right for "move_bits" to get the next v "data" h263 field
 862  * "rest_bits" tells how many bits in the "data" byte address are still not used
 863  */
 864
 865 static gint
 866 gst_rtp_h263_pay_move_window_right (GstRtpH263PayContext * context, guint n,
 867     guint rest_bits, guint8 ** orig_data, guint8 ** data_end)
 868 {
 869
 870   GST_DEBUG ("Moving window: 0x%08x from: %p for %d bits, rest_bits: %d",
 871       context->window, context->win_end, n, rest_bits);
 872
 873   if (n == 0)
 874     return rest_bits;
 875
 876   while (n != 0 || context->win_end == ((*data_end) + 1)) {
 877     //guint8 a = *data;
 878     if (rest_bits == 0) {
 879       if (n > 8) {
 880         context->window = (context->window << 8) | *context->win_end;
 881         n -= 8;
 882       } else {
 883         context->window =
 884             (context->window << n) | (*context->win_end >> (8 - n));
 885         rest_bits = 8 - n;
 886         if (rest_bits == 0)
 887           context->win_end++;
 888         break;
 889       }
 890     } else {
 891       if (n > rest_bits) {
 892         context->window =
 893             (context->
 894             window << rest_bits) | (*context->win_end & (((guint) pow (2.0,
 895                         (double) rest_bits)) - 1));
 896         n -= rest_bits;
 897         rest_bits = 0;
 898       } else {
 899         context->window =
 900             (context->window << n) | ((*context->win_end & (((guint) pow (2.0,
 901                             (double) rest_bits)) - 1)) >> (rest_bits - n));
 902         rest_bits -= n;
 903         if (rest_bits == 0)
 904           context->win_end++;
 905         break;
 906       }
 907     }
 908
 909     context->win_end++;
 910   }
 911
 912   *orig_data = context->win_end - 4;
 913
 914   GST_DEBUG
 915       ("Window moved to %p with value: 0x%08x and orig_data: %p rest_bits: %d",
 916       context->win_end, context->window, *orig_data, rest_bits);
 917   return rest_bits;
 918 }
 919
 920 /*
 921  * Find the start of the next MB (end of the current MB)
 922  * returns the number of excess bits and stores the end of the MB in end
 923  * data must be placed on first MB byte
 924  */
 925 static GstRtpH263PayMB *
 926 gst_rtp_h263_pay_B_mbfinder (GstRtpH263PayContext * context,
 927     GstRtpH263PayGob * gob, GstRtpH263PayMB * macroblock, guint mba)
 928 {
 929
 930   guint mb_type_index;
 931   guint cbpy_type_index;
 932   guint tcoef_type_index;
 933   GstRtpH263PayMB *mac;
 934   GstRtpH263PayBoundry boundry;
 935
 936
 937   gst_rtp_h263_pay_boundry_init (&boundry, macroblock->end,
 938       macroblock->end, 8 - macroblock->ebit, macroblock->ebit);
 939   mac = gst_rtp_h263_pay_mb_new (&boundry, mba);
 940
 941
 942   if (mac->sbit == 8) {
 943     mac->start++;
 944 //     mac->end++;
 945     mac->sbit = 0;
 946   }
 947
 948   GST_LOG ("current_pos:%p, end:%p, rest_bits:%d, window:%x",
 949       mac->start, mac->end, macroblock->ebit, context->window);
 950
 951   GST_LOG ("Current pos after COD: %p", mac->end);
 952
 953   if (context->piclayer->ptype_pictype == 0) {
 954     //We have an I frame
 955     gint i;
 956     guint last;
 957     guint ind;
 958
 959     //Step 2 decode MCBPC I
 960     mb_type_index = gst_rtp_h263_pay_decode_mcbpc_I (context->window);
 961
 962     GST_DEBUG ("MCBPC index: %d", mb_type_index);
 963     if (mb_type_index == -1) {
 964       GST_ERROR ("MB index shouldn't be -1 in window: %08x", context->window);
 965       return NULL;
 966     }
 967
 968     mac->ebit =
 969         gst_rtp_h263_pay_move_window_right (context, mcbpc_I[mb_type_index][2],
 970         mac->ebit, &mac->end, &gob->end);
 971
 972     mac->mb_type = mcbpc_I[mb_type_index][5];
 973
 974     if (mb_type_index == 8) {
 975       GST_LOG ("Stuffing skipping rest of MB header");
 976       return mac;
 977     }
 978     //Step 3 decode CBPY I
 979     cbpy_type_index = gst_rtp_h263_pay_decode_cbpy (context->window, cbpy_I);
 980
 981     GST_DEBUG ("CBPY index: %d", cbpy_type_index);
 982     if (cbpy_type_index == -1) {
 983       GST_ERROR ("CBPY index shouldn't be -1 in window: %08x", context->window);
 984       return NULL;
 985     }
 986
 987     mac->ebit =
 988         gst_rtp_h263_pay_move_window_right (context, cbpy_I[cbpy_type_index][2],
 989         mac->ebit, &mac->end, &gob->end);
 990
 991     //Step 4 decode rest of MB
 992     //MB type 1 and 4 have DQUANT - we store it for packaging purposes
 993     if (mcbpc_I[mb_type_index][5] == 4) {
 994       GST_DEBUG ("Shifting DQUANT");
 995
 996       mac->quant = (context->window >> 30);
 997
 998       mac->ebit =
 999           gst_rtp_h263_pay_move_window_right (context, 2, mac->ebit, &mac->end,
1000           &gob->end);
1001     }
1002     //Step 5 go trough the blocks - decode DC and TCOEF
1003     last = 0;
1004     for (i = 0; i < N_BLOCKS; i++) {
1005
1006       GST_DEBUG ("Decoding INTRADC and TCOEF, i:%d", i);
1007       mac->ebit =
1008           gst_rtp_h263_pay_move_window_right (context, 8, mac->ebit, &mac->end,
1009           &gob->end);
1010
1011       if (i > 3) {
1012         ind = mcbpc_I[mb_type_index][i - 1];
1013       } else {
1014         ind = cbpy_I[cbpy_type_index][i + 3];
1015       }
1016
1017       if (ind == 1) {
1018         while (last == 0) {
1019           tcoef_type_index = gst_rtp_h263_pay_decode_tcoef (context->window);
1020
1021           GST_DEBUG ("TCOEF index: %d", tcoef_type_index);
1022           if (tcoef_type_index == -1) {
1023             GST_ERROR ("TCOEF index shouldn't be -1 in window: %08x",
1024                 context->window);
1025             return NULL;
1026           }
1027           mac->ebit =
1028               gst_rtp_h263_pay_move_window_right (context,
1029               tcoef[tcoef_type_index][2], mac->ebit, &mac->end, &gob->end);
1030
1031           last = tcoef[tcoef_type_index][3];
1032           if (tcoef_type_index == 102) {
1033             if ((context->window & 0x80000000) == 0x80000000)
1034               last = 1;
1035             else
1036               last = 0;
1037
1038             mac->ebit =
1039                 gst_rtp_h263_pay_move_window_right (context, 15,
1040                 mac->ebit, &mac->end, &gob->end);
1041           }
1042         }
1043         last = 0;
1044       }
1045     }
1046
1047   } else {
1048     //We have a P frame
1049     guint i;
1050     guint last;
1051     guint ind;
1052
1053     //Step 1 check COD
1054     GST_DEBUG ("Checking for COD");
1055     if ((context->window & 0x80000000) == 0x80000000) {
1056       //The MB is not coded
1057       mac->ebit =
1058           gst_rtp_h263_pay_move_window_right (context, 1, mac->ebit, &mac->end,
1059           &gob->end);
1060       GST_DEBUG ("COOOOOOOOOOOD = 1");
1061
1062       return mac;
1063     } else {
1064       //The MB is coded
1065       mac->ebit =
1066           gst_rtp_h263_pay_move_window_right (context, 1, mac->ebit, &mac->end,
1067           &gob->end);
1068     }
1069
1070     //Step 2 decode MCBPC P
1071     mb_type_index = gst_rtp_h263_pay_decode_mcbpc_P (context->window);
1072
1073     GST_DEBUG ("MCBPC index: %d", mb_type_index);
1074     if (mb_type_index == -1) {
1075       GST_ERROR ("MB index shouldn't be -1 in window: %08x", context->window);
1076       return NULL;
1077     }
1078     mac->ebit =
1079         gst_rtp_h263_pay_move_window_right (context, mcbpc_P[mb_type_index][2],
1080         mac->ebit, &mac->end, &gob->end);
1081
1082     mac->mb_type = mcbpc_P[mb_type_index][5];
1083
1084     if (mb_type_index == 20) {
1085       GST_LOG ("Stuffing skipping rest of MB header");
1086       return mac;
1087     }
1088     //Step 3 decode CBPY P
1089     cbpy_type_index = gst_rtp_h263_pay_decode_cbpy (context->window, cbpy_P);
1090
1091     GST_DEBUG ("CBPY index: %d", cbpy_type_index);
1092     if (cbpy_type_index == -1) {
1093       GST_ERROR ("CBPY index shouldn't be -1 in window: %08x", context->window);
1094       return NULL;
1095     }
1096     mac->ebit =
1097         gst_rtp_h263_pay_move_window_right (context, cbpy_P[cbpy_type_index][2],
1098         mac->ebit, &mac->end, &gob->end);
1099
1100     //MB type 1 and 4 have DQUANT - we add it to MB object and jump over
1101     if (mcbpc_P[mb_type_index][5] == 4 || mcbpc_P[mb_type_index][5] == 1) {
1102       GST_DEBUG ("Shifting DQUANT");
1103
1104       mac->quant = context->window >> 30;
1105
1106       mac->ebit =
1107           gst_rtp_h263_pay_move_window_right (context, 2, mac->ebit, &mac->end,
1108           &gob->end);
1109     }
1110     //MB types < 3 have MVD1-4
1111     if (mcbpc_P[mb_type_index][5] < 3) {
1112
1113       guint nmvd;
1114       gint j;
1115
1116       nmvd = 2;
1117       if (mcbpc_P[mb_type_index][5] == 2)
1118         nmvd = 8;
1119
1120       for (j = 0; j < nmvd; j++) {
1121         guint mvd_type;
1122
1123         mvd_type = gst_rtp_h263_pay_decode_mvd (context->window);
1124
1125         if (mvd_type == -1) {
1126           GST_ERROR ("MVD1-4 index shouldn't be -1 in window: %08x",
1127               context->window);
1128           return NULL;
1129         }
1130         //set the MB mvd values
1131         mac->mvd[j] = mvd[mvd_type][3];
1132
1133         mac->ebit =
1134             gst_rtp_h263_pay_move_window_right (context, mvd[mvd_type][2],
1135             mac->ebit, &mac->end, &gob->end);
1136       }
1137
1138
1139     }
1140     //Step 5 go trough the blocks - decode DC and TCOEF
1141     last = 0;
1142     for (i = 0; i < N_BLOCKS; i++) {
1143
1144       //if MB type 3 or 4 then INTRADC coef are present in blocks
1145       if (mcbpc_P[mb_type_index][5] > 2) {
1146         GST_DEBUG ("INTRADC coef: %d", i);
1147         mac->ebit =
1148             gst_rtp_h263_pay_move_window_right (context, 8, mac->ebit,
1149             &mac->end, &gob->end);
1150       } else {
1151         GST_DEBUG ("INTRADC coef is not present");
1152       }
1153
1154       //check if the block has TCOEF
1155       if (i > 3) {
1156         ind = mcbpc_P[mb_type_index][i - 1];
1157       } else {
1158         if (mcbpc_P[mb_type_index][5] > 2) {
1159           ind = cbpy_I[cbpy_type_index][i + 3];
1160         } else {
1161           ind = cbpy_P[cbpy_type_index][i + 3];
1162         }
1163       }
1164
1165       if (ind == 1) {
1166         while (last == 0) {
1167           tcoef_type_index = gst_rtp_h263_pay_decode_tcoef (context->window);
1168
1169           GST_DEBUG ("TCOEF index: %d", tcoef_type_index);
1170           if (tcoef_type_index == -1) {
1171             GST_ERROR ("TCOEF index shouldn't be -1 in window: %08x",
1172                 context->window);
1173             return NULL;
1174           }
1175
1176           mac->ebit =
1177               gst_rtp_h263_pay_move_window_right (context,
1178               tcoef[tcoef_type_index][2], mac->ebit, &mac->end, &gob->end);
1179
1180           last = tcoef[tcoef_type_index][3];
1181           if (tcoef_type_index == 102) {
1182             if ((context->window & 0x80000000) == 0x80000000)
1183               last = 1;
1184             else
1185               last = 0;
1186
1187             mac->ebit =
1188                 gst_rtp_h263_pay_move_window_right (context, 15,
1189                 mac->ebit, &mac->end, &gob->end);
1190           }
1191         }
1192         last = 0;
1193       }
1194     }
1195   }
1196
1197   mac->length = mac->end - mac->start + 1;
1198
1199   return mac;
1200 }
1201
1202 static GstRtpH263PayMB *
1203 gst_rtp_h263_pay_mb_new (GstRtpH263PayBoundry * boundry, guint mba)
1204 {
1205   GstRtpH263PayMB *mb;
1206   gint i;
1207
1208   mb = (GstRtpH263PayMB *) g_malloc0 (sizeof (GstRtpH263PayMB));
1209
1210   mb->start = boundry->start;
1211   mb->end = boundry->end;
1212   mb->length = boundry->end - boundry->start + 1;
1213   mb->sbit = boundry->sbit;
1214   mb->ebit = boundry->ebit;
1215   mb->mba = mba;
1216
1217   for (i = 0; i < 5; i++)
1218     mb->mvd[i] = 0;
1219
1220   return mb;
1221 }
1222
1223 static void
1224 gst_rtp_h263_pay_mb_destroy (GstRtpH263PayMB * mb)
1225 {
1226   if (!mb)
1227     return;
1228
1229   g_free (mb);
1230 }
1231
1232 static GstFlowReturn
1233 gst_rtp_h263_pay_push (GstRtpH263Pay * rtph263pay,
1234     GstRtpH263PayContext * context, GstRtpH263PayPackage * package)
1235 {
1236
1237   /*
1238    * Splat the payload header values
1239    */
1240   guint8 *header;
1241   guint8 *payload;
1242   GstFlowReturn ret;
1243
1244   header = gst_rtp_buffer_get_payload (package->outbuf);
1245   payload = header + package->mode;
1246
1247   switch (package->mode) {
1248     case GST_RTP_H263_PAYLOAD_HEADER_MODE_A:
1249       GST_LOG ("Pushing A packet");
1250       gst_rtp_h263_pay_splat_header_A (header, package, context->piclayer);
1251       break;
1252     case GST_RTP_H263_PAYLOAD_HEADER_MODE_B:
1253       GST_LOG ("Pushing B packet");
1254       gst_rtp_h263_pay_splat_header_B (header, package, context->piclayer);
1255       break;
1256     case GST_RTP_H263_PAYLOAD_HEADER_MODE_C:
1257       //gst_rtp_h263_pay_splat_header_C(header, package, context->piclayer);
1258       //break;
1259     default:
1260       return GST_FLOW_ERROR;
1261   }
1262
1263
1264   /*
1265    * Copy the payload data in the buffer
1266    */
1267   GST_DEBUG ("Copying memory");
1268   memcpy (payload, (guint8 *) package->payload_start, package->payload_len);
1269
1270   /*
1271    * timestamp the buffer
1272    */
1273   GST_BUFFER_TIMESTAMP (package->outbuf) = rtph263pay->first_ts;
1274
1275   gst_rtp_buffer_set_marker (package->outbuf, package->marker);
1276   if (package->marker)
1277     GST_DEBUG ("Marker set!");
1278
1279   ret =
1280       gst_basertppayload_push (GST_BASE_RTP_PAYLOAD (rtph263pay),
1281       package->outbuf);
1282   GST_DEBUG ("Package pushed, returning");
1283
1284   gst_rtp_h263_pay_package_destroy (package);
1285
1286   return ret;
1287 }
1288
1289 static GstFlowReturn
1290 gst_rtp_h263_pay_A_fragment_push (GstRtpH263Pay * rtph263pay,
1291     GstRtpH263PayContext * context, guint first, guint last)
1292 {
1293
1294   GstRtpH263PayPackage *pack;
1295
1296   pack = gst_rtp_h263_pay_package_new_empty ();
1297
1298   pack->payload_start = context->gobs[first]->start;
1299   pack->sbit = context->gobs[first]->sbit;
1300   pack->ebit = context->gobs[last]->ebit;
1301   pack->payload_len =
1302       (context->gobs[last]->end - context->gobs[first]->start) + 1;
1303   pack->marker = FALSE;
1304
1305   if (last == context->no_gobs - 1) {
1306     pack->marker = TRUE;
1307   }
1308
1309   pack->gobn = context->gobs[first]->gobn;
1310   pack->mode = GST_RTP_H263_PAYLOAD_HEADER_MODE_A;
1311   pack->outbuf =
1312       gst_rtp_buffer_new_allocate (pack->payload_len + pack->mode, 0, 0);
1313
1314   GST_DEBUG ("Sending len:%d data to push function", pack->payload_len);
1315
1316   return gst_rtp_h263_pay_push (rtph263pay, context, pack);
1317 }
1318
1319 static GstFlowReturn
1320 gst_rtp_h263_pay_B_fragment_push (GstRtpH263Pay * rtph263pay,
1321     GstRtpH263PayContext * context, GstRtpH263PayGob * gob, guint first,
1322     guint last, GstRtpH263PayBoundry * boundry)
1323 {
1324
1325   GstRtpH263PayPackage *pack;
1326   guint mv;
1327
1328   pack = gst_rtp_h263_pay_package_new_empty ();
1329
1330   pack->payload_start = gob->macroblocks[first]->start;
1331   pack->sbit = gob->macroblocks[first]->sbit;
1332   if (first == 0) {
1333     pack->payload_start = boundry->start;
1334     pack->sbit = boundry->sbit;
1335     pack->quant = gob->quant;
1336   } else {
1337     pack->quant = gob->macroblocks[first]->quant;
1338   }
1339   pack->payload_end = gob->macroblocks[last]->end;
1340
1341   pack->ebit = gob->macroblocks[last]->ebit;
1342   pack->mba = gob->macroblocks[first]->mba;
1343   pack->gobn = gob->gobn;
1344   pack->mode = GST_RTP_H263_PAYLOAD_HEADER_MODE_B;
1345   pack->nmvd = 0;
1346
1347   if (gob->macroblocks[first]->mb_type < 3) {
1348     if (gob->macroblocks[first]->mb_type == 2)
1349       pack->nmvd = 8;
1350     else if (gob->macroblocks[first]->mb_type < 2)
1351       pack->nmvd = 2;
1352
1353     for (mv = 0; mv < pack->nmvd; mv++)
1354       pack->mvd[mv] = gob->macroblocks[first]->mvd[mv];
1355   }
1356
1357   pack->marker = FALSE;
1358   if (last == gob->nmacroblocs - 1) {
1359     pack->ebit = 0;
1360   }
1361
1362   if ((format_props[context->piclayer->ptype_srcformat][0] - 1 == gob->gobn)
1363       && (last == gob->nmacroblocs - 1)) {
1364     pack->marker = TRUE;
1365   }
1366
1367   pack->payload_len = pack->payload_end - pack->payload_start + 1;
1368   pack->outbuf =
1369       gst_rtp_buffer_new_allocate (pack->payload_len + pack->mode, 0, 0);
1370
1371   return gst_rtp_h263_pay_push (rtph263pay, context, pack);
1372 }
1373
1374
1375 static gboolean
1376 gst_rtp_h263_pay_mode_B_fragment (GstRtpH263Pay * rtph263pay,
1377     GstRtpH263PayContext * context, GstRtpH263PayGob * gob)
1378 {
1379
1380
1381     /*---------- MODE B MODE FRAGMENTATION ----------*/
1382   GstRtpH263PayMB *mac;
1383   guint max_payload_size;
1384   GstRtpH263PayBoundry boundry;
1385   guint mb;
1386   //TODO remove m
1387   GstRtpH263PayMB *m;
1388
1389   guint first = 0;
1390   guint payload_len;
1391
1392   max_payload_size =
1393       context->mtu - GST_RTP_H263_PAYLOAD_HEADER_MODE_B - GST_RTP_HEADER_LEN;
1394
1395   gst_rtp_h263_pay_boundry_init (&boundry, gob->start, gob->start, gob->sbit,
1396       0);
1397
1398   gob->macroblocks =
1399       (GstRtpH263PayMB **) g_malloc0 (sizeof (GstRtpH263PayMB *) *
1400       format_props[context->piclayer->ptype_srcformat][1]);
1401
1402   GST_LOG ("GOB isn't PB frame, applying mode B");
1403
1404   //initializing window
1405   context->win_end = boundry.end;
1406   if (gst_rtp_h263_pay_move_window_right (context, 32, boundry.ebit,
1407           &boundry.end, &gob->end) != 0) {
1408     GST_ERROR
1409         ("The rest of the bits should be 0, exiting, because something bad happend");
1410     gst_adapter_flush (rtph263pay->adapter, rtph263pay->available_data);
1411     goto decode_error;
1412   }
1413   //The first GOB of a frame "has no" actual header - PICTURE header is his header
1414   if (gob->gobn == 0) {
1415     guint shift;
1416     GST_LOG ("Initial GOB");
1417     shift = 43;
1418
1419     boundry.ebit =
1420         gst_rtp_h263_pay_move_window_right (context, shift, boundry.ebit,
1421         &boundry.end, &gob->end);
1422
1423     //We need PQUANT for mode B packages - so we store it
1424     gob->quant = context->window >> 27;
1425
1426     //if PCM == 1, then PSBI is present - header has 51 bits
1427     //shift for PQUANT (5) and PCM (1) = 6 bits
1428     shift = 6;
1429     if (context->cpm == 1)
1430       shift += 2;
1431     boundry.ebit =
1432         gst_rtp_h263_pay_move_window_right (context, shift, boundry.ebit,
1433         &boundry.end, &gob->end);
1434
1435     GST_DEBUG ("window: 0x%08x", context->window);
1436
1437     //Shifting the PEI and PSPARE fields
1438     while ((context->window & 0x80000000) == 0x80000000) {
1439       boundry.ebit =
1440           gst_rtp_h263_pay_move_window_right (context, 9,
1441           boundry.ebit, &boundry.end, &gob->end);
1442       GST_LOG ("window: 0x%x", context->window);
1443     }
1444
1445     //shift the last PEI field
1446     boundry.ebit =
1447         gst_rtp_h263_pay_move_window_right (context, 1, boundry.ebit,
1448         &boundry.end, &gob->end);
1449
1450   } else {
1451     //skipping GOBs 24 header bits + 5 GQUANT
1452     guint shift = 24;
1453
1454     GST_LOG ("INTER GOB");
1455
1456     //if CPM == 1, there are 2 more bits in the header - GSBI header is 31 bits long
1457     if (context->cpm == 1)
1458       shift += 2;
1459
1460     GST_LOG ("window: 0x%x", context->window);
1461     boundry.ebit =
1462         gst_rtp_h263_pay_move_window_right (context, shift,
1463         boundry.ebit, &boundry.end, &gob->end);
1464
1465     //We need GQUANT for mode B packages - so we store it
1466     gob->quant = context->window >> 27;
1467
1468     shift = 5;
1469     boundry.ebit =
1470         gst_rtp_h263_pay_move_window_right (context, shift,
1471         boundry.ebit, &boundry.end, &gob->end);
1472
1473     GST_LOG ("window: 0x%x", context->window);
1474   }
1475
1476   GST_DEBUG ("GQUANT IS: %08x", gob->quant);
1477
1478   // We are on MB layer
1479
1480   m = mac = gst_rtp_h263_pay_mb_new (&boundry, 0);
1481   for (mb = 0; mb < format_props[context->piclayer->ptype_srcformat][1]; mb++) {
1482
1483     GST_DEBUG ("================ START MB %d =================", mb);
1484
1485     //Find next macroblock boundaries
1486     if (!(mac = gst_rtp_h263_pay_B_mbfinder (context, gob, mac, mb))) {
1487
1488       GST_DEBUG ("Error decoding MB - sbit: %d", 8 - m->ebit);
1489       GST_ERROR ("Error decoding in GOB");
1490
1491       goto decode_error;
1492     }
1493     //If mb_type == stuffing, don't increment the mb address
1494     if (mac->mb_type == 10) {
1495       mb--;
1496       continue;
1497     } else {
1498       gob->nmacroblocs++;
1499     }
1500
1501     gob->macroblocks[mb] = mac;
1502
1503     if (mac->end >= gob->end) {
1504       GST_LOG ("No more MBs in this GOB");
1505       if (!mac->ebit) {
1506         mac->end--;
1507       }
1508       gob->end = mac->end;
1509       break;
1510     }
1511     m = mac;
1512     GST_DEBUG ("Found MB: mba: %d start: %p end: %p len: %d sbit: %d ebit: %d",
1513         mac->mba, mac->start, mac->end, mac->length, mac->sbit, mac->ebit);
1514     GST_DEBUG ("================ END MB %d =================", mb);
1515   }
1516
1517   mb = 0;
1518   first = 0;
1519   payload_len = boundry.end - boundry.start + 1;
1520   GST_DEBUG ("------------------------- NEW PACKAGE ----------------------");
1521   while (mb < gob->nmacroblocs) {
1522     if (payload_len + gob->macroblocks[mb]->length < max_payload_size) {
1523
1524       //FIXME: payload_len is not the real length -> ignoring sbit/ebit
1525       payload_len += gob->macroblocks[mb]->length;
1526       mb++;
1527
1528     } else {
1529       //FIXME: we should include the last few bits of the GOB in the package - do we do that now?
1530       //GST_DEBUG ("Pushing GOBS %d to %d because payload size is %d", first,
1531       //    first == mb - 1, payload_len);
1532
1533       if (gst_rtp_h263_pay_B_fragment_push (rtph263pay, context, gob, first,
1534               mb - 1, &boundry)) {
1535         GST_ERROR ("Oooops, there was an error sending");
1536         return FALSE;
1537       }
1538
1539       payload_len = 0;
1540       first = mb;
1541       GST_DEBUG
1542           ("------------------------- END PACKAGE ----------------------");
1543       GST_DEBUG
1544           ("------------------------- NEW PACKAGE ----------------------");
1545     }
1546   }
1547
1548   /* Push rest */
1549   GST_DEBUG ("Remainder first: %d, MB: %d", first, mb);
1550   if (payload_len != 0) {
1551     if (gst_rtp_h263_pay_B_fragment_push (rtph263pay, context, gob, first,
1552             mb - 1, &boundry)) {
1553       GST_ERROR ("Oooops, there was an error sending!");
1554       return FALSE;
1555     }
1556   }
1557
1558     /*---------- END OF MODE B FRAGMENTATION ----------*/
1559
1560   return TRUE;
1561
1562 decode_error:
1563   return FALSE;
1564 }
1565
1566 static GstFlowReturn
1567 gst_rtp_h263_send_entire_frame (GstRtpH263Pay * rtph263pay,
1568     GstRtpH263PayContext * context)
1569 {
1570   GstRtpH263PayPackage *pack;
1571   pack =
1572       gst_rtp_h263_pay_package_new (rtph263pay->data,
1573       rtph263pay->data + rtph263pay->available_data,
1574       rtph263pay->available_data, 0, 0, NULL, TRUE);
1575   pack->mode = GST_RTP_H263_PAYLOAD_HEADER_MODE_A;
1576
1577   GST_DEBUG ("Available data: %d", rtph263pay->available_data);
1578
1579   pack->outbuf =
1580       gst_rtp_buffer_new_allocate (pack->payload_len +
1581       GST_RTP_H263_PAYLOAD_HEADER_MODE_A, 0, 0);
1582
1583   return gst_rtp_h263_pay_push (rtph263pay, context, pack);
1584 }
1585
1586 static GstFlowReturn
1587 gst_rtp_h263_pay_flush (GstRtpH263Pay * rtph263pay)
1588 {
1589
1590   /*
1591    * FIXME: GSTUF bits are ignored right now,
1592    *  - not using EBIT/SBIT payload header fields in mode A fragmentation - ffmpeg doesn't need them, but others?
1593    */
1594
1595   GstFlowReturn ret;
1596   GstRtpH263PayContext *context;
1597   gint i;
1598
1599   ret = 0;
1600   context = (GstRtpH263PayContext *) g_malloc0 (sizeof (GstRtpH263PayContext));
1601   context->mtu =
1602       rtph263pay->payload.mtu - (MTU_SECURITY_OFFSET + GST_RTP_HEADER_LEN +
1603       GST_RTP_H263_PAYLOAD_HEADER_MODE_C);
1604
1605   GST_DEBUG ("MTU: %d", context->mtu);
1606   rtph263pay->available_data = gst_adapter_available (rtph263pay->adapter);
1607   if (rtph263pay->available_data == 0) {
1608     ret = GST_FLOW_RESEND;
1609     goto end;
1610   }
1611
1612   /* Get a pointer to all the data for the frame */
1613   rtph263pay->data =
1614       (guint8 *) gst_adapter_peek (rtph263pay->adapter,
1615       rtph263pay->available_data);
1616
1617   /* Picture header */
1618   context->piclayer = (GstRtpH263PayPic *) rtph263pay->data;
1619
1620   if (context->piclayer->ptype_pictype == 0)
1621     GST_DEBUG ("We got an I-frame");
1622   else
1623     GST_DEBUG ("We got a P-frame");
1624
1625   context->cpm = rtph263pay->data[6] >> 7;
1626
1627   GST_DEBUG ("CPM: %d", context->cpm);
1628
1629   GST_DEBUG ("Payload length is: %d", rtph263pay->available_data);
1630
1631   /*
1632    * - MODE A - If normal, I and P frames,  -> mode A
1633    *   - GOB layer fragmentation
1634    * - MODE B - If normal, I and P frames, but GOBs > mtu
1635    *   - MB layer fragmentation
1636    * - MODE C - For P frames with PB option, but GOBs > mtu
1637    *   - MB layer fragmentation
1638    */
1639   if (rtph263pay->available_data + GST_RTP_H263_PAYLOAD_HEADER_MODE_A +
1640       GST_RTP_HEADER_LEN < context->mtu) {
1641     ret = gst_rtp_h263_send_entire_frame (rtph263pay, context);
1642   } else {
1643
1644       /*---------- FRAGMENTING THE FRAME BECAUSE TOO LARGE TO FIT IN MTU ----------*/
1645     GstRtpH263PayBoundry bound;
1646     gint first;
1647     guint payload_len;
1648     gboolean forcea = FALSE;
1649
1650     GST_DEBUG ("Frame too large for MTU");
1651     /*
1652      * Let's go trough all the data and fragment it untill end is reached
1653      */
1654
1655     gst_rtp_h263_pay_boundry_init (&bound, NULL, rtph263pay->data - 1, 0, 0);
1656     context->gobs =
1657         (GstRtpH263PayGob **) g_malloc0 (format_props[context->
1658             piclayer->ptype_srcformat][0] * sizeof (GstRtpH263PayGob *));
1659
1660
1661     for (i = 0; i < format_props[context->piclayer->ptype_srcformat][0]; i++) {
1662       GST_DEBUG ("Searching for gob %d", i);
1663       if (!gst_rtp_h263_pay_gobfinder (rtph263pay, &bound)) {
1664         if (i <= 1) {
1665           GST_WARNING
1666               ("No GOB's were found in data stream! Please enable RTP mode in encoder. Forcing mode A for now.");
1667           ret = gst_rtp_h263_send_entire_frame (rtph263pay, context);
1668           goto end;
1669         } else {
1670           /* try to send fragments corresponding to found GOBs */
1671           forcea = TRUE;
1672           break;
1673         }
1674       }
1675
1676       context->gobs[i] = gst_rtp_h263_pay_gob_new (&bound, i);
1677       //FIXME - encoders may generate an EOS gob that has to be processed
1678       GST_DEBUG
1679           ("Gob values are: gobn: %d, start: %p len: %d ebit: %d sbit: %d", i,
1680           context->gobs[i]->start, context->gobs[i]->length,
1681           context->gobs[i]->ebit, context->gobs[i]->sbit);
1682     }
1683     /* NOTE some places may still assume this to be the max possible */
1684     context->no_gobs = i;
1685     GST_DEBUG ("Found %d GOBS of maximum %d",
1686         context->no_gobs, format_props[context->piclayer->ptype_srcformat][0]);
1687
1688     // Make packages smaller than MTU
1689     //   A mode
1690     // - if ( GOB > MTU) -> B mode || C mode
1691     //   Push packages
1692
1693     first = 0;
1694     payload_len = 0;
1695     i = 0;
1696     while (i < context->no_gobs) {
1697
1698       if (context->gobs[i]->length >= context->mtu) {
1699         if (payload_len == 0) {
1700
1701           GST_DEBUG ("GOB len > MTU");
1702           if (rtph263pay->prop_payload_mode || forcea) {
1703             payload_len = context->gobs[i]->length;
1704             goto force_a;
1705           }
1706           if (!context->piclayer->ptype_pbmode) {
1707             GST_DEBUG ("MODE B on GOB %d needed", i);
1708             if (!gst_rtp_h263_pay_mode_B_fragment (rtph263pay, context,
1709                     context->gobs[i])) {
1710               GST_ERROR ("There was an error fragmenting in mode B");
1711               return GST_FLOW_ERROR;
1712             }
1713           } else {
1714             //IMPLEMENT C mode
1715             GST_ERROR ("MODE C on GOB %d needed, but not supported yet", i);
1716             /*if(!gst_rtp_h263_pay_mode_C_fragment(rtph263pay, context, context->gobs[i])) {
1717                ret = GST_FLOW_OK;
1718                GST_ERROR("There was an error fragmenting in mode C");
1719                goto decode_error;
1720                } */
1721             goto decode_error;
1722           }
1723         decode_error:
1724           i++;
1725           first = i;
1726           continue;
1727
1728         } else {
1729           goto payload_a_push;
1730         }
1731       }
1732
1733       if (payload_len + context->gobs[i]->length < context->mtu) {
1734         GST_DEBUG ("GOB %d fills mtu", i);
1735         payload_len += context->gobs[i]->length;
1736         i++;
1737         if (i == context->no_gobs) {
1738           GST_DEBUG ("LAST GOB %d", i);
1739           goto payload_a_push;
1740         }
1741
1742       } else {
1743       payload_a_push:
1744         GST_DEBUG ("Pushing GOBS %d to %d because payload size is %d", first,
1745             first == i ? i : i - 1, payload_len);
1746         gst_rtp_h263_pay_A_fragment_push (rtph263pay, context, first,
1747             first == i ? i : i - 1);
1748         payload_len = 0;
1749         first = i;
1750       }
1751       continue;
1752
1753     force_a:
1754       GST_DEBUG ("Pushing GOBS %d to %d because payload size is %d", first, i,
1755           payload_len);
1756       gst_rtp_h263_pay_A_fragment_push (rtph263pay, context, first, i);
1757       payload_len = 0;
1758       i++;
1759       first = i;
1760     }
1761
1762
1763   }/*---------- END OF FRAGMENTATION ----------*/
1764
1765   /* Flush the input buffer data */
1766
1767 end:
1768   gst_rtp_h263_pay_context_destroy (context,
1769       context->piclayer->ptype_srcformat);
1770   gst_adapter_flush (rtph263pay->adapter, rtph263pay->available_data);
1771
1772   return ret;
1773 }
1774
1775 static GstFlowReturn
1776 gst_rtp_h263_pay_handle_buffer (GstBaseRTPPayload * payload, GstBuffer * buffer)
1777 {
1778
1779   GstRtpH263Pay *rtph263pay;
1780   GstFlowReturn ret;
1781
1782   GST_DEBUG ("-------------------- NEW FRAME ---------------");
1783   rtph263pay = GST_RTP_H263_PAY (payload);
1784
1785   rtph263pay->first_ts = GST_BUFFER_TIMESTAMP (buffer);
1786
1787   /* we always encode and flush a full picture */
1788   gst_adapter_push (rtph263pay->adapter, buffer);
1789   ret = gst_rtp_h263_pay_flush (rtph263pay);
1790   GST_DEBUG ("-------------------- END FRAME ---------------");
1791
1792   return ret;
1793 }
1794
1795 gboolean
1796 gst_rtp_h263_pay_plugin_init (GstPlugin * plugin)
1797 {
1798   return gst_element_register (plugin, "rtph263pay",
1799       GST_RANK_SECONDARY, GST_TYPE_RTP_H263_PAY);
1800 }