Return to core.C CVS log

Up to [parser3project] / parser3 / src / main

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

1.18      paf         1: /*
1.53      paf         2:        Parser
                      3:        Copyright (c) 2001 ArtLebedev Group (http://www.artlebedev.com)
1.57      paf         4:        Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
1.53      paf         5: 
1.65    ! paf         6:        $Id: core.C,v 1.64 2001/03/13 13:43:30 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.60      paf        13: #include "_table.h"
1.50      paf        14: #include "pa_request.h"
1.65    ! paf        15: #include "_form.h"
1.50      paf        16: 
1.65    ! paf        17: #define NEW_STRING(name, value)  name=new(pool) String(pool); name->APPEND_CONST(value)
1.58      paf        18: #define LOCAL_STRING(name, value)  String name(pool); name.APPEND_CONST(value)
                     19: 
1.50      paf        20: String *unnamed_name;
                     21: String *empty_string;
1.52      paf        22: 
1.51      paf        23: String *auto_method_name;
                     24: String *main_method_name;
1.23      paf        25: 
1.65    ! paf        26: String *root_class_name;
1.56      paf        27: String *main_class_name;
1.52      paf        28: String *env_class_name;
1.60      paf        29: String *table_class_name;
1.65    ! paf        30: String *form_class_name;
1.52      paf        31: 
1.60      paf        32: Hash *untaint_lang_name2enum;
1.58      paf        33: 
                     34: 
1.23      paf        35: void core() {
1.25      paf        36:        Pool pool;
1.52      paf        37:        
                     38:        // names
1.65    ! paf        39:        NEW_STRING(unnamed_name, UNNAMED_NAME);
1.50      paf        40:        empty_string=new(pool) String(pool); 
1.52      paf        41: 
1.65    ! paf        42:        NEW_STRING(auto_method_name, AUTO_METHOD_NAME);
        !            43:        NEW_STRING(main_method_name, MAIN_METHOD_NAME);
        !            44: 
        !            45:        NEW_STRING(root_class_name, ROOT_CLASS_NAME);
        !            46:        NEW_STRING(main_class_name, MAIN_CLASS_NAME);
        !            47:        NEW_STRING(table_class_name, TABLE_CLASS_NAME);
        !            48:        NEW_STRING(env_class_name, ENV_CLASS_NAME);     
        !            49:        NEW_STRING(form_class_name, FORM_CLASS_NAME);   
1.58      paf        50: 
                     51:        // hashes
1.60      paf        52:        untaint_lang_name2enum=new(pool) Hash(pool);
1.58      paf        53:        LOCAL_STRING(as_is, "as-is");  
1.63      paf        54:        untaint_lang_name2enum->put(as_is, (int)String::Untaint_lang::AS_IS);
1.61      paf        55:        LOCAL_STRING(table, "table");
1.63      paf        56:        untaint_lang_name2enum->put(table, (int)String::Untaint_lang::TABLE);
1.58      paf        57:        LOCAL_STRING(sql, "sql");
1.63      paf        58:        untaint_lang_name2enum->put(sql, (int)String::Untaint_lang::SQL);
1.58      paf        59:        LOCAL_STRING(js, "js");
1.63      paf        60:        untaint_lang_name2enum->put(js, (int)String::Untaint_lang::JS);
1.58      paf        61:        LOCAL_STRING(html, "html");
1.63      paf        62:        untaint_lang_name2enum->put(html, (int)String::Untaint_lang::HTML);
1.58      paf        63:        LOCAL_STRING(html_typo, "html-typo");
1.63      paf        64:        untaint_lang_name2enum->put(html_typo, (int)String::Untaint_lang::HTML_TYPO);
1.50      paf        65: 
1.64      paf        66:        // read-only stateless classes
                     67:        initialize_string_class(pool, *(string_class=new(pool) VStateless_class(pool)));  string_class->freeze();
                     68:        initialize_double_class(pool, *(double_class=new(pool) VStateless_class(pool)));  double_class->freeze();
                     69:        initialize_int_class(pool, *(int_class=new(pool) VStateless_class(pool)));  int_class->freeze();
                     70:        initialize_table_class(pool, *(table_class=new(pool) VStateless_class(pool)));  table_class->freeze();
1.65    ! paf        71: 
        !            72:        // read-only stateless base classes
        !            73:        initialize_env_base_class(pool, *(env_base_class=new(pool) VStateless_class(pool)));  env_base_class->freeze();
        !            74:        initialize_form_base_class(pool, *(form_base_class=new(pool) VStateless_class(pool)));  form_base_class->freeze();
1.52      paf        75: 
                     76:        // request
1.24      paf        77:        Request request(pool);
                     78:        request.core();
1.23      paf        79: }
                     80: