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
98
99
100
101
102
103
104
105
106
107
108
109
|
#include "tao/LocateRequest_Invocation_Adapter.h"
#include "tao/Profile_Transport_Resolver.h"
#include "tao/operation_details.h"
#include "tao/LocateRequest_Invocation.h"
#include "tao/Transport.h"
#include "tao/Transport_Mux_Strategy.h"
#include "tao/ORB_Core.h"
#include "tao/Stub.h"
#include "tao/SystemException.h"
#include "ace/Service_Config.h"
ACE_RCSID (tao,
LocateRequest_Invocation_Adapter,
"$Id$")
TAO_BEGIN_VERSIONED_NAMESPACE_DECL
namespace TAO
{
LocateRequest_Invocation_Adapter::LocateRequest_Invocation_Adapter (
CORBA::Object *target)
: target_ (target)
, list_ (0)
{
}
void
LocateRequest_Invocation_Adapter::invoke (void)
{
CORBA::Object * const effective_target = this->target_;
TAO_Stub * const stub =
this->target_->_stubobj ();
if (stub == 0)
throw ::CORBA::INTERNAL (
CORBA::SystemException::_tao_minor_code (
0,
EINVAL),
CORBA::COMPLETED_NO);
// The invocation has got to be within the context of the
// corresponding ORB's configuration. Otherwise things like
// timeout hooks, etc may not work as expected. Especially if
// there are multiple ORB instances in the process, each with its
// own, local configuration.
ACE_Service_Config_Guard scg (stub->orb_core ()->configuration ());
ACE_Time_Value tmp_wait_time;
ACE_Time_Value *max_wait_time = 0;
bool const is_timeout = this->get_timeout (tmp_wait_time);
if (is_timeout)
max_wait_time = &tmp_wait_time;
Invocation_Status s = TAO_INVOKE_START;
while (s == TAO_INVOKE_START ||
s == TAO_INVOKE_RESTART)
{
Profile_Transport_Resolver resolver (effective_target,
stub,
true);
try
{
resolver.init_inconsistent_policies ();
resolver.resolve (max_wait_time);
// Dummy operation details that is used to instantiate the
// LocateRequest class.
TAO_Operation_Details op (0, 0);
op.request_id (resolver.transport ()->tms ()->request_id ());
TAO::LocateRequest_Invocation synch (this->target_, resolver, op);
s = synch.invoke (max_wait_time);
}
catch (const ::CORBA::INV_POLICY&)
{
this->list_ =
resolver.steal_inconsistent_policies ();
throw;
}
}
return;
}
CORBA::PolicyList *
LocateRequest_Invocation_Adapter::get_inconsistent_policies (void)
{
return this->list_._retn ();
}
bool
LocateRequest_Invocation_Adapter::get_timeout (ACE_Time_Value &timeout)
{
bool has_timeout = false;
this->target_->orb_core ()->call_timeout_hook (this->target_->_stubobj (),
has_timeout,
timeout);
return has_timeout;
}
} // End namespace TAO
TAO_END_VERSIONED_NAMESPACE_DECL
|
