Return to pa_vmethod_frame.C CVS log

Up to [parser3project] / parser3 / src / types

Annotation of parser3/src/types/pa_vmethod_frame.C, revision 1.25

1.2       paf         1: /**    @file
                      2:        Parser: method frame class.
                      3: 
1.24      moko        4:        Copyright (c) 2001-2015 Art. Lebedev Studio (http://www.artlebedev.com)
1.2       paf         5:        Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)\
                      6: */
                      7: 
                      8: #include "pa_vmethod_frame.h"
                      9: #include "pa_request.h"
                     10: 
1.25    ! moko       11: volatile const char * IDENT_PA_VMETHOD_FRAME_C="$Id: pa_vmethod_frame.C,v 1.24 2015/10/26 01:22:02 moko Exp $" IDENT_PA_VMETHOD_FRAME_H;
1.19      moko       12: 
1.2       paf        13: // globals
                     14: 
1.15      misha      15: const String result_var_name(RESULT_VAR_NAME), caller_element_name(CALLER_ELEMENT_NAME), self_element_name(SELF_ELEMENT_NAME);
1.22      misha      16: 
1.14      misha      17: VVoid void_result; // unique value to be sure the result is changed
1.2       paf        18: 
                     19: // MethodParams: methods
                     20: 
1.7       paf        21: Value& MethodParams::get_processed(Value* value, const char* msg, int index, Request& r) {
                     22:                return r.process_to_value(as_junction(value, msg, index), false /*do not intercept string*/);
1.2       paf        23: }
                     24: 
1.21      misha      25: HashStringValue* MethodParams::as_hash(int index, const char* name) {
                     26:        Value* value=get(index);
                     27:        if(value) {
                     28:                if(value->get_junction())
                     29:                        throw Exception(PARSER_RUNTIME,
                     30:                                0,
                     31:                                "%s param must not be code (parameter #%d)", name ? name : "options", 1+index);
                     32:                if(!value->is_defined()) // empty hash is not defined, but we don't need it anyway
                     33:                        return 0;
                     34:                if(HashStringValue* result=value->get_hash())
                     35:                        return result;
                     36:                if(value->is_string() && value->get_string()->trim().is_empty())
                     37:                        return 0;
                     38:        }
                     39:        throw Exception(PARSER_RUNTIME,
                     40:                0,
                     41:                "%s must have hash representation (parameter #%d)", name ? name : "options", 1+index);
                     42: }
                     43: 
                     44: Table* MethodParams::as_table(int index, const char* name) {
                     45:        Value* value=get(index);
                     46:        if(value) {
                     47:                if(value->get_junction())
                     48:                        throw Exception(PARSER_RUNTIME,
                     49:                                0,
                     50:                                "%s param must not be code (parameter #%d)", name ? name : "options", 1+index);
                     51:                if(Table* result=value->get_table())
                     52:                        return result;
                     53:        }
                     54:        throw Exception(PARSER_RUNTIME,
                     55:                0,
                     56:                "%s param must have table representation (parameter #%d)", name ? name : "options", 1+index);
1.23      moko       57: }
1.21      misha      58: 
1.2       paf        59: // VMethodFrame: methods
                     60: 
1.18      moko       61: VMethodFrame::VMethodFrame(const Method& amethod, VMethodFrame *acaller, Value& aself) : 
1.16      misha      62:        WContext(0 /* no parent, junctions can be reattached only up to VMethodFrame */),
1.4       paf        63:        fcaller(acaller),
1.12      misha      64:        my(0),
1.18      moko       65:        fself(aself),
                     66:        method(amethod) {
1.2       paf        67: 
1.18      moko       68:        put_element_impl=(method.all_vars_local)?&VMethodFrame::put_element_local:&VMethodFrame::put_element_global;
1.9       misha      69: 
1.18      moko       70:        if(!method.max_numbered_params_count){ // this method uses numbered params?
1.17      misha      71:                my=new HashString<Value*>;
1.2       paf        72: 
                     73:                if(method.locals_names) { // are there any local var names?
                     74:                        // remember them
                     75:                        // those are flags that fname is local == to be looked up in 'my'
                     76:                        for(Array_iterator<const String*> i(*method.locals_names); i.has_next(); ) {
                     77:                                // speedup: not checking for clash with "result" fname
                     78:                                const String& fname=*i.next();
1.20      moko       79:                                set_my_variable(fname, *VString::empty());
1.2       paf        80:                        }
                     81:                }
1.14      misha      82: #ifdef OPTIMIZE_RESULT
1.18      moko       83:                if(method.result_optimization!=Method::RO_USE_WCONTEXT)
1.14      misha      84: #endif
                     85:                        set_my_variable(result_var_name, void_result);
1.2       paf        86:        }
                     87: }
                     88: 
                     89: Value* VMethodFrame::get_result_variable() {
1.11      misha      90:        if(!my)
                     91:                return 0;
                     92: 
1.15      misha      93:        Value* result=my->get(result_var_name);
1.14      misha      94:        return result!=&void_result?result:0;
1.2       paf        95: }