Return to pa_vobject.h CVS log

Up to [parser3project] / parser3 / src / types

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

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.24    ! paf        11: static const char* IDENT_VOBJECT_H="$Date: 2002/08/12 10:32:53 $";
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.24    ! paf        32:        /// VObject: class of derived  or  fclass
        !            33:        VStateless_class *get_class() { return fderived?fderived->get_class():&fclass; }
1.12      parser     34:        /// VObject : true
                     35:        Value *as_expr_result(bool) { return NEW VBool(pool(), as_bool()); }
                     36:        /// VObject : true
                     37:        bool as_bool() const { return true; }
1.1       paf        38: 
1.6       paf        39:        /// VObject : (field)=value;(CLASS)=vclass;(method)=method_ref
1.1       paf        40:        Value *get_element(const String& name) {
1.9       paf        41:                // $field=ffields.field
                     42:                if(Value *result=static_cast<Value *>(ffields.get(name)))
                     43:                        return result;
                     44: 
1.23      paf        45:                // $CLASS
                     46:                if(name==CLASS_NAME)
1.24    ! paf        47:                        return &fclass;
1.23      paf        48: 
1.24    ! paf        49:                // $method of last child or upper
1.9       paf        50:                return VStateless_object::get_element(name);
1.1       paf        51:        }
                     52: 
1.6       paf        53:        /// VObject : (field)=value
1.1       paf        54:        void put_element(const String& name, Value *value) {
                     55:                // speed1:
                     56:                //   will not check for '$CLASS(subst)' trick
                     57:                //   will hope that user ain't THAT self-hating person
                     58:                // speed2:
                     59:                //   will not check for '$method_name(subst)' trick
                     60:                //   -same-
                     61: 
                     62:                ffields.put(name, value);
                     63:        }
                     64: 
1.24    ! paf        65:        /// VObject: remember derived [the only client] */
        !            66:        /*override*/ void set_derived(Value& aderived) { 
        !            67:                fderived=&aderived;
        !            68:        }
        !            69: 
1.1       paf        70: public: // creation
                     71: 
1.24    ! paf        72:        VObject(Pool& apool, VStateless_class& aclass) : VStateless_object(apool), 
        !            73:                fclass(aclass),
        !            74:                ffields(apool),
        !            75:                fderived(0),
        !            76:                fbase(fclass.base()?fclass.base()->create_new_value(apool):0) {
        !            77:                if(fbase)
        !            78:                        fbase->set_derived(*this);
1.1       paf        79:        }
                     80: 
                     81: private:
                     82: 
1.24    ! paf        83:        VStateless_class& fclass;
1.1       paf        84:        Hash ffields;
1.24    ! paf        85:        Value *fderived;
        !            86:        Value *fbase;
1.1       paf        87: };
                     88: 
                     89: #endif