--- parser3/src/classes/void.C	2002/02/08 07:27:41	1.15
+++ parser3/src/classes/void.C	2002/09/18 08:52:49	1.25
@@ -2,11 +2,11 @@
 	Parser: @b VOID parser class.
 
 	Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
-	Author: Alexander Petrosyan <paf@design.ru> (http://paf.design.ru)
-
-	$Id: void.C,v 1.15 2002/02/08 07:27:41 paf Exp $
+	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
+static const char* IDENT_VOID_C="$Date: 2002/09/18 08:52:49 $";
+
 #include "classes.h"
 #include "pa_request.h"
 #include "pa_vint.h"
@@ -14,10 +14,6 @@
 #include "pa_vvoid.h"
 #include "pa_sql_connection.h"
 
-// defines
-
-#define VOID_CLASS_NAME "void"
-
 // class
 
 class MVoid : public Methoded {
@@ -29,16 +25,30 @@ public: // Methoded
 
 // methods
 
+static void _length(Request& r, const String&, MethodParams *params) {
+	Pool& pool=r.pool();
+	// always zero
+	r.write_no_lang(*new(pool) VInt(pool, 0));
+}
+
+static void _pos(Request& r, const String& method_name, MethodParams *params) {
+	Pool& pool=r.pool();
+
+	Value& substr=params->as_no_junction(0, "substr must not be code");
+	// never found
+	r.write_assign_lang(*new(pool) VInt(pool, -1));
+}
+
 static void _int(Request& r, const String&, MethodParams *params) {
 	Pool& pool=r.pool();
-	VVoid *vvoid=static_cast<VVoid *>(r.self);
+	VVoid *vvoid=static_cast<VVoid *>(r.get_self());
 	r.write_no_lang(*new(pool) VInt(pool, 
 		params->size()==0?vvoid->as_int():params->as_int(0, "default must be int", r)));
 }
 
 static void _double(Request& r, const String&, MethodParams *params) {
 	Pool& pool=r.pool();
-	VVoid *vvoid=static_cast<VVoid *>(r.self);
+	VVoid *vvoid=static_cast<VVoid *>(r.get_self());
 	r.write_no_lang(*new(pool) VDouble(pool, 
 		params->size()==0?vvoid->as_double():params->as_double(0, "default must be double", r)));
 }
@@ -52,7 +62,7 @@ public:
 	void add_column(void *ptr, size_t size) { /* ignore */ }
 	void before_rows() {
 		// there are some result rows, which is wrong
-		throw Exception(0, 0,
+		throw Exception("parser.runtime",
 			&statement_string,
 			"must return nothing");
 	}
@@ -70,27 +80,24 @@ static void _sql(Request& r, const Strin
 	Value& statement=params->as_junction(0, "statement must be code");
 
 	Temp_lang temp_lang(r, String::UL_SQL);
-	const String& statement_string=r.process(statement).as_string();
+	const String& statement_string=r.process_to_string(statement);
 	const char *statement_cstr=
 		statement_string.cstr(String::UL_UNSPECIFIED, r.connection(&method_name));
 	Void_sql_event_handlers handlers(pool, statement_string);
-	try {
-		r.connection(&method_name)->query(
-			statement_cstr, 0, 0,
-			handlers);
-	} catch(const Exception& e) {
-		// more specific source [were url]
-		throw Exception(e.type(), e.code(),
-			&statement_string, 
-			"%s", e.comment());
-	}
+	r.connection(&method_name)->query(
+		statement_cstr, 0, 0,
+		handlers,
+		statement_string);
 }
 
 // constructor
 
-MVoid::MVoid(Pool& apool) : Methoded(apool) {
-	set_name(*NEW String(pool(), VOID_CLASS_NAME));
+MVoid::MVoid(Pool& apool) : Methoded(apool, "void") {
+	// ^void.length[] 
+	add_native_method("length", Method::CT_DYNAMIC, _length, 0, 0);
 
+	// ^void.pos[substr]
+	add_native_method("pos", Method::CT_DYNAMIC, _pos, 1, 1);
 
 	// ^void.int[] 
 	// ^void.int(default)