--- parser3/src/classes/op.C	2001/09/06 06:11:13	1.41
+++ parser3/src/classes/op.C	2001/10/09 07:06:00	1.48
@@ -2,10 +2,10 @@
 	Parser: parser @b operators.
 
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+
+	$Id: op.C,v 1.48 2001/10/09 07:06:00 parser Exp $
 */
-static const char *RCSId="$Id: op.C,v 1.41 2001/09/06 06:11:13 parser Exp $"; 
 
 #include "classes.h"
 #include "pa_config_includes.h"
@@ -39,7 +39,7 @@ private:
 // methods
 
 static void _if(Request& r, const String&, MethodParams *params) {
-	Value& condition_code=params->get(0);
+	Value& condition_code=params->as_junction(0, "condition must be expression");
 
 	bool condition=r.process(condition_code, 
 		0/*no name*/,
@@ -53,7 +53,7 @@ static void _if(Request& r, const String
 static void _untaint(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
 
-	const String& lang_name=r.process(params->get(0)).as_string();
+	const String& lang_name=params->as_string(0, "lang must be string");
 	String::Untaint_lang lang=static_cast<String::Untaint_lang>(
 		untaint_lang_name2enum->get_int(lang_name));
 	if(!lang)
@@ -76,8 +76,7 @@ static void _taint(Request& r, const Str
 	if(params->size()==1)
 		lang=String::UL_TAINTED; // mark as simply 'tainted'. useful in table:set
 	else {
-		const String& lang_name=
-			r.process(params->get(0)).as_string();
+		const String& lang_name=params->as_string(0, "lang must be string");
 		lang=static_cast<String::Untaint_lang>(
 			untaint_lang_name2enum->get_int(lang_name));
 		if(!lang)
@@ -119,7 +118,7 @@ static void _process(Request& r, const S
 		
 		// evaluate source to process
 		const String& source=
-			r.process(params->get(0)).as_string();
+			r.process(params->as_no_junction(0, "body must be string")).as_string();
 
 		// process source code, append processed methods to 'self' class
 		// maybe-define new @main
@@ -171,11 +170,11 @@ static void _use(Request& r, const Strin
 
 static void _for(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
-	const String& var_name=r.process(params->get(0)).as_string();
-	int from=r.process(params->get(1)).as_int();
-	int to=r.process(params->get(2)).as_int();
+	const String& var_name=params->as_string(0, "var name must be string");
+	int from=params->as_int(1, "from must be int", r);
+	int to=params->as_int(2, "to must be int", r);
 	Value& body_code=params->as_junction(3, "body must be code");
-	Value *delim_code=params->size()==3+1+1?&params->get(3+1):0;
+	Value *delim_code=params->size()==3+1+1?&params->as_junction(3+1, "delim must be code"):0;
 
 	bool need_delim=false;
 	VInt *vint=new(pool) VInt(pool, 0);
@@ -186,7 +185,7 @@ static void _for(Request& r, const Strin
 				&method_name,
 				"endless loop detected");
 		vint->set_int(i);
-		r.root->put_element(var_name, vint);
+		r.self/*root*/->put_element(var_name, vint);
 
 		Value& processed_body=r.process(body_code);
 		if(delim_code) { // delimiter set?
@@ -218,7 +217,7 @@ static void _eval(Request& r, const Stri
 }
 
 
-static void _connect(Request& r, const String&, MethodParams *params) {
+static void _connect(Request& r, const String& method_name, MethodParams *params) {
 	Pool& pool=r.pool();
 
 	Value& url=params->as_no_junction(0, "url must not be code");
@@ -229,7 +228,7 @@ static void _connect(Request& r, const S
 
 	// connect
 	SQL_Connection& connection=SQL_driver_manager->get_connection(
-		url.as_string(), protocol2driver_and_client);
+		url.as_string(), method_name, protocol2driver_and_client);
 
 	Exception rethrow_me;
 	// remember/set current connection
@@ -375,7 +374,6 @@ Methoded *MOP_create(Pool& pool) {
 	return new(pool) MOP(pool);
 }
 
-
 void MOP::configure_user(Request& r) {
 	Pool& pool=r.pool();