/*

* Copyright (c) 2010 Ixonos Plc.

* All rights reserved.

* This component and the accompanying materials are made available

* under the terms of the "Eclipse Public License v1.0"

* which accompanies this distribution, and is available

* at the URL "http://www.eclipse.org/legal/epl-v10.html".

*

* Initial Contributors:

* Nokia Corporation - Initial contribution

*

* Contributors:

* Ixonos Plc

*

* Description:  

* Implementation for MPEG4(H263) video transcoder. 

* VLC encoding for RVLC -> VLC  AC/DCT coeficients in the transcoder.

*

*/

#include "biblin.h"

#include "common.h"

/* Run-length coding */

typedef struct{

    int16 run;

    int level;

    int16 last;

} tEvent;

/* Variable length coding */

typedef struct{

    u_int16 code;

    u_int16 length;

} tVLCTable;

/* 

 * Function Declarations 

 */

int32 vlbPutACCoeffSVH(int32 coeffStart, int16* block, bibBuffer_t * outBuf,

                       int32 svh, int32 lastPos);

int32 vlbPutACVLCCoeff(bibBuffer_t *outBuf, tEvent *event, int32 svh);

int32 vlbPutDCCoeffCMT(int val, bibBuffer_t * outBuf, int32  blkCnt);

int32 vlbPutIntraACCoeffCMTDP(bibBuffer_t *outBuf, tEvent *event);

int32 vlbPutIntraACCoeffCMT(int32 coeffStart, int* block, bibBuffer_t * outBuf);

void  vdtPutBits (void *outBuf,  int numBits, unsigned int value);

/* 

 * Function Definitions 

 */

/* {{-output"vlbPutBits.txt"}} */

/*

* vlbPutBits

*

* Parameters:

*     outBuf            output buffer

*           numBits         number of bits to write

*           value             value to write

*

* Function:

*     This function puts some bits to the output buffer

*

* Returns:

*     Nothing.

*

* Error codes:

*     None.

*

*/

void vlbPutBits (bibBuffer_t *outBuf,

                 int32        numBits,

                 u_int32      value)

{

    // To be compatible with the old codes, I don't change the interface

    vdtPutBits((void *)outBuf, numBits, value);

}

/* 

 * Look-up tables 

 */

/* INTRA VLC tables */

/* run == 0 && level < 28 */

const tVLCTable vlbVLCTable1IntraAC[28] =

{

    {NOT_VALID,NOT_VALID},    {0x04,0x03}, {0x0c,0x04}, 

        {0x1e,0x05}, {0x1a,0x06}, {0x18,0x06}, {0x2a,0x07}, 

        {0x26,0x07}, {0x24,0x07}, {0x2e,0x08}, {0x3e,0x09}, 

        {0x3c,0x09}, {0x3a,0x09}, {0x4a,0x0a}, {0x48,0x0a},

        {0x46,0x0a}, {0x42,0x0a}, {0x42,0x0b}, {0x40,0x0b},

        {0x1e,0x0b}, {0x1c,0x0b}, {0x0e,0x0c}, {0x0c,0x0c},

        {0x40,0x0c}, {0x42,0x0c}, {0xa0,0x0d}, {0xa2,0x0d},

        {0xa4,0x0d}

};

/* run == 1 && level < 11 */

const tVLCTable vlbVLCTable2IntraAC[11] =

{

    {NOT_VALID, NOT_VALID},   {0x1c,0x05}, {0x28,0x07}, 

        {0x2c,0x08}, {0x38,0x09}, {0x40,0x0a}, {0x3e,0x0a}, 

        {0x1a,0x0b}, {0x44,0x0c}, {0xa6,0x0d}, {0xaa,0x0d}

};

/* run == 2 && level < 6 */

const tVLCTable vlbVLCTable3IntraAC[6] =

{

    {NOT_VALID, NOT_VALID},   {0x16,0x06}, {0x2a,0x08}, 

        {0x3c,0x0a}, {0x18,0x0b}, {0xac,0x0d}

};

/* run == 3 && level < 5 */

const tVLCTable vlbVLCTable4IntraAC[5] = 

{

    {NOT_VALID, NOT_VALID},   {0x22,0x07}, {0x36,0x09}, 

        {0x3a,0x0a}, {0x16,0x0b}

};

/* 4 <= run < 8 && level < 4 */

const tVLCTable vlbVLCTable5IntraAC[4][4] =

{

  {

        {NOT_VALID, NOT_VALID},   {0x20,0x07}, {0x44,0x0a}, 

        {0x14,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x1a,0x07}, {0x38,0x0a}, 

        {0x10,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x24,0x08}, {0x36,0x0a}, 

        {0xa8,0x0d}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x28,0x08}, {0x34,0x0a}, 

        {0xae,0x0d}

  }

};

/* 8 <= run < 10 && level < 3 */

const tVLCTable vlbVLCTable6IntraAC[2][3] =

{

  {

        {NOT_VALID, NOT_VALID},   {0x32,0x09}, {0x12,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x30,0x09}, {0x46,0x0c}

  }

};

/* 10 <= run < 15 && level < 2 */

const tVLCTable vlbVLCTable7IntraAC[5][2] = 

{

  {

    {NOT_VALID, NOT_VALID},   {0x2e,0x09}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x32,0x0a}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x30,0x0a}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x0e,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0xb0,0x0d}

  }

};

/* run == 0 && level < 9 */

const tVLCTable vlbVLCTable8IntraAC[9] = 

{

    {NOT_VALID, NOT_VALID},   {0x0e,0x05}, {0x18,0x07}, 

        {0x2c,0x09}, {0x2e,0x0a}, {0x0c,0x0b}, {0x0a,0x0c},

        {0x08,0x0c}, {0xb2,0x0d}

};

/* run == 1 && level < 4 */

const tVLCTable vlbVLCTable9IntraAC[4] =

{

    {NOT_VALID, NOT_VALID},   {0x1e,0x07}, {0x2c,0x0a}, 

        {0x0a,0x0b}

};

/* 2 <= run < 7 && level < 3 */

const tVLCTable vlbVLCTable10IntraAC[5][3] =

{

  {

    {NOT_VALID, NOT_VALID},   {0x1c,0x07}, {0x08,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x22,0x08}, {0x48,0x0c}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x20,0x08}, {0x4a,0x0c}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x26,0x08}, {0xb4,0x0d}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x2a,0x09}, {0xb6,0x0d}

  }

};

/* 7 <= run < 21 && level == 1 */

const tVLCTable vlbVLCTable11IntraAC[14][2] =

{

  {

    {NOT_VALID, NOT_VALID},   {0x28,0x09}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x26,0x09}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x34,0x09}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x2a,0x0a}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x28,0x0a}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x26,0x0a}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x24,0x0a}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x22,0x0a}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x4c,0x0c}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x4e,0x0c}

  },

  {

    {NOT_VALID, NOT_VALID},   {0xb8,0x0d}

  },

  {

    {NOT_VALID, NOT_VALID},   {0xba,0x0d}

  },

  {

    {NOT_VALID, NOT_VALID},   {0xbc,0x0d}

  },

  { 

    {NOT_VALID, NOT_VALID},   {0xbe,0x0d}

  }

};

/* Inter AC VLC tables */

const tVLCTable vlbVLCTable1InterAC[13] =

{

    {NOT_VALID, NOT_VALID},

    {0x04,0x03}, {0x1e,0x05}, {0x2a,0x07}, {0x2e,0x08},

    {0x3e,0x09}, {0x4a,0x0a}, {0x48,0x0a}, {0x42,0x0b},

    {0x40,0x0b}, {0x0e,0x0c}, {0x0c,0x0c}, {0x40,0x0c}

};

const tVLCTable vlbVLCTable2InterAC[7] =

{

    {NOT_VALID, NOT_VALID},   {0x0c,0x04}, {0x28,0x07}, 

        {0x3c,0x09}, {0x1e,0x0b}, {0x42,0x0c}, {0xa0,0x0d}

};

const tVLCTable vlbVLCTable3InterAC[5] =

{

    {NOT_VALID, NOT_VALID},   {0x1c,0x05}, {0x3a,0x09}, 

        {0x1c,0x0b}, {0xa2,0x0d}

};

const tVLCTable vlbVLCTable4InterAC[4][4] = 

{

  {

    {NOT_VALID, NOT_VALID},   {0x1a,0x06}, {0x46,0x0a}, 

        {0x1a,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x18,0x06}, {0x44,0x0a}, 

        {0xa4,0x0d}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x16,0x06}, {0x18,0x0b}, 

        {0xa6,0x0d}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x26,0x07}, {0x16,0x0b}, 

        {0xa8,0x0d}

  }

};

const tVLCTable vlbVLCTable5InterAC[4][3] =

{

  {

    {NOT_VALID, NOT_VALID},   {0x24,0x07}, {0x14,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x22,0x07}, {0x12,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x20,0x07}, {0x10,0x0b}

  },

  {

    {NOT_VALID, NOT_VALID},   {0x2c,0x08}, {0xaa,0x0d}

  }

};

const tVLCTable vlbVLCTable6InterAC[16] =

{

    {0x2a,0x08}, {0x28,0x08}, {0x38,0x09}, {0x36,0x09},

    {0x42,0x0a}, {0x40,0x0a}, {0x3e,0x0a}, {0x3c,0x0a}, 

        {0x3a,0x0a}, {0x38,0x0a}, {0x36,0x0a}, {0x34,0x0a}, 

        {0x44,0x0c}, {0x46,0x0c}, {0xac,0x0d}, {0xae,0x0d}

};

const tVLCTable vlbVLCTable7InterAc[4] =

{

    {NOT_VALID, NOT_VALID},   {0x0e,0x05}, {0x32,0x0a}, 

        {0x0a,0x0c}

};

const tVLCTable vlbVLCTable8InterAC[3] =

{

    {NOT_VALID, NOT_VALID},   {0x1e,0x07}, {0x08,0x0c}

};

const tVLCTable vlbVLCTable9InterAC[39] =

{

    {0x1c,0x07}, {0x1a,0x07}, {0x18,0x07}, {0x26,0x08},

    {0x24,0x08}, {0x22,0x08}, {0x20,0x08}, {0x34,0x09},

    {0x32,0x09}, {0x30,0x09}, {0x2e,0x09}, {0x2c,0x09},

    {0x2a,0x09}, {0x28,0x09}, {0x26,0x09}, {0x30,0x0a},

    {0x2e,0x0a}, {0x2c,0x0a}, {0x2a,0x0a}, {0x28,0x0a},

    {0x26,0x0a}, {0x24,0x0a}, {0x22,0x0a}, {0x0e,0x0b},

    {0x0c,0x0b}, {0x0a,0x0b}, {0x08,0x0b}, {0x48,0x0c},

    {0x4a,0x0c}, {0x4c,0x0c}, {0x4e,0x0c}, {0xb0,0x0d}, 

        {0xb2,0x0d}, {0xb4,0x0d}, {0xb6,0x0d}, {0xb8,0x0d}, 

        {0xba,0x0d}, {0xbc,0x0d}, {0xbe,0x0d}

};

const int8 vlbVLCRun0InterAC[64] =

{

    0x0d, 0x07, 0x05, 0x04, 0x04, 0x04, 0x04, 0x03, 

      0x03, 0x03, 0x03, 0x02, 0x02, 0x02, 0x02, 0x02, 

      0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 

      0x02, 0x02, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00,

      0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,

      0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,

      0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,

      0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00

};

const int8 vlbVLCRun1InterAC[64] =

{

      0x04, 0x03, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 

      0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 

      0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 

      0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 

      0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02, 

      0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 

      0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 

      0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 

};

/* other tables */

const int8 vlbLMaxTableIntra[36] =

{

    0x1b, 0x0a, 0x05, 0x04, 0x03, 0x03, 

        0x03, 0x03, 0x02, 0x02, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x08, 0x03, 0x02, 

        0x02, 0x02, 0x02, 0x02, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01

};

const int8 vlbLMaxTableInter[68] =

{

    0x0c, 0x06, 0x04, 0x03, 0x03, 0x03, 

        0x03, 0x02, 0x02, 0x02, 0x02, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x03, 0x02, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01

};

const int8 vlbRMaxTableIntra[35] =

{

    0x0f, 0x0a, 0x08, 0x04, 0x03, 0x02, 

        0x02, 0x02, 0x02, 0x02, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

    0x01, 0x01, 0x01, 0x01, 0x01, 0x01, 

        0x01, 0x01, 0x01, 0x15, 0x07, 0x02,

    0x01, 0x01, 0x01, 0x01, 0x01

};

const int8 vlbRMaxTableInter[15] =

{

    0x1b, 0x0b, 0x07, 0x03, 0x02, 0x02,

    0x01, 0x01, 0x01, 0x01, 0x01, 0x01,

    0x29, 0x02, 0x01

};

const u_int32 vlbZigzagScan[64] = 

{

    0x00, 0x01, 0x08, 0x10, 0x09, 0x02, 0x03, 0x0a,

    0x11, 0x18, 0x20, 0x19, 0x12, 0x0b, 0x04, 0x05,

    0x0c, 0x13, 0x1a, 0x21, 0x28, 0x30, 0x29, 0x22,

    0x1b, 0x14, 0x0d, 0x06, 0x07, 0x0e, 0x15, 0x1c,

    0x23, 0x2a, 0x31, 0x38, 0x39, 0x32, 0x2b, 0x24,

    0x1d, 0x16, 0x0f, 0x17, 0x1e, 0x25, 0x2c, 0x33,

    0x3a, 0x3b, 0x34, 0x2d, 0x26, 0x1f, 0x27, 0x2e,

    0x35, 0x3c, 0x3d, 0x36, 0x2f, 0x37, 0x3e, 0x3f

};

const u_int32 vlbInvZigzagScan[64] = 

{

    0x00, 0x01, 0x05, 0x06, 0x0e, 0x0f, 0x1b, 0x1c,

    0x1c, 0x1c, 0x1c, 0x1c, 0x1c, 0x1c, 0x1d, 0x2a,

    0x2a, 0x2a, 0x2a, 0x2a, 0x2a, 0x2a, 0x2a, 0x2b,

    0x2b, 0x2b, 0x2b, 0x2b, 0x2b, 0x2b, 0x2c, 0x35,

    0x35, 0x35, 0x35, 0x35, 0x35, 0x35, 0x35, 0x36,

    0x36, 0x36, 0x36, 0x36, 0x36, 0x36, 0x37, 0x3c,

    0x3c, 0x3c, 0x3c, 0x3c, 0x3c, 0x3c, 0x3c, 0x3d,

    0x3d, 0x3d, 0x3d, 0x3d, 0x3d, 0x3d, 0x3e, 0x3f

};

const tVLCTable vlbLumaTableIntraDC[13] = 

{

    {0x03,0x03}, {0x03,0x02}, {0x02,0x02}, {0x02,0x03}, 

        {0x01,0x03}, {0x01,0x04}, {0x01,0x05}, {0x01,0x06}, 

        {0x01,0x07}, {0x01,0x08}, {0x01,0x09}, {0x01,0x0a}, 

        {0x01,0x0b}

};

const tVLCTable vlbChromaTableIntraDC[13] =

{

    {0x03,0x02}, {0x02,0x02}, {0x01,0x02}, {0x01,0x03}, 

        {0x01,0x04}, {0x01,0x05}, {0x01,0x06}, {0x01,0x07}, 

        {0x01,0x08}, {0x01,0x09}, {0x01,0x0a}, {0x01,0x0b}

};

/* Array of pointers for AC VLC (INTER)tables */

const tVLCTable * const vlbVLCTablePointer0[27] =

{

    vlbVLCTable1InterAC,

    vlbVLCTable2InterAC,

    vlbVLCTable3InterAC,

    vlbVLCTable4InterAC[0],

    vlbVLCTable4InterAC[1],

    vlbVLCTable4InterAC[2],

    vlbVLCTable4InterAC[3],

    vlbVLCTable5InterAC[0],

    vlbVLCTable5InterAC[1],

    vlbVLCTable5InterAC[2],

    vlbVLCTable5InterAC[3],

    vlbVLCTable6InterAC - 0x01, // this pointer is going outside the range, but it is used only with condition (level < vlbVLCRun0InterAC[run]) which results having indexes > 0 and hence the array is never indexed below its base address

    vlbVLCTable6InterAC ,

    vlbVLCTable6InterAC + 0x01,

    vlbVLCTable6InterAC + 0x02,

    vlbVLCTable6InterAC + 0x03,

    vlbVLCTable6InterAC + 0x04,

    vlbVLCTable6InterAC + 0x05,

    vlbVLCTable6InterAC + 0x06,

    vlbVLCTable6InterAC + 0x07,

    vlbVLCTable6InterAC + 0x08,

    vlbVLCTable6InterAC + 0x09,

    vlbVLCTable6InterAC + 0x0a,

    vlbVLCTable6InterAC + 0x0b,

    vlbVLCTable6InterAC + 0x0c,

    vlbVLCTable6InterAC + 0x0d,

    vlbVLCTable6InterAC + 0x0e

};

const tVLCTable * const vlbVLCTablePointer1[41] =

{

    vlbVLCTable7InterAc,

    vlbVLCTable8InterAC,

    vlbVLCTable9InterAC - 0x01, // this pointer is going outside the range, but it is used only with condition (level < vlbVLCRun1InterAC[run]) which results having indexes > 0 and hence the array is never indexed below its base address

    vlbVLCTable9InterAC ,

    vlbVLCTable9InterAC + 0x01,

    vlbVLCTable9InterAC + 0x02,

    vlbVLCTable9InterAC + 0x03,

    vlbVLCTable9InterAC + 0x04,

    vlbVLCTable9InterAC + 0x05,

    vlbVLCTable9InterAC + 0x06,

    vlbVLCTable9InterAC + 0x07,

    vlbVLCTable9InterAC + 0x08,

    vlbVLCTable9InterAC + 0x09,

    vlbVLCTable9InterAC + 0x0a,

    vlbVLCTable9InterAC + 0x0b,

    vlbVLCTable9InterAC + 0x0c,

    vlbVLCTable9InterAC + 0x0d,

    vlbVLCTable9InterAC + 0x0e,

    vlbVLCTable9InterAC + 0x0f,

    vlbVLCTable9InterAC + 0x10,

    vlbVLCTable9InterAC + 0x11,

    vlbVLCTable9InterAC + 0x12,

    vlbVLCTable9InterAC + 0x13,

    vlbVLCTable9InterAC + 0x14,

    vlbVLCTable9InterAC + 0x15,

    vlbVLCTable9InterAC + 0x16,

    vlbVLCTable9InterAC + 0x17,

    vlbVLCTable9InterAC + 0x18,

    vlbVLCTable9InterAC + 0x19,

    vlbVLCTable9InterAC + 0x1a,

    vlbVLCTable9InterAC + 0x1b,

    vlbVLCTable9InterAC + 0x1c,

    vlbVLCTable9InterAC + 0x1d,