1 files changed, 71 insertions, 0 deletions
diff --git a/TAO/TAO_IDL/be/be_visitor_operation/rettype_post_invoke_cs.cpp b/TAO/TAO_IDL/be/be_visitor_operation/rettype_post_invoke_cs.cpp
new file mode 100644
index 00000000000..10361e70771
--- /dev/null
+++ b/TAO/TAO_IDL/be/be_visitor_operation/rettype_post_invoke_cs.cpp
@@ -0,0 +1,71 @@
+//
+// $Id$
+//
+
+// ============================================================================
+//
+// = LIBRARY
+//    TAO IDL
+//
+// = FILENAME
+//    rettype_post_invoke_cs.cpp
+//
+// = DESCRIPTION
+//    Visitor generating code for return type post processing following a
+//    do_static_call.
+//
+// = AUTHOR
+//    Aniruddha Gokhale
+//
+// ============================================================================
+
+#include        "idl.h"
+#include        "idl_extern.h"
+#include        "be.h"
+
+#include "be_visitor_operation.h"
+
+ACE_RCSID(be_visitor_operation, rettype_post_invoke_cs, "$Id$")
+
+
+// *******************************************************************************
+//    be_visitor_operation_rettype_post_invoke_cs
+// ********************************************************************************
+
+be_visitor_operation_rettype_post_invoke_cs::
+    be_visitor_operation_rettype_post_invoke_cs (be_visitor_context *ctx)
+      : be_visitor_decl (ctx)
+{
+}
+
+int
+be_visitor_operation_rettype_post_invoke_cs::visit_array (be_array *node)
+{
+  TAO_OutStream *os = this->ctx_->stream (); // grab the out stream
+  be_type *bt = node;
+
+  if (this->ctx_->alias ()) // a typedefed return type
+    bt = this->ctx_->alias ();
+
+  *os << bt->name () << "_forany _tao_retval_forany ("
+      << be_idt << be_idt_nl
+      << "_tao_safe_retval.inout ()" << be_uidt_nl
+      << ");\n" << be_uidt;
+  return 0;
+}
+
+int
+be_visitor_operation_rettype_post_invoke_cs::visit_typedef (be_typedef *node)
+{
+  this->ctx_->alias (node); // set the alias node
+  if (node->primitive_base_type ()->accept (this) == -1)
+    {
+      ACE_ERROR_RETURN ((LM_ERROR,
+                         "be_visitor_operation_rettype_post_docall::"
+                         "visit_typedef - "
+                         "accept on primitive type failed\n"),
+                        -1);
+    }
+  this->ctx_->alias (0);
+  return 0;
+}