Subversion Repositories planix.SVN

/*

 * Copyright (c) 1980 Regents of the University of California.

 * All rights reserved.  The Berkeley software License Agreement

 * specifies the terms and conditions for redistribution.

 */

#if	!defined(lint) && defined(DOSCCS)

static char *sccsid = "@(#)ex_tty.c	7.10.1 (2.11BSD GTE) 12/9/94";

#endif

#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;	mjm: def also in tputs.c of termcap.a  */

short	o_speed = -1;

gettmode()

{

/*a XXX

#ifndef USG3TTY

	if (gtty(1, &tty) < 0)

		return;

	if (o_speed != tty.sg_ospeed)

		value(SLOWOPEN) = tty.sg_ospeed < B1200;

	o_speed = tty.sg_ospeed;

	normf = tty.sg_flags;

	GT = (tty.sg_flags & XTABS) != XTABS && !XT;

	NONL = (tty.sg_flags & CRMOD) == 0;

#else

	if (ioctl(1, TCGETA, &tty) < 0)

		return;

	if (o_speed != (tty.c_cflag & CBAUD))	// mjm 

		value(SLOWOPEN) = (tty.c_cflag & CBAUD) < B1200;

	o_speed = tty.c_cflag & CBAUD;

	normf = tty;

	GT = (tty.c_oflag & TABDLY) != TAB3 && !XT;

	NONL = (tty.c_oflag & ONLCR) == 0;

#endif */

}

char *xPC;

char **sstrs[] = {

	&AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &CS, &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, &RC, &SC, &SE, &SF, &SO, &SR, &TA, &TE, &TI, &UP, &VB, &VS, &VE,

	&AL_PARM, &DL_PARM, &UP_PARM, &DOWN_PARM, &LEFT_PARM, &RIGHT_PARM

};

bool *sflags[] = {

	&AM, &BS, &DA, &DB, &EO, &HC, &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;

	char ltcbuf[TCBUFSIZE];

	if (type[0] == 0)

		type = "xx";

	unknown = 0;

	putpad(TE);

#ifdef	NCURSES

	snprintf(ltcbuf, TCBUFSIZE, "%s:", type);

#endif

	if (tgetent(ltcbuf, type) != 1) {

		unknown++;

		strcpy(ltcbuf, "xx|dumb:");

	}

	setsize();

	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";

	/*

	 * Handle funny termcap capabilities

	 */

	if (CS && SC && RC) {

		if (AL==NULL) AL="";

		if (DL==NULL) DL="";

	}

	if (AL_PARM && AL==NULL) AL="";

	if (DL_PARM && DL==NULL) DL="";

	if (IC && IM==NULL) IM="";

	if (IC && EI==NULL) EI="";

	if (!GT) BT=NULL;	/* If we can't tab, we can't backtab either */

#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 &&

					    arrows[i].cap[0] == CTRL('z'))

						addmac(sc, NULL, NULL, arrows);

			} else

				addmac(sc, "\32", "susp", arrows);

		}

	}

#endif

	if (CM != 0) {

		if (tgoto(CM, 2, 2)[0] == 'O')	/* OOPS */

			CA = 0, CM = 0;

		else

			CA = 1, costCM = cost(tgoto(CM, 8, 10));

	} else {

		CA = 0, CM = 0;

	}

	costSR = cost(SR);

	costAL = cost(AL);

	costDP = cost(tgoto(DOWN_PARM, 10, 10));

	costLP = cost(tgoto(LEFT_PARM, 10, 10));

	costRP = cost(tgoto(RIGHT_PARM, 10, 10));

	PC = xPC ? xPC[0] : 0;

	aoftspace = tspace;

	strcpy(ttytype, longname(ltcbuf, type));

	/* proper strings to change tty type */

	termreset();

	gettmode();

	value(REDRAW) = AL && DL;

	value(OPTIMIZE) = !CA && !GT;

	if (o_speed == B1200 && !value(REDRAW))

		value(SLOWOPEN) = 1;	/* see also gettmode above */

	if (unknown)

		serror("%s: Unknown terminal type", type);

}

setsize()

{

/* XXX	register int l, i;

	struct winsize win;

	if (ioctl(0, TIOCGWINSZ, &win) < 0) {

		i = LINES = tgetnum("li");

		COLUMNS = tgetnum("co");

	} else {

		if ((LINES = winsz.ws_row = win.ws_row) == 0)

			LINES = tgetnum("li");

		i = LINES;

		if ((COLUMNS = winsz.ws_col = win.ws_col) == 0)

			COLUMNS = tgetnum("co");

	}

	if (LINES <= 5)

		LINES = 24;

	if (LINES > TUBELINES)

		LINES = TUBELINES;

	l = LINES;

	if (o_speed < B1200)

		l = 9;	// including the message line at the bottom 

	else if (o_speed < B2400)

		l = 17;

	if (l > LINES)

		l = LINES;

	if (COLUMNS <= 4)

		COLUMNS = 1000;

	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);

	if (i <= 0)

		LINES = 2;

*/

}

zap()

{

	register char *namp;

	register bool **fp;

	register char ***sp;

	int flag;

	char *string;

	namp = "ambsdadbeohcinmincnsosulxbxnxtxx";

	fp = sflags;

	do {

		flag = tgetflag(namp);

		*(*fp++) = flag;

		namp += 2;

	} while (*namp);

	namp = "albcbtcdceclcmcrcsdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcrcscsesfsosrtatetiupvbvsveALDLUPDOLERI";

	sp = sstrs;

	do {

		string = tgetstr(namp, &aoftspace);

		*(*sp++) = string;

		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);

}

/*

 * cost figures out how much (in characters) it costs to send the string

 * str to the terminal.  It takes into account padding information, as

 * much as it can, for a typical case.  (Right now the typical case assumes

 * the number of lines affected is the size of the screen, since this is

 * mainly used to decide if AL or SR is better, and this always happens

 * at the top of the screen.  We assume cursor motion (CM) has little

 * padding, if any, required, so that case, which is really more important

 * than AL vs SR, won't be really affected.)

 */

static int costnum;

cost(str)

char *str;

{

	int countnum();

	if (str == NULL || *str=='O')	/* OOPS */

		return 10000;	/* infinity */

	costnum = 0;

	tputs(str, LINES, countnum);

	return costnum;

}

/* ARGSUSED */

countnum(ch)

char ch;

{

	costnum++;

}