void
do_primary_test (CORBA::Object_var &server,
Messaging::ReplyHandler_var &callback)
{
try
{
CORBA::Request_var req = server->_request("do_forward");
if (CORBA::is_nil (server.in ()))
{
ACE_ERROR ((LM_ERROR,
"Object reference <%s> is nil.\n",
ior));
return;
}
ACE_DEBUG((LM_DEBUG,"Client sending test string\n"));
CORBA::String_var test_string = CORBA::string_dup ("123 look at me");
req->add_in_arg ("text") <<=
CORBA::Any::from_string(test_string.in(),30);
req->sendc(callback.in());
}
catch (CORBA::Exception &ex)
{
ACE_ERROR ((LM_ERROR,
"Client caught exception: %C\n",ex._name()));
}
}
// The code that actually processes the request message
void
Lorica::ProxyServant::invoke_i(CORBA::ServerRequest_ptr request,
TAO_AMH_DSI_Response_Handler_ptr response_handler)
{
Lorica::ServerAgent_var agent;
CORBA::Object_var target_obj = mapper_.current_native(agent.out());
EvaluatorBase *evb = this->mapper_.evaluator_for (target_obj.in());
if (!evb)
throw CORBA::NO_IMPLEMENT();
bool is_oneway = !request->_tao_server_request().response_expected()
|| request->_tao_server_request().sync_with_server();
CORBA::NVList_var args;
CORBA::NVList_var out_args;
this->orb_->create_list(0, args);
this->orb_->create_list(0, out_args);
PortableServer::POA_var poa = this->current_->get_POA();
PortableServer::ObjectId_var oid = this->current_->get_object_id();
CORBA::NamedValue_var result;
try {
if (!evb->evaluate_request(request->operation(),
poa.in(),
request,
args.inout(),
out_args.inout(),
result.out())) {
if (!CORBA::is_nil(agent)) {
agent->error_occured(errno,
"ProxyServant::invoke_i, evaluate_request "
"failed, Caught CORBA::BAD_OPERATION()\n");
}
if (Lorica_debug_level > 0) {
ACE_ERROR((LM_ERROR,
"(%T) %N:%l - evaluate_request failed. Caught CORBA::BAD_OPERATION()\n"));
}
throw CORBA::BAD_OPERATION();
}
}
catch (CORBA::UserException & ex) {
if (Lorica_debug_level > 0)
ACE_DEBUG((LM_ERROR, ACE_TEXT("(%T) %N:%l - %s\n"), ex._info().c_str()));
if (!CORBA::is_nil(agent)) {
agent->error_occured(errno,
"ProxyServant::invoke_i, evaluate_request "
"failed, A CORBA::BAD_OPERATION() is thrown");
}
if (Lorica_debug_level > 0) {
ACE_ERROR((LM_ERROR, "(%T) %N:%l - evaluate_request raised %s\n",
ex._name()));
}
throw CORBA::BAD_OPERATION();
}
// do the rest, ie set up reply handler
CORBA::Request_var target_request;
target_obj->_create_request(0, // context
request->operation(),
args._retn(), // hand off ownership
0, // result,
0, // exception list
0, // context_list
target_request.inout(),
0);
if (is_oneway) {
target_request->send_oneway();
return;
}
Messaging::ReplyHandler_var rh = new Lorica::ProxyReplyHandler(this->mapper_,
request->operation(),
poa.in(),
evb,
out_args._retn(),
result._retn(),
response_handler);
target_request->sendc(rh.in());
}