--- parser3/src/classes/void.C	2002/08/20 08:19:00	1.23
+++ parser3/src/classes/void.C	2002/09/18 08:52:49	1.25
@@ -5,7 +5,7 @@
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_VOID_C="$Date: 2002/08/20 08:19:00 $";
+static const char* IDENT_VOID_C="$Date: 2002/09/18 08:52:49 $";
 
 #include "classes.h"
 #include "pa_request.h"
@@ -27,19 +27,28 @@ public: // Methoded
 
 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)));
 }
@@ -87,6 +96,9 @@ MVoid::MVoid(Pool& apool) : Methoded(apo
 	// ^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)
 	add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);