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