--- parser3/src/main/pa_exec.C	2003/02/17 07:18:58	1.48.2.13
+++ parser3/src/main/pa_exec.C	2003/03/18 15:14:18	1.48.2.18.2.1
@@ -7,7 +7,7 @@
 	@todo setrlimit
 */
 
-static const char* IDENT_EXEC_C="$Date: 2003/02/17 07:18:58 $";
+static const char* IDENT_EXEC_C="$Date: 2003/03/18 15:14:18 $";
 
 #include "pa_config_includes.h"
 
@@ -111,11 +111,11 @@ error:
     return result;
 }
 
-static StringPtr read_pipe(Pool& pool, HANDLE hOutRead, const char* file_spec, 
+static const String& read_pipeHANDLE hOutRead, const char* file_spec, 
 					  String::Untaint_lang lang){
-	StringPtr result(new String);
+	const String& result(new String);
 	while(true) {
-		char *buf=new(pool) char[MAX_STRING];
+		char *buf=new char[MAX_STRING];
 		unsigned long size;
 		if(!ReadFile(hOutRead, buf, MAX_STRING, &size, NULL) || !size) 
 			break;
@@ -124,8 +124,8 @@ static StringPtr read_pipe(Pool& pool, H
 	return result;
 }
 
-static CharPtr buildCommand(CharPtr file_spec_cstr, const ArrayString& argv) {
-	CharPtr result=file_spec_cstr;
+static const char* buildCommand(const char* file_spec_cstr, const ArrayString& argv) {
+	const char* result=file_spec_cstr;
 	if(FILE *f=fopen(file_spec_cstr, "r")) {
 		try {
 		char buf[MAX_STRING];
@@ -279,10 +279,10 @@ static int get_exit_status(int pid) {
 		WEXITSTATUS(status) : -2;
 }
 
-static StringPtr read_pipe(Pool& pool, int file, const char* file_spec, String::Untaint_lang lang){
-	StringPtr result(new String);
+static const String& read_pipeint file, const char* file_spec, String::Untaint_lang lang){
+	const String& result(new String);
 	while(true) {
-		char *buf=new(pool) char[MAX_STRING];
+		char *buf=new char[MAX_STRING];
 		ssize_t size=read(file, buf, MAX_STRING);
 		if(size<=0)
 			break;
@@ -298,7 +298,7 @@ struct Append_env_pair_info {
 #ifdef WIN32
 	String* string;
 #else
-	Pool *pool;
+	;
 	char **env_ref;
 #endif
 };
@@ -318,10 +318,10 @@ static void append_env_pair(HashStringSt
 }
 
 /// @todonow unix part to smart_ptr
-PA_exec_result pa_exec(Pool& pool,
+PA_exec_result pa_exec(
 			bool forced_allow, 
-			StringPtr file_spec, 
-			const HashStringString& env, 
+			const String& file_spec, 
+			const HashStringString* env, 
 			const ArrayString& argv, 
 			String& in) {
 	PA_exec_result result;
@@ -338,12 +338,12 @@ PA_exec_result pa_exec(Pool& pool,
 
 	PROCESS_INFORMATION pi;	
 	HANDLE hInWrite, hOutRead, hErrRead;
-	CharPtr cmd=buildCommand(file_spec->cstr(String::UL_FILE_SPEC), argv);
-	CharPtr env_cstr(0);
-	{ // env
+	const char* cmd=buildCommand(file_spec->cstr(String::UL_FILE_SPEC), argv);
+	const char* env_cstr;
+	if(env) {
 		String string;
 		Append_env_pair_info info={&string};
-		env.for_each(append_env_pair, &info);
+		env->for_each(append_env_pair, &info);
 		env_cstr=info.string->cstr(String::UL_UNSPECIFIED);
 	}
 	if(DWORD error=CreateHiddenConsoleProcess(cmd, env_cstr, &pi, &hInWrite, &hOutRead, &hErrRead)) {
@@ -361,7 +361,7 @@ PA_exec_result pa_exec(Pool& pool,
 			"exec failed - %s (%ld). Consider adding shbang line (#!x:\\interpreter\\command line)", 
 				error_size?szErrorDesc:"<unknown>", (long)error);
 	} else {
-		CharPtr in_cstr=in.cstr();
+		const char* in_cstr=in.cstr();
 		DWORD written_size;
 		WriteFile(hInWrite, in_cstr, in.size(), &written_size, NULL);
 		// EOF for stupid text reads
@@ -413,15 +413,17 @@ from http://www.apache.org/websrc/cvsweb
 			file_spec,
 			"too many arguments (%d > max %d)", argv_size, argv_max);
 	for(int i=0; i<argv_size; i++)
-		argv_cstrs[1+i]=argv[i]->cstr(pool);
+		argv_cstrs[1+i]=argv[i]->cstr();
 	argv_cstrs[1+argv_size]=0;
 
-	char **env_cstrs=new(pool) char *[env.count()+1/*0*/];
-	{
+	char **env_cstrs;
+	if(env) {
+		env_cstrs=new char *[env->count()+1/*0*/];
 		Append_env_pair_info info={&pool, env_cstrs}; 
-		env.for_each(append_env_pair, &info);
+		env->for_each(append_env_pair, &info);
 		*info.env_ref=0;
-	}
+	} else
+		env_cstrs=0;
 
 	pid_t pid=execve_piped(
 		file_spec_cstr,
@@ -429,9 +431,9 @@ from http://www.apache.org/websrc/cvsweb
 		&pipe_write, &pipe_read, &pipe_err);
 	if(pid>0) {
 		// in child
-		if(in && in->size()) {// there is some in data
-			CharPtr in_cstr=in->cstr();
-			write(pipe_write, in_cstr, in->size());
+		if(in.size()) {// there is some in data
+			const char* in_cstr=in.cstr();
+			write(pipe_write, in_cstr, in.size());
 		}
 		close(pipe_write);
 		result.out=read_pipe(pool, pipe_read, file_spec_cstr, String::UL_AS_IS);