--- parser3/src/classes/op.C	2002/10/15 10:09:51	1.117
+++ parser3/src/classes/op.C	2003/04/04 09:59:56	1.128
@@ -1,11 +1,11 @@
 /** @file
 	Parser: parser @b operators.
 
-	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_OP_C="$Date: 2002/10/15 10:09:51 $";
+static const char* IDENT_OP_C="$Date: 2003/04/04 09:59:56 $";
 
 #include "classes.h"
 #include "pa_common.h"
@@ -96,19 +96,13 @@ static void _taint(Request& r, const Str
 static void _process(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
 	const Method *main_method;
+	Value& target_self=params->size()>1?
+		params->as_no_junction(0, "target must not be code")
+		:r.get_method_frame()->caller()->self();
 	{
 		Value& vjunction=params->as_junction(params->size()-1, "body must be code");
 
-		Value *vtarget;
-		vtarget=params->size()>1?
-			&params->as_no_junction(0, "target must not be code")
-			:r.get_method_frame()->caller();
-		if(!vtarget)
-			throw Exception("parser.runtime",
-				&method_name,
-				"no caller"); // can't be, somebody really called ^process
-
-		VStateless_class *target_class=vtarget->get_class();
+		VStateless_class *target_class=target_self.get_last_derived_class();
 		if(!target_class)
 			throw Exception("parser.runtime",
 				&method_name,
@@ -158,6 +152,8 @@ static void _process(Request& r, const S
 	// after restoring current-request-lang
 	// maybe-execute @main[]
 	if(main_method) {
+		// temporarily set method_frame's self to target_self
+		Temp_method_frame_self tmfs(*r.get_method_frame(), target_self);
 		// execute!	
 		r.execute(*main_method->parser_code);
 	}
@@ -253,8 +249,8 @@ struct timeval mt[2];
 	Value& body_code=params->as_junction(1, "body must be code");
 
 	Table *protocol2driver_and_client=0;
-	if(Value *sql=r.main_class.get_element(*new(pool) String(pool, MAIN_SQL_NAME), &r.main_class, false)) {
-		if(Value *element=sql->get_element(*new(pool) String(pool, MAIN_SQL_DRIVERS_NAME), sql, false)) {
+	if(Value *sql=r.main_class.get_element(*new(pool) String(pool, MAIN_SQL_NAME), r.main_class, false)) {
+		if(Value *element=sql->get_element(*new(pool) String(pool, MAIN_SQL_DRIVERS_NAME), *sql, false)) {
 			protocol2driver_and_client=element->get_table();
 		}
 	}
@@ -406,9 +402,9 @@ static void locked_process_and_cache_put
 		info.data->expires=0; // flag it so that could be easily checked by caller
 }
 const String *locked_process_and_cache_put(Request& r, 
-									Value& body_code,
-									Cache_data& data,
-									const String& file_spec) {
+					   Value& body_code,
+					   Cache_data& data,
+					   const String& file_spec) {
 	Locked_process_and_cache_put_action_info info={
 		&r,
 		&data,
@@ -432,6 +428,7 @@ String *cache_get(Pool& pool, const Stri
 	if(file_read(pool, file_spec, 
 			   data, data_size, 
 			   false/*as_text*/, 
+			   0, 0, //no params&out_fields
 			   false/*fail_on_read_problem*/)
 	    && data_size/* ignore reads which are empty due to 
 			non-unary open+lockEX conflict with lockSH */) {
@@ -590,16 +587,19 @@ static void _try_operator(Request& r, co
 	Value& catch_code=params->as_junction(1, "catch_code must be code");
 
 	StringOrValue result;
+	// taking snapshot of try-context
+	Request_context_saver try_context(r);
 	try {
-		Request_context_saver context_saved(r); // taking snapshot of request processing status, restoring it at }
 		result=r.process(body_code);
-		context_saved.restore(); // manually restoring context
 	} catch(const Exception& e) {
+		Request_context_saver throw_context(r); // taking snapshot of throw-context [stack trace contains error]
+		try_context.restore(); // restoring try-context to perform catch-code
+
 		VHash& vhash=exception2vhash(pool, e);
 
 		Junction *junction=catch_code.get_junction();
 		Value *method_frame=junction->method_frame;
-		Value *saved_exception_var_value=method_frame->get_element(*exception_var_name, method_frame, false);
+		Value *saved_exception_var_value=method_frame->get_element(*exception_var_name, *method_frame, false);
 		junction->method_frame->put_element(*exception_var_name, &vhash, false);
 		result=r.process(catch_code);
 		bool handled=false;
@@ -607,10 +607,12 @@ static void _try_operator(Request& r, co
 			handled=value->as_bool();		
 		junction->method_frame->put_element(*exception_var_name, saved_exception_var_value, false);
 
-		if(!handled)
+		if(!handled) {
+			throw_context.restore(); // restoring throw-context [exception were not handled]
 			throw(e); // rethrow
+		}
 	}
-	// write it out 
+	// write out result
 	r.write_pass_lang(result);
 }
 
@@ -649,6 +651,8 @@ static void _throw_operator(Request& r,
 // constructor
 
 VClassMAIN::VClassMAIN(Pool& apool): VClass(apool) {
+	set_name(*NEW String(pool(), MAIN_CLASS_NAME));
+
 	// ^if(condition){code-when-true}
 	// ^if(condition){code-when-true}{code-when-false}
 	add_native_method("if", Method::CT_ANY, _if, 2, 3);