--- parser3/src/classes/void.C	2001/08/09 06:48:45	1.7
+++ parser3/src/classes/void.C	2001/10/08 16:42:06	1.11
@@ -2,10 +2,10 @@
 	Parser: @b VOID parser class.
 
 	Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
-
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
+
+	$Id: void.C,v 1.11 2001/10/08 16:42:06 parser Exp $
 */
-static const char *RCSId="$Id: void.C,v 1.7 2001/08/09 06:48:45 parser Exp $"; 
 
 #include "classes.h"
 #include "pa_request.h"
@@ -29,16 +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();
 	VVoid *vvoid=static_cast<VVoid *>(r.self);
-	r.write_no_lang(*new(pool) VInt(pool, vvoid->as_int()));
+	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 *) {
+static void _double(Request& r, const String&, MethodParams *params) {
 	Pool& pool=r.pool();
 	VVoid *vvoid=static_cast<VVoid *>(r.self);
-	r.write_no_lang(*new(pool) VDouble(pool, vvoid->as_double()));
+	r.write_no_lang(*new(pool) VDouble(pool, 
+		params->size()==0?vvoid->as_double():params->as_double(0, "default must be double", r)));
 }
 
 #ifndef DOXYGEN
@@ -99,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);