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 DefglobalBasicCommands( void *theEnv) { AddSaveFunction(theEnv,(char*)"defglobal",SaveDefglobals,40); EnvAddResetFunction(theEnv,(char*)"defglobal",ResetDefglobals,50); #if ! RUN_TIME EnvDefineFunction2(theEnv,(char*)"get-defglobal-list",'m',PTIEF GetDefglobalListFunction,(char*)"GetDefglobalListFunction",(char*)"01w"); EnvDefineFunction2(theEnv,(char*)"undefglobal",'v',PTIEF UndefglobalCommand,(char*)"UndefglobalCommand",(char*)"11w"); EnvDefineFunction2(theEnv,(char*)"defglobal-module",'w',PTIEF DefglobalModuleFunction,(char*)"DefglobalModuleFunction",(char*)"11w"); #if DEBUGGING_FUNCTIONS EnvDefineFunction2(theEnv,(char*)"list-defglobals",'v', PTIEF ListDefglobalsCommand,(char*)"ListDefglobalsCommand",(char*)"01w"); EnvDefineFunction2(theEnv,(char*)"ppdefglobal",'v',PTIEF PPDefglobalCommand,(char*)"PPDefglobalCommand",(char*)"11w"); AddWatchItem(theEnv,(char*)"globals",0,&WatchGlobals,0,DefglobalWatchAccess,DefglobalWatchPrint); #endif #if (BLOAD || BLOAD_ONLY || BLOAD_AND_BSAVE) DefglobalBinarySetup(theEnv); #endif #if CONSTRUCT_COMPILER && (! RUN_TIME) DefglobalCompilerSetup(theEnv); #endif #endif }