// Copyright (c) 2000-2010 Nokia Corporation and/or its subsidiary(-ies).

// All rights reserved.

// This component and the accompanying materials are made available

// under the terms of "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:

//

// Description:

// Polymorphic DLL implementation of GSM 6.10 full rate (FR) speech coder

// and decoder    objects.

// This codec is based on ANSI C simulation codes. For this implementation

// (polymorphic DLL) the original ANSI C codes have been modified slightly:

// - The original .c files were renamed to .cpp files.

// - All global varibles (codec's state) are now encoder's or decoder's

// private member variables.

// - Because codec's state is in the codec object, an extra variable -

// a pointer codec object - have been added to some original routines.

// - Global tables are now const C++ tables in tables.h header file.

// - VAD and DTX modules have been removed from the original routines.

// - Due to error in GNU tool chain all array indexes of type [i-1] in

// rpeltp.cpp have been removed and changed to [j] type.

// - multr, L_add, L_mac from basicop.cpp inlined

// INCLUDES

// 

//

#include "gsm610fr.h"

#include "codec.h"

#include <e32uid.h>

#include "rpeltp.h"

//  LOCAL FUNCTIONS

//===================================================================

/*

-----------------------------------------------------------------------------

    GSM610FR_Encoder

    ConstructL

    This function implements the second phase construction of GSM610FR_Encoder

    class. Function binds the encoder to given input and output streams and

    resets encoder.

    Parameters:     RReadStream aInStrm     Handle to input stream (16 bit

                                            PCM speech data)

                    RWriteStream aOutStrm   Handle to output stream (encoded

                                            speech data)

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Encoder::ConstructL()

    {

    ::reset_encoder(this);

    iOddFrame = TRUE;

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Encoder

    ~GSM610FR_Encoder

    Empty encoder destructor.

    Parameters:     none

    Return Values:  none

-----------------------------------------------------------------------------

*/

CGSM610FR_Encoder::~CGSM610FR_Encoder()

    {

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Encoder

    StartL

    Start encoder object. Initialize codec status.

    Parameters:     none

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Encoder::StartL()

    {

    ::reset_encoder(this);

    iOddFrame = TRUE;

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Encoder

    ExecuteL

    Execute encoder object. Read one speech frame from the input stream,

    RPELTP encode it and write the encoded frame to output stream.

    Parameters:     none

    Return Values:  none

    Leave Handling:

    If the length of data available in the input stream is less than

    FRAMESIZE then the function leaves with KErrEof.

-----------------------------------------------------------------------------

*/

void CGSM610FR_Encoder::ExecuteL(TUint8* aInBuf, TUint8* aOutBuf)

{

	TInt16* inBufPtr  = (TInt16*) aInBuf;

	for (TInt frame = 0; frame < 2; frame++)

	{

	    ::RPELTP_encoder(this, inBufPtr, &iCodeBuf);

		if ( iOddFrame )

		{

			PackFrame0 (&iCodeBuf, (TInt8*) aOutBuf);

		}

		else

		{

			PackFrame1 (&iCodeBuf, (TInt8*) aOutBuf);

		}

		iOddFrame = !iOddFrame;

		inBufPtr += FRAMESIZE;

	}

}

/*

-----------------------------------------------------------------------------

    GSM610FR_Encoder

    StopL

    Stop encoder object. Flush out last frames, if necessary.

    Parameters:     none

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Encoder::StopL()

    {

    }

void CGSM610FR_Encoder::Release()

    {

    delete this;

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Encoder

    PackFrame0

    Pack the codewords of the even frame into pack buffer.

    Packing as in MS gsm610 encoder.

    Parameters:     struct codes* aCodeBuf    Code words for one speech frame.

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Encoder::PackFrame0(struct codes* aCodeBuf, TInt8* pbuf)

    {

    TInt16* LAR = aCodeBuf->LARc;

    // pack the LARc[0..7] into the first 4.5 bytes

    *pbuf++ = (TUint8)(((LAR[0]     ) & 0x3F) | ((LAR[1] << 6) & 0xC0));

    *pbuf++ = (TUint8)(((LAR[1] >> 2) & 0x0F) | ((LAR[2] << 4) & 0xF0));

    *pbuf++ = (TUint8)(((LAR[2] >> 4) & 0x01) | ((LAR[3] << 1) & 0x3E) | ((LAR[4] << 6) & 0xC0));

    *pbuf++ = (TUint8)(((LAR[4] >> 2) & 0x03) | ((LAR[5] << 2) & 0x3C) | ((LAR[6] << 6) & 0xC0));

    *pbuf   = (TUint8)(((LAR[6] >> 2) & 0x01) | ((LAR[7] << 1) & 0x0E));

    // pack Nc, bc, Mc, xmaxc, and xMc for each of the 4 sub-frames

    for(TInt i = 0; i < 4; i++)

        {

        struct sfcodes& c = aCodeBuf->sfc[i];

        *pbuf++ |= ((c.Nc << 4) & 0xF0);

        *pbuf++ = (TUint8)(((c.Nc >> 4) & 0x07) | ((c.bc << 3) & 0x18) | ((c.Mc << 5) & 0x60) | ((c.xmaxc << 7) & 0x80));

        *pbuf++ = (TUint8)(((c.xmaxc >> 1) & 0x1F) | ((c.xMc[0] << 5) & 0xE0));

        *pbuf++ = (TUint8)((c.xMc[1] & 0x07) | ((c.xMc[2] << 3) & 0x38) | ((c.xMc[3] << 6) & 0xC0));

        *pbuf++ = (TUint8)(((c.xMc[3] >> 2) & 0x01) | ((c.xMc[4] << 1) & 0x0E) | ((c.xMc[5] << 4) & 0x70) | ((c.xMc[6] << 7) & 0x80));

        *pbuf++ = (TUint8)(((c.xMc[6] >> 1) & 0x03) | ((c.xMc[7] << 2) & 0x1C) | ((c.xMc[8] << 5) & 0xE0));

        *pbuf++ = (TUint8)((c.xMc[9] & 0x07) | ((c.xMc[10] << 3) & 0x38) | ((c.xMc[11] << 6) & 0xC0));

        *pbuf   = (TUint8)(((c.xMc[11] >> 2) & 0x01) | ((c.xMc[12] << 1) & 0x0E));

        }

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Encoder

    PackFrame1

    Pack the codewords of the odd frame into pack buffer.

    Packing as in MS gsm610 encoder.

    Parameters:     struct codes* aCodeBuf    Code words for one speech frame.

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Encoder::PackFrame1(struct codes* aCodeBuf, TInt8* pbuf)

    {

    TInt16* LAR = aCodeBuf->LARc;

	pbuf += (PACKSIZE / 2);

	TInt8 pbufZero = pbuf[0];

    // pack the LARc[0..7] into the first 4.5 bytes, starting with the msb of the first byte

    *pbuf++ = (TUint8) (pbufZero | ((LAR[0] << 4) & 0xF0));

    *pbuf++ = (TUint8)(((LAR[0] >> 4) & 0x03) | ((LAR[1] << 2) & 0xFC));

    *pbuf++ = (TUint8)(((LAR[2]     ) & 0x1F) | ((LAR[3] << 5) & 0xE0));

    *pbuf++ = (TUint8)(((LAR[3] >> 3) & 0x03) | ((LAR[4] << 2) & 0x3C) | ((LAR[5] << 6) & 0xC0));

    *pbuf++ = (TUint8)(((LAR[5] >> 2) & 0x03) | ((LAR[6] << 2) & 0x1C) | ((LAR[7] << 5) & 0xE0));

    // pack Nc, bc, Mc, xmaxc, and xMc for each of the 4 sub-frames

    for(TInt i = 0; i < 4; i++)

        {

        struct sfcodes& c = aCodeBuf->sfc[i];

        *pbuf++ = (TUint8)((c.Nc & 0x7F) | ((c.bc << 7) & 0x80));

        *pbuf++ = (TUint8)(((c.bc >> 1) & 0x01) | ((c.Mc << 1) & 0x06) | ((c.xmaxc << 3) & 0xF8));

        *pbuf++ = (TUint8)(((c.xmaxc >> 5) & 0x01) | ((c.xMc[0] << 1) & 0x0E) | ((c.xMc[1] << 4) & 0x70) | ((c.xMc[2] << 7) & 0x80));

        *pbuf++ = (TUint8)(((c.xMc[2] >> 1) & 0x03) | ((c.xMc[3] << 2) & 0x1C) | ((c.xMc[4] << 5) & 0xE0));

        *pbuf++ = (TUint8)(((c.xMc[5]) & 0x07) | ((c.xMc[6] << 3) & 0x38) | ((c.xMc[7] << 6) & 0xC0));

        *pbuf++ = (TUint8)(((c.xMc[7] >> 2) & 0x01) | ((c.xMc[8] << 1) & 0x0E) | ((c.xMc[9] << 4) & 0x70) | ((c.xMc[10] << 7) & 0x80));

        *pbuf++ = (TUint8)(((c.xMc[10] >> 1) & 0x03) | ((c.xMc[11] << 2) & 0x1C) | ((c.xMc[12] << 5) & 0xE0));

        }

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Decoder

    ConstructL

    This function implements the second phase construction of GSM610FR_Decoder

    class. Function binds the decoder to given input and output streams and

    resets decoder.

    Parameters:     RReadStream aInStrm     Handle to input stream (encoded

                                            speech data)

                    RWriteStream aOutStrm   Handle to output stream (16 bit

                                            PCM speech data)

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Decoder::ConstructL()

    {

    ::reset_decoder(this);

    iOddFrame = TRUE;

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Decoder

    ~GSM610FR_Decoder

    Empty decoder destructor.

    Parameters:     none

    Return Values:  none

-----------------------------------------------------------------------------

*/

CGSM610FR_Decoder::~CGSM610FR_Decoder()

    {

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Decoder

    StartL

    Start decoder object. Initialize codec status.

    Parameters:     none

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Decoder::StartL()

    {

    ::reset_decoder(this);

    iOddFrame = TRUE;

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Decoder

    ExecuteL

    Execute decoder object. Read one encoded speech frame from the input

    stream RPELTP decode it and write the decoded frame to output stream.

    Parameters:     none

    Return Values:  none

    Leave Handling:

    If the length of data available in the input stream is less than size

    of one encoded speech frame then the function leaves with KErrEof.

-----------------------------------------------------------------------------

*/

void CGSM610FR_Decoder::ExecuteL(TUint8* aInBuf, TUint8* aOutBuf)

{

	TInt16* outBufPtr = (TInt16*) aOutBuf;

	// Process both odd and even frames

	for (TInt frame = 0; frame < 2; frame++)

	{

		if ( iOddFrame )

		{

			UnpackFrame0(&iCodeBuf, (TInt8*) aInBuf);

        }

	   else

        {

			UnpackFrame1(&iCodeBuf, (TInt8*) aInBuf);

		}

		::RPELTP_decoder(this, &iCodeBuf, outBufPtr);

		iOddFrame = !iOddFrame;

		outBufPtr += FRAMESIZE;

	}

}

/*

-----------------------------------------------------------------------------

    GSM610FR_Decoder

    StopL

    Stop decoder object. Flush out last frames, if necessary.

    Parameters:     none

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Decoder::StopL()

    {

    }

void CGSM610FR_Decoder::Release()

    {

    delete this;

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Decoder

    UnpackFrame0

    Unpack the codewords of the even frame from pack buffer.

    Packing as in MS gsm610 encoder.

    Parameters:     struct codes* aCodeBuf    Code words for one speech frame

                                              are unpacked into this structure.

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Decoder::UnpackFrame0(struct codes* aCodeBuf,  TInt8* pbuf)

    {

    TInt16* LAR = aCodeBuf->LARc;

    // unpack the LAR[0..7] from the first 4.5 bytes

    LAR[0] = (TInt16)((pbuf[0] & 0x3F));

    LAR[1] = (TInt16)(((pbuf[0] & 0xC0) >> 6) | ((pbuf[1] & 0x0F) << 2));

    LAR[2] = (TInt16)(((pbuf[1] & 0xF0) >> 4) | ((pbuf[2] & 0x01) << 4));

    LAR[3] = (TInt16)(((pbuf[2] & 0x3E) >> 1));

    LAR[4] = (TInt16)(((pbuf[2] & 0xC0) >> 6) | ((pbuf[3] & 0x03) << 2));

    LAR[5] = (TInt16)(((pbuf[3] & 0x3C) >> 2));

    LAR[6] = (TInt16)(((pbuf[3] & 0xC0) >> 6) | ((pbuf[4] & 0x01) << 2));

    LAR[7] = (TInt16)(((pbuf[4] & 0x0E) >> 1));

    // unpack Nc, bc, Mc, xmaxc, and xMc for each of the 4 sub-frames

    for(TInt i = 0; i < 4; i++)

        {

        struct sfcodes& c = aCodeBuf->sfc[i];

#define sfb(x) (pbuf[4+i*7+x])

        c.Nc = (TInt16)(((sfb(0) & 0xF0) >> 4) | ((sfb(1) & 0x07) << 4));

        c.bc = (TInt16)(((sfb(1) & 0x18) >> 3));

        c.Mc = (TInt16)(((sfb(1) & 0x60) >> 5));

        c.xmaxc = (TInt16)(((sfb(1) & 0x80) >> 7) | ((sfb(2) & 0x1F) << 1));

        c.xMc[0] = (TInt16)(((sfb(2) & 0xE0) >> 5));

        c.xMc[1] = (TInt16)((sfb(3) & 0x07));

        c.xMc[2] = (TInt16)(((sfb(3) & 0x3C) >> 3));

        c.xMc[3] = (TInt16)(((sfb(3) & 0xC0) >> 6) | ((sfb(4) & 0x01) << 2));

        c.xMc[4] = (TInt16)(((sfb(4) & 0x0E) >> 1));

        c.xMc[5] = (TInt16)(((sfb(4) & 0x70) >> 4));

        c.xMc[6] = (TInt16)(((sfb(4) & 0x80) >> 7) | ((sfb(5) & 0x03) << 1));

        c.xMc[7] = (TInt16)(((sfb(5) & 0x1C) >> 2));

        c.xMc[8] = (TInt16)(((sfb(5) & 0xE0) >> 5));

        c.xMc[9] = (TInt16)((sfb(6) & 0x07));

        c.xMc[10] = (TInt16)(((sfb(6) & 0x38) >> 3));

        c.xMc[11] = (TInt16)(((sfb(6) & 0xC0) >> 6) | ((sfb(7) & 0x01) << 2));

        c.xMc[12] = (TInt16)(((sfb(7) & 0x0E) >> 1));

#undef sfb

        }

    }

/*

-----------------------------------------------------------------------------

    GSM610FR_Decoder

    UnpackFrame1

    Unpack the codewords of the odd frame from pack buffer.

    Packing as in MS gsm610 encoder.

    Parameters:     struct codes* aCodeBuf    Code words for one speech frame

                                              are unpacked into this structure.

    Return Values:  none

-----------------------------------------------------------------------------

*/

void CGSM610FR_Decoder::UnpackFrame1(struct codes* aCodeBuf, TInt8* pbuf)

{

    TInt16* LAR = aCodeBuf->LARc;

    // unpack the LAR[0..7] from the first 4.5 bytes

    LAR[0] = (TInt16)(((pbuf[32] & 0xF0) >> 4) | ((pbuf[33] & 0x03) << 4));

    LAR[1] = (TInt16)(((pbuf[33] & 0xFC) >> 2));

    LAR[2] = (TInt16)(((pbuf[34] & 0x1F)));

    LAR[3] = (TInt16)(((pbuf[34] & 0xE0) >> 5) | ((pbuf[35] & 0x03) << 3));

    LAR[4] = (TInt16)(((pbuf[35] & 0x3C) >> 2));

    LAR[5] = (TInt16)(((pbuf[35] & 0xC0) >> 6) | ((pbuf[36] & 0x03) << 2));

    LAR[6] = (TInt16)(((pbuf[36] & 0x1C) >> 2));

    LAR[7] = (TInt16)(((pbuf[36] & 0xE0) >> 5));

    // unpack Nc, bc, Mc, xmaxc, and xMc for each of the 4 sub-frames

    for(TInt i = 0; i < 4; i++)

        {

        struct sfcodes& c = aCodeBuf->sfc[i];

#define sfb(x) (pbuf[37+i*7+x])

        c.Nc = (TInt16)(sfb(0) & 0x7F);

        c.bc = (TInt16)(((sfb(0) & 0x80) >> 7) | ((sfb(1) & 0x01) << 1));

        c.Mc = (TInt16)(((sfb(1) & 0x06) >> 1));

        c.xmaxc = (TInt16)(((sfb(1) & 0xF8) >> 3) | ((sfb(2) & 0x01) << 5));

        c.xMc[0] = (TInt16)(((sfb(2) & 0x0E) >> 1));

        c.xMc[1] = (TInt16)(((sfb(2) & 0x70) >> 4));

        c.xMc[2] = (TInt16)(((sfb(2) & 0x80) >> 7) | ((sfb(3) & 0x03) << 1));

        c.xMc[3] = (TInt16)(((sfb(3) & 0x1C) >> 2));

        c.xMc[4] = (TInt16)(((sfb(3) & 0xE0) >> 5));

        c.xMc[5] = (TInt16)(((sfb(4) & 0x07)));

        c.xMc[6] = (TInt16)(((sfb(4) & 0x38) >> 3));

        c.xMc[7] = (TInt16)(((sfb(4) & 0xC0) >> 6) | ((sfb(5) & 0x01) << 2));

        c.xMc[8] = (TInt16)(((sfb(5) & 0x0E) >> 1));

        c.xMc[9] = (TInt16)(((sfb(5) & 0x70) >> 4));

        c.xMc[10] = (TInt16)(((sfb(5) & 0x80) >> 7) | ((sfb(6) & 0x03) << 1));

        c.xMc[11] = (TInt16)(((sfb(6) & 0x1C) >> 2));

        c.xMc[12] = (TInt16)(((sfb(6) & 0xE0) >> 5));

#undef sfb