--- parser3/src/classes/void.C	2001/07/23 11:19:25	1.5
+++ parser3/src/classes/void.C	2001/09/06 14:55:06	1.9
@@ -5,7 +5,7 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 */
-static const char *RCSId="$Id: void.C,v 1.5 2001/07/23 11:19:25 parser Exp $"; 
+static const char *RCSId="$Id: void.C,v 1.9 2001/09/06 14:55:06 parser Exp $"; 
 
 #include "classes.h"
 #include "pa_request.h"
@@ -29,18 +29,18 @@ public: // Methoded
 
 // methods
 
-static void _int(Request& r, const String&, MethodParams *) {
+static void _int(Request& r, const String&, MethodParams *params) {
 	Pool& pool=r.pool();
-	VInt *vunknown=static_cast<VInt *>(r.self);
-	Value& value=*new(pool) VInt(pool, vunknown->as_int());
-	r.write_no_lang(value);
+	VVoid *vvoid=static_cast<VVoid *>(r.self);
+	r.write_no_lang(*new(pool) VInt(pool, 
+		params->size()==0?vvoid->as_int():params->as_int(0, r)/*default*/));
 }
 
-static void _double(Request& r, const String&, MethodParams *) {
+static void _double(Request& r, const String&, MethodParams *params) {
 	Pool& pool=r.pool();
-	VInt *vunknown=static_cast<VInt *>(r.self);
-	Value& value=*new(pool) VDouble(pool, vunknown->as_double());
-	r.write_no_lang(value);
+	VVoid *vvoid=static_cast<VVoid *>(r.self);
+	r.write_no_lang(*new(pool) VDouble(pool, 
+		params->size()==0?vvoid->as_double():params->as_double(0, r)/*default*/));
 }
 
 #ifndef DOXYGEN
@@ -101,11 +101,13 @@ MVoid::MVoid(Pool& apool) : Methoded(apo
 	set_name(*NEW String(pool(), VOID_CLASS_NAME));
 
 
-	// ^VOID.int[]
-	add_native_method("int", Method::CT_DYNAMIC, _int, 0, 0);
-
-	// ^VOID.double[]
-	add_native_method("double", Method::CT_DYNAMIC, _double, 0, 0);
+	// ^void.int[] 
+	// ^void.int(default)
+	add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);
+
+	// ^void.double[] 
+	// ^void.double(default)
+	add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1);
 
 	// ^sql[query]
 	add_native_method("sql", Method::CT_STATIC, _sql, 1, 1);