Return to double.C CVS log

Up to [parser3project] / parser3 / src / classes

Annotation of parser3/src/classes/double.C, revision 1.77

1.20      paf         1: /** @file
                      2:        Parser: @b double parser class.
                      3: 
1.77    ! moko        4:        Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
1.75      moko        5:        Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
1.48      paf         6: */
1.20      paf         7: 
1.24      paf         8: #include "classes.h"
1.54      paf         9: #include "pa_vmethod_frame.h"
                     10: 
1.1       paf        11: #include "pa_request.h"
                     12: #include "pa_vdouble.h"
                     13: #include "pa_vint.h"
1.60      misha      14: #include "pa_vbool.h"
1.1       paf        15: 
1.77    ! moko       16: volatile const char * IDENT_DOUBLE_C="$Id: double.C,v 1.76 2023/11/16 23:54:54 moko Exp $" IDENT_PA_VDOUBLE_H;
1.64      moko       17: 
1.22      paf        18: // externs
1.1       paf        19: 
1.54      paf        20: void _string_format(Request& r, MethodParams&);
1.22      paf        21: 
                     22: // class
                     23: 
1.54      paf        24: class MDouble: public Methoded {
1.22      paf        25: public:
1.54      paf        26:        MDouble();
1.22      paf        27: };
1.1       paf        28: 
1.54      paf        29: // global variable
                     30: 
1.69      moko       31: DECLARE_CLASS_VAR(double, new MDouble);
1.54      paf        32: 
1.1       paf        33: // methods
                     34: 
1.67      moko       35: static void _int(Request& r, MethodParams&) {
1.54      paf        36:        VDouble& vdouble=GET_SELF(r, VDouble);
1.72      moko       37:        r.write(*new VInt(vdouble.as_int()));
1.1       paf        38: }
                     39: 
1.67      moko       40: static void _double(Request& r, MethodParams&) {
1.54      paf        41:        VDouble& vdouble=GET_SELF(r, VDouble);
1.72      moko       42:        r.write(*new VDouble(vdouble.as_double()));
1.1       paf        43: }
                     44: 
1.67      moko       45: static void _bool(Request& r, MethodParams&) {
1.60      misha      46:        VDouble& vdouble=GET_SELF(r, VDouble);
1.72      moko       47:        r.write(VBool::get(vdouble.as_bool()));
1.60      misha      48: }
                     49: 
1.14      paf        50: typedef void (*vdouble_op_func_ptr)(VDouble& vdouble, double param);
                     51: 
                     52: static void __inc(VDouble& vdouble, double param) { vdouble.inc(param); }
                     53: static void __dec(VDouble& vdouble, double param) { vdouble.inc(-param); }
                     54: static void __mul(VDouble& vdouble, double param) { vdouble.mul(param); }
                     55: static void __div(VDouble& vdouble, double param) { vdouble.div(param); }
1.76      moko       56: static void __mod(VDouble& vdouble, double param) { vdouble.mod(param); }
1.14      paf        57: 
1.71      moko       58: static void vdouble_op(Request& r, MethodParams& params, vdouble_op_func_ptr func) {
1.54      paf        59:        VDouble& vdouble=GET_SELF(r, VDouble);
1.71      moko       60:        double param=params.count() ? params.as_double(0, "param must be double", r) : 1/*used in inc/dec*/;
1.54      paf        61:        (*func)(vdouble, param);
1.1       paf        62: }
                     63: 
1.54      paf        64: static void _inc(Request& r, MethodParams& params) { vdouble_op(r, params, &__inc); }
                     65: static void _dec(Request& r, MethodParams& params) { vdouble_op(r, params, &__dec); }
                     66: static void _mul(Request& r, MethodParams& params) { vdouble_op(r, params, &__mul); }
                     67: static void _div(Request& r, MethodParams& params) { vdouble_op(r, params, &__div); }
                     68: static void _mod(Request& r, MethodParams& params) { vdouble_op(r, params, &__mod); }
1.16      paf        69: 
1.29      parser     70: // from string.C
1.65      moko       71: extern const String* sql_result_string(Request& r, MethodParams& params, Value*& default_code);
1.29      parser     72: 
1.54      paf        73: static void _sql(Request& r, MethodParams& params) {
1.35      parser     74:        double val;
1.54      paf        75:        Value* default_code;
1.65      moko       76:        if(const String* string=sql_result_string(r, params, default_code))
1.35      parser     77:                val=string->as_double();
                     78:        else
1.39      parser     79:                if(default_code)
1.70      moko       80:                        val=r.process(*default_code).as_double();
1.39      parser     81:                else {
1.71      moko       82:                        throw Exception(PARSER_RUNTIME, 0, "produced no result, but no default option specified");
1.35      parser     83:                }
1.72      moko       84:        r.write(*new VDouble(val));
1.29      parser     85: }
                     86: 
1.22      paf        87: // constructor
                     88: 
1.54      paf        89: MDouble::MDouble(): Methoded("double") {
1.9       paf        90:        // ^double.int[]
1.66      moko       91:        // ^double.int[default for ^string.int compatibility]
1.45      paf        92:        add_native_method("int", Method::CT_DYNAMIC, _int, 0, 1);
1.9       paf        93:        // ^double.double[]
1.66      moko       94:        // ^double.double[default for ^string.double compatibility]
1.45      paf        95:        add_native_method("double", Method::CT_DYNAMIC, _double, 0, 1);
1.60      misha      96:        // ^double.bool[]
1.66      moko       97:        // ^double.bool[default for ^string.bool compatibility]
1.60      misha      98:        add_native_method("bool", Method::CT_DYNAMIC, _bool, 0, 1);
1.9       paf        99:        
1.14      paf       100:        // ^double.inc[] 
1.9       paf       101:        // ^double.inc[offset]
1.22      paf       102:        add_native_method("inc", Method::CT_DYNAMIC, _inc, 0, 1);
1.14      paf       103:        // ^double.dec[] 
                    104:        // ^double.dec[offset]
1.22      paf       105:        add_native_method("dec", Method::CT_DYNAMIC, _dec, 0, 1);
1.14      paf       106:        // ^double.mul[k] 
1.22      paf       107:        add_native_method("mul", Method::CT_DYNAMIC, _mul, 1, 1);
1.14      paf       108:        // ^double.div[d]
1.22      paf       109:        add_native_method("div", Method::CT_DYNAMIC, _div, 1, 1);
1.14      paf       110:        // ^double.mod[offset]
1.22      paf       111:        add_native_method("mod", Method::CT_DYNAMIC, _mod, 1, 1);
1.12      paf       112: 
1.20      paf       113:        // ^double.format{format}
1.22      paf       114:        add_native_method("format", Method::CT_DYNAMIC, _string_format, 1, 1);
1.29      parser    115:        
1.36      parser    116:        // ^sql[query]
                    117:        // ^sql[query][$.limit(1) $.offset(2) $.default(0.0)]
1.34      parser    118:        add_native_method("sql", Method::CT_STATIC, _sql, 1, 2);
1.1       paf       119: }