summaryrefslogtreecommitdiff
path: root/TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp')
-rw-r--r--TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp283
1 files changed, 0 insertions, 283 deletions
diff --git a/TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp b/TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp
deleted file mode 100644
index d06df49bfcd..00000000000
--- a/TAO/orbsvcs/IFR_Service/ArrayDef_i.cpp
+++ /dev/null
@@ -1,283 +0,0 @@
-/* -*- 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))
-{
- TAO_IFR_WRITE_GUARD;
-
- this->destroy_i (ACE_TRY_ENV);
-}
-
-void
-TAO_ArrayDef_i::destroy_i (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))
-{
- TAO_IFR_READ_GUARD_RETURN (CORBA::TypeCode::_nil ());
-
- return this->type_i (ACE_TRY_ENV);
-}
-
-CORBA::TypeCode_ptr
-TAO_ArrayDef_i::type_i (CORBA::Environment &ACE_TRY_ENV)
- ACE_THROW_SPEC ((CORBA::SystemException))
-{
- CORBA::TypeCode_var element_typecode =
- this->element_type_i (ACE_TRY_ENV);
- ACE_CHECK_RETURN (CORBA::TypeCode::_nil ());
-
- CORBA::ULong length = this->length_i (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_TRY_ENV)
- ACE_THROW_SPEC ((CORBA::SystemException))
-{
- TAO_IFR_READ_GUARD_RETURN (0);
-
- return this->length_i (ACE_TRY_ENV);
-}
-
-CORBA::ULong
-TAO_ArrayDef_i::length_i (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_TRY_ENV)
- ACE_THROW_SPEC ((CORBA::SystemException))
-{
- TAO_IFR_WRITE_GUARD;
-
- this->length_i (length,
- ACE_TRY_ENV);
-}
-
-void
-TAO_ArrayDef_i::length_i (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))
-{
- TAO_IFR_READ_GUARD_RETURN (CORBA::TypeCode::_nil ());
-
- return this->element_type_i (ACE_TRY_ENV);
-}
-
-CORBA::TypeCode_ptr
-TAO_ArrayDef_i::element_type_i (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<TAO_IDLType_i> safety (impl);
-
- return impl->type_i (ACE_TRY_ENV);
-}
-
-IR::IDLType_ptr
-TAO_ArrayDef_i::element_type_def (CORBA::Environment &ACE_TRY_ENV)
- ACE_THROW_SPEC ((CORBA::SystemException))
-{
- TAO_IFR_READ_GUARD_RETURN (IR::IDLType::_nil ());
-
- return this->element_type_def_i (ACE_TRY_ENV);
-}
-
-IR::IDLType_ptr
-TAO_ArrayDef_i::element_type_def_i (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))
-{
- TAO_IFR_WRITE_GUARD;
-
- this->element_type_def_i (element_type_def,
- ACE_TRY_ENV);
-}
-
-void
-TAO_ArrayDef_i::element_type_def_i (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<TAO_IDLType_i> safety (impl);
-
- impl->destroy_i (ACE_TRY_ENV);
- ACE_CHECK;
- break;
- }
- default:
- break;
- }
-}
-
View Lorry Controller Status