1 files changed, 150 insertions, 0 deletions
diff --git a/TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_sh.cpp b/TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_sh.cpp
new file mode 100644
index 00000000000..fa2aebe35da
--- /dev/null
+++ b/TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_sh.cpp
@@ -0,0 +1,150 @@
+//
+// $Id$
+//
+
+// ============================================================================
+//
+// = LIBRARY
+//    TAO IDL
+//
+// = FILENAME
+//    direct_collocated_sh.cpp
+//
+// = DESCRIPTION
+//    Visitor generating code for direct_collocated classes for the Interface node
+//    inside the server header.
+//
+// = AUTHOR
+//    Aniruddha Gokhale
+//
+// ============================================================================
+
+#include        "idl.h"
+#include        "idl_extern.h"
+#include        "be.h"
+
+#include "be_visitor_interface.h"
+
+ACE_RCSID(be_visitor_interface, direct_collocated_sh, "$Id$")
+
+
+// ************************************************************
+//  direct_collocated class in header
+// ************************************************************
+
+be_visitor_interface_direct_collocated_sh::be_visitor_interface_direct_collocated_sh
+(be_visitor_context *ctx)
+  : be_visitor_interface (ctx)
+{
+}
+
+be_visitor_interface_direct_collocated_sh::~be_visitor_interface_direct_collocated_sh (void)
+{
+}
+
+int be_visitor_interface_direct_collocated_sh::visit_interface (be_interface *node)
+{
+  TAO_OutStream *os = this->ctx_->stream ();
+
+  os->gen_ifdef_macro (node->flat_name (), "_direct_collocated");
+
+  // output the class defn
+  os->indent ();
+  *os << "class "
+      << be_global->skel_export_macro ()
+      << " " << node->local_coll_name (be_interface::DIRECT);
+  *os << be_idt << be_idt_nl
+      << ": public virtual " << node->name () << be_nl
+      << ", public virtual TAO_Collocated_Object";
+
+  // generate base classes if any
+  if (node->n_inherits () > 0)
+    {
+      for (int i = 0; i < node->n_inherits (); ++i)
+        {
+          be_interface* parent =
+            be_interface::narrow_from_decl (node->inherits()[i]);
+          *os << be_nl << ", public virtual "
+              << be_interface::relative_name (parent->full_coll_name (be_interface::DIRECT),
+                                              node->full_coll_name (be_interface::DIRECT));
+        }
+    }
+  *os << be_uidt << be_uidt_nl
+      << "{" << be_nl
+      << "public:\n";
+  os->incr_indent ();
+
+  *os << node->local_coll_name (be_interface::DIRECT) << " (\n";
+
+  os->incr_indent (0);
+  os->incr_indent ();
+
+  // XXXASG - can we make this a method to return the right name ??
+  if (!node->is_nested ())
+    {
+      // The skeleton name is the outermost, we need to printout the
+      // POA_ prefix that goes with it.
+      *os << "POA_";
+    }
+
+  *os << node->local_name () << "_ptr "
+      << " servant," << be_nl;
+
+  *os << "TAO_Stub *stub\n";
+  os->decr_indent ();
+  *os << ");\n";
+  os->decr_indent (0);
+
+  os->indent ();
+
+  *os << "virtual CORBA::Boolean _is_a" << be_idt
+      << "(" << be_idt_nl
+      << "const CORBA::Char *logical_type_id" << be_nl
+      << "ACE_ENV_ARG_DECL_WITH_DEFAULTS" << be_uidt_nl
+      << ");" << be_uidt_nl << be_nl;
+
+  *os << "virtual void *_tao_QueryInterface (ptr_arith_t type);\n"
+      << be_nl;
+
+  if (!node->is_nested ())
+    {
+      // The skeleton name is the outermost, we need to printout the
+      // POA_ prefix that goes with it.
+      *os << "POA_";
+    }
+
+  *os << node->local_name ()
+      << "_ptr _get_servant (void) const;" << be_nl << be_nl;
+
+  *os << "virtual CORBA::Boolean _non_existent" << be_idt
+      << "(" << be_idt_nl
+      << "ACE_ENV_SINGLE_ARG_DECL_WITH_DEFAULTS" << be_uidt_nl
+      << ");" << be_uidt_nl << be_nl;
+
+  if (this->visit_scope (node) == -1)
+    {
+      ACE_ERROR_RETURN ((LM_ERROR,
+                         "be_visitor_interface_direct_collocated_sh::"
+                         "visit_interface - "
+                         "codegen for scope failed\n"),
+                        -1);
+    }
+
+  os->decr_indent ();
+
+  *os << be_nl << "private:\n";
+  os->incr_indent ();
+  if (!node->is_nested ())
+    {
+      // The skeleton name is the outermost, we need to printout the
+      // POA_ prefix that goes with it.
+      *os << "POA_";
+    }
+  *os << node->local_name () << "_ptr servant_;\n";
+  os->decr_indent ();
+  *os << "};\n\n";
+
+  os->gen_endif ();
+
+  return 0;
+}