1 /* $NetBSD: t3000.c,v 1.15 2006/12/14 17:09:43 christos Exp $ */ 2 3 /* 4 * Copyright (c) 1992, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. Neither the name of the University nor the names of its contributors 16 * may be used to endorse or promote products derived from this software 17 * without specific prior written permission. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 * SUCH DAMAGE. 30 */ 31 32 #include <sys/cdefs.h> 33 #ifndef lint 34 #if 0 35 static char sccsid[] = "@(#)t3000.c 8.1 (Berkeley) 6/6/93"; 36 #endif 37 __RCSID("$NetBSD: t3000.c,v 1.15 2006/12/14 17:09:43 christos Exp $"); 38 #endif /* not lint */ 39 40 /* 41 * Routines for calling up on a Telebit T3000 modem. 42 * Derived from Courier driver. 43 */ 44 #include "tip.h" 45 46 #define MAXRETRY 5 47 48 static int timeout = 0; 49 static int connected = 0; 50 static jmp_buf timeoutbuf; 51 52 static void sigALRM(int); 53 static int t3000_connect(void); 54 static void t3000_nap(void); 55 static void t3000_napx(int); 56 static int t3000_swallow(const char *); 57 static int t3000_sync(void); 58 static void t3000_write(int, const char *, int); 59 60 int 61 t3000_dialer(char *num, char *acu) 62 { 63 char *cp; 64 struct termios cntrl; 65 66 if (boolean(value(VERBOSE))) 67 (void)printf("Using \"%s\"\n", acu); 68 69 (void)tcgetattr(FD, &cntrl); 70 cntrl.c_cflag |= HUPCL; 71 (void)tcsetattr(FD, TCSANOW, &cntrl); 72 /* 73 * Get in synch. 74 */ 75 if (!t3000_sync()) { 76 badsynch: 77 (void)printf("can't synchronize with t3000\n"); 78 return (0); 79 } 80 t3000_write(FD, "AT E0\r", 6); /* turn off echoing */ 81 (void)sleep(1); 82 #ifdef DEBUG 83 if (boolean(value(VERBOSE))) 84 t3000_verbose_read(); 85 #endif 86 (void)tcflush(FD, TCIOFLUSH); 87 t3000_write(FD, "AT E0 H0 Q0 X4 V1\r", 18); 88 if (!t3000_swallow("\r\nOK\r\n")) 89 goto badsynch; 90 (void)fflush(stdout); 91 t3000_write(FD, "AT D", 4); 92 for (cp = num; *cp; cp++) 93 if (*cp == '=') 94 *cp = ','; 95 t3000_write(FD, num, (int)strlen(num)); 96 t3000_write(FD, "\r", 1); 97 connected = t3000_connect(); 98 if (timeout) 99 t3000_disconnect(); 100 return (connected); 101 } 102 103 void 104 t3000_disconnect(void) 105 { 106 /* first hang up the modem*/ 107 (void)ioctl(FD, TIOCCDTR, 0); 108 (void)sleep(1); 109 (void)ioctl(FD, TIOCSDTR, 0); 110 (void)t3000_sync(); /* reset */ 111 (void)close(FD); 112 } 113 114 void 115 t3000_abort(void) 116 { 117 t3000_write(FD, "\r", 1); /* send anything to abort the call */ 118 t3000_disconnect(); 119 } 120 121 static void 122 /*ARGSUSED*/ 123 sigALRM(int dummy __unused) 124 { 125 (void)printf("\07timeout waiting for reply\n"); 126 timeout = 1; 127 longjmp(timeoutbuf, 1); 128 } 129 130 static int 131 t3000_swallow(const char * volatile match) 132 { 133 sig_t f; 134 char c; 135 136 f = signal(SIGALRM, sigALRM); 137 timeout = 0; 138 do { 139 if (*match =='\0') { 140 (void)signal(SIGALRM, f); 141 return (1); 142 } 143 if (setjmp(timeoutbuf)) { 144 (void)signal(SIGALRM, f); 145 return (0); 146 } 147 (void)alarm((unsigned)number(value(DIALTIMEOUT))); 148 (void)read(FD, &c, 1); 149 (void)alarm(0); 150 c &= 0177; 151 #ifdef DEBUG 152 if (boolean(value(VERBOSE))) 153 (void)putchar(c); 154 #endif 155 } while (c == *match++); 156 #ifdef DEBUG 157 if (boolean(value(VERBOSE))) 158 (void)fflush(stdout); 159 #endif 160 (void)signal(SIGALRM, SIG_DFL); 161 return (0); 162 } 163 164 #ifndef B19200 /* XXX */ 165 #define B19200 EXTA 166 #define B38400 EXTB 167 #endif 168 169 struct tbaud_msg { 170 const char *msg; 171 unsigned int baud; 172 unsigned int baud2; 173 } tbaud_msg[] = { 174 { "", B300, 0 }, 175 { " 1200", B1200, 0 }, 176 { " 2400", B2400, 0 }, 177 { " 4800", B4800, 0 }, 178 { " 9600", B9600, 0 }, 179 { " 14400", B19200, B9600 }, 180 { " 19200", B19200, B9600 }, 181 { " 38400", B38400, B9600 }, 182 { " 57600", B38400, B9600 }, 183 { " 7512", B9600, 0 }, 184 { " 1275", B2400, 0 }, 185 { " 7200", B9600, 0 }, 186 { " 12000", B19200, B9600 }, 187 { 0, 0, 0 }, 188 }; 189 190 static int 191 t3000_connect(void) 192 { 193 char c; 194 int volatile nc; 195 int volatile nl; 196 int n; 197 char dialer_buf[64]; 198 struct tbaud_msg *bm; 199 sig_t f; 200 201 if (t3000_swallow("\r\n") == 0) 202 return (0); 203 f = signal(SIGALRM, sigALRM); 204 again: 205 (void)memset(dialer_buf, 0, sizeof(dialer_buf)); 206 timeout = 0; 207 for (nc = 0, nl = sizeof(dialer_buf)-1 ; nl > 0 ; nc++, nl--) { 208 if (setjmp(timeoutbuf)) 209 break; 210 (void)alarm((unsigned)number(value(DIALTIMEOUT))); 211 n = read(FD, &c, 1); 212 (void)alarm(0); 213 if (n <= 0) 214 break; 215 c &= 0x7f; 216 if (c == '\r') { 217 if (t3000_swallow("\n") == 0) 218 break; 219 if (!dialer_buf[0]) 220 goto again; 221 if (strcmp(dialer_buf, "RINGING") == 0 && 222 boolean(value(VERBOSE))) { 223 #ifdef DEBUG 224 (void)printf("%s\r\n", dialer_buf); 225 #endif 226 goto again; 227 } 228 if (strncmp(dialer_buf, "CONNECT", 229 sizeof("CONNECT")-1) != 0) 230 break; 231 for (bm = tbaud_msg ; bm->msg ; bm++) 232 if (strcmp(bm->msg, 233 dialer_buf+sizeof("CONNECT")-1) == 0) { 234 struct termios cntrl; 235 236 (void)tcgetattr(FD, &cntrl); 237 (void)cfsetospeed(&cntrl, bm->baud); 238 (void)cfsetispeed(&cntrl, bm->baud); 239 (void)tcsetattr(FD, TCSAFLUSH, &cntrl); 240 (void)signal(SIGALRM, f); 241 #ifdef DEBUG 242 if (boolean(value(VERBOSE))) 243 (void)printf("%s\r\n", dialer_buf); 244 #endif 245 return (1); 246 } 247 break; 248 } 249 dialer_buf[nc] = c; 250 #ifdef notdef 251 if (boolean(value(VERBOSE))) 252 (void)putchar(c); 253 #endif 254 } 255 (void)printf("%s\r\n", dialer_buf); 256 (void)signal(SIGALRM, f); 257 return (0); 258 } 259 260 /* 261 * This convoluted piece of code attempts to get 262 * the t3000 in sync. 263 */ 264 static int 265 t3000_sync(void) 266 { 267 int already = 0; 268 int len; 269 char buf[40]; 270 271 while (already++ < MAXRETRY) { 272 (void)tcflush(FD, TCIOFLUSH); 273 t3000_write(FD, "\rAT Z\r", 6); /* reset modem */ 274 (void)memset(buf, 0, sizeof(buf)); 275 (void)sleep(2); 276 (void)ioctl(FD, FIONREAD, &len); 277 #if 1 278 if (len == 0) len = 1; 279 #endif 280 if (len) { 281 len = read(FD, buf, sizeof(buf)); 282 #ifdef DEBUG 283 buf[len] = '\0'; 284 (void)printf("t3000_sync: (\"%s\")\n\r", buf); 285 #endif 286 if (strchr(buf, '0') || 287 (strchr(buf, 'O') && strchr(buf, 'K'))) 288 return(1); 289 } 290 /* 291 * If not strapped for DTR control, 292 * try to get command mode. 293 */ 294 (void)sleep(1); 295 t3000_write(FD, "+++", 3); 296 (void)sleep(1); 297 /* 298 * Toggle DTR to force anyone off that might have left 299 * the modem connected. 300 */ 301 (void)ioctl(FD, TIOCCDTR, 0); 302 (void)sleep(1); 303 (void)ioctl(FD, TIOCSDTR, 0); 304 } 305 t3000_write(FD, "\rAT Z\r", 6); 306 return (0); 307 } 308 309 static void 310 t3000_write(int fd, const char *cp, int n) 311 { 312 313 #ifdef notdef 314 if (boolean(value(VERBOSE))) 315 (void)write(1, cp, n); 316 #endif 317 (void)tcdrain(fd); 318 t3000_nap(); 319 for ( ; n-- ; cp++) { 320 (void)write(fd, cp, 1); 321 (void)tcdrain(fd); 322 t3000_nap(); 323 } 324 } 325 326 #ifdef DEBUG 327 t3000_verbose_read(void) 328 { 329 int n = 0; 330 char buf[BUFSIZ]; 331 332 if (ioctl(FD, FIONREAD, &n) < 0) 333 return; 334 if (n <= 0) 335 return; 336 if (read(FD, buf, n) != n) 337 return; 338 (void)write(1, buf, n); 339 } 340 #endif 341 342 #define setsa(sa, a) \ 343 sa.sa_handler = a; (void)sigemptyset(&sa.sa_mask); sa.sa_flags = 0 344 345 static int napms = 50; /* Give the t3000 50 milliseconds between characters */ 346 347 static int ringring; 348 349 void 350 t3000_nap(void) 351 { 352 353 struct itimerval itv, oitv; 354 struct itimerval *itp = &itv; 355 struct sigaction sa, osa; 356 sigset_t sm, osm; 357 358 timerclear(&itp->it_interval); 359 timerclear(&itp->it_value); 360 if (setitimer(ITIMER_REAL, itp, &oitv) < 0) 361 return; 362 363 (void)sigemptyset(&sm); 364 (void)sigaddset(&sm, SIGALRM); 365 (void)sigprocmask(SIG_BLOCK, &sm, &osm); 366 367 itp->it_value.tv_sec = napms/1000; 368 itp->it_value.tv_usec = ((napms%1000)*1000); 369 370 setsa(sa, t3000_napx); 371 (void)sigaction(SIGALRM, &sa, &osa); 372 373 (void)setitimer(ITIMER_REAL, itp, NULL); 374 375 sm = osm; 376 (void)sigdelset(&sm, SIGALRM); 377 378 for (ringring = 0; !ringring; ) 379 (void)sigsuspend(&sm); 380 381 (void)sigaction(SIGALRM, &osa, NULL); 382 (void)setitimer(ITIMER_REAL, &oitv, NULL); 383 (void)sigprocmask(SIG_SETMASK, &osm, NULL); 384 } 385 386 static void 387 /*ARGSUSED*/ 388 t3000_napx(int dummy __unused) 389 { 390 391 ringring = 1; 392 } 393