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
t3000_dialer(char * num,char * acu)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
t3000_disconnect(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
t3000_abort(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*/
sigALRM(int dummy __unused)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
t3000_swallow(const char * volatile match)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
t3000_connect(void)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
t3000_sync(void)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
t3000_write(int fd,const char * cp,int n)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
t3000_verbose_read(void)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
t3000_nap(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*/
t3000_napx(int dummy __unused)388 t3000_napx(int dummy __unused)
389 {
390
391 ringring = 1;
392 }
393