[unix-history] / usr / src / usr.bin / ex / ex_tty.c

/* Copyright (c) 1980 Regents of the University of California */
static char *sccsid = "@(#)ex_tty.c	5.1 %G%";
#include "ex.h"
#include "ex_tty.h"

/*
 * Terminal type initialization routines,
 * and calculation of flags at entry or after
 * a shell escape which may change them.
 */
short	ospeed = -1;

gettmode()
{

#ifndef USG3TTY
	if (gtty(1, &tty) < 0)
		return;
	if (ospeed != tty.sg_ospeed)
		value(SLOWOPEN) = tty.sg_ospeed < B1200;
	ospeed = tty.sg_ospeed;
	normf = tty.sg_flags;
	UPPERCASE = (tty.sg_flags & LCASE) != 0;
	GT = (tty.sg_flags & XTABS) != XTABS && !XT;
	NONL = (tty.sg_flags & CRMOD) == 0;
#else
	if (ioctl(1, TCGETA, &tty) < 0)
		return;
	if (ospeed != tty.c_cflag & CBAUD)
		value(SLOWOPEN) = (tty.c_cflag & CBAUD) < B1200;
	ospeed = tty.c_cflag & CBAUD;
	normf = tty;
	UPPERCASE = (tty.c_iflag & IUCLC) != 0;
	GT = (tty.c_oflag & TABDLY) != TAB3 && !XT;
	NONL = (tty.c_oflag & OCRNL) == 0;
#endif
}

char *xPC;
char **sstrs[] = {
	&AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &DC, &DL, &DM, &DO, &ED, &EI,
	&F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9,
	&HO, &IC, &IM, &IP, &KD, &KE, &KH, &KL, &KR, &KS, &KU, &LL,
	&ND, &xNL, &xPC, &SE, &SF, &SO, &SR, &TA, &TE, &TI, &UP, &VB, &VS, &VE
};
bool *sflags[] = {
	&AM, &BS, &DA, &DB, &EO, &HC, &HZ, &IN, &MI, &NC, &NS, &OS, &UL,
	&XB, &XN, &XT, &XX
};
char **fkeys[10] = {
	&F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9
};
setterm(type)
	char *type;
{
	char *tgoto();
	register int unknown, i;
	register int l;
	char ltcbuf[TCBUFSIZE];

	if (type[0] == 0)
		type = "xx";
	unknown = 0;
	putpad(TE);
	if (tgetent(ltcbuf, type) != 1) {
		unknown++;
		CP(ltcbuf, "xx|dumb:");
	}
	i = LINES = tgetnum("li");
	if (LINES <= 5)
		LINES = 24;
	if (LINES > 48)
		LINES = 48;
	l = LINES;
	if (ospeed < B1200)
		l = 9;	/* including the message line at the bottom */
	else if (ospeed < B2400)
		l = 17;
	aoftspace = tspace;
	zap();
	/*
	 * Initialize keypad arrow keys.
	 */
	arrows[0].cap = KU; arrows[0].mapto = "k"; arrows[0].descr = "up";
	arrows[1].cap = KD; arrows[1].mapto = "j"; arrows[1].descr = "down";
	arrows[2].cap = KL; arrows[2].mapto = "h"; arrows[2].descr = "left";
	arrows[3].cap = KR; arrows[3].mapto = "l"; arrows[3].descr = "right";
	arrows[4].cap = KH; arrows[4].mapto = "H"; arrows[4].descr = "home";

#ifdef TIOCLGET
	/*
	 * Now map users susp char to ^Z, being careful that the susp
	 * overrides any arrow key, but only for hackers (=new tty driver).
	 */
	{
		static char sc[2];
		int i, fnd;

		ioctl(0, TIOCGETD, &ldisc);
		if (ldisc == NTTYDISC) {
			sc[0] = olttyc.t_suspc;
			sc[1] = 0;
			if (olttyc.t_suspc == CTRL(z)) {
				for (i=0; i<=4; i++)
					if (arrows[i].cap[0] == CTRL(z))
						addmac(sc, NULL, NULL, arrows);
			} else
				addmac(sc, "\32", "susp", arrows);
		}
	}
#endif

	options[WINDOW].ovalue = options[WINDOW].odefault = l - 1;
	if (defwind) options[WINDOW].ovalue = defwind;
	options[SCROLL].ovalue = options[SCROLL].odefault = HC ? 11 : ((l-1) / 2);
	COLUMNS = tgetnum("co");
	if (COLUMNS <= 4)
		COLUMNS = 1000;
	if (tgoto(CM, 2, 2)[0] == 'O')	/* OOPS */
		CA = 0, CM = 0;
	else
		CA = 1, costCM = strlen(tgoto(CM, 8, 10));
	PC = xPC ? xPC[0] : 0;
	aoftspace = tspace;
	CP(ttytype, longname(ltcbuf, type));
	if (i <= 0)
		LINES = 2;
	/* proper strings to change tty type */
	termreset();
	gettmode();
	value(REDRAW) = AL && DL;
	value(OPTIMIZE) = !CA && !GT;
	if (unknown)
		serror("%s: Unknown terminal type", type);
}

zap()
{
	register char *namp;
	register bool **fp;
	register char ***sp;

 	namp = "ambsdadbeohchzinmincnsosulxbxnxtxx";
	fp = sflags;
	do {
		*(*fp++) = tgetflag(namp);
		namp += 2;
	} while (*namp);
	namp = "albcbtcdceclcmcrdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcsesfsosrtatetiupvbvsve";
	sp = sstrs;
	do {
		*(*sp++) = tgetstr(namp, &aoftspace);
		namp += 2;
	} while (*namp);
}

char *
longname(bp, def)
	register char *bp;
	char *def;
{
	register char *cp;

	while (*bp && *bp != ':' && *bp != '|')
		bp++;
	if (*bp == '|') {
		bp++;
		cp = bp;
		while (*cp && *cp != ':' && *cp != '|')
			cp++;
		*cp = 0;
		return (bp);
	}
	return (def);
}

char *
fkey(i)
	int i;
{
	if (0 <= i && i <= 9)
		return(*fkeys[i]);
	else
		return(NOSTR);
}
Commit	Line	Data
7c4625ef	1	/* Copyright (c) 1980 Regents of the University of California */
b41bbcb5	2	static char *sccsid = "@(#)ex_tty.c 5.1 %G%";
91d78146 MH	3	#include "ex.h"
	4	#include "ex_tty.h"
	5
	6	/*
	7	* Terminal type initialization routines,
	8	* and calculation of flags at entry or after
	9	* a shell escape which may change them.
	10	*/
	11	short ospeed = -1;
	12
	13	gettmode()
	14	{
	15
d266c416	16	#ifndef USG3TTY
91d78146 MH	17	if (gtty(1, &tty) < 0)
	18	return;
	19	if (ospeed != tty.sg_ospeed)
	20	value(SLOWOPEN) = tty.sg_ospeed < B1200;
	21	ospeed = tty.sg_ospeed;
	22	normf = tty.sg_flags;
	23	UPPERCASE = (tty.sg_flags & LCASE) != 0;
	24	GT = (tty.sg_flags & XTABS) != XTABS && !XT;
	25	NONL = (tty.sg_flags & CRMOD) == 0;
d266c416 MH	26	#else
	27	if (ioctl(1, TCGETA, &tty) < 0)
	28	return;
	29	if (ospeed != tty.c_cflag & CBAUD)
	30	value(SLOWOPEN) = (tty.c_cflag & CBAUD) < B1200;
	31	ospeed = tty.c_cflag & CBAUD;
	32	normf = tty;
	33	UPPERCASE = (tty.c_iflag & IUCLC) != 0;
	34	GT = (tty.c_oflag & TABDLY) != TAB3 && !XT;
	35	NONL = (tty.c_oflag & OCRNL) == 0;
	36	#endif
91d78146 MH	37	}
	38
	39	char *xPC;
	40	char **sstrs[] = {
d266c416	41	&AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &DC, &DL, &DM, &DO, &ED, &EI,
91d78146 MH	42	&F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9,
91d78146 MH	43	&HO, &IC, &IM, &IP, &KD, &KE, &KH, &KL, &KR, &KS, &KU, &LL,
d266c416	44	&ND, &xNL, &xPC, &SE, &SF, &SO, &SR, &TA, &TE, &TI, &UP, &VB, &VS, &VE
91d78146 MH	45	};
91d78146 MH	46	bool *sflags[] = {
d266c416 MH	47	&AM, &BS, &DA, &DB, &EO, &HC, &HZ, &IN, &MI, &NC, &NS, &OS, &UL,
d266c416 MH	48	&XB, &XN, &XT, &XX
91d78146 MH	49	};
	50	char **fkeys[10] = {
	51	&F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9
	52	};
	53	setterm(type)
	54	char *type;
	55	{
d266c416	56	char *tgoto();
91d78146 MH	57	register int unknown, i;
	58	register int l;
	59	char ltcbuf[TCBUFSIZE];
	60
	61	if (type[0] == 0)
	62	type = "xx";
	63	unknown = 0;
	64	putpad(TE);
	65	if (tgetent(ltcbuf, type) != 1) {
	66	unknown++;
887e3e0d	67	CP(ltcbuf, "xx\|dumb:");
91d78146 MH	68	}
	69	i = LINES = tgetnum("li");
	70	if (LINES <= 5)
	71	LINES = 24;
	72	if (LINES > 48)
	73	LINES = 48;
	74	l = LINES;
	75	if (ospeed < B1200)
887e3e0d	76	l = 9; /* including the message line at the bottom */
91d78146	77	else if (ospeed < B2400)
887e3e0d	78	l = 17;
91d78146 MH	79	aoftspace = tspace;
	80	zap();
	81	/*
	82	* Initialize keypad arrow keys.
	83	*/
	84	arrows[0].cap = KU; arrows[0].mapto = "k"; arrows[0].descr = "up";
	85	arrows[1].cap = KD; arrows[1].mapto = "j"; arrows[1].descr = "down";
	86	arrows[2].cap = KL; arrows[2].mapto = "h"; arrows[2].descr = "left";
	87	arrows[3].cap = KR; arrows[3].mapto = "l"; arrows[3].descr = "right";
	88	arrows[4].cap = KH; arrows[4].mapto = "H"; arrows[4].descr = "home";
	89
d266c416 MH	90	#ifdef TIOCLGET
	91	/*
	92	* Now map users susp char to ^Z, being careful that the susp
	93	* overrides any arrow key, but only for hackers (=new tty driver).
	94	*/
	95	{
	96	static char sc[2];
	97	int i, fnd;
	98
	99	ioctl(0, TIOCGETD, &ldisc);
	100	if (ldisc == NTTYDISC) {
	101	sc[0] = olttyc.t_suspc;
	102	sc[1] = 0;
	103	if (olttyc.t_suspc == CTRL(z)) {
	104	for (i=0; i<=4; i++)
	105	if (arrows[i].cap[0] == CTRL(z))
	106	addmac(sc, NULL, NULL, arrows);
	107	} else
	108	addmac(sc, "\32", "susp", arrows);
	109	}
	110	}
	111	#endif
	112
91d78146 MH	113	options[WINDOW].ovalue = options[WINDOW].odefault = l - 1;
	114	if (defwind) options[WINDOW].ovalue = defwind;
	115	options[SCROLL].ovalue = options[SCROLL].odefault = HC ? 11 : ((l-1) / 2);
	116	COLUMNS = tgetnum("co");
d266c416	117	if (COLUMNS <= 4)
91d78146	118	COLUMNS = 1000;
d266c416	119	if (tgoto(CM, 2, 2)[0] == 'O') /* OOPS */
91d78146 MH	120	CA = 0, CM = 0;
	121	else
	122	CA = 1, costCM = strlen(tgoto(CM, 8, 10));
	123	PC = xPC ? xPC[0] : 0;
	124	aoftspace = tspace;
887e3e0d	125	CP(ttytype, longname(ltcbuf, type));
91d78146 MH	126	if (i <= 0)
	127	LINES = 2;
	128	/* proper strings to change tty type */
91d78146 MH	129	termreset();
	130	gettmode();
	131	value(REDRAW) = AL && DL;
	132	value(OPTIMIZE) = !CA && !GT;
	133	if (unknown)
	134	serror("%s: Unknown terminal type", type);
	135	}
	136
	137	zap()
	138	{
	139	register char *namp;
	140	register bool **fp;
	141	register char ***sp;
	142
d266c416	143	namp = "ambsdadbeohchzinmincnsosulxbxnxtxx";
91d78146 MH	144	fp = sflags;
	145	do {
	146	(fp++) = tgetflag(namp);
	147	namp += 2;
	148	} while (*namp);
d266c416	149	namp = "albcbtcdceclcmcrdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcsesfsosrtatetiupvbvsve";
91d78146 MH	150	sp = sstrs;
	151	do {
	152	(sp++) = tgetstr(namp, &aoftspace);
	153	namp += 2;
	154	} while (*namp);
	155	}
	156
	157	char *
	158	longname(bp, def)
	159	register char *bp;
	160	char *def;
	161	{
	162	register char *cp;
	163
	164	while (bp && bp != ':' && *bp != '\|')
	165	bp++;
	166	if (*bp == '\|') {
	167	bp++;
	168	cp = bp;
	169	while (cp && cp != ':' && *cp != '\|')
	170	cp++;
	171	*cp = 0;
	172	return (bp);
	173	}
	174	return (def);
	175	}
	176
	177	char *
	178	fkey(i)
	179	int i;
	180	{
	181	if (0 <= i && i <= 9)
	182	return(*fkeys[i]);
	183	else
	184	return(NOSTR);
	185	}