static void ResetDefglobalAction(
struct constructHeader *theConstruct,
void *buffer)
{
#if MAC_MPW || MAC_MCW || IBM_MCW
#pragma unused(buffer)
#endif
struct defglobal *theDefglobal = (struct defglobal *) theConstruct;
DATA_OBJECT assignValue;
if (EvaluateExpression(theDefglobal->initial,&assignValue))
{
assignValue.type = SYMBOL;
assignValue.value = FalseSymbol;
}
QSetDefglobalValue(theDefglobal,&assignValue,FALSE);
}
void DefglobalSetValue(
Defglobal *theDefglobal,
CLIPSValue *vPtr)
{
UDFValue temp;
GCBlock gcb;
Environment *theEnv = theDefglobal->header.env;
/*=====================================*/
/* If embedded, clear the error flags. */
/*=====================================*/
if (EvaluationData(theEnv)->CurrentExpression == NULL)
{ ResetErrorFlags(theEnv); }
GCBlockStart(theEnv,&gcb);
CLIPSToUDFValue(vPtr,&temp);
QSetDefglobalValue(theEnv,theDefglobal,&temp,false);
GCBlockEnd(theEnv,&gcb);
}
globle void BindFunction(
DATA_OBJECT_PTR returnValue)
{
DATA_OBJECT *theBind, *lastBind;
int found = FALSE,
unbindVar = FALSE;
SYMBOL_HN *variableName = NULL;
#if DEFGLOBAL_CONSTRUCT
struct defglobal *theGlobal = NULL;
#endif
/*===============================================*/
/* Determine the name of the variable to be set. */
/*===============================================*/
#if DEFGLOBAL_CONSTRUCT
if (GetFirstArgument()->type == DEFGLOBAL_PTR)
{ theGlobal = (struct defglobal *) GetFirstArgument()->value; }
else
#endif
{
EvaluateExpression(GetFirstArgument(),returnValue);
variableName = (SYMBOL_HN *) DOPToPointer(returnValue);
}
/*===========================================*/
/* Determine the new value for the variable. */
/*===========================================*/
if (GetFirstArgument()->nextArg == NULL)
{ unbindVar = TRUE; }
else if (GetFirstArgument()->nextArg->nextArg == NULL)
{ EvaluateExpression(GetFirstArgument()->nextArg,returnValue); }
else
{ StoreInMultifield(returnValue,GetFirstArgument()->nextArg,TRUE); }
/*==================================*/
/* Bind a defglobal if appropriate. */
/*==================================*/
#if DEFGLOBAL_CONSTRUCT
if (theGlobal != NULL)
{
QSetDefglobalValue(theGlobal,returnValue,unbindVar);
return;
}
#endif
/*===============================================*/
/* Search for the variable in the list of binds. */
/*===============================================*/
theBind = BindList;
lastBind = NULL;
while ((theBind != NULL) && (found == FALSE))
{
if (theBind->supplementalInfo == (void *) variableName)
{ found = TRUE; }
else
{
lastBind = theBind;
theBind = theBind->next;
}
}
/*========================================================*/
/* If variable was not in the list of binds, then add it. */
/* Make sure that this operation preserves the bind list */
/* as a stack. */
/*========================================================*/
if (found == FALSE)
{
if (unbindVar == FALSE)
{
theBind = get_struct(dataObject);
theBind->supplementalInfo = (void *) variableName;
theBind->next = NULL;
if (lastBind == NULL)
{ BindList = theBind; }
else
{ lastBind->next = theBind; }
}
else
{
returnValue->type = SYMBOL;
returnValue->value = FalseSymbol;
return;
}
}
else
{ ValueDeinstall(theBind); }
/*================================*/
/* Set the value of the variable. */
/*================================*/
if (unbindVar == FALSE)
{
theBind->type = returnValue->type;
theBind->value = returnValue->value;
theBind->begin = returnValue->begin;
theBind->end = returnValue->end;
ValueInstall(returnValue);
}
else
{
if (lastBind == NULL) BindList = theBind->next;
else lastBind->next = theBind->next;
rtn_struct(dataObject,theBind);
returnValue->type = SYMBOL;
returnValue->value = FalseSymbol;
}
}
