1 files changed, 94 insertions, 0 deletions
diff --git a/ACE/TAO/TAO_IDL/be/be_visitor_typecode/alias_typecode.cpp b/ACE/TAO/TAO_IDL/be/be_visitor_typecode/alias_typecode.cpp
new file mode 100644
index 00000000000..c922bca275c
--- /dev/null
+++ b/ACE/TAO/TAO_IDL/be/be_visitor_typecode/alias_typecode.cpp
@@ -0,0 +1,94 @@
+// -*- C++ -*-
+
+//=============================================================================
+/**
+ *  @file  alias_typecode.cpp
+ *
+ *  $Id$
+ *
+ *  Alias (typedef) TypeCode generation visitor.
+ *
+ *  @author  Ossama Othman <ossama@dre.vanderbilt.edu>
+ */
+//=============================================================================
+
+
+TAO::be_visitor_alias_typecode::be_visitor_alias_typecode (
+  be_visitor_context * ctx)
+  : be_visitor_typecode_defn (ctx)
+{
+}
+
+int
+TAO::be_visitor_alias_typecode::visit_typedef (be_typedef * node)
+{
+  be_type * const base = be_type::narrow_from_decl (node->base_type ());
+
+
+  return this->common (node, base, "tk_alias");
+
+}
+
+
+int
+TAO::be_visitor_alias_typecode::visit_valuebox (be_valuebox * node)
+{
+  be_type * const base = be_type::narrow_from_decl (node->boxed_type ());
+
+  return this->common (node, base, "tk_value_box");
+}
+
+int
+TAO::be_visitor_alias_typecode::common (be_type * node,
+                                        be_type * base,
+                                        const char * tctype)
+{
+  TAO_OutStream & os = *this->ctx_->stream ();
+
+  os << be_nl << be_nl
+     << "// TAO_IDL - Generated from" << be_nl
+     << "// " << __FILE__ << ":" << __LINE__ << be_nl << be_nl;
+
+  this->ctx_->sub_state (TAO_CodeGen::TAO_TC_DEFN_TYPECODE_NESTED);
+
+  // Generate typecode for the base type, being careful to avoid doing
+  // so for a typedef since that could recursively cause multiple base
+  // type TypeCode definitions to be generated.
+  if (!base || (base->node_type () != AST_Decl::NT_typedef
+                && base->accept (this) == -1))
+    {
+      ACE_ERROR_RETURN ((LM_ERROR,
+                         ACE_TEXT ("(%N:%l) be_visitor_alias_typecode")
+                         ACE_TEXT ("::common) - ")
+                         ACE_TEXT ("failed to generate base typecode\n")),
+                        -1);
+    }
+
+  // Generate the alias TypeCode instantiation.
+  os
+    << "static TAO::TypeCode::Alias<char const *," << be_nl
+    << "                            ::CORBA::TypeCode_ptr const *," << be_nl
+    << "                            TAO::Null_RefCount_Policy>"
+    << be_idt_nl
+    << "_tao_tc_" << node->flat_name () << " (" << be_idt_nl
+    << "::CORBA::" << tctype << "," << be_nl
+    << "\"" << node->repoID () << "\"," << be_nl
+    << "\"" << node->original_local_name () << "\"," << be_nl
+    << "&";
+
+  if (this->gen_base_typecode_name (base) != 0)
+    ACE_ERROR_RETURN ((LM_ERROR,
+                       ACE_TEXT ("(%N:%l) be_visitor_alias_typecode::")
+                       ACE_TEXT ("common - problem generating base ")
+                       ACE_TEXT ("TypeCode name.\n")),
+                       -1);
+
+
+  os << ");" << be_uidt_nl
+     << be_uidt_nl;
+
+  if (this->gen_typecode_ptr (node) != 0)
+    return -1;
+
+  return 0;
+}