|
|
| version 1.27, 2001/02/23 11:39:58 | version 1.29, 2001/02/23 17:12:58 |
|---|---|
| Line 3 $Id$ | Line 3 $Id$ |
| */ | */ |
| #include "pa_request.h" | #include "pa_request.h" |
| #include "pa_wcontext.h" | #include "pa_wwrapper.h" |
| #include "pa_common.h" | #include "pa_common.h" |
| #include "pa_vclass.h" | #include "pa_vclass.h" |
| Line 58 VClass *Request::construct_class(String& | Line 58 VClass *Request::construct_class(String& |
| // TODO: immediate_parents=@PARENTS | // TODO: immediate_parents=@PARENTS |
| VClass *result=NEW VClass(pool(), name, immediate_parents); | VClass *result=NEW VClass(pool(), name, immediate_parents); |
| result->set_name(name); | |
| classes().put(name, result); | classes().put(name, result); |
| for(int i=0; i<compiled_methods.size(); i++) { | for(int i=0; i<compiled_methods.size(); i++) { |
| Line 72 VClass *Request::construct_class(String& | Line 73 VClass *Request::construct_class(String& |
| char *Request::execute_MAIN(VClass *class_RUN) { | char *Request::execute_MAIN(VClass *class_RUN) { |
| // initialize contexts | // initialize contexts |
| root=self=rcontext=class_RUN; | root=self=rcontext=class_RUN; |
| wcontext=NEW WContext(pool(), class_RUN); | wcontext=NEW WWrapper(pool(), class_RUN); |
| // locate @main code | // locate @main code |
| String name_main(pool()); | String name_main(pool()); |