void AbsFunction(
UDFContext *context,
CLIPSValue *returnValue)
{
/*======================================*/
/* Check that the argument is a number. */
/*======================================*/
if (! UDFNthArgument(context,1,NUMBER_TYPES,returnValue))
{ return; }
/*==========================================*/
/* Return the absolute value of the number. */
/*==========================================*/
if (mCVIsType(returnValue,INTEGER_TYPE))
{
CLIPSInteger lv = mCVToInteger(returnValue);
if (lv < 0L) mCVSetInteger(returnValue,-lv);
}
else
{
CLIPSFloat dv = mCVToFloat(returnValue);
if (dv < 0.0) mCVSetFloat(returnValue,-dv);
}
}
void FloatFunction(
UDFContext *context,
CLIPSValue *returnValue)
{
/*======================================*/
/* Check that the argument is a number. */
/*======================================*/
if (! UDFNthArgument(context,1,NUMBER_TYPES,returnValue))
{ return; }
/*=============================================*/
/* Convert an integer type to float, otherwise */
/* return the argument unchanged. */
/*=============================================*/
if (mCVIsType(returnValue,INTEGER_TYPE))
{ mCVSetFloat(returnValue,mCVToFloat(returnValue)); }
}
void IntegerFunction(
UDFContext *context,
CLIPSValue *returnValue)
{
/*======================================*/
/* Check that the argument is a number. */
/*======================================*/
if (! UDFNthArgument(context,1,NUMBER_TYPES,returnValue))
{ return; }
/*============================================*/
/* Convert a float type to integer, otherwise */
/* return the argument unchanged. */
/*============================================*/
if (mCVIsType(returnValue,FLOAT_TYPE))
{ mCVSetInteger(returnValue,mCVToInteger(returnValue)); }
}
Defmodule *GetModuleName(
UDFContext *context,
unsigned int whichArgument,
bool *error)
{
UDFValue returnValue;
Defmodule *theModule;
Environment *theEnv = context->environment;
const char *functionName = UDFContextFunctionName(context);
*error = false;
/*========================*/
/* Retrieve the argument. */
/*========================*/
if (! UDFNthArgument(context,1,SYMBOL_BIT,&returnValue))
{
*error = true;
return NULL;
}
/*=======================================*/
/* Check to see that the symbol actually */
/* corresponds to a defined module. */
/*=======================================*/
if ((theModule = FindDefmodule(theEnv,returnValue.lexemeValue->contents)) == NULL)
{
if (strcmp("*",returnValue.lexemeValue->contents) != 0)
{
ExpectedTypeError1(theEnv,functionName,whichArgument,"'defmodule name'");
*error = true;
}
return NULL;
}
/*=================================*/
/* Return a pointer to the module. */
/*=================================*/
return(theModule);
}
void *GetFactOrInstanceArgument(
UDFContext *context,
unsigned int thePosition,
UDFValue *item)
{
Environment *theEnv = context->environment;
#if DEFTEMPLATE_CONSTRUCT || OBJECT_SYSTEM
void *ptr;
#endif
/*==============================*/
/* Retrieve the first argument. */
/*==============================*/
UDFNthArgument(context,thePosition,ANY_TYPE_BITS,item);
/*==================================================*/
/* Fact and instance addresses are valid arguments. */
/*==================================================*/
if (CVIsType(item,FACT_ADDRESS_BIT))
{
if (item->factValue->garbage)
{
FactRetractedErrorMessage(theEnv,item->factValue);
return NULL;
}
return item->value;
}
else if (CVIsType(item,INSTANCE_ADDRESS_BIT))
{
if (item->instanceValue->garbage)
{
CantFindItemErrorMessage(theEnv,"instance",item->instanceValue->name->contents,false);
return NULL;
}
return item->value;
}
/*==================================================*/
/* An integer is a valid argument if it corresponds */
/* to the fact index of an existing fact. */
/*==================================================*/
#if DEFTEMPLATE_CONSTRUCT
else if (item->header->type == INTEGER_TYPE)
{
if ((ptr = (void *) FindIndexedFact(theEnv,item->integerValue->contents)) == NULL)
{
char tempBuffer[20];
gensprintf(tempBuffer,"f-%lld",item->integerValue->contents);
CantFindItemErrorMessage(theEnv,"fact",tempBuffer,false);
}
return ptr;
}
#endif
/*================================================*/
/* Instance names and symbols are valid arguments */
/* if they correspond to an existing instance. */
/*================================================*/
#if OBJECT_SYSTEM
else if (CVIsType(item,INSTANCE_NAME_BIT | SYMBOL_BIT))
{
if ((ptr = (void *) FindInstanceBySymbol(theEnv,item->lexemeValue)) == NULL)
{
CantFindItemErrorMessage(theEnv,"instance",item->lexemeValue->contents,false);
}
return ptr;
}
#endif
/*========================================*/
/* Any other type is an invalid argument. */
/*========================================*/
ExpectedTypeError2(theEnv,UDFContextFunctionName(context),thePosition);
return NULL;
}
