/***********************************************************
NAME : EnvUndefmessageHandler
DESCRIPTION : Deletes a handler from a class
INPUTS : 1) Class address (Can be NULL)
2) Handler index (can be 0)
RETURNS : 1 if successful, 0 otherwise
SIDE EFFECTS : Handler deleted if possible
NOTES : None
***********************************************************/
globle int EnvUndefmessageHandler(
void *theEnv,
void *vptr,
unsigned mhi)
{
#if (MAC_MCW || IBM_MCW) && (RUN_TIME || BLOAD_ONLY)
#pragma unused(vptr)
#pragma unused(mhi)
#endif
#if RUN_TIME || BLOAD_ONLY
PrintErrorID(theEnv,"MSGCOM",3,FALSE);
EnvPrintRouter(theEnv,WERROR,"Unable to delete message-handlers.\n");
return(0);
#else
DEFCLASS *cls;
#if BLOAD || BLOAD_AND_BSAVE
if (Bloaded(theEnv))
{
PrintErrorID(theEnv,"MSGCOM",3,FALSE);
EnvPrintRouter(theEnv,WERROR,"Unable to delete message-handlers.\n");
return(0);
}
#endif
if (vptr == NULL)
{
if (mhi != 0)
{
PrintErrorID(theEnv,"MSGCOM",1,FALSE);
EnvPrintRouter(theEnv,WERROR,"Incomplete message-handler specification for deletion.\n");
return(0);
}
return(WildDeleteHandler(theEnv,NULL,NULL,NULL));
}
if (mhi == 0)
return(WildDeleteHandler(theEnv,(DEFCLASS *) vptr,NULL,NULL));
cls = (DEFCLASS *) vptr;
if (HandlersExecuting(cls))
{
HandlerDeleteError(theEnv,EnvGetDefclassName(theEnv,(void *) cls));
return(0);
}
cls->handlers[mhi-1].mark = 1;
DeallocateMarkedHandlers(theEnv,cls);
return(1);
#endif
}
/*********************************************************************
NAME : DeleteHandler
DESCRIPTION : Deletes one or more message-handlers
from a class definition
INPUTS : 1) The class address
2) The message-handler name
(if this is * and there is no handler
called *, then the delete operations
will be applied to all handlers matching the type
3) The message-handler type
(if this is -1, then the delete operations will be
applied to all handlers matching the name
4) A flag saying whether to print error messages when
handlers are not found meeting specs
RETURNS : 1 if successful, 0 otherwise
SIDE EFFECTS : Handlers deleted
NOTES : If any handlers for the class are
currently executing, this routine
will fail
**********************************************************************/
globle int DeleteHandler(
void *theEnv,
EXEC_STATUS,
DEFCLASS *cls,
SYMBOL_HN *mname,
int mtype,
int indicate_missing)
{
long i;
HANDLER *hnd;
int found,success = 1;
if (cls->handlerCount == 0)
{
if (indicate_missing)
{
HandlerDeleteError(theEnv,execStatus,EnvGetDefclassName(theEnv,execStatus,(void *) cls));
return(0);
}
return(1);
}
if (HandlersExecuting(cls))
{
HandlerDeleteError(theEnv,execStatus,EnvGetDefclassName(theEnv,execStatus,(void *) cls));
return(0);
}
if (mtype == -1)
{
found = FALSE;
for (i = MAROUND ; i <= MAFTER ; i++)
{
hnd = FindHandlerByAddress(cls,mname,(unsigned) i);
if (hnd != NULL)
{
found = TRUE;
if (hnd->system == 0)
hnd->mark = 1;
else
{
PrintErrorID(theEnv,execStatus,"MSGPSR",3,FALSE);
EnvPrintRouter(theEnv,execStatus,WERROR,"System message-handlers may not be modified.\n");
success = 0;
}
}
}
if ((found == FALSE) ? (strcmp(ValueToString(mname),"*") == 0) : FALSE)
{
for (i = 0 ; i < cls->handlerCount ; i++)
if (cls->handlers[i].system == 0)
cls->handlers[i].mark = 1;
}
}
else
{
hnd = FindHandlerByAddress(cls,mname,(unsigned) mtype);
if (hnd == NULL)
{
if (strcmp(ValueToString(mname),"*") == 0)
{
for (i = 0 ; i < cls->handlerCount ; i++)
if ((cls->handlers[i].type == (unsigned) mtype) &&
(cls->handlers[i].system == 0))
cls->handlers[i].mark = 1;
}
else
{
if (indicate_missing)
HandlerDeleteError(theEnv,execStatus,EnvGetDefclassName(theEnv,execStatus,(void *) cls));
success = 0;
}
}
else if (hnd->system == 0)
hnd->mark = 1;
else
{
if (indicate_missing)
{
PrintErrorID(theEnv,execStatus,"MSGPSR",3,FALSE);
EnvPrintRouter(theEnv,execStatus,WERROR,"System message-handlers may not be modified.\n");
}
success = 0;
}
}
DeallocateMarkedHandlers(theEnv,execStatus,cls);
return(success);
}
