diff options
Diffstat (limited to 'TAO/tao/Environment.cpp')
| -rw-r--r-- | TAO/tao/Environment.cpp | 267 |
1 files changed, 0 insertions, 267 deletions
diff --git a/TAO/tao/Environment.cpp b/TAO/tao/Environment.cpp deleted file mode 100644 index bdd144703c3..00000000000 --- a/TAO/tao/Environment.cpp +++ /dev/null @@ -1,267 +0,0 @@ -// $Id$ - -#include "tao/Environment.h" -#include "tao/ORB_Core.h" -#include "tao/Exception.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), - refcount_ (1) -{ - // TAO_ORB_Core_instance ()->default_environment (this); -} - -CORBA_Environment::CORBA_Environment (const CORBA_Environment& rhs) - : exception_ (rhs.exception_), - previous_ (0), - refcount_ (1) -{ - // TAO_ORB_Core_instance ()->default_environment (this); - if (this->exception_) - 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 /* 0 */ - -CORBA::ULong -CORBA_Environment::_incr_refcnt (void) -{ - ACE_GUARD_RETURN (ACE_SYNCH_MUTEX, ace_mon, this->refcount_lock_, 0); - return refcount_++; -} - -CORBA::ULong -CORBA_Environment::_decr_refcnt (void) -{ - { - ACE_GUARD_RETURN (ACE_SYNCH_MUTEX, ace_mon, this->refcount_lock_, 0); - - this->refcount_--; - if (this->refcount_ != 0) - return this->refcount_; - } - - delete this; - return 0; -} - -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_HAS_EXCEPTIONS) - this->exception_->_raise (); -#endif /* TAO_HAS_EXCEPTIONS */ - } -} - -void -CORBA_Environment::clear (void) -{ - if (this->exception_) - this->exception_->_decr_refcnt (); - - this->exception_ = 0; -} - -CORBA_Environment& -CORBA_Environment::default_environment () -{ -#if defined (TAO_HAS_EXCEPTIONS) - // - // If we are using native C++ exceptions the user is *not* supposed - // to clear the environment every time she calls into TAO, in fact - // the user is not supposed to use the environment at all! - // - // But TAO is using the default environment internally, thus - // somebody has to clear it. Since TAO passes the environment around - // this function should only be called when going from the user code - // into TAO's code. - // - // This is not an issue when using the alternative C++ mapping (with - // the Environment argument) because then the user is supposed to - // clear the environment before calling into the ORB. - // - TAO_ORB_Core_instance ()->default_environment ()->clear (); -#endif /* TAO_HAS_EXCEPTIONS */ - - return CORBA::default_environment (); -} - -// Convenience -- say if the exception is a system exception or not. - -int -CORBA::Environment::exception_type (void) const -{ - // @@ Carlos, is this stuff that's properly "transformed" for EBCDIC - // platforms?! - // @@ Doug: Yes, they are used to compare against the _id() of the - // exception, which should have been mappend to the native - // codeset. Notice the "should" we haven't tried that stuff yet, - // and i find it hard to keep track of all the transformations - // going on, specially for the TypeCodes that are generated by - // the IDL compiler vs. the ones hard-coded in - // $TAO_ROOT/tao/Typecode_Constants.cpp - - 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; - else - return CORBA::USER_EXCEPTION; -} - -const char* -CORBA_Environment::exception_id (void) const -{ - if (this->exception_ == 0) - return 0; - - return this->exception_->_id (); -} - -// 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, - "TAO: (%P|%t) EXCEPTION, %s\n", - info)); - - CORBA::SystemException *x2 = - CORBA_SystemException::_narrow (this->exception_); - - if (x2 != 0) - x2->_tao_print_system_exception (); - else - // @@ we can use the exception's typecode to dump all the data - // held within it ... - - ACE_DEBUG ((LM_ERROR, - "TAO: (%P|%t) user exception, ID '%s'\n", - id)); - } - else - ACE_DEBUG ((LM_ERROR, - "TAO: (%P|%t) no exception, %s\n", info)); -} - -CORBA_Environment_var & -CORBA_Environment_var::operator= (CORBA_Environment_ptr p) -{ - if (this->ptr_ != p) - { - if (this->ptr_ != 0) - delete (this->ptr_); - - this->ptr_ = p; - } - return *this; -} - -CORBA_Environment_var & -CORBA_Environment_var::operator= (const CORBA_Environment_var &r) -{ - if (this->ptr_ != 0) - { - delete this->ptr_; - this->ptr_ = 0; - } - - ACE_NEW_RETURN (this->ptr_, - CORBA::Environment (*r.ptr_), *this); - return *this; -} |