TAO/TAO_IDL/be/be_visitor_operation/operation_exs.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    operation_exs.cpp
   5  *
   6  *  Visitor generating code for Operation in the CIAO executor file.
   7  *
   8  *  @author Jeff Parsons
   9  */
  10 //=============================================================================
  11
  12 #include "operation.h"
  13
  14 be_visitor_operation_exs::be_visitor_operation_exs (be_visitor_context *ctx)
  15   : be_visitor_scope (ctx),
  16     os_ (*ctx->stream ()),
  17     scope_ (nullptr),
  18     your_code_here_ ("/* Your code here. */"),
  19     class_extension_ ("_exec_i")
  20 {
  21 }
  22
  23 be_visitor_operation_exs::~be_visitor_operation_exs ()
  24 {
  25 }
  26
  27 int
  28 be_visitor_operation_exs::visit_operation (be_operation *node)
  29 {
  30   // Impl classes shouldn't have implied AMI operations.
  31   if (node->is_sendc_ami ())
  32     {
  33       return 0;
  34     }
  35
  36   this->ctx_->node (node);
  37
  38   os_ << be_nl_2;
  39
  40   // Retrieve the operation return type.
  41   be_type *rt = dynamic_cast<be_type*> (node->return_type ());
  42
  43   if (rt == nullptr)
  44     {
  45       ACE_ERROR_RETURN ((LM_ERROR,
  46                          ACE_TEXT ("be_visitor_operation_exs::")
  47                          ACE_TEXT ("visit_operation - ")
  48                          ACE_TEXT ("Bad return type\n")),
  49                         -1);
  50     }
  51
  52   // Generate the return type mapping (same as in the header file)
  53   be_visitor_context ctx = *this->ctx_;
  54   be_visitor_operation_rettype rt_visitor (&ctx);
  55
  56   if (rt->accept (&rt_visitor) == -1)
  57     {
  58       ACE_ERROR_RETURN ((LM_ERROR,
  59                          ACE_TEXT ("be_visitor_operation_exs::")
  60                          ACE_TEXT ("visit_operation - ")
  61                          ACE_TEXT ("codegen for return ")
  62                          ACE_TEXT ("type failed\n")),
  63                         -1);
  64     }
  65
  66   // Generate the operation name
  67   os_ << be_nl
  68       << this->ctx_->port_prefix ().c_str ()
  69       << this->scope_->original_local_name ()->get_string ()
  70       << this->class_extension_.c_str () << "::"
  71       << node->local_name ();
  72
  73   // Generate the argument list, which will use our overrridden
  74   // visit_argument().
  75   be_visitor_operation_arglist al_visitor (this->ctx_);
  76   al_visitor.unused (true);
  77
  78   if (node->accept (&al_visitor) == -1)
  79     {
  80       ACE_ERROR_RETURN ((LM_ERROR,
  81                          ACE_TEXT ("be_visitor_operation_exs::")
  82                          ACE_TEXT ("visit_operation - ")
  83                          ACE_TEXT ("codegen for argument ")
  84                          ACE_TEXT ("list failed\n")),
  85                         -1);
  86     }
  87
  88   // Must set this again, it's been changed by traversals above.
  89   this->ctx_->node (node);
  90
  91   return this->gen_op_body (rt);
  92 }
  93
  94 void
  95 be_visitor_operation_exs::scope (be_decl *node)
  96 {
  97   this->scope_ = node;
  98 }
  99
 100 void
 101 be_visitor_operation_exs::class_extension (const char *extension)
 102 {
 103   this->class_extension_ = extension;
 104 }
 105
 106 int
 107 be_visitor_operation_exs::gen_op_body (be_type *return_type)
 108 {
 109   os_ << be_nl
 110       << "{" << be_idt_nl
 111       << your_code_here_;
 112
 113   be_operation *op =
 114     dynamic_cast<be_operation*> (this->ctx_->node ());
 115
 116   if (! op->void_return_type ())
 117     {
 118       os_ << be_nl;
 119
 120       be_null_return_emitter emitter (this->ctx_);
 121
 122       if (emitter.emit (return_type) == -1)
 123         {
 124           ACE_ERROR_RETURN ((LM_ERROR,
 125                              ACE_TEXT ("be_visitor_operation_exs::")
 126                              ACE_TEXT ("gen_op_body - ")
 127                              ACE_TEXT ("be_null_return_emitter::")
 128                              ACE_TEXT ("emit() failed\n")),
 129                             -1);
 130         }
 131     }
 132
 133   os_ << be_uidt_nl
 134       << "}";
 135
 136   return 0;
 137 }
 138