globle void DefglobalBasicCommands()
{
AddSaveFunction("defglobal",SaveDefglobals,40);
AddResetFunction("defglobal",ResetDefglobals,50);
#if ! RUN_TIME
DefineFunction2("get-defglobal-list",'m',PTIF GetDefglobalListFunction,"GetDefglobalListFunction","01w");
DefineFunction2("undefglobal",'v',PTIF UndefglobalCommand,"UndefglobalCommand","11w");
DefineFunction2("defglobal-module",'w',PTIF DefglobalModuleFunction,"DefglobalModuleFunction","11w");
#if DEBUGGING_FUNCTIONS
DefineFunction2("list-defglobals",'v', PTIF ListDefglobalsCommand,"ListDefglobalsCommand","01w");
DefineFunction2("ppdefglobal",'v',PTIF PPDefglobalCommand,"PPDefglobalCommand","11w");
AddWatchItem("globals",0,&WatchGlobals,0,DefglobalWatchAccess,DefglobalWatchPrint);
#endif
#if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE)
DefglobalBinarySetup();
#endif
#if CONSTRUCT_COMPILER && (! RUN_TIME)
DefglobalCompilerSetup();
#endif
#endif
}
globle void DeftemplateBasicCommands()
{
AddResetFunction("deftemplate",ResetDeftemplates,0);
AddClearFunction("deftemplate",ClearDeftemplates,0);
AddSaveFunction("deftemplate",SaveDeftemplates,10);
#if ! RUN_TIME
DefineFunction2("get-deftemplate-list",'m',PTIF GetDeftemplateListFunction,"GetDeftemplateListFunction","01w");
DefineFunction2("undeftemplate",'v',PTIF UndeftemplateCommand,"UndeftemplateCommand","11w");
DefineFunction2("deftemplate-module",'w',PTIF DeftemplateModuleFunction,"DeftemplateModuleFunction","11w");
#if DEBUGGING_FUNCTIONS
DefineFunction2("list-deftemplates",'v', PTIF ListDeftemplatesCommand,"ListDeftemplatesCommand","01w");
DefineFunction2("ppdeftemplate",'v',PTIF PPDeftemplateCommand,"PPDeftemplateCommand","11w");
#endif
#if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE)
DeftemplateBinarySetup();
#endif
#if CONSTRUCT_COMPILER && (! RUN_TIME)
DeftemplateCompilerSetup();
#endif
#endif
}
globle void DefruleBasicCommands()
{
AddResetFunction("defrule",ResetDefrules,70);
AddSaveFunction("defrule",SaveDefrules,0);
#if (! RUN_TIME)
AddClearReadyFunction("defrule",ClearDefrulesReady,0);
AddClearFunction("defrule",ClearDefrules,0);
#endif
#if DEBUGGING_FUNCTIONS
AddWatchItem("rules",0,&WatchRules,70,DefruleWatchAccess,DefruleWatchPrint);
#endif
#if ! RUN_TIME
DefineFunction2("get-defrule-list",'m',PTIF GetDefruleListFunction,"GetDefruleListFunction","01w");
DefineFunction2("undefrule",'v',PTIF UndefruleCommand,"UndefruleCommand","11w");
DefineFunction2("defrule-module",'w',PTIF DefruleModuleFunction,"DefruleModuleFunction","11w");
#if DEBUGGING_FUNCTIONS
DefineFunction2("rules",'v', PTIF ListDefrulesCommand,"ListDefrulesCommand","01w");
DefineFunction2("list-defrules",'v', PTIF ListDefrulesCommand,"ListDefrulesCommand","01w");
DefineFunction2("ppdefrule",'v',PTIF PPDefruleCommand,"PPDefruleCommand","11w");
#endif
#if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE)
DefruleBinarySetup();
#endif
#if CONSTRUCT_COMPILER && (! RUN_TIME)
DefruleCompilerSetup();
#endif
#endif
}
globle void InitializeFacts()
{
/*=========================================*/
/* Initialize the fact hash table (used to */
/* quickly determine if a fact exists). */
/*=========================================*/
InitializeFactHashTable();
/*============================================*/
/* Initialize the fact callback functions for */
/* use with the reset and clear commands. */
/*============================================*/
AddResetFunction("facts",ResetFacts,60);
AddClearReadyFunction("facts",ClearFactsReady,0);
/*=============================*/
/* Initialize periodic garbage */
/* collection for facts. */
/*=============================*/
AddCleanupFunction("facts",RemoveGarbageFacts,0);
/*===================================*/
/* Initialize fact pattern matching. */
/*===================================*/
InitializeFactPatterns();
/*==================================*/
/* Initialize the facts keyword for */
/* use with the watch command. */
/*==================================*/
#if DEBUGGING_FUNCTIONS
AddWatchItem("facts",0,&WatchFacts,80,DeftemplateWatchAccess,DeftemplateWatchPrint);
#endif
/*=========================================*/
/* Initialize fact commands and functions. */
/*=========================================*/
FactCommandDefinitions();
FactFunctionDefinitions();
/*==================================*/
/* Initialize fact patterns for use */
/* with the bload/bsave commands. */
/*==================================*/
#if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE) && (! RUN_TIME)
FactBinarySetup();
#endif
/*===================================*/
/* Initialize fact patterns for use */
/* with the constructs-to-c command. */
/*===================================*/
#if CONSTRUCT_COMPILER && (! RUN_TIME)
FactPatternsCompilerSetup();
#endif
}
