--- parser3/src/include/pa_request.h	2002/08/15 10:13:19	1.145
+++ parser3/src/include/pa_request.h	2002/09/18 12:40:38	1.149
@@ -8,7 +8,7 @@
 #ifndef PA_REQUEST_H
 #define PA_REQUEST_H
 
-static const char* IDENT_REQUEST_H="$Date: 2002/08/15 10:13:19 $";
+static const char* IDENT_REQUEST_H="$Date: 2002/09/18 12:40:38 $";
 
 #include "pa_pool.h"
 #include "pa_hash.h"
@@ -63,6 +63,7 @@ class VMethodFrame;
 class Request : public Pooled {
 	friend class Temp_lang;
 	friend class Temp_connection;
+	friend class Request_context_saver;
 public:
 
 #ifdef RESOURCES_DEBUG
@@ -123,7 +124,8 @@ public:
 	/// compiles the file, maybe forcing it's class @a name and @a base_class.
 	VStateless_class *use_file(
 		const String& file_name, 
-		bool ignore_class_path=false, bool fail_on_read_problem=true,
+		bool ignore_class_path=false, 
+		bool fail_on_read_problem=true, bool fail_on_file_absence=true,
 		const String *name=0, 
 		VStateless_class *base_class=0); // core.C
 	/// compiles a @a source buffer
@@ -251,22 +253,34 @@ public:
 	/// $cookie:elements
 	VCookie cookie;
 
+	/// 'MAIN' class conglomerat
+	VStateless_class *main_class;
+
+	/// classes configured data
+	Hash classes_conf;
+
+private:
+
 	//@{ request processing status
+	/// exception stack trace
+	Stack exception_trace;
 	/// execution stack
 	Stack stack;
 	/// contexts
-	Value *self, *root, *rcontext;
-	/// contexts
+	Value *self;
+	VMethodFrame *method_frame;
+	Value *rcontext;
 	WContext *wcontext;
-	/// exception stack trace
-	Stack exception_trace;
+	/// current language
+	uchar flang; 
+	/// current connection
+	SQL_Connection *fconnection;
 	//@}
 
-	/// 'MAIN' class conglomerat
-	VStateless_class *main_class;
+public: // status read methods
 
-	/// classes configured data
-	Hash classes_conf;
+	Value *get_self() { return self; }
+	VMethodFrame *get_method_frame() { return method_frame; }
 
 private: // core data
 
@@ -331,11 +345,6 @@ private: // lang manipulation
 		flang=alang;
 	}
 
-private: // lang&raw 
-	
-	uchar flang;
-
-
 private: // connection manipulation
 
 	SQL_Connection *set_connection(SQL_Connection *aconnection) {
@@ -349,10 +358,46 @@ private: // connection manipulation
 
 private:
 
-	/// connection
+	void output_result(const VFile& body_file, bool header_only);
+};
+
+/// Auto-object used to save request context across ^try body
+class Request_context_saver {
+
+	Request& fr;
+
+	/// exception stack trace
+	int exception_trace;
+	/// execution stack
+	int stack;
+	/// contexts
+	Value *self;
+	VMethodFrame *method_frame;
+	Value *rcontext;
+	WContext *wcontext;
+	/// current language
+	uchar flang; 
+	/// current connection
 	SQL_Connection *fconnection;
 
-	void output_result(const VFile& body_file, bool header_only);
+public:
+	Request_context_saver(Request& ar) : 
+		exception_trace(ar.exception_trace.top_index()),	
+		stack(ar.stack.top_index()),
+		self(ar.self),
+		method_frame(ar.method_frame),
+		rcontext(ar.rcontext),
+		wcontext(ar.wcontext),
+		flang(ar.flang),
+		fconnection(ar.fconnection),
+		fr(ar) {}
+	~Request_context_saver() {
+		fr.exception_trace.top_index(exception_trace);
+		fr.stack.top_index(stack);
+		fr.self=self; fr.method_frame=method_frame, fr.rcontext=rcontext; fr.wcontext=wcontext;
+		fr.flang=flang;
+		fr.fconnection=fconnection;
+	}
 };
 
 ///	Auto-object used for temporary changing Request::flang.