hayes.c revision 1.12 1 1.12 perry /* $NetBSD: hayes.c,v 1.12 2006/04/03 02:25:27 perry Exp $ */
2 1.3 jtc
3 1.1 cgd /*
4 1.3 jtc * Copyright (c) 1983, 1993
5 1.3 jtc * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.9 agc * 3. Neither the name of the University nor the names of its contributors
16 1.1 cgd * may be used to endorse or promote products derived from this software
17 1.1 cgd * without specific prior written permission.
18 1.1 cgd *
19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 1.1 cgd * SUCH DAMAGE.
30 1.1 cgd */
31 1.1 cgd
32 1.7 lukem #include <sys/cdefs.h>
33 1.1 cgd #ifndef lint
34 1.3 jtc #if 0
35 1.3 jtc static char sccsid[] = "@(#)hayes.c 8.1 (Berkeley) 6/6/93";
36 1.3 jtc #endif
37 1.12 perry __RCSID("$NetBSD: hayes.c,v 1.12 2006/04/03 02:25:27 perry Exp $");
38 1.1 cgd #endif /* not lint */
39 1.1 cgd
40 1.1 cgd /*
41 1.1 cgd * Routines for calling up on a Hayes Modem
42 1.1 cgd * (based on the old VenTel driver).
43 1.1 cgd * The modem is expected to be strapped for "echo".
44 1.1 cgd * Also, the switches enabling the DTR and CD lines
45 1.1 cgd * must be set correctly.
46 1.1 cgd * NOTICE:
47 1.1 cgd * The easy way to hang up a modem is always simply to
48 1.1 cgd * clear the DTR signal. However, if the +++ sequence
49 1.1 cgd * (which switches the modem back to local mode) is sent
50 1.1 cgd * before modem is hung up, removal of the DTR signal
51 1.1 cgd * has no effect (except that it prevents the modem from
52 1.1 cgd * recognizing commands).
53 1.11 perry * (by Helge Skrivervik, Calma Company, Sunnyvale, CA. 1984)
54 1.1 cgd */
55 1.1 cgd /*
56 1.1 cgd * TODO:
57 1.1 cgd * It is probably not a good idea to switch the modem
58 1.1 cgd * state between 'verbose' and terse (status messages).
59 1.11 perry * This should be kicked out and we should use verbose
60 1.1 cgd * mode only. This would make it consistent with normal
61 1.1 cgd * interactive use thru the command 'tip dialer'.
62 1.1 cgd */
63 1.1 cgd #include "tip.h"
64 1.1 cgd
65 1.1 cgd #define min(a,b) ((a < b) ? a : b)
66 1.1 cgd
67 1.1 cgd static int timeout = 0;
68 1.1 cgd static jmp_buf timeoutbuf;
69 1.1 cgd #define DUMBUFLEN 40
70 1.1 cgd static char dumbuf[DUMBUFLEN];
71 1.1 cgd
72 1.1 cgd #define DIALING 1
73 1.1 cgd #define IDLE 2
74 1.1 cgd #define CONNECTED 3
75 1.1 cgd #define FAILED 4
76 1.1 cgd static int state = IDLE;
77 1.1 cgd
78 1.11 perry static void error_rep(char);
79 1.11 perry static char gobble(const char *);
80 1.11 perry static void goodbye(void);
81 1.11 perry static int hay_sync(void);
82 1.11 perry static void sigALRM(int);
83 1.7 lukem
84 1.7 lukem int
85 1.11 perry hay_dialer(char *num, char *acu)
86 1.1 cgd {
87 1.7 lukem char *cp;
88 1.7 lukem int connected = 0;
89 1.1 cgd char dummy;
90 1.4 pk struct termios cntrl;
91 1.12 perry
92 1.1 cgd if (hay_sync() == 0) /* make sure we can talk to the modem */
93 1.1 cgd return(0);
94 1.1 cgd if (boolean(value(VERBOSE)))
95 1.1 cgd printf("\ndialing...");
96 1.1 cgd fflush(stdout);
97 1.4 pk tcgetattr(FD, &cntrl);
98 1.4 pk cntrl.c_cflag |= HUPCL;
99 1.4 pk tcsetattr(FD, TCSANOW, &cntrl);
100 1.4 pk tcflush(FD, TCIOFLUSH);
101 1.1 cgd write(FD, "ATv0\r", 5); /* tell modem to use short status codes */
102 1.1 cgd gobble("\r");
103 1.1 cgd gobble("\r");
104 1.1 cgd write(FD, "ATTD", 4); /* send dial command */
105 1.5 cgd for (cp = num; *cp; cp++)
106 1.5 cgd if (*cp == '=')
107 1.5 cgd *cp = ',';
108 1.1 cgd write(FD, num, strlen(num));
109 1.1 cgd state = DIALING;
110 1.1 cgd write(FD, "\r", 1);
111 1.1 cgd connected = 0;
112 1.1 cgd if (gobble("\r")) {
113 1.1 cgd if ((dummy = gobble("01234")) != '1')
114 1.1 cgd error_rep(dummy);
115 1.1 cgd else
116 1.1 cgd connected = 1;
117 1.1 cgd }
118 1.1 cgd if (connected)
119 1.1 cgd state = CONNECTED;
120 1.1 cgd else {
121 1.1 cgd state = FAILED;
122 1.1 cgd return (connected); /* lets get out of here.. */
123 1.1 cgd }
124 1.4 pk tcflush(FD, TCIOFLUSH);
125 1.1 cgd if (timeout)
126 1.1 cgd hay_disconnect(); /* insurance */
127 1.1 cgd return (connected);
128 1.1 cgd }
129 1.1 cgd
130 1.1 cgd
131 1.7 lukem void
132 1.11 perry hay_disconnect(void)
133 1.1 cgd {
134 1.1 cgd
135 1.1 cgd /* first hang up the modem*/
136 1.1 cgd #ifdef DEBUG
137 1.1 cgd printf("\rdisconnecting modem....\n\r");
138 1.1 cgd #endif
139 1.1 cgd ioctl(FD, TIOCCDTR, 0);
140 1.1 cgd sleep(1);
141 1.1 cgd ioctl(FD, TIOCSDTR, 0);
142 1.1 cgd goodbye();
143 1.1 cgd }
144 1.1 cgd
145 1.7 lukem void
146 1.11 perry hay_abort(void)
147 1.1 cgd {
148 1.1 cgd
149 1.1 cgd write(FD, "\r", 1); /* send anything to abort the call */
150 1.1 cgd hay_disconnect();
151 1.1 cgd }
152 1.1 cgd
153 1.1 cgd static void
154 1.11 perry sigALRM(int dummy)
155 1.1 cgd {
156 1.1 cgd
157 1.1 cgd printf("\07timeout waiting for reply\n\r");
158 1.1 cgd timeout = 1;
159 1.1 cgd longjmp(timeoutbuf, 1);
160 1.1 cgd }
161 1.1 cgd
162 1.1 cgd static char
163 1.11 perry gobble(const char *match)
164 1.1 cgd {
165 1.1 cgd char c;
166 1.1 cgd sig_t f;
167 1.1 cgd int i, status = 0;
168 1.1 cgd
169 1.7 lukem #if __GNUC__ /* XXX pacify gcc */
170 1.7 lukem (void)&status;
171 1.7 lukem #endif
172 1.7 lukem
173 1.1 cgd f = signal(SIGALRM, sigALRM);
174 1.1 cgd timeout = 0;
175 1.1 cgd #ifdef DEBUG
176 1.1 cgd printf("\ngobble: waiting for %s\n", match);
177 1.1 cgd #endif
178 1.1 cgd do {
179 1.1 cgd if (setjmp(timeoutbuf)) {
180 1.1 cgd signal(SIGALRM, f);
181 1.1 cgd return (0);
182 1.1 cgd }
183 1.1 cgd alarm(number(value(DIALTIMEOUT)));
184 1.1 cgd read(FD, &c, 1);
185 1.1 cgd alarm(0);
186 1.1 cgd c &= 0177;
187 1.1 cgd #ifdef DEBUG
188 1.1 cgd printf("%c 0x%x ", c, c);
189 1.1 cgd #endif
190 1.1 cgd for (i = 0; i < strlen(match); i++)
191 1.1 cgd if (c == match[i])
192 1.1 cgd status = c;
193 1.1 cgd } while (status == 0);
194 1.1 cgd signal(SIGALRM, SIG_DFL);
195 1.1 cgd #ifdef DEBUG
196 1.1 cgd printf("\n");
197 1.1 cgd #endif
198 1.1 cgd return (status);
199 1.1 cgd }
200 1.1 cgd
201 1.7 lukem static void
202 1.11 perry error_rep(char c)
203 1.1 cgd {
204 1.8 mrg
205 1.1 cgd printf("\n\r");
206 1.1 cgd switch (c) {
207 1.1 cgd
208 1.1 cgd case '0':
209 1.1 cgd printf("OK");
210 1.1 cgd break;
211 1.1 cgd
212 1.1 cgd case '1':
213 1.1 cgd printf("CONNECT");
214 1.1 cgd break;
215 1.11 perry
216 1.1 cgd case '2':
217 1.1 cgd printf("RING");
218 1.1 cgd break;
219 1.11 perry
220 1.1 cgd case '3':
221 1.1 cgd printf("NO CARRIER");
222 1.1 cgd break;
223 1.11 perry
224 1.1 cgd case '4':
225 1.1 cgd printf("ERROR in input");
226 1.1 cgd break;
227 1.11 perry
228 1.1 cgd case '5':
229 1.1 cgd printf("CONNECT 1200");
230 1.1 cgd break;
231 1.11 perry
232 1.1 cgd default:
233 1.1 cgd printf("Unknown Modem error: %c (0x%x)", c, c);
234 1.1 cgd }
235 1.1 cgd printf("\n\r");
236 1.1 cgd return;
237 1.1 cgd }
238 1.1 cgd
239 1.1 cgd /*
240 1.1 cgd * set modem back to normal verbose status codes.
241 1.1 cgd */
242 1.7 lukem void
243 1.11 perry goodbye(void)
244 1.1 cgd {
245 1.7 lukem int len;
246 1.1 cgd char c;
247 1.1 cgd
248 1.4 pk tcflush(FD, TCIOFLUSH);
249 1.1 cgd if (hay_sync()) {
250 1.1 cgd sleep(1);
251 1.1 cgd #ifndef DEBUG
252 1.4 pk tcflush(FD, TCIOFLUSH);
253 1.1 cgd #endif
254 1.1 cgd write(FD, "ATH0\r", 5); /* insurance */
255 1.1 cgd #ifndef DEBUG
256 1.1 cgd c = gobble("03");
257 1.1 cgd if (c != '0' && c != '3') {
258 1.1 cgd printf("cannot hang up modem\n\r");
259 1.1 cgd printf("please use 'tip dialer' to make sure the line is hung up\n\r");
260 1.1 cgd }
261 1.1 cgd #endif
262 1.1 cgd sleep(1);
263 1.1 cgd ioctl(FD, FIONREAD, &len);
264 1.1 cgd #ifdef DEBUG
265 1.1 cgd printf("goodbye1: len=%d -- ", len);
266 1.1 cgd rlen = read(FD, dumbuf, min(len, DUMBUFLEN));
267 1.1 cgd dumbuf[rlen] = '\0';
268 1.1 cgd printf("read (%d): %s\r\n", rlen, dumbuf);
269 1.1 cgd #endif
270 1.1 cgd write(FD, "ATv1\r", 5);
271 1.1 cgd sleep(1);
272 1.1 cgd #ifdef DEBUG
273 1.1 cgd ioctl(FD, FIONREAD, &len);
274 1.1 cgd printf("goodbye2: len=%d -- ", len);
275 1.1 cgd rlen = read(FD, dumbuf, min(len, DUMBUFLEN));
276 1.1 cgd dumbuf[rlen] = '\0';
277 1.1 cgd printf("read (%d): %s\r\n", rlen, dumbuf);
278 1.1 cgd #endif
279 1.1 cgd }
280 1.4 pk tcflush(FD, TCIOFLUSH);
281 1.1 cgd ioctl(FD, TIOCCDTR, 0); /* clear DTR (insurance) */
282 1.1 cgd close(FD);
283 1.1 cgd }
284 1.1 cgd
285 1.1 cgd #define MAXRETRY 5
286 1.1 cgd
287 1.7 lukem int
288 1.11 perry hay_sync(void)
289 1.1 cgd {
290 1.1 cgd int len, retry = 0;
291 1.1 cgd
292 1.1 cgd while (retry++ <= MAXRETRY) {
293 1.1 cgd write(FD, "AT\r", 3);
294 1.1 cgd sleep(1);
295 1.1 cgd ioctl(FD, FIONREAD, &len);
296 1.1 cgd if (len) {
297 1.1 cgd len = read(FD, dumbuf, min(len, DUMBUFLEN));
298 1.11 perry if (strchr(dumbuf, '0') ||
299 1.7 lukem (strchr(dumbuf, 'O') && strchr(dumbuf, 'K')))
300 1.1 cgd return(1);
301 1.1 cgd #ifdef DEBUG
302 1.1 cgd dumbuf[len] = '\0';
303 1.1 cgd printf("hay_sync: (\"%s\") %d\n\r", dumbuf, retry);
304 1.1 cgd #endif
305 1.1 cgd }
306 1.1 cgd ioctl(FD, TIOCCDTR, 0);
307 1.1 cgd ioctl(FD, TIOCSDTR, 0);
308 1.1 cgd }
309 1.1 cgd printf("Cannot synchronize with hayes...\n\r");
310 1.1 cgd return(0);
311 1.1 cgd }
312