[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.42 and 1.47

version 1.42, 2001/03/06 10:49:24 version 1.47, 2001/03/09 08:19:50
Line 8  $Id$ Line 8  $Id$
 #include "pa_vclass.h"  #include "pa_vclass.h"
   
 #include <stdio.h>  #include <stdio.h>
   #include "classes/_string.h"
   #include "classes/_double.h"
   #include "classes/_int.h"
   
 void core() {  void core() {
         Pool pool;          Pool pool;
           initialize_string_class(pool);
           initialize_double_class(pool);
           initialize_int_class(pool);
         Request request(pool);          Request request(pool);
         request.core();          request.core();
 }  }
   
   Request::Request(Pool& apool) : Pooled(apool),
           stack(apool),
           root_class(apool),
           fclasses(apool),
           fclasses_array(apool)
   {
           // construct_root_class
           void construct_root_class(Request& request); // classes/root
           construct_root_class(*this);
   
           // TODO: construct other classes, 
           // для встроенных какая-то табличка
           // для внешних - конфиг с @CLASSES файлы с классами/ворохами операторов
   
           // adding root superclass, 
           //   parent of all classes, 
           //   operators holder
           String ROOT(pool()); ROOT.APPEND_CONST(ROOT_NAME);
           classes().put(ROOT, &root_class);
   }
   
 void Request::core() {  void Request::core() {
         TRY {          TRY {
                 char *file="Y:\\parser3\\src\\test.p";                  char *file="Y:\\parser3\\src\\test.p";
                 String RUN(pool()); RUN.APPEND_CONST(NAME_RUN);                  String RUN(pool()); RUN.APPEND_CONST(RUN_NAME);
                 use(file, &RUN);                  use(file, &RUN);
   
                 char *result=execute_MAIN();                  char *result=execute_MAIN();
Line 48  void Request::core() { Line 75  void Request::core() {
         END_CATCH          END_CATCH
 }  }
   
 void Request::use(char *file, String *alias) {  void Request::use(char *file, String *name) {
         // TODO: обнаружить|решить cyclic dependences          // TODO: обнаружить|решить cyclic dependences
         char *source=file_read(pool(), file);          char *source=file_read(pool(), file);
         if(!source)          if(!source)
Line 56  void Request::use(char *file, String *al Line 83  void Request::use(char *file, String *al
                         0,                          0,
                         "use: can not read '%s' file", file);                          "use: can not read '%s' file", file);
   
         VClass& vclass=COMPILE(source, alias, file);          COMPILE(source, name, file);
         String& vclass_name=vclass.name();          // TODO: запустить @STATIC[], если есть
         //TODO: обнаружить, что грузят не объект, а операторы.  
         // загрузить операторы  //      if(alias)
         classes_array()+=&vclass;                  //classes().put(*alias, &vclass);
         classes().put(vclass_name, &vclass);  
         if(alias)  
                 classes().put(*alias, &vclass);  
 }  }
   
 char *Request::execute_MAIN() {  char *Request::execute_MAIN() {
Line 85  char *Request::execute_MAIN() { Line 109  char *Request::execute_MAIN() {
                                         wcontext=NEW WWrapper(pool(), vclass, false /* not constructing */);                                          wcontext=NEW WWrapper(pool(), vclass, false /* not constructing */);
                                                                                   
                                         // execute!                                               // execute!     
                                         execute(method->code);                                          execute(*method->parser_code);
                                                                                   
                                         // return chars                                          // return chars
                                         return wcontext->get_string()->cstr();                                          return wcontext->get_string()->cstr();
Removed from v.1.42  
changed lines
  Added in v.1.47

E-mail: