From 5fd83771641d15c418f747bd343ba6738d3875f7 Mon Sep 17 00:00:00 2001 From: Cameron Katri Date: Sun, 9 May 2021 14:20:58 -0400 Subject: Import macOS userland adv_cmds-176 basic_cmds-55 bootstrap_cmds-116.100.1 developer_cmds-66 diskdev_cmds-667.40.1 doc_cmds-53.60.1 file_cmds-321.40.3 mail_cmds-35 misc_cmds-34 network_cmds-606.40.1 patch_cmds-17 remote_cmds-63 shell_cmds-216.60.1 system_cmds-880.60.2 text_cmds-106 --- developer_cmds/asa/asa.c | 131 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 131 insertions(+) create mode 100644 developer_cmds/asa/asa.c (limited to 'developer_cmds/asa/asa.c') diff --git a/developer_cmds/asa/asa.c b/developer_cmds/asa/asa.c new file mode 100644 index 0000000..9516a45 --- /dev/null +++ b/developer_cmds/asa/asa.c @@ -0,0 +1,131 @@ +/* $NetBSD: asa.c,v 1.11 1997/09/20 14:55:00 lukem Exp $ */ + +/* + * Copyright (c) 1993,94 Winning Strategies, Inc. + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by Winning Strategies, Inc. + * 4. The name of the author may not be used to endorse or promote products + * derived from this software without specific prior written permission + * + * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR + * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES + * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. + * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, + * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT + * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, + * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY + * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT + * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF + * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + */ + +#include +#ifndef lint +__RCSID("$NetBSD: asa.c,v 1.11 1997/09/20 14:55:00 lukem Exp $"); +#endif + +#include +#include +#include +#include + +static void asa __P((FILE *)); +int main __P((int, char *[])); + +int main(int argc, char **argv) +{ + FILE *fp; + int exit_val = 0; + /* skip progname */ + argv++; + + if (*argv && !strcmp(*argv, "--")) { + argv++; + argc--; + } + + if (argc == 1) { + asa(stdin); + exit(exit_val); + } + + do { + if (*argv) { + if (!(fp = fopen(*argv, "r"))) { + warn ("%s", *argv); + exit_val = 1; + continue; + } else { + asa(fp); + (void)fclose(fp); + } + } + } while (*argv++); + + exit (exit_val); +} + +static void +asa(f) + FILE *f; +{ + char *buf; + size_t len; + + if ((buf = fgetln (f, &len)) != NULL) { + if (buf[len - 1] == '\n') + buf[--len] = '\0'; + /* special case the first line */ + switch (buf[0]) { + case '0': + putchar ('\n'); + break; + case '1': + putchar ('\f'); + break; + } + + if (len > 1 && buf[0] && buf[1]) { + printf("%.*s", (int)(len - 1), buf + 1); + } + + while ((buf = fgetln(f, &len)) != NULL) { + if (buf[len - 1] == '\n') + buf[--len] = '\0'; + switch (buf[0]) { + default: + case ' ': + putchar ('\n'); + break; + case '0': + putchar ('\n'); + putchar ('\n'); + break; + case '1': + putchar ('\n'); + putchar ('\f'); + break; + case '+': + putchar ('\r'); + break; + } + + if (len > 1 && buf[0] && buf[1]) { + printf("%.*s", (int)(len - 1), buf + 1); + } + } + + putchar ('\n'); + } +} -- cgit v1.2.3