void
HASHinitialize() {
if( HASH_Table_fl.size_elt == 0 ) {
MEMinitialize( &HASH_Table_fl, sizeof( struct Hash_Table_ ), 50, 50 );
}
if( HASH_Element_fl.size_elt == 0 ) {
MEMinitialize( &HASH_Element_fl, sizeof( struct Element_ ), 500, 100 );
}
}
/** Initialize the Algorithm module. */
void ALGinitialize( void ) {
MEMinitialize( &FUNC_fl, sizeof( struct Function_ ), 100, 50 );
MEMinitialize( &RULE_fl, sizeof( struct Rule_ ), 100, 50 );
MEMinitialize( &PROC_fl, sizeof( struct Procedure_ ), 100, 50 );
MEMinitialize( &WHERE_fl, sizeof( struct Where_ ), 100, 50 );
OBJcreate( OBJ_RULE, SCOPE_get_symbol, "rule", OBJ_UNUSED_BITS );
OBJcreate( OBJ_PROCEDURE, SCOPE_get_symbol, "procedure", OBJ_PROCEDURE_BITS );
OBJcreate( OBJ_FUNCTION, SCOPE_get_symbol, "function", OBJ_FUNCTION_BITS );
OBJcreate( OBJ_WHERE, WHERE_get_symbol, "where", OBJ_WHERE_BITS );
}
void LISTinitialize( void ) {
MEMinitialize( &LINK_fl, sizeof( struct Link_ ), 500, 100 );
MEMinitialize( &LIST_fl, sizeof( struct Linked_List_ ), 100, 50 );
ERROR_empty_list = ERRORcreate( "Empty list in %s.", SEVERITY_ERROR );
}
void SCOPEinitialize( void ) {
OBJcreate( OBJ_SCHEMA, SCOPE_get_symbol, "schema", OBJ_SCHEMA_BITS );
MEMinitialize( &SCOPE_fl, sizeof( struct Scope_ ), 100, 50 );
}
/** Initialize the Case Item module. */
void CASE_ITinitialize( void ) {
MEMinitialize( &CASE_IT_fl, sizeof( struct Case_Item_ ), 500, 100 );
}
/** Initialize the Schema module. */
void SCHEMAinitialize( void ) {
OBJcreate( OBJ_RENAME, RENAME_get_symbol, "rename clause", OBJ_UNUSED_BITS );
MEMinitialize( &REN_fl, sizeof( struct Rename ), 30, 30 );
MEMinitialize( &SCHEMA_fl, sizeof( struct Schema_ ), 40, 20 );
}
