Annotation of parser3/src/types/pa_vobject.h, revision 1.27
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.27 ! paf 11: static const char* IDENT_VOBJECT_H="$Date: 2002/08/13 13:02:42 $";
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
1.27 ! paf 74: /*override*/ bool put_element(const String& aname, Value *avalue, bool replace) {
1.26 paf 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:
1.27 ! paf 90: try {
! 91: if(fbase && fbase->put_element(aname, avalue, true))
! 92: return true; // replaced in base
! 93: } catch(Exception) { /* ignore "can not store to table&co errors */ }
1.26 paf 94:
95: if(replace)
96: return ffields.put_replace(aname, avalue);
97: else {
98: ffields.put(aname, avalue);
99: return false;
100: }
1.1 paf 101: }
102:
1.24 paf 103: /// VObject: remember derived [the only client] */
1.26 paf 104: /*override*/ VObject *set_derived(VObject *aderived) {
105: VObject *result=fderived;
1.25 paf 106: fderived=aderived;
107: return fderived;
1.24 paf 108: }
109:
1.1 paf 110: public: // creation
111:
1.24 paf 112: VObject(Pool& apool, VStateless_class& aclass) : VStateless_object(apool),
113: fclass(aclass),
114: ffields(apool),
115: fderived(0),
1.25 paf 116: fbase(fclass.base_class()?fclass.base_class()->create_new_value(apool):0) {
1.24 paf 117: if(fbase)
1.25 paf 118: fbase->set_derived(this);
1.1 paf 119: }
120:
121: private:
122:
1.26 paf 123: Value *get_last_derived() {
124: return fderived?fderived->get_last_derived():this;
125: }
126:
127: private:
128:
1.24 paf 129: VStateless_class& fclass;
1.1 paf 130: Hash ffields;
1.26 paf 131: VObject *fderived;
1.24 paf 132: Value *fbase;
1.25 paf 133: };
134:
135: class Temp_derived {
136: Value& fvalue;
1.26 paf 137: VObject *fsaved_derived;
1.25 paf 138: public:
1.26 paf 139: Temp_derived(Value& avalue, VObject *aderived) :
1.25 paf 140: fvalue(avalue),
141: fsaved_derived(avalue.set_derived(aderived)) {}
142: ~Temp_derived() { fvalue.set_derived(fsaved_derived); }
1.1 paf 143: };
144:
145: #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