/***********************************************************************************
NAME : MVSlotDeleteCommand
DESCRIPTION : Allows user to delete a specified field of a multi-value slot
The slot is directly read (w/o a get- message) and the new
slot-value is placed via a put- message.
This function is not valid for single-value slots.
INPUTS : Caller's result buffer
RETURNS : TRUE if multi-value slot successfully modified, FALSE otherwise
SIDE EFFECTS : Put message sent for slot
NOTES : H/L Syntax : (slot-delete$ <instance> <slot>
<range-begin> <range-end>)
***********************************************************************************/
globle void MVSlotDeleteCommand(
void *theEnv,
DATA_OBJECT *result)
{
DATA_OBJECT newseg,oldseg;
INSTANCE_TYPE *ins;
INSTANCE_SLOT *sp;
int rb,re;
EXPRESSION arg;
result->type = SYMBOL;
result->value = EnvFalseSymbol(theEnv);
ins = CheckMultifieldSlotInstance(theEnv,"slot-delete$");
if (ins == NULL)
return;
sp = CheckMultifieldSlotModify(theEnv,DELETE_OP,"slot-delete$",ins,
GetFirstArgument()->nextArg,&rb,&re,NULL);
if (sp == NULL)
return;
AssignSlotToDataObject(&oldseg,sp);
if (DeleteMultiValueField(theEnv,&newseg,&oldseg,rb,re,"slot-delete$") == FALSE)
return;
arg.type = MULTIFIELD;
arg.value = (void *) &newseg;
arg.nextArg = NULL;
arg.argList = NULL;
DirectMessage(theEnv,sp->desc->overrideMessage,ins,result,&arg);
}
/***********************************************************************************
NAME : MVSlotInsertCommand
DESCRIPTION : Allows user to insert a specified field of a multi-value slot
The slot is directly read (w/o a get- message) and the new
slot-value is placed via a put- message.
This function is not valid for single-value slots.
INPUTS : Caller's result buffer
RETURNS : TRUE if multi-value slot successfully modified, FALSE otherwise
SIDE EFFECTS : Put messsage sent for slot
NOTES : H/L Syntax : (slot-insert$ <instance> <slot> <index> <value>)
***********************************************************************************/
globle void MVSlotInsertCommand(
void *theEnv,
DATA_OBJECT *result)
{
DATA_OBJECT newval,newseg,oldseg;
INSTANCE_TYPE *ins;
INSTANCE_SLOT *sp;
long theIndex;
EXPRESSION arg;
result->type = SYMBOL;
result->value = EnvFalseSymbol(theEnv);
ins = CheckMultifieldSlotInstance(theEnv,(char*)"slot-insert$");
if (ins == NULL)
return;
sp = CheckMultifieldSlotModify(theEnv,INSERT,(char*)"slot-insert$",ins,
GetFirstArgument()->nextArg,&theIndex,NULL,&newval);
if (sp == NULL)
return;
AssignSlotToDataObject(&oldseg,sp);
if (InsertMultiValueField(theEnv,&newseg,&oldseg,theIndex,&newval,(char*)"slot-insert$") == FALSE)
return;
arg.type = MULTIFIELD;
arg.value = (void *) &newseg;
arg.nextArg = NULL;
arg.argList = NULL;
DirectMessage(theEnv,sp->desc->overrideMessage,ins,result,&arg);
}
/*****************************************************************
NAME : DirectMVDeleteCommand
DESCRIPTION : Directly deletes a slot's value
INPUTS : None
RETURNS : TRUE if put OK, FALSE otherwise
SIDE EFFECTS : Slot modified
NOTES : H/L Syntax: (direct-slot-delete$ <slot>
<range-begin> <range-end>)
*****************************************************************/
globle BOOLEAN DirectMVDeleteCommand(
void *theEnv)
{
INSTANCE_SLOT *sp;
INSTANCE_TYPE *ins;
int rb,re;
DATA_OBJECT newseg,oldseg;
if (CheckCurrentMessage(theEnv,"direct-slot-delete$",TRUE) == FALSE)
return(FALSE);
ins = GetActiveInstance(theEnv);
sp = CheckMultifieldSlotModify(theEnv,DELETE_OP,"direct-slot-delete$",ins,
GetFirstArgument(),&rb,&re,NULL);
if (sp == NULL)
return(FALSE);
AssignSlotToDataObject(&oldseg,sp);
if (DeleteMultiValueField(theEnv,&newseg,&oldseg,rb,re,"direct-slot-delete$")
== FALSE)
return(FALSE);
if (PutSlotValue(theEnv,ins,sp,&newseg,&oldseg,"function direct-slot-delete$"))
return(TRUE);
return(FALSE);
}
/************************************************************************
NAME : DirectMVInsertCommand
DESCRIPTION : Directly inserts a slot's value
INPUTS : None
RETURNS : TRUE if put OK, FALSE otherwise
SIDE EFFECTS : Slot modified
NOTES : H/L Syntax: (direct-slot-insert$ <slot> <index> <value>)
************************************************************************/
globle BOOLEAN DirectMVInsertCommand(
void *theEnv)
{
INSTANCE_SLOT *sp;
INSTANCE_TYPE *ins;
int theIndex;
DATA_OBJECT newval,newseg,oldseg;
if (CheckCurrentMessage(theEnv,"direct-slot-insert$",TRUE) == FALSE)
return(FALSE);
ins = GetActiveInstance(theEnv);
sp = CheckMultifieldSlotModify(theEnv,INSERT,"direct-slot-insert$",ins,
GetFirstArgument(),&theIndex,NULL,&newval);
if (sp == NULL)
return(FALSE);
AssignSlotToDataObject(&oldseg,sp);
if (InsertMultiValueField(theEnv,&newseg,&oldseg,theIndex,&newval,"direct-slot-insert$")
== FALSE)
return(FALSE);
if (PutSlotValue(theEnv,ins,sp,&newseg,&newval,"function direct-slot-insert$"))
return(TRUE);
return(FALSE);
}
/*****************************************************************
NAME : DirectMVReplaceCommand
DESCRIPTION : Directly replaces a slot's value
INPUTS : None
RETURNS : TRUE if put OK, FALSE otherwise
SIDE EFFECTS : Slot modified
NOTES : H/L Syntax: (direct-slot-replace$ <slot>
<range-begin> <range-end> <value>)
*****************************************************************/
globle intBool DirectMVReplaceCommand(
void *theEnv)
{
INSTANCE_SLOT *sp;
INSTANCE_TYPE *ins;
long rb,re;
DATA_OBJECT newval,newseg,oldseg;
if (CheckCurrentMessage(theEnv,(char*)"direct-slot-replace$",TRUE) == FALSE)
return(FALSE);
ins = GetActiveInstance(theEnv);
sp = CheckMultifieldSlotModify(theEnv,REPLACE,(char*)"direct-slot-replace$",ins,
GetFirstArgument(),&rb,&re,&newval);
if (sp == NULL)
return(FALSE);
AssignSlotToDataObject(&oldseg,sp);
if (ReplaceMultiValueField(theEnv,&newseg,&oldseg,rb,re,&newval,(char*)"direct-slot-replace$")
== FALSE)
return(FALSE);
if (PutSlotValue(theEnv,ins,sp,&newseg,&newval,(char*)"function direct-slot-replace$"))
return(TRUE);
return(FALSE);
}