[unix-history] / usr / src / usr.bin / uucp / libacu / rvmacs.c

#ifndef lint
static char sccsid[] = "@(#)rvmacs.c	4.3 (Berkeley) %G%";
#endif

#include "../condevs.h"
#ifdef	RVMACS

/*
 * Racal-Vadic 'RV820' MACS system with 831 adaptor.
 * A typical 300 baud L-devices entry is
 *	ACU tty10 tty11,48 300 rvmacs
 * where tty10 is the communication line (D_Line),
 * tty11 is the dialer line (D_calldev),
 * the '4' is the dialer address + modem type (viz. dialer 0, Bell 103),
 * the '8' is the communication port,
 * We assume the dialer speed is 1200 baud unless MULTISPEED is defined.
 * We extended the semantics of the L-devices entry to allow you
 * to set the speed at which the computer talks to the dialer:
 *	ACU cul0 cua0,0<,2400 1200 rvmacs
 * This is interpreted as above, except that the number following the second
 * comma in the third field is taken to be the speed at which the computer
 * must communicate with the dialer.  (If omitted, it defaults to the value
 * in the fourth field.)  Note -- just after the call completes and you get
 * carrier, the line speed is reset to the speed indicated in the fourth field.
 * To get this ability, define "MULTISPEED", as below.
 *
 */
#define MULTISPEED		/* for dialers which work at various speeds */

#define	STX	02	/* Access Adaptor */
#define	ETX	03	/* Transfer to Dialer */
#define	SI	017	/* Buffer Empty (end of phone number) */
#define	ABORT	01	/* Abort */

#define	pc(fd, x)	(c = x, write(fd, &c, 1))

rvmacsopn(ph, flds, dev)
char *ph, *flds[];
struct Devices *dev;
{
	register int va, i, child;
	register char *p;
	char c, acu[20], com[20];
	int baudrate;
	int timelim;
	int pid, status;
	int zero = 0;
#ifdef MULTISPEED
	char *pp;
#else !MULTISPEED
	struct sgttyb sg;
#endif MULTISPEED

	child = -1;
	sprintf(com, "/dev/%s", dev->D_line);
	sprintf(acu, "/dev/%s", dev->D_calldev);
	if ((p = index(acu, ',')) == NULL) {
		DEBUG(2, "No dialer/modem specification\n", 0);
		return CF_DIAL;
	}
	*p++ = '\0';
#ifdef MULTISPEED
	baudrate = dev->D_speed;
	if ((pp = index(p, ',')) != NULL){
		baudrate = atoi(pp+1);
		DEBUG(5, "Using speed %d baud\n", baudrate);
	}
#endif MULTISPEED
	if (setjmp(Sjbuf)) {
		logent("rvmacsopn", "TIMEOUT");
		goto failret;
	}
	DEBUG(4, "STARTING CALL\n", 0);
	getnextfd();
	signal(SIGALRM, alarmtr);
	timelim = 5 * strlen(ph);
	alarm(timelim < 45 ? 45 : timelim);

	if ((va = open(acu, 2)) < 0) {
		logent(acu, "CAN'T OPEN");
		alarm(0);
		return CF_DIAL;
	}

	/* rti!trt: avoid passing acu file descriptor to children */
	next_fd = -1;
	fioclex(va);

	if ((child = fork()) == 0) {
		/* create child to do dialing */
		sleep(2);
		fclose(stdin);
		fclose(stdout);
#ifdef MULTISPEED
		fixline(va, baudrate);
#else !MULTISPEED
		sg.sg_flags = RAW|ANYP;
		sg.sg_ispeed = sg.sg_ospeed = B1200;
		ioctl(va, TIOCSETP, &sg);
#endif MULTISPEED
		pc(va, ABORT);
		sleep(1);
		ioctl(va, TIOCFLUSH, &zero);
		pc(va, STX);	/* access adaptor */
		pc(va, *p++);	/* Send Dialer Address Digit */
		pc(va, *p);	/* Send Modem Address Digit */
		while (*ph && *ph != '<') {
			switch (*ph) {
			case '_':
			case '-':
			case '=':
				pc(va, '=');
				break;
			default:
				if (*ph >= '0' && *ph <= '9')
					pc(va, *ph);
				break;
			}
			ph++;
		}
		pc(va, '<');	/* Transfer Control to Modem (sigh) */
		pc(va, SI);	/* Send Buffer Empty */
		pc(va, ETX);	/* Initiate Call */
		sleep(1);

		if (read(va, &c, 1) != 1) {
			close(va);
			logent("ACU READ", _FAILED);
			exit(1);
		}
		if (c == 'B' || c == 'G') {
			char cc;
			pc(va, ABORT);
			read(va, &cc, 1);
		}
		DEBUG(4, "Dialer returned %c\n", c);
		close(va);
		exit(c != 'A');
	}
	/*
	 * open line - will return on carrier
	 */
	if ((i = open(com, 2)) < 0) {
		if (errno == EIO)
			logent("carrier", "LOST");
		else
			logent("dialup open", _FAILED);
		goto failret;
	}
	while ((pid = wait(&status)) != child && pid != -1)
		;
	alarm(0);
	if (status) {
		close(i);
		close(va);		/* XXX */
		return CF_DIAL;
	}
	fixline(i, dev->D_speed);
	return i;

failret:
	alarm(0);
	close(va);
	if (child != -1)
		kill(child, SIGKILL);
	return CF_DIAL;
}

rvmacscls(fd)
register int fd;
{
	if (fd > 0) {
		ioctl(fd, TIOCCDTR, STBNULL);
		sleep(1);
		ioctl(fd, TIOCNXCL, STBNULL);
		close(fd);
		delock(devSel);
	}
}
#endif
Commit	Line	Data
fe89f007	1	#ifndef lint
f224aaa1	2	static char sccsid[] = "@(#)rvmacs.c 4.3 (Berkeley) %G%";
fe89f007 RC	3	#endif
	4
	5	#include "../condevs.h"
	6	#ifdef RVMACS
	7
	8	/*
	9	* Racal-Vadic 'RV820' MACS system with 831 adaptor.
	10	* A typical 300 baud L-devices entry is
	11	* ACU tty10 tty11,48 300 rvmacs
	12	* where tty10 is the communication line (D_Line),
	13	* tty11 is the dialer line (D_calldev),
	14	* the '4' is the dialer address + modem type (viz. dialer 0, Bell 103),
	15	* the '8' is the communication port,
389c25f1 JB	16	* We assume the dialer speed is 1200 baud unless MULTISPEED is defined.
	17	* We extended the semantics of the L-devices entry to allow you
	18	* to set the speed at which the computer talks to the dialer:
	19	* ACU cul0 cua0,0<,2400 1200 rvmacs
	20	* This is interpreted as above, except that the number following the second
	21	* comma in the third field is taken to be the speed at which the computer
	22	* must communicate with the dialer. (If omitted, it defaults to the value
	23	* in the fourth field.) Note -- just after the call completes and you get
	24	* carrier, the line speed is reset to the speed indicated in the fourth field.
	25	* To get this ability, define "MULTISPEED", as below.
	26	*
fe89f007	27	*/
389c25f1	28	#define MULTISPEED /* for dialers which work at various speeds */
fe89f007 RC	29
	30	#define STX 02 /* Access Adaptor */
	31	#define ETX 03 /* Transfer to Dialer */
	32	#define SI 017 /* Buffer Empty (end of phone number) */
	33	#define ABORT 01 /* Abort */
	34
	35	#define pc(fd, x) (c = x, write(fd, &c, 1))
	36
	37	rvmacsopn(ph, flds, dev)
	38	char ph, flds[];
	39	struct Devices *dev;
	40	{
	41	register int va, i, child;
	42	register char *p;
fe89f007 RC	43	char c, acu[20], com[20];
	44	int baudrate;
	45	int timelim;
	46	int pid, status;
	47	int zero = 0;
f224aaa1 JB	48	#ifdef MULTISPEED
	49	char *pp;
	50	#else !MULTISPEED
fe89f007	51	struct sgttyb sg;
f224aaa1	52	#endif MULTISPEED
fe89f007 RC	53
	54	child = -1;
	55	sprintf(com, "/dev/%s", dev->D_line);
	56	sprintf(acu, "/dev/%s", dev->D_calldev);
	57	if ((p = index(acu, ',')) == NULL) {
	58	DEBUG(2, "No dialer/modem specification\n", 0);
	59	return CF_DIAL;
	60	}
	61	*p++ = '\0';
389c25f1 JB	62	#ifdef MULTISPEED
	63	baudrate = dev->D_speed;
	64	if ((pp = index(p, ',')) != NULL){
	65	baudrate = atoi(pp+1);
	66	DEBUG(5, "Using speed %d baud\n", baudrate);
	67	}
	68	#endif MULTISPEED
fe89f007 RC	69	if (setjmp(Sjbuf)) {
	70	logent("rvmacsopn", "TIMEOUT");
	71	goto failret;
	72	}
	73	DEBUG(4, "STARTING CALL\n", 0);
	74	getnextfd();
	75	signal(SIGALRM, alarmtr);
	76	timelim = 5 * strlen(ph);
	77	alarm(timelim < 45 ? 45 : timelim);
	78
	79	if ((va = open(acu, 2)) < 0) {
	80	logent(acu, "CAN'T OPEN");
	81	alarm(0);
	82	return CF_DIAL;
	83	}
	84
	85	/* rti!trt: avoid passing acu file descriptor to children */
	86	next_fd = -1;
	87	fioclex(va);
	88
	89	if ((child = fork()) == 0) {
	90	/* create child to do dialing */
	91	sleep(2);
	92	fclose(stdin);
	93	fclose(stdout);
389c25f1 JB	94	#ifdef MULTISPEED
	95	fixline(va, baudrate);
	96	#else !MULTISPEED
fe89f007 RC	97	sg.sg_flags = RAW\|ANYP;
	98	sg.sg_ispeed = sg.sg_ospeed = B1200;
	99	ioctl(va, TIOCSETP, &sg);
389c25f1	100	#endif MULTISPEED
fe89f007 RC	101	pc(va, ABORT);
	102	sleep(1);
	103	ioctl(va, TIOCFLUSH, &zero);
	104	pc(va, STX); /* access adaptor */
	105	pc(va, p++); / Send Dialer Address Digit */
	106	pc(va, p); / Send Modem Address Digit */
	107	while (ph && ph != '<') {
	108	switch (*ph) {
	109	case '_':
	110	case '-':
	111	case '=':
	112	pc(va, '=');
	113	break;
	114	default:
	115	if (ph >= '0' && ph <= '9')
	116	pc(va, *ph);
	117	break;
	118	}
	119	ph++;
	120	}
	121	pc(va, '<'); /* Transfer Control to Modem (sigh) */
	122	pc(va, SI); /* Send Buffer Empty */
	123	pc(va, ETX); /* Initiate Call */
	124	sleep(1);
	125
	126	if (read(va, &c, 1) != 1) {
	127	close(va);
	128	logent("ACU READ", _FAILED);
	129	exit(1);
	130	}
	131	if (c == 'B' \|\| c == 'G') {
	132	char cc;
	133	pc(va, ABORT);
	134	read(va, &cc, 1);
	135	}
	136	DEBUG(4, "Dialer returned %c\n", c);
	137	close(va);
	138	exit(c != 'A');
	139	}
	140	/*
	141	* open line - will return on carrier
	142	*/
	143	if ((i = open(com, 2)) < 0) {
	144	if (errno == EIO)
	145	logent("carrier", "LOST");
	146	else
	147	logent("dialup open", _FAILED);
	148	goto failret;
	149	}
	150	while ((pid = wait(&status)) != child && pid != -1)
	151	;
	152	alarm(0);
	153	if (status) {
	154	close(i);
	155	close(va); /* XXX */
	156	return CF_DIAL;
	157	}
	158	fixline(i, dev->D_speed);
	159	return i;
	160
	161	failret:
	162	alarm(0);
	163	close(va);
	164	if (child != -1)
165	kill(child, SIGKILL);
166	return CF_DIAL;
167	}
168
169	rvmacscls(fd)
170	register int fd;
171	{
172	if (fd > 0) {
173	ioctl(fd, TIOCCDTR, STBNULL);
174	sleep(1);
175	ioctl(fd, TIOCNXCL, STBNULL);
176	close(fd);
177	delock(devSel);
178	}
179	}
180	#endif