--- parser3/src/main/execute.C	2002/06/12 11:40:32	1.241
+++ parser3/src/main/execute.C	2002/08/12 10:32:52	1.248
@@ -3,10 +3,10 @@
 
 	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 $
 */
 
+static const char* IDENT_EXECUTE_C="$Date: 2002/08/12 10:32:52 $";
+
 #include "pa_opcode.h"
 #include "pa_array.h" 
 #include "pa_request.h"
@@ -504,10 +504,6 @@ void Request::execute(const Array& ops)
 				
 				rcontext=wcontext=&frame;
 				{
-					// take object or class from any wrappers
-					// and substitute class alias to the class they are called AS
-					Temp_alias temp_alias(*self->get_aliased(), *frame.junction.vclass);
-
 					const Method& method=*frame.junction.method;
 					Method::Call_type call_type=
 						called_class==self ? Method::CT_STATIC : Method::CT_DYNAMIC;
@@ -545,7 +541,7 @@ void Request::execute(const Array& ops)
 				wcontext=static_cast<WContext *>(POP());  
 				rcontext=POP();  
 				root=POP();  
-				self=static_cast<VAliased *>(POP());
+				self=static_cast<Value *>(POP());
 
 #ifdef DEBUG_STRING_APPENDS_VS_EXPANDS
 				if(const String *s=value->get_string())
@@ -848,9 +844,8 @@ void Request::execute(const Array& ops)
 			}
 		case OP_IS:
 			{
-				//_asm int 3;
 				b=POP();  a=POP();
-				value=NEW VBool(pool(), b->as_string() == a->type());
+				value=NEW VBool(pool(), a->as(b->as_string().cstr())!=0);
 				PUSH(value);
 				break;
 			}
@@ -950,7 +945,7 @@ StringOrValue Request::process(Value& in
 		wcontext=static_cast<WContext *>(POP());  
 		rcontext=POP();  
 		root=POP();  
-		self=static_cast<VAliased *>(POP());
+		self=static_cast<Value *>(POP());
 		
 #ifdef DEBUG_EXECUTE
 		debug_printf(pool(), "<-ja returned");
@@ -961,59 +956,84 @@ 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());
+	self=static_cast<Value *>(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; 
+
+	// prevent non-string writes for better error reporting
+	if(return_string)
+		wcontext->write(local_frame);
 	
 	// execute!	
 	execute(*method.parser_code);
 	
 	// result
-	const String& result=wcontext->result().as_string();
+	const String *result=0;
+	if(return_string)
+		*return_string=&wcontext->result().as_string();
 	
 	wcontext=static_cast<WContext *>(POP());  
 	rcontext=POP();  
 	root=POP();  
-	self=static_cast<VAliased *>(POP());
-	
-	// return
-	return result;
+	self=static_cast<Value *>(POP());
+}
+
+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 +1042,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);
-}