--- parser3/src/include/pa_request.h	2001/02/22 10:43:42	1.8
+++ parser3/src/include/pa_request.h	2001/03/11 08:02:05	1.35
@@ -1,5 +1,9 @@
 /*
-  $Id: pa_request.h,v 1.8 2001/02/22 10:43:42 paf Exp $
+	Parser
+	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+	Author: Alexander Petrosyan <paf@design.ru>
+
+	$Id: pa_request.h,v 1.35 2001/03/11 08:02:05 paf Exp $
 */
 
 #ifndef PA_REQUEST_H
@@ -11,15 +15,21 @@
 #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 MAIN_CLASS_NAME "MAIN"
+
+#define ROOT_CLASS_NAME "ROOT"
+#define ENV_CLASS_NAME "ENV"
 
 #ifndef NO_STRING_ORIGIN
-#	define COMPILE_PARAMS char *source, char *file
-#	define COMPILE(source, file) real_compile(source, file)
+#	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
-#	define COMPILE(source, file) real_compile(source)
+#	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;
@@ -27,48 +37,76 @@ class Local_request_exception;
 class Request : public Pooled {
 public:
 	
-	Request(Pool& apool) : Pooled(apool),
-		stack(apool),
-		fclasses(apool)
-		{
-	}
+	Request(Pool& apool);
 	~Request() {}
 
 	// 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
+
+	void write(const String& astring) {
+		wcontext->write(astring, String::Untaint_lang::NO);  // write(const) = clean
+	}
+
+	void write(Value& avalue) {
+		// appending possible string, assigning untaint language
+		wcontext->write(avalue, lang); 
+	}
+
+public:
+	
+	// default base
+	VClass root_class;
+	// $ENV:fields here
+	VClass env_class;
+
+	// contexts
+	Value *self, *root, *rcontext;
+	WContext *wcontext;
+
 private: // core data
 
 	// classes
 	Hash fclasses;
+	Array fclasses_array;
 
-	// contexts
-	Value *root, *self, *rcontext;
-	WContext *wcontext;
-	
 	// execution stack
 	Stack stack;
 
 private: // core.C
 
-	Array& load_and_compile_RUN();
-	VClass *construct_class(String& name, Array& compiled_methods);
-	char *execute_MAIN(VClass *class_RUN);
+	char *execute_MAIN();
 
 private: // compile.C
 
-	Array& real_compile(COMPILE_PARAMS);
+	VClass& real_compile(COMPILE_PARAMS);
 
 private: // execute.C
 
-	void execute(Array& ops);
+	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;
 
-// core func
-void core();
+private: // lang&raw manipulation
+
+	// TODO
+};
 
 #endif