/* 'InitKernel' sets up data structures, fopies, copies, handlers */ static Int InitKernel ( StructInitInfo * module ) { /* global variables used in handlers */ InitFopyGVar( "Print", &GF_Print ); InitFopyGVar( "f1", &GF_f1 ); InitFopyGVar( "f2", &GF_f2 ); InitFopyGVar( "f3", &GF_f3 ); InitFopyGVar( "f4", &GF_f4 ); /* information for the functions */ InitGlobalBag( &FileName, "function_types.g:FileName("FILE_CRC")" ); InitHandlerFunc( HdlrFunc1, "function_types.g:HdlrFunc1("FILE_CRC")" ); InitGlobalBag( &(NameFunc[1]), "function_types.g:NameFunc[1]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc2, "function_types.g:HdlrFunc2("FILE_CRC")" ); InitGlobalBag( &(NameFunc[2]), "function_types.g:NameFunc[2]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc3, "function_types.g:HdlrFunc3("FILE_CRC")" ); InitGlobalBag( &(NameFunc[3]), "function_types.g:NameFunc[3]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc4, "function_types.g:HdlrFunc4("FILE_CRC")" ); InitGlobalBag( &(NameFunc[4]), "function_types.g:NameFunc[4]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc5, "function_types.g:HdlrFunc5("FILE_CRC")" ); InitGlobalBag( &(NameFunc[5]), "function_types.g:NameFunc[5]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc6, "function_types.g:HdlrFunc6("FILE_CRC")" ); InitGlobalBag( &(NameFunc[6]), "function_types.g:NameFunc[6]("FILE_CRC")" ); /* return success */ return 0; }
/**************************************************************************** ** *F InitKernel( <module> ) . . . . . . . . initialise kernel data structures */ static Int InitKernel ( StructInitInfo * module ) { Int t1; Int t2; /* install the arithmetic operation methods */ for (t1 = T_PLIST_FFE; t1 <= T_PLIST_FFE + IMMUTABLE; t1++) { SumFuncs[ T_FFE ][ t1 ] = SumFFEVecFFE; SumFuncs[ t1 ][ T_FFE ] = SumVecFFEFFE; DiffFuncs[ T_FFE ][ t1 ] = DiffFFEVecFFE; DiffFuncs[ t1 ][ T_FFE ] = DiffVecFFEFFE; ProdFuncs[ T_FFE ][ t1 ] = ProdFFEVecFFE; ProdFuncs[ t1 ][ T_FFE ] = ProdVecFFEFFE; ZeroFuncs[ t1 ] = ZeroVecFFE; ZeroMutFuncs[ t1 ] = ZeroMutVecFFE; } for (t1 = T_PLIST_FFE; t1 <= T_PLIST_FFE + IMMUTABLE; t1++) { for (t2 = T_PLIST_FFE; t2 <= T_PLIST_FFE + IMMUTABLE; t2++) { SumFuncs[ t1 ][ t2 ] = SumVecFFEVecFFE; DiffFuncs[ t1 ][ t2 ] = DiffVecFFEVecFFE; ProdFuncs[ t1 ][ t2 ] = ProdVecFFEVecFFE; } } InitHdlrFuncsFromTable(GVarFuncs); InitFopyGVar("AddRowVector", &AddRowVectorOp); /* return success */ return 0; }
/** The first function to be called when the library is loaded by the kernel. **/ static Int InitKernel(StructInitInfo* module) { /* init filters and functions */ InitHdlrFuncsFromTable( GVarFuncs ); InitFopyGVar( "IntFFE", &GF_IntFFE ); /* return success */ return 0; }
/* 'InitKernel' sets up data structures, fopies, copies, handlers */ static Int InitKernel ( StructInitInfo * module ) { /* global variables used in handlers */ InitFopyGVar( "Print", &GF_Print ); InitFopyGVar( "Group", &GF_Group ); /* information for the functions */ InitGlobalBag( &FileName, "print_various.g:FileName("FILE_CRC")" ); InitHandlerFunc( HdlrFunc1, "print_various.g:HdlrFunc1("FILE_CRC")" ); InitGlobalBag( &(NameFunc[1]), "print_various.g:NameFunc[1]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc2, "print_various.g:HdlrFunc2("FILE_CRC")" ); InitGlobalBag( &(NameFunc[2]), "print_various.g:NameFunc[2]("FILE_CRC")" ); /* return success */ return 0; }
/* 'InitKernel' sets up data structures, fopies, copies, handlers */ static Int InitKernel ( StructInitInfo * module ) { /* global variables used in handlers */ InitFopyGVar( "CALL_WITH_CATCH", &GF_CALL__WITH__CATCH ); InitCopyGVar( "range2", &GC_range2 ); InitCopyGVar( "range3", &GC_range3 ); InitFopyGVar( "Display", &GF_Display ); /* information for the functions */ InitGlobalBag( &FileName, "ranges.g:FileName("FILE_CRC")" ); InitHandlerFunc( HdlrFunc1, "ranges.g:HdlrFunc1("FILE_CRC")" ); InitGlobalBag( &(NameFunc[1]), "ranges.g:NameFunc[1]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc2, "ranges.g:HdlrFunc2("FILE_CRC")" ); InitGlobalBag( &(NameFunc[2]), "ranges.g:NameFunc[2]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc3, "ranges.g:HdlrFunc3("FILE_CRC")" ); InitGlobalBag( &(NameFunc[3]), "ranges.g:NameFunc[3]("FILE_CRC")" ); InitHandlerFunc( HdlrFunc4, "ranges.g:HdlrFunc4("FILE_CRC")" ); InitGlobalBag( &(NameFunc[4]), "ranges.g:NameFunc[4]("FILE_CRC")" ); /* return success */ return 0; }
/* 'InitKernel' sets up data structures, fopies, copies, handlers */ static Int InitKernel ( StructInitInfo * module ) { /* global variables used in handlers */ InitFopyGVar( "IS_FUNCTION", &GF_IS__FUNCTION ); InitFopyGVar( "ADD_LIST", &GF_ADD__LIST ); InitFopyGVar( "Error", &GF_Error ); InitFopyGVar( "IS_IDENTICAL_OBJ", &GF_IS__IDENTICAL__OBJ ); InitFopyGVar( "AND_FLAGS", &GF_AND__FLAGS ); InitFopyGVar( "HASH_FLAGS", &GF_HASH__FLAGS ); InitFopyGVar( "WITH_HIDDEN_IMPS_FLAGS", &GF_WITH__HIDDEN__IMPS__FLAGS ); InitFopyGVar( "IS_SUBSET_FLAGS", &GF_IS__SUBSET__FLAGS ); InitFopyGVar( "TRUES_FLAGS", &GF_TRUES__FLAGS ); InitFopyGVar( "FLAGS_FILTER", &GF_FLAGS__FILTER ); InitCopyGVar( "IMPLICATIONS", &GC_IMPLICATIONS ); InitCopyGVar( "WITH_IMPS_FLAGS_CACHE", &GC_WITH__IMPS__FLAGS__CACHE ); InitCopyGVar( "WITH_IMPS_FLAGS_COUNT", &GC_WITH__IMPS__FLAGS__COUNT ); InitCopyGVar( "WITH_IMPS_FLAGS_CACHE_HIT", &GC_WITH__IMPS__FLAGS__CACHE__HIT ); InitCopyGVar( "WITH_IMPS_FLAGS_CACHE_MISS", &GC_WITH__IMPS__FLAGS__CACHE__MISS ); InitFopyGVar( "BIND_GLOBAL", &GF_BIND__GLOBAL ); InitFopyGVar( "UNBIND_GLOBAL", &GF_UNBIND__GLOBAL ); InitCopyGVar( "RANK_FILTERS", &GC_RANK__FILTERS ); InitCopyGVar( "RANK_FILTER", &GC_RANK__FILTER ); InitFopyGVar( "RANK_FILTER", &GF_RANK__FILTER ); InitCopyGVar( "RANK_FILTER_LIST_CURRENT", &GC_RANK__FILTER__LIST__CURRENT ); InitCopyGVar( "RANK_FILTER_LIST", &GC_RANK__FILTER__LIST ); InitCopyGVar( "RANK_FILTER_COUNT", &GC_RANK__FILTER__COUNT ); /* information for the functions */ InitGlobalBag( &DefaultName, "GAPROOT/lib/filter1.g:DefaultName(118753041)" ); InitGlobalBag( &FileName, "GAPROOT/lib/filter1.g:FileName(118753041)" ); InitHandlerFunc( HdlrFunc1, "GAPROOT/lib/filter1.g:HdlrFunc1(118753041)" ); InitGlobalBag( &(NameFunc[1]), "GAPROOT/lib/filter1.g:NameFunc[1](118753041)" ); InitHandlerFunc( HdlrFunc2, "GAPROOT/lib/filter1.g:HdlrFunc2(118753041)" ); InitGlobalBag( &(NameFunc[2]), "GAPROOT/lib/filter1.g:NameFunc[2](118753041)" ); InitHandlerFunc( HdlrFunc3, "GAPROOT/lib/filter1.g:HdlrFunc3(118753041)" ); InitGlobalBag( &(NameFunc[3]), "GAPROOT/lib/filter1.g:NameFunc[3](118753041)" ); InitHandlerFunc( HdlrFunc4, "GAPROOT/lib/filter1.g:HdlrFunc4(118753041)" ); InitGlobalBag( &(NameFunc[4]), "GAPROOT/lib/filter1.g:NameFunc[4](118753041)" ); InitHandlerFunc( HdlrFunc5, "GAPROOT/lib/filter1.g:HdlrFunc5(118753041)" ); InitGlobalBag( &(NameFunc[5]), "GAPROOT/lib/filter1.g:NameFunc[5](118753041)" ); InitHandlerFunc( HdlrFunc6, "GAPROOT/lib/filter1.g:HdlrFunc6(118753041)" ); InitGlobalBag( &(NameFunc[6]), "GAPROOT/lib/filter1.g:NameFunc[6](118753041)" ); /* return success */ return 0; }