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