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

1.11      paf         1: /** @file
1.16      paf         2:        Parser: @b double parser class decl.
1.11      paf         3: 
1.54    ! misha       4:        Copyright (c) 2001-2009 ArtLebedev Group (http://www.artlebedev.com)
1.32      paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1       paf         6: */
                      7: 
                      8: #ifndef PA_VDOUBLE_H
                      9: #define PA_VDOUBLE_H
1.38      paf        10: 
1.54    ! misha      11: static const char * const IDENT_VDOUBLE_H="$Date: 2007/03/14 10:58:04 $";
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
                     20: #define VDOUBLE_TYPE "double"
                     21: 
1.43      paf        22: // externs
                     23: 
                     24: extern Methoded* double_class;
1.1       paf        25: 
1.11      paf        26: /// value of type 'double'. implemented with @c double
1.43      paf        27: class VDouble: public VStateless_object {
1.1       paf        28: public: // Value
                     29: 
1.53      misha      30:        override const char* type() const { return VDOUBLE_TYPE; }
1.43      paf        31:        override VStateless_class *get_class() { return double_class; }
1.37      paf        32: 
1.48      paf        33:        /// VDouble: true
1.50      paf        34:        override bool is_evaluated_expr() const { return true; }
1.24      parser     35:        /// VDouble: clone
1.43      paf        36:        override Value& as_expr_result(bool ) { return *new VDouble(fdouble); }
1.1       paf        37: 
1.30      paf        38:        /** VDouble: fdouble 
                     39:        */
1.43      paf        40:        override const String* get_string() {
1.35      paf        41:                char local_buf[MAX_NUMBER];
1.47      paf        42:                size_t length=snprintf(local_buf, MAX_NUMBER, has_frac()? "%g": "%.0f", fdouble);
1.54    ! misha      43:                return new String(strdup(local_buf, length));
1.1       paf        44:        }
1.11      paf        45:        /// VDouble: fdouble
1.43      paf        46:        override double as_double() const { return fdouble; }
1.21      parser     47:        /// VDouble: fdouble
1.47      paf        48:        override int as_int() const { return get_int(); }
1.11      paf        49:        /// VDouble: 0 or !0
1.43      paf        50:        override bool as_bool() const { return fdouble!=0; }
1.1       paf        51: 
                     52: public: // usage
                     53: 
1.43      paf        54:        VDouble(double adouble): fdouble(adouble) {}
1.1       paf        55: 
1.47      paf        56:        int get_int() const { return (int)trunc(fdouble); }
                     57:        double get_double() const { return fdouble; }
                     58: 
1.1       paf        59:        void inc(double increment) { fdouble+=increment; }
1.7       paf        60:        void mul(double k) { fdouble*=k; }
                     61:        void div(double d) { fdouble/=d; }
                     62:        void mod(int d) { fdouble=((int)fdouble)%d; }
1.47      paf        63: 
                     64: private:
                     65: 
                     66:        bool has_frac() {
1.52      misha      67:                return fabs(fdouble-trunc(fdouble))>1e-100;
1.47      paf        68:        }
1.1       paf        69: 
                     70: private:
                     71: 
                     72:        double fdouble;
                     73: 
                     74: };
                     75: 
                     76: #endif

E-mail: