Annotation of parser3/src/types/pa_vclass.C, revision 1.29
1.7 paf 1: /** @file
2: Parser: @b class parser class impl.
1.1 paf 3:
1.20 paf 4: Copyright (c) 2001-2004 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.29 ! paf 8: static const char * const IDENT_VCLASS_C="$Date: 2005/07/28 11:23:02 $";
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.22 paf 53: // simple things first: $field=static field/property
54: if(Value* result=ffields.get(aname)) {
1.25 paf 55: if(Property* prop=result->get_property()) { // it is property?
1.22 paf 56: Method* method=prop->getter;
57: if(!method)
58: throw Exception("parser.runtime",
59: &aname,
1.28 paf 60: "this property has no getter method (GET_%s)", aname.cstr());
1.21 paf 61:
1.22 paf 62: return new VJunction(new Junction(aself, method, true /*is_getter*/));
63: }
1.21 paf 64: return result;
65: }
66:
1.14 paf 67: // $CLASS, $method, or other base element
1.28 paf 68: if(Value* result=VStateless_class::get_element(aname, aself, alooking_up))
1.22 paf 69: 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.7 paf 70:
71: return 0;
72: }
73:
1.29 ! paf 74: #define PROPERTY_BUT_NO_SETTER_IN_SELF reinterpret_cast<const Junction*>(2)
1.28 paf 75: const Junction* VClass::prevent_overwrite_property(Value* value, Prevent_info* info) {
1.25 paf 76: if(Property* property=value->get_property()) {
1.28 paf 77: if(Method* setter=property->setter)
78: return new Junction(*info->self, setter);
1.29 ! paf 79:
! 80: return PROPERTY_BUT_NO_SETTER_IN_SELF;
1.25 paf 81: }
82:
83: return 0;
84: }
1.28 paf 85: const Junction* VClass::prevent_append_if_exists_in_base(Value* value, Prevent_info* info) {
86: if(VStateless_class* cbase=info->_this->fbase) {
1.29 ! paf 87: if(Value* obase=info->self->base()) // MXdoc has fbase but does not have object_base[ base() ]
! 88: if(const Junction* result=cbase->put_element(*obase, *info->name, value, true/*try to replace! NEVER overwrite*/))
! 89: return result; // replaced in base
1.28 paf 90: }
1.25 paf 91:
1.28 paf 92: return 0;
93: }
1.25 paf 94: /// VClass: (field/property)=value - static values only
1.28 paf 95: const Junction* VClass::put_element(Value& aself, const String& aname, Value* avalue, bool areplace) {
96: Prevent_info info={this, &aself, &aname};
1.29 ! paf 97: if(areplace) {
! 98: bool property_but_no_setter_in_self=false;
! 99: // trying to replace it in fields/properties
! 100: if(const Junction* result=ffields.maybe_replace_never_append<const Junction*>(aname, avalue,
1.28 paf 101: prevent_overwrite_property,
1.29 ! paf 102: &info))
! 103: if(result==PROPERTY_BUT_NO_SETTER_IN_SELF)
! 104: property_but_no_setter_in_self=true; // continue to find setter up the tree
! 105: else
! 106: return result; // replaced locally
! 107:
! 108: // if not found locally, going up the tree
! 109: if(fbase)
! 110: if(Value* obase=aself.base()) // MXdoc has fbase but does not have object_base[ base() ]
! 111: if(const Junction* result=fbase->put_element(*obase, aname, avalue, true/*try to replace! NEVER overwrite*/))
! 112: return result; // replaced in base
! 113:
! 114: if(property_but_no_setter_in_self)
! 115: throw Exception("parser.runtime",
! 116: 0,
! 117: "this property has no setter method (is read-only)");
! 118:
! 119: return 0;
! 120: } else // append if not existed neither in fields nor in base classes
1.28 paf 121: return ffields.maybe_replace_maybe_append<const Junction*>(aname, avalue,
122: prevent_overwrite_property,
123: prevent_append_if_exists_in_base,
124: &info);
1.7 paf 125: }
126:
127: /// @returns object of this class
1.28 paf 128: Value* VClass::create_new_value(Pool& apool, HashStringValue& afields) {
129: return new VObject(apool, *this, afields);
1.1 paf 130: }
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