Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

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

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