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 * $FreeBSD: src/games/bcd/bcd.c,v 1.8 1999/11/30 03:48:41 billf Exp $ 35 * $DragonFly: src/games/bcd/bcd.c,v 1.3 2005/08/03 13:26:19 eirikn 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 <sys/types.h> 69 70 #include <stdio.h> 71 #include <string.h> 72 #include <ctype.h> 73 #include <unistd.h> 74 75 u_short holes[256] = { 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, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 80 0x0, 0x206, 0x20a, 0x042, 0x442, 0x222, 0x800, 0x406, 81 0x812, 0x412, 0x422, 0xa00, 0x242, 0x400, 0x842, 0x300, 82 0x200, 0x100, 0x080, 0x040, 0x020, 0x010, 0x008, 0x004, 83 0x002, 0x001, 0x012, 0x40a, 0x80a, 0x212, 0x00a, 0x006, 84 0x022, 0x900, 0x880, 0x840, 0x820, 0x810, 0x808, 0x804, 85 0x802, 0x801, 0x500, 0x480, 0x440, 0x420, 0x410, 0x408, 86 0x404, 0x402, 0x401, 0x280, 0x240, 0x220, 0x210, 0x208, 87 0x204, 0x202, 0x201, 0x082, 0x822, 0x600, 0x282, 0x30f, 88 0x900, 0x880, 0x840, 0x820, 0x810, 0x808, 0x804, 0x802, 89 0x801, 0x500, 0x480, 0x440, 0x420, 0x410, 0x408, 0x404, 90 0x402, 0x401, 0x280, 0x240, 0x220, 0x210, 0x208, 0x204, 91 0x202, 0x201, 0x082, 0x806, 0x822, 0x600, 0x282, 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 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 96 0x206, 0x20a, 0x042, 0x442, 0x222, 0x800, 0x406, 0x812, 97 0x412, 0x422, 0xa00, 0x242, 0x400, 0x842, 0x300, 0x200, 98 0x100, 0x080, 0x040, 0x020, 0x010, 0x008, 0x004, 0x002, 99 0x001, 0x012, 0x40a, 0x80a, 0x212, 0x00a, 0x006, 0x022, 100 0x900, 0x880, 0x840, 0x820, 0x810, 0x808, 0x804, 0x802, 101 0x801, 0x500, 0x480, 0x440, 0x420, 0x410, 0x408, 0x404, 102 0x402, 0x401, 0x280, 0x240, 0x220, 0x210, 0x208, 0x204, 103 0x202, 0x201, 0x082, 0x806, 0x822, 0x600, 0x282, 0x30f, 104 0x900, 0x880, 0x840, 0x820, 0x810, 0x808, 0x804, 0x802, 105 0x801, 0x500, 0x480, 0x440, 0x420, 0x410, 0x408, 0x404, 106 0x402, 0x401, 0x280, 0x240, 0x220, 0x210, 0x208, 0x204, 107 0x202, 0x201, 0x082, 0x806, 0x822, 0x600, 0x282, 0x0 108 }; 109 110 /* 111 * i'th bit of w. 112 */ 113 #define bit(w,i) ((w)&(1<<(i))) 114 115 static void printcard(char *); 116 117 int 118 main(int argc, char **argv) 119 { 120 char cardline[80]; 121 122 /* revoke setgid privileges */ 123 setgid(getgid()); 124 125 /* 126 * The original bcd prompts with a "%" when reading from stdin, 127 * but this seems kind of silly. So this one doesn't. 128 */ 129 130 if (argc > 1) { 131 while (--argc) 132 printcard(*++argv); 133 } else 134 while (fgets(cardline, sizeof(cardline), stdin)) 135 printcard(cardline); 136 return (0); 137 } 138 139 #define COLUMNS 48 140 141 static void 142 printcard(char *str) 143 { 144 static char rowchars[] = " 123456789"; 145 int i, row; 146 char *p; 147 148 /* ruthlessly remove newlines and truncate at 48 characters. */ 149 if ((p = index(str, '\n'))) 150 *p = '\0'; 151 152 if (strlen(str) > COLUMNS) 153 str[COLUMNS] = '\0'; 154 155 /* make string upper case. */ 156 for (p = str; *p; ++p) 157 if (isascii(*p) && islower(*p)) 158 *p = toupper(*p); 159 160 /* top of card */ 161 putchar(' '); 162 for (i = 1; i <= COLUMNS; ++i) 163 putchar('_'); 164 putchar('\n'); 165 166 /* 167 * line of text. Leave a blank if the character doesn't have 168 * a hole pattern. 169 */ 170 p = str; 171 putchar('/'); 172 for (i = 1; *p; i++, p++) 173 if (holes[(int)*p]) 174 putchar(*p); 175 else 176 putchar(' '); 177 while (i++ <= COLUMNS) 178 putchar(' '); 179 putchar('|'); 180 putchar('\n'); 181 182 /* 183 * 12 rows of potential holes; output a ']', which looks kind of 184 * like a hole, if the appropriate bit is set in the holes[] table. 185 * The original bcd output a '[', a backspace, five control A's, 186 * and then a ']'. This seems a little excessive. 187 */ 188 for (row = 0; row <= 11; ++row) { 189 putchar('|'); 190 for (i = 0, p = str; *p; i++, p++) { 191 if (bit(holes[(int)*p], 11 - row)) 192 putchar(']'); 193 else 194 putchar(rowchars[row]); 195 } 196 while (i++ < COLUMNS) 197 putchar(rowchars[row]); 198 putchar('|'); 199 putchar('\n'); 200 } 201 202 /* bottom of card */ 203 putchar('|'); 204 for (i = 1; i <= COLUMNS; i++) 205 putchar('_'); 206 putchar('|'); 207 putchar('\n'); 208 } 209