/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <ctype.h>
#include <limits.h>
#include <locale.h>
#include <nl_types.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <errno.h>

#define	FF '\f'
#define	NL '\n'
#define	NUL '\0'

static	void usage(void);
static	void disp_file(FILE *f, char *filename);
static	FILE *get_next_file(int, char *, char *[], int);
static	void finish(int need_a_newline);

int estatus = 0;	/* exit status */
int i;			/* argv index */

int
main(int argc, char *argv[])
{
	int c;
	int form_feeds		= 0;
	int need_a_newline	= 0;
	char *filename		= NULL;
	FILE *f;

	(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)	/* Should be defined by cc -D */
#define	TEXT_DOMAIN "SYS_TEST"  /* Use this only if it were not */
#endif

	(void) textdomain(TEXT_DOMAIN);

	while ((c = getopt(argc, argv, "f")) != EOF) {
		switch (c) {
		case 'f':
			form_feeds = 1;
			break;

		case '?':
			usage();
		}
	}

	i = optind;
	if (argc <= i) {
		filename = NULL;
		f = stdin;
	} else {
		f = get_next_file(need_a_newline, filename, argv, argc);
	}

	need_a_newline = 0;
	for (;;) {
		/* interpret the first character in the line */

		c = getc(f);
		switch (c) {
		case EOF:
			disp_file(f, filename);

			if (i >= argc)
				finish(need_a_newline);

			f = get_next_file(need_a_newline, filename, argv, argc);

			if (need_a_newline) {
				(void) putchar(NL);
				need_a_newline = 0;
			}

			if (form_feeds)
				(void) putchar(FF);

			continue;

		case NL:
			if (need_a_newline)
				(void) putchar(NL);
			need_a_newline = 1;
			continue;

		case '+':
			if (need_a_newline)
				(void) putchar('\r');
			break;

		case '0':
			if (need_a_newline)
				(void) putchar(NL);
			(void) putchar(NL);
			break;

		case '1':
			if (need_a_newline)
				(void) putchar(NL);
			(void) putchar(FF);
			break;

		case ' ':
		default:
			if (need_a_newline)
				(void) putchar(NL);
			break;
		}

		need_a_newline = 0;

		for (;;) {
			c = getc(f);
			if (c == NL) {
				need_a_newline = 1;
				break;
			} else if (c == EOF) {
				disp_file(f, filename);

				if (i >= argc)
					finish(need_a_newline);

				f = get_next_file(need_a_newline, filename,
				    argv, argc);

				if (form_feeds) {
					(void) putchar(NL);
					(void) putchar(FF);
					need_a_newline = 0;
					break;
				}
			} else {
				(void) putchar(c);
			}
		}
	}
	/* NOTREACHED */
	return (0);
}

static void
usage(void)
{
	(void) fprintf(stderr, gettext("usage: asa [-f] [-|file...]\n"));
	exit(1);
}


static	void
disp_file(FILE *f, char *filename)
{

	if (ferror(f)) {
		int	serror = errno;
		if (filename) {
			(void) fprintf(stderr, gettext(
			    "asa: read error on file %s\n"), filename);
		} else {
			(void) fprintf(stderr, gettext(
			    "asa: read error on standard input\n"));
		}
		errno = serror;
		perror("");
		estatus = 1;
	}

	(void) fclose(f);

}

static	FILE *
get_next_file(int need_a_newline, char *filename, char *argv[], int argc)
{
	FILE	*f;
	if (strcmp(argv[i], "-") == 0) {
		filename = NULL;
		f = stdin;
	} else {
		/*
		 * Process each file operand.  If unsuccessful, affect the
		 * exit status and continue processing the next operand.
		 */
		filename = argv[i];
		while ((f = fopen(filename, "r")) == NULL) {
			int	serror = errno;
			(void) fprintf(stderr,
				gettext("asa: cannot open %s:"), filename);
			errno = serror;
			perror("");
			estatus = 1;
			if (++i < argc) {
				if (strcmp(argv[i], "-") == 0) {
					filename = NULL;
					f = stdin;
					break;
				} else {
					filename = argv[i];
				}
			} else {
				finish(need_a_newline);
			}
		}
	}
	++i;
	return (f);
}

static	void
finish(int need_a_newline)
{
	if (need_a_newline)
		(void) putchar(NL);
	exit(estatus);
}