/*-
 * Copyright (c) 1992 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Rodney Ruddock of the University of Guelph.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)g.c	5.2 (Berkeley) 01/23/93";
#endif /* not lint */

#include <sys/types.h>

#include <db.h>
#include <regex.h>
#include <setjmp.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include "ed.h"
#include "extern.h"

static int	find_line __P((LINE *));
static void	w_cmd_l_file __P((FILE *, FILE *, int *));

/*
 * Find a line that we noted matched the RE earlier in the current
 * buffer (it may have disappeared because of the commands in the
 * command list).
 */
int
find_line(dot)
	LINE *dot;
{
	LINE *l_cl;

	l_cl = top;
	for (;;) {
		if (l_cl == dot)
			return (1);
		if (l_cl == bottom)
			return (0);
		l_cl = l_cl->below;
	}
}

/*
 * Write the command line to a STDIO tmp file. See g() below.
 * This allows us to use cmd_loop to run the command list because
 * we "trick" cmd_loop into reading a STDIO file instead of stdin.
 */
void
w_cmd_l_file(fp, inputt, errnum)
	FILE *fp, *inputt;
	int *errnum;
{
	int l_esc = 0, l_cnt = 0;

	for (;;) {
		ss = getc(inputt);
		if (ss == '\\') {
			l_esc = 1;
			ss = getc(inputt);
		}
		if (((ss == '\n') && (l_esc == 0)) || (ss == EOF)) {
			/* if no command list default command list to 'p' */
			if (l_cnt == 0)
				fputc('p', fp);
			break;
		}
		l_esc = 0;
		fputc(ss, fp);
		l_cnt++;
	}
	if (ss == EOF)
		clearerr(inputt);
}

/*
 * The global function. All global commands (g, G, v, and V) are handled
 * in here. The lines to be affected by the command list are 1st noted
 * and then the command list is invoked for each line matching the RE.
 * Note the trick of how the command list is executed. Saves a lot of
 * code (and allows for \n's in substitutions).
 */
void
g(inputt, errnum)
	FILE *inputt;
	int *errnum;
{
	struct g_list *l_Head, *l_Foot, *l_gut, *l_old;
	static char *l_template_g;
	char *l_patt;
	static int l_template_flag = 0;
	int l_re_success, l_flag_v = 0, l_err;
	FILE *l_fp;
#ifdef POSIX
	LINE *l_posix_cur;
#endif

	if (start_default && End_default) {
		start = top;
		End = bottom;
	} else
		if (start_default)
			start = End;
	if (start == NULL) {
		strcpy(help_msg, "bad address");
		*errnum = -1;
		return;
	}
	if (sigint_flag)
		SIGINT_ACTION;

	if (l_template_flag == 0) {
		l_template_flag = 1;
		l_template_g = calloc(FILENAME_LEN, sizeof(char));
		if (l_template_g == NULL) {
			*errnum = -1;
			strcpy(help_msg, "out of memory error");
			return;
		}
	}
	/* set up the STDIO command list file */
	bcopy("/tmp/_4.4bsd_ed_g_XXXXXX\0", l_template_g, 24);
	mktemp(l_template_g);

	l_Head = l_Foot = l_gut = l_old = NULL;

	if ((ss == 'v') || (ss == 'V'))
		l_flag_v = 1;

	if ((ss == 'G') || (ss == 'V')) {
		/*
		 * If it's an interactive global command we use stdin, not a
		 * file.
		 */
		GV_flag = 1;
		l_fp = stdin;
	} else {
		if ((l_fp = fopen(l_template_g, "w+")) == NULL) {
			perror("ed: file I/O error");
			exit(1);
		}
	}

	ss = getc(inputt);

	/* Get the RE for the global command. */
	l_patt = get_pattern(ss, inputt, errnum, 0);
	if (sigint_flag)
		SIGINT_ACTION;
	/* Instead of: if ((*errnum == -1) && (ss == '\n'))... */
	if (*errnum < -1)
		return;
	*errnum = 0;
	if ((l_patt[1] == '\0') && (RE_flag == 0)) {
		*errnum = -1;
		ungetc(ss, inputt);
		return;
	} else
		if (l_patt[1] || (RE_patt == NULL)) {
			free(RE_patt);
			RE_patt = l_patt;
		}
	RE_sol = (RE_patt[1] == '^') ? 1 : 0;
	if ((RE_patt[1]) &&
	    (regfree(&RE_comp), l_err = regcomp(&RE_comp, &RE_patt[1], 0))) {
		regerror(l_err, &RE_comp, help_msg, 128);
		*errnum = -1;
		RE_flag = 0;
		ungetc(ss, inputt);
		return;
	}
	RE_flag = 1;
	if (sigint_flag)
		SIGINT_ACTION;
#ifdef POSIX
	l_posix_cur = current;
#endif
	current = start;

	for (;;) {
		/*
		 * Find the lines in the buffer that the global command wants
		 * to work with.
		 */
		if (sigint_flag)
			goto point;
		get_line(current->handle, current->len);
		l_re_success =
		    regexec(&RE_comp, text, (size_t) RE_SEC, RE_match, 0);
		/* l_re_success=0 => success */
		if ((l_re_success != 0 && l_flag_v == 1) ||
		    (l_re_success == 0 && l_flag_v == 0)) {
			if (l_Head == NULL) {
				l_gut = malloc(sizeof(struct g_list));
				if (l_gut == NULL) {
					*errnum = -1;
					strcpy(help_msg, "out of memory error");
#ifdef POSIX
					current = l_posix_cur;
#endif
					return;
				}
				(l_gut->next) = NULL;
				(l_gut->cell) = current;
				l_Foot = l_Head = l_gut;
			} else {
				(l_gut->next) = malloc(sizeof(struct g_list));
				if ((l_gut->next) == NULL) {
					*errnum = -1;
					strcpy(help_msg, "out of memory error");
					goto clean;
				}
				l_gut = l_gut->next;
				(l_gut->cell) = current;
				(l_gut->next) = NULL;
				l_Foot = l_gut;
			}
		}
		if (End == current)
			break;
		current = current->below;
	}

	if (l_Head == NULL) {
		strcpy(help_msg, "no matches found");
		*errnum = -1;
#ifdef POSIX
		current = l_posix_cur;
#endif
		return;
	}
	/* if non-interactive, get the command list */
	if (GV_flag == 0)
		w_cmd_l_file(l_fp, inputt, errnum);
	l_gut = l_Head;

	if (g_flag == 0)
		u_clr_stk();

	for (;;) {
		/*
		 * Execute the command list on the lines that still exist that
		 * we indicated earlier that global wants to work with.
		 */
		if (sigint_flag)
			goto point;
		if (GV_flag == 0)
			fseek(l_fp, (off_t)0, 0);
		if (find_line(l_gut->cell)) {
			current = (l_gut->cell);
			get_line(current->handle, current->len);
			if (GV_flag == 1)
				printf("%s\n", text);
			g_flag++;
			explain_flag--;
			cmd_loop(l_fp, errnum);
			explain_flag++;
			g_flag--;
			if ((GV_flag == 1) && (*errnum < 0)) {
				ungetc('\n', l_fp);
				break;
			}
			*errnum = 0;
			if (l_gut == l_Foot)
				break;
			l_gut = l_gut->next;
		}
	}

point:
	if (GV_flag == 0) {
		fclose(l_fp);
		unlink(l_template_g);
	}
	GV_flag = 0;
clean:
	/* clean up */
	l_gut = l_Head;
	while (1) {
		if (l_gut == NULL)
			break;
		l_old = l_gut;
		l_gut = l_gut->next;
		free(l_old);
	}
#ifdef POSIX
	current = l_posix_cur;
#endif
}