Initial import from FreeBSD RELENG_4:
[games.git] / bin / stty / print.c
1 /*-
2  * Copyright (c) 1991, 1993, 1994
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
35 #if 0
36 static char sccsid[] = "@(#)print.c     8.6 (Berkeley) 4/16/94";
37 #endif
38 static const char rcsid[] =
39   "$FreeBSD: src/bin/stty/print.c,v 1.12.2.2 2001/07/04 22:40:00 kris Exp $";
40 #endif /* not lint */
41
42 #include <sys/types.h>
43
44 #include <stddef.h>
45 #include <stdio.h>
46 #include <string.h>
47
48 #include "stty.h"
49 #include "extern.h"
50
51 #include <sys/ioctl_compat.h>   /* XXX NTTYDISC is too well hidden */
52
53 static void  binit __P((const char *));
54 static void  bput __P((const char *));
55 static const char *ccval __P((struct cchar *, int));
56
57 void
58 print(tp, wp, ldisc, fmt)
59         struct termios *tp;
60         struct winsize *wp;
61         int ldisc;
62         enum FMT fmt;
63 {
64         struct cchar *p;
65         long tmp;
66         u_char *cc;
67         int cnt, ispeed, ospeed;
68         char buf1[100], buf2[100];
69
70         cnt = 0;
71
72         /* Line discipline. */
73         if (ldisc != TTYDISC) {
74                 switch(ldisc) {
75                 case NTTYDISC:
76                         cnt += printf("new tty disc; ");
77                         break;
78                 case SLIPDISC:
79                         cnt += printf("slip disc; ");
80                         break;
81                 case PPPDISC:
82                         cnt += printf("ppp disc; ");
83                         break;
84                 default:
85                         cnt += printf("#%d disc; ", ldisc);
86                         break;
87                 }
88         }
89
90         /* Line speed. */
91         ispeed = cfgetispeed(tp);
92         ospeed = cfgetospeed(tp);
93         if (ispeed != ospeed)
94                 cnt +=
95                     printf("ispeed %d baud; ospeed %d baud;", ispeed, ospeed);
96         else
97                 cnt += printf("speed %d baud;", ispeed);
98         if (fmt >= BSD)
99                 cnt += printf(" %d rows; %d columns;", wp->ws_row, wp->ws_col);
100         if (cnt)
101                 (void)printf("\n");
102
103 #define on(f)   ((tmp & (f)) != 0)
104 #define put(n, f, d) \
105         if (fmt >= BSD || on(f) != (d)) \
106                 bput((n) + on(f));
107
108         /* "local" flags */
109         tmp = tp->c_lflag;
110         binit("lflags");
111         put("-icanon", ICANON, 1);
112         put("-isig", ISIG, 1);
113         put("-iexten", IEXTEN, 1);
114         put("-echo", ECHO, 1);
115         put("-echoe", ECHOE, 0);
116         put("-echok", ECHOK, 0);
117         put("-echoke", ECHOKE, 0);
118         put("-echonl", ECHONL, 0);
119         put("-echoctl", ECHOCTL, 0);
120         put("-echoprt", ECHOPRT, 0);
121         put("-altwerase", ALTWERASE, 0);
122         put("-noflsh", NOFLSH, 0);
123         put("-tostop", TOSTOP, 0);
124         put("-flusho", FLUSHO, 0);
125         put("-pendin", PENDIN, 0);
126         put("-nokerninfo", NOKERNINFO, 0);
127         put("-extproc", EXTPROC, 0);
128
129         /* input flags */
130         tmp = tp->c_iflag;
131         binit("iflags");
132         put("-istrip", ISTRIP, 0);
133         put("-icrnl", ICRNL, 1);
134         put("-inlcr", INLCR, 0);
135         put("-igncr", IGNCR, 0);
136         put("-ixon", IXON, 1);
137         put("-ixoff", IXOFF, 0);
138         put("-ixany", IXANY, 1);
139         put("-imaxbel", IMAXBEL, 1);
140         put("-ignbrk", IGNBRK, 0);
141         put("-brkint", BRKINT, 1);
142         put("-inpck", INPCK, 0);
143         put("-ignpar", IGNPAR, 0);
144         put("-parmrk", PARMRK, 0);
145
146         /* output flags */
147         tmp = tp->c_oflag;
148         binit("oflags");
149         put("-opost", OPOST, 1);
150         put("-onlcr", ONLCR, 1);
151         put("-ocrnl", OCRNL, 0);
152         put("-oxtabs", OXTABS, 1);
153         put("-onocr", OXTABS, 0);
154         put("-onlret", OXTABS, 0);
155
156         /* control flags (hardware state) */
157         tmp = tp->c_cflag;
158         binit("cflags");
159         put("-cread", CREAD, 1);
160         switch(tmp&CSIZE) {
161         case CS5:
162                 bput("cs5");
163                 break;
164         case CS6:
165                 bput("cs6");
166                 break;
167         case CS7:
168                 bput("cs7");
169                 break;
170         case CS8:
171                 bput("cs8");
172                 break;
173         }
174         bput("-parenb" + on(PARENB));
175         put("-parodd", PARODD, 0);
176         put("-hupcl", HUPCL, 1);
177         put("-clocal", CLOCAL, 0);
178         put("-cstopb", CSTOPB, 0);
179         switch(tmp & (CCTS_OFLOW | CRTS_IFLOW)) {
180         case CCTS_OFLOW:
181                 bput("ctsflow");
182                 break;
183         case CRTS_IFLOW:
184                 bput("rtsflow");
185                 break;
186         default:
187                 put("-crtscts", CCTS_OFLOW | CRTS_IFLOW, 0);
188                 break;
189         }
190         put("-dsrflow", CDSR_OFLOW, 0);
191         put("-dtrflow", CDTR_IFLOW, 0);
192         put("-mdmbuf", MDMBUF, 0);      /* XXX mdmbuf ==  dtrflow */
193
194         /* special control characters */
195         cc = tp->c_cc;
196         if (fmt == POSIX) {
197                 binit("cchars");
198                 for (p = cchars1; p->name; ++p) {
199                         (void)snprintf(buf1, sizeof(buf1), "%s = %s;",
200                             p->name, ccval(p, cc[p->sub]));
201                         bput(buf1);
202                 }
203                 binit(NULL);
204         } else {
205                 binit(NULL);
206                 for (p = cchars1, cnt = 0; p->name; ++p) {
207                         if (fmt != BSD && cc[p->sub] == p->def)
208                                 continue;
209 #define WD      "%-8s"
210                         (void)snprintf(buf1 + cnt * 8, sizeof(buf1) - cnt * 8,
211                             WD, p->name);
212                         (void)snprintf(buf2 + cnt * 8, sizeof(buf2) - cnt * 8,
213                             WD, ccval(p, cc[p->sub]));
214                         if (++cnt == LINELENGTH / 8) {
215                                 cnt = 0;
216                                 (void)printf("%s\n", buf1);
217                                 (void)printf("%s\n", buf2);
218                         }
219                 }
220                 if (cnt) {
221                         (void)printf("%s\n", buf1);
222                         (void)printf("%s\n", buf2);
223                 }
224         }
225 }
226
227 static int col;
228 static const char *label;
229
230 static void
231 binit(lb)
232         const char *lb;
233 {
234
235         if (col) {
236                 (void)printf("\n");
237                 col = 0;
238         }
239         label = lb;
240 }
241
242 static void
243 bput(s)
244         const char *s;
245 {
246
247         if (col == 0) {
248                 col = printf("%s: %s", label, s);
249                 return;
250         }
251         if ((col + strlen(s)) > LINELENGTH) {
252                 (void)printf("\n\t");
253                 col = printf("%s", s) + 8;
254                 return;
255         }
256         col += printf(" %s", s);
257 }
258
259 static const char *
260 ccval(p, c)
261         struct cchar *p;
262         int c;
263 {
264         static char buf[5];
265         char *bp;
266
267         if (p->sub == VMIN || p->sub == VTIME) {
268                 (void)snprintf(buf, sizeof(buf), "%d", c);
269                 return (buf);
270         }
271         if (c == _POSIX_VDISABLE)
272                 return ("<undef>");
273         bp = buf;
274         if (c & 0200) {
275                 *bp++ = 'M';
276                 *bp++ = '-';
277                 c &= 0177;
278         }
279         if (c == 0177) {
280                 *bp++ = '^';
281                 *bp++ = '?';
282         }
283         else if (c < 040) {
284                 *bp++ = '^';
285                 *bp++ = c + '@';
286         }
287         else
288                 *bp++ = c;
289         *bp = '\0';
290         return (buf);
291 }