/* vi: set sw=4 ts=4: */
/*
 * Mini sed implementation for busybox
 *
 *
 * Copyright (C) 1999 by Lineo, inc.
 * Written by Erik Andersen <andersen@lineo.com>, <andersee@debian.org>
 *
 * Modifications for addresses and append command have been
 * written by Marco Pantaleoni <panta@prosa.it>, <panta@elasticworld.org>
 * and are:
 * Copyright (C) 1999 Marco Pantaleoni.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 * General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
 *
 */

#include "internal.h"
#include "regexp.h"
#include <stdio.h>
#include <dirent.h>
#include <errno.h>
#include <fcntl.h>
#include <signal.h>
#include <time.h>
#include <ctype.h>

static const char sed_usage[] =
	"sed [-n] -e script [file...]\n\n"
	"Allowed sed scripts come in the following form:\n"
	"\t'ADDR [!] COMMAND'\n\n"
	"\twhere address ADDR can be:\n"
	"\t  NUMBER    Match specified line number\n"
	"\t  $         Match last line\n"
	"\t  /REGEXP/  Match specified regexp\n"
	"\t  (! inverts the meaning of the match)\n\n"
	"\tand COMMAND can be:\n"
	"\t  s/regexp/replacement/[igp]\n"
	"\t     which attempt to match regexp against the pattern space\n"
	"\t     and if successful replaces the matched portion with replacement.\n\n"
	"\t  aTEXT\n"
	"\t     which appends TEXT after the pattern space\n"
	"Options:\n"
	"-e\tadd the script to the commands to be executed\n"
	"-n\tsuppress automatic printing of pattern space\n\n"
#if defined BB_REGEXP
	"This version of sed matches full regular expresions.\n";
#else
	"This version of sed matches strings (not full regular expresions).\n";
#endif

/* Flags & variables */

typedef enum { f_none, f_replace, f_append } sed_function;

#define NO_LINE		-2
#define LAST_LINE	-1
static int addr_line = NO_LINE;
static char *addr_pattern = NULL;
static int negated = 0;

#define SKIPSPACES(p)		do { while (isspace(*(p))) (p)++; } while (0)

#define BUFSIZE		1024

static inline int at_last(FILE * fp)
{
	int res = 0;

	if (feof(fp))
		return 1;
	else {
		int ch;

		if ((ch = fgetc(fp)) == EOF)
			res++;
		ungetc(ch, fp);
	}
	return res;
}

static void do_sed_repl(FILE * fp, char *needle, char *newNeedle,
						int ignoreCase, int printFlag, int quietFlag)
{
	int foundOne = FALSE;
	char haystack[BUFSIZE];
	int line = 1, doit;

	while (fgets(haystack, BUFSIZE - 1, fp)) {
		doit = 0;
		if (addr_pattern) {
			doit = !find_match(haystack, addr_pattern, FALSE);
		} else if (addr_line == NO_LINE)
			doit = 1;
		else if (addr_line == LAST_LINE) {
			if (at_last(fp))
				doit = 1;
		} else {
			if (line == addr_line)
				doit = 1;
		}
		if (negated)
			doit = 1 - doit;
		if (doit) {
			foundOne =
				replace_match(haystack, needle, newNeedle, ignoreCase);

			if (foundOne == TRUE && printFlag == TRUE) {
				fprintf(stdout, haystack);
			}
		}

		if (quietFlag == FALSE) {
			fprintf(stdout, haystack);
		}

		line++;
	}
}

static void do_sed_append(FILE * fp, char *appendline, int quietFlag)
{
	char buffer[BUFSIZE];
	int line = 1, doit;

	while (fgets(buffer, BUFSIZE - 1, fp)) {
		doit = 0;
		if (addr_pattern) {
			doit = !find_match(buffer, addr_pattern, FALSE);
		} else if (addr_line == NO_LINE)
			doit = 1;
		else if (addr_line == LAST_LINE) {
			if (at_last(fp))
				doit = 1;
		} else {
			if (line == addr_line)
				doit = 1;
		}
		if (negated)
			doit = 1 - doit;
		if (quietFlag == FALSE) {
			fprintf(stdout, buffer);
		}
		if (doit) {
			fputs(appendline, stdout);
			fputc('\n', stdout);
		}

		line++;
	}
}

extern int sed_main(int argc, char **argv)
{
	FILE *fp;
	char *needle = NULL, *newNeedle = NULL;
	char *name;
	char *cp;
	int ignoreCase = FALSE;
	int printFlag = FALSE;
	int quietFlag = FALSE;
	int stopNow;
	char *line_s = NULL, saved;
	char *appendline = NULL;
	char *pos;
	sed_function sed_f = f_none;

	argc--;
	argv++;
	if (argc < 1) {
		usage(sed_usage);
	}

	while (argc > 1) {
	    if (**argv == '-') {
		    argc--;
  		    cp = *argv++;
		    stopNow = FALSE;

		    while (*++cp && stopNow == FALSE) {
			    switch (*cp) {
			    case 'n':
				    quietFlag = TRUE;
				    break;
    			case 'e':
    				if (*(cp + 1) == 0 && --argc < 0) {
    					usage(sed_usage);
    				}
    				if (*++cp != 's')
    					cp = *argv++;
    
    				/* Read address if present */
    				SKIPSPACES(cp);
    				if (*cp == '$') {
    					addr_line = LAST_LINE;
    					cp++;
    				} else {
    					if (isdigit(*cp)) {	/* LINE ADDRESS   */
    						line_s = cp;
    						while (isdigit(*cp))
    							cp++;
    						if (cp > line_s) {
    							/* numeric line */
    							saved = *cp;
    							*cp = '\0';
    							addr_line = atoi(line_s);
    							*cp = saved;
    						}
    					} else if (*cp == '/') {	/* PATTERN ADDRESS */
    						pos = addr_pattern = cp + 1;
    						pos = strchr(pos, '/');
    						if (!pos)
    							usage(sed_usage);
    						*pos = '\0';
    						cp = pos + 1;
    					}
    				}
    
    				SKIPSPACES(cp);
    				if (*cp == '!') {
    					negated++;
    					cp++;
    				}
    
    				/* Read command */
    
    				SKIPSPACES(cp);
    				switch (*cp) {
    				case 's':		/* REPLACE */
    					if (strlen(cp) <= 3 || *(cp + 1) != '/')
    						break;
    					sed_f = f_replace;
    
    					pos = needle = cp + 2;
    
    					for (;;) {
    						pos = strchr(pos, '/');
    						if (pos == NULL) {
    							usage(sed_usage);
    						}
    						if (*(pos - 1) == '\\') {
    							pos++;
    							continue;
    						}
    						break;
    					}
    					*pos = 0;
    					newNeedle = ++pos;
    					for (;;) {
    						pos = strchr(pos, '/');
    						if (pos == NULL) {
    							usage(sed_usage);
    						}
    						if (*(pos - 1) == '\\') {
    							pos++;
    							continue;
    						}
    						break;
    					}
    					*pos = 0;
    					if (pos + 2 != 0) {
    						while (*++pos) {
    							switch (*pos) {
    							case 'i':
    								ignoreCase = TRUE;
    								break;
    							case 'p':
    								printFlag = TRUE;
    								break;
    							case 'g':
    								break;
    							default:
    								usage(sed_usage);
    							}
    						}
    					}
    					cp = pos;
    					/* fprintf(stderr, "replace '%s' with '%s'\n", needle, newNeedle); */
    					break;
    
    				case 'a':		/* APPEND */
    					if (strlen(cp) < 2)
    						break;
    					sed_f = f_append;
    					appendline = ++cp;
    					/* fprintf(stderr, "append '%s'\n", appendline); */
    					break;
    				}
    
    				stopNow = TRUE;
    				break;
    
    			default:
    				usage(sed_usage);
    			}
    		}
    	}
    }

	if (argc == 0) {
		switch (sed_f) {
		case f_none:
			break;
		case f_replace:
			do_sed_repl(stdin, needle, newNeedle, ignoreCase, printFlag,
						quietFlag);
			break;
		case f_append:
			do_sed_append(stdin, appendline, quietFlag);
			break;
		}
	} else {
		while (argc-- > 0) {
			name = *argv++;

			fp = fopen(name, "r");
			if (fp == NULL) {
				perror(name);
				continue;
			}

			switch (sed_f) {
			case f_none:
				break;
			case f_replace:
				do_sed_repl(fp, needle, newNeedle, ignoreCase, printFlag,
							quietFlag);
				break;
			case f_append:
				do_sed_append(fp, appendline, quietFlag);
				break;
			}

			if (ferror(fp))
				perror(name);

			fclose(fp);
		}
	}
	exit(TRUE);
}


/* END CODE */