From a08f2455df890ea3fbd7d6d58cf9131ece8d918d Mon Sep 17 00:00:00 2001 From: parsons Date: Thu, 6 Jul 2000 17:42:57 +0000 Subject: New IFR implementation files. --- TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp | 216 +++++++++++++++++++++++++++++++++ 1 file changed, 216 insertions(+) create mode 100644 TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp (limited to 'TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp') diff --git a/TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp b/TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp new file mode 100644 index 00000000000..d30f5b4a1b6 --- /dev/null +++ b/TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp @@ -0,0 +1,216 @@ +/* -*- C++ -*- */ +// $Id$ + +#include "ArrayDef_i.h" +#include "Repository_i.h" +#include "Servant_Factory.h" +#include "ace/Auto_Ptr.h" + +ACE_RCSID(IFR_Service, ArrayDef_i, "$Id$") + +TAO_ArrayDef_i::TAO_ArrayDef_i (TAO_Repository_i *repo, + ACE_Configuration_Section_Key section_key) + : TAO_IRObject_i (repo, section_key), + TAO_IDLType_i (repo, section_key) +{ +} + +TAO_ArrayDef_i::~TAO_ArrayDef_i (void) +{ +} + +IR::DefinitionKind +TAO_ArrayDef_i::def_kind (CORBA::Environment &) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + return IR::dk_Array; +} + +void +TAO_ArrayDef_i::destroy (CORBA::Environment &ACE_TRY_ENV) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + // Only if it is (w)string, fixed, array or sequence. + this->destroy_element_type (ACE_TRY_ENV); + ACE_CHECK; + + ACE_TString name; + this->repo_->config ()->get_string_value (this->section_key_, + "name", + name); + + this->repo_->config ()->remove_section (this->repo_->arrays_key (), + name.c_str (), + 0); +} + +CORBA::TypeCode_ptr +TAO_ArrayDef_i::type (CORBA::Environment &ACE_TRY_ENV) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + CORBA::TypeCode_var element_typecode = + this->element_type (ACE_TRY_ENV); + ACE_CHECK_RETURN (CORBA::TypeCode::_nil ()); + + CORBA::ULong length = this->length (ACE_TRY_ENV); + ACE_CHECK_RETURN (CORBA::TypeCode::_nil ()); + + return this->repo_->tc_factory ()->create_array_tc ( + length, + element_typecode.in (), + ACE_TRY_ENV + ); +} + +CORBA::ULong +TAO_ArrayDef_i::length (CORBA::Environment &) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + u_int length = 0; + this->repo_->config ()->get_integer_value (this->section_key_, + "length", + length); + + return ACE_static_cast (CORBA::ULong, length); +} + +void +TAO_ArrayDef_i::length (CORBA::ULong length, + CORBA::Environment &) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + this->repo_->config ()->set_integer_value (this->section_key_, + "length", + length); +} + +CORBA::TypeCode_ptr +TAO_ArrayDef_i::element_type (CORBA::Environment &ACE_TRY_ENV) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + ACE_TString element_path; + this->repo_->config ()->get_string_value (this->section_key_, + "element_path", + element_path); + + ACE_Configuration_Section_Key element_key; + this->repo_->config ()->expand_path (this->repo_->root_key (), + element_path, + element_key, + 0); + + TAO_IDLType_i *impl = + this->repo_->servant_factory ()->create_idltype (element_key, + ACE_TRY_ENV); + ACE_CHECK_RETURN (CORBA::TypeCode::_nil ()); + + auto_ptr safety (impl); + + return impl->type (ACE_TRY_ENV); +} + +IR::IDLType_ptr +TAO_ArrayDef_i::element_type_def (CORBA::Environment &ACE_TRY_ENV) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + ACE_TString element_path; + this->repo_->config ()->get_string_value (this->section_key_, + "element_path", + element_path); + + ACE_Configuration_Section_Key element_key; + this->repo_->config ()->expand_path (this->repo_->root_key (), + element_path, + element_key, + 0); + + u_int kind = 0; + this->repo_->config ()->get_integer_value (element_key, + "def_kind", + kind); + + IR::DefinitionKind def_kind = + ACE_static_cast (IR::DefinitionKind, kind); + + CORBA::Object_var obj = + this->repo_->servant_factory ()->create_objref (def_kind, + element_path.c_str (), + ACE_TRY_ENV); + ACE_CHECK_RETURN (IR::IDLType::_nil ()); + + return IR::IDLType::_narrow (obj.in (), + ACE_TRY_ENV); +} + +void +TAO_ArrayDef_i::element_type_def (IR::IDLType_ptr element_type_def, + CORBA::Environment &ACE_TRY_ENV) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + this->destroy_element_type (ACE_TRY_ENV); + ACE_CHECK; + + PortableServer::ObjectId_var oid = + this->repo_->ir_poa ()->reference_to_id (element_type_def, + ACE_TRY_ENV); + ACE_CHECK; + + CORBA::String_var new_element_path = + PortableServer::ObjectId_to_string (oid.in ()); + + this->repo_->config ()->set_string_value (this->section_key_, + "element_path", + new_element_path.in ()); +} + +void +TAO_ArrayDef_i::destroy_element_type ( + CORBA::Environment &ACE_TRY_ENV) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + ACE_TString element_path; + this->repo_->config ()->get_string_value (this->section_key_, + "element_path", + element_path); + + ACE_Configuration_Section_Key element_key; + this->repo_->config ()->expand_path (this->repo_->root_key (), + element_path, + element_key, + 0); + + u_int kind = 0; + this->repo_->config ()->get_integer_value (element_key, + "def_kind", + kind); + + IR::DefinitionKind def_kind = + ACE_static_cast (IR::DefinitionKind, kind); + + switch (def_kind) + { + // These exist only as our elements, so the type should + // be destroyed when we are destroyed or our element type + // is mutated. + case IR::dk_String: + case IR::dk_Wstring: + case IR::dk_Fixed: + case IR::dk_Array: + case IR::dk_Sequence: + { + TAO_IDLType_i *impl = + this->repo_->servant_factory ()->create_idltype (element_key, + ACE_TRY_ENV); + ACE_CHECK; + + auto_ptr safety (impl); + + impl->destroy (ACE_TRY_ENV); + ACE_CHECK; + break; + } + default: + break; + } +} + -- cgit v1.2.1