--- parser3/src/main/Attic/core.C 2001/02/12 11:34:12 1.2 +++ parser3/src/main/Attic/core.C 2001/02/25 14:23:32 1.40 @@ -1,122 +1,100 @@ -void process(Pool& pool, - Value& self, - RContext& rcontext, WContext& wcontext, - StringIterator& code, char char_to_stop_before) { - - // $ on code? - process_dollar(pool, rcontext, wcontext, code, char_to_stop_before); - - // ^ on code? - process_bird(pool, rcontext, wcontext, code, char_to_stop_before); +/* +$Id: core.C,v 1.40 2001/02/25 14:23:32 paf Exp $ +*/ + +#include "pa_request.h" +#include "pa_wwrapper.h" +#include "pa_common.h" +#include "pa_vclass.h" + +#include + +void core() { + Pool pool; + Request request(pool); + request.core(); } -void process_dollar(Pool& pool, - Value& THIS, - RContext& rcontext, WContext& wcontext, - StringIterator& iter, char char_to_stop_before) { - - // $name.field.subfield -- read - // $name.field.subfield(constructor code) -- construct - // $name.field.subfield[usage code & if none existed autoconstructed as VHash] -- use OR auto-VHash construct - - Array/**/ names(pool); // what.they.refer.to left-to-right list - char names_ended_before; // the char after long name - get_names( - iter, " ([", - &names, &names_ended_before); // must return count()>0 - - bool read_mode=name_ended_before==' '; - Value *context=read_mode?rcontext:wcontext; - - if(read_mode) { - for(int i=0; iget_element(static_cast(names.get[i])); - if(!context) // no such object field, nothing bad, just ignore that - return; - } - wcontext.write(context); - } else { // write mode - iter++; // skip '(' '[' - - bool construct_mode=names_ended_before=='('; - - int steps=names.count(); - if(construct_mode) - steps--; - for(int i=0; i(names.get[i]); - Value *next_current=context->get_element(name); - if(next_current) - next_current=context->put_element(name, new(pool) VHash(pool)); - context=new_current; +void Request::core() { + TRY { + char *file="Y:\\parser3\\src\\test.p"; + String RUN(pool()); RUN.APPEND_CONST(NAME_RUN); + use(file, &RUN); + + char *result=execute_MAIN(); + printf("result-----------------\n%sEOF----------------\n", result); + } + CATCH(e) { + printf("\nERROR: "); + const String *problem_source=e.problem_source(); + if(problem_source) { + const Origin& origin=problem_source->origin(); + if(origin.file) + printf("%s(%d): ", + origin.file, 1+origin.line); + printf("'%s' ", + problem_source->cstr()); } - - if(construct_mode) { - // pure side effect, no wcontext.write here - String& name=static_cast(names.get[steps]); - WContext local_wcontext(pool /* empty */); - process(pool, rcontext, local_wcontext, iter, ')'); - context->put_element(name, local_wcontext.value()); - } else { // =='[' - WContext local_context(pool, context); - process(pool, local_context, local_context, iter, ']'); - wcontext.write(local_context); + printf("%s", e.comment()); + const String *type=e.type(); + if(type) { + printf(" type: %s", type->cstr()); + const String *code=e.code(); + if(code) + printf(", code: %s", code->cstr()); } - - iter++; // skip ')' ']' + printf("\n"); } + END_CATCH } -void process_bird(Pool& pool, - Value& self, - RContext& rcontext, WContext& wcontext, - StringIterator& iter, char char_to_stop_before) { - - // ^name.field.subfield.method[..] -- plain call - // ^name.field.subfield.method_ref[..] -- method ref call, when .get_method()!=0 - - Array/**/ names(pool); // what.they.refer.to left-to-right list - char names_ended_before; // the char after long name - get_names( - iter, "[", - &names, &names_ended_before); // must return count()>0 - - Value *context=rcontext; - iter++; // skip '[' - - Value *local_self=context; - int steps=names.count()-1; - for(int i=0; i(names.get[i]); - context=(local_self=context)->get_element(name); - if(!context) // no such object field, sad story: can't call method of void - pool.exception().raise(name, "call: to void.method"); +void Request::use(char *file, String *alias) { + char *source=file_read(pool(), file); + if(!source) + THROW(0,0, + 0, + "use: can not read '%s' file", file); + + VClass& vclass=COMPILE(source, alias, file); + String& vclass_name=vclass.name(); + //TODO: обнаружить, что грузят не объект, а операторы. + // загрузить операторы + classes_array()+=&vclass; + classes().put(vclass_name, &vclass); + if(alias) + classes().put(*alias, &vclass); +} + +char *Request::execute_MAIN() { + // locate class with @main & it's code + String name_main(pool()); + name_main.APPEND_CONST(MAIN_METHOD_NAME); + + // looking for latest known @main + for(int i=classes_array().size(); --i>=0;) { + VClass *vclass=static_cast(classes_array().get(i)); + Value *main=vclass->get_element(name_main); + if(main) { // found some 'main' element + Junction *junction=main->get_junction(); + if(junction) {// it even has junction! + const Method *method=junction->method; + if(method) { // and junction is method-junction! call it + // initialize contexts + self=root=rcontext=vclass; + wcontext=NEW WWrapper(pool(), vclass, false /* not constructing */); + + // execute! + execute(method->code); + + // return chars + return wcontext->get_string()->cstr(); + } + } + } } - String& name=static_cast(names.get[steps]); - // first we're trying to locate method with that 'name' - Method *method=context.get_method(name); - if(!method) { // no such method: try to locate method ref field - Value *value=context.get_element(name); - if(!value) // failed: no element of that 'name' - pool.exception().raise(name, "call: no method field found"); - method=value->get_method(); - if(!method) // failed: that field wasn't method_ref - pool.exception().raise(name, "call: this field is not a method reference"); - local_self=value->get_self(); - } - - - Array/**/ param_values(pool); - get_params( - iter, "]", - ¶m_values); - iter++; // skip ']' - - Method_self_n_params local_rcontext(pool, - local_self, - method->param_names, param_values); - WContext local_wcontext(pool /* empty */); - process(pool, local_rcontext, local_wcontext, iter, ']'); - wcontext.write(local_wcontext); -} \ No newline at end of file + THROW(0,0, + 0, + "'"MAIN_METHOD_NAME"' method not found"); + return 0; +}