usr/src/usr.bin/ex/ex_tty.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 */

#ifndef lint
static char *sccsid = "@(#)ex_tty.c     7.13 (Berkeley) %G%";
#endif not lint

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

gettmode()
{

#ifndef USG3TTY
        if (ioctl(1, TIOCGETP, &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, (char *) &tty) < 0)
                return;
        if (ospeed != (tty.c_cflag & CBAUD))    /* mjm */
                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 & 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, &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;
        char ltcbuf[TCBUFSIZE];

        if (type[0] == 0)
                type = "xx";
        unknown = 0;
        putpad(TE);
        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;

                ioctl(0, TIOCGETD, (char *) &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, (char *) NULL,
                                                        (char *) NULL, arrows);
                        } else
                                addmac(sc, "\32", "susp", arrows);
                }
        }
#endif

        if (tgoto(CM, 2, 2)[0] == 'O')  /* OOPS */
                CA = 0, CM = 0;
        else
                CA = 1, costCM = cost(tgoto(CM, 8, 10));
        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(ttytype, longname(ltcbuf, type));
        /* 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("%s: Unknown terminal type", type);
}

setsize()
{
        register int l, i;
#ifdef  TIOCGWINSZ
        struct winsize win;

        if (ioctl(0, TIOCGWINSZ, (char *) &win) < 0) {
#endif
                i = LINES = tgetnum("li");
                COLUMNS = tgetnum("co");
#ifdef  TIOCGWINSZ
        } 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");
        }
#endif
        if (LINES <= 5)
                LINES = 24;
        if (LINES > TUBELINES)
                LINES = TUBELINES;
        l = LINES;
        if (ospeed < B1200)
                l = 9;  /* including the message line at the bottom */
        else if (ospeed < 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;

        namp = "ambsdadbeohchzinmincnsosulxbxnxtxx";
        fp = sflags;
        do {
                *(*fp++) = tgetflag(namp);
                namp += 2;
        } while (*namp);
        namp = "albcbtcdceclcmcrcsdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcrcscsesfsosrtatetiupvbvsveALDLUPDOLERI";
        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);
}

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