Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

Annotation of parser3/src/main/core.C, revision 1.57

1.18      paf         1: /*
1.53      paf         2:        Parser
                      3:        Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
1.57    ! paf         4:        Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
1.53      paf         5: 
1.57    ! paf         6:        $Id: core.C,v 1.56 2001/03/11 08:02:06 paf Exp $
1.18      paf         7: */
                      8: 
1.50      paf         9: #include "core.h"
1.55      paf        10: #include "_string.h"
                     11: #include "_double.h"
                     12: #include "_int.h"
1.50      paf        13: #include "pa_request.h"
                     14: 
                     15: String *unnamed_name;
                     16: String *empty_string;
1.52      paf        17: 
1.51      paf        18: String *auto_method_name;
                     19: String *main_method_name;
1.23      paf        20: 
1.56      paf        21: String *main_class_name;
1.52      paf        22: String *root_class_name;
                     23: String *env_class_name;
                     24: 
1.23      paf        25: void core() {
1.25      paf        26:        Pool pool;
1.52      paf        27:        
                     28:        // names
1.50      paf        29:        unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");
                     30:        empty_string=new(pool) String(pool); 
1.52      paf        31: 
1.51      paf        32:        auto_method_name=new(pool) String(pool);  auto_method_name->APPEND_CONST(AUTO_METHOD_NAME);
                     33:        main_method_name=new(pool) String(pool);  main_method_name->APPEND_CONST(MAIN_METHOD_NAME);
1.52      paf        34:        
1.56      paf        35:        main_class_name=new(pool) String(pool);  main_class_name->APPEND_CONST(MAIN_CLASS_NAME);
1.52      paf        36:        root_class_name=new(pool) String(pool);  root_class_name->APPEND_CONST(ROOT_CLASS_NAME);
                     37:        env_class_name=new(pool) String(pool);  env_class_name->APPEND_CONST(ENV_CLASS_NAME);   
1.50      paf        38: 
1.52      paf        39:        // classes
1.48      paf        40:        initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));
                     41:        initialize_double_class(pool, *(double_class=new(pool) VClass(pool)));
                     42:        initialize_int_class(pool, *(int_class=new(pool) VClass(pool)));
1.52      paf        43: 
                     44:        // request
1.24      paf        45:        Request request(pool);
                     46:        request.core();
1.23      paf        47: }
                     48: