1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
//
// $Id$
//
#include "Roundtrip.h"
#include "tao/DynamicInterface/Server_Request.h"
ACE_RCSID(Single_Threaded_Latency, Roundtrip, "$Id$")
Roundtrip::Roundtrip (CORBA::ORB_ptr orb)
: orb_ (CORBA::ORB::_duplicate (orb))
{
}
void
Roundtrip::invoke (CORBA::ServerRequest_ptr request
ACE_ENV_ARG_DECL)
{
if (ACE_OS::strcmp ("shutdown", request->operation ()) == 0)
{
this->orb_->shutdown (0 ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
return;
}
else if (ACE_OS::strcmp ("_is_a", request->operation ()) == 0)
{
CORBA::NVList_ptr list;
this->orb_->create_list (0, list ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
CORBA::Any type_id (CORBA::_tc_string);
list->add_value ("type_id", type_id, CORBA::ARG_IN
ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
request->arguments (list ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
CORBA::NamedValue_ptr nv = list->item (0 ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
const char *arg;
*(nv->value ()) >>= arg;
CORBA::Boolean type_matches = 0;
if (ACE_OS::strcmp (arg, "IDL:Test/Roundtrip:1.0") == 0
|| ACE_OS::strcmp (arg, "IDL:omg.org/CORBA/Object:1.0") == 0
|| ACE_OS::strcmp (arg, "") == 0)
type_matches = 1;
CORBA::Any result;
result <<= CORBA::Any::from_boolean (type_matches);
request->set_result (result ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
return;
}
else if (ACE_OS::strcmp ("test_method", request->operation ()) == 0)
{
CORBA::NVList_ptr list;
this->orb_->create_list (0, list ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
CORBA::Any send_time (CORBA::_tc_ulonglong);
list->add_value ("send_time", send_time, CORBA::ARG_IN
ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
request->arguments (list ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
CORBA::NamedValue_ptr nv = list->item (0 ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
request->set_result (*(nv->value ()) ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
return;
}
CORBA::Any bad_operation;
CORBA::BAD_OPERATION exception;
bad_operation <<= exception;
request->set_exception (bad_operation ACE_ENV_ARG_PARAMETER);
ACE_CHECK;
}
CORBA::RepositoryId
Roundtrip::_primary_interface (const PortableServer::ObjectId &,
PortableServer::POA_ptr
ACE_ENV_ARG_DECL_NOT_USED)
{
return CORBA::string_dup ("IDL:Test/Roundtrip:1.0");
}
|
