/* SH */

// TODO: use popen for {{pipe/endpipe}}

#if 0
static char *eof = NULL;
static char *input = NULL;
#endif

static TAG_CALLBACK(sh_default) {
	//if (out != stdout) {
		// pipe stdout to out fd
	//}
#if 0
	ptr = strstr(buf, "<<");
	if (ptr) {
		*ptr='\0';
		for(ptr = ptr+2;*ptr==' ';ptr=ptr+1);
		free(eof);
		eof = strdup(ptr);
		return;
	}

	// printf("system(%s)\n", buf);
	if (eof)
#endif
#if HAVE_FORK
	int r = r_sandbox_system (buf, 1);
	if (errno) {
		printf ("system '%s' (%d) failed: %s\n", buf, r, strerror (errno));
	}
#endif
	return 0;
}

static int sh_pipe_enabled = 0;
static char *sh_pipe_cmd = NULL;

static TAG_CALLBACK(sh_pipe) {
	sh_pipe_enabled = 1;
	free (sh_pipe_cmd);
	sh_pipe_cmd = strdup (buf);
	return 0;
}

static TAG_CALLBACK(sh_endpipe) {
	sh_pipe_enabled = 0;
	free (sh_pipe_cmd);
	sh_pipe_cmd = NULL;
	return 0;
}

static PUT_CALLBACK(sh_fputs) {
	if (sh_pipe_enabled) {
		char str[1024]; // XXX
		sprintf (str, "echo '%s' | %s", buf, sh_pipe_cmd); // XXX
#if HAVE_FORK
		int r = r_sandbox_system (str, 1);
		if (errno) {
			printf ("system '%s' (%d) failed: %s\n", str, r, strerror (errno));
		}
#endif
	} else {
		out_printf (out, "%s", buf);
	}
	return 0;
}

static struct Tag sh_tags[] = {
	{ "pipe", sh_pipe },
	{ "endpipe", sh_endpipe },
	{ NULL, sh_default },
	{ NULL }
};

static struct Arg sh_args[] = {
	{ NULL }
};

DLL_LOCAL struct Proc sh_proc = {
	.name = "sh",
	.tags = (struct Tag **)sh_tags,
	.args = (struct Arg **)sh_args,
	.eof = NULL,
	.token = NULL,
	.tag_pre = "{{",
	.tag_post = "}}",
	.fputs = sh_fputs,
	.multiline = "\\\n",
	.default_echo = 1,
	.chop = 0,
	.tag_begin = 0,
};