diff options
Diffstat (limited to 'ex_tty.c')
| -rw-r--r-- | ex_tty.c | 407 |
1 files changed, 407 insertions, 0 deletions
diff --git a/ex_tty.c b/ex_tty.c new file mode 100644 index 0000000..05702b6 --- /dev/null +++ b/ex_tty.c @@ -0,0 +1,407 @@ +/* + * 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; +} |