Rev 116 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
/*
* 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+4096];
if (type[0] == 0)
type = "xx";
unknown = 0;
putpad(TE);
//#ifdef NCURSES
snprintf(ltcbuf, TCBUFSIZE, "%s:", type);
//#endif
if (tgetent(ltcbuf, type) != 1) {
unknown++;
CP(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;
CP(ex_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++;
}