Return to pa_globals.C CVS log

Up to [parser3project] / parser3 / src / main

Annotation of parser3/src/main/pa_globals.C, revision 1.1

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