set.c revision 1590 
1/*-
2 * Copyright (c) 1991, 1993
3 *	The Regents of the University of California.  All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 * 3. All advertising materials mentioning features or use of this software
14 *    must display the following acknowledgement:
15 *	This product includes software developed by the University of
16 *	California, Berkeley and its contributors.
17 * 4. Neither the name of the University nor the names of its contributors
18 *    may be used to endorse or promote products derived from this software
19 *    without specific prior written permission.
20 *
21 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31 * SUCH DAMAGE.
32 */
33
34#ifndef lint
35static char sccsid[] = "@(#)set.c	8.2 (Berkeley) 2/28/94";
36#endif /* not lint */
37
38#include <termios.h>
39#include <unistd.h>
40#include <stdio.h>
41#include "extern.h"
42
43#define	CHK(val, dft)	(val <= 0 ? dft : val)
44
45int	set_tabs __P((void));
46
47/*
48 * Reset the terminal mode bits to a sensible state.  Very useful after
49 * a child program dies in raw mode.
50 */
51void
52reset_mode()
53{
54	tcgetattr(STDERR_FILENO, &mode);
55
56#if defined(VDISCARD) && defined(CDISCARD)
57	mode.c_cc[VDISCARD] = CHK(mode.c_cc[VDISCARD], CDISCARD);
58#endif
59	mode.c_cc[VEOF] = CHK(mode.c_cc[VEOF], CEOF);
60	mode.c_cc[VERASE] = CHK(mode.c_cc[VERASE], CERASE);
61#if defined(VFLUSH) && defined(CFLUSH)
62	mode.c_cc[VFLUSH] = CHK(mode.c_cc[VFLUSH], CFLUSH);
63#endif
64	mode.c_cc[VINTR] = CHK(mode.c_cc[VINTR], CINTR);
65	mode.c_cc[VKILL] = CHK(mode.c_cc[VKILL], CKILL);
66#if defined(VLNEXT) && defined(CLNEXT)
67	mode.c_cc[VLNEXT] = CHK(mode.c_cc[VLNEXT], CLNEXT);
68#endif
69	mode.c_cc[VQUIT] = CHK(mode.c_cc[VQUIT], CQUIT);
70#if defined(VREPRINT) && defined(CRPRNT)
71	mode.c_cc[VREPRINT] = CHK(mode.c_cc[VREPRINT], CRPRNT);
72#endif
73	mode.c_cc[VSTART] = CHK(mode.c_cc[VSTART], CSTART);
74	mode.c_cc[VSTOP] = CHK(mode.c_cc[VSTOP], CSTOP);
75	mode.c_cc[VSUSP] = CHK(mode.c_cc[VSUSP], CSUSP);
76#if defined(VWERASE) && defined(CWERASE)
77	mode.c_cc[VWERASE] = CHK(mode.c_cc[VWERASE], CWERASE);
78#endif
79
80	mode.c_iflag &= ~(IGNBRK | PARMRK | INPCK | ISTRIP | INLCR | IGNCR
81#ifdef IUCLC
82			  | IUCLC
83#endif
84#ifdef IXANY
85			  | IXANY
86#endif
87			  | IXOFF);
88
89	mode.c_iflag |= (BRKINT | IGNPAR | ICRNL | IXON
90#ifdef IMAXBEL
91			 | IMAXBEL
92#endif
93			 );
94
95	mode.c_oflag &= ~(0
96#ifdef OLCUC
97			  | OLCUC
98#endif
99#ifdef OCRNL
100			  | OCRNL
101#endif
102#ifdef ONOCR
103			  | ONOCR
104#endif
105#ifdef ONLRET
106			  | ONLRET
107#endif
108#ifdef OFILL
109			  | OFILL
110#endif
111#ifdef OFDEL
112			  | OFDEL
113#endif
114#ifdef NLDLY
115			  | NLDLY | CRDLY | TABDLY | BSDLY | VTDLY | FFDLY
116#endif
117			  );
118
119	mode.c_oflag |= (OPOST
120#ifdef ONLCR
121			 | ONLCR
122#endif
123			 );
124
125	mode.c_cflag &= ~(CSIZE | CSTOPB | PARENB | PARODD | CLOCAL);
126	mode.c_cflag |= (CS8 | CREAD);
127	mode.c_lflag &= ~(ECHONL | NOFLSH | TOSTOP
128#ifdef ECHOPTR
129			  | ECHOPRT
130#endif
131#ifdef XCASE
132			  | XCASE
133#endif
134			  );
135
136	mode.c_lflag |= (ISIG | ICANON | ECHO | ECHOE | ECHOK
137#ifdef ECHOCTL
138			 | ECHOCTL
139#endif
140#ifdef ECHOKE
141			 | ECHOKE
142#endif
143 			 );
144
145	tcsetattr(STDERR_FILENO, TCSADRAIN, &mode);
146}
147
148/*
149 * Determine the erase, interrupt, and kill characters from the termcap
150 * entry and command line and update their values in 'mode'.
151 */
152void
153set_control_chars()
154{
155	char *bp, *p, bs_char, buf[1024];
156
157	bp = buf;
158	p = tgetstr("kb", &bp);
159	if (p == NULL || p[1] != '\0')
160		p = tgetstr("bc", &bp);
161	if (p != NULL && p[1] == '\0')
162		bs_char = p[0];
163	else if (tgetflag("bs"))
164		bs_char = CTRL('h');
165	else
166		bs_char = 0;
167
168	if (erasechar == 0 && !tgetflag("os") && mode.c_cc[VERASE] != CERASE) {
169		if (tgetflag("bs") || bs_char != 0)
170			erasechar = -1;
171	}
172	if (erasechar < 0)
173		erasechar = (bs_char != 0) ? bs_char : CTRL('h');
174
175	if (mode.c_cc[VERASE] == 0 || erasechar != 0)
176		mode.c_cc[VERASE] = erasechar ? erasechar : CERASE;
177
178	if (mode.c_cc[VINTR] == 0 || intrchar != 0)
179		 mode.c_cc[VINTR] = intrchar ? intrchar : CINTR;
180
181	if (mode.c_cc[VKILL] == 0 || killchar != 0)
182		mode.c_cc[VKILL] = killchar ? killchar : CKILL;
183}
184
185/*
186 * Set up various conversions in 'mode', including parity, tabs, returns,
187 * echo, and case, according to the termcap entry.  If the program we're
188 * running was named with a leading upper-case character, map external
189 * uppercase to internal lowercase.
190 */
191void
192set_conversions(usingupper)
193	int usingupper;
194{
195	if (tgetflag("UC") || usingupper) {
196#ifdef IUCLC
197		mode.c_iflag |= IUCLC;
198		mode.c_oflag |= OLCUC;
199#endif
200	} else if (tgetflag("LC")) {
201#ifdef IUCLC
202		mode.c_iflag &= ~IUCLC;
203		mode.c_oflag &= ~OLCUC;
204#endif
205	}
206	mode.c_iflag &= ~(PARMRK | INPCK);
207	mode.c_lflag |= ICANON;
208	if (tgetflag("EP")) {
209		mode.c_cflag |= PARENB;
210		mode.c_cflag &= ~PARODD;
211	}
212	if (tgetflag("OP")) {
213		mode.c_cflag |= PARENB;
214		mode.c_cflag |= PARODD;
215	}
216
217#ifdef ONLCR
218	mode.c_oflag |= ONLCR;
219#endif
220	mode.c_iflag |= ICRNL;
221	mode.c_lflag |= ECHO;
222	mode.c_oflag |= OXTABS;
223	if (tgetflag("NL")) {			/* Newline, not linefeed. */
224#ifdef ONLCR
225		mode.c_oflag &= ~ONLCR;
226#endif
227		mode.c_iflag &= ~ICRNL;
228	}
229	if (tgetflag("HD"))			/* Half duplex. */
230		mode.c_lflag &= ~ECHO;
231	if (tgetflag("pt"))			/* Print tabs. */
232		mode.c_oflag &= ~OXTABS;
233	mode.c_lflag |= (ECHOE | ECHOK);
234}
235
236/* Output startup string. */
237void
238set_init()
239{
240	char *bp, buf[1024];
241	int settle;
242
243	bp = buf;
244	if (tgetstr("pc", &bp) != 0)		/* Get/set pad character. */
245		PC = buf[0];
246
247#ifdef TAB3
248	if (oldmode.c_oflag & (TAB3 | ONLCR | OCRNL | ONLRET)) {
249		oldmode.c_oflag &= (TAB3 | ONLCR | OCRNL | ONLRET);
250		tcsetattr(STDERR_FILENO, TCSADRAIN, &oldmode);
251	}
252#endif
253	settle = set_tabs();
254
255	if (isreset) {
256		bp = buf;
257		if (tgetstr("rs", &bp) != 0 || tgetstr("is", &bp) != 0) {
258			tputs(buf, 0, outc);
259			settle = 1;
260		}
261		bp = buf;
262		if (tgetstr("rf", &bp) != 0 || tgetstr("if", &bp) != 0) {
263			cat(buf);
264			settle = 1;
265		}
266	}
267
268	if (settle) {
269		(void)putc('\r', stderr);
270		(void)fflush(stderr);
271		(void)sleep(1);			/* Settle the terminal. */
272	}
273}
274
275/*
276 * Set the hardware tabs on the terminal, using the ct (clear all tabs),
277 * st (set one tab) and ch (horizontal cursor addressing) capabilities.
278 * This is done before if and is, so they can patch in case we blow this.
279 * Return nonzero if we set any tab stops, zero if not.
280 */
281int
282set_tabs()
283{
284	int c;
285	char *capsp, *clear_tabs;
286	char *set_column, *set_pos, *set_tab, *tg_out;
287	char caps[1024];
288
289	capsp = caps;
290	set_tab = tgetstr("st", &capsp);
291
292	if (set_tab && (clear_tabs = tgetstr("ct", &capsp))) {
293		(void)putc('\r', stderr);	/* Force to left margin. */
294		tputs(clear_tabs, 0, outc);
295	}
296
297	set_column = tgetstr("ch", &capsp);
298	set_pos = set_column ? NULL : tgetstr("cm", &capsp);
299
300	if (set_tab) {
301		for (c = 8; c < columns; c += 8) {
302			/*
303			 * Get to the right column.  "OOPS" is returned by
304			 * tgoto() if it can't do the job.  (*snarl*)
305			 */
306			tg_out = "OOPS";
307			if (set_column)
308				tg_out = tgoto(set_column, 0, c);
309			if (*tg_out == 'O' && set_pos)
310				tg_out = tgoto(set_pos, c, lines - 1);
311			if (*tg_out != 'O')
312				tputs(tg_out, 1, outc);
313			else
314				(void)fprintf(stderr, "%s", "        ");
315			/* Set the tab. */
316			tputs(set_tab, 0, outc);
317		}
318		putc('\r', stderr);
319		return (1);
320	}
321	return (0);
322}
323