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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
// $Id$
#include "tao/corba.h"
#if !defined (__ACE_INLINE__)
# include "tao/Environment.i"
#endif /* __ACE_INLINE__ */
ACE_RCSID(tao, Environment, "$Id$")
#if 0
CORBA_Environment::CORBA_Environment (void)
: exception_ (0),
previous_ (TAO_ORB_Core_instance ()->default_environment ())
{
TAO_ORB_Core_instance ()->default_environment (this);
}
CORBA_Environment::CORBA_Environment (const CORBA_Environment& rhs)
: exception_ (rhs.exception_),
previous_ (TAO_ORB_Core_instance ()->default_environment ())
{
TAO_ORB_Core_instance ()->default_environment (this);
exception_->_incr_refcnt ();
}
CORBA_Environment::CORBA_Environment (TAO_ORB_Core* orb_core)
: exception_ (0),
previous_ (orb_core->default_environment ())
{
orb_core->default_environment (this);
}
#else
CORBA_Environment::CORBA_Environment (void)
: exception_ (0),
previous_ (0)
{
// TAO_ORB_Core_instance ()->default_environment (this);
}
CORBA_Environment::CORBA_Environment (const CORBA_Environment& rhs)
: exception_ (rhs.exception_),
previous_ (0)
{
// TAO_ORB_Core_instance ()->default_environment (this);
exception_->_incr_refcnt ();
}
CORBA_Environment::CORBA_Environment (TAO_ORB_Core* orb_core)
: exception_ (0),
previous_ (orb_core->default_environment ())
{
orb_core->default_environment (this);
}
#endif
CORBA_Environment&
CORBA_Environment::operator= (const CORBA_Environment& rhs)
{
if (this != &rhs)
{
this->clear ();
this->exception (rhs.exception_);
}
return *this;
}
CORBA_Environment::~CORBA_Environment (void)
{
this->clear ();
// If previous is 0 then this is the first Environment, allocated
// with the ORB, it shouldn't try to pop because the ORB is beign
// destroyed also.
if (this->previous_ != 0)
TAO_ORB_Core_instance ()->default_environment (this->previous_);
}
void
CORBA_Environment::exception (CORBA_Exception *ex)
{
if (ex != this->exception_)
{
this->clear ();
this->exception_ = ex;
}
if (this->exception_ != 0)
{
this->exception_->_incr_refcnt ();
#if defined (TAO_USE_EXCEPTIONS)
this->exception_->_raise ();
#endif /* TAO_USE_EXCEPTIONS */
}
}
void
CORBA_Environment::clear (void)
{
if (this->exception_)
this->exception_->_decr_refcnt ();
this->exception_ = 0;
}
CORBA_Environment&
CORBA_Environment::default_environment ()
{
return *TAO_ORB_Core_instance ()->default_environment ();
}
// Convenience -- say if the exception is a system exception or not.
int
CORBA::Environment::exception_type (void) const
{
static char sysex_prefix [] = "IDL:omg.org/CORBA/";
static char typecode_extra [] = "TypeCode/";
static char poa_prefix [] = "IDL:PortableServer/";
if (!this->exception_)
return CORBA::NO_EXCEPTION;
// All exceptions currently (CORBA 2.0) defined in the CORBA
// scope are system exceptions ... except for a couple that
// are related to TypeCodes.
const char *id = this->exception_->_id ();
if ((ACE_OS::strncmp (id, sysex_prefix, sizeof sysex_prefix - 1) == 0
&& ACE_OS::strncmp (id + sizeof sysex_prefix - 1,
typecode_extra, sizeof typecode_extra - 1) != 0)
|| ACE_OS::strncmp (id, poa_prefix, sizeof poa_prefix - 1) == 0)
return CORBA::SYSTEM_EXCEPTION;
return CORBA::USER_EXCEPTION;
}
// Diagnostic utility routine: describe the exception onto the
// standard I/O stream passed as a parameter.
void
CORBA::Environment::print_exception (const char *info,
FILE *) const
{
if (this->exception_)
{
const char *id = this->exception_->_id ();
ACE_DEBUG ((LM_ERROR, "(%P|%t) EXCEPTION, %s\n", info));
// @@ get rid of this logic, and rely on some member function on
// Exception to say if it's user or system exception.
if (this->exception_type () == CORBA::SYSTEM_EXCEPTION)
{
CORBA::SystemException *x2 =
CORBA_SystemException::_narrow (this->exception_);
// @@ there are a other few "user exceptions" in the CORBA
// scope, they're not all standard/system exceptions ... really
// need to either compare exhaustively against all those IDs
// (yeech) or (preferably) to represent the exception type
// directly in the exception value so it can be queried.
ACE_DEBUG ((LM_ERROR,
"(%P|%t) system exception, ID '%s'\n",
id));
ACE_DEBUG ((LM_ERROR,
"(%P|%t) minor code = %x, completed = %s\n",
x2->minor (),
(x2->completion () == CORBA::COMPLETED_YES) ? "YES" :
(x2->completion () == CORBA::COMPLETED_NO) ? "NO" :
(x2->completion () == CORBA::COMPLETED_MAYBE) ? "MAYBE" :
"garbage"));
}
else
// @@ we can use the exception's typecode to dump all the data
// held within it ...
ACE_DEBUG ((LM_ERROR,
"(%P|%t) user exception, ID '%s'\n",
id));
}
else
ACE_DEBUG ((LM_ERROR,
"(%P|%t) no exception\n"));
}
|
