Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

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

1.18      paf         1: /*
1.53      paf         2:        Parser
                      3:        Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
                      4:        Author: Alexander Petrosyan <paf@design.ru>
                      5: 
1.55    ! paf         6:        $Id: core.C,v 1.54 2001/03/10 17:10:39 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.52      paf        21: String *run_class_name;
                     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:        
                     35:        run_class_name=new(pool) String(pool);  run_class_name->APPEND_CONST(RUN_CLASS_NAME);
                     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: