Return to int.C CVS log

Up to [parser3project] / parser3 / src / classes

Annotation of parser3/src/classes/int.C, revision 1.72

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