--- parser3/src/include/pa_request.h	2001/03/13 13:43:29	1.46
+++ parser3/src/include/pa_request.h	2001/03/13 19:35:04	1.52
@@ -3,30 +3,21 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: pa_request.h,v 1.46 2001/03/13 13:43:29 paf Exp $
+	$Id: pa_request.h,v 1.52 2001/03/13 19:35:04 paf Exp $
 */
 
 #ifndef PA_REQUEST_H
 #define PA_REQUEST_H
 
 #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"
 #include "pa_vobject.h"
-
-#define UNNAMED_NAME "unnamed"
-
-#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"
-#define TABLE_CLASS_NAME "table"
+#include "pa_venv.h"
+#include "pa_vform.h"
 
 #ifndef NO_STRING_ORIGIN
 #	define COMPILE_PARAMS  \
@@ -51,15 +42,21 @@ class Request : public Pooled {
 	friend Temp_lang;
 public:
 	
-	Request(Pool& apool);
+	Request(Pool& apool,
+		String::Untaint_lang alang,
+
+		const char *adocument_root,
+		const char *apage_filespec		
+	);
 	~Request() {}
 
 	// global classes
 	Hash& classes() { return fclasses; }
-	Array& classes_array() { return fclasses_array; }
 
 	// core request processing
-	void core();
+	char *core(
+		const char *sys_auto_path1,
+		const char *sys_auto_path2);
 
 	void execute(const Array& ops);
 
@@ -79,6 +76,10 @@ public:
 	void write(const String& astring) {
 		wcontext->write(astring, String::Untaint_lang::NO);  // write(const) = clean
 	}
+	void write_no_lang(String& astring) {
+		// appending, sure of clean string inside
+		wcontext->write(astring, String::Untaint_lang::NO);
+	}
 
 	void write_assign_lang(Value& avalue) {
 		// appending possible string, assigning untaint language
@@ -88,6 +89,10 @@ public:
 		// appending possible string, passing language built into string being written
 		wcontext->write(avalue, String::Untaint_lang::PASS_APPENDED); 
 	}
+	void write_no_lang(Value& avalue) {
+		// appending sure value, no strings inside
+		wcontext->write(avalue, String::Untaint_lang::NO); 
+	}
 
 	void fail_if_junction_(bool is, Value& value, const String& method_name, char *msg);
 
@@ -98,8 +103,10 @@ public:
 	
 	// default base
 	VClass root_class;
-	// $ENV:fields here
-	VStateless_class env_class;
+	// $env:fields here
+	VEnv env_class;
+	// $form:elements here
+	VForm form_class;
 
 	// contexts
 	Value *self, *root, *rcontext;
@@ -109,7 +116,6 @@ private: // core data
 
 	// classes
 	Hash fclasses;
-	Array fclasses_array;
 
 	// execution stack
 	Stack stack;
@@ -120,8 +126,8 @@ private: // compile.C
 
 private: // execute.C
 
-	char *execute_method(Value& aself, const Method& method, bool return_cstr);
-	char *execute_method(Value& aself, const String& method_name, bool return_cstr);
+	char *execute_method(Value& aself, const Method& method, bool return_cstr=true);
+	char *execute_method(Value& aself, const String& method_name, bool return_cstr=true);
 
 	Value *get_element();
 
@@ -142,8 +148,8 @@ private: // lang manipulation
 
 private: // web
 
-	const char *document_root;
-	const char *page_filespec;
+	const char *fdocument_root;
+	const char *fpage_filespec;
 
 };