/*
 ** 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: scale.c                                                  *
*                                                                      *
*       Description: Scale signal to get maximum of dynamic            *
*                                                                      *
************************************************************************/

#include "typedef.h"
#include "basic_op.h"

void Scale_sig(
		Word16 x[],                           /* (i/o) : signal to scale               */
		Word16 lg,                            /* (i)   : size of x[]                   */
		Word16 exp                            /* (i)   : exponent: x = round(x << exp) */
	      )
{
	Word32 i;
	Word32 L_tmp;
	if(exp > 0)
	{
		for (i = lg - 1 ; i >= 0; i--)
		{
			L_tmp = L_shl2(x[i], 16 + exp);  
			x[i] = extract_h(L_add(L_tmp, 0x8000));            
		}
	}
	else
	{
		exp = -exp;
		for (i = lg - 1; i >= 0; i--)
		{
			L_tmp = x[i] << 16;
			L_tmp >>= exp; 
			x[i] = (L_tmp + 0x8000)>>16;            
		}
	}
	return;
}