1 files changed, 0 insertions, 459 deletions
diff --git a/TAO/TAO_IDL/be/be_visitor_argument/pre_docall_cs.cpp b/TAO/TAO_IDL/be/be_visitor_argument/pre_docall_cs.cpp
deleted file mode 100644
index 95f70c84bbc..00000000000
--- a/TAO/TAO_IDL/be/be_visitor_argument/pre_docall_cs.cpp
+++ /dev/null
@@ -1,459 +0,0 @@
-//
-// $Id$
-//
-
-// ============================================================================
-//
-// = LIBRARY
-//    TAO IDL
-//
-// = FILENAME
-//    pre_docall_cs.cpp
-//
-// = DESCRIPTION
-//    Visitor that generates code (if any) for pre-processing prior to call to
-//    do_static_call in the client stub
-//
-// = AUTHOR
-//    Aniruddha Gokhale
-//
-// ============================================================================
-
-#include "idl.h"
-#include "be.h"
-#include "be_visitor_argument.h"
-
-ACE_RCSID(be_visitor_argument, pre_docall_cs, "$Id$")
-
-
-// *************************************************************************
-// visitor for argument to do any pre docall processing. Not all types need
-// this. Only those that have an _out type need this.  In addition, interfaces
-// need it because we ned to convert from the interface type to the base Object
-// type and vice versa.
-// *************************************************************************
-
-be_visitor_args_pre_docall_cs::be_visitor_args_pre_docall_cs
-(be_visitor_context *ctx)
-  : be_visitor_args (ctx)
-{
-}
-
-be_visitor_args_pre_docall_cs::~be_visitor_args_pre_docall_cs (void)
-{
-}
-
-int
-be_visitor_args_pre_docall_cs::void_return_type (void)
-{
-  // is the operation return type void?
-  be_argument *arg = this->ctx_->be_node_as_argument ();
-  ACE_ASSERT (arg != 0);
-  be_operation *op = be_operation::narrow_from_scope (arg->defined_in ());
-  ACE_ASSERT (arg != 0);
-
-  be_type *bt = be_type::narrow_from_decl (op->return_type ());
-  if (bt->node_type () == AST_Decl::NT_pre_defined
-      && (be_predefined_type::narrow_from_decl (bt)->pt ()
-          == AST_PredefinedType::PT_void))
-    return 1;
-  else
-    return 0;
-}
-
-int be_visitor_args_pre_docall_cs::visit_argument (be_argument *node)
-{
-  this->ctx_->node (node); // save the argument node
-
-  // retrieve the type of the argument
-  be_type *bt = be_type::narrow_from_decl (node->field_type ());
-  if (!bt)
-    {
-      ACE_ERROR_RETURN ((LM_ERROR,
-                         "be_visitor_args_pre_docall_cs::"
-                         "visit_argument - "
-                         "Bad argument type\n"),
-                        -1);
-    }
-
-  // Different types have different mappings when used as in/out or
-  // inout parameters. Let this visitor deal with the type
-
-  if (bt->accept (this) == -1)
-    {
-      ACE_ERROR_RETURN ((LM_ERROR,
-                         "be_visitor_args_pre_docall_cs::"
-                         "visit_argument - "
-                         "cannot accept visitor\n"),
-                        -1);
-    }
-
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_array (be_array *node)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-  // if the current type is an alias, use that
-  be_type *bt;
-  if (this->ctx_->alias ())
-    bt = this->ctx_->alias ();
-  else
-    bt = node;
-
-  switch (this->direction ())
-    {
-    case AST_Argument::dir_OUT:
-      if (node->size_type () == be_decl::VARIABLE)
-        {
-          os->indent ();
-#if 0 /* ASG */
-          *os << bt->name () << "_slice *&_tao_base_" << arg->local_name ()
-              << " = " << arg->local_name () << ".ptr ();" << be_nl;
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_ALLOCATOR_RETURN (_tao_base_" << arg->local_name ()
-                  << ", " << bt->name () << "_alloc (), _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_ALLOCATOR (_tao_base_" << arg->local_name ()
-                  << ", " << bt->name () << "_alloc ());\n";
-            }
-#endif
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_ALLOCATOR_RETURN (" << arg->local_name ()
-                  << ".ptr (), " << bt->name () << "_alloc (), _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_ALLOCATOR (" << arg->local_name ()
-                  << ".ptr (), " << bt->name () << "_alloc ());\n";
-            }
-        }
-      break;
-    default:
-      break;
-    }
-  return 0;
-
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_interface (be_interface *node)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-
-  switch (this->direction ())
-    {
-    case AST_Argument::dir_IN:
-    case AST_Argument::dir_INOUT:
-      os->indent ();
-      *os << "CORBA::Object_ptr _tao_base_" << arg->local_name ()
-          << " = " << arg->local_name () << ";\n";
-      break;
-    case AST_Argument::dir_OUT:
-      os->indent ();
-      *os << "CORBA::Object_ptr _tao_base_" << arg->local_name () << ";\n";
-      break;
-    default:
-      break;
-    }
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_interface_fwd (be_interface_fwd *node)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-
-  switch (this->direction ())
-    {
-    case AST_Argument::dir_IN:
-    case AST_Argument::dir_INOUT:
-      os->indent ();
-      *os << "CORBA::Object_ptr _tao_base_" << arg->local_name ()
-          << " = " << arg->local_name () << ";\n";
-      break;
-    case AST_Argument::dir_OUT:
-      os->indent ();
-      *os << "CORBA::Object_ptr _tao_base_" << arg->local_name () << ";\n";
-      break;
-    default:
-      break;
-    }
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_predefined_type (be_predefined_type *node)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-  // if the current type is an alias, use that
-  be_type *bt;
-  if (this->ctx_->alias ())
-    bt = this->ctx_->alias ();
-  else
-    bt = node;
-
-  // pre do_static_call processing is valid only for pseudo objects and for Any
-  switch (node->pt ())
-    {
-    case AST_PredefinedType::PT_pseudo:
-      {
-      switch (this->direction ())
-        {
-        case AST_Argument::dir_OUT:
-#if 0
-          os->indent ();
-          *os << bt->name () << "_ptr &_tao_base_" << arg->local_name ()
-              << " = " << arg->local_name () << ".ptr ();\n";
-#endif
-          break;
-        default:
-          break;
-        }
-      }
-      break;
-    case AST_PredefinedType::PT_any:
-      {
-      switch (this->direction ())
-        {
-        case AST_Argument::dir_OUT:
-          os->indent ();
-#if 0 /* ASG */
-          *os << bt->name () << " *&_tao_base_" << arg->local_name ()
-              << " = " << arg->local_name () << ".ptr ();" << be_nl;
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_NEW_RETURN (_tao_base_" << arg->local_name ()
-                  << ", CORBA::Any, _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_NEW (_tao_base_" << arg->local_name ()
-                  << ", CORBA::Any);\n";
-            }
-#endif
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_NEW_RETURN (" << arg->local_name ()
-                  << ".ptr (), CORBA::Any, _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_NEW (" << arg->local_name ()
-                  << ".ptr (), CORBA::Any);\n";
-            }
-          break;
-        default:
-          break;
-        }
-      }
-      break;
-    default:
-      break;
-    }
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_sequence (be_sequence *node)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-  // if the current type is an alias, use that
-  be_type *bt;
-  if (this->ctx_->alias ())
-    bt = this->ctx_->alias ();
-  else
-    bt = node;
-
-  switch (this->direction ())
-    {
-    case AST_Argument::dir_OUT:
-      // caller must have allocated the pointer
-      os->indent ();
-#if 0 /* ASG */
-      *os << bt->name () << " *&_tao_base_" << arg->local_name ()
-          << " = " << arg->local_name () << ".ptr ();" << be_nl;
-      if (!this->void_return_type ())
-        {
-          *os << "ACE_NEW_RETURN (_tao_base_" << arg->local_name ()
-              << ", " << bt->name () << ", _tao_retval);\n";
-        }
-      else
-        {
-          *os << "ACE_NEW (_tao_base_" << arg->local_name ()
-              << ", " << bt->name () << ");\n";
-        }
-#endif
-      if (!this->void_return_type ())
-        {
-          *os << "ACE_NEW_RETURN (" << arg->local_name ()
-              << ".ptr (), " << bt->name () << ", _tao_retval);\n";
-        }
-      else
-        {
-          *os << "ACE_NEW (" << arg->local_name ()
-              << ".ptr (), " << bt->name () << ");\n";
-        }
-      break;
-    default:
-      break;
-    }
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_string (be_string *)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-
-  switch (this->direction ())
-    {
-    case AST_Argument::dir_OUT:
-      // caller should have allocated the pointer
-      os->indent ();
-#if 0
-      *os << "char *&_tao_base_" << arg->local_name ()
-          << " = " << arg->local_name () << ".ptr ();\n";
-#endif
-      break;
-    default:
-      break;
-    }
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_structure (be_structure *node)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-  // if the current type is an alias, use that
-  be_type *bt;
-  if (this->ctx_->alias ())
-    bt = this->ctx_->alias ();
-  else
-    bt = node;
-
-  if (node->size_type () == be_type::VARIABLE)
-    {
-      switch (this->direction ())
-        {
-        case AST_Argument::dir_OUT:
-          // caller must have allocated the pointer
-          os->indent ();
-#if 0 /* ASG */
-          *os << bt->name () << " *&_tao_base_" << arg->local_name ()
-              << " = " << arg->local_name () << ".ptr ();" << be_nl;
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_NEW_RETURN (_tao_base_" << arg->local_name ()
-                  << ", " << bt->name () << ", _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_NEW (_tao_base_" << arg->local_name ()
-                  << ", " << bt->name () << ");\n";
-            }
-#endif
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_NEW_RETURN (" << arg->local_name ()
-                  << ".ptr (), " << bt->name () << ", _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_NEW (" << arg->local_name ()
-                  << ".ptr (), " << bt->name () << ");\n";
-            }
-          break;
-        default:
-          break;
-        }
-    }
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_union (be_union *node)
-{
-  TAO_OutStream *os = this->ctx_->stream (); // get output stream
-  be_argument *arg = this->ctx_->be_node_as_argument (); // get the argument
-                                                         // node
-  // if the current type is an alias, use that
-  be_type *bt;
-  if (this->ctx_->alias ())
-    bt = this->ctx_->alias ();
-  else
-    bt = node;
-
-  if (node->size_type () == be_type::VARIABLE)
-    {
-      switch (this->direction ())
-        {
-        case AST_Argument::dir_OUT:
-          os->indent ();
-#if 0 /* ASG */
-          *os << bt->name () << " *&_tao_base_" << arg->local_name ()
-              << " = " << arg->local_name () << ".ptr ();" << be_nl;
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_NEW_RETURN (_tao_base_" << arg->local_name ()
-                  << ", " << bt->name () << ", _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_NEW (_tao_base_" << arg->local_name ()
-                  << ", " << bt->name () << ");\n";
-            }
-#endif
-          if (!this->void_return_type ())
-            {
-              *os << "ACE_NEW_RETURN (" << arg->local_name ()
-                  << ".ptr (), " << bt->name () << ", _tao_retval);\n";
-            }
-          else
-            {
-              *os << "ACE_NEW (" << arg->local_name ()
-                  << ".ptr (), " << bt->name () << ");\n";
-            }
-          break;
-        default:
-          break;
-        }
-    }
-  return 0;
-}
-
-int
-be_visitor_args_pre_docall_cs::visit_typedef (be_typedef *node)
-{
-  this->ctx_->alias (node);
-  if (node->primitive_base_type ()->accept (this) == -1)
-    {
-      ACE_ERROR_RETURN ((LM_ERROR,
-                         "be_visitor_args_pre_docall_cs::"
-                         "visit_typedef - "
-                         "accept on primitive type failed\n"),
-                        -1);
-    }
-  this->ctx_->alias (0);
-  return 0;
-}