xref: /freebsd/usr.bin/tip/libacu/df.c (revision 4cf49a43559ed9fdad601bdcccd2c55963008675)
1 /*
2  * Copyright (c) 1983, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * Redistribution and use in source and binary forms, with or without
6  * modification, are permitted provided that the following conditions
7  * are met:
8  * 1. Redistributions of source code must retain the above copyright
9  *    notice, this list of conditions and the following disclaimer.
10  * 2. Redistributions in binary form must reproduce the above copyright
11  *    notice, this list of conditions and the following disclaimer in the
12  *    documentation and/or other materials provided with the distribution.
13  * 3. All advertising materials mentioning features or use of this software
14  *    must display the following acknowledgement:
15  *	This product includes software developed by the University of
16  *	California, Berkeley and its contributors.
17  * 4. Neither the name of the University nor the names of its contributors
18  *    may be used to endorse or promote products derived from this software
19  *    without specific prior written permission.
20  *
21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31  * SUCH DAMAGE.
32  */
33 
34 #ifndef lint
35 static char sccsid[] = "@(#)df.c	8.1 (Berkeley) 6/6/93";
36 #endif /* not lint */
37 
38 /*
39  * Dial the DF02-AC or DF03-AC
40  */
41 
42 #include "tipconf.h"
43 #include "tip.h"
44 
45 static jmp_buf Sjbuf;
46 static void timeout();
47 
48 df02_dialer(num, acu)
49 	char *num, *acu;
50 {
51 
52 	return (df_dialer(num, acu, 0));
53 }
54 
55 df03_dialer(num, acu)
56 	char *num, *acu;
57 {
58 
59 	return (df_dialer(num, acu, 1));
60 }
61 
62 df_dialer(num, acu, df03)
63 	char *num, *acu;
64 	int df03;
65 {
66 	register int f = FD;
67 	int speed = 0, rw = 2;
68 	char c = '\0';
69 
70 	acu_hupcl ();
71 
72 	if (setjmp(Sjbuf)) {
73 		printf("connection timed out\r\n");
74 		df_disconnect();
75 		return (0);
76 	}
77 	if (boolean(value(VERBOSE)))
78 		printf("\ndialing...");
79 	fflush(stdout);
80 #ifdef TIOCMSET
81 	if (df03) {
82 		int st = TIOCM_ST;	/* secondary Transmit flag */
83 
84 		if ((speed = acu_getspeed ()) != B1200) {	/* must dial at 1200 baud */
85 			acu_setspeed (B1200);
86 			ioctl(f, TIOCMBIC, &st); /* clear ST for 300 baud */
87 		} else
88 			ioctl(f, TIOCMBIS, &st); /* set ST for 1200 baud */
89 	}
90 #endif
91 	signal(SIGALRM, timeout);
92 	alarm(5 * strlen(num) + 10);
93 	ioctl(f, TIOCFLUSH, &rw);
94 	write(f, "\001", 1);
95 	sleep(1);
96 	write(f, "\002", 1);
97 	write(f, num, strlen(num));
98 	read(f, &c, 1);
99 #ifdef TIOCMSET
100 	if (df03 && speed) {
101 		acu_setspeed (speed);
102 	}
103 #endif
104 	return (c == 'A');
105 }
106 
107 df_disconnect()
108 {
109 	int rw = 2;
110 
111 	write(FD, "\001", 1);
112 	sleep(1);
113 	ioctl(FD, TIOCFLUSH, &rw);
114 }
115 
116 
117 df_abort()
118 {
119 
120 	df_disconnect();
121 }
122 
123 
124 static void
125 timeout()
126 {
127 
128 	longjmp(Sjbuf, 1);
129 }
130