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