Annotation of parser3/src/types/pa_vobject.h, revision 1.19
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.19 ! paf 11: static const char* IDENT_VOBJECT_H="$Id: zzz $";
! 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:
17: /** parser class instance,
1.18 paf 18: stores class VObject::fclass_real;
1.6 paf 19: stores fields VObject::ffields (dynamic, not static, which are stored in class).
20: */
1.4 paf 21: class VObject : public VStateless_object {
1.1 paf 22: public: // Value
23:
24: const char *type() const { return "object"; }
1.12 parser 25:
1.18 paf 26: /// VObject: fclass_real
27: VStateless_class *get_class() { return &fclass_real; }
1.12 parser 28: /// VObject : true
29: Value *as_expr_result(bool) { return NEW VBool(pool(), as_bool()); }
30: /// VObject : true
31: bool as_bool() const { return true; }
1.1 paf 32:
1.6 paf 33: /// VObject : (field)=value;(CLASS)=vclass;(method)=method_ref
1.1 paf 34: Value *get_element(const String& name) {
1.9 paf 35: // $field=ffields.field
36: if(Value *result=static_cast<Value *>(ffields.get(name)))
37: return result;
38:
1.10 parser 39: // $CLASS,$method
1.9 paf 40: return VStateless_object::get_element(name);
1.1 paf 41: }
42:
1.6 paf 43: /// VObject : (field)=value
1.1 paf 44: void put_element(const String& name, Value *value) {
45: // speed1:
46: // will not check for '$CLASS(subst)' trick
47: // will hope that user ain't THAT self-hating person
48: // speed2:
49: // will not check for '$method_name(subst)' trick
50: // -same-
51:
52: ffields.put(name, value);
53: }
54:
55: public: // creation
56:
1.18 paf 57: VObject(Pool& apool, VStateless_class& aclass_real) : VStateless_object(apool),
58: fclass_real(aclass_real),
1.1 paf 59: ffields(apool) {
60: }
61:
62: private:
63:
1.18 paf 64: VStateless_class& fclass_real;
1.1 paf 65: Hash ffields;
66: };
67:
68: #endif
E-mail: