route: ensure RTM_IFINFO is sent first when bring interface down/up
[dragonfly.git] / games / bcd / bcd.c
1 /*-
2  * Copyright (c) 1989, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * This code is derived from software contributed to Berkeley by
6  * Steve Hayman of the Indiana University Computer Science Dept.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
11  * 1. Redistributions of source code must retain the above copyright
12  *    notice, this list of conditions and the following disclaimer.
13  * 2. Redistributions in binary form must reproduce the above copyright
14  *    notice, this list of conditions and the following disclaimer in the
15  *    documentation and/or other materials provided with the distribution.
16  * 3. Neither the name of the University nor the names of its contributors
17  *    may be used to endorse or promote products derived from this software
18  *    without specific prior written permission.
19  *
20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30  * SUCH DAMAGE.
31  *
32  * @(#) Copyright (c) 1989, 1993 The Regents of the University of California.  All rights reserved.
33  * @(#)bcd.c    8.2 (Berkeley) 3/20/94
34  * $NetBSD: bcd.c,v 1.6 1995/04/24 12:22:23 cgd Exp $
35  * $OpenBSD: bcd.c,v 1.25 2016/03/07 12:07:55 mestre Exp $
36  */
37
38 /*
39  * bcd --
40  *
41  * Read one line of standard input and produce something that looks like a
42  * punch card.  An attempt to reimplement /usr/games/bcd.  All I looked at
43  * was the man page.
44  *
45  * I couldn't find a BCD table handy so I wrote a shell script to deduce what
46  * the patterns were that the old bcd was using for each possible 8-bit
47  * character.  These are the results -- the low order 12 bits represent the
48  * holes.  (A 1 bit is a hole.)  These may be wrong, but they match the old
49  * program!
50  *
51  * Steve Hayman
52  * sahayman@iuvax.cs.indiana.edu
53  * 1989 11 30
54  *
55  *
56  * I found an error in the table. The same error is found in the SunOS 4.1.1
57  * version of bcd. It has apparently been around a long time. The error caused
58  * 'Q' and 'R' to have the same punch code. I only noticed the error due to
59  * someone pointing it out to me when the program was used to print a cover
60  * for an APA!  The table was wrong in 4 places. The other error was masked
61  * by the fact that the input is converted to upper case before lookup.
62  *
63  * Dyane Bruce
64  * db@diana.ocunix.on.ca
65  * Nov 5, 1993
66  */
67
68 #include <ctype.h>
69 #include <stdio.h>
70 #include <stdlib.h>
71 #include <string.h>
72 #include <unistd.h>
73
74 static const u_short holes[256] = {
75     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
76     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
77     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
78     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
79     0x0,         0x206,   0x20a,   0x042,   0x442,   0x222,   0x800,   0x406,
80     0x812,       0x412,   0x422,   0xa00,   0x242,   0x400,   0x842,   0x300,
81     0x200,       0x100,   0x080,   0x040,   0x020,   0x010,   0x008,   0x004,
82     0x002,       0x001,   0x012,   0x40a,   0x80a,   0x212,   0x00a,   0x006,
83     0x022,       0x900,   0x880,   0x840,   0x820,   0x810,   0x808,   0x804,
84     0x802,       0x801,   0x500,   0x480,   0x440,   0x420,   0x410,   0x408,
85     0x404,       0x402,   0x401,   0x280,   0x240,   0x220,   0x210,   0x208,
86     0x204,       0x202,   0x201,   0x082,   0x822,   0x600,   0x282,   0x30f,
87     0x900,       0x880,   0x840,   0x820,   0x810,   0x808,   0x804,   0x802,
88     0x801,       0x500,   0x480,   0x440,   0x420,   0x410,   0x408,   0x404,
89     0x402,       0x401,   0x280,   0x240,   0x220,   0x210,   0x208,   0x204,
90     0x202,       0x201,   0x082,   0x806,   0x822,   0x600,   0x282,   0x0,
91     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
92     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
93     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
94     0x0,         0x0,     0x0,     0x0,     0x0,     0x0,     0x0,     0x0,
95     0x206,       0x20a,   0x042,   0x442,   0x222,   0x800,   0x406,   0x812,
96     0x412,       0x422,   0xa00,   0x242,   0x400,   0x842,   0x300,   0x200,
97     0x100,       0x080,   0x040,   0x020,   0x010,   0x008,   0x004,   0x002,
98     0x001,       0x012,   0x40a,   0x80a,   0x212,   0x00a,   0x006,   0x022,
99     0x900,       0x880,   0x840,   0x820,   0x810,   0x808,   0x804,   0x802,
100     0x801,       0x500,   0x480,   0x440,   0x420,   0x410,   0x408,   0x404,
101     0x402,       0x401,   0x280,   0x240,   0x220,   0x210,   0x208,   0x204,
102     0x202,       0x201,   0x082,   0x806,   0x822,   0x600,   0x282,   0x30f,
103     0x900,       0x880,   0x840,   0x820,   0x810,   0x808,   0x804,   0x802,
104     0x801,       0x500,   0x480,   0x440,   0x420,   0x410,   0x408,   0x404,
105     0x402,       0x401,   0x280,   0x240,   0x220,   0x210,   0x208,   0x204,
106     0x202,       0x201,   0x082,   0x806,   0x822,   0x600,   0x282,   0x0
107 };
108
109 /*
110  * i'th bit of w.
111  */
112 #define bit(w,i)        ((w)&(1<<(i)))
113
114 static void     printonecard(char *, size_t);
115 static void     printcard(char *);
116 static int      decode(char *buf);
117
118 static unsigned int     columns = 48;
119
120 int
121 main(int argc, char *argv[])
122 {
123         char cardline[1024];
124         int dflag = 0;
125         int ch;
126
127         /* revoke setgid privileges */
128         setgid(getgid());
129
130         while ((ch = getopt(argc, argv, "dl")) != -1) {
131                 switch (ch) {
132                 case 'd':
133                         dflag = 1;
134                         break;
135                 case 'l':
136                         columns = 80;
137                         break;
138                 default:
139                         fprintf(stderr, "usage: %s [-l] [string ...]\n",
140                             getprogname());
141                         fprintf(stderr, "usage: %s -d [-l]\n", getprogname());
142                         return 1;
143                 }
144         }
145         argc -= optind;
146         argv += optind;
147
148         if (dflag) {
149                 while (decode(cardline) == 0) {
150                         printf("%s\n", cardline);
151                 }
152                 return 0;
153         }
154
155
156         /*
157          * The original bcd prompts with a "%" when reading from stdin,
158          * but this seems kind of silly.  So this one doesn't.
159          */
160         if (argc > 0) {
161                 while (argc--) {
162                         printcard(*argv);
163                         argv++;
164                 }
165         } else {
166                 while (fgets(cardline, sizeof(cardline), stdin))
167                         printcard(cardline);
168         }
169         return 0;
170 }
171
172 void
173 printcard(char *str)
174 {
175         size_t len = strlen(str);
176
177         while (len > 0) {
178                 size_t amt = len > columns ? columns : len;
179                 printonecard(str, amt);
180                 str += amt;
181                 len -= amt;
182         }
183 }
184
185 void
186 printonecard(char *str, size_t len)
187 {
188         static const char rowchars[] = "   123456789";
189         unsigned int i;
190         int row;
191         char *p, *end;
192
193         end = str + len;
194
195         /* make string upper case. */
196         for (p = str; p < end; ++p) {
197                 if (isascii(*p) && islower(*p))
198                         *p = toupper(*p);
199         }
200
201         /* top of card */
202         putchar(' ');
203         for (i = 1; i <= columns; ++i)
204                 putchar('_');
205         putchar('\n');
206
207         /*
208          * line of text.  Leave a blank if the character doesn't have
209          * a hole pattern.
210          */
211         p = str;
212         putchar('/');
213         for (i = 1; p < end; i++, p++)
214                 if (holes[(int)*p])
215                         putchar(*p);
216                 else
217                         putchar(' ');
218         while (i++ <= columns)
219                 putchar(' ');
220         putchar('|');
221         putchar('\n');
222
223         /*
224          * 12 rows of potential holes; output a ']', which looks kind of
225          * like a hole, if the appropriate bit is set in the holes[] table.
226          * The original bcd output a '[', a backspace, five control A's,
227          * and then a ']'.  This seems a little excessive.
228          */
229         for (row = 0; row <= 11; ++row) {
230                 putchar('|');
231                 for (i = 0, p = str; p < end; i++, p++) {
232                         if (bit(holes[(int)*p], 11 - row))
233                                 putchar(']');
234                         else
235                                 putchar(rowchars[row]);
236                 }
237                 while (i++ < columns)
238                         putchar(rowchars[row]);
239                 putchar('|');
240                 putchar('\n');
241         }
242
243         /* bottom of card */
244         putchar('|');
245         for (i = 1; i <= columns; i++)
246                 putchar('_');
247         putchar('|');
248         putchar('\n');
249 }
250
251 #define LINES 12
252
253 int
254 decode(char *buf)
255 {
256         unsigned int i;
257         int col;
258         char lines[LINES][1024];
259         char tmp[1024];
260
261         /* top of card; if missing signal no more input */
262         if (fgets(tmp, sizeof(tmp), stdin) == NULL)
263                 return 1;
264         /* text line, ignored */
265         if (fgets(tmp, sizeof(tmp), stdin) == NULL)
266                 return -1;
267         /* twelve lines of data */
268         for (i = 0; i < LINES; i++)
269                 if (fgets(lines[i], sizeof(lines[i]), stdin) == NULL)
270                         return -1;
271         /* bottom of card */
272         if (fgets(tmp, sizeof(tmp), stdin) == NULL)
273                 return -1;
274
275         for (i = 0; i < LINES; i++) {
276                 if (strlen(lines[i]) < columns + 2)
277                         return -1;
278                 if (lines[i][0] != '|' || lines[i][columns + 1] != '|')
279                         return -1;
280                 memmove(&lines[i][0], &lines[i][1], columns);
281                 lines[i][columns] = 0;
282         }
283         for (col = 0; col < (int)columns; col++) {
284                 unsigned int val = 0;
285                 for (i = 0; i < LINES; i++)
286                         if (lines[i][col] == ']')
287                                 val |= 1 << (11 - i);
288                 buf[col] = ' ';
289                 for (i = 0; i < 256; i++)
290                         if (holes[i] == val && holes[i]) {
291                                 buf[col] = i;
292                                 break;
293                         }
294         }
295         buf[col] = 0;
296         for (col = columns - 1; col >= 0; col--) {
297                 if (buf[col] == ' ')
298                         buf[col] = '\0';
299                 else
300                         break;
301         }
302         return 0;
303 }