Annotation of parser3/src/types/pa_vclass.C, revision 1.61
1.7 paf 1: /** @file
2: Parser: @b class parser class impl.
1.1 paf 3:
1.61 ! moko 4: Copyright (c) 2001-2020 Art. Lebedev Studio (http://www.artlebedev.com)
1.7 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
1.1 paf 6: */
7:
1.45 moko 8: #include "pa_vclass.h"
1.48 moko 9: #include "pa_vobject.h"
1.7 paf 10:
1.61 ! moko 11: volatile const char * IDENT_PA_VCLASS_C="$Id: pa_vclass.C,v 1.60 2020/10/27 10:10:09 moko Exp $" IDENT_PA_VCLASS_H;
1.55 moko 12:
13: #ifdef OBJECT_PROTOTYPE
14: bool VClass::prototype = true;
15: #endif
1.1 paf 16:
1.39 misha 17: Property& VClass::get_property(const String& aname) {
1.40 misha 18: Property* result=ffields.get(aname);
19: if (result) {
1.39 misha 20: if (!result->getter && !result->setter) {
1.59 moko 21: // replacing field with property
22: result=new Property();
23: } else {
24: // cloning existing property to avoid ancestor modification
25: result=new Property(*result);
1.39 misha 26: }
1.24 paf 27: } else {
1.59 moko 28: // creating new property
1.39 misha 29: result=new Property();
1.24 paf 30: }
1.40 misha 31: ffields.put(aname, result);
1.24 paf 32: return *result;
33: }
34:
1.41 misha 35: void VClass::real_set_method(const String& aname, Method* amethod) {
1.35 misha 36: if(aname.starts_with("GET_")){
1.36 misha 37: if(aname=="GET_DEFAULT")
1.40 misha 38: set_default_getter(amethod);
1.35 misha 39: else
1.40 misha 40: get_property(aname.mid(4, aname.length())).getter=amethod;
1.36 misha 41: } else if(aname.starts_with("SET_")){
1.44 moko 42: if(aname=="SET_DEFAULT")
43: set_default_setter(amethod);
44: else
45: get_property(aname.mid(4, aname.length())).setter=amethod;
1.36 misha 46: } else if(aname=="GET"){
1.40 misha 47: set_scalar(amethod);
1.36 misha 48: }
49:
1.41 misha 50: // NOT under 'else' for backward compatiblilty:
1.25 paf 51: // if someone used get_xxx names to name regular methods
1.24 paf 52: // still register method:
1.41 misha 53: VStateless_class::real_set_method(aname, amethod);
1.39 misha 54: }
55:
56: void VClass::set_base(VStateless_class* abase){
57: VStateless_class::set_base(abase);
1.51 moko 58: if(abase) {
1.42 misha 59: if(HashStringProperty *props=abase->get_properties())
1.39 misha 60: ffields.merge_dont_replace(*props);
1.51 moko 61: else
1.42 misha 62: throw Exception("parser.compile",
63: 0,
1.54 moko 64: "Class %s base class (%s) is not user-defined", type(), abase->type());
1.51 moko 65: }
1.39 misha 66: }
67:
68: Value* VClass::as(const char* atype) {
69: Value* result=Value::as(atype);
70: return result!=0 ? result : fbase ? fbase->as(atype) : 0;
1.11 paf 71: }
72:
1.22 paf 73: /// VClass: $CLASS, (field/property)=STATIC value;(method)=method_ref with self=object_class
1.39 misha 74: Value* VClass::get_element(Value& aself, const String& aname) {
1.22 paf 75: // simple things first: $field=static field/property
1.43 misha 76: if(Property* prop=ffields.get(aname)) {
77: if(prop->getter)
1.39 misha 78: return new VJunction(aself, prop->getter, true /*is_getter*/);
1.35 misha 79:
1.46 moko 80: if(prop->setter){
81: if(Value *result=get_default_getter(aself, aname))
82: return result;
83: throw Exception(PARSER_RUNTIME, 0, "this property has no getter method (@GET_%s[])", aname.cstr());
84: }
1.39 misha 85:
86: // just field, can be 0 as we don't remove
87: return prop->value;
1.21 paf 88: }
89:
1.14 paf 90: // $CLASS, $method, or other base element
1.43 misha 91: if(Value* result=VStateless_class::get_element(aself, aname))
1.39 misha 92: return result;
1.7 paf 93:
1.35 misha 94: // no field or method found: looking for default getter
1.44 moko 95: return get_default_getter(aself, aname);
1.7 paf 96: }
97:
1.43 misha 98: static void add_field(
99: HashStringProperty::key_type key,
100: HashStringProperty::value_type prop,
101: HashStringValue* result
102: ){
103: if(prop->value)
104: result->put(key, prop->value);
105: }
106:
1.47 misha 107: HashStringValue* VClass::get_hash() {
1.43 misha 108: HashStringValue* result=new HashStringValue();
109: ffields.for_each(add_field, result);
110: return result;
111: }
112:
1.25 paf 113: /// VClass: (field/property)=value - static values only
1.48 moko 114: const VJunction* VClass::put_element(Value& aself, const String& aname, Value* avalue) {
1.40 misha 115: if(Property* prop=ffields.get(aname)) {
1.39 misha 116: if (prop->setter)
117: return new VJunction(aself, prop->setter);
1.29 paf 118:
1.46 moko 119: if(prop->getter){
120: if(VJunction *result=get_default_setter(aself, aname))
121: return result;
1.58 moko 122: #ifdef CLASS_GETTER_UNPROTECTED
123: prop->getter=0;
124: #else
1.46 moko 125: throw Exception(PARSER_RUNTIME, 0, "this property has no setter method (@SET_%s[value])", aname.cstr());
1.58 moko 126: #endif
1.46 moko 127: }
1.39 misha 128:
129: // just field, value can be 0 and unlike usual we don't remove it
130: prop->value=avalue;
131: } else {
1.49 moko 132: if(VJunction *result=get_default_setter(aself, aname))
133: return result;
134:
1.40 misha 135: prop=new Property();
136: prop->value=avalue;
137: ffields.put(aname, prop);
138:
139: Array_iterator<VStateless_class *> i(fderived);
140: while(i.has_next()) {
141: HashStringProperty *props=i.next()->get_properties();
142: if(props)
143: props->put_dont_replace(aname, prop);
144: }
1.39 misha 145: }
1.49 moko 146: return 0;
1.7 paf 147: }
148:
1.48 moko 149: /// part of put_element
150: const VJunction* VClass::put_element_replace_only(Value& aself, const String& aname, Value* avalue) {
151: if(Property* prop=ffields.get(aname)) {
152: if (prop->setter)
153: return new VJunction(aself, prop->setter);
1.55 moko 154: #ifdef OBJECT_PROTOTYPE
155: if(!prototype)
156: #endif
157: {
1.57 moko 158: if(prop->getter){
159: if(VJunction *result=get_default_setter(aself, aname))
160: return result;
161: throw Exception(PARSER_RUNTIME, 0, "this property has no setter method (@SET_%s[value])", aname.cstr());
162: }
1.55 moko 163: // just field, value can be 0 and unlike usual we don't remove it
164: prop->value=avalue;
1.60 moko 165: return PUT_ELEMENT_REPLACED_FIELD;
1.55 moko 166: }
1.48 moko 167: }
168: return 0;
169: }
170:
1.7 paf 171: /// @returns object of this class
1.39 misha 172: Value* VClass::create_new_value(Pool&) {
173: return new VObject(*this);
1.1 paf 174: }
1.50 misha 175:
176: const String* VClass::get_json_string(Json_options& options){
177: if(options.default_method){
178: return default_method_2_json_string(*options.default_method, options);
179: }
1.52 moko 180: return options.hash_json_string(get_hash());
1.50 misha 181: }
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