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