/* ------------------------------------------------------------------
 * Copyright (C) 1998-2009 PacketVideo
 *
 * 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.
 * -------------------------------------------------------------------
 */
/****************************************************************************************
Portions of this file are derived from the following 3GPP standard:

    3GPP TS 26.173
    ANSI-C code for the Adaptive Multi-Rate - Wideband (AMR-WB) speech codec
    Available from http://www.3gpp.org

(C) 2007, 3GPP Organizational Partners (ARIB, ATIS, CCSA, ETSI, TTA, TTC)
Permission to distribute, modify and use this file under the standard license
terms listed above has been obtained from the copyright holder.
****************************************************************************************/
/*
------------------------------------------------------------------------------


 Filename: isp_az.cpp

     Date: 05/08/2004

------------------------------------------------------------------------------
 REVISION HISTORY


 Description:

------------------------------------------------------------------------------
 INPUT AND OUTPUT DEFINITIONS

     int16 isp[],              (i) Q15 : Immittance spectral pairs
     int16 a[],                (o) Q12 : predictor coefficients (order=M)
     int16 m,                  (i)     : order
     int16 adaptive_scaling    (i) 0   : adaptive scaling disabled
                                   1   : adaptive scaling enabled


------------------------------------------------------------------------------
 FUNCTION DESCRIPTION

    Compute the LPC coefficients from isp (order=M)
------------------------------------------------------------------------------
 REQUIREMENTS


------------------------------------------------------------------------------
 REFERENCES

------------------------------------------------------------------------------
 PSEUDO-CODE

------------------------------------------------------------------------------
*/


/*----------------------------------------------------------------------------
; INCLUDES
----------------------------------------------------------------------------*/

#include "pv_amr_wb_type_defs.h"
#include "pvamrwbdecoder_basic_op.h"
#include "pvamrwbdecoder_cnst.h"
#include "pvamrwbdecoder_acelp.h"
#include "pvamrwb_math_op.h"

/*----------------------------------------------------------------------------
; MACROS
; Define module specific macros here
----------------------------------------------------------------------------*/


/*----------------------------------------------------------------------------
; DEFINES
; Include all pre-processor statements here. Include conditional
; compile variables also.
----------------------------------------------------------------------------*/
#define NC (M/2)
#define NC16k (M16k/2)

/*----------------------------------------------------------------------------
; LOCAL FUNCTION DEFINITIONS
; Function Prototype declaration
----------------------------------------------------------------------------*/


#ifdef __cplusplus
extern "C"
{
#endif

    void Get_isp_pol(int16 * isp, int32 * f, int16 n);
    void Get_isp_pol_16kHz(int16 * isp, int32 * f, int16 n);

#ifdef __cplusplus
}
#endif

/*----------------------------------------------------------------------------
; LOCAL STORE/BUFFER/POINTER DEFINITIONS
; Variable declaration - defined here and used outside this module
----------------------------------------------------------------------------*/

/*----------------------------------------------------------------------------
; EXTERNAL FUNCTION REFERENCES
; Declare functions defined elsewhere and referenced in this module
----------------------------------------------------------------------------*/

/*----------------------------------------------------------------------------
; EXTERNAL GLOBAL STORE/BUFFER/POINTER REFERENCES
; Declare variables used in this module but defined elsewhere
----------------------------------------------------------------------------*/

/*----------------------------------------------------------------------------
; FUNCTION CODE
----------------------------------------------------------------------------*/

void Isp_Az(
    int16 isp[],            /* (i) Q15 : Immittance spectral pairs         */
    int16 a[],              /* (o) Q12 : predictor coefficients (order=M)  */
    int16 m,                /* (i)     : order                     */
    int16 adaptive_scaling  /* (i) 0   : adaptive scaling disabled */
    /*     1   : adaptive scaling enabled  */
)
{
    int16 i, j;
    int32 f1[NC16k + 1], f2[NC16k];
    int16 nc;
    int32 t0;
    int32 t1;
    int16 q, q_sug;
    int32 tmax;

    nc = m >> 1;


    if (nc > 8)
    {
        Get_isp_pol_16kHz(&isp[0], f1, nc);
        for (i = 0; i <= nc; i++)
        {
            f1[i] = shl_int32(f1[i], 2);
        }
        Get_isp_pol_16kHz(&isp[1], f2, nc - 1);
        for (i = 0; i <= nc - 1; i++)
        {
            f2[i] = shl_int32(f2[i], 2);
        }
    }
    else
    {
        Get_isp_pol(&isp[0], f1, nc);
        Get_isp_pol(&isp[1], f2, nc - 1);
    }

    /*
     *  Multiply F2(z) by (1 - z^-2)
     */

    for (i = nc - 1; i > 1; i--)
    {
        f2[i] -= f2[i - 2];      /* f2[i] -= f2[i-2]; */
    }

    /*
     *  Scale F1(z) by (1+isp[m-1])  and  F2(z) by (1-isp[m-1])
     */

    for (i = 0; i < nc; i++)
    {
        /* f1[i] *= (1.0 + isp[M-1]); */

        /* f2[i] *= (1.0 - isp[M-1]); */
        t0 = f1[i];
        t1 = f2[i];
        t0 = fxp_mul32_by_16b(t0, isp[m - 1]) << 1;
        t1 = fxp_mul32_by_16b(t1, isp[m - 1]) << 1;
        f1[i] += t0;
        f2[i] -= t1;

    }

    /*
     *  A(z) = (F1(z)+F2(z))/2
     *  F1(z) is symmetric and F2(z) is antisymmetric
     */

    /* a[0] = 1.0; */
    a[0] = 4096;
    tmax = 1;
    j = m - 1;
    for (i = 1;  i < nc; i++)
    {
        /* a[i] = 0.5*(f1[i] + f2[i]); */

        t0 = add_int32(f1[i], f2[i]);          /* f1[i] + f2[i]             */
        /* compute t1 = abs(t0) */
        t1 = t0 - (t0 < 0);
        t1 = t1 ^(t1 >> 31);  /* t1 = t1 ^sign(t1) */

        tmax |= t1;
        /* from Q23 to Q12 and * 0.5 */
        a[i] = (int16)((t0 >> 12) + ((t0 >> 11) & 1));


        /* a[j] = 0.5*(f1[i] - f2[i]); */

        t0 = sub_int32(f1[i], f2[i]);          /* f1[i] - f2[i]             */
        /* compute t1 = abs(t0) */
        t1 = t0 - (t0 < 0);
        t1 = t1 ^(t1 >> 31);  /* t1 = t1 ^sign(t1) */

        tmax |= t1;

        /* from Q23 to Q12 and * 0.5 */
        a[j--] = (int16)((t0 >> 12) + ((t0 >> 11) & 1));

    }

    /* rescale data if overflow has occured and reprocess the loop */


    if (adaptive_scaling == 1)
    {
        q = 4 - normalize_amr_wb(tmax);        /* adaptive scaling enabled */
    }
    else
    {
        q = 0;                   /* adaptive scaling disabled */
    }


    if (q > 0)
    {
        q_sug = 12 + q;
        for (i = 1, j = m - 1; i < nc; i++, j--)
        {
            /* a[i] = 0.5*(f1[i] + f2[i]); */

            t0 = add_int32(f1[i], f2[i]);          /* f1[i] + f2[i]             */
            /* from Q23 to Q12 and * 0.5 */
            a[i] = (int16)((t0 >> q_sug) + ((t0 >> (q_sug - 1)) & 1));


            /* a[j] = 0.5*(f1[i] - f2[i]); */

            t0 = sub_int32(f1[i], f2[i]);          /* f1[i] - f2[i]             */
            /* from Q23 to Q12 and * 0.5 */
            a[j] = (int16)((t0 >> q_sug) + ((t0 >> (q_sug - 1)) & 1));

        }
        a[0] >>=  q;
    }
    else
    {
        q_sug = 12;
        q     = 0;
    }

    /* a[NC] = 0.5*f1[NC]*(1.0 + isp[M-1]); */


    t0 = (int32)(((int64)f1[nc] * isp[m - 1]) >> 16) << 1;


    t0 = add_int32(f1[nc], t0);

    /* from Q23 to Q12 and * 0.5 */
    a[nc] = (int16)((t0 >> q_sug) + ((t0 >> (q_sug - 1)) & 1));
    a[m] = shr_rnd(isp[m - 1], (3 + q));           /* from Q15 to Q12          */

    /* a[m] = isp[m-1]; */


    return;
}


/*
Get_isp_pol
------------------------------------------------------------------------------
 INPUT AND OUTPUT DEFINITIONS

   isp[]   : isp vector (cosine domaine)         in Q15
   f[]     : the coefficients of F1 or F2        in Q23
   n       : == NC for F1(z); == NC-1 for F2(z)


------------------------------------------------------------------------------
 FUNCTION DESCRIPTION

    Find the polynomial F1(z) or F2(z) from the ISPs.
  This is performed by expanding the product polynomials:

  F1(z) =   product   ( 1 - 2 isp_i z^-1 + z^-2 )
          i=0,2,4,6,8
  F2(z) =   product   ( 1 - 2 isp_i z^-1 + z^-2 )
          i=1,3,5,7

  where isp_i are the ISPs in the cosine domain.
------------------------------------------------------------------------------
 REQUIREMENTS


------------------------------------------------------------------------------
 REFERENCES

------------------------------------------------------------------------------
 PSEUDO-CODE

----------------------------------------------------------------------------*/

/*----------------------------------------------------------------------------
; FUNCTION CODE
----------------------------------------------------------------------------*/


void Get_isp_pol(int16 * isp, int32 * f, int16 n)
{
    int16 i, j;
    int32 t0;


    /* All computation in Q23 */

    f[0] = 0x00800000;                        /* f[0] = 1.0;        in Q23  */
    f[1] = -isp[0] << 9;                      /* f[1] = -2.0*isp[0] in Q23  */

    f += 2;                                   /* Advance f pointer          */
    isp += 2;                                 /* Advance isp pointer        */

    for (i = 2; i <= n; i++)
    {
        *f = f[-2];

        for (j = 1; j < i; j++)
        {

            t0 = fxp_mul32_by_16b(f[-1], *isp);
            t0 = shl_int32(t0, 2);

            *f -= t0;                      /* *f -= t0            */
            *(f) += f[-2];                 /* *f += f[-2]         */
            f--;


        }
        *f -= *isp << 9;

        f += i;                            /* Advance f pointer   */
        isp += 2;                          /* Advance isp pointer */
    }
}

void Get_isp_pol_16kHz(int16 * isp, int32 * f, int16 n)
{
    int16 i, j;
    int32 t0;

    /* All computation in Q23 */

    f[0] = 0x00200000;                        /* f[0] = 0.25;        in Q23  */

    f[1] = -isp[0] << 7;                      /* f[1] = -0.5*isp[0] in Q23  */

    f += 2;                                   /* Advance f pointer          */
    isp += 2;                                 /* Advance isp pointer        */

    for (i = 2; i <= n; i++)
    {
        *f = f[-2];

        for (j = 1; j < i; j++, f--)
        {
            t0 = fxp_mul32_by_16b(f[-1], *isp);
            t0 = shl_int32(t0, 2);

            *f -= t0;                      /* *f -= t0            */
            *f += f[-2];                   /* *f += f[-2]         */
        }
        *f -= *isp << 7;
        f += i;                            /* Advance f pointer   */
        isp += 2;                          /* Advance isp pointer */
    }
    return;
}