1 files changed, 123 insertions, 0 deletions
diff --git a/TAO/orbsvcs/orbsvcs/IFRService/AliasDef_i.cpp b/TAO/orbsvcs/orbsvcs/IFRService/AliasDef_i.cpp
new file mode 100644
index 00000000000..ca9da20fd00
--- /dev/null
+++ b/TAO/orbsvcs/orbsvcs/IFRService/AliasDef_i.cpp
@@ -0,0 +1,123 @@
+// $Id$
+
+#include "orbsvcs/IFRService/AliasDef_i.h"
+#include "orbsvcs/IFRService/Repository_i.h"
+#include "orbsvcs/IFRService/IFR_Service_Utils.h"
+#include "ace/Auto_Ptr.h"
+#include "ace/SString.h"
+
+
+ACE_RCSID (IFRService,
+           AliasDef_i,
+           "$Id$")
+
+TAO_BEGIN_VERSIONED_NAMESPACE_DECL
+
+TAO_AliasDef_i::TAO_AliasDef_i (TAO_Repository_i *repo)
+  : TAO_IRObject_i (repo),
+    TAO_Contained_i (repo),
+    TAO_IDLType_i (repo),
+    TAO_TypedefDef_i (repo)
+{
+}
+
+TAO_AliasDef_i::~TAO_AliasDef_i (void)
+{
+}
+
+CORBA::DefinitionKind
+TAO_AliasDef_i::def_kind (void)
+{
+  return CORBA::dk_Alias;
+}
+
+CORBA::TypeCode_ptr
+TAO_AliasDef_i::type (void)
+{
+  TAO_IFR_READ_GUARD_RETURN (CORBA::TypeCode::_nil ());
+
+  this->update_key ();
+
+  return this->type_i ();
+}
+
+CORBA::TypeCode_ptr
+TAO_AliasDef_i::type_i (void)
+{
+  ACE_TString id;
+  this->repo_->config ()->get_string_value (this->section_key_,
+                                            "id",
+                                            id);
+
+  ACE_TString name;
+  this->repo_->config ()->get_string_value (this->section_key_,
+                                            "name",
+                                            name);
+
+  ACE_TString original_type;
+  this->repo_->config ()->get_string_value (this->section_key_,
+                                            "original_type",
+                                            original_type);
+
+  TAO_IDLType_i *impl =
+    TAO_IFR_Service_Utils::path_to_idltype (original_type,
+                                            this->repo_);
+  if (0 == impl)
+  {
+     throw CORBA::OBJECT_NOT_EXIST();
+  }
+
+  CORBA::TypeCode_var tc = impl->type_i ();
+
+  return this->repo_->tc_factory ()->create_alias_tc (id.c_str (),
+                                                      name.c_str (),
+                                                      tc.in ());
+}
+
+CORBA::IDLType_ptr
+TAO_AliasDef_i::original_type_def (void)
+{
+  TAO_IFR_READ_GUARD_RETURN (CORBA::IDLType::_nil ());
+
+  this->update_key ();
+
+  return this->original_type_def_i ();
+}
+
+CORBA::IDLType_ptr
+TAO_AliasDef_i::original_type_def_i (void)
+{
+  ACE_TString original_type;
+  this->repo_->config ()->get_string_value (this->section_key_,
+                                            "original_type",
+                                            original_type);
+
+  CORBA::Object_var obj =
+    TAO_IFR_Service_Utils::path_to_ir_object (original_type,
+                                              this->repo_);
+
+  return CORBA::IDLType::_narrow (obj.in ());
+}
+
+void
+TAO_AliasDef_i::original_type_def (CORBA::IDLType_ptr original_type_def)
+{
+  TAO_IFR_WRITE_GUARD;
+
+  this->update_key ();
+
+  this->original_type_def_i (original_type_def);
+}
+
+void
+TAO_AliasDef_i::original_type_def_i (CORBA::IDLType_ptr original_type_def)
+{
+  char *original_type =
+    TAO_IFR_Service_Utils::reference_to_path (original_type_def);
+
+  this->repo_->config ()->set_string_value (this->section_key_,
+                                            "original_type",
+                                            original_type);
+}
+
+TAO_END_VERSIONED_NAMESPACE_DECL