FreeCalypso > hg > gsm-codec-lib
changeset 255:07f936338de1
libtwamr: integrated up to b_cn_cod.c
| author | Mychaela Falconia <falcon@freecalypso.org> |
|---|---|
| date | Fri, 05 Apr 2024 17:31:49 +0000 |
| parents | f931e704adc5 |
| children | a33edf624061 |
| files | libtwamr/Makefile libtwamr/a_refl.c libtwamr/agc.c libtwamr/autocorr.c libtwamr/az_lsp.c libtwamr/b_cn_cod.c libtwamr/b_cn_cod.h libtwamr/inv_sqrt.c libtwamr/namespace.h libtwamr/window.c libtwamr/window.h |
| diffstat | 11 files changed, 401 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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; /*
--- 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; /* *****************************************************************************
--- 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; /* ********************************************************************************
--- 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
--- /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]); + } +}
--- /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
--- 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; /* ********************************************************************************
--- 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 */
--- /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 +};
--- /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