/*-
 * 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[] = "@(#)bang.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 <string.h>

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

/*
 * Execute a command in sh (and always sh). For those wondering the
 * proper name for '!' _is_ bang.
 */

void
bang(inputt, errnum)
	FILE *inputt;
	int *errnum;
{
	static int l_cnt_last_pos;		/* "!!", l_shellcmd offset */
	static char l_shellcmd[FILENAME_LEN];	/* "!!" */
	int l_cnt = 0, l_esc = 0;

	for (;;) {
		if (sigint_flag)
			SIGINT_ACTION;
		ss = getchar();
		if ((ss == '\\') && (l_esc == 0)) {
			ss = getchar();
			l_esc = 1;
		} else
			l_esc = 0;
		if ((ss == '\n') || (ss == EOF)) {
			if (l_cnt == 0) {
				strcpy(help_msg, "no shell command given");
				*errnum = -1;
				ungetc('\n', inputt);
				return;
			}
			l_shellcmd[l_cnt] = '\0';
			break;
		} else
			if ((ss == '!') && (l_esc == 0))
				l_cnt = l_cnt_last_pos;
			else
				if ((ss == '%') && (l_esc == 0)) {
					l_shellcmd[l_cnt] = '\0';
					strcat(l_shellcmd, filename_current);
					l_cnt =
					    l_cnt + strlen(filename_current);
				} else
					l_shellcmd[l_cnt++] = ss;
		if (l_cnt >= FILENAME_LEN) {
			strcpy(help_msg, "shell command too long");
			*errnum = -1;
			ungetc('\n', inputt);
			return;
		}
	}

	system(l_shellcmd);
	if (explain_flag != 0)	/* for the -s option */
		printf("!\n");
	l_cnt_last_pos = l_cnt;
	*errnum = 0;
}