![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ex_tty.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / ucb / ex|
Return to ex_tty.c CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / ucb / ex |
1.1 ! root 1: /* Copyright (c) 1981 Regents of the University of California */ ! 2: static char *sccsid = "@(#)ex_tty.c 7.6 6/10/83"; ! 3: #include "ex.h" ! 4: #include "ex_tty.h" ! 5: ! 6: /* ! 7: * Terminal type initialization routines, ! 8: * and calculation of flags at entry or after ! 9: * a shell escape which may change them. ! 10: */ ! 11: /* short ospeed = -1; mjm: def also in tputs.c of termcap.a */ ! 12: ! 13: gettmode() ! 14: { ! 15: ! 16: #ifndef USG3TTY ! 17: if (gtty(1, &tty) < 0) ! 18: return; ! 19: if (ospeed != tty.sg_ospeed) ! 20: value(SLOWOPEN) = tty.sg_ospeed < B1200; ! 21: ospeed = tty.sg_ospeed; ! 22: normf = tty.sg_flags; ! 23: UPPERCASE = (tty.sg_flags & LCASE) != 0; ! 24: GT = (tty.sg_flags & XTABS) != XTABS && !XT; ! 25: NONL = (tty.sg_flags & CRMOD) == 0; ! 26: #else ! 27: if (ioctl(1, TCGETA, &tty) < 0) ! 28: return; ! 29: if (ospeed != (tty.c_cflag & CBAUD)) /* mjm */ ! 30: value(SLOWOPEN) = (tty.c_cflag & CBAUD) < B1200; ! 31: ospeed = tty.c_cflag & CBAUD; ! 32: normf = tty; ! 33: UPPERCASE = (tty.c_iflag & IUCLC) != 0; ! 34: GT = (tty.c_oflag & TABDLY) != TAB3 && !XT; ! 35: NONL = (tty.c_oflag & ONLCR) == 0; ! 36: #endif ! 37: } ! 38: ! 39: char *xPC; ! 40: char **sstrs[] = { ! 41: &AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &CS, &DC, &DL, &DM, &DO, ! 42: &ED, &EI, &F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9, ! 43: &HO, &IC, &IM, &IP, &KD, &KE, &KH, &KL, &KR, &KS, &KU, &LL, &ND, &xNL, ! 44: &xPC, &RC, &SC, &SE, &SF, &SO, &SR, &TA, &TE, &TI, &UP, &VB, &VS, &VE, ! 45: &AL_PARM, &DL_PARM, &UP_PARM, &DOWN_PARM, &LEFT_PARM, &RIGHT_PARM ! 46: }; ! 47: bool *sflags[] = { ! 48: &AM, &BS, &DA, &DB, &EO, &HC, &HZ, &IN, &MI, &NC, &NS, &OS, &UL, ! 49: &XB, &XN, &XT, &XX ! 50: }; ! 51: char **fkeys[10] = { ! 52: &F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9 ! 53: }; ! 54: setterm(type) ! 55: char *type; ! 56: { ! 57: char *tgoto(); ! 58: register int unknown, i; ! 59: register int l; ! 60: char ltcbuf[TCBUFSIZE]; ! 61: ! 62: if (type[0] == 0) ! 63: type = "xx"; ! 64: unknown = 0; ! 65: putpad(TE); ! 66: if (tgetent(ltcbuf, type) != 1) { ! 67: unknown++; ! 68: CP(ltcbuf, "xx|dumb:"); ! 69: } ! 70: i = LINES = tgetnum("li"); ! 71: /* ! 72: * Following lines deleted by Gershon Shamay. Reason - while working under ! 73: * the window manager (came over the net), vi didn't work well in a window ! 74: * with fewer than 6 lines. Why should anyone have such a small window ? ! 75: * Because. In any case, the original code is not nice either, takes revenge ! 76: * on them by deciding to use 24 lines regardless.... So here we go: ! 77: if (LINES <= 5) ! 78: LINES = 24; ! 79: */ ! 80: if (LINES > TUBELINES) ! 81: LINES = TUBELINES; ! 82: l = LINES; ! 83: if (ospeed < B1200) ! 84: l = 9; /* including the message line at the bottom */ ! 85: else if (ospeed < B2400) ! 86: l = 17; ! 87: if (l > LINES) ! 88: l = LINES; ! 89: aoftspace = tspace; ! 90: zap(); ! 91: /* ! 92: * Initialize keypad arrow keys. ! 93: */ ! 94: arrows[0].cap = KU; arrows[0].mapto = "k"; arrows[0].descr = "up"; ! 95: arrows[1].cap = KD; arrows[1].mapto = "j"; arrows[1].descr = "down"; ! 96: arrows[2].cap = KL; arrows[2].mapto = "h"; arrows[2].descr = "left"; ! 97: arrows[3].cap = KR; arrows[3].mapto = "l"; arrows[3].descr = "right"; ! 98: arrows[4].cap = KH; arrows[4].mapto = "H"; arrows[4].descr = "home"; ! 99: ! 100: /* ! 101: * Handle funny termcap capabilities ! 102: */ ! 103: if (CS && SC && RC) AL=DL=""; ! 104: if (AL_PARM && AL==NULL) AL=""; ! 105: if (DL_PARM && DL==NULL) DL=""; ! 106: if (IC && IM==NULL) IM=""; ! 107: if (IC && EI==NULL) EI=""; ! 108: if (!GT) BT=NULL; /* If we can't tab, we can't backtab either */ ! 109: ! 110: #ifdef TIOCLGET ! 111: /* ! 112: * Now map users susp char to ^Z, being careful that the susp ! 113: * overrides any arrow key, but only for hackers (=new tty driver). ! 114: */ ! 115: { ! 116: static char sc[2]; ! 117: int i, fnd; ! 118: ! 119: ioctl(0, TIOCGETD, &ldisc); ! 120: if (ldisc == NTTYDISC) { ! 121: sc[0] = olttyc.t_suspc; ! 122: sc[1] = 0; ! 123: if (olttyc.t_suspc == CTRL(z)) { ! 124: for (i=0; i<=4; i++) ! 125: if (arrows[i].cap && ! 126: arrows[i].cap[0] == CTRL(z)) ! 127: addmac(sc, NULL, NULL, arrows); ! 128: } else ! 129: addmac(sc, "\32", "susp", arrows); ! 130: } ! 131: } ! 132: #endif ! 133: ! 134: options[WINDOW].ovalue = options[WINDOW].odefault = l - 1; ! 135: if (defwind) options[WINDOW].ovalue = defwind; ! 136: options[SCROLL].ovalue = options[SCROLL].odefault = HC ? 11 : ((l-1) / 2); ! 137: COLUMNS = tgetnum("co"); ! 138: if (COLUMNS <= 4) ! 139: COLUMNS = 1000; ! 140: if (tgoto(CM, 2, 2)[0] == 'O') /* OOPS */ ! 141: CA = 0, CM = 0; ! 142: else ! 143: CA = 1, costCM = cost(tgoto(CM, 8, 10)); ! 144: costSR = cost(SR); ! 145: costAL = cost(AL); ! 146: costDP = cost(tgoto(DOWN_PARM, 10, 10)); ! 147: costLP = cost(tgoto(LEFT_PARM, 10, 10)); ! 148: costRP = cost(tgoto(RIGHT_PARM, 10, 10)); ! 149: PC = xPC ? xPC[0] : 0; ! 150: aoftspace = tspace; ! 151: CP(ttytype, longname(ltcbuf, type)); ! 152: if (i <= 0) ! 153: LINES = 2; ! 154: /* proper strings to change tty type */ ! 155: termreset(); ! 156: gettmode(); ! 157: value(REDRAW) = AL && DL; ! 158: value(OPTIMIZE) = !CA && !GT; ! 159: if (ospeed == B1200 && !value(REDRAW)) ! 160: value(SLOWOPEN) = 1; /* see also gettmode above */ ! 161: if (unknown) ! 162: serror("%s: Unknown terminal type", type); ! 163: } ! 164: ! 165: zap() ! 166: { ! 167: register char *namp; ! 168: register bool **fp; ! 169: register char ***sp; ! 170: ! 171: namp = "ambsdadbeohchzinmincnsosulxbxnxtxx"; ! 172: fp = sflags; ! 173: do { ! 174: *(*fp++) = tgetflag(namp); ! 175: namp += 2; ! 176: } while (*namp); ! 177: namp = "albcbtcdceclcmcrcsdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcrcscsesfsosrtatetiupvbvsveALDLUPDOLERI"; ! 178: sp = sstrs; ! 179: do { ! 180: *(*sp++) = tgetstr(namp, &aoftspace); ! 181: namp += 2; ! 182: } while (*namp); ! 183: } ! 184: ! 185: char * ! 186: longname(bp, def) ! 187: register char *bp; ! 188: char *def; ! 189: { ! 190: register char *cp; ! 191: ! 192: while (*bp && *bp != ':' && *bp != '|') ! 193: bp++; ! 194: if (*bp == '|') { ! 195: bp++; ! 196: cp = bp; ! 197: while (*cp && *cp != ':' && *cp != '|') ! 198: cp++; ! 199: *cp = 0; ! 200: return (bp); ! 201: } ! 202: return (def); ! 203: } ! 204: ! 205: char * ! 206: fkey(i) ! 207: int i; ! 208: { ! 209: if (0 <= i && i <= 9) ! 210: return(*fkeys[i]); ! 211: else ! 212: return(NOSTR); ! 213: } ! 214: ! 215: /* ! 216: * cost figures out how much (in characters) it costs to send the string ! 217: * str to the terminal. It takes into account padding information, as ! 218: * much as it can, for a typical case. (Right now the typical case assumes ! 219: * the number of lines affected is the size of the screen, since this is ! 220: * mainly used to decide if AL or SR is better, and this always happens ! 221: * at the top of the screen. We assume cursor motion (CM) has little ! 222: * padding, if any, required, so that case, which is really more important ! 223: * than AL vs SR, won't be really affected.) ! 224: */ ! 225: static int costnum; ! 226: cost(str) ! 227: char *str; ! 228: { ! 229: int countnum(); ! 230: ! 231: if (str == NULL || *str=='O') /* OOPS */ ! 232: return 10000; /* infinity */ ! 233: costnum = 0; ! 234: tputs(str, LINES, countnum); ! 235: return costnum; ! 236: } ! 237: ! 238: /* ARGSUSED */ ! 239: countnum(ch) ! 240: char ch; ! 241: { ! 242: costnum++; ! 243: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.