Return to pa_vstring.h CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_vstring.h, revision 1.15

1.1       paf         1: /*
1.13      paf         2:        Parser: string parser class decl.
                      3: 
1.1       paf         4:        Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
1.13      paf         5: 
1.2       paf         6:        Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
1.1       paf         7: 
1.15    ! paf         8:        $Id: pa_vstring.h,v 1.14 2001/03/27 15:37:54 paf Exp $
1.1       paf         9: */
                     10: 
                     11: #ifndef PA_VSTRING_H
                     12: #define PA_VSTRING_H
                     13: 
                     14: #include <stdlib.h>
                     15: 
1.4       paf        16: #include "pa_vstateless_object.h"
1.1       paf        17: #include "pa_vdouble.h"
                     18: #include "_string.h"
                     19: 
1.13      paf        20: /// value of type 'string'. implemented with @c String
1.4       paf        21: class VString : public VStateless_object {
1.1       paf        22: public: // Value
                     23: 
1.13      paf        24:        /// all: for error reporting after fail(), etc
1.1       paf        25:        const char *type() const { return "string"; }
1.14      paf        26:        /// VString: fstring as VDouble or this depending on return_string_as_is
                     27:        Value *get_expr_result(bool return_string_as_is=false) { 
                     28:                if(return_string_as_is)
                     29:                        return this;
                     30:                else
                     31:                        return NEW VDouble(pool(), get_double()); 
                     32:        }
1.13      paf        33:        /// VString: fstring
1.10      paf        34:        const String *get_string() { return &fstring; };
1.13      paf        35:        /// VString: fstring
1.6       paf        36:        double get_double() { 
                     37:                double result;
1.10      paf        38:                const char *cstr=fstring.cstr();
1.6       paf        39:                char *error_pos=0;
1.8       paf        40:                // 0xABC
                     41:                if(cstr[0]=='0' && (cstr[1]=='x' || cstr[1]=='X'))
1.11      paf        42:                        result=(double)(unsigned long)strtol(cstr, &error_pos, 0);
1.6       paf        43:                else
                     44:                        result=strtod(cstr, &error_pos);
                     45: 
1.8       paf        46:                if(error_pos&&*error_pos)
                     47:                        THROW(0, 0,
1.10      paf        48:                                &fstring,
1.8       paf        49:                                "invalid number");
                     50: 
                     51:                return result;
1.6       paf        52:        }
1.9       paf        53: 
1.13      paf        54:        /// VString: $CLASS,$BASE,$method
1.9       paf        55:        Value *get_element(const String& name) {
                     56:                // $CLASS,$BASE,$method
                     57:                if(Value *result=VStateless_object::get_element(name))
                     58:                        return result;
                     59: 
                     60:                // bad $string.field
                     61:                bark("(%s) does not have fields");  return 0;
                     62:        }
1.12      paf        63: 
                     64: protected: // VAliased
                     65: 
1.15    ! paf        66:        /// disable .CLASS element. @see VAliased::get_element
        !            67:        bool are_static_calls_disabled() { return true; }
1.1       paf        68: 
                     69: public: // usage
                     70: 
1.4       paf        71:        VString(Pool& apool) : VStateless_object(apool, *string_class), 
1.10      paf        72:                fstring(*new(apool) String(apool)) {
1.1       paf        73:        }
                     74: 
1.4       paf        75:        VString(const String& avalue) : VStateless_object(avalue.pool(), *string_class),
1.10      paf        76:                fstring(avalue) {
1.1       paf        77:        }
                     78: 
1.10      paf        79:        const String& string() { return fstring; }
1.1       paf        80: 
                     81: private:
1.10      paf        82:        const String& fstring;
1.1       paf        83: 
                     84: };
                     85: 
                     86: #endif