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
110
111
112
113
114
115
116
117
|
// $Id$
#include "tao/Invocation_Endpoint_Selectors.h"
#if !defined (__ACE_INLINE__)
#include "tao/Invocation_Endpoint_Selectors.i"
#endif /* __ACE_INLINE__ */
#include "tao/Invocation.h"
#include "tao/Client_Priority_Policy.h"
#include "tao/Stub.h"
#include "tao/Profile.h"
#include "tao/Endpoint.h"
#include "tao/RT_Invocation_Endpoint_Selectors.h"
#include "tao/Base_Transport_Property.h"
ACE_RCSID(tao, Invocation_Endpoint_Selectors, "$Id$")
#if (TAO_HAS_RT_CORBA == 1)
TAO_Endpoint_Selection_State::~TAO_Endpoint_Selection_State (void)
{
}
#endif /* TAO_HAS_RT_CORBA == 1 */
// ****************************************************************
TAO_Invocation_Endpoint_Selector::~TAO_Invocation_Endpoint_Selector (void)
{
}
// ****************************************************************
TAO_Default_Endpoint_Selector::~TAO_Default_Endpoint_Selector (void)
{
}
void
TAO_Default_Endpoint_Selector::select_endpoint (TAO_GIOP_Invocation *invocation,
CORBA::Environment &ACE_TRY_ENV)
{
do
{
invocation->profile (invocation->stub ()->profile_in_use ());
invocation->endpoint (invocation->profile ()->endpoint ());
// If known endpoint, select it.
if (invocation->endpoint () != 0)
{
TAO_Base_Transport_Property default_desc (invocation->endpoint ());
int status =
invocation->perform_call (default_desc, ACE_TRY_ENV);
ACE_CHECK;
// Check if the invocation has completed.
if (status == 1)
return;
}
}
while (invocation->stub ()->next_profile_retry () != 0);
// If we get here, we completely failed to find an endpoint selector
// that we know how to use, so throw an exception.
ACE_THROW (CORBA::TRANSIENT (TAO_OMG_VMCID | 2,
CORBA::COMPLETED_NO));
}
// @@ RTCORBA_Subsetting - next should be deprecated...
void
TAO_Default_Endpoint_Selector::next (TAO_GIOP_Invocation *,
CORBA::Environment &)
{
ACE_DEBUG ((LM_DEBUG, ACE_TEXT ("This method is DEPRECATED!\n")));
// if (invocation->stub_->next_profile_retry () == 0)
// ACE_THROW (CORBA::TRANSIENT (TAO_OMG_VMCID | 2,
// CORBA::COMPLETED_NO));
}
void
TAO_Default_Endpoint_Selector::forward (TAO_GIOP_Invocation
*invocation,
const TAO_MProfile &mprofile,
CORBA::Environment &ACE_TRY_ENV)
{
invocation->stub ()->add_forward_profiles (mprofile);
// This has to be and is thread safe.
// TAO_Stub::add_forward_profiles() already makes a copy of the
// MProfile, so do not make a copy here.
// We may not need to do this since TAO_GIOP_Invocations
// get created on a per-call basis. For now we'll play it safe.
if (invocation->stub ()->next_profile () == 0)
ACE_THROW (CORBA::TRANSIENT (
CORBA_SystemException::_tao_minor_code (
TAO_INVOCATION_LOCATION_FORWARD_MINOR_CODE,
errno),
CORBA::COMPLETED_NO));
}
void
TAO_Default_Endpoint_Selector::success (TAO_GIOP_Invocation *invocation)
{
invocation->stub ()->set_valid_profile ();
}
void
TAO_Default_Endpoint_Selector::close_connection (TAO_GIOP_Invocation *invocation)
{
// Get rid of any forwarding profiles and reset
// the profile list to point to the first profile!
// FRED For now we will not deal with recursive forwards!
invocation->stub ()->reset_profiles ();
}
|
