/*
 ** Copyright 2003-2010, VisualOn, Inc.
 **
 ** Licensed under the Apache License, Version 2.0 (the "License");
 ** you may not use this file except in compliance with the License.
 ** You may obtain a copy of the License at
 **
 **     http://www.apache.org/licenses/LICENSE-2.0
 **
 ** Unless required by applicable law or agreed to in writing, software
 ** distributed under the License is distributed on an "AS IS" BASIS,
 ** WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 ** See the License for the specific language governing permissions and
 ** limitations under the License.
 */

/***********************************************************************
       File: bits.c

	   Description: Performs bit stream manipulation

************************************************************************/

#include <stdlib.h>
#include <stdio.h>
#include "typedef.h"
#include "basic_op.h"
#include "cnst.h"
#include "bits.h"
#include "acelp.h"
#include "dtx.h"
#include "mime_io.tab"


int PackBits(Word16 prms[],             /*  i: analysis parameters */
			 Word16 coding_mode,        /*  i: coding bit-stream ratio mode */
			 Word16 mode,               /*  i: coding bit-stream ratio mode*/
			 Coder_State *st            /*i/o: coder global parameters struct */
			 )
{
	Word16 i, frame_type;
	UWord8 temp;
	UWord8 *stream_ptr;
	Word16 bitstreamformat = st->frameType;

	unsigned short* dataOut = st->outputStream;

	if (coding_mode == MRDTX)
	{
		st->sid_update_counter--;

		if (st->prev_ft == TX_SPEECH)
		{
			frame_type = TX_SID_FIRST;
			st->sid_update_counter = 3;
		} else
		{
			if ((st->sid_handover_debt > 0) && (st->sid_update_counter > 2))
			{
				/* ensure extra updates are  properly delayed after a possible SID_FIRST */
				frame_type = TX_SID_UPDATE;
				st->sid_handover_debt--;
			} else
			{
				if (st->sid_update_counter == 0)
				{
					frame_type = TX_SID_UPDATE;
					st->sid_update_counter = 8;
				} else
				{
					frame_type = TX_NO_DATA;
				}
			}
		}
	} else
	{
		st->sid_update_counter = 8;
		frame_type = TX_SPEECH;
	}
	st->prev_ft = frame_type;

	if(bitstreamformat == 0)				/* default file format */
	{
		*(dataOut) = TX_FRAME_TYPE;
		*(dataOut + 1) = frame_type;
		*(dataOut + 2) = mode;
		for (i = 0; i < nb_of_bits[coding_mode]; i++)
		{
			*(dataOut + 3 + i) = prms[i];
		}
		return  (3 + nb_of_bits[coding_mode])<<1;
	} else
	{
		if (bitstreamformat == 1)		/* ITU file format */
		{
			*(dataOut) = 0x6b21;
			if(frame_type != TX_NO_DATA && frame_type != TX_SID_FIRST)
			{
				*(dataOut + 1) = nb_of_bits[coding_mode];
				for (i = 0; i < nb_of_bits[coding_mode]; i++)
				{
					if(prms[i] == BIT_0){
						*(dataOut + 2 + i) = BIT_0_ITU;
					}
					else{
						*(dataOut + 2 + i) = BIT_1_ITU;
					}
				}
				return (2 + nb_of_bits[coding_mode])<<1;
			} else
			{
				*(dataOut + 1) = 0;
				return 2<<1;
			}
		} else							/* MIME/storage file format */
		{
#define MRSID 9
			/* change mode index in case of SID frame */
			if (coding_mode == MRDTX)
			{
				coding_mode = MRSID;
				if (frame_type == TX_SID_FIRST)
				{
					for (i = 0; i < NBBITS_SID; i++)	prms[i] = BIT_0;
				}
			}
			/* -> force NO_DATA frame */
			if (coding_mode < 0 || coding_mode > 15 || (coding_mode > MRSID && coding_mode < 14))
			{
				coding_mode = 15;
			}
			/* mark empty frames between SID updates as NO_DATA frames */
			if (coding_mode == MRSID && frame_type == TX_NO_DATA)
			{
				coding_mode = 15;
			}
			/* set pointer for packed frame, note that we handle data as bytes */
			stream_ptr = (UWord8*)dataOut;
			/* insert table of contents (ToC) byte at the beginning of the packet */
			*stream_ptr = toc_byte[coding_mode];
			stream_ptr++;
			temp = 0;
			/* sort and pack AMR-WB speech or SID bits */
			for (i = 1; i < unpacked_size[coding_mode] + 1; i++)
			{
				if (prms[sort_ptr[coding_mode][i-1]] == BIT_1)
				{
					temp++;
				}
				if (i&0x7)
				{
					temp <<= 1;
				}
				else
				{
					*stream_ptr = temp;
					stream_ptr++;
					temp = 0;
				}
			}
			/* insert SID type indication and speech mode in case of SID frame */
			if (coding_mode == MRSID)
			{
				if (frame_type == TX_SID_UPDATE)
				{
					temp++;
				}
				temp <<= 4;
				temp += mode & 0x000F;
			}
			/* insert unused bits (zeros) at the tail of the last byte */
			if (unused_size[coding_mode])
			{
				temp <<= (unused_size[coding_mode] - 1);
			}
			*stream_ptr = temp;
			/* write packed frame into file (1 byte added to cover ToC entry) */
			return (1 + packed_size[coding_mode]);
		}
	}
}

/*-----------------------------------------------------*
* Parm_serial -> convert parameters to serial stream  *
*-----------------------------------------------------*/

void Parm_serial(
		Word16 value,                         /* input : parameter value */
		Word16 no_of_bits,                    /* input : number of bits  */
		Word16 ** prms
		)
{
	Word16 i, bit;
	*prms += no_of_bits;
	for (i = 0; i < no_of_bits; i++)
	{
		bit = (Word16) (value & 0x0001);    /* get lsb */
		if (bit == 0)
			*--(*prms) = BIT_0;
		else
			*--(*prms) = BIT_1;
		value >>= 1;
	}
	*prms += no_of_bits;
	return;
}