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.2

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