--- parser3/src/classes/Attic/root.C	2001/03/21 14:06:42	1.47
+++ parser3/src/classes/Attic/root.C	2001/03/28 09:01:20	1.52
@@ -3,10 +3,10 @@
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: root.C,v 1.47 2001/03/21 14:06:42 paf Exp $
+	$Id: root.C,v 1.52 2001/03/28 09:01:20 paf Exp $
 */
 
-#include <string.h>
+#include "pa_config_includes.h"
 #include <math.h>
 
 #include "pa_common.h"
@@ -22,16 +22,16 @@ static void _if(Request& r, const String
 
 	bool condition=r.process(condition_code, 
 		0/*no name*/,
-		false/*don't intercept string*/).get_bool();
+		false/*don't intercept string*/).as_bool();
 	if(condition) {
 		Value& then_code=*static_cast<Value *>(params->get(1));
-		// forcing ^if(this param type)
+		// forcing ^if{this param type}
 		r.fail_if_junction_(false, then_code, 
 			method_name, "then-parameter must be junction");
 		r.write_pass_lang(r.process(then_code));
 	} else if(params->size()==3) {
 		Value& else_code=*static_cast<Value *>(params->get(2));
-		// forcing ^if(this param type)
+		// forcing ^if{this param type}
 		r.fail_if_junction_(false, else_code, 
 			method_name, "else-parameter must be junction");
 		r.write_pass_lang(r.process(else_code));
@@ -99,7 +99,9 @@ static void _process(Request& r, const S
 	VStateless_class& self_class=*r.self->get_class();
 	{
 		// temporary zero @main so to maybe-replace it in processed code
-		Temp_method temp_method(self_class, *main_method_name, 0);
+		Temp_method temp_method_main(self_class, *main_method_name, 0);
+		// temporary zero @auto so it wouldn't be auto-called in Request::use_buf
+		Temp_method temp_method_auto(self_class, *auto_method_name, 0);
 		
 		// evaluate source to process
 		const String& source=
@@ -146,7 +148,7 @@ static void _while(Request& r, const Str
 			r.process(
 				vcondition, 
 				0/*no name*/,
-				false/*don't intercept string*/).get_bool();
+				false/*don't intercept string*/).as_bool();
 		if(!condition) // ...condition is true
 			break;
 
@@ -161,8 +163,7 @@ static void _use(Request& r, const Strin
 	r.fail_if_junction_(true, vfile, 
 		method_name, "file name must not be junction");
 
-	char *file=vfile.as_string().cstr();
-	r.use_file(r.absolute(file));
+	r.use_file(r.absolute(vfile.as_string()));
 }
 
 static void _for(Request& r, const String& method_name, Array *params) {
@@ -170,8 +171,8 @@ static void _for(Request& r, const Strin
 
 	Pool& pool=r.pool();
 	const String& var_name=r.process(*static_cast<Value *>(params->get(0))).as_string();
-	int from=(int)r.process(*static_cast<Value *>(params->get(1))).get_double();
-	int to=(int)r.process(*static_cast<Value *>(params->get(2))).get_double();
+	int from=(int)r.process(*static_cast<Value *>(params->get(1))).as_double();
+	int to=(int)r.process(*static_cast<Value *>(params->get(2))).as_double();
 	Value& body_code=*static_cast<Value *>(params->get(3));
 	// forcing ^menu{this param type}
 	r.fail_if_junction_(false, body_code, 
@@ -207,7 +208,7 @@ static void _eval(Request& r, const Stri
 	// evaluate expresion
 	Value *result=r.process(expr, 
 		0/*no name*/,
-		true/*don't intercept string*/).get_expr_result();
+		true/*don't intercept string*/).as_expr_result();
 	if(params->size()==2) {
 		Value& fmt=*static_cast<Value *>(params->get(1));
 		// forcing ^format[this param type]
@@ -216,7 +217,7 @@ static void _eval(Request& r, const Stri
 
 		Pool& pool=r.pool();
 		String& string=*new(pool) String(pool);
-		string.APPEND_CONST(format(pool, result->get_double(), fmt.as_string().cstr()));
+		string.APPEND_CONST(format(pool, result->as_double(), fmt.as_string().cstr()));
 		result=new(pool) VString(string);
 	}
 	r.write_no_lang(*result);
@@ -238,7 +239,7 @@ static void double_one_op(
 	r.fail_if_junction_(false, param, 
 		method_name, "parameter must be expression");
 
-	Value& result=*new(pool) VDouble(pool, (*func)(r.process(param).get_double()));
+	Value& result=*new(pool) VDouble(pool, (*func)(r.process(param).as_double()));
 	r.write_no_lang(result);
 }