/***********************************************************
NAME : SetupObjectsBload
DESCRIPTION : Initializes data structures and
routines for binary loads of
generic function constructs
INPUTS : None
RETURNS : Nothing useful
SIDE EFFECTS : Routines defined and structures initialized
NOTES : None
***********************************************************/
globle void SetupObjectsBload()
{
AddAbortBloadFunction("defclass",CreateSystemClasses,0);
#if BLOAD_AND_BSAVE
AddBinaryItem("defclass",0,BsaveObjectsFind,BsaveObjectsExpressions,
BsaveStorageObjects,BsaveObjects,
BloadStorageObjects,BloadObjects,
ClearBloadObjects);
#endif
#if BLOAD || BLOAD_ONLY
AddBinaryItem("defclass",0,NULL,NULL,NULL,NULL,
BloadStorageObjects,BloadObjects,
ClearBloadObjects);
#endif
}
globle void DefmoduleBinarySetup()
{
AddBeforeBloadFunction("defmodule",RemoveAllDefmodules,2000);
#if BLOAD_AND_BSAVE
AddBinaryItem("defmodule",0,BsaveFind,NULL,
BsaveStorage,BsaveBinaryItem,
BloadStorage,BloadBinaryItem,
ClearBload);
#endif
AddAbortBloadFunction("defmodule",CreateMainModule,0);
#if (BLOAD || BLOAD_ONLY)
AddBinaryItem("defmodule",0,NULL,NULL,NULL,NULL,
BloadStorage,BloadBinaryItem,
ClearBload);
#endif
}
