void BUILD_TCPIP_REQUEST(CTCPIPSystemSrvr* pnode)
{
	CEE_tag_def* objtag_ = (CEE_tag_def*)pnode;
	const CEE_handle_def *call_id_ = &pnode->m_call_id;
	short operation_id = pnode->m_rhdr.operation_id;

	if(pnode->m_trans_begin_tag != 0)
		RESUMETRANSACTION(pnode->m_trans_begin_tag);
	DISPATCH_TCPIPRequest(objtag_, call_id_, operation_id);
}
void BUILD_TCPIP_REQUEST(CTCPIPSystemSrvr* pnode)
{
	SRVRTRACE_ENTER(FILE_TSS+18);
	CEE_tag_def* objtag_ = (CEE_tag_def*)pnode;
	const CEE_handle_def *call_id_ = &pnode->m_call_id;
	short operation_id = pnode->m_rhdr.operation_id;
	short tx_handle[10];

	if(pnode->m_trans_begin_tag != 0 && GETTRANSID(&tx_handle[0]) != 0)
		RESUMETRANSACTION(pnode->m_trans_begin_tag);
	DISPATCH_TCPIPRequest(objtag_, call_id_, operation_id);
	SRVRTRACE_EXIT(FILE_TSS+18);
}
void
IOMessage(
    /* In    */ CEE_tag_def objtag_
  , /* In    */ const CEE_handle_def *call_id_
  , /* Out   */ CEERCV_IOMessage_exc_ *exception_
  , /* In    */ const FS_Receiveinfo_Type *receiveInfo
  , /* In    */ IDL_short dialogInfo
  , /* In    */ const CEERCV_IOMessage_request_seq_ *request
  , /* Out   */ IDL_short *error
  , /* Out   */ CEERCV_IOMessage_reply_seq_ *reply
  )
{
	CEE_status sts = CEE_SUCCESS;

	CEE_handle_def call_id;
	memcpy(&call_id, call_id_, sizeof(CEE_handle_def));

	char* buffer = (char *)request->_buffer + sizeof(HEADER);
	long length = request->_length - sizeof(HEADER);

	HEADER* hdr = (HEADER*)request->_buffer;
	CFSystemSrvr* pnode;

	unsigned short max_reply_count = receiveInfo->max_reply_count;
	short message_tag = receiveInfo->message_tag;
	*error = 0;
	exception_->exception_nr = 0;
	reply->_length = 0;
	reply->_buffer = NULL;

	switch(hdr->hdr_type)
	{
	case WRITE_REQUEST_FIRST:
		pnode = GTransport.m_FSystemSrvr_list->find_node(receiveInfo);
		if (pnode == NULL)
		{
			*error = SRVR_ERR_NODE_WRITE_REQUEST_FIRST;
			IOMessage_short_res_( message_tag, &call_id, exception_, *error, reply);
			return;
		}
		RESET_ERRORS((long)pnode);
		pnode->m_message_tag = message_tag;
		memset(&pnode->m_whdr,0,sizeof(HEADER));
		memcpy(&pnode->m_rhdr,hdr,sizeof(HEADER));
		if(pnode->r_allocate(hdr->total_length) == NULL)
		{
			*error = SRVR_ERR_MEMORY_ALLOCATE;
			IOMessage_short_res_( message_tag, &call_id, exception_, *error, reply);
			return;
		}
		memcpy(pnode->m_rbuffer, buffer, length);
		pnode->m_curptr = pnode->m_rbuffer + length;
		IOMessage_short_res_(message_tag, &call_id, exception_, *error, reply);
		break;
	case WRITE_REQUEST_NEXT:
		pnode = GTransport.m_FSystemSrvr_list->find_node(receiveInfo);
		if (pnode == NULL)
		{
			*error = SRVR_ERR_NODE_WRITE_REQUEST_NEXT;
			IOMessage_short_res_( message_tag, &call_id, exception_, *error, reply);
			return;
		}
		RESET_ERRORS((long)pnode);
		pnode->m_message_tag = message_tag;
		memset(&pnode->m_whdr,0,sizeof(HEADER));
		memcpy(pnode->m_curptr, buffer, length);
		pnode->m_curptr += length;
		sts = IOMessage_short_res_( message_tag, &call_id, exception_, *error, reply);
		break;
	case READ_RESPONSE_FIRST:
	case READ_RESPONSE_NEXT:
		pnode = GTransport.m_FSystemSrvr_list->find_node(receiveInfo);
		if (pnode == NULL)
		{ 
			if (hdr->hdr_type == READ_RESPONSE_FIRST)
				*error = SRVR_ERR_NODE_READ_RESPONSE_FIRST;
			else
				*error = SRVR_ERR_NODE_READ_RESPONSE_NEXT;
			IOMessage_short_res_( message_tag, &call_id, exception_, *error, reply);
			return;
		}
		RESET_ERRORS((long)pnode);
		pnode->m_message_tag = message_tag;
		memset(&pnode->m_whdr,0,sizeof(HEADER));
		if (hdr->hdr_type == READ_RESPONSE_FIRST)
		{
			memcpy(&call_id, &pnode->m_call_id, sizeof(CEE_handle_def));
			pnode->m_max_reply_count = max_reply_count;
			if(pnode->m_trans_begin_tag != 0)
				RESUMETRANSACTION(pnode->m_trans_begin_tag);
			DISPATCH_IOMessage( (CEE_tag_def)pnode, &call_id, exception_, receiveInfo, dialogInfo, request, error, reply, hdr->operation_id );
			length = pnode->m_reply_count;
		}
		else
		{
			length = pnode->m_curlength;
			buffer = pnode->m_curptr;
			if (length > max_reply_count)
				length = max_reply_count;
			reply->_length = length;
			reply->_buffer = (IDL_octet *)buffer;
			IOMessage_short_res_( message_tag, &call_id, exception_, *error, reply);
		}
		pnode->m_curlength -= length;
		pnode->m_curptr += length;

		if (pnode->m_curlength == 0)
		{
			if (pnode->m_rbuffer != NULL)
			{
				delete[] pnode->m_rbuffer;
				pnode->m_rbuffer = NULL;
			}
			if (pnode->m_wbuffer != NULL)
			{
				delete[] pnode->m_wbuffer;
				pnode->m_wbuffer = NULL;
			}
			DEALLOCATE_TEMP_MEMORY(&call_id);
		}
		break;
	case CLEANUP:
		GTransport.m_FSystemSrvr_list->cleanup_node(receiveInfo);
		IOMessage_short_res_( message_tag, &call_id, exception_, *error, reply);
		break;
	}
}
Exemplo n.º 4
0
// --------------------------------------------------------------------------
// TM_Transaction::join
// -- join an existing transaction, private method 
// --------------------------------------------------------------------------
short TM_Transaction::join(bool pv_coordinator_role)
{
    Tm_Req_Msg_Type lv_req;
    Tm_Rsp_Msg_Type lv_rsp;

    TMlibTrace(("TMLIB_TRACE : TM_Transaction::join ENTRY\n"), 2);

    if (!gv_tmlib.is_initialized())
        gv_tmlib.initialize();

    // if there is already an active tx, switch it out
    // allows user to do multiple JOINS
    if (gp_trans_thr->get_current() != NULL)
    {
        if (gp_trans_thr->get_current()->equal(iv_transid))
        {
             iv_last_error = FEALREADYJOINED;
             TMlibTrace(("TMLIB_TRACE : JOINTRANSACTION_EXT returning error %d for seq num %d\n", 
                          iv_last_error, iv_transid.get_seq_num()), 1);
             return iv_last_error;
        }
        TMlibTrace(("TMLIB_TRACE : JOINTRANSACTION_EXT called with active tx\n"), 3);
        RESUMETRANSACTION(0);
    }

    // no joins or enlists
    if (iv_server)
    {
         iv_last_error = FEOK;
         iv_tag = gv_tmlib.new_tag();
         gp_trans_thr->add_trans(this);
         TMlibTrace(("TMLIB_TRACE : TM_Transaction::join, server EXIT\n"), 2);
         return iv_last_error;
    }

    // do a join
    tmlib_init_req_hdr(TM_MSG_TYPE_JOINTRANSACTION, &lv_req);
    iv_transid.set_external_data_type(&lv_req.u.iv_join_trans.iv_transid);
    lv_req.u.iv_join_trans.iv_coord_role = pv_coordinator_role;
    lv_req.u.iv_join_trans.iv_pid = gv_tmlib.iv_my_pid;
    lv_req.u.iv_join_trans.iv_nid = gv_tmlib.iv_my_nid;
    iv_last_error = gv_tmlib.send_tm(&lv_req, &lv_rsp, iv_transid.get_node());
    if (iv_last_error)
    {
        TMlibTrace(("TMLIB_TRACE : JOINTRANSACTION_EXT returning error %d for seq num %d\n", 
                     iv_last_error, iv_transid.get_seq_num()), 1);
        return iv_last_error;
    }

    iv_last_error = lv_rsp.iv_msg_hdr.miv_err.error;

    if (iv_last_error)
    {
        TMlibTrace(("TMLIB_TRACE : Join returning error %d for txn seq num %d\n",
                       lv_rsp.iv_msg_hdr.miv_err.error, iv_transid.get_seq_num()), 1);
        return iv_last_error;
    }

    iv_coordinator = pv_coordinator_role;

    iv_tag = gv_tmlib.new_tag();
    gp_trans_thr->add_trans(this);
    if (!gv_tmlib.is_enlisted (iv_transid.get_node()))
    {
        TMlibTrace(("TMLIB_TRACE : TM_transaction::join, adding enlist for node %d\n", iv_transid.get_node()), 3);
        TM_Transid_Type lv_null_transid;
        lv_null_transid.id[0] = lv_null_transid.id[1] = lv_null_transid.id[2] =
                                lv_null_transid.id[3] = 0;
        msg_mon_trans_enlist (iv_transid.get_node(), lv_rsp.u.iv_join_trans.iv_tm_pid,
                               lv_null_transid);
        gv_tmlib.enlist(iv_transid.get_node());
    }


    iv_last_error = lv_rsp.iv_msg_hdr.miv_err.error;
    TMlibTrace(("TMLIB_TRACE : TM_transaction::join (seq num %d) EXIT\n", iv_transid.get_seq_num()), 2);

    return iv_last_error;
}