tset.c revision 1.20 1 1.20 joerg /* $NetBSD: tset.c,v 1.20 2011/09/06 18:34:12 joerg Exp $ */
2 1.4 jtc
3 1.1 cgd /*-
4 1.4 jtc * Copyright (c) 1980, 1991, 1993
5 1.4 jtc * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.13 agc * 3. Neither the name of the University nor the names of its contributors
16 1.1 cgd * may be used to endorse or promote products derived from this software
17 1.1 cgd * without specific prior written permission.
18 1.1 cgd *
19 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 1.1 cgd * SUCH DAMAGE.
30 1.1 cgd */
31 1.1 cgd
32 1.5 lukem #include <sys/cdefs.h>
33 1.16 lukem __COPYRIGHT("@(#) Copyright (c) 1980, 1991, 1993\
34 1.16 lukem The Regents of the University of California. All rights reserved.");
35 1.20 joerg __RCSID("$NetBSD: tset.c,v 1.20 2011/09/06 18:34:12 joerg Exp $");
36 1.1 cgd
37 1.1 cgd #include <sys/types.h>
38 1.2 cgd #include <sys/ioctl.h>
39 1.5 lukem #include <ctype.h>
40 1.6 lukem #include <err.h>
41 1.1 cgd #include <errno.h>
42 1.5 lukem #include <stdio.h>
43 1.1 cgd #include <stdlib.h>
44 1.1 cgd #include <string.h>
45 1.18 roy #include <term.h>
46 1.5 lukem #include <termios.h>
47 1.5 lukem #include <unistd.h>
48 1.1 cgd #include "extern.h"
49 1.1 cgd
50 1.20 joerg static void obsolete(char *[]);
51 1.20 joerg static void report(const char *, int, u_int);
52 1.20 joerg __dead static void usage(void);
53 1.1 cgd
54 1.1 cgd struct termios mode, oldmode;
55 1.1 cgd
56 1.1 cgd int isreset; /* invoked as reset */
57 1.18 roy int nlines, ncolumns; /* window size */
58 1.1 cgd
59 1.1 cgd int
60 1.20 joerg main(int argc, char *argv[])
61 1.1 cgd {
62 1.1 cgd #ifdef TIOCGWINSZ
63 1.1 cgd struct winsize win;
64 1.1 cgd #endif
65 1.18 roy int ch, noinit, noset, quiet, sflag, showterm;
66 1.15 chs int erasechar = 0, intrchar = 0, killchar = 0;
67 1.10 blymn int usingupper;
68 1.18 roy char *p;
69 1.18 roy const char *k1, *k2;
70 1.7 mycroft const char *ttype;
71 1.1 cgd
72 1.1 cgd if (tcgetattr(STDERR_FILENO, &mode) < 0)
73 1.6 lukem err(1, "standard error");
74 1.1 cgd
75 1.1 cgd oldmode = mode;
76 1.1 cgd ospeed = cfgetospeed(&mode);
77 1.1 cgd
78 1.5 lukem if ((p = strrchr(*argv, '/')) != NULL)
79 1.1 cgd ++p;
80 1.1 cgd else
81 1.1 cgd p = *argv;
82 1.8 christos usingupper = isupper((unsigned char)*p);
83 1.1 cgd if (!strcasecmp(p, "reset")) {
84 1.1 cgd isreset = 1;
85 1.1 cgd reset_mode();
86 1.1 cgd }
87 1.1 cgd
88 1.1 cgd obsolete(argv);
89 1.18 roy noinit = noset = quiet = sflag = showterm = 0;
90 1.10 blymn while ((ch = getopt(argc, argv, "-a:d:e:EIi:k:m:np:QSrs")) != -1) {
91 1.1 cgd switch (ch) {
92 1.2 cgd case '-': /* display term only */
93 1.1 cgd noset = 1;
94 1.1 cgd break;
95 1.1 cgd case 'a': /* OBSOLETE: map identifier to type */
96 1.1 cgd add_mapping("arpanet", optarg);
97 1.1 cgd break;
98 1.1 cgd case 'd': /* OBSOLETE: map identifier to type */
99 1.1 cgd add_mapping("dialup", optarg);
100 1.1 cgd break;
101 1.1 cgd case 'e': /* erase character */
102 1.1 cgd erasechar = optarg[0] == '^' && optarg[1] != '\0' ?
103 1.1 cgd optarg[1] == '?' ? '\177' : CTRL(optarg[1]) :
104 1.1 cgd optarg[0];
105 1.1 cgd break;
106 1.18 roy case 'E': /* -E does not make sense for terminfo
107 1.18 roy should this be noisy? */
108 1.10 blymn break;
109 1.2 cgd case 'I': /* no initialization strings */
110 1.1 cgd noinit = 1;
111 1.1 cgd break;
112 1.1 cgd case 'i': /* interrupt character */
113 1.1 cgd intrchar = optarg[0] == '^' && optarg[1] != '\0' ?
114 1.1 cgd optarg[1] == '?' ? '\177' : CTRL(optarg[1]) :
115 1.1 cgd optarg[0];
116 1.1 cgd break;
117 1.1 cgd case 'k': /* kill character */
118 1.1 cgd killchar = optarg[0] == '^' && optarg[1] != '\0' ?
119 1.1 cgd optarg[1] == '?' ? '\177' : CTRL(optarg[1]) :
120 1.1 cgd optarg[0];
121 1.1 cgd break;
122 1.1 cgd case 'm': /* map identifier to type */
123 1.1 cgd add_mapping(NULL, optarg);
124 1.1 cgd break;
125 1.1 cgd case 'n': /* OBSOLETE: set new tty driver */
126 1.1 cgd break;
127 1.1 cgd case 'p': /* OBSOLETE: map identifier to type */
128 1.1 cgd add_mapping("plugboard", optarg);
129 1.1 cgd break;
130 1.2 cgd case 'Q': /* don't output control key settings */
131 1.1 cgd quiet = 1;
132 1.1 cgd break;
133 1.18 roy case 'S': /* -S does not make sense for terminfo
134 1.18 roy should this be noisy? */
135 1.2 cgd break;
136 1.1 cgd case 'r': /* display term on stderr */
137 1.1 cgd showterm = 1;
138 1.1 cgd break;
139 1.18 roy case 's': /* output TERM string */
140 1.2 cgd sflag = 1;
141 1.1 cgd break;
142 1.1 cgd case '?':
143 1.1 cgd default:
144 1.1 cgd usage();
145 1.1 cgd }
146 1.1 cgd }
147 1.1 cgd argc -= optind;
148 1.1 cgd argv += optind;
149 1.1 cgd
150 1.1 cgd if (argc > 1)
151 1.1 cgd usage();
152 1.1 cgd
153 1.18 roy ttype = get_terminfo_entry(*argv);
154 1.1 cgd
155 1.1 cgd if (!noset) {
156 1.18 roy ncolumns = columns;
157 1.18 roy nlines = lines;
158 1.1 cgd
159 1.1 cgd #ifdef TIOCGWINSZ
160 1.1 cgd /* Set window size */
161 1.1 cgd (void)ioctl(STDERR_FILENO, TIOCGWINSZ, &win);
162 1.11 simonb if (win.ws_row > 0 && win.ws_col > 0) {
163 1.18 roy nlines = win.ws_row;
164 1.18 roy ncolumns = win.ws_col;
165 1.11 simonb } else if (win.ws_row == 0 && win.ws_col == 0 &&
166 1.18 roy nlines > 0 && columns > 0) {
167 1.18 roy win.ws_row = nlines;
168 1.18 roy win.ws_col = ncolumns;
169 1.1 cgd (void)ioctl(STDERR_FILENO, TIOCSWINSZ, &win);
170 1.1 cgd }
171 1.1 cgd #endif
172 1.15 chs set_control_chars(erasechar, intrchar, killchar);
173 1.1 cgd set_conversions(usingupper);
174 1.1 cgd
175 1.1 cgd if (!noinit)
176 1.1 cgd set_init();
177 1.1 cgd
178 1.1 cgd /* Set the modes if they've changed. */
179 1.1 cgd if (memcmp(&mode, &oldmode, sizeof(mode)))
180 1.1 cgd tcsetattr(STDERR_FILENO, TCSADRAIN, &mode);
181 1.1 cgd }
182 1.1 cgd
183 1.1 cgd if (noset)
184 1.1 cgd (void)printf("%s\n", ttype);
185 1.1 cgd else {
186 1.1 cgd if (showterm)
187 1.1 cgd (void)fprintf(stderr, "Terminal type is %s.\n", ttype);
188 1.1 cgd /*
189 1.1 cgd * If erase, kill and interrupt characters could have been
190 1.1 cgd * modified and not -Q, display the changes.
191 1.1 cgd */
192 1.1 cgd if (!quiet) {
193 1.1 cgd report("Erase", VERASE, CERASE);
194 1.1 cgd report("Kill", VKILL, CKILL);
195 1.1 cgd report("Interrupt", VINTR, CINTR);
196 1.1 cgd }
197 1.1 cgd }
198 1.1 cgd
199 1.2 cgd if (sflag) {
200 1.2 cgd /*
201 1.2 cgd * Figure out what shell we're using. A hack, we look for an
202 1.2 cgd * environmental variable SHELL ending in "csh".
203 1.2 cgd */
204 1.2 cgd if ((p = getenv("SHELL")) &&
205 1.2 cgd !strcmp(p + strlen(p) - 3, "csh")) {
206 1.17 lukem k1 = "set noglob;\nsetenv TERM ";
207 1.18 roy k2 = ";\nunset noglob;\n";
208 1.2 cgd } else {
209 1.17 lukem k1 = "TERM=";
210 1.18 roy k2 = ";\nexport TERM;\n";
211 1.2 cgd }
212 1.17 lukem (void)printf("%s%s%s", k1, ttype, k2);
213 1.2 cgd }
214 1.1 cgd
215 1.1 cgd exit(0);
216 1.1 cgd }
217 1.1 cgd
218 1.1 cgd /*
219 1.1 cgd * Tell the user if a control key has been changed from the default value.
220 1.1 cgd */
221 1.20 joerg static void
222 1.20 joerg report(const char *name, int which, u_int def)
223 1.1 cgd {
224 1.1 cgd u_int old, new;
225 1.1 cgd
226 1.1 cgd new = mode.c_cc[which];
227 1.1 cgd old = oldmode.c_cc[which];
228 1.1 cgd
229 1.1 cgd if (old == new && old == def)
230 1.1 cgd return;
231 1.1 cgd
232 1.1 cgd (void)fprintf(stderr, "%s %s ", name, old == new ? "is" : "set to");
233 1.1 cgd
234 1.18 roy if (key_backspace != NULL &&
235 1.18 roy new == (unsigned int)key_backspace[0] &&
236 1.18 roy key_backspace[1] == '\0')
237 1.1 cgd (void)fprintf(stderr, "backspace.\n");
238 1.1 cgd else if (new == 0177)
239 1.1 cgd (void)fprintf(stderr, "delete.\n");
240 1.1 cgd else if (new < 040) {
241 1.1 cgd new ^= 0100;
242 1.1 cgd (void)fprintf(stderr, "control-%c (^%c).\n", new, new);
243 1.9 kleink } else if (new == _POSIX_VDISABLE)
244 1.9 kleink (void)fprintf(stderr, "<undef>.\n");
245 1.9 kleink else
246 1.1 cgd (void)fprintf(stderr, "%c.\n", new);
247 1.1 cgd }
248 1.1 cgd
249 1.1 cgd /*
250 1.1 cgd * Convert the obsolete argument form into something that getopt can handle.
251 1.1 cgd * This means that -e, -i and -k get default arguments supplied for them.
252 1.1 cgd */
253 1.1 cgd void
254 1.20 joerg obsolete(char *argv[])
255 1.1 cgd {
256 1.17 lukem static char earg[5] = { '-', 'e', '^', 'H', '\0' };
257 1.17 lukem static char iarg[5] = { '-', 'i', '^', 'C', '\0' };
258 1.17 lukem static char karg[5] = { '-', 'k', '^', 'U', '\0' };
259 1.17 lukem
260 1.1 cgd for (; *argv; ++argv) {
261 1.5 lukem if (argv[0][0] != '-' || (argv[1] && argv[1][0] != '-') ||
262 1.5 lukem (argv[0][1] != 'e' && argv[0][1] != 'i' &&
263 1.5 lukem argv[0][1] != 'k') || argv[0][2] != '\0')
264 1.1 cgd continue;
265 1.1 cgd switch(argv[0][1]) {
266 1.1 cgd case 'e':
267 1.17 lukem argv[0] = earg;
268 1.1 cgd break;
269 1.1 cgd case 'i':
270 1.17 lukem argv[0] = iarg;
271 1.1 cgd break;
272 1.1 cgd case 'k':
273 1.17 lukem argv[0] = karg;
274 1.1 cgd break;
275 1.1 cgd }
276 1.1 cgd }
277 1.1 cgd }
278 1.1 cgd
279 1.20 joerg static void
280 1.20 joerg usage(void)
281 1.1 cgd {
282 1.1 cgd (void)fprintf(stderr,
283 1.14 wiz "usage: %s [-EIQrSs] [-] [-e ch] [-i ch] [-k ch] [-m mapping] [terminal]\n",
284 1.14 wiz getprogname());
285 1.1 cgd exit(1);
286 1.1 cgd }
287