New IFR implementation files.

1 files changed, 216 insertions, 0 deletions

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<TAO_IDLType_i> 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<TAO_IDLType_i> safety (impl);
+
+      impl->destroy (ACE_TRY_ENV);
+      ACE_CHECK;
+      break;
+    }
+    default:
+      break;
+  }
+}
+