Return to pa_vobject.h CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_vobject.h, revision 1.25

1.6       paf         1: /**    @file
1.7       paf         2:        Parser: @b object class decl.
                      3: 
1.15      paf         4:        Copyright (c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
1.16      paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1       paf         6: */
                      7: 
                      8: #ifndef PA_VOBJECT_H
                      9: #define PA_VOBJECT_H
                     10: 
1.25    ! paf        11: static const char* IDENT_VOBJECT_H="$Date: 2002/08/12 11:22:55 $";
1.19      paf        12: 
1.1       paf        13: #include "pa_vjunction.h"
                     14: #include "pa_vclass.h"
1.4       paf        15: #include "pa_vstateless_object.h"
1.6       paf        16: 
1.23      paf        17: // defines
                     18: 
                     19: #define CLASS_NAME "CLASS"
                     20: #define BASE_NAME "BASE"
                     21: 
1.6       paf        22: /**    parser class instance,
1.24      paf        23:        stores class VObject::fclass;
1.6       paf        24:        stores fields VObject::ffields (dynamic, not static, which are stored in class).
                     25: */
1.24      paf        26: class VObject: public VStateless_object {
1.1       paf        27: public: // Value
                     28:        
1.24      paf        29:        const char *type() const { return fclass.name_cstr(); }
                     30:        Value *as(const char *atype) { return fclass.as(atype); }
1.12      parser     31: 
1.25    ! paf        32:        /// VObject: fclass
        !            33:        VStateless_class *get_class() { return &fclass; }
        !            34:        /// VObject: fbase
        !            35:        /*override*/ Value *base_object() { return fbase; }
1.12      parser     36:        /// VObject : true
                     37:        Value *as_expr_result(bool) { return NEW VBool(pool(), as_bool()); }
                     38:        /// VObject : true
                     39:        bool as_bool() const { return true; }
1.1       paf        40: 
1.25    ! paf        41:        /// VObject: child or self or parent method junction
        !            42:        /*override*/ Junction *get_junction(const String& name, bool looking_down) {
        !            43:                if(fderived) {
        !            44:                        if(Junction *result=fderived->get_junction(name, true))
        !            45:                                return result;
        !            46:                }
        !            47:                if(Method *method=static_cast<Method *>(get_class()->get_method(name)))
        !            48:                        return new(name.pool()) Junction(name.pool(), *this, get_class(), method, 0,0,0,0);
        !            49:                if(!looking_down && fbase)
        !            50:                        return fbase->get_junction(name, false);
        !            51:                return 0; 
        !            52:        }
        !            53: 
1.6       paf        54:        /// VObject : (field)=value;(CLASS)=vclass;(method)=method_ref
1.1       paf        55:        Value *get_element(const String& name) {
1.9       paf        56:                // $field=ffields.field
                     57:                if(Value *result=static_cast<Value *>(ffields.get(name)))
                     58:                        return result;
                     59: 
1.23      paf        60:                // $CLASS
                     61:                if(name==CLASS_NAME)
1.25    ! paf        62:                        return get_class();
1.23      paf        63: 
1.24      paf        64:                // $method of last child or upper
1.25    ! paf        65:                return 
        !            66:                        VStateless_object::get_element(name);
1.1       paf        67:        }
                     68: 
1.6       paf        69:        /// VObject : (field)=value
1.1       paf        70:        void put_element(const String& name, Value *value) {
                     71:                // speed1:
                     72:                //   will not check for '$CLASS(subst)' trick
                     73:                //   will hope that user ain't THAT self-hating person
                     74:                // speed2:
                     75:                //   will not check for '$method_name(subst)' trick
                     76:                //   -same-
                     77: 
                     78:                ffields.put(name, value);
                     79:        }
                     80: 
1.24      paf        81:        /// VObject: remember derived [the only client] */
1.25    ! paf        82:        /*override*/ Value *set_derived(Value *aderived) { 
        !            83:                Value *result=fderived;
        !            84:                fderived=aderived;
        !            85:                return fderived;
1.24      paf        86:        }
                     87: 
1.1       paf        88: public: // creation
                     89: 
1.24      paf        90:        VObject(Pool& apool, VStateless_class& aclass) : VStateless_object(apool), 
                     91:                fclass(aclass),
                     92:                ffields(apool),
                     93:                fderived(0),
1.25    ! paf        94:                fbase(fclass.base_class()?fclass.base_class()->create_new_value(apool):0) {
1.24      paf        95:                if(fbase)
1.25    ! paf        96:                        fbase->set_derived(this);
1.1       paf        97:        }
                     98: 
                     99: private:
                    100: 
1.24      paf       101:        VStateless_class& fclass;
1.1       paf       102:        Hash ffields;
1.24      paf       103:        Value *fderived;
                    104:        Value *fbase;
1.25    ! paf       105: };
        !           106: 
        !           107: class Temp_derived {
        !           108:        Value& fvalue;
        !           109:        Value *fsaved_derived;
        !           110: public:
        !           111:        Temp_derived(Value& avalue, Value *aderived) : 
        !           112:                fvalue(avalue),
        !           113:                fsaved_derived(avalue.set_derived(aderived)) {}
        !           114:        ~Temp_derived() { fvalue.set_derived(fsaved_derived); }
1.1       paf       115: };
                    116: 
                    117: #endif