--- parser3/src/classes/double.C 2001/03/10 12:12:49 1.3 +++ parser3/src/classes/double.C 2001/03/11 08:44:39 1.7 @@ -1,5 +1,9 @@ /* -$Id: double.C,v 1.3 2001/03/10 12:12:49 paf Exp $ + Parser + Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) + Author: Alexander Petrosyan (http://design.ru/paf) + + $Id: double.C,v 1.7 2001/03/11 08:44:39 paf Exp $ */ #include "pa_request.h" @@ -29,45 +33,17 @@ static void _double(Request& r, Array *) static void _inc(Request& r, Array *params) { VDouble *vdouble=static_cast(r.self); - double increment=params->size()?static_cast(params->get(0))->get_double():1; + double increment=params->size()? + r.autocalc( + *static_cast(params->get(0)), + 0/*no name*/, + false/*don't make it string*/).get_double():1; vdouble->inc(increment); } void initialize_double_class(Pool& pool, VClass& vclass) { - // ^double.int[] - String& INT_NAME=*new(pool) String(pool); - INT_NAME.APPEND_CONST("int"); - - Method& INT_METHOD=*new(pool) Method(pool, - INT_NAME, - 0, 0, // min,max numbered_params_count - 0/*params_names*/, 0/*locals_names*/, - 0/*parser_code*/, _int - ); - vclass.add_method(INT_NAME, INT_METHOD); - - // ^double.double[] - String& DOUBLE_NAME=*new(pool) String(pool); - DOUBLE_NAME.APPEND_CONST("double"); - - Method& DOUBLE_METHOD=*new(pool) Method(pool, - DOUBLE_NAME, - 0, 0, // min,max numbered_params_count - 0/*params_names*/, 0/*locals_names*/, - 0/*parser_code*/, _double - ); - vclass.add_method(DOUBLE_NAME, DOUBLE_METHOD); - - // ^double.inc[] ^double.inc[offset] - String& INC_NAME=*new(pool) String(pool); - INC_NAME.APPEND_CONST("inc"); - - Method& INC_METHOD=*new(pool) Method(pool, - INC_NAME, - 0, 1, // min,max numbered_params_count - 0/*params_names*/, 0/*locals_names*/, - 0/*parser_code*/, _inc - ); - vclass.add_method(INC_NAME, INC_METHOD); + 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] }