--- parser3/src/main/execute.C	2001/12/21 11:17:25	1.207
+++ parser3/src/main/execute.C	2002/02/08 07:27:46	1.217
@@ -1,10 +1,10 @@
 /** @file
 	Parser: executor part of request class.
 
-	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
+	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
 
-	$Id: execute.C,v 1.207 2001/12/21 11:17:25 paf Exp $
+	$Id: execute.C,v 1.217 2002/02/08 07:27:46 paf Exp $
 */
 
 #include "pa_opcode.h"
@@ -31,13 +31,14 @@ const uint ANTI_ENDLESS_EXECUTE_RECOURSI
 char *opcode_name[]={
 	// literals
 	"VALUE",  "CURLY_CODE__STORE_PARAM",  "EXPR_CODE__STORE_PARAM",
+	"NESTED_CODE",
 
 	// actions
 	"WITH_ROOT",	"WITH_SELF",	"WITH_READ",	"WITH_WRITE",
 	"GET_CLASS",
 	"CONSTRUCT_VALUE", "CONSTRUCT_EXPR", "CURLY_CODE__CONSTRUCT",
 	"WRITE_VALUE",  "WRITE_EXPR_RESULT",  "STRING__WRITE",
-	"GET_ELEMENT",	"GET_ELEMENT__WRITE",
+	"GET_ELEMENT_OR_OPERATOR", "GET_ELEMENT",	"GET_ELEMENT__WRITE",
 	"CREATE_EWPOOL",	"REDUCE_EWPOOL",
   	"CREATE_SWPOOL",	"REDUCE_SWPOOL",
 	"GET_METHOD_FRAME",
@@ -89,6 +90,7 @@ void debug_dump(Pool& pool, int level, c
 		case OP_CURLY_CODE__STORE_PARAM: 
 		case OP_EXPR_CODE__STORE_PARAM:
 		case OP_CURLY_CODE__CONSTRUCT:
+		case OP_NESTED_CODE:
 			const Array *local_ops=reinterpret_cast<const Array *>(i.next());
 			debug_dump(pool, level+1, *local_ops);
 		}
@@ -99,6 +101,7 @@ void debug_dump(Pool& pool, int level, c
 #define PUSH(value) stack.push(value)
 #define POP() static_cast<Value *>(stack.pop())
 #define POP_NAME() static_cast<Value *>(stack.pop())->as_string()
+#define POP_CODE() static_cast<Array *>(stack.pop())
 
 void Request::execute(const Array& ops) {
 //	_asm int 3;
@@ -118,6 +121,7 @@ void Request::execute(const Array& ops)
 
 		Value *value;
 		Value *a; Value *b;
+		Array *b_code;
 		switch(op.code) {
 		// param in next instruction
 		case OP_VALUE:
@@ -237,6 +241,16 @@ void Request::execute(const Array& ops)
 				value->set_name(name);
 				break;
 			}
+		case OP_NESTED_CODE:
+			{
+				Array *local_ops=static_cast<Array *>(i.next());
+#ifdef DEBUG_EXECUTE
+				debug_printf(pool(), " (%d)\n", local_ops->size());
+				debug_dump(pool(), 1, *local_ops);
+#endif				
+				PUSH(local_ops);
+				break;
+			}
 		case OP_WRITE_VALUE:
 			{
 				value=POP();
@@ -263,20 +277,30 @@ void Request::execute(const Array& ops)
 				break;
 			}
 			
+		case OP_GET_ELEMENT_OR_OPERATOR:
+			{
+				// maybe they do ^object.method[] call, remember the fact
+				wcontext->set_somebody_entered_some_object(true);
+
+				//_asm int 3;
+				value=get_element(true);
+				PUSH(value);
+				break;
+			}
 		case OP_GET_ELEMENT:
 			{
 				// maybe they do ^object.method[] call, remember the fact
 				wcontext->set_somebody_entered_some_object(true);
 
 				//_asm int 3;
-				value=get_element();
+				value=get_element(false);
 				PUSH(value);
 				break;
 			}
 
 		case OP_GET_ELEMENT__WRITE:
 			{
-				value=get_element();
+				value=get_element(false);
 				write_assign_lang(*value);
 				break;
 			}
@@ -292,7 +316,7 @@ void Request::execute(const Array& ops)
 			}
 		case OP_REDUCE_EWPOOL:
 			{
-				value=wcontext->result();
+				value=&wcontext->result();
 				flang=static_cast<String::Untaint_lang>(reinterpret_cast<int>(POP()));
 				wcontext=static_cast<WContext *>(POP());
 				PUSH(value);
@@ -448,7 +472,7 @@ void Request::execute(const Array& ops)
 								call_type==Method::CT_STATIC?"statically":"dynamically");
 
 				}
-				value=wcontext->result();
+				value=&wcontext->result();
 
 				wcontext=static_cast<WContext *>(POP());  
 				rcontext=POP();  
@@ -635,15 +659,30 @@ void Request::execute(const Array& ops)
 			}
 		case OP_LOG_AND:
 			{
-				b=POP();  a=POP();
-				value=NEW VBool(pool(), a->as_bool() && b->as_bool());
+				b_code=POP_CODE();  a=POP();
+				bool result;
+				if(a->as_bool()) {
+					execute(*b_code);
+					b=POP();
+					result=b->as_bool();
+				} else
+					result=false;
+				value=NEW VBool(pool(), result);
 				PUSH(value);
 				break;
 			}
 		case OP_LOG_OR:
 			{
-				b=POP();  a=POP();
-				value=NEW VBool(pool(), a->as_bool() || b->as_bool());
+				b_code=POP_CODE();  a=POP();
+				bool result;
+				if(a->as_bool()) 
+					result=true;
+				else {
+					execute(*b_code);
+					b=POP();
+					result=b->as_bool();
+				}
+				value=NEW VBool(pool(), result);
 				PUSH(value);
 				break;
 			}
@@ -755,17 +794,19 @@ void Request::execute(const Array& ops)
 	}
 }
 
-Value *Request::get_element() {
+Value *Request::get_element(bool can_call_operator) {
 	const String& name=POP_NAME();
 	Value *ncontext=POP();
-	Value *value=ncontext->get_element(name);
-	if(!value)
-		if(Method* method=OP.get_method(name)) { // maybe operator?
+	Value *value=0;
+	if(can_call_operator)
+		if(Method* method=OP.get_method(name)) { // looking operator of that name FIRST
 			// as if that method were in self and we have normal dynamic method here
 			Junction& junction=*NEW Junction(pool(), 
 				*root, self->get_class(), method, 0,0,0,0);
 			value=NEW VJunction(junction);
 		}
+	if(!value)
+		value=ncontext->get_element(name);
 	if(value)
 		value=&process(*value, &name); // process possible code-junction
 	else {
@@ -835,7 +876,7 @@ Value& Request::process(Value& value, co
 			//   returning them as the result of getting code-junction
 			result=NEW VString(*frame->get_string());
 		} else 
-			result=frame->result();
+			result=&frame->result();
 		
 		wcontext=static_cast<WContext *>(POP());  
 		rcontext=POP();  
@@ -853,8 +894,8 @@ Value& Request::process(Value& value, co
 	return *result;
 }
 
-const String *Request::execute_method(Value& aself, const Method& method, 
-									  bool return_cstr) {
+const String *Request::execute_method(Value& aself, const Method& method,
+		bool return_cstr) {
 	PUSH(self);  
 	PUSH(root);  
 	PUSH(rcontext);  
@@ -868,11 +909,32 @@ const String *Request::execute_method(Va
 	execute(*method.parser_code);
 	
 	// result
-	const String *result;
-	if(return_cstr)
-		result=&wcontext->as_string();
-	else
-		result=0; // ignore result
+	const String *result=return_cstr ? &wcontext->as_string() : 0;
+	
+	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) {
+	PUSH(self);  
+	PUSH(root);  
+	PUSH(rcontext);  
+	PUSH(wcontext);
+	
+	// initialize contexts
+	root=rcontext=self=&amethodFrame;
+	wcontext=&amethodFrame;
+	
+	// execute!	
+	execute(*method.parser_code);
+	
+	// result
+	const String& result=wcontext->as_string();
 	
 	wcontext=static_cast<WContext *>(POP());  
 	rcontext=POP();  
@@ -884,18 +946,17 @@ const String *Request::execute_method(Va
 }
 
 const String *Request::execute_virtual_method(Value& aself, 
-											  const String& method_name, 
-											  bool return_cstr) {
+											  const String& method_name) {
 	if(Value *value=aself.get_element(method_name))
 		if(Junction *junction=value->get_junction())
 			if(const Method *method=junction->method) 
-				return execute_method(aself, *method, return_cstr);
+				return execute_method(aself, *method, true /*return_cstr*/);
 			
 	return 0;
 }
 
 const String *Request::execute_nonvirtual_method(VStateless_class& aclass, 
-												 const String& method_name, 
+												 const String& method_name,
 												 bool return_cstr) {
 	if(const Method *method=aclass.get_method(method_name))
 		return execute_method(aclass, *method, return_cstr);