Annotation of parser3/src/types/pa_vobject.h, revision 1.26
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.26 ! paf 11: static const char* IDENT_VOBJECT_H="$Date: 2002/08/12 14:21:52 $";
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.26 ! paf 22: /** parser class instance, stores
! 23: - class VObject::fclass;
! 24: - fields VObject::ffields (dynamic, not static, which are stored in class).
! 25: - links to base/derived instances [VObject::fbase, VObject::fderived]
1.6 paf 26: */
1.24 paf 27: class VObject: public VStateless_object {
1.1 paf 28: public: // Value
29:
1.24 paf 30: const char *type() const { return fclass.name_cstr(); }
31: Value *as(const char *atype) { return fclass.as(atype); }
1.12 parser 32:
1.25 paf 33: /// VObject: fclass
34: VStateless_class *get_class() { return &fclass; }
35: /// VObject: fbase
36: /*override*/ Value *base_object() { return fbase; }
1.26 ! paf 37: /// VObject: true, todo: z base table can be 33
1.12 parser 38: Value *as_expr_result(bool) { return NEW VBool(pool(), as_bool()); }
1.26 ! paf 39: /// VObject: true, todo: z base table can be false
1.12 parser 40: bool as_bool() const { return true; }
1.1 paf 41:
1.26 ! paf 42: /// VObject: (field)=value;(CLASS)=vclass;(method)=method_ref
! 43: Value *get_element(const String& aname, Value *aself) {
! 44: // gets element from last_derivate upwards
! 45: if(aself) {
! 46: // $CLASS
! 47: if(aname==CLASS_NAME)
! 48: return get_class();
! 49:
! 50: // for first call, pass call to last derived VObject
! 51: return get_last_derived()->get_element(aname, 0/*mark this call as 'not first'*/);
! 52: }
! 53:
! 54: // $method, $CLASS_field
! 55: {
! 56: Temp_base temp_base(*get_class(), 0);
! 57: if(Value *result=VStateless_object::get_element(aname, this))
1.25 paf 58: return result;
59: }
60:
1.9 paf 61: // $field=ffields.field
1.26 ! paf 62: if(Value *result=static_cast<Value *>(ffields.get(aname)))
1.9 paf 63: return result;
64:
1.26 ! paf 65: // up the tree...
! 66: if(fbase)
! 67: if(Value *result=fbase->get_element(aname, fbase))
! 68: return result;
! 69:
! 70: return 0;
1.1 paf 71: }
72:
1.26 ! paf 73: /// VObject: (field)=value
! 74: bool put_element(const String& aname, Value *avalue, bool replace) {
! 75: // replaces element to last_derivate upwards or stores it in self
1.1 paf 76: // speed1:
77: // will not check for '$CLASS(subst)' trick
78: // will hope that user ain't THAT self-hating person
79: // speed2:
80: // will not check for '$method_name(subst)' trick
81: // -same-
82:
1.26 ! paf 83: // downwards: same as upwards
! 84:
! 85: if(fderived && fderived->put_element(aname, avalue, true))
! 86: return true; // replaced in derived
! 87:
! 88: // upwards: copied from VClass::put_element...
! 89:
! 90: if(fbase && fbase->put_element(aname, avalue, true))
! 91: return true; // replaced in base
! 92:
! 93: if(replace)
! 94: return ffields.put_replace(aname, avalue);
! 95: else {
! 96: ffields.put(aname, avalue);
! 97: return false;
! 98: }
1.1 paf 99: }
100:
1.24 paf 101: /// VObject: remember derived [the only client] */
1.26 ! paf 102: /*override*/ VObject *set_derived(VObject *aderived) {
! 103: VObject *result=fderived;
1.25 paf 104: fderived=aderived;
105: return fderived;
1.24 paf 106: }
107:
1.1 paf 108: public: // creation
109:
1.24 paf 110: VObject(Pool& apool, VStateless_class& aclass) : VStateless_object(apool),
111: fclass(aclass),
112: ffields(apool),
113: fderived(0),
1.25 paf 114: fbase(fclass.base_class()?fclass.base_class()->create_new_value(apool):0) {
1.24 paf 115: if(fbase)
1.25 paf 116: fbase->set_derived(this);
1.1 paf 117: }
118:
119: private:
120:
1.26 ! paf 121: Value *get_last_derived() {
! 122: return fderived?fderived->get_last_derived():this;
! 123: }
! 124:
! 125: private:
! 126:
1.24 paf 127: VStateless_class& fclass;
1.1 paf 128: Hash ffields;
1.26 ! paf 129: VObject *fderived;
1.24 paf 130: Value *fbase;
1.25 paf 131: };
132:
133: class Temp_derived {
134: Value& fvalue;
1.26 ! paf 135: VObject *fsaved_derived;
1.25 paf 136: public:
1.26 ! paf 137: Temp_derived(Value& avalue, VObject *aderived) :
1.25 paf 138: fvalue(avalue),
139: fsaved_derived(avalue.set_derived(aderived)) {}
140: ~Temp_derived() { fvalue.set_derived(fsaved_derived); }
1.1 paf 141: };
142:
143: #endif
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pa_vobject.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / types