Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

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

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: 
        !             6:        $Id: pa_string.C,v 1.35 2001/03/10 12:12:51 paf Exp $
1.18      paf         7: */
                      8: 
1.50      paf         9: #include "core.h"
1.46      paf        10: #include "classes/_string.h"
1.47      paf        11: #include "classes/_double.h"
                     12: #include "classes/_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 *auto_class_name;
                     22: String *run_class_name;
                     23: String *root_class_name;
                     24: String *env_class_name;
                     25: 
1.23      paf        26: void core() {
1.25      paf        27:        Pool pool;
1.52      paf        28:        
                     29:        // names
1.50      paf        30:        unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");
                     31:        empty_string=new(pool) String(pool); 
1.52      paf        32: 
1.51      paf        33:        auto_method_name=new(pool) String(pool);  auto_method_name->APPEND_CONST(AUTO_METHOD_NAME);
                     34:        main_method_name=new(pool) String(pool);  main_method_name->APPEND_CONST(MAIN_METHOD_NAME);
1.52      paf        35:        
                     36:        auto_class_name=new(pool) String(pool);  auto_class_name->APPEND_CONST(AUTO_CLASS_NAME);
                     37:        run_class_name=new(pool) String(pool);  run_class_name->APPEND_CONST(RUN_CLASS_NAME);
                     38:        root_class_name=new(pool) String(pool);  root_class_name->APPEND_CONST(ROOT_CLASS_NAME);
                     39:        env_class_name=new(pool) String(pool);  env_class_name->APPEND_CONST(ENV_CLASS_NAME);   
1.50      paf        40: 
1.52      paf        41:        // classes
1.48      paf        42:        initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));
                     43:        initialize_double_class(pool, *(double_class=new(pool) VClass(pool)));
                     44:        initialize_int_class(pool, *(int_class=new(pool) VClass(pool)));
1.52      paf        45: 
                     46:        // request
1.24      paf        47:        Request request(pool);
                     48:        request.core();
1.23      paf        49: }
                     50: