--- parser3/src/main/Attic/core.C 2001/02/14 12:20:48 1.9 +++ parser3/src/main/Attic/core.C 2001/02/23 17:12:58 1.29 @@ -1,177 +1,93 @@ -void process(method_self_n_params_n_locals& root, Value& self, - arcontext& arcontext, WContext& awcontext, - String_iterator& code, char char_to_stop_before) { - - // $ on code? - process_dollar(root, self, arcontext, awcontext, code, char_to_stop_before); - - // ^ on code? - process_bird(root, self, arcontext, awcontext, code, char_to_stop_before); - - // TODO - // 2. вызовы статических методов +/* +$Id: core.C,v 1.29 2001/02/23 17:12:58 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(method_self_n_params_n_locals& root, Value& self, - arcontext& arcontext, WContext& awcontext, - String_iterator& 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 - Prefix prefix; - get_names( - iter, " ([", - &prefix, &names, &names_ended_before); // can return count()=0 when $self alone - - bool read_mode=name_ended_before==' '; - Value *context= - prefix? - prefix==ROOT_PREFIX?root:self: - read_mode?arcontext:awcontext; - - if(read_mode) { - // 'context' dive into dotted path - for(int i=0; iget_element(static_cast(names.get[i])); - if(!context) // no such object field, nothing bad, just ignore that - return; +void Request::core() { + TRY { + String name_RUN(pool()); name_RUN.APPEND_CONST("RUN"); + char *result=execute_MAIN(construct_class(name_RUN, load_and_compile_RUN())); + printf("-----------------\n%s\n----------------\n", result); + } + CATCH(e) { + printf("error occured: %s\n", 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()); + printf("\n"); } - awcontext.write(context); - } else { // write mode - iter++; // skip '(' '[' - - bool construct_mode=names_ended_before=='('; - - // 'context' dive into dotted path, - int steps=names.count(); - // if constructing then "excluding last .name" - if(construct_mode) - if(!steps--) // bad: "$self("; now we can safely do ".get[steps]" below - pool.exception().raise("self re-construction prohibited"); - 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; + const String *problem_source=e.problem_source(); + if(problem_source) { + const Origin& origin=problem_source->origin(); + printf(" '%s'\n", + problem_source->cstr()); + if(origin.file) + printf(" [%s:%d]", + origin.file, 1+origin.line); + printf("\n"); } + } + END_CATCH +} - if(construct_mode) { - // .name(construct-code), processing on arcontext in empty temp awcontext - // pure side effect, no awcontext.write here - // last .name - String& name=static_cast(names.get[steps]); - WContext local_wcontext(pool /* empty */); - process(root, self, arcontext, local_wcontext, iter, ')'); - context->put_element(name, local_wcontext.value()); - } else { // =='[' - // .name[with-code], processing on 'context' - WContext local_context(pool, context); - process(root, self, local_context, local_context, iter, ']'); - awcontext.write(local_context); - } +Array& Request::load_and_compile_RUN() { + char *file="Y:\\parser3\\src\\test.p"; + char *source=file_read(pool(), file); + Array& compiled_methods=COMPILE(source, file); + return compiled_methods; +} + +VClass *Request::construct_class(String& name, Array& compiled_methods) { + // create new 'name' vclass, add it to request's classes + Array immediate_parents(pool()); + // TODO: immediate_parents=@PARENTS + + VClass *result=NEW VClass(pool(), name, immediate_parents); + result->set_name(name); + classes().put(name, result); - iter++; // skip ')' ']' + for(int i=0; i(compiled_methods.quick_get(i)); + result->add_method(method.name, method); } + + return result; } -void process_bird(method_self_n_params_n_locals& root, Value& self, - arcontext& arcontext, WContext& awcontext, - String_iterator& iter, char char_to_stop_before) { - - // ^name.field.subfield.method[..] -- plain call - // ^name.field.subfield.method_ref[..] -- method ref call, when .get_method()!=0 - // ^class:method[..] -- no dotted path allowed before/after - // 1: wcontext.object_class == 0? -- constructor - // 2: wcontext.object_class.has_parent('class')? -- dynamic call - // 3: not -------------------------------------? -- static call - - Array/**/ names(pool); // what.they.refer.to left-to-right list - char names_ended_before; // the char after long name - Prefix prefix; - get_names( - iter, "[", - &prefix, &names, &names_ended_before); // can return count()=0 when ^self alone - - Value *context= - prefix? - prefix==ROOT_PREFIX?root:self: - arcontext; - iter++; // skip '[' - - // 'context' dive into dotted path, excluding last .name - int steps=names.count()-1; - if(steps<0) // bad: "^self["; now we can safely do ".get[steps]" below - pool.exception().raise("call: calling method named 'self'"); - for(int i=0; i(names.get[i]); - context=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"); - } - - // last .name - String& name=static_cast(names.get[steps]); - if(steps==0) { // the sole name on path, maybe ^class:method[ call - String_iterator ni(name); - if(ni.skip_to(':')) { // it is - ni++; // skip ':' - String method_name(pool); method_name.append(ni, 0); - name=method_name; // trim "class:" prefix from the name - - String cn(pool); cn.append(0, ni); - Class *right_class=classes.get(cn); - if(!right_class) // bad: no such class - pool.exception().raise(cn, "call: undefined class"); - Class *left_class=awcontext.get_class(); - if(left_class) { - if(left_class.has_parent(right_class)) // dynamic call - context=awcontext.value(); // it's 'self' - else // static call - context=right_class; // 'self' := class, not instance - } else { // constructor: $some(^class:method[..]) call - context=new(pool) VClass(pool, right_class); // 'self' := new VClass of 'class:' - awcontext.write(context); - } - } - } - // 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) { // good: we have some element of that 'name' - Method_ref *method_ref=value->get_method_ref(); - if(!method_ref) // bad: that field wasn't method_ref - pool.exception().raise(name, "call: this field is not a method reference"); - method=method_ref->method; - context=method_ref->self; - } else { // no element of that 'name', that must be operator then - method=operators.get(name); - if(!method) // bad: that 'name' is neither method nor field nor operator - pool.exception().raise(name, "call: neither method nor field nor operator"); - } - } +char *Request::execute_MAIN(VClass *class_RUN) { + // initialize contexts + root=self=rcontext=class_RUN; + wcontext=NEW WWrapper(pool(), class_RUN); + + // locate @main code + String name_main(pool()); + name_main.APPEND_CONST(MAIN_METHOD_NAME); + + Method *method_main=class_RUN->get_method(name_main); + if(!method_main) + THROW(0,0, + &class_RUN->name(), + "no '"MAIN_METHOD_NAME"' method in class"); + // execute! + execute(method_main->code); - Array/**/ param_values(pool); - get_params( - iter, - arcontext, - ¶m_values); - iter++; // skip ']' - - method_self_n_params_n_locals local_rcontext(pool, - context, - method->param_names, param_values, - method->local_names); - WContext local_wcontext(pool, context); - process( - local_rcontext/* $:vars */, context /* $self.vars */, - local_rcontext, local_wcontext, - iter, ']'); - awcontext.write(local_wcontext); -} \ No newline at end of file + // return chars + return wcontext->get_string()->cstr(); +}