From cabb8583929128937934eeb78f8b22763796168f Mon Sep 17 00:00:00 2001
From: Sam Leffler <sam@ucbvax.Berkeley.EDU>
Date: Mon, 30 Nov 1981 06:48:08 -0800
Subject: [PATCH] date and time created 81/11/29 22:48:08 by sam

SCCS-vsn: usr.bin/tip/aculib/biz22.c 4.1
---
 usr/src/usr.bin/tip/aculib/biz22.c | 140 +++++++++++++++++++++++++++++
 1 file changed, 140 insertions(+)
 create mode 100644 usr/src/usr.bin/tip/aculib/biz22.c

diff --git a/usr/src/usr.bin/tip/aculib/biz22.c b/usr/src/usr.bin/tip/aculib/biz22.c
new file mode 100644
index 0000000000..a591388675
--- /dev/null
+++ b/usr/src/usr.bin/tip/aculib/biz22.c
@@ -0,0 +1,140 @@
+/*	biz22.c	4.1	81/11/29	*/
+#include "tip.h"
+
+#if BIZ1022
+#define DISCONNECT	"\20\04"	/* disconnection string */
+
+static int sigALRM();
+static int timeout = 0;
+
+/*
+ * Dial up on a BIZCOMP Model 1022 with either
+ * 	tone dialing (mod = "V")
+ *	pulse dialing (mod = "W")
+ */
+static int
+biz_dialer(num, mod)
+	char *num, *mod;
+{
+	register int connected = 0;
+	char cbuf[40];
+
+	if (boolean(value(VERBOSE)))
+		printf("\nstarting call...");
+	/*
+	 * Disable auto-answer and configure for tone/pulse
+	 *  dialing
+	 */
+	if (cmd("\02K\r")) {
+		printf("can't initialize bizcomp...");
+		return (0);
+	}
+	strcpy(cbuf, "\02.\r");
+	cbuf[1] = *mod;
+	if (cmd(cbuf)) {
+		printf("can't set dialing mode...");
+		return (0);
+	}
+	strcpy(cbuf, "\02D");
+	strcat(cbuf, num);
+	strcat(cbuf, "\r");
+	write(FD, cbuf, strlen(cbuf));
+	if (!detect("7\r")) {
+		printf("can't get dial tone...");
+		return (0);
+	}
+	if (boolean(value(VERBOSE)))
+		printf("ringing...");
+	/*
+	 * The reply from the BIZCOMP should be:
+	 *	2 \r or 7 \r	failure
+	 *	1 \r		success
+	 */
+	connected = detect("1\r");
+#ifdef ACULOG
+	if (timeout) {
+		char line[80];
+
+		sprintf(line, "%d second dial timeout",
+			number(value(DIALTIMEOUT)));
+		logent(value(HOST), num, "biz1022", line);
+	}
+#endif
+	if (timeout)
+		biz22_disconnect();	/* insurance */
+	return (connected);
+}
+
+biz22w_dialer(num, acu)
+	char *num, *acu;
+{
+	return (biz_dialer(num, "W"));
+}
+
+biz22f_dialer(num, acu)
+	char *num, *acu;
+{
+	return (biz_dialer(num, "V"));
+}
+
+biz22_disconnect()
+{
+	write(FD, DISCONNECT, 4);
+	sleep(2);
+	ioctl(FD, TIOCFLUSH);
+}
+
+biz22_abort()
+{
+	write(FD, "\02", 1);
+	timeout = 1;
+}
+
+static int
+sigALRM()
+{
+	signal(SIGALRM, SIG_IGN);
+	printf("\07timeout waiting for reply\n");
+	timeout = 1;
+}
+
+static int
+cmd(s)
+	register char *s;
+{
+	char c;
+
+	write(FD, s, strlen(s));
+	timeout = 0;
+	signal(SIGALRM, biz22_abort);
+	alarm(number(value(DIALTIMEOUT)));
+	read(FD, &c, 1);
+	alarm(0);
+	signal(SIGALRM, SIG_DFL);
+	if (timeout)
+		return (1);
+	c &= 0177;
+	return (c != '\r');
+}
+
+static int
+detect(s)
+	register char *s;
+{
+	char c;
+
+	signal(SIGALRM, biz22_abort);
+	timeout = 0;
+	while (*s) {
+		alarm(number(value(DIALTIMEOUT)));
+		read(FD, &c, 1);
+		alarm(0);
+		if (timeout)
+			return (0);
+		c &= 0177;
+		if (c != *s++)
+			return (0);
+	}
+	signal(SIGALRM, SIG_DFL);
+	return (1);
+}
-- 
2.20.1