diff options
Diffstat (limited to 'TAO/tests/DynAny_Test/DynUnion_i.cpp')
| -rw-r--r-- | TAO/tests/DynAny_Test/DynUnion_i.cpp | 1125 |
1 files changed, 0 insertions, 1125 deletions
diff --git a/TAO/tests/DynAny_Test/DynUnion_i.cpp b/TAO/tests/DynAny_Test/DynUnion_i.cpp deleted file mode 100644 index 263c3a33b82..00000000000 --- a/TAO/tests/DynAny_Test/DynUnion_i.cpp +++ /dev/null @@ -1,1125 +0,0 @@ -// $Id$ - -// ==================================================================== -// -// = LIBRARY -// TAO/tests/DynAny_Test -// -// = FILENAME -// DynUnion_i.cpp -// -// = AUTHOR -// Jeff Parsons <jp4@cs.wustl.edu> -// -// ==================================================================== - -#include "DynAny_i.h" -#include "DynUnion_i.h" - -////////////////////////////////////////////////////////////////////// -// Constructors and destructor - -DynUnion_i::DynUnion_i (const CORBA_Any& any) -{ - CORBA::Environment env; - - if (DynAny_i::unalias (any.type (), env) == CORBA::tk_union) - { - // Initialize the typecode holder - this->type_ = any.type (); - - this->set_from_any (any, env); - } - else - env.exception (new DynAny_i::InconsistentTypeCode); -} - -DynUnion_i::DynUnion_i (CORBA_TypeCode_ptr tc) -{ - CORBA::Environment env; - - if (DynAny_i::unalias (tc, env) == CORBA::tk_union) - { - // Initialize the typecode holder - this->type_ = CORBA::TypeCode::_duplicate (tc); - - CORBA::TypeCode_ptr disc_tc = tc->discriminator_type (env); - - // Get a typecode into the discriminator holder. - this->discriminator_ = DynAny_i::create_dyn_any (disc_tc, env); - - // To be filled in by from_any() or assign(). - this->member_ = 0; - } - else - env.exception (new DynAny_i::InconsistentTypeCode); -} - -DynUnion_i::~DynUnion_i (void) -{ -} - -///////////////////////////////////////////////////////////////////// -// Functions specific to DynUnion - -// If an invalid value has been passed in to the discriminator, -// we don't save it but instead set the member index to the -// default value, if one exists. -CORBA::Boolean -DynUnion_i::set_as_default (CORBA::Environment& env) -{ - if ((CORBA::Long) this->index_ == this->type_->default_index (env)) - return 1; - else - return 0; -} - -void -DynUnion_i::set_as_default (CORBA::Boolean set_as_default, - CORBA::Environment&) -{ - // Set_as_default should be treated as read-only and - // probably will be in a future spec. For now, since - // the IDL compiler generated the virtual function, - // we override it as a no-op. -} - -DynAny_ptr -DynUnion_i::discriminator (CORBA::Environment& env) -{ - return this->discriminator_.in (); -} - -TCKind -DynUnion_i::discriminator_kind (CORBA::Environment& env) -{ - return this->type_->discriminator_type (env)->kind (env); -} - -DynAny_ptr -DynUnion_i::member (CORBA::Environment& env) -{ - return this->member_.in (); -} - -char* -DynUnion_i::member_name (CORBA::Environment& env) -{ - return CORBA::string_dup (this->type_->member_name (this->index_, env)); -} - -// If a valid member name is supplied, this function creates a new -// member which is NOT initialized. -void -DynUnion_i::member_name (const char* member_name, - CORBA::Environment& env) -{ - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - if (!ACE_OS::strcmp (member_name, this->type_->member_name (i, env))) - { - // No sense doing anything if we're just "resetting" to the - // current member. - if (i == this->index_) - return; - else - { - this->member_ = - DynAny_i::create_dyn_any (this->type_->member_type (i, env), - env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - } -} - - -CORBA::TCKind -DynUnion_i::member_kind (CORBA::Environment& env) -{ - return this->type_->member_type (this->index_, env)->kind (env); -} - -////////////////////////////////////////////////////////////////////// -// Common functions - -void -DynUnion_i::assign (DynAny_ptr dyn_any, CORBA::Environment &env) -{ - // *dyn_any->to_any raises Invalid if arg is bad. - if (this->type_->equal (dyn_any->type (env), env)) - this->from_any (*dyn_any->to_any (env), env); - else - env.exception (new DynAny::Invalid); -} - -DynAny_ptr -DynUnion_i::copy (CORBA::Environment &env) -{ - CORBA_Any_ptr a = this->to_any (env); - return DynAny_i::create_dyn_any (*a, env); -} - -void -DynUnion_i::destroy (CORBA::Environment &env) -{ - // Free the two DynAnys. - this->member_->destroy (env); - this->discriminator_->destroy (env); - - // Free the top level - CORBA::release (this->_this (env)); -} - -void -DynUnion_i::from_any (const CORBA_Any& any, - CORBA::Environment &env) -{ - if (this->type_.in ()->equal (any.type (), env)) - this->set_from_any (any, env); - else - env.exception (new DynAny::Invalid); -} - -CORBA::Any_ptr -DynUnion_i::to_any (CORBA::Environment& env) -{ - // Both Dynanys must have been initialied. - if (this->member_.in () == 0 || this->discriminator_.in () == 0) - { - env.exception (new DynAny::Invalid); - return 0; - } - - TAO_OutputCDR out_cdr; - - // Add the discriminator to the CDR stream. - - CORBA_TypeCode_ptr disc_tc = this->discriminator_->type (env); - - CORBA_Any_ptr disc_any = this->discriminator_->to_any (env); - - ACE_Message_Block* disc_mb = - ACE_Message_Block::duplicate (disc_any->_tao_get_cdr ()); - - TAO_InputCDR disc_cdr (disc_mb); - - out_cdr.append (disc_tc, &disc_cdr, env); - - // Add the member to the CDR stream. - - CORBA_TypeCode_ptr member_tc = this->member_->type (env); - - CORBA_Any_ptr member_any = this->member_->to_any (env); - - ACE_Message_Block* member_mb = - ACE_Message_Block::duplicate (member_any->_tao_get_cdr ()); - - TAO_InputCDR member_cdr (member_mb); - - out_cdr.append (member_tc, &member_cdr, env); - - // Make the Any. - TAO_InputCDR in_cdr (out_cdr); - - return new CORBA_Any (this->type (env), - in_cdr.start ()); -} - -CORBA::TypeCode_ptr -DynUnion_i::type (CORBA::Environment &) -{ - return this->type_.in (); -} - -DynAny_ptr -DynUnion_i::current_component (CORBA::Environment &env) -{ - return this->member_.in (); -} - -CORBA::Boolean -DynUnion_i::next (CORBA::Environment &env) -{ - if (this->index_ + 1 == this->type_->member_count (env)) - return 0; - - ++this->index_; - - this->member_ = - DynAny_i::create_dyn_any (this->type_->member_type (this->index_, env), - env); - return 1; -} - -CORBA::Boolean -DynUnion_i::seek (CORBA::Long index, CORBA::Environment &env) -{ - if (index < 0 || index >= (CORBA::Long) this->type_->member_count (env)) - return 0; - - this->index_ = index; - - this->member_ = - DynAny_i::create_dyn_any (this->type_->member_type (this->index_, env), - env); - return 1; -} - -void -DynUnion_i::rewind (CORBA::Environment &env) -{ - if (this->index_ == 0) - return; - - this->index_ = 0; - - this->member_ = - DynAny_i::create_dyn_any (this->type_->member_type (this->index_, env), - env); -} - -///////////////////////////////////////////////////////////////////////////// -// Insert and get functions -// -// Note that next() is not called in the body of these functions as it is -// with DynStruct, DynSequence and DynArray. It doesn't seem to make sense -// for unions. - -//**************************INSERT FUNCTIONS********************************** - -void -DynUnion_i::insert_boolean (CORBA::Boolean value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_boolean) - this->member_->insert_boolean (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_boolean) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_boolean (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_octet (CORBA::Octet value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_octet) - this->member_->insert_octet (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_octet) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_octet (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_char (CORBA::Char value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_char) - this->member_->insert_char (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_char) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_char (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_short (CORBA::Short value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_short) - this->member_->insert_short (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_short) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_short (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_long (CORBA::Long value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_long) - this->member_->insert_long (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_long) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_long (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_ushort (CORBA::UShort value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_ushort) - this->member_->insert_ushort (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_ushort) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_ushort (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_ulong (CORBA::ULong value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_ulong) - this->member_->insert_ulong (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_ulong) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_ulong (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_float (CORBA::Float value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_float) - this->member_->insert_float (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_float) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_float (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_double (CORBA::Double value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_double) - this->member_->insert_double (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_double) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_double (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_string (CORBA::String value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_string) - this->member_->insert_string (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_string) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_string (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_reference (CORBA::Object_ptr value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_objref) - this->member_->insert_reference (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_objref) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_reference (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_typecode (CORBA::TypeCode_ptr value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_TypeCode) - this->member_->insert_typecode (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_TypeCode) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_typecode (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_longlong (CORBA::LongLong value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_longlong) - this->member_->insert_longlong (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_longlong) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_longlong (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_ulonglong (CORBA::ULongLong value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_ulonglong) - this->member_->insert_ulonglong (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_ulonglong) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_ulonglong (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_wchar (CORBA::WChar value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_wchar) - this->member_->insert_wchar (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_wchar) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_wchar (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -void -DynUnion_i::insert_any (const CORBA::Any& value, CORBA::Environment &env) -{ - if (DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_any) - this->member_->insert_any (value, env); - else - { - CORBA::ULong count = this->type_->member_count (env); - - for (CORBA::ULong i = 0; i < count; i++) - { - CORBA::TypeCode_ptr tc = this->type_->member_type (i, env); - - if (DynAny_i::unalias (tc, env) == CORBA::tk_any) - { - this->member_ = DynAny_i::create_dyn_any (tc, env); - this->member_->insert_any (value, env); - this->discriminator_ = - DynAny_i::create_dyn_any (*this->type_->member_label (i, env), env); - this->index_ = i; - return; - } - } - - env.exception (new DynAny::InvalidValue); - } -} - -//*********************************GET FUNCTIONS********************************* - -CORBA::Boolean -DynUnion_i::get_boolean (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_boolean) - return this->member_->get_boolean (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Octet -DynUnion_i::get_octet (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_octet) - return this->member_->get_octet (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Char -DynUnion_i::get_char (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_char) - return this->member_->get_char (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Short -DynUnion_i::get_short (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_short) - return this->member_->get_short (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Long -DynUnion_i::get_long (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_long) - return this->member_->get_long (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::UShort -DynUnion_i::get_ushort(CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_ushort) - return this->member_->get_ushort (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::ULong -DynUnion_i::get_ulong (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_ulong) - return this->member_->get_ulong (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Float -DynUnion_i::get_float (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_float) - return this->member_->get_float (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Double -DynUnion_i::get_double (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_double) - return this->member_->get_double (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::String -DynUnion_i::get_string (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_string) - return this->member_->get_string (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::TypeCode_ptr -DynUnion_i::get_typecode (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_TypeCode) - return this->member_->get_typecode (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Object_ptr -DynUnion_i::get_reference (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_objref) - return this->member_->get_reference (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::LongLong -DynUnion_i::get_longlong (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_longlong) - return this->member_->get_longlong (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::ULongLong -DynUnion_i::get_ulonglong (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_ulonglong) - return this->member_->get_ulonglong (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::WChar -DynUnion_i::get_wchar (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_wchar) - return this->member_->get_wchar (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -CORBA::Any_ptr -DynUnion_i::get_any (CORBA::Environment &env) -{ - if (this->member_.in () && - DynAny_i::unalias (this->member_->type (env), env) == CORBA::tk_any) - return this->member_->get_any (env); - else - { - env.exception (new DynAny::Invalid); - return 0; - } -} - -///////////////////////////////////////////////////////////////////////////// -// Private functions - -// Template class that serves as a functor for all types except those -// specifically defined below. -template <class Type> -CORBA::Boolean -DynUnion_i::Extractor<Type>::check_match (const CORBA_Any& inside_any, - const CORBA_Any& outside_any) -{ - inside_any >>= this->member_index_; - outside_any >>= this->arg_index_; - return this->member_index_ == this->arg_index_; -} - -// Need some explicit definitions for these types: - -CORBA::Boolean -DynUnion_i::Extractor<CORBA::Boolean>::check_match (const CORBA_Any& inside_any, - const CORBA_Any& outside_any) -{ - CORBA::Any::to_boolean member_struct (this->member_index_); - CORBA::Any::to_boolean arg_struct (this->arg_index_); - inside_any >>= member_struct; - outside_any >>= arg_struct; - return member_struct.ref_ == arg_struct.ref_; -} - -CORBA::Boolean -DynUnion_i::Extractor<CORBA::Char>::check_match (const CORBA_Any& inside_any, - const CORBA_Any& outside_any) -{ - CORBA::Any::to_char member_struct (this->member_index_); - CORBA::Any::to_char arg_struct (this->arg_index_); - inside_any >>= member_struct; - outside_any >>= arg_struct; - return member_struct.ref_ == arg_struct.ref_; -} - -CORBA::Boolean -DynUnion_i::WChar_extractor::check_match (const CORBA_Any& inside_any, - const CORBA_Any& outside_any) -{ - CORBA::Any::to_wchar member_struct (this->member_index_); - CORBA::Any::to_wchar arg_struct (this->arg_index_); - inside_any >>= member_struct; - outside_any >>= arg_struct; - return member_struct.ref_ == arg_struct.ref_; -} - -CORBA::Boolean -DynUnion_i::Enum_extractor::check_match (const CORBA_Any& inside_any, - const CORBA_Any& outside_any) -{ - // Get the CDR stream of one argument... - ACE_Message_Block* mb = - ACE_Message_Block::duplicate (inside_any._tao_get_cdr ()); - - TAO_InputCDR inside_cdr (mb); - - inside_cdr.read_ulong (this->member_index_); - - // And of the other... - mb = ACE_Message_Block::duplicate (outside_any._tao_get_cdr ()); - - TAO_InputCDR outside_cdr (mb); - - outside_cdr.read_ulong (this->arg_index_); - - return this->member_index_ == this->arg_index_; -} - -// Functor factory. -DynUnion_i::Extractor_base* -DynUnion_i::get_extractor (CORBA::TCKind kind) -{ - switch (kind) - { - case CORBA::tk_short: - return new Extractor<CORBA::Short>; - case CORBA::tk_long: - return new Extractor<CORBA::Long>; - case CORBA::tk_ushort: - return new Extractor<CORBA::UShort>; - case CORBA::tk_ulong: - return new Extractor<CORBA::ULong>; - case CORBA::tk_boolean: - return new Extractor<CORBA::Boolean>; - case CORBA::tk_char: - return new Extractor<CORBA::Char>; - case CORBA::tk_longlong: - return new Extractor<CORBA::LongLong>; - case CORBA::tk_ulonglong: - return new Extractor<CORBA::ULongLong>; - case CORBA::tk_wchar: - return new WChar_extractor; - case CORBA::tk_enum: - return new Enum_extractor; - default: - return 0; - } -} - -// This code is common to from_any and the constructor taking an Any -// argument. -void -DynUnion_i::set_from_any (const CORBA_Any& any, - CORBA::Environment &env) -{ - // Get the CDR stream of the argument. - ACE_Message_Block* mb = - ACE_Message_Block::duplicate (any._tao_get_cdr ()); - - TAO_InputCDR cdr (mb); - - CORBA_TypeCode_ptr disc_tc = any.type ()->discriminator_type (env); - - CORBA_Any disc_any (disc_tc, - cdr.start ()); - - // Set the discriminator holder. - this->discriminator_ = DynAny_i::create_dyn_any (disc_any, env); - - cdr.skip (disc_tc); - - CORBA::ULong count = any.type ()->member_count (env); - CORBA::ULong i; - CORBA::Long default_index = -1; - - CORBA::TCKind discriminator_kind = disc_tc->kind (env); - - Extractor_base* functor = this->get_extractor (discriminator_kind); - - // Get the index. - for (i = 0; i < count; i++) - { - CORBA_Any label_any = *any.type ()->member_label (i, env); - - CORBA::TCKind label_kind = label_any.type ()->kind (env); - - // If there is a default index, note the value but don't call - // check_match. - if (label_kind == CORBA::tk_octet) - { - default_index = i; - continue; - } - // Check if values match. - else if (functor->check_match (disc_any, - label_any)) - { - this->index_ = i; - break; - } - } - - delete functor; - - if (i == count && default_index == -1) - env.exception (new DynAny::Invalid); - else - { - if (i == count && default_index != -1) - this->index_ = default_index; - - CORBA_Any member_any (any.type ()->member_type (this->index_, env), - cdr.start ()); - - this->member_ = DynAny_i::create_dyn_any (member_any, - env); - } -} |