[BACK]Return to core.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / main

Diff for /parser3/src/main/Attic/core.C between versions 1.36 and 1.51

version 1.36, 2001/02/24 15:35:28 version 1.51, 2001/03/10 15:44:31
Line 2 Line 2
 $Id$  $Id$
 */  */
   
   #include "core.h"
   #include "classes/_string.h"
   #include "classes/_double.h"
   #include "classes/_int.h"
 #include "pa_request.h"  #include "pa_request.h"
 #include "pa_wwrapper.h"  
 #include "pa_common.h"  
 #include "pa_vclass.h"  
   
 #include <stdio.h>  String *unnamed_name;
   String *empty_string;
   String *auto_method_name;
   String *main_method_name;
   
 void core() {  void core() {
         Pool pool;          Pool pool;
           unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");
           empty_string=new(pool) String(pool); 
           auto_method_name=new(pool) String(pool);  auto_method_name->APPEND_CONST(AUTO_METHOD_NAME);
           main_method_name=new(pool) String(pool);  main_method_name->APPEND_CONST(MAIN_METHOD_NAME);
   
           initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));
           initialize_double_class(pool, *(double_class=new(pool) VClass(pool)));
           initialize_int_class(pool, *(int_class=new(pool) VClass(pool)));
         Request request(pool);          Request request(pool);
         request.core();          request.core();
 }  }
   
 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());  
                 }  
                 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());  
                 }  
                 printf("\n");  
         }  
         END_CATCH  
 }  
   
 void Request::use(char *file, String *name) {  
         char *source=file_read(pool(), file);  
         VClass& vclass=COMPILE(source, file);  
         if(name) // they forced some name?  
                 vclass.set_name(*name);  
         name=vclass.name();  
         if(!name)  
                 return; //TODO: add operators   
         classes_array()+=&vclass;  
         classes().put(*name, &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<VClass *>(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);  
                                           
                                         // execute!       
                                         execute(method->code);  
                                           
                                         // return chars  
                                         return wcontext->get_string()->cstr();  
                                 }  
                         }  
                 }  
         }  
           
         THROW(0,0,  
                 0,   
                 "'"MAIN_METHOD_NAME"' method not found");  
         return 0;  
 }  
Removed from v.1.36  
changed lines
  Added in v.1.51

E-mail: