/*
 * 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 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <locale.h>
#include <sys/file.h>
#include <fcntl.h>
#include <errno.h>

extern char *optarg;

/*
 * FUNCTION:
 *	static char *_file_getline(FILE *fp)
 * INPUT:
 *	FILE *fp - file pointer to read from
 * OUTPUT:
 *	char *(return) - an entry from the stream
 * DESCRIPTION:
 *	This routine will read in a line at a time.  If the line ends in a
 *	newline, it returns.  If the line ends in a backslash newline, it
 *	continues reading more.  It will ignore lines that start in # or
 *	blank lines.
 */
static char *
_file_getline(FILE *fp)
{
	char entry[BUFSIZ], *tmp;
	int size;

	size = sizeof (entry);
	tmp  = entry;

	/* find an entry */
	while (fgets(tmp, size, fp)) {
		if ((tmp == entry) && ((*tmp == '#') || (*tmp == '\n'))) {
			continue;
		} else {
			if ((*tmp == '#') || (*tmp == '\n')) {
				*tmp = '\0';
				break;
			}

			size -= strlen(tmp);
			tmp += strlen(tmp);

			if (*(tmp-2) != '\\')
				break;

			size -= 2;
			tmp -= 2;
		}
	}

	if (tmp == entry)
		return (NULL);
	else
		return (strdup(entry));
}

int
main(int ac, char *av[])
{
	int   c;
	char  file[80], ofile[80];
	char *cp;
	FILE *fp, *fp2;

	(void) setlocale(LC_ALL, "");

#if	!defined(TEXT_DOMAIN)
#define	TEXT_DOMAIN "SYS_TEST"
#endif
	(void) textdomain(TEXT_DOMAIN);

	while ((c = getopt(ac, av, "f:o:")) != EOF)

		switch (c) {
		case 'f':
			(void) strlcpy(file, optarg, sizeof (file));
			break;
		case 'o':
			(void) strlcpy(ofile, optarg, sizeof (ofile));
			break;
		default:
			(void) fprintf(stderr, gettext(
				"Usage: %s [-f file] [-o output file]\n"),
				av[0]);
			return (1);
		}

	if ((fp = fopen(file, "r")) != NULL) {
		int fd;

		fd = open(ofile, O_RDWR|O_APPEND);
		if ((fd < 0) && (errno == ENOENT))
			fd = open(ofile, O_RDWR|O_CREAT|O_EXCL, 0644);

		if (fd < 0) {
			(void) fprintf(stderr,
			    gettext("Error trying to open file.\n"));
			return (1);
		}

		lseek(fd, 0, SEEK_END);

		if ((fp2 = fdopen(fd, "a")) != NULL) {
			while ((cp = _file_getline(fp)) != NULL) {
				(void) fprintf(fp2, "%s", cp);
			}
			return (0);
		} else {
			(void) fprintf(stderr,
			    gettext("Error trying to open file.\n"));
			return (1);
		}
	} else {
		(void) fprintf(stderr,
		    gettext("Error trying to open file.\n"));
		return (1);
	}
}