--- parser3/src/classes/int.C 2001/04/28 15:22:38 1.22 +++ parser3/src/classes/int.C 2003/02/04 14:12:42 1.49.2.3 @@ -1,48 +1,54 @@ /** @file Parser: @b int parser class. - Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com) - - Author: Alexander Petrosyan (http://design.ru/paf) - - $Id: int.C,v 1.22 2001/04/28 15:22:38 paf Exp $ + Copyright (c) 2001-2003 ArtLebedev Group (http://www.artlebedev.com) + Author: Alexandr Petrosian (http://paf.design.ru) */ +static const char* IDENT_INT_C="$Date: 2003/02/04 14:12:42 $"; + #include "classes.h" +#include "pa_vmethod_frame.h" + #include "pa_request.h" #include "pa_vdouble.h" #include "pa_vint.h" // externs -void _string_format(Request& r, const String& method_name, MethodParams *); - -// defines - -#define INT_CLASS_NAME "int" +void _string_format(Request& r, StringPtr method_name, MethodParams& /*params*/); // class class MInt : public Methoded { public: - MInt(Pool& pool); - bool used_directly() { return false; } + MInt(); +public: // Methoded + bool used_directly() { return true; } }; +// global variable + +MethodedPtr int_class(new MInt); + // methods -static void _int(Request& r, const String&, MethodParams *) { - Pool& pool=r.pool(); - VInt *vint=static_cast(r.self); - Value& value=*new(pool) VInt(pool, vint->get_int()); - r.write_no_lang(value); +static void _int(Request& r, StringPtr method_name, MethodParams& params) { + // just checking (default) syntax validity, never really using it here, just for string.int compatibility + if(params.count()>0) + params.as_junction(0, "default must be int"); + + VInt& vint=*static_cast(r.get_self().get()); + r.write_no_lang(ValuePtr(new VInt(vint.get_int()))); } -static void _double(Request& r, const String&, MethodParams *) { - Pool& pool=r.pool(); - VInt *vint=static_cast(r.self); - Value& value=*new(pool) VDouble(pool, vint->as_double()); - r.write_no_lang(value); +static void _double(Request& r, StringPtr method_name, MethodParams& params) { + // just checking (default) syntax validity, never really using it here, just for string.doube compatibility + if(params.count()>0) + params.as_junction(0, "default must be double"); + + VInt& vint=*static_cast(r.get_self().get()); + r.write_no_lang(ValuePtr(new VDouble(vint.as_double()))); } typedef void (*vint_op_func_ptr)(VInt& vint, double param); @@ -53,34 +59,50 @@ static void __mul(VInt& vint, double par static void __div(VInt& vint, double param) { vint.div(param); } static void __mod(VInt& vint, double param) { vint.mod((int)param); } -static void vint_op(Request& r, MethodParams *params, +static void vint_op(Request& r, MethodParams& params, vint_op_func_ptr func) { - VInt *vint=static_cast(r.self); - double param=params->size()? - r.process( - params->get(0), - 0/*no name*/, - false/*don't intercept string*/).as_double():1; - (*func)(*vint, param); + VInt& vint=*static_cast(r.get_self().get()); + double param=params.count()?params.as_double(0, "param must be numerical", r):1; + (*func)(vint, param); } -static void _inc(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__inc); } -static void _dec(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__dec); } -static void _mul(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__mul); } -static void _div(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__div); } -static void _mod(Request& r, const String&, MethodParams *params) { vint_op(r, params, &__mod); } +static void _inc(Request& r, StringPtr /*method_name*/, MethodParams& params) { vint_op(r, params, &__inc); } +static void _dec(Request& r, StringPtr /*method_name*/, MethodParams& params) { vint_op(r, params, &__dec); } +static void _mul(Request& r, StringPtr /*method_name*/, MethodParams& params) { vint_op(r, params, &__mul); } +static void _div(Request& r, StringPtr /*method_name*/, MethodParams& params) { vint_op(r, params, &__div); } +static void _mod(Request& r, StringPtr /*method_name*/, MethodParams& params) { vint_op(r, params, &__mod); } + +// from string.C +extern +StringPtr sql_result_string(Request& r, StringPtr method_name, MethodParams& params, + HashStringValuePtr& options, ValuePtr& default_code); + +static void _sql(Request& r, StringPtr method_name, MethodParams& params) { + int val; + HashStringValuePtr options(0); + ValuePtr default_code(0); + if(StringPtr string=sql_result_string(r, method_name, params, options, default_code)) + val=string->as_int(); + else + if(default_code) + val=r.process_to_value(default_code)->as_int(); + else { + throw Exception("parser.runtime", + method_name, + "produced no result, but no default option specified"); + val=0; //calm, compiler + } + r.write_no_lang(ValuePtr(new VInt(val))); +} // constructor -MInt::MInt(Pool& apool) : Methoded(apool) { - set_name(*NEW String(pool(), INT_CLASS_NAME)); - - +MInt::MInt(): Methoded("int") { // ^int.int[] - add_native_method("int", Method::CT_DYNAMIC, _int, 0, 0); + add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1); // ^int.double[] - add_native_method("double", Method::CT_DYNAMIC, _double, 0, 0); + add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1); // ^int.inc[] // ^int.inc[offset] @@ -98,13 +120,8 @@ MInt::MInt(Pool& apool) : Methoded(apool // ^int.format{format} add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1); -} -// global variable - -Methoded *int_class; - -// creator -Methoded *MInt_create(Pool& pool) { - return int_class=new(pool) MInt(pool); + // ^sql[query] + // ^sql[query][$.limit(1) $.offset(2) $.default(0)] + add_native_method("sql", Method::CT_STATIC, _sql, 1, 2); }