void deliverDispatch(DISPATCH_PTR dispatch)
{
char *data;
DATA_MSG_PTR newDataMsg;
X_IPC_MSG_CLASS_TYPE msg_class;
CLASS_FORM_PTR classForm;
data = NULL;
dispatchUpdateAndDisplay(AttendingDispatch, dispatch);
if (dispatch->des == GET_S_GLOBAL(x_ipcServerModGlobal)) {
if (monitorClass(dispatch->msg->msgData->msg_class)) {
data = dispatch->classData;
} else {
data = (char *)x_ipc_dataMsgDecodeMsg(dispatch->msg->msgData->msgFormat,
DISPATCH_MSG_DATA(dispatch),TRUE);
}
(*dispatch->hnd->hndProc)(dispatch, data);
if (dispatch->msg_class == InformClass) {
dispatchUpdateAndDisplay(HandledDispatch, dispatch);
}
} else {
if (dispatch->hnd->msg != dispatch->msg) {
/* handler to recieve new message */
msg_class = ExecHndClass;
classForm = GET_CLASS_FORMAT(&msg_class);
if (!classForm)
X_IPC_ERROR("ERROR: deliverDispatch: missing ExecHndClass class format.");
newDataMsg =
x_ipc_dataMsgReplaceClassData(classForm->format,
(char*)&dispatch->msg->msgData->name,
dispatch->msgData,
dispatch->msg->msgData->msgFormat
);
/* 31-Oct-90: fedor: the x_ipc_dataMsgReplaceClassData routine calls
x_ipc_dataMsgFree - this avoids calling it twice and gets the
refs correct. blah! */
dispatch->msgData = NULL;
dispatchSetMsgData(newDataMsg, dispatch);
}
else {
/* The datamags may already have old class data.
Since class data follows message data, this
will prevent old class data from being sent. */
dispatch->msgData->classTotal = 0;
}
dispatch->msgData->intent = dispatch->hnd->hndData->refId;
dispatch->msgData->msgRef = dispatch->locId;
(void)x_ipc_dataMsgSend(dispatch->desId, dispatch->msgData);
}
}
DISPATCH_PTR dispatchCopy(DISPATCH_PTR dispatch)
{
DISPATCH_PTR newDispatch;
int32 locId;
newDispatch = dispatchAllocate();
locId = newDispatch->locId;
BCOPY((char *)dispatch, (char *)newDispatch, sizeof(DISPATCH_TYPE));
DISPATCH_MSG_DATA(newDispatch) = NULL;
dispatchSetMsgData(DISPATCH_MSG_DATA(dispatch), newDispatch);
newDispatch->locId = locId;
return newDispatch;
}
DISPATCH_PTR buildDispatchInternal(MSG_PTR msg, DATA_MSG_PTR dataMsg,
void *classData,
DISPATCH_PTR parentDispatch,
RESP_PROC_FN resProc, void *resData)
{
int32 savedRef;
DISPATCH_PTR dispatch;
if (!msg) {
X_IPC_ERROR("ERROR: sendDataMsg: NULL msg.\n");
}
/* save the message ref to use in case x_ipc_msgFind triggers
a recursive call to x_ipc_sendMessage */
savedRef = x_ipc_nextSendMessageRef();
dispatch = dispatchAllocate();
dispatch->msg = msg;
dispatch->org = GET_S_GLOBAL(x_ipcServerModGlobal);
dispatch->orgId = GET_C_GLOBAL(serverWrite);
dispatch->refId = savedRef;
dispatchSetMsgData(dataMsg, dispatch);
if (resProc) {
dispatch->respProc = resProc;
dispatch->respData = (char *)resData;
}
if (parentDispatch)
dispatch->pRef = parentDispatch->locId;
dispatch->msg_class = msg->msgData->msg_class;
dispatch->classData = (char *)classData;
return dispatch;
}
void recvMessageBuild(MODULE_PTR module, DATA_MSG_PTR dataMsg)
{
char *classData;
MSG_PTR msg = NULL;
DISPATCH_PTR dispatch;
X_IPC_MSG_CLASS_TYPE msg_class;
CLASS_FORM_PTR classForm;
CONST_FORMAT_PTR classFormat = NULL;
if (dataMsg->intent != NO_REF)
msg = (MSG_PTR)idTableItem(ABS(dataMsg->intent), GET_C_GLOBAL(msgIdTable));
msg_class = (X_IPC_MSG_CLASS_TYPE)dataMsg->classId;
classForm = GET_CLASS_FORMAT(&msg_class);
if (classForm)
classFormat = classForm->format;
classData = (char *)x_ipc_dataMsgDecodeClass(classFormat, dataMsg);
if (dataMsg->dispatchRef != NO_REF) {
dispatch = DISPATCH_FROM_ID(dataMsg->dispatchRef);
} else {
dispatch = dispatchAllocate();
dispatch->msg = msg;
dispatch->org = module;
dispatch->orgId = module->readSd;
dispatch->refId = dataMsg->msgRef;
dispatch->pRef = dataMsg->parentRef;
}
if (dispatch == NULL)
/* Probably a reply that was not needed */
return;
if (dataMsg->msgRef == NO_REF)
dispatchSetResData(dataMsg, dispatch);
else
dispatchSetMsgData(dataMsg, dispatch);
/* 22-May-91: fedor: NOTE: class and classData will change if this
is a previously created dispatch. This may be undesired for
behavior for a x_ipc_sendResponse call that refers to a previously
created dispatch. */
/* 3-Jul-91: reid: Clean up previous class data,
except for command class data, which is stored in blockCom */
if (dispatch->classData && dispatch->msg_class != CommandClass)
x_ipc_classDataFree(dispatch->msg_class, dispatch->classData);
/* RGS 1/11/01: This prevents a reply from being sent when it shouldn't be.
The problem is that with IPC, one can have a message sent to a query
handler without expecting a reply (e.g, using a broadcast rather than
a QueryClass). */
if (msg_class == ReplyClass &&
(dispatch->msg_class != QueryClass &&
dispatch->msg_class != MultiQueryClass)) {
msg_class = SuccessClass;
}
dispatch->msg_class = msg_class;
dispatch->classData = classData;
recvMessage(dispatch, msg_class, classData);
}
