parser3/src/main/execute.C - diff

Return to execute.C CVS log

Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/execute.C between versions 1.108 and 1.136

version 1.108, 2001/03/16 09:26:43	version 1.136, 2001/04/03 05:23:41
Line 1	Line 1
/*	/** @file
Parser	Parser: executor part of request class.

Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)

Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)

$Id$	$Id$
*/	*/

#include "pa_array.h"	#include "pa_config_includes.h"
#include "code.h"	#include "code.h"
	#include "pa_array.h"
#include "pa_request.h"	#include "pa_request.h"
#include "pa_vstring.h"	#include "pa_vstring.h"
#include "pa_vhash.h"	#include "pa_vhash.h"
Line 18	Line 21
#include "pa_vdouble.h"	#include "pa_vdouble.h"
#include "pa_vbool.h"	#include "pa_vbool.h"
#include "pa_vtable.h"	#include "pa_vtable.h"
	#include "pa_vfile.h"

#include <stdio.h>	#include <stdio.h>

Line 28	Line 32

char *opcode_name[]={	char *opcode_name[]={
// literals	// literals
"VALUE", "CODE__STORE_PARAM",	"VALUE", "CURLY_CODE__STORE_PARAM", "EXPR_CODE__STORE_PARAM",

// actions	// actions
"WITH_SELF", "WITH_ROOT", "WITH_READ", "WITH_WRITE",	"WITH_SELF", "WITH_ROOT", "WITH_READ", "WITH_WRITE",
Line 54 char *opcode_name[]={	Line 58 char *opcode_name[]={
"IS"	"IS"
};	};

void va_log_printf(const char *fmt,va_list args) {	void va_log_printf(Pool& pool, const char *fmt,va_list args) {
vfprintf(stderr, fmt, args);	return;
	char buf[MAX_STRING];
	vsnprintf(buf, MAX_STRING, fmt, args);
	SAPI::log(pool, "%s", buf);
}	}

void log_printf(const char *fmt, ...) {	void log_printf(Pool& pool, const char *fmt, ...) {
// TODO: куда-нибудь пристроить
va_list args;	va_list args;
va_start(args,fmt);	va_start(args,fmt);
va_log_printf(fmt,args);	va_log_printf(pool,fmt,args);
va_end(args);	va_end(args);
}	}

void dump(int level, const Array& ops) {	void dump(Pool& pool, int level, const Array& ops) {
if(0){	if(0){
int size=ops.size();	int size=ops.quick_size();
//log_printf("size=%d\n", size);	//log_printf(pool, "size=%d\n", size);
for(int i=0; i<size; i++) {	for(int i=0; i<size; i++) {
Operation op;	Operation op;
op.cast=ops.quick_get(i);	op.cast=ops.quick_get(i);
log_printf("%8X\n", op.cast);	log_printf(pool, "%8X\n", op.cast);
}	}
}	}

int size=ops.size();	int size=ops.quick_size();
//log_printf("size=%d\n", size);	//log_printf(pool, "size=%d\n", size);
for(int i=0; i<size; i++) {	for(int i=0; i<size; i++) {
Operation op;	Operation op;
op.cast=ops.quick_get(i);	op.cast=ops.quick_get(i);
log_printf("%s%s", level4, "", opcode_name[op.code]);

if(op.code==OP_VALUE \|\| op.code==OP_STRING__WRITE) {	if(op.code==OP_VALUE \|\| op.code==OP_STRING__WRITE) {
Value value=static_cast<Value >(ops.quick_get(++i));	Value value=static_cast<Value >(ops.quick_get(++i));
log_printf(" \"%s\" %s", value->get_string()->cstr(), value->type());	log_printf(pool,
	"%*s%s"
	" \"%s\" %s",
	level*4, "", opcode_name[op.code],
	value->get_string()->cstr(), value->type());
	continue;
}	}
log_printf("\n");	log_printf(pool, "%s%s", level4, "", opcode_name[op.code]);

if(op.code==OP_CODE__STORE_PARAM) {	if(op.code==OP_CURLY_CODE__STORE_PARAM \|\| op.code==OP_EXPR_CODE__STORE_PARAM) {
const Array local_ops=reinterpret_cast<const Array >(ops.quick_get(++i));	const Array local_ops=reinterpret_cast<const Array >(ops.quick_get(++i));
dump(level+1, *local_ops);	dump(pool, level+1, *local_ops);
}	}
}	}
}	}

void Request::execute(const Array& ops) {	void Request::execute(const Array& ops) {
if(1) {	if(1) {
log_printf("source----------------------------\n");	log_printf(pool(), "source----------------------------\n");
dump(0, ops);	dump(pool(), 0, ops);
log_printf("execution-------------------------\n");	log_printf(pool(), "execution-------------------------\n");
}	}

int size=ops.size();	int size=ops.quick_size();
//log_printf("size=%d\n", size);	//log_printf(pool(), "size=%d\n", size);
for(int i=0; i<size; i++) {	for(int i=0; i<size; i++) {
Operation op;	Operation op;
op.cast=ops.quick_get(i);	op.cast=ops.quick_get(i);
log_printf("%d:%s", stack.top_index()+1, opcode_name[op.code]);	log_printf(pool(), "%d:%s", stack.top_index()+1, opcode_name[op.code]);

switch(op.code) {	switch(op.code) {
// param in next instruction	// param in next instruction
case OP_VALUE:	case OP_VALUE:
{	{
Value value=static_cast<Value >(ops.quick_get(++i));	Value value=static_cast<Value >(ops.quick_get(++i));
log_printf(" \"%s\" %s", value->get_string()->cstr(), value->type());	log_printf(pool(), " \"%s\" %s", value->get_string()->cstr(), value->type());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_CODE__STORE_PARAM:	case OP_CURLY_CODE__STORE_PARAM:
	case OP_EXPR_CODE__STORE_PARAM:
{	{
VMethodFrame frame=static_cast<VMethodFrame >(stack.top_value());	VMethodFrame frame=static_cast<VMethodFrame >(stack.top_value());
// code	// code
const Array local_ops=reinterpret_cast<const Array >(ops.quick_get(++i));	const Array local_ops=reinterpret_cast<const Array >(ops.quick_get(++i));
log_printf(" (%d)\n", local_ops->size());	log_printf(pool(), " (%d)\n", local_ops->size());
dump(1, *local_ops);	dump(pool(), 1, *local_ops);

	// when called method of some object, specifying object literally,
	// e.g ^t.menu, code of curly params must be executed
	// in r/w context of that object.
	// otherwise in current r/w context.
	//
	// when they evaluate expression parameter,
	// the object expression result
	// does not need to be written into calling frame
	// it must go into any expressions using that parameter
	// hence, zeroing junction.wcontext being created
	// later, in .process we would test that field
	// in decision "which wwrapper to use"
Junction& j=*NEW Junction(pool(),	Junction& j=*NEW Junction(pool(),
*self, 0, 0,	*self, 0, 0,
root, frame, frame, local_ops);	root,
	wcontext->somebody_entered_some_object()>1?
	&frame->junction.self /* ^t.menu{} /:rcontext/ ^if() */,
	op.code==OP_EXPR_CODE__STORE_PARAM?
	0:wcontext->somebody_entered_some_object()>1?
	frame/* ^t.menu{} /:wcontext/ ^if() */,
	local_ops);

Value *value=NEW VJunction(j);	Value *value=NEW VJunction(j);

Line 140 void Request::execute(const Array& ops)	Line 169 void Request::execute(const Array& ops)
}	}
case OP_GET_CLASS:	case OP_GET_CLASS:
{	{
// maybe the do ^class:method[] call, remember the fact	// maybe they do ^class:method[] call, remember the fact
wcontext->set_somebody_entered_some_class();	wcontext->set_somebody_entered_some_class();

const String& name=POP_NAME();	const String& name=POP_NAME();
VClass vclass=static_cast<VClass >(classes().get(name));	Value value=static_cast<Value >(classes().get(name));
if(!vclass)	if(!value)
THROW(0,0,	THROW(0,0,
&name,	&name,
": undefined class");	": undefined class");

PUSH(vclass);	PUSH(value);
break;	break;
}	}

Line 191 void Request::execute(const Array& ops)	Line 220 void Request::execute(const Array& ops)
Value *value=POP();	Value *value=POP();
const String& name=POP_NAME();	const String& name=POP_NAME();
Value *ncontext=POP();	Value *ncontext=POP();
ncontext->put_element(name, value->get_expr_result());	ncontext->put_element(name, value->as_expr_result());
value->set_name(name);	value->set_name(name);
break;	break;
}	}
Line 204 void Request::execute(const Array& ops)	Line 233 void Request::execute(const Array& ops)
case OP_WRITE_EXPR_RESULT:	case OP_WRITE_EXPR_RESULT:
{	{
Value *value=POP();	Value *value=POP();
write_expr_result(*value->get_expr_result());	write_expr_result(*value->as_expr_result());
break;	break;
}	}
case OP_STRING__WRITE:	case OP_STRING__WRITE:
{	{
VString vstring=static_cast<VString >(ops.quick_get(++i));	VString vstring=static_cast<VString >(ops.quick_get(++i));
log_printf(" \"%s\"", vstring->string().cstr());	log_printf(pool(), " \"%s\"", vstring->string().cstr());
write(vstring->string());	write_no_lang(vstring->string());
break;	break;
}	}

case OP_GET_ELEMENT:	case OP_GET_ELEMENT:
{	{
	// maybe they do ^object.method[] call, remember the fact
	wcontext->inc_somebody_entered_some_object();

Value *value=get_element();	Value *value=get_element();
PUSH(value);	PUSH(value);
break;	break;
Line 291 void Request::execute(const Array& ops)	Line 323 void Request::execute(const Array& ops)
case OP_GET_METHOD_FRAME:	case OP_GET_METHOD_FRAME:
{	{
Value *value=POP();	Value *value=POP();
// info: this one's always method-junction, not a code-junction	// info:
	// code compiled so that this one's always method-junction,
	// not a code-junction
Junction *junction=value->get_junction();	Junction *junction=value->get_junction();
if(!junction)	if(!junction)
THROW(0,0,	THROW(0,0,
&value->name(),	&value->name(),
"(%s) uncallable, must be method or junction",	"(%s) not a method or junction, can not call it",
value->type());	value->type());

VMethodFrame frame=NEW VMethodFrame(pool(), junction);	VMethodFrame frame=NEW VMethodFrame(pool(), junction);
Line 314 void Request::execute(const Array& ops)	Line 348 void Request::execute(const Array& ops)

case OP_CALL:	case OP_CALL:
{	{
log_printf("->\n");	log_printf(pool(), "->\n");
VMethodFrame frame=static_cast<VMethodFrame >(POP());	VMethodFrame frame=static_cast<VMethodFrame >(POP());
frame->fill_unspecified_params();	frame->fill_unspecified_params();
PUSH(self);	PUSH(self);
Line 332 void Request::execute(const Array& ops)	Line 366 void Request::execute(const Array& ops)
wcontext->constructing() && // constructing?	wcontext->constructing() && // constructing?
wcontext->somebody_entered_some_class()) { // ^class:method[..]?	wcontext->somebody_entered_some_class()) { // ^class:method[..]?
// yes, this is a constructor call	// yes, this is a constructor call
if(called_class->name()==TABLE_CLASS_NAME)	// some stateless_object derivates with constructors
	if(called_class==table_class)
self=NEW VTable(pool());	self=NEW VTable(pool());
else if(called_class->name()==ENV_CLASS_NAME)	else if(called_class==file_class)
self=NEW VEnv(pool());	self=NEW VFile(pool());
else	else // stateful object
self=NEW VObject(pool(), *called_class);	self=NEW VObject(pool(), *called_class);
frame->write(*self,	frame->write(*self,
String::Untaint_lang::NO // not used, always an object, not string	String::UL_CLEAN // not used, always an object, not string
);	);
} else	} else
self=&frame->junction.self; // no, static or simple dynamic call	self=&frame->junction.self; // no, static or simple dynamic call
Line 352 void Request::execute(const Array& ops)	Line 387 void Request::execute(const Array& ops)
Temp_alias temp_alias(self->get_aliased(), frame->junction.vclass);	Temp_alias temp_alias(self->get_aliased(), frame->junction.vclass);

const Method& method=*frame->junction.method;	const Method& method=*frame->junction.method;
if(method.native_code) { // native code?	Method::Call_type call_type=
method.check_actual_numbered_params(	called_class==self ? Method::CT_STATIC : Method::CT_DYNAMIC;
frame->name(), frame->numbered_params());	if(
(method.native_code)(this,	method.call_type==Method::CT_ANY \|\|
frame->name(), frame->numbered_params()); // execute it	method.call_type==call_type) // allowed call type?
} else // parser code	if(method.native_code) { // native code?
execute(*method.parser_code); // execute it	method.check_actual_numbered_params(
	frame->junction.self,
	frame->name(), frame->numbered_params());
	(*method.native_code)(
	*this,
	frame->name(), frame->numbered_params()); // execute it
	} else // parser code
	execute(*method.parser_code); // execute it
	else
	THROW(0, 0,
	&frame->name(),
	"is not allowed to be called %s",
	call_type==Method::CT_STATIC?"statically":"dynamically");

}	}
Value *value=wcontext->result();	Value *value=wcontext->result();

Line 368 void Request::execute(const Array& ops)	Line 416 void Request::execute(const Array& ops)
self=static_cast<VAliased *>(POP());	self=static_cast<VAliased *>(POP());

PUSH(value);	PUSH(value);
log_printf("<-returned");	log_printf(pool(), "<-returned");
break;	break;
}	}

Line 376 void Request::execute(const Array& ops)	Line 424 void Request::execute(const Array& ops)
case OP_NEG:	case OP_NEG:
{	{
Value *operand=POP();	Value *operand=POP();
Value *value=NEW VDouble(pool(), -operand->get_double());	Value *value=NEW VDouble(pool(), -operand->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_INV:	case OP_INV:
{	{
Value *operand=POP();	Value *operand=POP();
Value *value=NEW VDouble(pool(), ~(int)operand->get_double());	Value *value=NEW VDouble(pool(), ~(int)operand->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_NOT:	case OP_NOT:
{	{
Value *operand=POP();	Value *operand=POP();
Value *value=NEW VBool(pool(), !operand->get_bool());	Value *value=NEW VBool(pool(), !operand->as_bool());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_DEF:	case OP_DEF:
{	{
Value *operand=POP();	Value *operand=POP();
Value *value=NEW VBool(pool(), operand->get_defined());	Value *value=NEW VBool(pool(), operand->is_defined());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_IN:	case OP_IN:
{	{
Value *operand=POP();	Value *operand=POP();
Value value=NEW VBool(pool(), true/TODO*/);	const char *path=operand->as_string().cstr();
	Value *value=NEW VBool(pool(), info.uri && strcmp(path, info.uri)<=0);
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_FEXISTS:	case OP_FEXISTS:
{	{
Value *operand=POP();	Value *operand=POP();
Value value=NEW VBool(pool(), true/TODO*/);	Value *value=NEW VBool(pool(),
	file_readable(absolute(operand->as_string())));
PUSH(value);	PUSH(value);
break;	break;
}	}
Line 420 void Request::execute(const Array& ops)	Line 470 void Request::execute(const Array& ops)
case OP_SUB:	case OP_SUB:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VDouble(pool(), a->get_double() - b->get_double());	Value *value=NEW VDouble(pool(), a->as_double() - b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_ADD:	case OP_ADD:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VDouble(pool(), a->get_double() + b->get_double());	Value *value=NEW VDouble(pool(), a->as_double() + b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_MUL:	case OP_MUL:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value value=NEW VDouble(pool(), a->get_double() b->get_double());	Value value=NEW VDouble(pool(), a->as_double() b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_DIV:	case OP_DIV:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VDouble(pool(), a->get_double() / b->get_double());	Value *value=NEW VDouble(pool(), a->as_double() / b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
Line 449 void Request::execute(const Array& ops)	Line 499 void Request::execute(const Array& ops)
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VDouble(pool(),	Value *value=NEW VDouble(pool(),
(int)a->get_double() %	(int)a->as_double() %
(int)b->get_double());	(int)b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
Line 458 void Request::execute(const Array& ops)	Line 508 void Request::execute(const Array& ops)
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VDouble(pool(),	Value *value=NEW VDouble(pool(),
(int)a->get_double() &	(int)a->as_double() &
(int)b->get_double());	(int)b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
Line 467 void Request::execute(const Array& ops)	Line 517 void Request::execute(const Array& ops)
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VDouble(pool(),	Value *value=NEW VDouble(pool(),
(int)a->get_double() \|	(int)a->as_double() \|
(int)b->get_double());	(int)b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
Line 476 void Request::execute(const Array& ops)	Line 526 void Request::execute(const Array& ops)
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VDouble(pool(),	Value *value=NEW VDouble(pool(),
(int)a->get_double() ^	(int)a->as_double() ^
(int)b->get_double());	(int)b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_LOG_AND:	case OP_LOG_AND:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_bool() && b->get_bool());	Value *value=NEW VBool(pool(), a->as_bool() && b->as_bool());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_LOG_OR:	case OP_LOG_OR:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_bool() \|\| b->get_bool());	Value *value=NEW VBool(pool(), a->as_bool() \|\| b->as_bool());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_LOG_XOR:	case OP_LOG_XOR:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_bool() ^ b->get_bool());	Value *value=NEW VBool(pool(), a->as_bool() ^ b->as_bool());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_NUM_LT:	case OP_NUM_LT:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_double() < b->get_double());	Value *value=NEW VBool(pool(), a->as_double() < b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_NUM_GT:	case OP_NUM_GT:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_double() > b->get_double());	Value *value=NEW VBool(pool(), a->as_double() > b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_NUM_LE:	case OP_NUM_LE:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_double() <= b->get_double());	Value *value=NEW VBool(pool(), a->as_double() <= b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_NUM_GE:	case OP_NUM_GE:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_double() >= b->get_double());	Value *value=NEW VBool(pool(), a->as_double() >= b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_NUM_EQ:	case OP_NUM_EQ:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_double() == b->get_double());	Value *value=NEW VBool(pool(), a->as_double() == b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
case OP_NUM_NE:	case OP_NUM_NE:
{	{
Value b=POP(); Value a=POP();	Value b=POP(); Value a=POP();
Value *value=NEW VBool(pool(), a->get_double() != b->get_double());	Value *value=NEW VBool(pool(), a->as_double() != b->as_double());
PUSH(value);	PUSH(value);
break;	break;
}	}
Line 599 void Request::execute(const Array& ops)	Line 649 void Request::execute(const Array& ops)
0,	0,
"unhandled '%s' opcode", opcode_name[op.code]);	"unhandled '%s' opcode", opcode_name[op.code]);
}	}
log_printf("\n");
}	}
}	}

Line 618 Value *Request::get_element() {	Line 667 Value *Request::get_element() {
return value;	return value;
}	}

	/**
	intercept_string:
	- true:
	they want result=string value,
	possible object result goes to wcontext
	- false:
	they want any result[string\|object]
	nothing goes to wcontext.
	used in @c (expression) params evaluation
	*/
Value& Request::process(Value& value, const String *name, bool intercept_string) {	Value& Request::process(Value& value, const String *name, bool intercept_string) {
// intercept_string:
// true:
// they want result=string value,
// possible object result goes to wcontext
// false:
// they want any result[string\|object]
// nothing goes to wcontext.
// used in (expression) params evaluation

Value *result;	Value *result;
Junction *junction=value.get_junction();	Junction *junction=value.get_junction();
if(junction && junction->code) { // is it a code-junction?	if(junction && junction->code) { // is it a code-junction?
// process it	// process it
log_printf("ja->\n");	log_printf(pool(), "ja->\n");
PUSH(self);	PUSH(self);
PUSH(root);	PUSH(root);
PUSH(rcontext);	PUSH(rcontext);
PUSH(wcontext);	PUSH(wcontext);

WContext *frame;	WContext *frame;
if(intercept_string) {	// for expression method params
	// wcontext is set 0
	// using the fact in decision "which wwrapper to use"
	bool using_code_frame=intercept_string && junction->wcontext;
	if(using_code_frame) {
// almost plain wwrapper about junction wcontext,	// almost plain wwrapper about junction wcontext,
// BUT intercepts string writes	// BUT intercepts string writes
frame=NEW VCodeFrame(pool(), *junction->wcontext);	frame=NEW VCodeFrame(pool(), *junction->wcontext);
Line 653 Value& Request::process(Value& value, co	Line 707 Value& Request::process(Value& value, co
root=junction->root;	root=junction->root;
rcontext=junction->rcontext;	rcontext=junction->rcontext;
execute(*junction->code);	execute(*junction->code);
if(intercept_string) {	if(using_code_frame) {
// CodeFrame soul:	// CodeFrame soul:
// string writes were intercepted	// string writes were intercepted
// returning them as the result of getting code-junction	// returning them as the result of getting code-junction
Line 666 Value& Request::process(Value& value, co	Line 720 Value& Request::process(Value& value, co
root=POP();	root=POP();
self=static_cast<VAliased *>(POP());	self=static_cast<VAliased *>(POP());

log_printf("<-ja returned");	log_printf(pool(), "<-ja returned");
} else	} else
result=&value;	result=&value;

Line 675 Value& Request::process(Value& value, co	Line 729 Value& Request::process(Value& value, co
return *result;	return *result;
}	}

char *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(self);
PUSH(root);	PUSH(root);
PUSH(rcontext);	PUSH(rcontext);
Line 689 char *Request::execute_method(Value& ase	Line 743 char *Request::execute_method(Value& ase
execute(*method.parser_code);	execute(*method.parser_code);

// result	// result
char *result;	const String *result;
if(return_cstr)	if(return_cstr)
result=wcontext->get_string()->cstr(); // chars	result=&wcontext->as_string();
else	else
result=0; // ignore result	result=0; // ignore result

Line 704 char *Request::execute_method(Value& ase	Line 758 char *Request::execute_method(Value& ase
return result;	return result;
}	}

char *Request::execute_method(Value& aself,	const String *Request::execute_method(Value& aself,
const String& method_name, bool return_cstr) {	const String& method_name, bool return_cstr) {
if(Value *value=aself.get_element(method_name))	if(Value *value=aself.get_element(method_name))
if(Junction *junction=value->get_junction())	if(Junction *junction=value->get_junction())

E-mail:

Removed from v.1.108
changed lines
	Added in v.1.136