Return to pa_vstring.h CVS log

Up to [parser3project] / parser3 / src / types

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

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