Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

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

1.18      paf         1: /*
1.52    ! paf         2: $Id: core.C,v 1.51 2001/03/10 15:44:31 paf Exp $
1.18      paf         3: */
                      4: 
1.50      paf         5: #include "core.h"
1.46      paf         6: #include "classes/_string.h"
1.47      paf         7: #include "classes/_double.h"
                      8: #include "classes/_int.h"
1.50      paf         9: #include "pa_request.h"
                     10: 
                     11: String *unnamed_name;
                     12: String *empty_string;
1.52    ! paf        13: 
1.51      paf        14: String *auto_method_name;
                     15: String *main_method_name;
1.23      paf        16: 
1.52    ! paf        17: String *auto_class_name;
        !            18: String *run_class_name;
        !            19: String *root_class_name;
        !            20: String *env_class_name;
        !            21: 
1.23      paf        22: void core() {
1.25      paf        23:        Pool pool;
1.52    ! paf        24:        
        !            25:        // names
1.50      paf        26:        unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");
                     27:        empty_string=new(pool) String(pool); 
1.52    ! paf        28: 
1.51      paf        29:        auto_method_name=new(pool) String(pool);  auto_method_name->APPEND_CONST(AUTO_METHOD_NAME);
                     30:        main_method_name=new(pool) String(pool);  main_method_name->APPEND_CONST(MAIN_METHOD_NAME);
1.52    ! paf        31:        
        !            32:        auto_class_name=new(pool) String(pool);  auto_class_name->APPEND_CONST(AUTO_CLASS_NAME);
        !            33:        run_class_name=new(pool) String(pool);  run_class_name->APPEND_CONST(RUN_CLASS_NAME);
        !            34:        root_class_name=new(pool) String(pool);  root_class_name->APPEND_CONST(ROOT_CLASS_NAME);
        !            35:        env_class_name=new(pool) String(pool);  env_class_name->APPEND_CONST(ENV_CLASS_NAME);   
1.50      paf        36: 
1.52    ! paf        37:        // classes
1.48      paf        38:        initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));
                     39:        initialize_double_class(pool, *(double_class=new(pool) VClass(pool)));
                     40:        initialize_int_class(pool, *(int_class=new(pool) VClass(pool)));
1.52    ! paf        41: 
        !            42:        // request
1.24      paf        43:        Request request(pool);
                     44:        request.core();
1.23      paf        45: }
                     46: