/****************************************************************************
**
*F InitKernel( <module> ) . . . . . . . . initialise kernel data structures
*/
static Int InitKernel (
StructInitInfo * module )
{
/* install the marking and sweeping methods */
InfoBags[ T_WPOBJ ].name = "object (weakptr)";
InfoBags[ T_WPOBJ +COPYING ].name = "object (weakptr, copied)";
InitMarkFuncBags ( T_WPOBJ, MarkWeakPointerObj );
InitSweepFuncBags( T_WPOBJ, SweepWeakPointerObj );
InitMarkFuncBags ( T_WPOBJ +COPYING, MarkWeakPointerObj );
InitSweepFuncBags( T_WPOBJ +COPYING, SweepWeakPointerObj );
/* typing method */
TypeObjFuncs[ T_WPOBJ ] = TypeWPObj;
ImportGVarFromLibrary( "TYPE_WPOBJ", &TYPE_WPOBJ );
/* init filters and functions */
InitHdlrFiltsFromTable( GVarFilts );
InitHdlrFuncsFromTable( GVarFuncs );
/* saving function */
SaveObjFuncs[ T_WPOBJ ] = SaveWPObj;
LoadObjFuncs[ T_WPOBJ ] = LoadWPObj;
/* copying functions */
CopyObjFuncs[ T_WPOBJ ] = CopyObjWPObj;
CopyObjFuncs[ T_WPOBJ + COPYING ] = CopyObjWPObjCopy;
CleanObjFuncs[ T_WPOBJ ] = CleanObjWPObj;
CleanObjFuncs[ T_WPOBJ + COPYING ] = CleanObjWPObjCopy;
MakeImmutableObjFuncs[ T_WPOBJ ] = MakeImmutableWPObj;
/* return success */
return 0;
}
/****************************************************************************
**
*F InitKernel( <module> ) . . . . . . . . initialise kernel data structures
*/
static Int InitKernel (
StructInitInfo * module )
{
Int EqObject (Obj,Obj);
/* install the marking functions for macfloatean values */
InfoBags[ T_MACFLOAT ].name = "macfloat";
InitMarkFuncBags( T_MACFLOAT, MarkNoSubBags );
MakeBagTypePublic( T_MACFLOAT );
/* init functions */
InitHdlrFuncsFromTable( GVarFuncs );
/* install the type function */
ImportGVarFromLibrary( "TYPE_MACFLOAT", &TYPE_MACFLOAT );
TypeObjFuncs[ T_MACFLOAT ] = TypeMacfloat;
/* install the saving functions */
SaveObjFuncs[ T_MACFLOAT ] = SaveMacfloat;
/* install the loading functions */
LoadObjFuncs[ T_MACFLOAT ] = LoadMacfloat;
/* install the printer for macfloatean values */
PrintObjFuncs[ T_MACFLOAT ] = PrintMacfloat;
/* install the comparison functions */
EqFuncs[ T_MACFLOAT ][ T_MACFLOAT ] = EqMacfloat;
LtFuncs[ T_MACFLOAT ][ T_MACFLOAT ] = LtMacfloat;
/* allow method selection to protest against comparisons of float and int */
{
int t;
for (t = T_INT; t <= T_CYC; t++)
EqFuncs[T_MACFLOAT][t] = EqFuncs[t][T_MACFLOAT] = EqObject;
}
/* install the unary arithmetic methods */
ZeroFuncs[ T_MACFLOAT ] = ZeroMacfloat;
ZeroMutFuncs[ T_MACFLOAT ] = ZeroMacfloat;
AInvMutFuncs[ T_MACFLOAT ] = AInvMacfloat;
OneFuncs [ T_MACFLOAT ] = OneMacfloat;
OneMutFuncs [ T_MACFLOAT ] = OneMacfloat;
InvFuncs [ T_MACFLOAT ] = InvMacfloat;
/* install binary arithmetic methods */
ProdFuncs[ T_MACFLOAT ][ T_MACFLOAT ] = ProdMacfloat;
PowFuncs [ T_MACFLOAT ][ T_MACFLOAT ] = PowMacfloat;
SumFuncs[ T_MACFLOAT ][ T_MACFLOAT ] = SumMacfloat;
DiffFuncs [ T_MACFLOAT ][ T_MACFLOAT ] = DiffMacfloat;
QuoFuncs [ T_MACFLOAT ][ T_MACFLOAT ] = QuoMacfloat;
LQuoFuncs [ T_MACFLOAT ][ T_MACFLOAT ] = LQuoMacfloat;
ModFuncs [ T_MACFLOAT ][ T_MACFLOAT ] = ModMacfloat;
SumFuncs [ T_INT ][ T_MACFLOAT ] = SumIntMacfloat;
/* Probably support mixed ops with small ints in the kernel as well
on any reasonable system, all small ints should have macfloat equivalents
Anything else, like mixed ops with rationals, we can leave to the library
at least for a while */
/* return success */
return 0;
}
