Subversion Repositories planix.SVN

/*

 * This code contains changes by

 *      Gunnar Ritter, Freiburg i. Br., Germany, 2002. All rights reserved.

 *

 * Conditions 1, 2, and 4 and the no-warranty notice below apply

 * to these changes.

 *

 *

 * Copyright (c) 1980, 1993

 * 	The Regents of the University of California.  All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. All advertising materials mentioning features or use of this software

 *    must display the following acknowledgement:

 * 	This product includes software developed by the University of

 * 	California, Berkeley and its contributors.

 * 4. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 *

 *

 * Copyright(C) Caldera International Inc. 2001-2002. All rights reserved.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 *   Redistributions of source code and documentation must retain the

 *    above copyright notice, this list of conditions and the following

 *    disclaimer.

 *   Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 *   All advertising materials mentioning features or use of this software

 *    must display the following acknowledgement:

 *      This product includes software developed or owned by Caldera

 *      International, Inc.

 *   Neither the name of Caldera International, Inc. nor the names of

 *    other contributors may be used to endorse or promote products

 *    derived from this software without specific prior written permission.

 *

 * USE OF THE SOFTWARE PROVIDED FOR UNDER THIS LICENSE BY CALDERA

 * INTERNATIONAL, INC. AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED

 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED. IN NO EVENT SHALL CALDERA INTERNATIONAL, INC. BE

 * LIABLE FOR ANY DIRECT, INDIRECT INCIDENTAL, SPECIAL, EXEMPLARY, OR

 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF

 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR

 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,

 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE

 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,

 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 */

#ifndef	lint

#ifdef	DOSCCS

static char sccsid[] = "@(#)ex_tty.c	1.29 (gritter) 2/17/05";

#endif

#endif

/* from ex_tty.c	7.10.1 (2.11BSD GTE) 12/9/94 */

#include "ex.h"

#include "ex_tty.h"

int ATTN = DELETE;

/*

 * 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  */

void 

gettmode(void)

{

	speed_t pospeed;

	if (tcgetattr(1, &tty) < 0) {

		ospeed = B0;

		return;

	}

	pospeed = cfgetospeed(&tty);

	if (ospeed != pospeed)

		value(SLOWOPEN) = pospeed < B1200;

	ospeed = pospeed;

	normf = tty;

#if defined (UCVISUAL) && defined (IUCLC)

	UPPERCASE = (tty.c_iflag & IUCLC) != 0;

#endif

#if defined (TAB3)

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

#elif defined (XTABS)

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

#else

	GT = !XT;

#endif	/* !TAB3, XTABS */

	/*

	 * Tabs and multi-column characters do not combine properly

	 * unless vi performs a look-ahead on the current line. Just

	 * do not use them for now.

	 */

	if (mb_cur_max > 1)

		GT = 0;

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

	ATTN = tty.c_cc[VINTR];

}

char *xPC;

char **sstrs[] = {

	&AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &xCS, &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,

#ifdef	UCVISUAL

	&xHZ,

#endif

	&IN, &MI, &NC, &NS, &OS, &UL,

	&XB, &XN, &XT, &XX

};

char **fkeys[10] = {

	&F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9

};

void

setterm(char *type)

{

	register int unknown;

	char ltcbuf[TCBUFSIZE];

	if (type[0] == 0)

		type = "xx";

	unknown = 0;

	putpad(TE);

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

		unknown++;

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

	}

	gettmode(); /* must call gettmode() before setsize(). GR */

	setsize();

	aoftspace = tspace;

	zap();

	/*

	 * Initialize keypad arrow keys.

	 */

	addmac1(KU, "k", "up", arrows, 1);

	addmac1(KD, "j", "down", arrows, 1);

	addmac1(KL, "h", "left", arrows, 1);

	addmac1(KR, "l", "right", arrows, 1);

	addmac1(KH, "H", "home", arrows, 1);

	/*

	 * Handle funny termcap capabilities

	 */

	if (xCS && 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

#define	HAS_JOB_CONTROL

#endif

#ifdef	_SC_JOB_CONTROL

#define	HAS_JOB_CONTROL

#endif

#ifdef	HAS_JOB_CONTROL

	/*

	 * 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 */;

		if (sysconf(_SC_JOB_CONTROL) != -1)

		{

			/*

			 * If a system supports job control but no job

			 * control shell is used, only one method of

			 * detection remains: Our session id equals our

			 * process group id. Any job control shell would

			 * have created at least one new process group.

			 * But as the VSUSP key may be active, we have

			 * to override arrow keys either.

			 */

#ifndef	_CRAY	/* getsid() is a bad syscall on UNICOS */

			if (getsid(0) != getpgid(0))

#endif	/* !_CRAY */

				ldisc = 2;	/* value of NTTYDISC */

			sc[0] = tty.c_cc[VSUSP];

			sc[1] = 0;

			if (tty.c_cc[VSUSP] == CTRL('z')) {

				for (i=0; i<=4; i++)

					if (arrows[i].cap &&

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

						addmac(sc, NULL, NULL, arrows);

			} else if (sc[0]

#ifdef	_PC_VDISABLE

					&& sc[0] != fpathconf(1, _PC_VDISABLE)

#endif

					)

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

		}

	}

#endif	/* HAS_JOB_CONTROL */

	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;

	safecp(ttylongname, gettlongname(ltcbuf, type), sizeof ttylongname,

			"Terminal name too long");

	/* proper strings to change tty type */

	termreset();

	gettmode();

	value(REDRAW) = AL && DL;

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

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

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

	if (unknown)

		serror(catgets(catd, 1, 191,

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

}

void

setsize(void)

{

	register int l, i;

#ifdef	TIOCGWINSZ

	struct winsize win;

#endif

	char *e;

#ifdef	TIOCGWINSZ

	i = ioctl(0, TIOCGWINSZ, &win);

#endif

	TLINES = TCOLUMNS = 0;

	e = getenv("COLUMNS");

	if (e != NULL && *e != '\0')

		TCOLUMNS = atoi(e);

	if (TCOLUMNS <= 0) {

#ifdef	TIOCGWINSZ

		if (i >= 0 && win.ws_col != 0)

			TCOLUMNS = winsz.ws_col = win.ws_col;

		else

#endif

			TCOLUMNS = tgetnum("co");

	}

	e = getenv("LINES");

	if (e != NULL && *e != '\0')

		TLINES = atoi(e);

	if (TLINES <= 0) {

#ifdef	TIOCGWINSZ

		if (i >= 0 && win.ws_row != 0)

			TLINES = winsz.ws_row = win.ws_row;

		else

#endif

			TLINES = tgetnum("li");

	}

	i = TLINES;

	if (TLINES <= 5)

		TLINES = 24;

	if (TLINES > TUBELINES)

		TLINES = TUBELINES;

	l = TLINES;

	if (ospeed < B1200)

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

	else if (ospeed < B2400)

		l = 17;

	if (l > TLINES)

		l = TLINES;

	if (TCOLUMNS <= 4)

		TCOLUMNS = 1000;

	options[WINDOW].ovalue = options[WINDOW].odefault = l - 1;

	if (defwind) {

		options[WINDOW].ovalue = defwind;

		l = defwind + 1;

	}

	options[SCROLL].ovalue = options[SCROLL].odefault = HC ? 11 : ((l-1) / 2);

	if (i <= 0)

		TLINES = 2;

}

void

zap(void)

{

	register char *namp;

	register bool **fp;

	register char ***sp;

	int flag;

	char *string;

#ifndef	UCVISUAL

	namp = "ambsdadbeohcinmincnsosulxbxnxtxx";

#else

	namp = "ambsdadbeohchzinmincnsosulxbxnxtxx";

#endif

	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 *

gettlongname(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(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;

int

cost(char *str)

{

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

		return 10000;	/* infinity */

	costnum = 0;

	tputs(str, TLINES, countnum);

	return costnum;

}

/*ARGSUSED*/

int

countnum(int ch)

{

	costnum++;

	return ch;

}