Diff for /parser3/src/main/Attic/core.C between versions 1.50 and 1.56

version 1.50, 2001/03/10 11:44:42 version 1.56, 2001/03/11 08:02:06
Line 1 Line 1
 /*  /*
 $Id$          Parser
           Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
           Author: Alexander Petrosyan <paf@design.ru>
   
           $Id$
 */  */
   
 #include "core.h"  #include "core.h"
 #include "classes/_string.h"  #include "_string.h"
 #include "classes/_double.h"  #include "_double.h"
 #include "classes/_int.h"  #include "_int.h"
 #include "pa_request.h"  #include "pa_request.h"
   
 String *unnamed_name;  String *unnamed_name;
 String *empty_string;  String *empty_string;
   
   String *auto_method_name;
   String *main_method_name;
   
   String *main_class_name;
   String *root_class_name;
   String *env_class_name;
   
 void core() {  void core() {
         Pool pool;          Pool pool;
           
           // names
         unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");          unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");
         empty_string=new(pool) String(pool);           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);
           
           main_class_name=new(pool) String(pool);  main_class_name->APPEND_CONST(MAIN_CLASS_NAME);
           root_class_name=new(pool) String(pool);  root_class_name->APPEND_CONST(ROOT_CLASS_NAME);
           env_class_name=new(pool) String(pool);  env_class_name->APPEND_CONST(ENV_CLASS_NAME);   
   
           // classes
         initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));          initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));
         initialize_double_class(pool, *(double_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)));          initialize_int_class(pool, *(int_class=new(pool) VClass(pool)));
   
           // request
         Request request(pool);          Request request(pool);
         request.core();          request.core();
 }  }

Removed from v.1.50  
changed lines
  Added in v.1.56


E-mail: