usr.bin/asa/asa.c

   1 /*      $NetBSD: asa.c,v 1.11 1997/09/20 14:55:00 lukem Exp $   */
   2
   3 /*
   4  * Copyright (c) 1993,94 Winning Strategies, Inc.
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. All advertising materials mentioning features or use of this software
  16  *    must display the following acknowledgement:
  17  *      This product includes software developed by Winning Strategies, Inc.
  18  * 4. The name of the author may not be used to endorse or promote products
  19  *    derived from this software without specific prior written permission
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  22  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  23  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  24  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  25  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  26  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  27  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  28  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  29  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  30  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31  */
  32
  33 #include <sys/cdefs.h>
  34 #if 0
  35 #ifndef lint
  36 __RCSID("$NetBSD: asa.c,v 1.11 1997/09/20 14:55:00 lukem Exp $");
  37 #endif
  38 #endif
  39 __FBSDID("$FreeBSD$");
  40
  41 #include <err.h>
  42 #include <stdio.h>
  43 #include <stdlib.h>
  44 #include <unistd.h>
  45
  46 static void asa(FILE *);
  47 static void usage(void);
  48
  49 int
  50 main(int argc, char *argv[])
  51 {
  52         int ch, exval;
  53         FILE *fp;
  54         const char *fn;
  55
  56         while ((ch = getopt(argc, argv, "")) != -1) {
  57                 switch (ch) {
  58                 case '?':
  59                 default:
  60                         usage();
  61                         /*NOTREACHED*/
  62                 }
  63         }
  64         argc -= optind;
  65         argv += optind;
  66
  67         exval = 0;
  68         if (argc == 0)
  69                 asa(stdin);
  70         else {
  71                 while ((fn = *argv++) != NULL) {
  72                         if ((fp = fopen(fn, "r")) == NULL) {
  73                                 warn("%s", fn);
  74                                 exval = 1;
  75                                 continue;
  76                         }
  77                         asa(fp);
  78                         fclose(fp);
  79                 }
  80         }
  81
  82         exit(exval);
  83 }
  84
  85 static void
  86 usage(void)
  87 {
  88
  89         fprintf(stderr, "usage: asa [file ...]\n");
  90         exit(1);
  91 }
  92
  93 static void
  94 asa(FILE *f)
  95 {
  96         size_t len;
  97         char *buf;
  98
  99         if ((buf = fgetln(f, &len)) != NULL) {
 100                 if (buf[len - 1] == '\n')
 101                         buf[--len] = '\0';
 102                 /* special case the first line */
 103                 switch (buf[0]) {
 104                 case '0':
 105                         putchar('\n');
 106                         break;
 107                 case '1':
 108                         putchar('\f');
 109                         break;
 110                 }
 111
 112                 if (len > 1 && buf[0] && buf[1])
 113                         printf("%.*s", (int)(len - 1), buf + 1);
 114
 115                 while ((buf = fgetln(f, &len)) != NULL) {
 116                         if (buf[len - 1] == '\n')
 117                                 buf[--len] = '\0';
 118                         switch (buf[0]) {
 119                         default:
 120                         case ' ':
 121                                 putchar('\n');
 122                                 break;
 123                         case '0':
 124                                 putchar('\n');
 125                                 putchar('\n');
 126                                 break;
 127                         case '1':
 128                                 putchar('\f');
 129                                 break;
 130                         case '+':
 131                                 putchar('\r');
 132                                 break;
 133                         }
 134
 135                         if (len > 1 && buf[0] && buf[1])
 136                                 printf("%.*s", (int)(len - 1), buf + 1);
 137                 }
 138
 139                 putchar('\n');
 140         }
 141 }