Annotation of parser3/src/types/pa_vstateless_class.C, revision 1.43
1.8 paf 1: /** @file
2: Parser: stateless class.
3:
1.35 misha 4: Copyright (c) 2001-2009 ArtLebedev Group (http://www.artlebedev.com)
1.13 paf 5: Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)\
1.14 paf 6: */
1.8 paf 7:
1.43 ! misha 8: static const char * const IDENT_VSTATELESS_CLASS_C="$Date: 2009-08-08 13:30:21 $";
1.2 paf 9:
10: #include "pa_vstateless_class.h"
1.29 misha 11: #include "pa_vstring.h"
1.30 misha 12: #include "pa_vbool.h"
13:
1.41 misha 14: /// globals
15: const String class_name(CLASS_NAME), class_nametext(CLASS_NAMETEXT);
16:
1.30 misha 17: override Value& VStateless_class::as_expr_result(bool /*return_string_as_is=false*/) {
1.35 misha 18: return VBool::get(as_bool());
1.30 misha 19: }
1.17 paf 20:
1.43 ! misha 21: /// @TODO why?! request must be different ptr from global [used in VStateless_class.set_method]
! 22: void VStateless_class::set_method(const String& aname, Method* amethod) {
1.20 paf 23: if(flocked)
1.31 misha 24: throw Exception(PARSER_RUNTIME,
1.42 misha 25: &aname,
1.17 paf 26: "can not add method to system class (maybe you have forgotten .CLASS in ^process[$caller.CLASS]{...}?)");
1.20 paf 27:
1.43 ! misha 28: if(fderived.count()) {
! 29: Method *omethod=fmethods.get(aname);
! 30: Array_iterator<VStateless_class *> i(fderived);
! 31: while(i.has_next()) {
! 32: VStateless_class *c=i.next();
! 33: if(c->fmethods.get(aname)==omethod)
! 34: c->set_method(aname, amethod);
! 35: }
! 36: }
! 37: fmethods.put(aname, amethod);
1.17 paf 38: }
1.2 paf 39:
40: void VStateless_class::add_native_method(
1.20 paf 41: const char* cstr_name,
1.7 paf 42: Method::Call_type call_type,
1.20 paf 43: NativeCodePtr native_code,
1.38 misha 44: int min_numbered_params_count,
1.40 misha 45: int max_numbered_params_count,
46: Method::Call_optimization
47: #ifdef OPTIMIZE_CALL
48: call_optimization
49: #endif
50: ) {
1.2 paf 51:
1.43 ! misha 52: Method* method=new Method(
1.7 paf 53: call_type,
1.2 paf 54: min_numbered_params_count, max_numbered_params_count,
55: 0/*params_names*/, 0/*locals_names*/,
1.40 misha 56: 0/*parser_code*/, native_code, false/*all_vars_local*/
57: #ifdef OPTIMIZE_RESULT
58: , Method::RO_USE_WCONTEXT
59: #endif
60: #ifdef OPTIMIZE_CALL
61: , call_optimization
62: #endif
63: );
1.39 misha 64:
1.43 ! misha 65: set_method(*new String(cstr_name), method);
1.16 paf 66: }
67:
1.30 misha 68: /// VStateless_class: $CLASS, $CLASS_NAME, $method
1.42 misha 69: Value* VStateless_class::get_element(Value& aself, const String& aname) {
1.16 paf 70: // $CLASS
1.41 misha 71: if(aname==class_name)
1.16 paf 72: return this;
1.36 misha 73:
1.29 misha 74: // $CLASS_NAME
1.41 misha 75: if(aname==class_nametext)
1.42 misha 76: return new VString(name());
1.36 misha 77:
1.16 paf 78: // $method=junction(self+class+method)
1.36 misha 79: if(Method* method=get_method(aname)){
80: if(!method->junction_template)
81: return method->junction_template=new VJunction(aself, method);
1.37 misha 82: return method->junction_template->get(aself);
1.36 misha 83: }
1.18 paf 84:
1.42 misha 85: return 0;
86: }
87:
88: Value* VStateless_class::get_scalar(Value& aself){
89: if(fscalar)
90: return new VJunction(aself, fscalar, true /*getter*/);
1.16 paf 91: return 0;
1.23 paf 92: }
93:
1.42 misha 94: void VStateless_class::set_scalar(Method* amethod){
95: fscalar=amethod;
1.2 paf 96: }
1.32 misha 97:
98: Value* VStateless_class::get_default_getter(Value& aself, const String& aname){
99: if(fdefault_getter)
100: return new VJunction(aself, fdefault_getter, true /*getter*/, (String*)&aname);
101: return 0;
102: }
103:
104: void VStateless_class::set_default_getter(Method* amethod){
105: fdefault_getter=amethod;
106: }
107:
1.42 misha 108: void VStateless_class::set_base(VStateless_class* abase){
109: if(abase){
110: fbase=abase;
111: fbase->add_derived(*this);
112:
113: // we assume there is no derivatives at this point
114: fmethods.merge_dont_replace(abase->fmethods);
115:
116: if(fbase->fscalar && !fscalar)
117: fscalar=fbase->fscalar;
118: if(fbase->fdefault_getter && !fdefault_getter)
119: fdefault_getter=fbase->fdefault_getter;
120: }
1.33 misha 121: }
122:
1.42 misha 123: void VStateless_class::add_derived(VStateless_class &aclass){
124: fderived+=&aclass;
125: if (fbase)
126: fbase->add_derived(aclass);
1.34 misha 127: }
E-mail: