/*********************************************************** 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 }