--- parser3/src/classes/double.C 2001/03/11 09:24:41 1.8 +++ parser3/src/classes/double.C 2001/03/12 21:17:59 1.11 @@ -3,7 +3,7 @@ Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) Author: Alexander Petrosyan (http://design.ru/paf) - $Id: double.C,v 1.8 2001/03/11 09:24:41 paf Exp $ + $Id: double.C,v 1.11 2001/03/12 21:17:59 paf Exp $ */ #include "pa_request.h" @@ -17,24 +17,24 @@ VClass *double_class; // methods -static void _int(Request& r, Array *) { +static void _int(Request& r, const String&, Array *) { Pool& pool=r.pool(); VDouble *vdouble=static_cast(r.self); - Value& value=*new(pool) VInt(pool, static_cast(vdouble->get_double())); + Value& value=*new(pool) VInt(pool, (int)vdouble->get_double()); r.wcontext->write(value, String::Untaint_lang::NO /*always object, not string*/); } -static void _double(Request& r, Array *) { +static void _double(Request& r, const String&, Array *) { Pool& pool=r.pool(); VDouble *vdouble=static_cast(r.self); Value& value=*new(pool) VDouble(pool, vdouble->get_double()); r.wcontext->write(value, String::Untaint_lang::NO /*always object, not string*/); } -static void _inc(Request& r, Array *params) { +static void _inc(Request& r, const String&, Array *params) { VDouble *vdouble=static_cast(r.self); double increment=params->size()? - r.autocalc( + r.process( *static_cast(params->get(0)), 0/*no name*/, false/*don't intercept string*/).get_double():1; @@ -42,8 +42,14 @@ static void _inc(Request& r, Array *para } void initialize_double_class(Pool& pool, VClass& vclass) { - vclass.add_native_method("int", _int, 0, 0); // ^double.int[] - vclass.add_native_method("double", _double, 0, 0); // ^double.double[] - vclass.add_native_method("inc", _inc, 0, 1); // ^double.inc[] ^double.inc[offset] + // ^double.int[] + vclass.add_native_method("int", _int, 0, 0); + + // ^double.double[] + vclass.add_native_method("double", _double, 0, 0); + + // ^double.inc[] + // ^double.inc[offset] + vclass.add_native_method("inc", _inc, 0, 1); }