Return to pa_vdouble.h CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_vdouble.h, revision 1.78

1.11      paf         1: /** @file
1.16      paf         2:        Parser: @b double parser class decl.
1.11      paf         3: 
1.77      moko        4:        Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
1.72      moko        5:        Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
1.1       paf         6: */
                      7: 
                      8: #ifndef PA_VDOUBLE_H
                      9: #define PA_VDOUBLE_H
1.38      paf        10: 
1.78    ! moko       11: #define IDENT_PA_VDOUBLE_H "$Id: pa_vdouble.h,v 1.77 2024/11/04 03:53:25 moko Exp $"
1.43      paf        12: 
                     13: // includes
1.1       paf        14: 
1.19      paf        15: #include "classes.h"
1.9       paf        16: #include "pa_common.h"
1.5       paf        17: #include "pa_vstateless_object.h"
1.17      paf        18: 
1.53      misha      19: // defines
1.63      moko       20: 
1.53      misha      21: #define VDOUBLE_TYPE "double"
                     22: 
1.63      moko       23: // double validation defines
                     24: 
1.67      moko       25: #ifdef _MSC_VER
1.63      moko       26: #include <float.h>
                     27: #define pa_isnan(d) _isnan(d)
                     28: #define pa_finite(d) _finite(d)
                     29: #else
                     30: #define pa_isnan(d) isnan(d)
1.70      moko       31: #ifdef HAVE_ISFINITE
1.68      moko       32: #define pa_finite(d) isfinite(d)
1.69      moko       33: #else
                     34: #define pa_finite(d) finite(d)
                     35: #endif
1.63      moko       36: #endif
                     37: 
1.43      paf        38: // externs
                     39: 
                     40: extern Methoded* double_class;
1.1       paf        41: 
1.11      paf        42: /// value of type 'double'. implemented with @c double
1.75      moko       43: class VDouble: public VSimple_stateless_object {
1.1       paf        44: public: // Value
                     45: 
1.53      misha      46:        override const char* type() const { return VDOUBLE_TYPE; }
1.43      paf        47:        override VStateless_class *get_class() { return double_class; }
1.37      paf        48: 
1.48      paf        49:        /// VDouble: true
1.50      paf        50:        override bool is_evaluated_expr() const { return true; }
1.24      parser     51:        /// VDouble: clone
1.57      moko       52:        override Value& as_expr_result() { return *new VDouble(fdouble); }
1.1       paf        53: 
1.64      moko       54:        /// VDouble: fdouble
1.43      paf        55:        override const String* get_string() {
1.35      paf        56:                char local_buf[MAX_NUMBER];
1.60      moko       57:                size_t length=snprintf(local_buf, MAX_NUMBER, "%.15g", fdouble);
1.61      moko       58:                return new String(pa_strdup(local_buf, length));
1.1       paf        59:        }
1.11      paf        60:        /// VDouble: fdouble
1.43      paf        61:        override double as_double() const { return fdouble; }
1.21      parser     62:        /// VDouble: fdouble
1.78    ! moko       63:        override int as_int() const { return clip2int(trunc(fdouble)); }
        !            64:        /// VDouble: fdouble
        !            65:        override pa_wint as_wint() const { return clip2wint(trunc(fdouble)); }
1.11      paf        66:        /// VDouble: 0 or !0
1.43      paf        67:        override bool as_bool() const { return fdouble!=0; }
1.73      moko       68:        /// VDouble: json-string
1.59      moko       69:        override const String* get_json_string(Json_options&) { return get_string(); }
1.1       paf        70: 
                     71: public: // usage
                     72: 
1.65      moko       73:        VDouble(double adouble): fdouble(adouble == 0 ? 0 : adouble) {
1.63      moko       74:                if(!pa_finite(adouble))
                     75:                        throw Exception("number.format", 0, pa_isnan(adouble) ? "invalid number (double)" : "out of range (double)");
                     76:        }
1.1       paf        77: 
1.47      paf        78:        double get_double() const { return fdouble; }
                     79: 
1.1       paf        80:        void inc(double increment) { fdouble+=increment; }
1.58      moko       81:        
1.7       paf        82:        void mul(double k) { fdouble*=k; }
1.58      moko       83:        
                     84:        void div(double d) {
                     85:                if(d == 0)
                     86:                        throw Exception("number.zerodivision", 0, "Division by zero");
                     87:                fdouble/=d; 
                     88:        }
                     89:        
1.76      moko       90:        void mod(double d) {
1.58      moko       91:                if(d == 0)
                     92:                        throw Exception("number.zerodivision", 0, "Modulus by zero");
1.76      moko       93:                fdouble=fmod(fdouble, d);
1.58      moko       94:        }
1.47      paf        95: 
                     96: private:
                     97: 
1.1       paf        98:        double fdouble;
                     99: 
                    100: };
                    101: 
                    102: #endif