Hi Benjamin,
That whole file will deleted soon. :-)
Steve
Benjamin Larsson wrote:
> Courtesy of Víctor Paesa.
>
> MvH
> Benjamin Larsson
>
>------------------------------------------------------------------------
>
>Index: fskmodem.c
>===================================================================
>--- fskmodem.c (revision 48224)
>+++ fskmodem.c (working copy)
>@@ -26,8 +26,6 @@
> *
> * \arg Includes code and algorithms from the Zapata library.
> *
>- * \todo - REMOVE ALL SPANISH COMMENTS AND TRANSLATE THEM TO ENGLISH. Thank
>you.
>- * Swedish will work too :-)
> */
>
> #include "asterisk.h"
>@@ -59,11 +57,11 @@
>
> #define GET_SAMPLE get_sample(&buffer, len)
>
>-/* Coeficientes para filtros de entrada
>*/
>-/* Tabla de coeficientes, generada a partir del programa "mkfilter" */
>-/* Formato: coef[IDX_FREC][IDX_BW][IDX_COEF] */
>+/* Coefficients for input filters */
>+/* Coefficients table, generated by program "mkfilter"
>*/
>+/* Format: coef[IDX_FREC][IDX_BW][IDX_COEF] */
> /* IDX_COEF = 0 => 1/GAIN
> */
>-/* IDX_COEF = 1-6 => Coeficientes y[n] */
>+/* IDX_COEF = 1-6 => Coefficientes y[n] */
>
> static double coef_in[NF][NBW][8] = {
> {
>@@ -91,12 +89,11 @@
> {
> 9.8531160936e-02,-5.6297236492e-02,-5.7284484199e-02,-4.3673866734e-01,-1.9564766257e-01,-6.2028156584e-01,-3.4692356122e-01,0.0000000000e+00,
> },
> },
> };
>-
>-/* Coeficientes para filtro de salida */
>-/* Tabla de coeficientes, generada a partir del programa "mkfilter" */
>-/* Formato: coef[IDX_BW][IDX_COEF] */
>+/* Coefficients for output filter */
>+/* Coefficients table, generated by program "mkfilter"
>*/
>+/* Format: coef[IDX_BW][IDX_COEF] */
> /* IDX_COEF = 0 => 1/GAIN
> */
>-/* IDX_COEF = 1-6 => Coeficientes y[n] */
>+/* IDX_COEF = 1-6 => Coefficientes y[n] */
>
> static double coef_out[NBW][8] = {
> {
> 1.3868644653e-08,-6.3283665042e-01,4.0895057217e+00,-1.1020074592e+01,1.5850766191e+01,-1.2835109292e+01,5.5477477340e+00,0.0000000000e+00,
> },
>@@ -104,7 +101,7 @@
> };
>
>
>-/*! Filtro pasa-banda para frecuencia de MARCA */
>+/*! Band-pass filter for MARK frequency */
> static inline float filtroM(fsk_data *fskd,float in)
> {
> int i, j;
>@@ -123,7 +120,7 @@
> return s;
> }
>
>-/*! Filtro pasa-banda para frecuencia de ESPACIO */
>+/*! Band-pass filter for SPACE frequency */
> static inline float filtroS(fsk_data *fskd,float in)
> {
> int i, j;
>@@ -142,7 +139,7 @@
> return s;
> }
>
>-/*! Filtro pasa-bajos para datos demodulados */
>+/*! Low-pass filter for demodulated data */
> static inline float filtroL(fsk_data *fskd,float in)
> {
> int i, j;
>@@ -187,7 +184,7 @@
>
> static int get_bit_raw(fsk_data *fskd, short *buffer, int *len)
> {
>- /* Esta funcion implementa un DPLL para sincronizarse con los bits */
>+ /* This function implements a DPLL to synchronize with the bits */
> float x,spb,spb2,ds;
> int f;
>
>@@ -200,7 +197,7 @@
> for (f = 0;;) {
> if (demodulador(fskd, &x, GET_SAMPLE))
> return -1;
>- if ((x * fskd->x0) < 0) { /* Transicion */
>+ if ((x * fskd->x0) < 0) { /* Transition */
> if (!f) {
> if (fskd->cont<(spb2))
> fskd->cont += ds;
>@@ -236,7 +233,7 @@
> case STATE_GET_BYTE:
> goto getbyte;
> }
>- /* Esperamos bit de start */
>+ /* We await for start bit */
> do {
> /* this was jesus's nice, reasonable, working (at least with
> RTTY) code
> to look for the beginning of the start bit. Unfortunately,
> since TTY/TDD's
>@@ -273,7 +270,7 @@
> break;
> }
> search_startbit3:
>- /* Esperamos 0.5 bits antes de usar DPLL */
>+ /* We await for 0.5 bits before using DPLL */
> i = fskd->spb/2;
> if (*len < i) {
> fskd->state = STATE_SEARCH_STARTBIT3;
>@@ -288,7 +285,7 @@
> samples++;
> }
>
>- /* x1 debe ser negativo (confirmación del bit de start) */
>+ /* x1 must be negative (start bit confirmation) */
>
> } while (fskd->x1 > 0);
> fskd->state = STATE_GET_BYTE;
>@@ -304,7 +301,7 @@
> if (*len < 80)
> return 0;
> }
>- /* Leemos ahora los bits de datos */
>+ /* Now we read the data bits */
> j = fskd->nbit;
> for (a = n1 = 0; j; j--) {
> olen = *len;
>@@ -320,7 +317,7 @@
> j = 8-fskd->nbit;
> a >>= j;
>
>- /* Leemos bit de paridad (si existe) y la comprobamos */
>+ /* We read parity bit (if exists) and check parity */
> if (fskd->paridad) {
> olen = *len;
> i = get_bit_raw(fskd, buffer, len);
>@@ -329,16 +326,16 @@
> return(-1);
> if (i)
> n1++;
>- if (fskd->paridad == 1) { /* paridad = 1 (par) */
>+ if (fskd->paridad == 1) { /* parity=1 (even) */
> if (n1&1)
> a |= 0x100; /* error */
>- } else { /* paridad = 2 (impar) */
>+ } else { /* parity=2 (odd) */
> if (!(n1&1))
> a |= 0x100; /* error */
> }
> }
>
>- /* Leemos bits de STOP. Todos deben ser 1 */
>+ /* We read STOP bits. All of them must be 1 */
>
> for (j = fskd->nstop;j;j--) {
> r = get_bit_raw(fskd, buffer, len);
>@@ -348,9 +345,9 @@
> a |= 0x200;
> }
>
>- /* Por fin retornamos */
>- /* Bit 8 : Error de paridad */
>- /* Bit 9 : Error de Framming */
>+ /* And finally we return */
>+ /* Bit 8 : Parity error */
>+ /* Bit 9 : Framming error*/
>
> *outbyte = a;
> fskd->state = STATE_SEARCH_STARTBIT;
>
>
>------------------------------------------------------------------------
>
>_______________________________________________
>Openpbx-dev mailing list
>[email protected]
>http://lists.openpbx.org/mailman/listinfo/openpbx-dev
>
>
_______________________________________________
Openpbx-dev mailing list
[email protected]
http://lists.openpbx.org/mailman/listinfo/openpbx-dev
