ncurses 5.4
[ncurses.git] / progs / tset.c
1 /****************************************************************************
2  * Copyright (c) 1998-2002,2003 Free Software Foundation, Inc.              *
3  *                                                                          *
4  * Permission is hereby granted, free of charge, to any person obtaining a  *
5  * copy of this software and associated documentation files (the            *
6  * "Software"), to deal in the Software without restriction, including      *
7  * without limitation the rights to use, copy, modify, merge, publish,      *
8  * distribute, distribute with modifications, sublicense, and/or sell       *
9  * copies of the Software, and to permit persons to whom the Software is    *
10  * furnished to do so, subject to the following conditions:                 *
11  *                                                                          *
12  * The above copyright notice and this permission notice shall be included  *
13  * in all copies or substantial portions of the Software.                   *
14  *                                                                          *
15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
22  *                                                                          *
23  * Except as contained in this notice, the name(s) of the above copyright   *
24  * holders shall not be used in advertising or otherwise to promote the     *
25  * sale, use or other dealings in this Software without prior written       *
26  * authorization.                                                           *
27  ****************************************************************************/
28
29 /****************************************************************************
30  *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
31  *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
32  ****************************************************************************/
33
34 /*
35  * tset.c - terminal initialization utility
36  *
37  * This code was mostly swiped from 4.4BSD tset, with some obsolescent
38  * cruft removed and substantial portions rewritten.  A Regents of the
39  * University of California copyright applies to some portions of the
40  * code, and is reproduced below:
41  */
42 /*-
43  * Copyright (c) 1980, 1991, 1993
44  *      The Regents of the University of California.  All rights reserved.
45  *
46  * Redistribution and use in source and binary forms, with or without
47  * modification, are permitted provided that the following conditions
48  * are met:
49  * 1. Redistributions of source code must retain the above copyright
50  *    notice, this list of conditions and the following disclaimer.
51  * 2. Redistributions in binary form must reproduce the above copyright
52  *    notice, this list of conditions and the following disclaimer in the
53  *    documentation and/or other materials provided with the distribution.
54  * 3. All advertising materials mentioning features or use of this software
55  *    must display the following acknowledgement:
56  *      This product includes software developed by the University of
57  *      California, Berkeley and its contributors.
58  * 4. Neither the name of the University nor the names of its contributors
59  *    may be used to endorse or promote products derived from this software
60  *    without specific prior written permission.
61  *
62  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
63  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
64  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
65  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
66  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
67  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
68  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
69  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
70  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
71  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
72  * SUCH DAMAGE.
73  */
74
75 #define __INTERNAL_CAPS_VISIBLE /* we need to see has_hardware_tabs */
76 #include <progs.priv.h>
77
78 #include <errno.h>
79 #include <stdio.h>
80 #include <termcap.h>
81 #include <fcntl.h>
82
83 #if HAVE_GETTTYNAM && HAVE_TTYENT_H
84 #include <ttyent.h>
85 #endif
86 #ifdef NeXT
87 char *ttyname(int fd);
88 #endif
89
90 /* this is just to stifle a missing-prototype warning */
91 #ifdef linux
92 # include <sys/ioctl.h>
93 #endif
94
95 #if NEED_PTEM_H
96 /* they neglected to define struct winsize in termios.h -- it's only
97    in termio.h  */
98 #include <sys/stream.h>
99 #include <sys/ptem.h>
100 #endif
101
102 #include <curses.h>             /* for bool typedef */
103 #include <dump_entry.h>
104 #include <transform.h>
105
106 MODULE_ID("$Id: tset.c,v 0.56 2003/12/06 17:21:01 tom Exp $")
107
108 extern char **environ;
109
110 #undef CTRL
111 #define CTRL(x) ((x) & 0x1f)
112
113 const char *_nc_progname = "tset";
114
115 static TTY mode, oldmode, original;
116
117 static bool can_restore = FALSE;
118 static bool isreset = FALSE;    /* invoked as reset */
119 static int terasechar = -1;     /* new erase character */
120 static int intrchar = -1;       /* new interrupt character */
121 static int tkillchar = -1;      /* new kill character */
122 static int tlines, tcolumns;    /* window size */
123
124 #define LOWERCASE(c) ((isalpha(UChar(c)) && isupper(UChar(c))) ? tolower(UChar(c)) : (c))
125
126 static int
127 CaselessCmp(const char *a, const char *b)
128 {                               /* strcasecmp isn't portable */
129     while (*a && *b) {
130         int cmp = LOWERCASE(*a) - LOWERCASE(*b);
131         if (cmp != 0)
132             break;
133         a++, b++;
134     }
135     return LOWERCASE(*a) - LOWERCASE(*b);
136 }
137
138 static void
139 exit_error(void)
140 {
141     if (can_restore)
142         SET_TTY(STDERR_FILENO, &original);
143     (void) fprintf(stderr, "\n");
144     fflush(stderr);
145     ExitProgram(EXIT_FAILURE);
146     /* NOTREACHED */
147 }
148
149 static void
150 err(const char *fmt,...)
151 {
152     va_list ap;
153     va_start(ap, fmt);
154     (void) fprintf(stderr, "tset: ");
155     (void) vfprintf(stderr, fmt, ap);
156     va_end(ap);
157     exit_error();
158     /* NOTREACHED */
159 }
160
161 static void
162 failed(const char *msg)
163 {
164     char temp[BUFSIZ];
165     perror(strncat(strcpy(temp, "tset: "), msg, sizeof(temp) - 10));
166     exit_error();
167     /* NOTREACHED */
168 }
169
170 static void
171 cat(char *file)
172 {
173     FILE *fp;
174     size_t nr;
175     char buf[BUFSIZ];
176
177     if ((fp = fopen(file, "r")) == 0)
178         failed(file);
179
180     while ((nr = fread(buf, sizeof(char), sizeof(buf), fp)) != 0)
181         if (fwrite(buf, sizeof(char), nr, stderr) != nr)
182               failed("write to stderr");
183     fclose(fp);
184 }
185
186 static int
187 outc(int c)
188 {
189     return putc(c, stderr);
190 }
191
192 /* Prompt the user for a terminal type. */
193 static const char *
194 askuser(const char *dflt)
195 {
196     static char answer[256];
197     char *p;
198
199     /* We can get recalled; if so, don't continue uselessly. */
200     clearerr(stdin);
201     if (feof(stdin) || ferror(stdin)) {
202         (void) fprintf(stderr, "\n");
203         exit_error();
204         /* NOTREACHED */
205     }
206     for (;;) {
207         if (dflt)
208             (void) fprintf(stderr, "Terminal type? [%s] ", dflt);
209         else
210             (void) fprintf(stderr, "Terminal type? ");
211         (void) fflush(stderr);
212
213         if (fgets(answer, sizeof(answer), stdin) == 0) {
214             if (dflt == 0) {
215                 exit_error();
216                 /* NOTREACHED */
217             }
218             return (dflt);
219         }
220
221         if ((p = strchr(answer, '\n')) != 0)
222             *p = '\0';
223         if (answer[0])
224             return (answer);
225         if (dflt != 0)
226             return (dflt);
227     }
228 }
229
230 /**************************************************************************
231  *
232  * Mapping logic begins here
233  *
234  **************************************************************************/
235
236 /* Baud rate conditionals for mapping. */
237 #define GT              0x01
238 #define EQ              0x02
239 #define LT              0x04
240 #define NOT             0x08
241 #define GE              (GT | EQ)
242 #define LE              (LT | EQ)
243
244 typedef struct map {
245     struct map *next;           /* Linked list of maps. */
246     const char *porttype;       /* Port type, or "" for any. */
247     const char *type;           /* Terminal type to select. */
248     int conditional;            /* Baud rate conditionals bitmask. */
249     int speed;                  /* Baud rate to compare against. */
250 } MAP;
251
252 static MAP *cur, *maplist;
253
254 typedef struct speeds {
255     const char *string;
256     int speed;
257 } SPEEDS;
258
259 static const SPEEDS speeds[] =
260 {
261     {"0", B0},
262     {"50", B50},
263     {"75", B75},
264     {"110", B110},
265     {"134", B134},
266     {"134.5", B134},
267     {"150", B150},
268     {"200", B200},
269     {"300", B300},
270     {"600", B600},
271     {"1200", B1200},
272     {"1800", B1800},
273     {"2400", B2400},
274     {"4800", B4800},
275     {"9600", B9600},
276     /* sgttyb may define up to this point */
277 #ifdef B19200
278     {"19200", B19200},
279 #endif
280 #ifdef B38400
281     {"38400", B38400},
282 #endif
283 #ifdef B19200
284     {"19200", B19200},
285 #endif
286 #ifdef B38400
287     {"38400", B38400},
288 #endif
289 #ifdef B19200
290     {"19200", B19200},
291 #else
292 #ifdef EXTA
293     {"19200", EXTA},
294 #endif
295 #endif
296 #ifdef B38400
297     {"38400", B38400},
298 #else
299 #ifdef EXTB
300     {"38400", EXTB},
301 #endif
302 #endif
303 #ifdef B57600
304     {"57600", B57600},
305 #endif
306 #ifdef B115200
307     {"115200", B115200},
308 #endif
309 #ifdef B230400
310     {"230400", B230400},
311 #endif
312 #ifdef B460800
313     {"460800", B460800},
314 #endif
315     {(char *) 0, 0}
316 };
317
318 static int
319 tbaudrate(char *rate)
320 {
321     const SPEEDS *sp;
322     int found = FALSE;
323
324     /* The baudrate number can be preceded by a 'B', which is ignored. */
325     if (*rate == 'B')
326         ++rate;
327
328     for (sp = speeds; sp->string; ++sp) {
329         if (!CaselessCmp(rate, sp->string)) {
330             found = TRUE;
331             break;
332         }
333     }
334     if (!found)
335         err("unknown baud rate %s", rate);
336     return (sp->speed);
337 }
338
339 /*
340  * Syntax for -m:
341  * [port-type][test baudrate]:terminal-type
342  * The baud rate tests are: >, <, @, =, !
343  */
344 static void
345 add_mapping(const char *port, char *arg)
346 {
347     MAP *mapp;
348     char *copy, *p;
349     const char *termp;
350     char *base = 0;
351
352     copy = strdup(arg);
353     mapp = (MAP *) malloc(sizeof(MAP));
354     if (copy == 0 || mapp == 0)
355         failed("malloc");
356     mapp->next = 0;
357     if (maplist == 0)
358         cur = maplist = mapp;
359     else {
360         cur->next = mapp;
361         cur = mapp;
362     }
363
364     mapp->porttype = arg;
365     mapp->conditional = 0;
366
367     arg = strpbrk(arg, "><@=!:");
368
369     if (arg == 0) {             /* [?]term */
370         mapp->type = mapp->porttype;
371         mapp->porttype = 0;
372         goto done;
373     }
374
375     if (arg == mapp->porttype)  /* [><@=! baud]:term */
376         termp = mapp->porttype = 0;
377     else
378         termp = base = arg;
379
380     for (;; ++arg) {            /* Optional conditionals. */
381         switch (*arg) {
382         case '<':
383             if (mapp->conditional & GT)
384                 goto badmopt;
385             mapp->conditional |= LT;
386             break;
387         case '>':
388             if (mapp->conditional & LT)
389                 goto badmopt;
390             mapp->conditional |= GT;
391             break;
392         case '@':
393         case '=':               /* Not documented. */
394             mapp->conditional |= EQ;
395             break;
396         case '!':
397             mapp->conditional |= NOT;
398             break;
399         default:
400             goto next;
401         }
402     }
403
404   next:
405     if (*arg == ':') {
406         if (mapp->conditional)
407             goto badmopt;
408         ++arg;
409     } else {                    /* Optional baudrate. */
410         arg = strchr(p = arg, ':');
411         if (arg == 0)
412             goto badmopt;
413         *arg++ = '\0';
414         mapp->speed = tbaudrate(p);
415     }
416
417     if (arg == (char *) 0)      /* Non-optional type. */
418         goto badmopt;
419
420     mapp->type = arg;
421
422     /* Terminate porttype, if specified. */
423     if (termp != 0)
424         *base = '\0';
425
426     /* If a NOT conditional, reverse the test. */
427     if (mapp->conditional & NOT)
428         mapp->conditional = ~mapp->conditional & (EQ | GT | LT);
429
430     /* If user specified a port with an option flag, set it. */
431   done:if (port) {
432         if (mapp->porttype)
433           badmopt:err("illegal -m option format: %s", copy);
434         mapp->porttype = port;
435     }
436 #ifdef MAPDEBUG
437     (void) printf("port: %s\n", mapp->porttype ? mapp->porttype : "ANY");
438     (void) printf("type: %s\n", mapp->type);
439     (void) printf("conditional: ");
440     p = "";
441     if (mapp->conditional & GT) {
442         (void) printf("GT");
443         p = "/";
444     }
445     if (mapp->conditional & EQ) {
446         (void) printf("%sEQ", p);
447         p = "/";
448     }
449     if (mapp->conditional & LT)
450         (void) printf("%sLT", p);
451     (void) printf("\nspeed: %d\n", mapp->speed);
452 #endif
453 }
454
455 /*
456  * Return the type of terminal to use for a port of type 'type', as specified
457  * by the first applicable mapping in 'map'.  If no mappings apply, return
458  * 'type'.
459  */
460 static const char *
461 mapped(const char *type)
462 {
463     MAP *mapp;
464     int match;
465
466     for (mapp = maplist; mapp; mapp = mapp->next)
467         if (mapp->porttype == 0 || !strcmp(mapp->porttype, type)) {
468             switch (mapp->conditional) {
469             case 0:             /* No test specified. */
470                 match = TRUE;
471                 break;
472             case EQ:
473                 match = (ospeed == mapp->speed);
474                 break;
475             case GE:
476                 match = (ospeed >= mapp->speed);
477                 break;
478             case GT:
479                 match = (ospeed > mapp->speed);
480                 break;
481             case LE:
482                 match = (ospeed <= mapp->speed);
483                 break;
484             case LT:
485                 match = (ospeed < mapp->speed);
486                 break;
487             default:
488                 match = FALSE;
489             }
490             if (match)
491                 return (mapp->type);
492         }
493     /* No match found; return given type. */
494     return (type);
495 }
496
497 /**************************************************************************
498  *
499  * Entry fetching
500  *
501  **************************************************************************/
502
503 /*
504  * Figure out what kind of terminal we're dealing with, and then read in
505  * its termcap entry.
506  */
507 static const char *
508 get_termcap_entry(char *userarg)
509 {
510     int errret;
511     char *p;
512     const char *ttype;
513 #if HAVE_GETTTYNAM
514     struct ttyent *t;
515 #else
516     FILE *fp;
517 #endif
518     char *ttypath;
519
520     if (userarg) {
521         ttype = userarg;
522         goto found;
523     }
524
525     /* Try the environment. */
526     if ((ttype = getenv("TERM")) != 0)
527         goto map;
528
529     if ((ttypath = ttyname(STDERR_FILENO)) != 0) {
530         p = _nc_basename(ttypath);
531 #if HAVE_GETTTYNAM
532         /*
533          * We have the 4.3BSD library call getttynam(3); that means
534          * there's an /etc/ttys to look up device-to-type mappings in.
535          * Try ttyname(3); check for dialup or other mapping.
536          */
537         if ((t = getttynam(p))) {
538             ttype = t->ty_type;
539             goto map;
540         }
541 #else
542         if ((fp = fopen("/etc/ttytype", "r")) != 0
543             || (fp = fopen("/etc/ttys", "r")) != 0) {
544             char buffer[BUFSIZ];
545             char *s, *t, *d;
546
547             while (fgets(buffer, sizeof(buffer) - 1, fp) != 0) {
548                 for (s = buffer, t = d = 0; *s; s++) {
549                     if (isspace(UChar(*s)))
550                         *s = '\0';
551                     else if (t == 0)
552                         t = s;
553                     else if (d == 0 && s != buffer && s[-1] == '\0')
554                         d = s;
555                 }
556                 if (t != 0 && d != 0 && !strcmp(d, p)) {
557                     ttype = strdup(t);
558                     fclose(fp);
559                     goto map;
560                 }
561             }
562             fclose(fp);
563         }
564 #endif /* HAVE_GETTTYNAM */
565     }
566
567     /* If still undefined, use "unknown". */
568     ttype = "unknown";
569
570   map:ttype = mapped(ttype);
571
572     /*
573      * If not a path, remove TERMCAP from the environment so we get a
574      * real entry from /etc/termcap.  This prevents us from being fooled
575      * by out of date stuff in the environment.
576      */
577   found:if ((p = getenv("TERMCAP")) != 0 && *p != '/') {
578         /* 'unsetenv("TERMCAP")' is not portable.
579          * The 'environ' array is better.
580          */
581         int n;
582         for (n = 0; environ[n] != 0; n++) {
583             if (!strncmp("TERMCAP=", environ[n], 8)) {
584                 while ((environ[n] = environ[n + 1]) != 0) {
585                     n++;
586                 }
587                 break;
588             }
589         }
590     }
591
592     /*
593      * ttype now contains a pointer to the type of the terminal.
594      * If the first character is '?', ask the user.
595      */
596     if (ttype[0] == '?') {
597         if (ttype[1] != '\0')
598             ttype = askuser(ttype + 1);
599         else
600             ttype = askuser(0);
601     }
602     /* Find the terminfo entry.  If it doesn't exist, ask the user. */
603     while (setupterm((NCURSES_CONST char *) ttype, STDOUT_FILENO, &errret)
604            != OK) {
605         if (errret == 0) {
606             (void) fprintf(stderr, "tset: unknown terminal type %s\n",
607                            ttype);
608             ttype = 0;
609         } else {
610             (void) fprintf(stderr,
611                            "tset: can't initialize terminal type %s (error %d)\n",
612                            ttype, errret);
613             ttype = 0;
614         }
615         ttype = askuser(ttype);
616     }
617 #if BROKEN_LINKER
618     tgetflag("am");             /* force lib_termcap.o to be linked for 'ospeed' */
619 #endif
620     return (ttype);
621 }
622
623 /**************************************************************************
624  *
625  * Mode-setting logic
626  *
627  **************************************************************************/
628
629 /* some BSD systems have these built in, some systems are missing
630  * one or more definitions. The safest solution is to override unless the
631  * commonly-altered ones are defined.
632  */
633 #if !(defined(CERASE) && defined(CINTR) && defined(CKILL) && defined(CQUIT))
634 #undef CEOF
635 #undef CERASE
636 #undef CINTR
637 #undef CKILL
638 #undef CLNEXT
639 #undef CRPRNT
640 #undef CQUIT
641 #undef CSTART
642 #undef CSTOP
643 #undef CSUSP
644 #endif
645
646 /* control-character defaults */
647 #ifndef CEOF
648 #define CEOF    CTRL('D')
649 #endif
650 #ifndef CERASE
651 #define CERASE  CTRL('H')
652 #endif
653 #ifndef CINTR
654 #define CINTR   127             /* ^? */
655 #endif
656 #ifndef CKILL
657 #define CKILL   CTRL('U')
658 #endif
659 #ifndef CLNEXT
660 #define CLNEXT  CTRL('v')
661 #endif
662 #ifndef CRPRNT
663 #define CRPRNT  CTRL('r')
664 #endif
665 #ifndef CQUIT
666 #define CQUIT   CTRL('\\')
667 #endif
668 #ifndef CSTART
669 #define CSTART  CTRL('Q')
670 #endif
671 #ifndef CSTOP
672 #define CSTOP   CTRL('S')
673 #endif
674 #ifndef CSUSP
675 #define CSUSP   CTRL('Z')
676 #endif
677
678 #define CHK(val, dft)   ((int)val <= 0 ? dft : val)
679
680 static bool set_tabs(void);
681
682 /*
683  * Reset the terminal mode bits to a sensible state.  Very useful after
684  * a child program dies in raw mode.
685  */
686 static void
687 reset_mode(void)
688 {
689 #ifdef TERMIOS
690     tcgetattr(STDERR_FILENO, &mode);
691 #else
692     stty(STDERR_FILENO, &mode);
693 #endif
694
695 #ifdef TERMIOS
696 #if defined(VDISCARD) && defined(CDISCARD)
697     mode.c_cc[VDISCARD] = CHK(mode.c_cc[VDISCARD], CDISCARD);
698 #endif
699     mode.c_cc[VEOF] = CHK(mode.c_cc[VEOF], CEOF);
700     mode.c_cc[VERASE] = CHK(mode.c_cc[VERASE], CERASE);
701 #if defined(VFLUSH) && defined(CFLUSH)
702     mode.c_cc[VFLUSH] = CHK(mode.c_cc[VFLUSH], CFLUSH);
703 #endif
704     mode.c_cc[VINTR] = CHK(mode.c_cc[VINTR], CINTR);
705     mode.c_cc[VKILL] = CHK(mode.c_cc[VKILL], CKILL);
706 #if defined(VLNEXT) && defined(CLNEXT)
707     mode.c_cc[VLNEXT] = CHK(mode.c_cc[VLNEXT], CLNEXT);
708 #endif
709     mode.c_cc[VQUIT] = CHK(mode.c_cc[VQUIT], CQUIT);
710 #if defined(VREPRINT) && defined(CRPRNT)
711     mode.c_cc[VREPRINT] = CHK(mode.c_cc[VREPRINT], CRPRNT);
712 #endif
713 #if defined(VSTART) && defined(CSTART)
714     mode.c_cc[VSTART] = CHK(mode.c_cc[VSTART], CSTART);
715 #endif
716 #if defined(VSTOP) && defined(CSTOP)
717     mode.c_cc[VSTOP] = CHK(mode.c_cc[VSTOP], CSTOP);
718 #endif
719 #if defined(VSUSP) && defined(CSUSP)
720     mode.c_cc[VSUSP] = CHK(mode.c_cc[VSUSP], CSUSP);
721 #endif
722 #if defined(VWERASE) && defined(CWERASE)
723     mode.c_cc[VWERASE] = CHK(mode.c_cc[VWERASE], CWERASE);
724 #endif
725
726     mode.c_iflag &= ~(IGNBRK | PARMRK | INPCK | ISTRIP | INLCR | IGNCR
727 #ifdef IUCLC
728                       | IUCLC
729 #endif
730 #ifdef IXANY
731                       | IXANY
732 #endif
733                       | IXOFF);
734
735     mode.c_iflag |= (BRKINT | IGNPAR | ICRNL | IXON
736 #ifdef IMAXBEL
737                      | IMAXBEL
738 #endif
739         );
740
741     mode.c_oflag &= ~(0
742 #ifdef OLCUC
743                       | OLCUC
744 #endif
745 #ifdef OCRNL
746                       | OCRNL
747 #endif
748 #ifdef ONOCR
749                       | ONOCR
750 #endif
751 #ifdef ONLRET
752                       | ONLRET
753 #endif
754 #ifdef OFILL
755                       | OFILL
756 #endif
757 #ifdef OFDEL
758                       | OFDEL
759 #endif
760 #ifdef NLDLY
761                       | NLDLY | CRDLY | TABDLY | BSDLY | VTDLY | FFDLY
762 #endif
763         );
764
765     mode.c_oflag |= (OPOST
766 #ifdef ONLCR
767                      | ONLCR
768 #endif
769         );
770
771     mode.c_cflag &= ~(CSIZE | CSTOPB | PARENB | PARODD | CLOCAL);
772     mode.c_cflag |= (CS8 | CREAD);
773     mode.c_lflag &= ~(ECHONL | NOFLSH
774 #ifdef TOSTOP
775                       | TOSTOP
776 #endif
777 #ifdef ECHOPTR
778                       | ECHOPRT
779 #endif
780 #ifdef XCASE
781                       | XCASE
782 #endif
783         );
784
785     mode.c_lflag |= (ISIG | ICANON | ECHO | ECHOE | ECHOK
786 #ifdef ECHOCTL
787                      | ECHOCTL
788 #endif
789 #ifdef ECHOKE
790                      | ECHOKE
791 #endif
792         );
793 #endif
794
795     SET_TTY(STDERR_FILENO, &mode);
796 }
797
798 /*
799  * Returns a "good" value for the erase character.  This is loosely based on
800  * the BSD4.4 logic.
801  */
802 #ifdef TERMIOS
803 static int
804 default_erase(void)
805 {
806     int result;
807
808     if (over_strike
809         && key_backspace != 0
810         && strlen(key_backspace) == 1)
811         result = key_backspace[0];
812     else
813         result = CERASE;
814
815     return result;
816 }
817 #endif
818
819 /*
820  * Update the values of the erase, interrupt, and kill characters in 'mode'.
821  *
822  * SVr4 tset (e.g., Solaris 2.5) only modifies the intr, quit or erase
823  * characters if they're unset, or if we specify them as options.  This differs
824  * from BSD 4.4 tset, which always sets erase.
825  */
826 static void
827 set_control_chars(void)
828 {
829 #ifdef TERMIOS
830     if (mode.c_cc[VERASE] == 0 || terasechar >= 0)
831         mode.c_cc[VERASE] = terasechar >= 0 ? terasechar : default_erase();
832
833     if (mode.c_cc[VINTR] == 0 || intrchar >= 0)
834         mode.c_cc[VINTR] = intrchar >= 0 ? intrchar : CINTR;
835
836     if (mode.c_cc[VKILL] == 0 || tkillchar >= 0)
837         mode.c_cc[VKILL] = tkillchar >= 0 ? tkillchar : CKILL;
838 #endif
839 }
840
841 /*
842  * Set up various conversions in 'mode', including parity, tabs, returns,
843  * echo, and case, according to the termcap entry.  If the program we're
844  * running was named with a leading upper-case character, map external
845  * uppercase to internal lowercase.
846  */
847 static void
848 set_conversions(void)
849 {
850 #ifdef __OBSOLETE__
851     /*
852      * Conversion logic for some *really* ancient terminal glitches,
853      * not supported in terminfo.  Left here for succeeding generations
854      * to marvel at.
855      */
856     if (tgetflag("UC")) {
857 #ifdef IUCLC
858         mode.c_iflag |= IUCLC;
859         mode.c_oflag |= OLCUC;
860 #endif
861     } else if (tgetflag("LC")) {
862 #ifdef IUCLC
863         mode.c_iflag &= ~IUCLC;
864         mode.c_oflag &= ~OLCUC;
865 #endif
866     }
867     mode.c_iflag &= ~(PARMRK | INPCK);
868     mode.c_lflag |= ICANON;
869     if (tgetflag("EP")) {
870         mode.c_cflag |= PARENB;
871         mode.c_cflag &= ~PARODD;
872     }
873     if (tgetflag("OP")) {
874         mode.c_cflag |= PARENB;
875         mode.c_cflag |= PARODD;
876     }
877 #endif /* __OBSOLETE__ */
878
879 #ifdef TERMIOS
880 #ifdef ONLCR
881     mode.c_oflag |= ONLCR;
882 #endif
883     mode.c_iflag |= ICRNL;
884     mode.c_lflag |= ECHO;
885 #ifdef OXTABS
886     mode.c_oflag |= OXTABS;
887 #endif /* OXTABS */
888
889     /* test used to be tgetflag("NL") */
890     if (newline != (char *) 0 && newline[0] == '\n' && !newline[1]) {
891         /* Newline, not linefeed. */
892 #ifdef ONLCR
893         mode.c_oflag &= ~ONLCR;
894 #endif
895         mode.c_iflag &= ~ICRNL;
896     }
897 #ifdef __OBSOLETE__
898     if (tgetflag("HD"))         /* Half duplex. */
899         mode.c_lflag &= ~ECHO;
900 #endif /* __OBSOLETE__ */
901 #ifdef OXTABS
902     /* test used to be tgetflag("pt") */
903     if (has_hardware_tabs)      /* Print tabs. */
904         mode.c_oflag &= ~OXTABS;
905 #endif /* OXTABS */
906     mode.c_lflag |= (ECHOE | ECHOK);
907 #endif
908 }
909
910 /* Output startup string. */
911 static void
912 set_init(void)
913 {
914     char *p;
915     bool settle;
916
917 #ifdef __OBSOLETE__
918     if (pad_char != (char *) 0) /* Get/set pad character. */
919         PC = pad_char[0];
920 #endif /* OBSOLETE */
921
922 #ifdef TAB3
923     if (oldmode.c_oflag & (TAB3 | ONLCR | OCRNL | ONLRET)) {
924         oldmode.c_oflag &= (TAB3 | ONLCR | OCRNL | ONLRET);
925         SET_TTY(STDERR_FILENO, &oldmode);
926     }
927 #endif
928     settle = set_tabs();
929
930     if (isreset) {
931         if ((p = reset_1string) != 0) {
932             tputs(p, 0, outc);
933             settle = TRUE;
934         }
935         if ((p = reset_2string) != 0) {
936             tputs(p, 0, outc);
937             settle = TRUE;
938         }
939         /* What about rf, rs3, as per terminfo man page? */
940         /* also might be nice to send rmacs, rmul, rmm */
941         if ((p = reset_file) != 0
942             || (p = init_file) != 0) {
943             cat(p);
944             settle = TRUE;
945         }
946     }
947
948     if (settle) {
949         (void) putc('\r', stderr);
950         (void) fflush(stderr);
951         (void) napms(1000);     /* Settle the terminal. */
952     }
953 }
954
955 /*
956  * Set the hardware tabs on the terminal, using the ct (clear all tabs),
957  * st (set one tab) and ch (horizontal cursor addressing) capabilities.
958  * This is done before if and is, so they can patch in case we blow this.
959  * Return TRUE if we set any tab stops, FALSE if not.
960  */
961 static bool
962 set_tabs()
963 {
964     if (set_tab && clear_all_tabs) {
965         int c;
966
967         (void) putc('\r', stderr);      /* Force to left margin. */
968         tputs(clear_all_tabs, 0, outc);
969
970         for (c = 8; c < tcolumns; c += 8) {
971             /* Get to the right column.  In BSD tset, this
972              * used to try a bunch of half-clever things
973              * with cup and hpa, for an average saving of
974              * somewhat less than two character times per
975              * tab stop, less that .01 sec at 2400cps. We
976              * lost all this cruft because it seemed to be
977              * introducing some odd bugs.
978              * ----------12345678----------- */
979             (void) fputs("        ", stderr);
980             tputs(set_tab, 0, outc);
981         }
982         putc('\r', stderr);
983         return (TRUE);
984     }
985     return (FALSE);
986 }
987
988 /**************************************************************************
989  *
990  * Main sequence
991  *
992  **************************************************************************/
993
994 /*
995  * Tell the user if a control key has been changed from the default value.
996  */
997 #ifdef TERMIOS
998 static void
999 report(const char *name, int which, unsigned def)
1000 {
1001     unsigned older, newer;
1002     char *p;
1003
1004     newer = mode.c_cc[which];
1005     older = oldmode.c_cc[which];
1006
1007     if (older == newer && older == def)
1008         return;
1009
1010     (void) fprintf(stderr, "%s %s ", name, older == newer ? "is" : "set to");
1011
1012     /*
1013      * Check 'delete' before 'backspace', since the key_backspace value
1014      * is ambiguous.
1015      */
1016     if (newer == 0177)
1017         (void) fprintf(stderr, "delete.\n");
1018     else if ((p = key_backspace) != 0
1019              && newer == (unsigned char) p[0]
1020              && p[1] == '\0')
1021         (void) fprintf(stderr, "backspace.\n");
1022     else if (newer < 040) {
1023         newer ^= 0100;
1024         (void) fprintf(stderr, "control-%c (^%c).\n", newer, newer);
1025     } else
1026         (void) fprintf(stderr, "%c.\n", newer);
1027 }
1028 #endif
1029
1030 /*
1031  * Convert the obsolete argument forms into something that getopt can handle.
1032  * This means that -e, -i and -k get default arguments supplied for them.
1033  */
1034 static void
1035 obsolete(char **argv)
1036 {
1037     for (; *argv; ++argv) {
1038         char *parm = argv[0];
1039
1040         if (parm[0] == '-' && parm[1] == '\0') {
1041             argv[0] = strdup("-q");
1042             continue;
1043         }
1044
1045         if ((parm[0] != '-')
1046             || (argv[1] && argv[1][0] != '-')
1047             || (parm[1] != 'e' && parm[1] != 'i' && parm[1] != 'k')
1048             || (parm[2] != '\0'))
1049             continue;
1050         switch (argv[0][1]) {
1051         case 'e':
1052             argv[0] = strdup("-e^H");
1053             break;
1054         case 'i':
1055             argv[0] = strdup("-i^C");
1056             break;
1057         case 'k':
1058             argv[0] = strdup("-k^U");
1059             break;
1060         }
1061     }
1062 }
1063
1064 static void
1065 usage(const char *pname)
1066 {
1067     (void) fprintf(stderr,
1068                    "usage: %s [-IQVrs] [-] [-e ch] [-i ch] [-k ch] [-m mapping] [terminal]", pname);
1069     exit_error();
1070     /* NOTREACHED */
1071 }
1072
1073 static char
1074 arg_to_char(void)
1075 {
1076     return (optarg[0] == '^' && optarg[1] != '\0')
1077         ? ((optarg[1] == '?') ? '\177' : CTRL(optarg[1]))
1078         : optarg[0];
1079 }
1080
1081 int
1082 main(int argc, char **argv)
1083 {
1084 #if defined(TIOCGWINSZ) && defined(TIOCSWINSZ)
1085     struct winsize win;
1086 #endif
1087     int ch, noinit, noset, quiet, Sflag, sflag, showterm;
1088     const char *p;
1089     const char *ttype;
1090
1091     if (GET_TTY(STDERR_FILENO, &mode) < 0)
1092         failed("standard error");
1093     can_restore = TRUE;
1094     original = oldmode = mode;
1095 #ifdef TERMIOS
1096     ospeed = cfgetospeed(&mode);
1097 #else
1098     ospeed = mode.sg_ospeed;
1099 #endif
1100
1101     p = _nc_rootname(*argv);
1102     if (!strcmp(p, PROG_RESET)) {
1103         isreset = TRUE;
1104         reset_mode();
1105     }
1106
1107     obsolete(argv);
1108     noinit = noset = quiet = Sflag = sflag = showterm = 0;
1109     while ((ch = getopt(argc, argv, "a:d:e:Ii:k:m:np:qQSrsV")) != EOF) {
1110         switch (ch) {
1111         case 'q':               /* display term only */
1112             noset = 1;
1113             break;
1114         case 'a':               /* OBSOLETE: map identifier to type */
1115             add_mapping("arpanet", optarg);
1116             break;
1117         case 'd':               /* OBSOLETE: map identifier to type */
1118             add_mapping("dialup", optarg);
1119             break;
1120         case 'e':               /* erase character */
1121             terasechar = arg_to_char();
1122             break;
1123         case 'I':               /* no initialization strings */
1124             noinit = 1;
1125             break;
1126         case 'i':               /* interrupt character */
1127             intrchar = arg_to_char();
1128             break;
1129         case 'k':               /* kill character */
1130             tkillchar = arg_to_char();
1131             break;
1132         case 'm':               /* map identifier to type */
1133             add_mapping(0, optarg);
1134             break;
1135         case 'n':               /* OBSOLETE: set new tty driver */
1136             break;
1137         case 'p':               /* OBSOLETE: map identifier to type */
1138             add_mapping("plugboard", optarg);
1139             break;
1140         case 'Q':               /* don't output control key settings */
1141             quiet = 1;
1142             break;
1143         case 'S':               /* OBSOLETE: output TERM & TERMCAP */
1144             Sflag = 1;
1145             break;
1146         case 'r':               /* display term on stderr */
1147             showterm = 1;
1148             break;
1149         case 's':               /* output TERM set command */
1150             sflag = 1;
1151             break;
1152         case 'V':
1153             puts(curses_version());
1154             return EXIT_SUCCESS;
1155         case '?':
1156         default:
1157             usage(*argv);
1158         }
1159     }
1160     argc -= optind;
1161     argv += optind;
1162
1163     if (argc > 1)
1164         usage(*argv);
1165
1166     ttype = get_termcap_entry(*argv);
1167
1168     if (!noset) {
1169         tcolumns = columns;
1170         tlines = lines;
1171
1172 #if defined(TIOCGWINSZ) && defined(TIOCSWINSZ)
1173         /* Set window size */
1174         (void) ioctl(STDERR_FILENO, TIOCGWINSZ, &win);
1175         if (win.ws_row == 0 && win.ws_col == 0 &&
1176             tlines > 0 && tcolumns > 0) {
1177             win.ws_row = tlines;
1178             win.ws_col = tcolumns;
1179             (void) ioctl(STDERR_FILENO, TIOCSWINSZ, &win);
1180         }
1181 #endif
1182         set_control_chars();
1183         set_conversions();
1184
1185         if (!noinit)
1186             set_init();
1187
1188         /* Set the modes if they've changed. */
1189         if (memcmp(&mode, &oldmode, sizeof(mode))) {
1190             SET_TTY(STDERR_FILENO, &mode);
1191         }
1192     }
1193
1194     /* Get the terminal name from the entry. */
1195     ttype = _nc_first_name(cur_term->type.term_names);
1196
1197     if (noset)
1198         (void) printf("%s\n", ttype);
1199     else {
1200         if (showterm)
1201             (void) fprintf(stderr, "Terminal type is %s.\n", ttype);
1202         /*
1203          * If erase, kill and interrupt characters could have been
1204          * modified and not -Q, display the changes.
1205          */
1206 #ifdef TERMIOS
1207         if (!quiet) {
1208             report("Erase", VERASE, CERASE);
1209             report("Kill", VKILL, CKILL);
1210             report("Interrupt", VINTR, CINTR);
1211         }
1212 #endif
1213     }
1214
1215     if (Sflag)
1216         err("The -S option is not supported under terminfo.");
1217
1218     if (sflag) {
1219         int len;
1220         /*
1221          * Figure out what shell we're using.  A hack, we look for an
1222          * environmental variable SHELL ending in "csh".
1223          */
1224         if ((p = getenv("SHELL")) != 0
1225             && (len = strlen(p)) >= 3
1226             && !strcmp(p + len - 3, "csh"))
1227             p = "set noglob;\nsetenv TERM %s;\nunset noglob;\n";
1228         else
1229             p = "TERM=%s;\n";
1230         (void) printf(p, ttype);
1231     }
1232
1233     return EXIT_SUCCESS;
1234 }