# HG changeset patch
# User Mychaela Falconia <falcon@freecalypso.org>
# Date 1712338309 0
# Node ID 07f936338de196713b9dab44ec3fb3928a0a8d76
# Parent  f931e704adc5f462e7844d3118ef88517b543d04
libtwamr: integrated up to b_cn_cod.c

diff -r f931e704adc5 -r 07f936338de1 libtwamr/Makefile
--- a/libtwamr/Makefile	Fri Apr 05 07:41:31 2024 +0000
+++ b/libtwamr/Makefile	Fri Apr 05 17:31:49 2024 +0000
@@ -1,7 +1,7 @@
 CC=	gcc
 CFLAGS=	-O2
-OBJS=	a_refl.o agc.o autocorr.o az_lsp.o basicop2.o bitno.o bits2prm.o \
-	inv_sqrt.o oper_32b.o prmno.o tls_flags.o
+OBJS=	a_refl.o agc.o autocorr.o az_lsp.o b_cn_cod.o basicop2.o bitno.o \
+	bits2prm.o inv_sqrt.o oper_32b.o prmno.o tls_flags.o window.o
 LIB=	libtwamr.a
 
 INSTALL_PREFIX=	/usr/local
diff -r f931e704adc5 -r 07f936338de1 libtwamr/a_refl.c
--- a/libtwamr/a_refl.c	Fri Apr 05 07:41:31 2024 +0000
+++ b/libtwamr/a_refl.c	Fri Apr 05 17:31:49 2024 +0000
@@ -20,7 +20,6 @@
 */
 #include "namespace.h"
 #include "a_refl.h"
-const char a_refl_id[] = "@(#)$Id $" a_refl_h;
  
 
 /*
diff -r f931e704adc5 -r 07f936338de1 libtwamr/agc.c
--- a/libtwamr/agc.c	Fri Apr 05 07:41:31 2024 +0000
+++ b/libtwamr/agc.c	Fri Apr 05 17:31:49 2024 +0000
@@ -19,7 +19,6 @@
 */
 #include "namespace.h"
 #include "agc.h"
-const char agc_id[] = "@(#)$Id $" agc_h;
 
 /*
 *****************************************************************************
diff -r f931e704adc5 -r 07f936338de1 libtwamr/autocorr.c
--- a/libtwamr/autocorr.c	Fri Apr 05 07:41:31 2024 +0000
+++ b/libtwamr/autocorr.c	Fri Apr 05 17:31:49 2024 +0000
@@ -18,7 +18,6 @@
 */
 #include "namespace.h"
 #include "autocorr.h"
-const char autocorr_id[] = "@(#)$Id $" autocorr_h;
  
 /*
 ********************************************************************************
diff -r f931e704adc5 -r 07f936338de1 libtwamr/az_lsp.c
--- a/libtwamr/az_lsp.c	Fri Apr 05 07:41:31 2024 +0000
+++ b/libtwamr/az_lsp.c	Fri Apr 05 17:31:49 2024 +0000
@@ -19,7 +19,6 @@
 */
 #include "namespace.h"
 #include "az_lsp.h"
-const char az_lsp_id[] = "@(#)$Id $" az_lsp_h;
 /*
 ********************************************************************************
 *                         INCLUDE FILES
diff -r f931e704adc5 -r 07f936338de1 libtwamr/b_cn_cod.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libtwamr/b_cn_cod.c	Fri Apr 05 17:31:49 2024 +0000
@@ -0,0 +1,159 @@
+/*
+********************************************************************************
+*
+*      GSM AMR-NB speech codec   R98   Version 7.6.0   December 12, 2001
+*                                R99   Version 3.3.0                
+*                                REL-4 Version 4.1.0                
+*
+********************************************************************************
+*
+*      File             : b_cn_cod.c
+*      Purpose          : Contains function for comfort noise generation.
+*
+********************************************************************************
+*/
+/*
+********************************************************************************
+*                         MODULE INCLUDE FILE AND VERSION ID
+********************************************************************************
+*/
+#include "namespace.h"
+#include "b_cn_cod.h"
+
+/*
+********************************************************************************
+*                         INCLUDE FILES
+********************************************************************************
+*/
+#include "typedef.h"
+#include "basic_op.h"
+#include "oper_32b.h"
+#include "no_count.h"
+#include "cnst.h"
+#include "window.h"
+
+/*
+********************************************************************************
+*                         LOCAL CONSTANTS
+********************************************************************************
+*/
+#define  NB_PULSE 10 /* number of random pulses in DTX operation   */
+
+/*
+********************************************************************************
+*                         PUBLIC PROGRAM CODE
+********************************************************************************
+*/
+/*************************************************************************
+ *
+ *   FUNCTION NAME: pseudonoise
+ *
+ *************************************************************************/
+Word16 pseudonoise (
+    Word32 *shift_reg, /* i/o : Old CN generator shift register state */
+    Word16 no_bits     /* i   : Number of bits                        */
+)
+{
+   Word16 noise_bits, Sn, i;
+   
+   noise_bits = 0;                              move16 ();
+   for (i = 0; i < no_bits; i++)
+   {
+      /* State n == 31 */
+      test (); logic32 ();
+      if ((*shift_reg & 0x00000001L) != 0)
+      {
+         Sn = 1;                                move16 ();                         
+      }
+      else
+      {
+         Sn = 0;                                move16 ();                        
+      }
+      
+      /* State n == 3 */
+      test (); logic32 ();
+      if ((*shift_reg & 0x10000000L) != 0)
+      {
+         Sn = Sn ^ 1;                           move16 (); logic16 ();
+      }
+      else
+      {
+         Sn = Sn ^ 0;                           move16 (); logic16 ();  
+      }
+      
+      noise_bits = shl (noise_bits, 1);
+      noise_bits = noise_bits | (extract_l (*shift_reg) & 1);
+      logic16 (); logic16 (); move16 ();
+      
+      *shift_reg = L_shr (*shift_reg, 1);         
+      test ();
+      if (Sn & 1)
+      {
+         *shift_reg = *shift_reg | 0x40000000L; move32 (); logic32 ();
+      }
+   }
+   return noise_bits;
+}
+
+/***************************************************************************
+*
+*  Function    : build_CN_code
+*
+***************************************************************************/ 
+void build_CN_code (
+    Word32 *seed,         /* i/o : Old CN generator shift register state */
+    Word16 cod[]          /* o   : Generated CN fixed codebook vector    */
+)
+{
+   Word16 i, j, k;
+   
+   for (i = 0; i < L_SUBFR; i++)
+   {
+      cod[i] = 0;                    move16 ();     
+   }
+   
+   for (k = 0; k < NB_PULSE; k++)
+   {
+      i = pseudonoise (seed, 2);      /* generate pulse position */
+      i = shr (extract_l (L_mult (i, 10)), 1);
+      i = add (i, k);
+      
+      j = pseudonoise (seed, 1);      /* generate sign           */
+
+      test ();   
+      if (j > 0)
+      {
+         cod[i] = 4096;              move16 ();                   
+      }
+      else
+      {
+         cod[i] = -4096;             move16 ();                         
+      }
+   }
+   
+   return;
+}
+
+/*************************************************************************
+ *
+ *   FUNCTION NAME: build_CN_param
+ *
+ *************************************************************************/
+void build_CN_param (
+    Word16 *seed,             /* i/o : Old CN generator shift register state */
+    const Word16 n_param,           /* i  : number of params */  
+    const Word16 param_size_table[],/* i : size of params */   
+    Word16 parm[]             /* o : CN Generated params */
+    )
+{
+   Word16 i;
+   const Word16 *p;
+
+   *seed = extract_l(L_add(L_shr(L_mult(*seed, 31821), 1), 13849L));
+
+   p = &window_200_40[*seed & 0x7F]; logic16();
+   for(i=0; i< n_param;i++){
+     move16 (); logic16(); logic16(); logic16();
+     parm[i] = *p++ & ~(0xFFFF<<param_size_table[i]);  
+   }
+}
diff -r f931e704adc5 -r 07f936338de1 libtwamr/b_cn_cod.h
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libtwamr/b_cn_cod.h	Fri Apr 05 17:31:49 2024 +0000
@@ -0,0 +1,104 @@
+/*
+********************************************************************************
+*
+*      GSM AMR-NB speech codec   R98   Version 7.6.0   December 12, 2001
+*                                R99   Version 3.3.0                
+*                                REL-4 Version 4.1.0                
+*
+********************************************************************************
+*
+*      File             : b_cn_cod.h
+*      Purpose          : Contains function for comfort noise generation.
+*
+********************************************************************************
+*/
+#ifndef b_cn_cod_h
+#define b_cn_cod_h "$Id $"
+
+/*
+********************************************************************************
+*                         INCLUDE FILES
+********************************************************************************
+*/
+#include "typedef.h"
+
+/*
+********************************************************************************
+*                         DEFINITION OF DATA TYPES
+********************************************************************************
+*/
+
+/*
+********************************************************************************
+*                         DECLARATION OF PROTOTYPES
+********************************************************************************
+*/
+
+/*************************************************************************
+ *
+ *   FUNCTION NAME: pseudonoise
+ *
+ *   PURPOSE: Generate a random integer value to use in comfort noise
+ *            generation. The algorithm uses polynomial x^31 + x^3 + 1
+ *            (length of PN sequence is 2^31 - 1).
+ *
+ *   INPUTS:      *shift_reg    Old CN generator shift register state
+ *
+ *
+ *   OUTPUTS:     *shift_reg    Updated CN generator shift register state
+ *
+ *   RETURN VALUE: Generated random integer value
+ *
+ *************************************************************************/
+
+Word16 pseudonoise (
+    Word32 *shift_reg, /* i/o : Old CN generator shift register state */
+    Word16 no_bits     /* i   : Number of bits                        */
+);
+
+/*************************************************************************
+ *
+ *   FUNCTION NAME: build_CN_code
+ *
+ *   PURPOSE: Compute the comfort noise fixed codebook excitation. The
+ *            gains of the pulses are always +/-1.
+ *
+ *   INPUTS:      *seed         Old CN generator shift register state
+ *
+ *   OUTPUTS:     cod[0..39]    Generated comfort noise fixed codebook vector
+ *                *seed         Updated CN generator shift register state
+ *
+ *   RETURN VALUE: none
+ *
+ *************************************************************************/
+void build_CN_code (
+    Word32 *seed,         /* i/o : Old CN generator shift register state */
+    Word16 cod[]          /* o   : Generated CN fixed codebook vector    */
+);
+
+/*************************************************************************
+ *
+ *   FUNCTION NAME: build_CN_param
+ *
+ *   PURPOSE: Randomize the speech parameters. So that they 
+ *            do not produce tonal artifacts if used by ECU.
+ *
+ *   INPUTS:      *seed            Old CN generator shift register state
+ *                n_param,         Number of parameters to randomize
+ *                parm_size_table, 
+ *                  
+ *
+ *   OUTPUTS:      parm    CN Generated Parameters
+ *                *seed    Updated CN generator shift register state
+ *
+ *   RETURN VALUE: none
+ *
+ *************************************************************************/
+void build_CN_param (
+    Word16 *seed,              /* i/o : Old CN generator shift register state */
+    const Word16 n_param,            /* i : number of params     */  
+    const Word16 param_size_table[], /* i : size of params       */   
+    Word16 parm[]              /* o   : CN Generated Params*/
+);
+
+#endif
diff -r f931e704adc5 -r 07f936338de1 libtwamr/inv_sqrt.c
--- a/libtwamr/inv_sqrt.c	Fri Apr 05 07:41:31 2024 +0000
+++ b/libtwamr/inv_sqrt.c	Fri Apr 05 17:31:49 2024 +0000
@@ -33,7 +33,6 @@
 */
 #include "namespace.h"
 #include "inv_sqrt.h"
-const char inv_sqrt_id[] = "@(#)$Id $" inv_sqrt_h;
 
 /*
 ********************************************************************************
diff -r f931e704adc5 -r 07f936338de1 libtwamr/namespace.h
--- a/libtwamr/namespace.h	Fri Apr 05 07:41:31 2024 +0000
+++ b/libtwamr/namespace.h	Fri Apr 05 17:31:49 2024 +0000
@@ -67,6 +67,9 @@
 #define	agc_exit	AMR__agc_exit
 #define	agc		AMR__agc
 #define	agc2		AMR__agc2
+#define	pseudonoise	AMR__pseudonoise
+#define	build_CN_code	AMR__build_CN_code
+#define	build_CN_param	AMR__build_CN_param
 
 #define	Bits2prm	AMR__Bits2prm
 #define	Prm2bits	AMR__Prm2bits
@@ -74,5 +77,8 @@
 #define	bitno		AMR__bitno
 #define	prmno		AMR__prmno
 #define	prmnofs		AMR__prmnofs
+#define	window_200_40	AMR__window_200_40
+#define	window_160_80	AMR__window_160_80
+#define	window_232_8	AMR__window_232_8
 
 #endif	/* include guard */
diff -r f931e704adc5 -r 07f936338de1 libtwamr/window.c
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libtwamr/window.c	Fri Apr 05 17:31:49 2024 +0000
@@ -0,0 +1,114 @@
+/*
+********************************************************************************
+*
+*      GSM AMR-NB speech codec   R98   Version 7.6.0   December 12, 2001
+*                                R99   Version 3.3.0                
+*                                REL-4 Version 4.1.0                
+*
+********************************************************************************
+*
+*      File             : window.tab
+*      Purpose          : Hamming_cos window for LPC analysis.
+*      $Id $
+*
+********************************************************************************
+*/
+
+#include "typedef.h"
+#include "namespace.h"
+#include "cnst.h"
+
+/*************************************************************************
+ *
+ * Hamming_cos windows for LPC analysis.
+ *
+ *************************************************************************/
+
+/* window for non-EFR modesm; uses 40 samples lookahead */
+
+const Word16 window_200_40[L_WINDOW] = {
+  2621,  2623,  2629,  2638,  2651,  2668,  2689,  2713,  2741,  2772,
+  2808,  2847,  2890,  2936,  2986,  3040,  3097,  3158,  3223,  3291,
+  3363,  3438,  3517,  3599,  3685,  3774,  3867,  3963,  4063,  4166,
+  4272,  4382,  4495,  4611,  4731,  4853,  4979,  5108,  5240,  5376,
+  5514,  5655,  5800,  5947,  6097,  6250,  6406,  6565,  6726,  6890,
+  7057,  7227,  7399,  7573,  7750,  7930,  8112,  8296,  8483,  8672,
+  8863,  9057,  9252,  9450,  9650,  9852, 10055, 10261, 10468, 10677,
+ 10888, 11101, 11315, 11531, 11748, 11967, 12187, 12409, 12632, 12856,
+ 13082, 13308, 13536, 13764, 13994, 14225, 14456, 14688, 14921, 15155,
+ 15389, 15624, 15859, 16095, 16331, 16568, 16805, 17042, 17279, 17516,
+ 17754, 17991, 18228, 18465, 18702, 18939, 19175, 19411, 19647, 19882,
+ 20117, 20350, 20584, 20816, 21048, 21279, 21509, 21738, 21967, 22194,
+ 22420, 22644, 22868, 23090, 23311, 23531, 23749, 23965, 24181, 24394,
+ 24606, 24816, 25024, 25231, 25435, 25638, 25839, 26037, 26234, 26428,
+ 26621, 26811, 26999, 27184, 27368, 27548, 27727, 27903, 28076, 28247,
+ 28415, 28581, 28743, 28903, 29061, 29215, 29367, 29515, 29661, 29804,
+ 29944, 30081, 30214, 30345, 30472, 30597, 30718, 30836, 30950, 31062,
+ 31170, 31274, 31376, 31474, 31568, 31659, 31747, 31831, 31911, 31988,
+ 32062, 32132, 32198, 32261, 32320, 32376, 32428, 32476, 32521, 32561,
+ 32599, 32632, 32662, 32688, 32711, 32729, 32744, 32755, 32763, 32767,
+ 32767, 32741, 32665, 32537, 32359, 32129, 31850, 31521, 31143, 30716,
+ 30242, 29720, 29151, 28538, 27879, 27177, 26433, 25647, 24821, 23957,
+ 23055, 22117, 21145, 20139, 19102, 18036, 16941, 15820, 14674, 13505,
+ 12315, 11106,  9879,  8637,  7381,  6114,  4838,  3554,  2264,   971};
+
+
+/* window for EFR, first two subframes, no lookahead */
+
+const Word16 window_160_80[L_WINDOW] =
+{
+    2621, 2624, 2633, 2648, 2668, 2695, 2727, 2765, 2809, 2859,
+    2915, 2976, 3043, 3116, 3194, 3279, 3368, 3464, 3565, 3671,
+    3783, 3900, 4023, 4151, 4285, 4423, 4567, 4716, 4870, 5029,
+    5193, 5362, 5535, 5714, 5897, 6084, 6277, 6473, 6674, 6880,
+    7089, 7303, 7521, 7742, 7968, 8197, 8430, 8667, 8907, 9151,
+    9398, 9648, 9902, 10158, 10417, 10680, 10945, 11212, 11482, 11755,
+    12030, 12307, 12586, 12867, 13150, 13435, 13722, 14010, 14299, 14590,
+    14882, 15175, 15469, 15764, 16060, 16356, 16653, 16950, 17248, 17546,
+    17844, 18141, 18439, 18736, 19033, 19330, 19625, 19920, 20214, 20507,
+    20799, 21090, 21380, 21668, 21954, 22239, 22522, 22803, 23083, 23360,
+    23635, 23907, 24177, 24445, 24710, 24972, 25231, 25488, 25741, 25991,
+    26238, 26482, 26722, 26959, 27192, 27422, 27647, 27869, 28087, 28300,
+    28510, 28715, 28916, 29113, 29305, 29493, 29676, 29854, 30028, 30197,
+    30361, 30519, 30673, 30822, 30966, 31105, 31238, 31366, 31489, 31606,
+    31718, 31825, 31926, 32021, 32111, 32195, 32273, 32346, 32413, 32475,
+    32530, 32580, 32624, 32662, 32695, 32721, 32742, 32756, 32765, 32767,
+    32767, 32756, 32720, 32661, 32578, 32471, 32341, 32188, 32012, 31813,
+    31592, 31349, 31084, 30798, 30492, 30165, 29818, 29453, 29068, 28666,
+    28247, 27810, 27358, 26891, 26408, 25913, 25404, 24883, 24350, 23807,
+    23255, 22693, 22124, 21548, 20965, 20378, 19786, 19191, 18593, 17994,
+    17395, 16796, 16199, 15604, 15012, 14424, 13842, 13265, 12696, 12135,
+    11582, 11039, 10507, 9986, 9477, 8981, 8499, 8031, 7579, 7143,
+    6723, 6321, 5937, 5571, 5225, 4898, 4591, 4305, 4041, 3798,
+    3577, 3378, 3202, 3048, 2918, 2812, 2729, 2669, 2633, 2621
+};
+
+/* window for EFR, last two subframes, no lookahead */
+
+const Word16 window_232_8[L_WINDOW] =
+{
+    2621, 2623, 2627, 2634, 2644, 2656, 2671, 2689, 2710, 2734,
+    2760, 2789, 2821, 2855, 2893, 2933, 2975, 3021, 3069, 3120,
+    3173, 3229, 3288, 3350, 3414, 3481, 3550, 3622, 3697, 3774,
+    3853, 3936, 4021, 4108, 4198, 4290, 4385, 4482, 4582, 4684,
+    4788, 4895, 5004, 5116, 5230, 5346, 5464, 5585, 5708, 5833,
+    5960, 6090, 6221, 6355, 6491, 6629, 6769, 6910, 7054, 7200,
+    7348, 7498, 7649, 7803, 7958, 8115, 8274, 8434, 8597, 8761,
+    8926, 9093, 9262, 9432, 9604, 9778, 9952, 10129, 10306, 10485,
+    10665, 10847, 11030, 11214, 11399, 11586, 11773, 11962, 12152, 12342,
+    12534, 12727, 12920, 13115, 13310, 13506, 13703, 13901, 14099, 14298,
+    14497, 14698, 14898, 15100, 15301, 15504, 15706, 15909, 16112, 16316,
+    16520, 16724, 16928, 17132, 17337, 17541, 17746, 17950, 18155, 18359,
+    18564, 18768, 18972, 19175, 19379, 19582, 19785, 19987, 20189, 20390,
+    20591, 20792, 20992, 21191, 21390, 21588, 21785, 21981, 22177, 22372,
+    22566, 22759, 22951, 23143, 23333, 23522, 23710, 23897, 24083, 24268,
+    24451, 24633, 24814, 24994, 25172, 25349, 25525, 25699, 25871, 26042,
+    26212, 26380, 26546, 26711, 26874, 27035, 27195, 27353, 27509, 27664,
+    27816, 27967, 28115, 28262, 28407, 28550, 28691, 28830, 28967, 29102,
+    29234, 29365, 29493, 29619, 29743, 29865, 29985, 30102, 30217, 30330,
+    30440, 30548, 30654, 30757, 30858, 30956, 31052, 31146, 31237, 31326,
+    31412, 31495, 31576, 31655, 31730, 31804, 31874, 31942, 32008, 32071,
+    32131, 32188, 32243, 32295, 32345, 32392, 32436, 32477, 32516, 32552,
+    32585, 32615, 32643, 32668, 32690, 32709, 32726, 32740, 32751, 32759,
+    32765, 32767, 32767, 32097, 30112, 26895, 22576, 17333, 11380, 4962
+};
diff -r f931e704adc5 -r 07f936338de1 libtwamr/window.h
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libtwamr/window.h	Fri Apr 05 17:31:49 2024 +0000
@@ -0,0 +1,16 @@
+/*
+ * This header file holds extern declarations for the tables in window.c,
+ * previously statics in window.tab include file, but now with intermodule
+ * linkage.
+ */
+
+#ifndef	window_h
+#define	window_h
+
+#include "typedef.h"
+
+extern const Word16 window_200_40[L_WINDOW];
+extern const Word16 window_160_80[L_WINDOW];
+extern const Word16 window_232_8[L_WINDOW];
+
+#endif