Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

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

1.18      paf         1: /*
1.51    ! paf         2: $Id: core.C,v 1.50 2001/03/10 11:44:42 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.51    ! paf        13: String *auto_method_name;
        !            14: String *main_method_name;
1.23      paf        15: 
                     16: void core() {
1.25      paf        17:        Pool pool;
1.50      paf        18:        unnamed_name=new(pool) String(pool); unnamed_name->APPEND_CONST("unnamed");
                     19:        empty_string=new(pool) String(pool); 
1.51    ! paf        20:        auto_method_name=new(pool) String(pool);  auto_method_name->APPEND_CONST(AUTO_METHOD_NAME);
        !            21:        main_method_name=new(pool) String(pool);  main_method_name->APPEND_CONST(MAIN_METHOD_NAME);
1.50      paf        22: 
1.48      paf        23:        initialize_string_class(pool, *(string_class=new(pool) VClass(pool)));
                     24:        initialize_double_class(pool, *(double_class=new(pool) VClass(pool)));
                     25:        initialize_int_class(pool, *(int_class=new(pool) VClass(pool)));
1.24      paf        26:        Request request(pool);
                     27:        request.core();
1.23      paf        28: }
                     29: