Home | History | Annotate | Line # | Download | only in aculib
      1  1.12  christos /*	$NetBSD: biz31.c,v 1.12 2006/12/14 17:09:43 christos 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.8       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.6     lukem #include <sys/cdefs.h>
     33   1.1       cgd #ifndef lint
     34   1.3       jtc #if 0
     35   1.3       jtc static char sccsid[] = "@(#)biz31.c	8.1 (Berkeley) 6/6/93";
     36   1.3       jtc #endif
     37  1.12  christos __RCSID("$NetBSD: biz31.c,v 1.12 2006/12/14 17:09:43 christos Exp $");
     38   1.1       cgd #endif /* not lint */
     39   1.1       cgd 
     40   1.1       cgd #include "tip.h"
     41   1.1       cgd 
     42   1.1       cgd #define MAXRETRY	3		/* sync up retry count */
     43   1.1       cgd #define DISCONNECT_CMD	"\21\25\11\24"	/* disconnection string */
     44   1.1       cgd 
     45  1.12  christos static	void sigALRM(int);
     46   1.1       cgd static	int timeout = 0;
     47   1.1       cgd static	jmp_buf timeoutbuf;
     48   1.1       cgd 
     49  1.12  christos static void echo(const char *);
     50  1.12  christos static int detect(const char *);
     51  1.12  christos static void flush(const char *);
     52  1.12  christos static int bizsync(int);
     53  1.12  christos 
     54   1.1       cgd /*
     55   1.1       cgd  * Dial up on a BIZCOMP Model 1031 with either
     56   1.1       cgd  * 	tone dialing (mod = "f")
     57   1.1       cgd  *	pulse dialing (mod = "w")
     58   1.1       cgd  */
     59   1.1       cgd static int
     60  1.12  christos biz_dialer(char *num, const char *mod)
     61   1.1       cgd {
     62   1.6     lukem 	int connected = 0;
     63   1.1       cgd 
     64   1.1       cgd 	if (!bizsync(FD)) {
     65   1.1       cgd 		logent(value(HOST), "", "biz", "out of sync");
     66  1.12  christos 		(void)printf("bizcomp out of sync\n");
     67   1.1       cgd 		exit(0);
     68   1.1       cgd 	}
     69   1.1       cgd 	if (boolean(value(VERBOSE)))
     70  1.12  christos 		(void)printf("\nstarting call...");
     71   1.1       cgd 	echo("#\rk$\r$\n");			/* disable auto-answer */
     72   1.1       cgd 	echo("$>$.$ #\r");			/* tone/pulse dialing */
     73   1.1       cgd 	echo(mod);
     74   1.1       cgd 	echo("$\r$\n");
     75   1.1       cgd 	echo("$>$.$ #\re$ ");			/* disconnection sequence */
     76   1.1       cgd 	echo(DISCONNECT_CMD);
     77   1.1       cgd 	echo("\r$\n$\r$\n");
     78   1.1       cgd 	echo("$>$.$ #\rr$ ");			/* repeat dial */
     79   1.1       cgd 	echo(num);
     80   1.1       cgd 	echo("\r$\n");
     81   1.1       cgd 	if (boolean(value(VERBOSE)))
     82  1.12  christos 		(void)printf("ringing...");
     83   1.1       cgd 	/*
     84   1.1       cgd 	 * The reply from the BIZCOMP should be:
     85   1.1       cgd 	 *	`^G NO CONNECTION\r\n^G\r\n'	failure
     86   1.1       cgd 	 *	` CONNECTION\r\n^G'		success
     87   1.1       cgd 	 */
     88   1.1       cgd 	connected = detect(" ");
     89   1.1       cgd 	if (!connected)
     90   1.1       cgd 		flush(" NO CONNECTION\r\n\07\r\n");
     91   1.1       cgd 	else
     92   1.1       cgd 		flush("CONNECTION\r\n\07");
     93   1.1       cgd 	if (timeout)
     94   1.1       cgd 		biz31_disconnect();	/* insurance */
     95   1.1       cgd 	return (connected);
     96   1.1       cgd }
     97   1.1       cgd 
     98  1.12  christos int
     99  1.12  christos /*ARGSUSED*/
    100  1.12  christos biz31w_dialer(char *num, char *acu __unused)
    101   1.1       cgd {
    102   1.1       cgd 
    103   1.1       cgd 	return (biz_dialer(num, "w"));
    104   1.1       cgd }
    105   1.1       cgd 
    106  1.12  christos int
    107  1.12  christos /*ARGSUSED*/
    108  1.12  christos biz31f_dialer(char *num, char *acu __unused)
    109   1.1       cgd {
    110   1.1       cgd 
    111   1.1       cgd 	return (biz_dialer(num, "f"));
    112   1.1       cgd }
    113   1.1       cgd 
    114  1.12  christos void
    115   1.9     perry biz31_disconnect(void)
    116   1.1       cgd {
    117   1.1       cgd 
    118  1.12  christos 	(void)write(FD, DISCONNECT_CMD, 4);
    119  1.12  christos 	(void)sleep(2);
    120  1.12  christos 	(void)tcflush(FD, TCIOFLUSH);
    121   1.1       cgd }
    122   1.1       cgd 
    123  1.12  christos void
    124   1.9     perry biz31_abort(void)
    125   1.1       cgd {
    126   1.1       cgd 
    127  1.12  christos 	(void)write(FD, "\33", 1);
    128   1.1       cgd }
    129   1.1       cgd 
    130  1.12  christos static void
    131  1.12  christos echo(const char *s)
    132   1.1       cgd {
    133   1.1       cgd 	char c;
    134   1.1       cgd 
    135  1.12  christos 	while ((c = *s++) != '\0')
    136  1.12  christos 		switch (c) {
    137  1.12  christos 		case '$':
    138  1.12  christos 			(void)read(FD, &c, 1);
    139  1.12  christos 			s++;
    140  1.12  christos 			break;
    141  1.12  christos 
    142  1.12  christos 		case '#':
    143  1.12  christos 			c = *s++;
    144  1.12  christos 			(void)write(FD, &c, 1);
    145  1.12  christos 			break;
    146  1.12  christos 
    147  1.12  christos 		default:
    148  1.12  christos 			(void)write(FD, &c, 1);
    149  1.12  christos 			(void)read(FD, &c, 1);
    150  1.12  christos 		}
    151   1.1       cgd }
    152   1.1       cgd 
    153   1.1       cgd static void
    154  1.12  christos /*ARGSUSED*/
    155  1.12  christos sigALRM(int signo __unused)
    156   1.1       cgd {
    157   1.1       cgd 
    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 int
    163  1.12  christos detect(const char *s)
    164   1.1       cgd {
    165   1.1       cgd 	sig_t f;
    166   1.1       cgd 	char c;
    167   1.1       cgd 
    168   1.1       cgd 	f = signal(SIGALRM, sigALRM);
    169   1.1       cgd 	timeout = 0;
    170   1.1       cgd 	while (*s) {
    171   1.1       cgd 		if (setjmp(timeoutbuf)) {
    172  1.12  christos 			(void)printf("\07timeout waiting for reply\n");
    173   1.1       cgd 			biz31_abort();
    174   1.1       cgd 			break;
    175   1.1       cgd 		}
    176  1.12  christos 		(void)alarm((unsigned)number(value(DIALTIMEOUT)));
    177  1.12  christos 		(void)read(FD, &c, 1);
    178  1.12  christos 		(void)alarm(0);
    179   1.1       cgd 		if (c != *s++)
    180   1.1       cgd 			break;
    181   1.1       cgd 	}
    182  1.12  christos 	(void)signal(SIGALRM, f);
    183   1.1       cgd 	return (timeout == 0);
    184   1.1       cgd }
    185   1.1       cgd 
    186  1.12  christos static void
    187  1.12  christos flush(const char *s)
    188   1.1       cgd {
    189   1.1       cgd 	sig_t f;
    190   1.1       cgd 	char c;
    191   1.1       cgd 
    192   1.1       cgd 	f = signal(SIGALRM, sigALRM);
    193   1.1       cgd 	while (*s++) {
    194   1.1       cgd 		if (setjmp(timeoutbuf))
    195   1.1       cgd 			break;
    196  1.12  christos 		(void)alarm(10);
    197  1.12  christos 		(void)read(FD, &c, 1);
    198  1.12  christos 		(void)alarm(0);
    199   1.1       cgd 	}
    200  1.12  christos 	(void)signal(SIGALRM, f);
    201   1.1       cgd 	timeout = 0;			/* guard against disconnection */
    202   1.1       cgd }
    203   1.1       cgd 
    204   1.1       cgd /*
    205   1.1       cgd  * This convoluted piece of code attempts to get
    206   1.1       cgd  *  the bizcomp in sync.  If you don't have the capacity or nread
    207   1.1       cgd  *  call there are gory ways to simulate this.
    208   1.1       cgd  */
    209   1.1       cgd static int
    210   1.9     perry bizsync(int fd)
    211   1.1       cgd {
    212   1.1       cgd #ifdef FIOCAPACITY
    213   1.1       cgd 	struct capacity b;
    214   1.1       cgd #	define chars(b)	((b).cp_nbytes)
    215   1.1       cgd #	define IOCTL	FIOCAPACITY
    216   1.1       cgd #endif
    217   1.1       cgd #ifdef FIONREAD
    218   1.1       cgd 	long b;
    219   1.1       cgd #	define chars(b)	(b)
    220   1.1       cgd #	define IOCTL	FIONREAD
    221   1.1       cgd #endif
    222   1.6     lukem 	int already = 0;
    223   1.1       cgd 	char buf[10];
    224   1.1       cgd 
    225   1.1       cgd retry:
    226  1.12  christos 	if (ioctl(fd, IOCTL, &b) >= 0 && chars(b) > 0)
    227  1.12  christos 		(void)tcflush(FD, TCIOFLUSH);
    228  1.12  christos 	(void)write(fd, "\rp>\r", 4);
    229  1.12  christos 	(void)sleep(1);
    230  1.12  christos 	if (ioctl(fd, IOCTL, &b) >= 0) {
    231   1.1       cgd 		if (chars(b) != 10) {
    232   1.1       cgd 	nono:
    233   1.1       cgd 			if (already > MAXRETRY)
    234   1.1       cgd 				return (0);
    235  1.12  christos 			(void)write(fd, DISCONNECT_CMD, 4);
    236  1.12  christos 			(void)sleep(2);
    237   1.1       cgd 			already++;
    238   1.1       cgd 			goto retry;
    239   1.1       cgd 		} else {
    240  1.12  christos 			(void)read(fd, buf, 10);
    241   1.1       cgd 			if (strncmp(buf, "p >\r\n\r\n>", 8))
    242   1.1       cgd 				goto nono;
    243   1.1       cgd 		}
    244   1.1       cgd 	}
    245   1.1       cgd 	return (1);
    246   1.1       cgd }
    247