xref: /netbsd-src/usr.bin/asa/asa.c (revision 4b30c543a0b21e3ba94f2c569e9a82b4fdb2075f)
1 /*
2  * Copyright (c) 1993 Winning Strategies, Inc.
3  * 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 Winning Strategies, Inc.
16  * 4. The name of the author may not be used to endorse or promote products
17  *    derived from this software withough specific prior written permission
18  *
19  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29  *
30  *	$Header: /cvsroot/src/usr.bin/asa/asa.c,v 1.1 1993/09/23 21:04:18 jtc Exp $
31  */
32 
33 #ifndef lint
34 static char *rcsid = "$Id: asa.c,v 1.1 1993/09/23 21:04:18 jtc Exp $";
35 #endif
36 
37 #include <stdio.h>
38 #include <stdlib.h>
39 #include <err.h>
40 
41 static void asa();
42 
43 int
44 main (argc, argv)
45 	int argc;
46 	char **argv;
47 {
48 	FILE *fp;
49 
50 	argv++;
51 
52         fp = stdin;
53         do {
54                 if (*argv) {
55                         if (!(fp = fopen(*argv, "r"))) {
56 				warn ("%s", *argv);
57 				continue;
58                         }
59                 }
60                 asa (fp);
61                 if (fp != stdin)
62                         (void)fclose(fp);
63         } while (*++argv);
64 
65 	exit (0);
66 }
67 
68 static void
69 asa(f)
70 	FILE *f;
71 {
72 	char *buf;
73 
74 	if ((buf = fgetline (f, NULL)) != NULL) {
75 		/* special case the first line  */
76 		switch (buf[0]) {
77 		case '0':
78 			putchar ('\n');
79 			break;
80 		case '1':
81 			putchar ('\f');
82 			break;
83 		}
84 
85 		fputs (&buf[1], stdout);
86 
87 		while ((buf = fgetline(f, NULL)) != NULL) {
88 			switch (buf[0]) {
89 			default:
90 			case ' ':
91 				putchar ('\n');
92 				break;
93 			case '0':
94 				putchar ('\n');
95 				putchar ('\n');
96 				break;
97 			case '1':
98 				putchar ('\f');
99 				break;
100 			case '+':
101 				putchar ('\r');
102 				break;
103 			}
104 
105 			fputs (&buf[1], stdout);
106 		}
107 
108 		putchar ('\n');
109 	}
110 }
111