developer_cmds/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 #ifndef lint
  35 __RCSID("$NetBSD: asa.c,v 1.11 1997/09/20 14:55:00 lukem Exp $");
  36 #endif
  37
  38 #include <err.h>
  39 #include <stdio.h>
  40 #include <stdlib.h>
  41 #include <string.h>
  42
  43 static void asa __P((FILE *));
  44 int main __P((int, char *[]));
  45
  46 int main(int argc, char **argv)
  47 {
  48         FILE *fp;
  49         int exit_val = 0;
  50         /* skip progname */
  51         argv++;
  52
  53         if (*argv && !strcmp(*argv, "--")) {
  54                 argv++;
  55                 argc--;
  56         }
  57
  58         if (argc == 1) {
  59                 asa(stdin);
  60                 exit(exit_val);
  61         }
  62
  63         do {
  64                 if (*argv) {
  65                         if (!(fp = fopen(*argv, "r"))) {
  66                                 warn ("%s", *argv);
  67                                 exit_val = 1;
  68                                 continue;
  69                         } else {
  70                                 asa(fp);
  71                                 (void)fclose(fp);
  72                         }
  73                 }
  74         } while (*argv++);
  75
  76         exit (exit_val);
  77 }
  78
  79 static void
  80 asa(f)
  81         FILE *f;
  82 {
  83         char *buf;
  84         size_t len;
  85
  86         if ((buf = fgetln (f, &len)) != NULL) {
  87                 if (buf[len - 1] == '\n')
  88                         buf[--len] = '\0';
  89                 /* special case the first line  */
  90                 switch (buf[0]) {
  91                 case '0':
  92                         putchar ('\n');
  93                         break;
  94                 case '1':
  95                         putchar ('\f');
  96                         break;
  97                 }
  98
  99                 if (len > 1 && buf[0] && buf[1]) {
 100                         printf("%.*s", (int)(len - 1), buf + 1);
 101                 }
 102
 103                 while ((buf = fgetln(f, &len)) != NULL) {
 104                         if (buf[len - 1] == '\n')
 105                                 buf[--len] = '\0';
 106                         switch (buf[0]) {
 107                         default:
 108                         case ' ':
 109                                 putchar ('\n');
 110                                 break;
 111                         case '0':
 112                                 putchar ('\n');
 113                                 putchar ('\n');
 114                                 break;
 115                         case '1':
 116                                 putchar ('\n');
 117                                 putchar ('\f');
 118                                 break;
 119                         case '+':
 120                                 putchar ('\r');
 121                                 break;
 122                         }
 123
 124                         if (len > 1 && buf[0] && buf[1]) {
 125                                 printf("%.*s", (int)(len - 1), buf + 1);
 126                         }
 127                 }
 128
 129                 putchar ('\n');
 130         }
 131 }