1 /* Copyright (c) 1980 Regents of the University of California */ 2 static char *sccsid = "@(#)ex_tty.c 5.1 08/20/80"; 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; 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) 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 & OCRNL) == 0; 36 #endif 37 } 38 39 char *xPC; 40 char **sstrs[] = { 41 &AL, &BC, &BT, &CD, &CE, &CL, &CM, &xCR, &DC, &DL, &DM, &DO, &ED, &EI, 42 &F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9, 43 &HO, &IC, &IM, &IP, &KD, &KE, &KH, &KL, &KR, &KS, &KU, &LL, 44 &ND, &xNL, &xPC, &SE, &SF, &SO, &SR, &TA, &TE, &TI, &UP, &VB, &VS, &VE 45 }; 46 bool *sflags[] = { 47 &AM, &BS, &DA, &DB, &EO, &HC, &HZ, &IN, &MI, &NC, &NS, &OS, &UL, 48 &XB, &XN, &XT, &XX 49 }; 50 char **fkeys[10] = { 51 &F0, &F1, &F2, &F3, &F4, &F5, &F6, &F7, &F8, &F9 52 }; 53 setterm(type) 54 char *type; 55 { 56 char *tgoto(); 57 register int unknown, i; 58 register int l; 59 char ltcbuf[TCBUFSIZE]; 60 61 if (type[0] == 0) 62 type = "xx"; 63 unknown = 0; 64 putpad(TE); 65 if (tgetent(ltcbuf, type) != 1) { 66 unknown++; 67 CP(ltcbuf, "xx|dumb:"); 68 } 69 i = LINES = tgetnum("li"); 70 if (LINES <= 5) 71 LINES = 24; 72 if (LINES > 48) 73 LINES = 48; 74 l = LINES; 75 if (ospeed < B1200) 76 l = 9; /* including the message line at the bottom */ 77 else if (ospeed < B2400) 78 l = 17; 79 aoftspace = tspace; 80 zap(); 81 /* 82 * Initialize keypad arrow keys. 83 */ 84 arrows[0].cap = KU; arrows[0].mapto = "k"; arrows[0].descr = "up"; 85 arrows[1].cap = KD; arrows[1].mapto = "j"; arrows[1].descr = "down"; 86 arrows[2].cap = KL; arrows[2].mapto = "h"; arrows[2].descr = "left"; 87 arrows[3].cap = KR; arrows[3].mapto = "l"; arrows[3].descr = "right"; 88 arrows[4].cap = KH; arrows[4].mapto = "H"; arrows[4].descr = "home"; 89 90 #ifdef TIOCLGET 91 /* 92 * Now map users susp char to ^Z, being careful that the susp 93 * overrides any arrow key, but only for hackers (=new tty driver). 94 */ 95 { 96 static char sc[2]; 97 int i, fnd; 98 99 ioctl(0, TIOCGETD, &ldisc); 100 if (ldisc == NTTYDISC) { 101 sc[0] = olttyc.t_suspc; 102 sc[1] = 0; 103 if (olttyc.t_suspc == CTRL(z)) { 104 for (i=0; i<=4; i++) 105 if (arrows[i].cap[0] == CTRL(z)) 106 addmac(sc, NULL, NULL, arrows); 107 } else 108 addmac(sc, "\32", "susp", arrows); 109 } 110 } 111 #endif 112 113 options[WINDOW].ovalue = options[WINDOW].odefault = l - 1; 114 if (defwind) options[WINDOW].ovalue = defwind; 115 options[SCROLL].ovalue = options[SCROLL].odefault = HC ? 11 : ((l-1) / 2); 116 COLUMNS = tgetnum("co"); 117 if (COLUMNS <= 4) 118 COLUMNS = 1000; 119 if (tgoto(CM, 2, 2)[0] == 'O') /* OOPS */ 120 CA = 0, CM = 0; 121 else 122 CA = 1, costCM = strlen(tgoto(CM, 8, 10)); 123 PC = xPC ? xPC[0] : 0; 124 aoftspace = tspace; 125 CP(ttytype, longname(ltcbuf, type)); 126 if (i <= 0) 127 LINES = 2; 128 /* proper strings to change tty type */ 129 termreset(); 130 gettmode(); 131 value(REDRAW) = AL && DL; 132 value(OPTIMIZE) = !CA && !GT; 133 if (unknown) 134 serror("%s: Unknown terminal type", type); 135 } 136 137 zap() 138 { 139 register char *namp; 140 register bool **fp; 141 register char ***sp; 142 143 namp = "ambsdadbeohchzinmincnsosulxbxnxtxx"; 144 fp = sflags; 145 do { 146 *(*fp++) = tgetflag(namp); 147 namp += 2; 148 } while (*namp); 149 namp = "albcbtcdceclcmcrdcdldmdoedeik0k1k2k3k4k5k6k7k8k9hoicimipkdkekhklkrkskullndnlpcsesfsosrtatetiupvbvsve"; 150 sp = sstrs; 151 do { 152 *(*sp++) = tgetstr(namp, &aoftspace); 153 namp += 2; 154 } while (*namp); 155 } 156 157 char * 158 longname(bp, def) 159 register char *bp; 160 char *def; 161 { 162 register char *cp; 163 164 while (*bp && *bp != ':' && *bp != '|') 165 bp++; 166 if (*bp == '|') { 167 bp++; 168 cp = bp; 169 while (*cp && *cp != ':' && *cp != '|') 170 cp++; 171 *cp = 0; 172 return (bp); 173 } 174 return (def); 175 } 176 177 char * 178 fkey(i) 179 int i; 180 { 181 if (0 <= i && i <= 9) 182 return(*fkeys[i]); 183 else 184 return(NOSTR); 185 } 186