--- parser3/src/main/execute.C	2002/06/12 11:40:32	1.241
+++ parser3/src/main/execute.C	2002/06/20 16:31:08	1.241.2.1
@@ -4,7 +4,7 @@
 	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 
-	$Id: execute.C,v 1.241 2002/06/12 11:40:32 paf Exp $
+	$Id: execute.C,v 1.241.2.1 2002/06/20 16:31:08 paf Exp $
 */
 
 #include "pa_opcode.h"
@@ -961,59 +961,85 @@ StringOrValue Request::process(Value& in
 	return result;
 }
 
-void Request::execute_method(Value& aself, const Method& method,
-		const String **return_string) {
+const String& Request::execute_method(VMethodFrame& amethodFrame, const Method& method) {
 	PUSH(self);  
 	PUSH(root);  
 	PUSH(rcontext);  
 	PUSH(wcontext);
 	
 	// initialize contexts
-	root=rcontext=self=&aself;
-	WWrapper local(pool(), &aself);
-	wcontext=&local; 
+	root=rcontext=self=&amethodFrame;
+	wcontext=&amethodFrame;
 	
 	// execute!	
 	execute(*method.parser_code);
 	
 	// result
-	const String *result=0;
-	if(return_string) {
-		if(Value *result_var_value=wcontext->get_element(*result_var_name))
-			*return_string=&result_var_value->as_string();
-		else
-			*return_string=&wcontext->as_string();
-	}
+	const String& result=wcontext->result().as_string();
 	
 	wcontext=static_cast<WContext *>(POP());  
 	rcontext=POP();  
 	root=POP();  
 	self=static_cast<VAliased *>(POP());
+	
+	// return
+	return result;
 }
 
-const String& Request::execute_method(VMethodFrame& amethodFrame, const Method& method) {
+void Request::execute_method(Value& aself, 
+							 const Method& method, VString *optional_param,
+							 const String **return_string) {
 	PUSH(self);  
 	PUSH(root);  
 	PUSH(rcontext);  
 	PUSH(wcontext);
 	
 	// initialize contexts
-	root=rcontext=self=&amethodFrame;
-	wcontext=&amethodFrame;
+	//root=rcontext=self=&aself;
+	self=&aself;	
+//	WWrapper local(pool(), &aself);
+//	wcontext=&local; 
+	Junction local_junction(pool(), *self, self->get_class(), &method, 0,0,0,0);
+	VMethodFrame local_frame(pool(), method.name, local_junction);
+	if(optional_param && local_frame.can_store_param()) {
+		local_frame.store_param(optional_param);
+		local_frame.fill_unspecified_params();
+	}
+	local_frame.set_self(*self);
+	root=rcontext=wcontext=&local_frame; 
 	
 	// execute!	
 	execute(*method.parser_code);
 	
 	// result
-	const String& result=wcontext->result().as_string();
+	const String *result=0;
+	if(return_string) {
+		/*if(Value *result_var_value=wcontext->get_element(*result_var_name))
+			*return_string=&result_var_value->as_string();
+		else
+			*return_string=&wcontext->as_string();*/
+		*return_string=&wcontext->result().as_string();
+	}
 	
 	wcontext=static_cast<WContext *>(POP());  
 	rcontext=POP();  
 	root=POP();  
 	self=static_cast<VAliased *>(POP());
-	
-	// return
-	return result;
+}
+
+void Request::execute_nonvirtual_method(VStateless_class& aclass, 
+												 const String& method_name, VString *optional_param,
+												 const String **return_string,
+												 const Method **return_method) {
+
+	const Method *method=aclass.get_method(method_name);
+	if(return_string)
+		*return_string=0;
+	if(return_method)
+		*return_method=method;
+
+	if(method)
+		execute_method(aclass, *method, optional_param, return_string);
 }
 
 const String *Request::execute_virtual_method(Value& aself, 
@@ -1022,23 +1048,10 @@ const String *Request::execute_virtual_m
 		if(Junction *junction=value->get_junction())
 			if(const Method *method=junction->method) {
 				const String *result;
-				execute_method(aself, *method, &result);
+				execute_method(aself, *method, 0/*no params*/, &result);
 				return result;
 			}
 			
 	return 0;
 }
 
-void Request::execute_nonvirtual_method(VStateless_class& aclass, 
-												 const String& method_name,
-												 const String **return_string,
-												 const Method **return_method) {
-	const Method *method=aclass.get_method(method_name);
-	if(return_string)
-		*return_string=0;
-	if(return_method)
-		*return_method=method;
-
-	if(method)
-		execute_method(aclass, *method, return_string);
-}