1 /* Copyright (c) 1981 Regents of the University of California */ 2 static char *sccsid = "@(#)ex_tty.c 7.5 10/16/81"; 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 if (LINES <= 5) 72 LINES = 24; 73 if (LINES > TUBELINES) 74 LINES = TUBELINES; 75 l = LINES; 76 if (ospeed < B1200) 77 l = 9; /* including the message line at the bottom */ 78 else if (ospeed < B2400) 79 l = 17; 80 if (l > LINES) 81 l = LINES; 82 aoftspace = tspace; 83 zap(); 84 /* 85 * Initialize keypad arrow keys. 86 */ 87 arrows[0].cap = KU; arrows[0].mapto = "k"; arrows[0].descr = "up"; 88 arrows[1].cap = KD; arrows[1].mapto = "j"; arrows[1].descr = "down"; 89 arrows[2].cap = KL; arrows[2].mapto = "h"; arrows[2].descr = "left"; 90 arrows[3].cap = KR; arrows[3].mapto = "l"; arrows[3].descr = "right"; 91 arrows[4].cap = KH; arrows[4].mapto = "H"; arrows[4].descr = "home"; 92 93 /* 94 * Handle funny termcap capabilities 95 */ 96 if (CS && SC && RC) AL=DL=""; 97 if (AL_PARM && AL==NULL) AL=""; 98 if (DL_PARM && DL==NULL) DL=""; 99 if (IC && IM==NULL) IM=""; 100 if (IC && EI==NULL) EI=""; 101 if (!GT) BT=NULL; /* If we can't tab, we can't backtab either */ 102 103 #ifdef TIOCLGET 104 /* 105 * Now map users susp char to ^Z, being careful that the susp 106 * overrides any arrow key, but only for hackers (=new tty driver). 107 */ 108 { 109 static char sc[2]; 110 int i, fnd; 111 112 ioctl(0, TIOCGETD, &ldisc); 113 if (ldisc == NTTYDISC) { 114 sc[0] = olttyc.t_suspc; 115 sc[1] = 0; 116 if (olttyc.t_suspc == CTRL(z)) { 117 for (i=0; i<=4; i++) 118 if (arrows[i].cap[0] == CTRL(z)) 119 addmac(sc, NULL, NULL, arrows); 120 } else 121 addmac(sc, "\32", "susp", arrows); 122 } 123 } 124 #endif 125 126 options[WINDOW].ovalue = options[WINDOW].odefault = l - 1; 127 if (defwind) options[WINDOW].ovalue = defwind; 128 options[SCROLL].ovalue = options[SCROLL].odefault = HC ? 11 : ((l-1) / 2); 129 COLUMNS = tgetnum("co"); 130 if (COLUMNS <= 4) 131 COLUMNS = 1000; 132 if (tgoto(CM, 2, 2)[0] == 'O') /* OOPS */ 133 CA = 0, CM = 0; 134 else 135 CA = 1, costCM = cost(tgoto(CM, 8, 10)); 136 costSR = cost(SR); 137 costAL = cost(AL); 138 costDP = cost(tgoto(DOWN_PARM, 10, 10)); 139 costLP = cost(tgoto(LEFT_PARM, 10, 10)); 140 costRP = cost(tgoto(RIGHT_PARM, 10, 10)); 141 PC = xPC ? xPC[0] : 0; 142 aoftspace = tspace; 143 CP(ttytype, longname(ltcbuf, type)); 144 if (i <= 0) 145 LINES = 2; 146 /* proper strings to change tty type */ 147 termreset(); 148 gettmode(); 149 value(REDRAW) = AL && DL; 150 value(OPTIMIZE) = !CA && !GT; 151 if (ospeed == B1200 && !value(REDRAW)) 152 value(SLOWOPEN) = 1; /* see also gettmode above */ 153 if (unknown) 154 serror("%s: Unknown terminal type", type); 155 } 156 157 zap() 158 { 159 register char *namp; 160 register bool **fp; 161 register char ***sp; 162 163 namp = "ambsdadbeohchzinmincnsosulxbxnxtxx"; 164 fp = sflags; 165 do { 166 *(*fp++) = tgetflag(namp); 167 namp += 2; 168 } while (*namp); 169 namp = "albcbtcdceclcmcrcsdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcrcscsesfsosrtatetiupvbvsveALDLUPDOLERI"; 170 sp = sstrs; 171 do { 172 *(*sp++) = tgetstr(namp, &aoftspace); 173 namp += 2; 174 } while (*namp); 175 } 176 177 char * 178 longname(bp, def) 179 register char *bp; 180 char *def; 181 { 182 register char *cp; 183 184 while (*bp && *bp != ':' && *bp != '|') 185 bp++; 186 if (*bp == '|') { 187 bp++; 188 cp = bp; 189 while (*cp && *cp != ':' && *cp != '|') 190 cp++; 191 *cp = 0; 192 return (bp); 193 } 194 return (def); 195 } 196 197 char * 198 fkey(i) 199 int i; 200 { 201 if (0 <= i && i <= 9) 202 return(*fkeys[i]); 203 else 204 return(NOSTR); 205 } 206 207 /* 208 * cost figures out how much (in characters) it costs to send the string 209 * str to the terminal. It takes into account padding information, as 210 * much as it can, for a typical case. (Right now the typical case assumes 211 * the number of lines affected is the size of the screen, since this is 212 * mainly used to decide if AL or SR is better, and this always happens 213 * at the top of the screen. We assume cursor motion (CM) has little 214 * padding, if any, required, so that case, which is really more important 215 * than AL vs SR, won't be really affected.) 216 */ 217 static int costnum; 218 cost(str) 219 char *str; 220 { 221 int countnum(); 222 223 if (str == NULL || *str=='O') /* OOPS */ 224 return 10000; /* infinity */ 225 costnum = 0; 226 tputs(str, LINES, countnum); 227 return costnum; 228 } 229 230 /* ARGSUSED */ 231 countnum(ch) 232 char ch; 233 { 234 costnum++; 235 } 236