diff options
Diffstat (limited to 'TAO/TAO_IDL/be/be_visitor_operation/arglist.cpp')
| -rw-r--r-- | TAO/TAO_IDL/be/be_visitor_operation/arglist.cpp | 178 |
1 files changed, 178 insertions, 0 deletions
diff --git a/TAO/TAO_IDL/be/be_visitor_operation/arglist.cpp b/TAO/TAO_IDL/be/be_visitor_operation/arglist.cpp new file mode 100644 index 00000000000..f66724444f8 --- /dev/null +++ b/TAO/TAO_IDL/be/be_visitor_operation/arglist.cpp @@ -0,0 +1,178 @@ +// +// $Id$ +// + +// ============================================================================ +// +// = LIBRARY +// TAO IDL +// +// = FILENAME +// arglist.cpp +// +// = DESCRIPTION +// Visitor generating code for the parameter list of the Operation signature. +// +// = AUTHOR +// Aniruddha Gokhale +// +// ============================================================================ + +ACE_RCSID (be_visitor_operation, + arglist, + "$Id$") + +// ************************************************************ +// operation visitor to generate the argument list. +// We have separated code generation for this from the 4 main +// visitors to avoid code duplication and tight coupling +// ************************************************************ + +be_visitor_operation_arglist::be_visitor_operation_arglist ( + be_visitor_context *ctx + ) + : be_visitor_operation (ctx) +{ +} + +be_visitor_operation_arglist::~be_visitor_operation_arglist (void) +{ +} + +int +be_visitor_operation_arglist::visit_operation (be_operation *node) +{ + TAO_OutStream *os = this->ctx_->stream (); + + *os << " (" << be_idt << be_idt_nl; + + switch (this->ctx_->state ()) + { + case TAO_CodeGen::TAO_OPERATION_ARGLIST_PROXY_IMPL_XH: + case TAO_CodeGen::TAO_OPERATION_ARGLIST_PROXY_IMPL_XS: + *os << "::CORBA::Object *_collocated_tao_target_"; + + if (node->argument_count () > 0) + { + *os << "," << be_nl; + } + + break; + default: + break; + } + + // All we do is hand over code generation to our scope. + if (this->visit_scope (node) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_operation_arglist::" + "visit_operation - " + "codegen for scope failed\n"), + -1); + } + + if (node->argument_count () == 0) + { + *os << "void"; + } + + *os << ")" << be_uidt << be_uidt; + + switch (this->ctx_->state ()) + { + case TAO_CodeGen::TAO_OPERATION_ARGLIST_CH: + case TAO_CodeGen::TAO_OPERATION_ARGLIST_COLLOCATED_SH: + case TAO_CodeGen::TAO_OPERATION_ARGLIST_IH: + if (node->is_local ()) + { + *os << " = 0"; + } + + break; + case TAO_CodeGen::TAO_OPERATION_ARGLIST_PROXY_IMPL_XH: + case TAO_CodeGen::TAO_TIE_OPERATION_ARGLIST_SH: + break; + case TAO_CodeGen::TAO_OPERATION_ARGLIST_SH: + *os << " = 0"; + break; + default: + return 0; + } + + *os << ";"; + + return 0; +} + +int +be_visitor_operation_arglist::visit_argument (be_argument *node) +{ + // Get the visitor that will dump the argument's mapping in the operation + // signature. + be_visitor_context ctx (*this->ctx_); + + // First grab the interface definition inside which this operation is + // defined. We need this since argument types may very well be declared + // inside the scope of the interface node. In such cases, we would like to + // generate the appropriate relative scoped names. + be_operation *op = this->ctx_->be_scope_as_operation (); + + if (!op) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_arglist::" + "visit_argument - " + "Bad operation\n"), + -1); + } + + // We need the interface node in which this operation was defined. However, + // if this operation node was an attribute node in disguise, we get this + // information from the context + be_interface *intf = this->ctx_->attribute () + ? be_interface::narrow_from_scope (this->ctx_->attribute ()->defined_in ()) + : be_interface::narrow_from_scope (op->defined_in ()); + + if (!intf) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_arglist::" + "visit_argument - " + "Bad interface\n"), + -1); + } + + // Set new scope. + ctx.scope (intf); + + // Create a visitor. + be_visitor_args_arglist visitor (&ctx); + + if (visitor.visit_argument (node) == -1) + { + ACE_ERROR_RETURN ((LM_ERROR, + "(%N:%l) be_visitor_arglist::" + "visit_argument - " + "codegen for arglist failed\n"), + -1); + } + + return 0; +} + +int +be_visitor_operation_arglist::post_process (be_decl *bd) +{ + TAO_OutStream *os = this->ctx_->stream (); + + // if we are not the last node in the list of arguments, generate a comma + // else decide if we are generating code to support true exceptions - in + // which case there will not be any CORBA::Environment parameter + if (!this->last_node (bd)) + { + *os << "," << be_nl; + } + + return 0; +} |