--- parser3/src/include/pa_request.h	2001/01/30 13:07:31	1.4
+++ parser3/src/include/pa_request.h	2001/03/10 16:15:37	1.31
@@ -1,5 +1,5 @@
 /*
-  $Id: pa_request.h,v 1.4 2001/01/30 13:07:31 paf Exp $
+  $Id: pa_request.h,v 1.31 2001/03/10 16:15:37 paf Exp $
 */
 
 #ifndef PA_REQUEST_H
@@ -7,52 +7,101 @@
 
 #include "pa_pool.h"
 #include "pa_exception.h"
+#include "pa_hash.h"
+#include "pa_wcontext.h"
+#include "pa_value.h"
+#include "pa_stack.h"
+#include "pa_vclass.h"
+
+#define MAIN_METHOD_NAME "main"
+#define AUTO_METHOD_NAME "auto"
+#define RUN_CLASS_NAME "RUN"
+#define AUTO_CLASS_NAME "AUTO"
+
+#define ROOT_CLASS_NAME "ROOT"
+#define ENV_CLASS_NAME "ENV"
+
+#ifndef NO_STRING_ORIGIN
+#	define COMPILE_PARAMS char *source, String *name, VClass *base_class, char *file
+#	define COMPILE(source, name, base_class, file) real_compile(source, name, base_class, file)
+#else
+#	define COMPILE_PARAMS char *source, String *name, VClass *base_class
+#	define COMPILE(source, name, base_class, file) real_compile(source, name, base_class)
+#endif
 
 class Local_request_exception;
 
-class Request {
-	friend Local_request_exception;
+class Request : public Pooled {
 public:
 	
-	Request(Pool& apool) : fpool(apool) {}
+	Request(Pool& apool);
 	~Request() {}
 
-	Pool& pool() { return fpool; }
+	// global classes
+	Hash& classes() { return fclasses; }
+	Array& classes_array() { return fclasses_array; }
+
+	// core request processing
+	void core();
+
+	VClass *use(char *file, 
+		String *name=0, 
+		VClass *base_class=0, 
+		bool fail_on_read_problem=true); // core.C
+	Value& autocalc(Value& value, const String *name=0, 
+		bool make_string=true); // execute.C
 
-	Exception& exception() { return *fexception; }
+	void write(const String& astring) {
+		wcontext->write(astring, String::Untaint_lang::NO);  // write(const) = clean
+	}
 
-protected:
+	void write(Value& avalue) {
+		// appending possible string, assigning untaint language
+		wcontext->write(avalue, lang); 
+	}
 
-	// all request' objects are allocated in this pool
-	Pool& fpool;
+public:
+	
+	// default base
+	VClass root_class;
+	// $ENV:fields here
+	VClass env_class;
 
-	// exception replacement mechanism is protected from direct usage
-	// Local_request_exception object enforces paired set/restore
-	Exception *set_exception(Exception *e){
-		Exception *r=fexception;
-		fexception=e;
-		return r;
-	}
-	void restore_exception(Exception *e) {
-		fexception=e;
-	}
+	// contexts
+	Value *self, *root, *rcontext;
+	WContext *wcontext;
 
-private:
+private: // core data
 
-	// current request's exception object
-	Exception *fexception;
+	// classes
+	Hash fclasses;
+	Array fclasses_array;
 
-};
+	// execution stack
+	Stack stack;
 
-class Local_request_exception {
-	Request request;
-	Exception *saved_exception;
-public:
-	Local_request_exception(Request& arequest, Exception& exception) : 
-		request(arequest),
-		saved_exception(arequest.set_exception(&exception)) {}
-	~Local_request_exception() { request.restore_exception(saved_exception); }
-};
+private: // core.C
 
+	char *execute_MAIN();
+
+private: // compile.C
+
+	VClass& real_compile(COMPILE_PARAMS);
+
+private: // execute.C
+
+	char *execute_static_method(VClass& vclass, String& method_name, bool return_cstr);
+	void execute(const Array& ops);
+
+	Value *get_element();
+
+private: // lang&raw 
+	
+	String::Untaint_lang lang;
+
+private: // lang&raw manipulation
+
+	// TODO
+};
 
 #endif