diff options
Diffstat (limited to 'developer_cmds/asa')
| -rw-r--r-- | developer_cmds/asa/asa.1 | 85 | ||||
| -rw-r--r-- | developer_cmds/asa/asa.c | 131 |
2 files changed, 216 insertions, 0 deletions
diff --git a/developer_cmds/asa/asa.1 b/developer_cmds/asa/asa.1 new file mode 100644 index 0000000..4c388a0 --- /dev/null +++ b/developer_cmds/asa/asa.1 @@ -0,0 +1,85 @@ +.\" $NetBSD: asa.1,v 1.5 1997/09/20 14:55:00 lukem Exp $ +.\" +.\" Copyright (c) 1993 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. +.\" +.Dd September 23, 1993 +.Dt ASA 1 +.Os +.Sh NAME +.Nm asa +.Nd interpret carriage-control characters. +.Sh SYNOPSIS +.Nm +.Op Ar +.Sh DESCRIPTION +The +.Nm +utility reads files sequentially, mapping +.Tn FORTRAN +carriage-control characters to line-printer control sequences, +and writes them to the standard output. +.Pp +The first character of each line is interpreted as a carriage-control +character. The following characters are interpreted as follows: +.Bl -tag -width "<space>" +.It <space> +Output the rest of the line without change. +.It 0 +Output a <newline> character before printing the rest of the line. +.It 1 +Output a <formfeed> character before printing the rest of the line. +.It + +The trailing <newline> of the previous line is replaced by a <carriage-return> +before printing the rest of the line. +.El +.Pp +Lines beginning with characters other than the above are treated as if they +begin with <space>. +.Sh EXAMPLES +To view a file containing the output of a +.Tn FORTRAN program: +.Dl asa file +.Pp +To format the output of a +.Tn FORTRAN +program and redirect it to a line-printer. +.Dl a.out | asa | lpr +.Sh DIAGNOSTICS +The +.Nm +utility exit 0 on success, and >0 if an error occurs. +.Sh SEE ALSO +.Xr f77 1 +.Sh STANDARDS +The +.Nm +utility conforms to +.St -p1003.2-92 . +.Sh AUTHORS +J.T. Conklin, Winning Strategies, Inc. 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 <sys/cdefs.h> +#ifndef lint +__RCSID("$NetBSD: asa.c,v 1.11 1997/09/20 14:55:00 lukem Exp $"); +#endif + +#include <err.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +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'); + } +} |