#include "asterisk.h"
#include <time.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <math.h>
#include <ctype.h>
#include "asterisk/ulaw.h"
#include "asterisk/tdd.h"
#include "asterisk/logger.h"
#include "asterisk/fskmodem.h"
#include "ecdisa.h"
Include dependency graph for tdd.c:
Go to the source code of this file.
Data Structures | |
struct | tdd_state |
Defines | |
#define | PUT_AUDIO_SAMPLE(y) |
#define | PUT_BYTE(a) |
#define | PUT_TDD(byte) |
#define | PUT_TDD_BAUD(bit) |
#define | PUT_TDD_MARKMS |
#define | PUT_TDD_STOP |
#define | TDD_MARK 1400.0 |
#define | TDD_SPACE 1800.0 |
Functions | |
int | ast_tdd_gen_ecdisa (unsigned char *outbuf, int len) |
static int | tdd_decode_baudot (struct tdd_state *tdd, unsigned char data) |
int | tdd_feed (struct tdd_state *tdd, unsigned char *ubuf, int len) |
void | tdd_free (struct tdd_state *tdd) |
int | tdd_generate (struct tdd_state *tdd, unsigned char *buf, const char *str) |
static float | tdd_getcarrier (float *cr, float *ci, int bit) |
void | tdd_init (void) |
tdd_state * | tdd_new (void) |
Variables | |
static float | di [4] |
static float | dr [4] |
static float | tddsb = 176.0 |
Definition in file tdd.c.
#define PUT_AUDIO_SAMPLE | ( | y | ) |
Value:
do { \ int index = (short)(rint(8192.0 * (y))); \ *(buf++) = AST_LIN2MU(index); \ bytes++; \ } while(0)
#define PUT_BYTE | ( | a | ) |
Value:
do { \ *(buf++) = (a); \ bytes++; \ } while(0)
Definition at line 214 of file tdd.c.
Referenced by callerid_generate(), and vmwi_generate().
#define PUT_TDD | ( | byte | ) |
#define PUT_TDD_MARKMS |
Value:
do { \ int x; \ for (x=0;x<8;x++) \ PUT_AUDIO_SAMPLE(tdd_getcarrier(&cr, &ci, 1)); \ } while(0)
#define TDD_MARK 1400.0 |
#define TDD_SPACE 1800.0 |
int ast_tdd_gen_ecdisa | ( | unsigned char * | outbuf, | |
int | len | |||
) |
outbuf | This is the buffer to receive the tone data | |
len | This is the length (in samples) of the tone data to generate Returns 0 if no error, and -1 if error. |
Definition at line 126 of file tdd.c.
References ecdisa, and tdd_state::pos.
Referenced by zt_setoption().
00127 { 00128 int pos = 0; 00129 int cnt; 00130 while (len) { 00131 cnt = len > sizeof(ecdisa) ? sizeof(ecdisa) : len; 00132 memcpy(outbuf + pos, ecdisa, cnt); 00133 pos += cnt; 00134 len -= cnt; 00135 } 00136 return 0; 00137 }
static int tdd_decode_baudot | ( | struct tdd_state * | tdd, | |
unsigned char | data | |||
) | [static] |
Definition at line 64 of file tdd.c.
References tdd_state::modo.
Referenced by tdd_feed().
00065 { 00066 static char ltrs[32] = { '<','E','\n','A',' ','S','I','U', 00067 '\n','D','R','J','N','F','C','K', 00068 'T','Z','L','W','H','Y','P','Q', 00069 'O','B','G','^','M','X','V','^' }; 00070 static char figs[32] = { '<','3','\n','-',' ',',','8','7', 00071 '\n','$','4','\'',',','·',':','(', 00072 '5','+',')','2','·','6','0','1', 00073 '9','7','·','^','.','/','=','^' }; 00074 int d = 0; /* return 0 if not decodeable */ 00075 switch (data) { 00076 case 0x1f: 00077 tdd->modo = 0; 00078 break; 00079 case 0x1b: 00080 tdd->modo = 1; 00081 break; 00082 default: 00083 if (tdd->modo == 0) 00084 d = ltrs[data]; 00085 else 00086 d = figs[data]; 00087 break; 00088 } 00089 return d; 00090 }
int tdd_feed | ( | struct tdd_state * | tdd, | |
unsigned char * | ubuf, | |||
int | samples | |||
) |
tdd | Which state machine to act upon | |
ubuf | containing your samples | |
samples | number of samples contained within the buffer. |
Definition at line 139 of file tdd.c.
References ast_log(), AST_MULAW, free, fsk_serie(), tdd_state::fskd, LOG_ERROR, LOG_NOTICE, LOG_WARNING, malloc, tdd_state::mode, tdd_state::oldlen, tdd_state::oldstuff, and tdd_decode_baudot().
Referenced by zt_read().
00140 { 00141 int mylen = len; 00142 int olen; 00143 int b = 'X'; 00144 int res; 00145 int c,x; 00146 short *buf = malloc(2 * len + tdd->oldlen); 00147 short *obuf = buf; 00148 if (!buf) { 00149 ast_log(LOG_WARNING, "Out of memory\n"); 00150 return -1; 00151 } 00152 memset(buf, 0, 2 * len + tdd->oldlen); 00153 memcpy(buf, tdd->oldstuff, tdd->oldlen); 00154 mylen += tdd->oldlen/2; 00155 for (x = 0; x < len; x++) 00156 buf[x + tdd->oldlen / 2] = AST_MULAW(ubuf[x]); 00157 c = res = 0; 00158 while (mylen >= 1320) { /* has to have enough to work on */ 00159 olen = mylen; 00160 res = fsk_serie(&tdd->fskd, buf, &mylen, &b); 00161 if (mylen < 0) { 00162 ast_log(LOG_ERROR, "fsk_serie made mylen < 0 (%d) (olen was %d)\n", mylen, olen); 00163 free(obuf); 00164 return -1; 00165 } 00166 buf += (olen - mylen); 00167 if (res < 0) { 00168 ast_log(LOG_NOTICE, "fsk_serie failed\n"); 00169 free(obuf); 00170 return -1; 00171 } 00172 if (res == 1) { 00173 /* Ignore invalid bytes */ 00174 if (b > 0x7f) 00175 continue; 00176 c = tdd_decode_baudot(tdd,b); 00177 if ((c < 1) || (c > 126)) continue; /* if not valid */ 00178 break; 00179 } 00180 } 00181 if (mylen) { 00182 memcpy(tdd->oldstuff, buf, mylen * 2); 00183 tdd->oldlen = mylen * 2; 00184 } else 00185 tdd->oldlen = 0; 00186 free(obuf); 00187 if (res) { 00188 tdd->mode = 2; /* put it in mode where it 00189 reliably puts teleprinter in correct shift mode */ 00190 return(c); 00191 } 00192 return 0; 00193 }
void tdd_free | ( | struct tdd_state * | tdd | ) |
int tdd_generate | ( | struct tdd_state * | tdd, | |
unsigned char * | buf, | |||
const char * | string | |||
) |
tdd | tdd structure | |
buf | Buffer to use. This needs to be large enough to accomodate all the generated samples. | |
string | This is the string to send. This function creates a stream of TDD data in ulaw format. It returns the size (in bytes) of the data (if it returns a size of 0, there is probably an error) |
Definition at line 259 of file tdd.c.
References tdd_state::mode, and PUT_TDD.
Referenced by zt_sendtext().
00260 { 00261 int bytes=0; 00262 int i,x; 00263 char c; 00264 static unsigned char lstr[31] = "\000E\nA SIU\rDRJNFCKTZLWHYPQOBG\000MXV"; 00265 static unsigned char fstr[31] = "\0003\n- \00787\r$4',!:(5\")2\0006019?&\000./;"; 00266 /* Initial carriers (real/imaginary) */ 00267 float cr = 1.0; 00268 float ci = 0.0; 00269 float scont = 0.0; 00270 00271 for(x = 0; str[x]; x++) { 00272 c = toupper(str[x]); 00273 #if 0 00274 printf("%c",c); fflush(stdout); 00275 #endif 00276 if (c == 0) { /* send null */ 00277 PUT_TDD(0); 00278 continue; 00279 } 00280 if (c == '\r') { /* send c/r */ 00281 PUT_TDD(8); 00282 continue; 00283 } 00284 if (c == '\n') { /* send c/r and l/f */ 00285 PUT_TDD(8); 00286 PUT_TDD(2); 00287 continue; 00288 } 00289 if (c == ' ') { /* send space */ 00290 PUT_TDD(4); 00291 continue; 00292 } 00293 for (i = 0; i < 31; i++) { 00294 if (lstr[i] == c) 00295 break; 00296 } 00297 if (i < 31) { /* if we found it */ 00298 if (tdd->mode) { /* if in figs mode, change it */ 00299 PUT_TDD(31); /* Send LTRS */ 00300 tdd->mode = 0; 00301 } 00302 PUT_TDD(i); 00303 continue; 00304 } 00305 for (i = 0; i < 31; i++) { 00306 if (fstr[i] == c) 00307 break; 00308 } 00309 if (i < 31) { /* if we found it */ 00310 if (tdd->mode != 1) { /* if in ltrs mode, change it */ 00311 PUT_TDD(27); /* send FIGS */ 00312 tdd->mode = 1; 00313 } 00314 PUT_TDD(i); /* send byte */ 00315 continue; 00316 } 00317 } 00318 return bytes; 00319 }
static float tdd_getcarrier | ( | float * | cr, | |
float * | ci, | |||
int | bit | |||
) | [inline, static] |
Definition at line 200 of file tdd.c.
References t.
00201 { 00202 /* Move along. There's nothing to see here... */ 00203 float t; 00204 t = *cr * dr[bit] - *ci * di[bit]; 00205 *ci = *cr * di[bit] + *ci * dr[bit]; 00206 *cr = t; 00207 00208 t = 2.0 - (*cr * *cr + *ci * *ci); 00209 *cr *= t; 00210 *ci *= t; 00211 return *cr; 00212 }
void tdd_init | ( | void | ) |
Initializes the TDD system. Mostly stuff for inverse FFT
Definition at line 92 of file tdd.c.
References TDD_MARK, and TDD_SPACE.
Referenced by main().
00093 { 00094 /* Initialize stuff for inverse FFT */ 00095 dr[0] = cos(TDD_SPACE * 2.0 * M_PI / 8000.0); 00096 di[0] = sin(TDD_SPACE * 2.0 * M_PI / 8000.0); 00097 dr[1] = cos(TDD_MARK * 2.0 * M_PI / 8000.0); 00098 di[1] = sin(TDD_MARK * 2.0 * M_PI / 8000.0); 00099 }
struct tdd_state* tdd_new | ( | void | ) |
This function returns a malloc'd instance of the tdd_state data structure. Returns a pointer to a malloc'd tdd_state structure, or NULL on error.
Definition at line 101 of file tdd.c.
References ast_log(), LOG_WARNING, and malloc.
Referenced by zt_setoption().
00102 { 00103 struct tdd_state *tdd; 00104 tdd = malloc(sizeof(struct tdd_state)); 00105 if (tdd) { 00106 memset(tdd, 0, sizeof(struct tdd_state)); 00107 tdd->fskd.spb = 176; /* 45.5 baud */ 00108 tdd->fskd.hdlc = 0; /* Async */ 00109 tdd->fskd.nbit = 5; /* 5 bits */ 00110 tdd->fskd.nstop = 1.5; /* 1.5 stop bits */ 00111 tdd->fskd.paridad = 0; /* No parity */ 00112 tdd->fskd.bw=0; /* Filter 75 Hz */ 00113 tdd->fskd.f_mark_idx = 0; /* 1400 Hz */ 00114 tdd->fskd.f_space_idx = 1; /* 1800 Hz */ 00115 tdd->fskd.pcola = 0; /* No clue */ 00116 tdd->fskd.cont = 0; /* Digital PLL reset */ 00117 tdd->fskd.x0 = 0.0; 00118 tdd->fskd.state = 0; 00119 tdd->pos = 0; 00120 tdd->mode = 2; 00121 } else 00122 ast_log(LOG_WARNING, "Out of memory\n"); 00123 return tdd; 00124 }
float dr[4] [static] |
Definition at line 58 of file tdd.c.
Referenced by abort_request(), append_transaction(), build_transactions(), cancel_request(), check_request(), discover_transactions(), dundi_do_lookup(), dundi_lookup_internal(), dundi_lookup_local(), dundi_lookup_thread(), dundi_precache_internal(), dundi_prop_precache(), dundi_query_eid_internal(), dundifunc_read(), optimize_transactions(), precache_trans(), precache_transactions(), query_transactions(), register_request(), and unregister_request().