Return to pa_vstateless_class.C CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_vstateless_class.C, revision 1.30

1.8       paf         1: /**    @file
                      2:        Parser: stateless class.
                      3: 
1.28      paf         4:        Copyright (c) 2001-2005 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.30    ! misha       8: static const char * const IDENT_VSTATELESS_CLASS_C="$Date: 2006/12/01 19:00:54 $";
1.2       paf         9: 
                     10: #include "pa_vstateless_class.h"
1.24      paf        11: #include "pa_vproperty.h"
1.29      misha      12: #include "pa_vstring.h"
1.30    ! misha      13: #include "pa_vbool.h"
        !            14: 
        !            15: override Value& VStateless_class::as_expr_result(bool /*return_string_as_is=false*/) {
        !            16:        return *new VBool(as_bool());
        !            17: }
1.17      paf        18: 
1.24      paf        19: /// @TODO why?! request must be different ptr from global [used in VStateless_class.add_method]
1.17      paf        20: void VStateless_class::add_method(const String& name, Method& method) {
1.20      paf        21:        if(flocked)
1.17      paf        22:                throw Exception("parser.runtime",
                     23:                        &name,
                     24:                        "can not add method to system class (maybe you have forgotten .CLASS in ^process[$caller.CLASS]{...}?)");
1.20      paf        25: 
1.17      paf        26:        put_method(name, &method);
                     27: }
1.2       paf        28: 
                     29: void VStateless_class::add_native_method(
1.20      paf        30:        const char* cstr_name,
1.7       paf        31:        Method::Call_type call_type,
1.20      paf        32:        NativeCodePtr native_code,
1.2       paf        33:        int min_numbered_params_count, int max_numbered_params_count) {
                     34: 
1.20      paf        35:        const String& name=*new String(cstr_name);
1.2       paf        36:        
1.20      paf        37:        Method& method=*new Method(
1.7       paf        38:                call_type,
1.2       paf        39:                min_numbered_params_count, max_numbered_params_count,
                     40:                0/*params_names*/, 0/*locals_names*/,
                     41:                0/*parser_code*/, native_code
                     42:                );
                     43:        add_method(name, method);
1.16      paf        44: }
                     45: 
1.30    ! misha      46: /// VStateless_class: $CLASS, $CLASS_NAME, $method
1.20      paf        47: Value* VStateless_class::get_element(const String& aname, Value& aself, bool looking_up) {
1.16      paf        48:        // $CLASS
                     49:        if(aname==CLASS_NAME)
                     50:                return this;
1.29      misha      51:        // $CLASS_NAME
                     52:        if(aname==CLASS_NAMETEXT)
                     53:                return new VString(this->name());
1.16      paf        54:        // $method=junction(self+class+method)
1.20      paf        55:        if(Method* method=get_method(aname))
1.27      paf        56:                return new VJunction(aself, method);
1.18      paf        57: 
                     58:        // base monkey
1.26      paf        59:        if(fbase) {
                     60:                if(Value* obase=aself.base()) // MXdoc has fbase but does not have object_base[ base() ]
                     61:                        return fbase->get_element(aname, *obase, looking_up);
                     62:        }
1.18      paf        63: 
1.16      paf        64:        return 0;
1.23      paf        65: }
                     66: 
                     67: void VStateless_class::put_method(const String& aname, Method* amethod) {
1.25      paf        68:        fmethods.put(aname, amethod); 
1.2       paf        69: }