Return to pa_vstring.h CVS log

Up to [parser3project] / parser3 / src / types

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

1.23      paf         1: /**    @file
                      2:        Parser: @b string parser class decl.
1.13      paf         3: 
1.54      paf         4:        Copyright (c) 2001, 2003 ArtLebedev Group (http://www.artlebedev.com)
1.41      paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1       paf         6: */
                      7: 
                      8: #ifndef PA_VSTRING_H
                      9: #define PA_VSTRING_H
1.47      paf        10: 
1.54.2.1! paf        11: static const char* IDENT_VSTRING_H="$Date: 2003/01/21 15:51:21 $";
1.1       paf        12: 
                     13: #include <stdlib.h>
                     14: 
1.4       paf        15: #include "pa_vstateless_object.h"
1.1       paf        16: #include "pa_vdouble.h"
1.24      paf        17: 
                     18: extern Methoded *string_class;
1.1       paf        19: 
1.13      paf        20: /// value of type 'string'. implemented with @c String
1.44      paf        21: class VString : public VStateless_object {
1.1       paf        22: public: // Value
                     23: 
1.54.2.1! paf        24:        override const char *type() const { return "string"; }
        !            25:        override VStateless_class *get_class() { return string_class; }
1.31      parser     26:        /// VString: eq ''=false, ne ''=true
1.54.2.1! paf        27:        override bool is_defined() const { return !fstring->is_empty(); }
1.32      parser     28:        /// VString: 0 or !0
1.54.2.1! paf        29:        override bool as_bool() const { return as_double()!=0; }
1.16      paf        30:        /// VString: true
1.54.2.1! paf        31:        override bool is_string() const { return true; }
1.14      paf        32:        /// VString: fstring as VDouble or this depending on return_string_as_is
1.54.2.1! paf        33:        override ValuePtr as_expr_result(bool return_string_as_is=false) { 
1.14      paf        34:                if(return_string_as_is)
                     35:                        return this;
                     36:                else
1.54.2.1! paf        37:                        return ValuePtr(new VDouble(as_double())); 
1.14      paf        38:        }
1.13      paf        39:        /// VString: fstring
1.54.2.1! paf        40:        override ConstStringPtr get_string(Pool&) { return fstring; };
1.13      paf        41:        /// VString: fstring
1.54.2.1! paf        42:        override double as_double() const { return fstring->as_double(); }
1.26      parser     43:        /// VString: fstring
1.54.2.1! paf        44:        override int as_int() const { return fstring->as_int(); }
1.20      paf        45: 
                     46:        /// VString: vfile
1.54.2.1! paf        47:        override VFilePtr as_vfile(String::Untaint_lang lang=String::UL_UNSPECIFIED,
1.29      parser     48:                bool origins_mode=false);
1.9       paf        49: 
1.21      paf        50:        /// VString: $method
1.54.2.1! paf        51:        override ValuePtr get_element(ConstStringPtr aname, Value& aself, bool looking_up) {
1.21      paf        52:                // $method
1.54.2.1! paf        53:                if(ValuePtr result=VStateless_object::get_element(aname, aself, looking_up))
1.9       paf        54:                        return result;
                     55: 
                     56:                // bad $string.field
1.36      parser     57:                bark("(%s) does not have fields",
1.54.2.1! paf        58:                        "%s method not found", aname);  
        !            59:                return ValuePtrZero;
1.9       paf        60:        }
1.1       paf        61: 
                     62: public: // usage
                     63: 
1.44      paf        64: /*     VString(Pool& apool) : VStateless_object(apool), 
1.38      paf        65:                fstring(new(apool) String(apool)) {
1.1       paf        66:        }
1.43      paf        67: */
1.54.2.1! paf        68:        VString(ConstStringPtr avalue): fstring(avalue) {}
1.1       paf        69: 
1.54.2.1! paf        70:        ConstStringPtr string() const { return fstring; }
        !            71:        void set_string(ConstStringPtr astring) { fstring=astring; }
1.1       paf        72: 
                     73: private:
1.54.2.1! paf        74:        ConstStringPtr fstring;
1.1       paf        75: 
                     76: };
1.54.2.1! paf        77: 
        !            78: typedef object_ptr<VString> VStringPtr;
1.1       paf        79: 
                     80: #endif