![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cr_tty.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / usr.lib / libcurses|
Return to cr_tty.c CVS log | Up to [CSRG BSD Unix] / 42BSD / usr.lib / libcurses |
1.1 root 1: /*
2: * Terminal initialization routines.
3: *
4: * 6/1/83 (Berkeley) @(#)cr_tty.c 1.14
5: */
6:
7: # include "curses.ext"
8:
9: static bool *sflags[] = {
10: &AM, &BS, &EO, &HZ, &IN, &MI, &MS, &NC, &OS, &UL, &XN
11: };
12:
13: static char *xPC,
14: **sstrs[] = {
15: &AL, &BC, &BT, &CD, &CE, &CL, &CM, &CR, &DC,
16: &DL, &DM, &DO, &ED, &EI, &HO, &IC, &IM, &IP,
17: &LL, &MA, &ND, &NL, &xPC, &SE, &SF, &SO, &SR,
18: &TA, &TE, &TI, &UC, &UE, &UP, &US, &VB, &VS,
19: &VE
20: },
21: *tgoto();
22:
23: static char tspace[256], /* Space for capability strings */
24: *aoftspace; /* Address of tspace for relocation */
25:
26: static int destcol, destline;
27:
28: /*
29: * This routine does terminal type initialization routines, and
30: * calculation of flags at entry. It is almost entirely stolen from
31: * Bill Joy's ex version 2.6.
32: */
33: short ospeed = -1;
34:
35: gettmode() {
36:
37: if (gtty(_tty_ch, &_tty) < 0)
38: return;
39: savetty();
40: if (stty(_tty_ch, &_tty) < 0)
41: _tty.sg_flags = _res_flg;
42: ospeed = _tty.sg_ospeed;
43: _res_flg = _tty.sg_flags;
44: UPPERCASE = (_tty.sg_flags & LCASE) != 0;
45: GT = ((_tty.sg_flags & XTABS) == 0);
46: NONL = ((_tty.sg_flags & CRMOD) == 0);
47: _tty.sg_flags &= ~XTABS;
48: stty(_tty_ch, &_tty);
49: # ifdef DEBUG
50: fprintf(outf, "GETTMODE: UPPERCASE = %s\n", UPPERCASE ? "TRUE":"FALSE");
51: fprintf(outf, "GETTMODE: GT = %s\n", GT ? "TRUE" : "FALSE");
52: fprintf(outf, "GETTMODE: NONL = %s\n", NONL ? "TRUE" : "FALSE");
53: fprintf(outf, "GETTMODE: ospeed = %d\n", ospeed);
54: # endif
55: }
56:
57: setterm(type)
58: reg char *type; {
59:
60: reg int unknown;
61: static char genbuf[1024];
62:
63: # ifdef DEBUG
64: fprintf(outf, "SETTERM(\"%s\")\n", type);
65: fprintf(outf, "SETTERM: LINES = %d, COLS = %d\n", LINES, COLS);
66: # endif
67: if (type[0] == '\0')
68: type = "xx";
69: unknown = FALSE;
70: if (tgetent(genbuf, type) != 1) {
71: unknown++;
72: strcpy(genbuf, "xx|dumb:");
73: }
74: # ifdef DEBUG
75: fprintf(outf, "SETTERM: tty = %s\n", type);
76: # endif
77: if (LINES == 0)
78: LINES = tgetnum("li");
79: if (LINES <= 5)
80: LINES = 24;
81:
82: if (COLS == 0)
83: COLS = tgetnum("co");
84: if (COLS <= 4)
85: COLS = 80;
86:
87: # ifdef DEBUG
88: fprintf(outf, "SETTERM: LINES = %d, COLS = %d\n", LINES, COLS);
89: # endif
90: aoftspace = tspace;
91: zap(); /* get terminal description */
92: if (tgoto(CM, destcol, destline)[0] == 'O')
93: CA = FALSE, CM = 0;
94: else
95: CA = TRUE;
96: PC = xPC ? xPC[0] : FALSE;
97: aoftspace = tspace;
98: strcpy(ttytype, longname(genbuf, type));
99: if (unknown)
100: return ERR;
101: return OK;
102: }
103: /*
104: * This routine gets all the terminal flags from the termcap database
105: */
106: zap() {
107:
108: reg bool **fp;
109: reg char *namp, ***sp;
110: extern char *tgetstr();
111:
112: /*
113: * get boolean flags
114: */
115: namp = "ambseohzinmimsncosulxn\0\0";
116: # ifdef FULLDEBUG
117: fprintf(outf, "ZAP: namp = \"%s\"\n", namp);
118: # endif
119: fp = sflags;
120: do {
121: *(*fp++) = tgetflag(namp);
122: # ifdef FULLDEBUG
123: fprintf(outf, "ZAP: %.2s = %d", namp, *(*(fp - 1)));
124: # endif
125: namp += 2;
126: } while (*namp);
127:
128: /*
129: * get string values
130: */
131: namp = "albcbtcdceclcmcrdcdldmdoedeihoicimipllmandnlpcsesfsosrtatetiucueupusvbvsve";
132: # ifdef FULLDEBUG
133: fprintf(outf, "ZAP: namp = \"%s\"\n", namp);
134: # endif
135: sp = sstrs;
136: do {
137: *(*sp++) = tgetstr(namp, &aoftspace);
138: # ifdef FULLDEBUG
139: fprintf(outf, "ZAP: %.2s = \"%s\"\n", namp, *(*(sp-1)));
140: # endif
141: namp += 2;
142: } while (*namp);
143: if (tgetnum("sg") > 0)
144: SO = NULL;
145: if (tgetnum("ug") > 0)
146: US = NULL;
147: if (!SO && US) {
148: SO = US;
149: SE = UE;
150: }
151: }
152:
153: /*
154: * return a capability from termcap
155: */
156: char *
157: getcap(name)
158: char *name;
159: {
160: char *tgetstr();
161:
162: return tgetstr(name, &aoftspace);
163: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.