diff options
Diffstat (limited to 'TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_ss.cpp')
-rw-r--r-- | TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_ss.cpp | 205 |
1 files changed, 205 insertions, 0 deletions
diff --git a/TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_ss.cpp b/TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_ss.cpp new file mode 100644 index 00000000000..1d9bb2bb34f --- /dev/null +++ b/TAO/TAO_IDL/be/be_visitor_interface/direct_collocated_ss.cpp @@ -0,0 +1,205 @@ +// +// $Id$ +// + +// ============================================================================ +// +// = LIBRARY +// TAO IDL +// +// = FILENAME +// direct_collocated_ss.cpp +// +// = DESCRIPTION +// Visitor generating code for direct_collocated classes for an Interface in the +// server skeleton file. +// +// = 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_ss, "$Id$") + + +// ************************************************************ +// be_visitor_interface_collacted_ss +// ************************************************************ + +be_visitor_interface_direct_collocated_ss::be_visitor_interface_direct_collocated_ss +(be_visitor_context *ctx) + : be_visitor_interface (ctx) +{ +} + +be_visitor_interface_direct_collocated_ss::~be_visitor_interface_direct_collocated_ss (void) +{ +} + +int be_visitor_interface_direct_collocated_ss::visit_interface (be_interface *node) +{ + TAO_OutStream *os = this->ctx_->stream (); + + this->ctx_->node (node); + + os->indent (); + *os << node->full_coll_name (be_interface::DIRECT) << "::" + << node->local_coll_name (be_interface::DIRECT) << " (\n"; + + os->incr_indent (0); + os->incr_indent (); + *os << node->full_skel_name () << "_ptr " + << " servant," << be_nl; + + *os << "TAO_Stub *stub\n"; + os->decr_indent (); + *os << ")\n"; + os->decr_indent (0); + + os->incr_indent (); + + if (node->is_nested ()) + { + be_decl* scope = be_scope::narrow_from_scope (node->defined_in ())->decl (); + + *os << ": ACE_NESTED_CLASS (" + << scope->name () << "," + << node->local_name () + << ") ()" << be_nl; + } + else + { + *os << ": " << node->name () << " ()" << be_nl; + } + + // @@ We should call the constructor for all base classes, since we + // are using multiple inheritance. + + if (node->traverse_inheritance_graph (be_visitor_interface_direct_collocated_ss::collocated_ctor_helper, os) + == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "be_visitor_interface_direct_collocated_ss::" + "visit_interface - " + "codegen for base class ctor init failed\n"), + -1); + } + + *os << be_nl << ", TAO_Collocated_Object (stub, 1, servant)" + << be_nl << ", CORBA_Object (stub, 1)" + << be_nl << ", servant_ (servant)" + << be_uidt_nl; + *os << "{\n"; + *os << "}\n\n"; + + os->indent (); + + // Generate _is_a implementation. + *os << "CORBA::Boolean " << node->full_coll_name (be_interface::DIRECT) << "::" + << "_is_a" << be_idt + << "(" << be_idt_nl + << "const CORBA::Char *logical_type_id" << be_nl + << "ACE_ENV_ARG_DECL" << be_uidt_nl + << ")" << be_uidt_nl << be_nl; + *os << "{" << be_idt_nl + << "return this->servant_->_is_a (logical_type_id ACE_ENV_ARG_PARAMETER);" + << be_uidt_nl + << "}\n\n" << be_uidt_nl; + + // Generate _tao_QueryInterface implementation + *os << "void *" << be_nl + << node->full_coll_name (be_interface::DIRECT) + << "::_tao_QueryInterface (ptr_arith_t type)" << be_nl + << "{" << be_idt_nl + << "void *result =" << be_nl + << " this->TAO_Collocated_Object::_tao_QueryInterface (type);" + << be_nl + << "if (result != 0)" << be_nl + << " return result;" << be_nl; + *os << "return this->"; + if (!node->is_nested ()) + { + *os << node->name (); + } + else + { + be_decl* scope = + be_scope::narrow_from_scope (node->defined_in ())->decl (); + *os << "ACE_NESTED_CLASS (" + << scope->name () << "," + << node->local_name () + << ")"; + } + *os << "::_tao_QueryInterface (type);" << be_uidt_nl + << "}\n" << be_nl; + + // Generate _get_servant implementation. + *os << node->full_skel_name () << "_ptr " + << node->full_coll_name (be_interface::DIRECT) << "::" + << "_get_servant (void) const\n" + << "{\n"; + os->incr_indent (); + *os << "return this->servant_;\n"; + os->decr_indent (); + *os << "}\n\n"; + + os->indent (); + + // Generate _non_existent implementation. + *os << "CORBA::Boolean " << node->full_coll_name (be_interface::DIRECT) << "::" + << "_non_existent" << be_idt + << "(" << be_idt_nl + << "ACE_ENV_SINGLE_ARG_DECL" << be_uidt_nl + << ")" << be_uidt_nl << be_nl; + *os << "{" << be_idt_nl + << "return this->servant_->_non_existent (ACE_ENV_SINGLE_ARG_PARAMETER);" + << be_uidt_nl + << "}\n\n" << be_uidt_nl; + + if (this->visit_scope (node) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "be_visitor_interface_direct_collocated_ss::" + "visit_scope - " + "codegen for scope failed\n"), + -1); + } + + return 0; +} + +int +be_visitor_interface_direct_collocated_ss::collocated_ctor_helper (be_interface *derived, + be_interface *base, + TAO_OutStream *os) +{ + if (derived == base) + // we are the same. Don't do anything, otherwise we will end up calling + // ourself + return 0; + + if (base->is_nested ()) + { + be_decl *scope; + scope = be_scope::narrow_from_scope (base->defined_in ())->decl (); + *os << be_nl << ", " + << "ACE_NESTED_CLASS (POA_" << scope->name () + << "," + << base->local_coll_name (be_interface::DIRECT) + << ") (servant, stub)"; + } + else + { + *os << be_nl << ", " + << base->full_coll_name (be_interface::DIRECT) + << " (servant, stub)"; + } + + return 0; +} |