/* * 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() { #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++; 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(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() { 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++; }