Annotation of parser3/src/types/pa_vclass.C, revision 1.33
1.7 paf 1: /** @file
2: Parser: @b class parser class impl.
1.1 paf 3:
1.33 ! paf 4: Copyright (c) 2001-2005 ArtLebedev Group (http://www.artlebedev.com)
1.7 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1 paf 6: */
7:
1.33 ! paf 8: static const char * const IDENT_VCLASS_C="$Date: 2005/08/08 08:41:51 $";
1.7 paf 9:
1.1 paf 10: #include "pa_vclass.h"
11:
1.24 paf 12: Property& VClass::add_property(const String& aname) {
13: String prop_name=aname.mid(4, aname.length());
14:
15: Property* result;
16: if(Value* value=ffields.get(prop_name)) {
17: result=value->get_property();
18: if(!result) // can occur in ^process
19: throw Exception("parser.compile",
20: &prop_name,
21: "property can not be created, already exists field (%s) with that name", value->get_class()->name_cstr());
22: } else {
23: VProperty* vproperty=new VProperty();
24: ffields.put(prop_name, vproperty);
25: result=&vproperty->get();
26: }
27: return *result;
28: }
29:
1.22 paf 30: /// preparing property accessors to fields
1.24 paf 31: void VClass::add_method(const String& aname, Method& amethod)
1.22 paf 32: {
1.28 paf 33: if(aname.starts_with("GET_"))
1.24 paf 34: add_property(aname).getter=&amethod;
1.28 paf 35: else if(aname.starts_with("SET_") )
1.24 paf 36: add_property(aname).setter=&amethod;
1.25 paf 37:
38: // NOT under 'else' for backward compatiblilty:
39: // if someone used get_xxx names to name regular methods
1.24 paf 40: // still register method:
41: VStateless_class::add_method(aname, amethod);
1.22 paf 42: }
43:
1.17 paf 44: Value* VClass::as(const char* atype, bool looking_up) {
45: if(Value* result=Value::as(atype, looking_up))
1.12 paf 46: return result;
1.11 paf 47: else
1.12 paf 48: return fbase?fbase->as(atype, looking_up):0;
1.11 paf 49: }
50:
1.22 paf 51: /// VClass: $CLASS, (field/property)=STATIC value;(method)=method_ref with self=object_class
1.28 paf 52: Value* VClass::get_element(const String& aname, Value& aself, bool alooking_up) {
1.30 paf 53: bool property_but_no_getter_in_self=false;
54:
1.22 paf 55: // simple things first: $field=static field/property
56: if(Value* result=ffields.get(aname)) {
1.25 paf 57: if(Property* prop=result->get_property()) { // it is property?
1.30 paf 58: if(Method* method=prop->getter)
1.32 paf 59: return new VJunction(aself, method, true /*is_getter*/);
1.21 paf 60:
1.30 paf 61: property_but_no_getter_in_self=true;
62: goto try_to_find_getter_up_the_tree;
1.22 paf 63: }
1.21 paf 64: return result;
65: }
66:
1.30 paf 67: try_to_find_getter_up_the_tree:
1.14 paf 68: // $CLASS, $method, or other base element
1.28 paf 69: if(Value* result=VStateless_class::get_element(aname, aself, alooking_up))
1.22 paf 70: return result; // TODO: this can be SIGNIFICANTLY sped up by caching in ffields! [THOUGH decide about different aself] // what REALLY would speed up things is to join storage of properties/methods/fields of all vobject parents into last descenant [sort of vmt + all fields as in other langs]
1.30 paf 71:
72: if(property_but_no_getter_in_self)
73: throw Exception("parser.runtime",
1.31 paf 74: 0,
75: "this property has no getter method (@GET_%s[])", aname.cstr());
1.7 paf 76:
77: return 0;
78: }
79:
1.32 paf 80: #define PROPERTY_BUT_NO_SETTER_IN_SELF reinterpret_cast<const VJunction*>(2)
81: const VJunction* VClass::prevent_overwrite_property(Value* value, Prevent_info* info) {
1.25 paf 82: if(Property* property=value->get_property()) {
1.28 paf 83: if(Method* setter=property->setter)
1.32 paf 84: return new VJunction(*info->self, setter);
1.29 paf 85:
86: return PROPERTY_BUT_NO_SETTER_IN_SELF;
1.25 paf 87: }
88:
89: return 0;
90: }
1.32 paf 91: const VJunction* VClass::prevent_append_if_exists_in_base(Value* value, Prevent_info* info) {
1.28 paf 92: if(VStateless_class* cbase=info->_this->fbase) {
1.29 paf 93: if(Value* obase=info->self->base()) // MXdoc has fbase but does not have object_base[ base() ]
1.32 paf 94: if(const VJunction* result=cbase->put_element(*obase, *info->name, value, true/*try to replace! NEVER overwrite*/))
1.29 paf 95: return result; // replaced in base
1.28 paf 96: }
1.25 paf 97:
1.28 paf 98: return 0;
99: }
1.25 paf 100: /// VClass: (field/property)=value - static values only
1.32 paf 101: const VJunction* VClass::put_element(Value& aself, const String& aname, Value* avalue, bool areplace) {
1.28 paf 102: Prevent_info info={this, &aself, &aname};
1.29 paf 103: if(areplace) {
104: bool property_but_no_setter_in_self=false;
105: // trying to replace it in fields/properties
1.32 paf 106: if(const VJunction* result=ffields.maybe_replace_never_append<const VJunction*>(aname, avalue,
1.28 paf 107: prevent_overwrite_property,
1.29 paf 108: &info))
109: if(result==PROPERTY_BUT_NO_SETTER_IN_SELF)
110: property_but_no_setter_in_self=true; // continue to find setter up the tree
111: else
112: return result; // replaced locally
113:
114: // if not found locally, going up the tree
115: if(fbase)
116: if(Value* obase=aself.base()) // MXdoc has fbase but does not have object_base[ base() ]
1.32 paf 117: if(const VJunction* result=fbase->put_element(*obase, aname, avalue, true/*try to replace! NEVER overwrite*/))
1.29 paf 118: return result; // replaced in base
119:
120: if(property_but_no_setter_in_self)
121: throw Exception("parser.runtime",
122: 0,
1.31 paf 123: "this property has no setter method (@SET_%s[value])", aname.cstr());
1.29 paf 124:
125: return 0;
126: } else // append if not existed neither in fields nor in base classes
1.32 paf 127: return ffields.maybe_replace_maybe_append<const VJunction*>(aname, avalue,
1.28 paf 128: prevent_overwrite_property,
129: prevent_append_if_exists_in_base,
130: &info);
1.7 paf 131: }
132:
133: /// @returns object of this class
1.28 paf 134: Value* VClass::create_new_value(Pool& apool, HashStringValue& afields) {
135: return new VObject(apool, *this, afields);
1.1 paf 136: }
E-mail:
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pa_vclass.C CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / types