--- parser3/src/include/pa_request.h 2016/10/26 16:40:49 1.236 +++ parser3/src/include/pa_request.h 2016/11/29 14:32:32 1.243 @@ -8,7 +8,7 @@ #ifndef PA_REQUEST_H #define PA_REQUEST_H -#define IDENT_PA_REQUEST_H "$Id: pa_request.h,v 1.236 2016/10/26 16:40:49 moko Exp $" +#define IDENT_PA_REQUEST_H "$Id: pa_request.h,v 1.243 2016/11/29 14:32:32 moko Exp $" #include "pa_pool.h" #include "pa_hash.h" @@ -123,7 +123,7 @@ private: Array file_list; /// endless execute(execute(... preventing counter - uint anti_endless_execute_recoursion; + int anti_endless_execute_recoursion; ///@} @@ -192,9 +192,33 @@ public: /// executes ops void execute(ArrayOperation& ops); // execute.C - void call(VMethodFrame &frame); - void call_expression(VMethodFrame &frame); - void call_write(VMethodFrame &frame); + + template void call(Frame& frame){ + VMethodFrame *saved_method_frame=method_frame; + Value* saved_rcontext=rcontext; + WContext *saved_wcontext=wcontext; + + rcontext=wcontext=method_frame=&frame; + + frame.call(*this); + + wcontext=saved_wcontext; + rcontext=saved_rcontext; + method_frame=saved_method_frame; + } + + template void call_write(Frame& frame){ + VMethodFrame *saved_method_frame=method_frame; + Value* saved_rcontext=rcontext; + + rcontext=method_frame=&frame; + + frame.call(*this); + + rcontext=saved_rcontext; + method_frame=saved_method_frame; + } + Value& construct(VStateless_class &class_value, const Method &method); /// execute ops with anti-recoursion check @@ -212,7 +236,9 @@ public: /// compiles the file, maybe forcing it's class @a name and @a base_class. void use_file(VStateless_class& aclass, const String& file_name, const String* use_filespec); - void use_file(VStateless_class& aclass, const String& file_name, const String* use_filespec, Operation::Origin origin); + + /// for @USE only, calls ^use (which may be user-defined) + void use_file(const String& file_name, const String* use_filespec, Operation::Origin origin); /// compiles a @a source buffer void use_buf(VStateless_class& aclass, const char* source, const String* main_alias, uint file_no, int line_no_offset=0); @@ -227,32 +253,22 @@ public: return process(input_value).as_string(); } //@} - const String* get_method_filename(const Method* method); // execute.C - const String* get_used_filename(uint file_no); + const String* get_method_filespec(const Method* method); // execute.C + const String* get_used_filespec(uint file_no); - /// appending, sure of clean string inside - void write_no_lang(const String& astring) { + /// appending string with it's languages + inline void write(const String& astring) { wcontext->write(astring); } - /// appending sure value, that would be converted to clean string - void write_no_lang(Value& avalue) { - if(wcontext->get_in_expression()) - wcontext->write(avalue); - else - wcontext->write_as_string(avalue); - } - - /// appending string, passing language built into string being written - void write_pass_lang(const String& astring) { - wcontext->write(astring); - } - /// appending possible string, passing language built into string being written - void write_pass_lang(Value& avalue) { + + /// in [] and {} appending string if get_string is not null, else appending value + /// in () appending string if is_string, else appending value + inline void write(Value& avalue) { wcontext->write_as_string(avalue); } - /// appending sure value - void write_value(Value& avalue) { + /// allways appending value + inline void write_value(Value& avalue) { wcontext->write(avalue); } @@ -324,9 +340,6 @@ public: // status read methods /// for @main[] const String* execute_virtual_method(Value& aself, const String& method_name); - /// executes parser method, use op_call(frame) to execute native method - void execute_method(VMethodFrame& aframe); - //{ for @conf[filespec] and @auto[filespec] and parser://method/call const String* execute_method(Value& aself, const Method& method, Value* optional_param, bool do_return_string);