TAO/TAO_IDL/be/be_visitor_operation/operation_svs.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    operation_svs.cpp
   5  *
   6  *  Visitor generating code for Operation in the CIAO servants file.
   7  *
   8  *  @author Jeff Parsons
   9  */
  10 //=============================================================================
  11
  12 #include "operation.h"
  13 #include "be_visitor_operation/operation_svs.h"
  14
  15 be_visitor_operation_svs::be_visitor_operation_svs (
  16       be_visitor_context *ctx)
  17   : be_visitor_scope (ctx),
  18     scope_ (nullptr)
  19 {
  20 }
  21
  22 be_visitor_operation_svs::~be_visitor_operation_svs ()
  23 {
  24 }
  25
  26 int
  27 be_visitor_operation_svs::visit_operation (be_operation *node)
  28 {
  29   this->ctx_->node (node);
  30
  31   os_ << be_nl_2;
  32
  33
  34   if (this->ctx_->state () == TAO_CodeGen::TAO_ROOT_SVTS)
  35     {
  36       os_ << "template <typename BASE, typename EXEC, typename CONTEXT>"
  37           << be_nl;
  38     }
  39   // Retrieve the operation return type.
  40   be_type *bt = dynamic_cast<be_type*> (node->return_type ());
  41
  42   if (bt == nullptr)
  43     {
  44       ACE_ERROR_RETURN ((LM_ERROR,
  45                          "be_visitor_operation_svs::"
  46                          "visit_operation - "
  47                          "Bad return type\n"),
  48                         -1);
  49     }
  50
  51   // Generate the return type mapping (same as in the header file)
  52   be_visitor_context ctx = *this->ctx_;
  53   be_visitor_operation_rettype rt_visitor (&ctx);
  54
  55   if (bt->accept (&rt_visitor) == -1)
  56     {
  57       ACE_ERROR_RETURN ((LM_ERROR,
  58                          "be_visitor_operation_svs::"
  59                          "visit_operation - "
  60                          "codegen for return type failed\n"),
  61                         -1);
  62     }
  63
  64   // Generate the operation name, avoiding possible _cxx_ prefix.
  65   // USE STATE con the context!!!!!!!
  66   if (this->ctx_->state () == TAO_CodeGen::TAO_ROOT_SVTS)
  67     {
  68       os_ << be_nl
  69           << scope_->original_local_name ()->get_string ()
  70           << "_Servant_T<BASE, EXEC, CONTEXT>";
  71     }
  72   else
  73     {
  74       os_ << be_nl
  75           << scope_->original_local_name ()->get_string ()
  76           << "_Servant";
  77     }
  78
  79   os_ << "::" << node->local_name ();
  80
  81   // Generate the argument list with the appropriate mapping (same as
  82   // in the header file)
  83   ctx = *this->ctx_;
  84   be_visitor_operation_arglist al_visitor (&ctx);
  85
  86   if (node->accept (&al_visitor) == -1)
  87     {
  88       ACE_ERROR_RETURN ((LM_ERROR,
  89                          "be_visitor_operation_svs::"
  90                          "visit_operation - "
  91                          "codegen for argument list failed\n"),
  92                         -1);
  93     }
  94
  95   return this->gen_op_body (node);
  96 }
  97
  98 int
  99 be_visitor_operation_svs::gen_op_body (be_operation *node)
 100 {
 101   os_ << be_nl
 102       << "{" << be_idt_nl;
 103
 104   ACE_CString sname_str (ScopeAsDecl (scope_->defined_in ())->full_name ());
 105   const char *global = (sname_str == "" ? "" : "::");
 106
 107   if (this->ctx_->state () == TAO_CodeGen::TAO_ROOT_SVTS)
 108     {
 109       os_ << "typename EXEC::_var_type executor = " << be_idt_nl
 110           << "EXEC::_duplicate (this->executor_.in ());" << be_uidt;
 111     }
 112   else
 113     {
 114       os_ << "::" << sname_str << global << "CCM_" << scope_->original_local_name ()
 115           << "_var executor = " << be_idt_nl
 116           << "::" << sname_str << global << "CCM_" << scope_->original_local_name ()
 117           << "::_duplicate (this->executor_.in ());" << be_uidt;
 118     }
 119
 120   os_ << be_nl_2
 121       << "if (::CORBA::is_nil (executor.in ()))"
 122       << be_idt_nl
 123       << "{"<< be_idt_nl
 124       << "throw ::CORBA::INV_OBJREF ();" << be_uidt_nl
 125       << "}" << be_uidt_nl << be_nl;
 126
 127   bool const vrt = node->void_return_type ();
 128
 129   if (!vrt)
 130     {
 131       os_ << "return ";
 132     }
 133
 134   os_ << "executor->" << node->local_name () << " (";
 135
 136   if (node->argument_count () == 0)
 137     {
 138       os_ << ");";
 139     }
 140   else
 141     {
 142       os_ << be_idt_nl;
 143
 144       if (this->visit_scope (node) == -1)
 145         {
 146           ACE_ERROR_RETURN ((LM_ERROR,
 147                              ACE_TEXT ("be_visitor_operation_svs")
 148                              ACE_TEXT ("::gen_op_body - ")
 149                              ACE_TEXT ("visit_scope() failed\n")),
 150                             -1);
 151         }
 152     }
 153
 154   os_ << be_uidt_nl
 155      << "}";
 156
 157   return 0;
 158 }
 159
 160 int
 161 be_visitor_operation_svs::visit_argument (be_argument *node)
 162 {
 163   os_ << node->local_name ();
 164
 165   return 0;
 166 }
 167
 168 int
 169 be_visitor_operation_svs::post_process (be_decl *bd)
 170 {
 171   if (this->last_node (bd))
 172     {
 173       os_ << ");" << be_uidt;
 174     }
 175   else
 176     {
 177       os_ << "," << be_nl;
 178     }
 179
 180   return 0;
 181 }
 182
 183 void
 184 be_visitor_operation_svs::scope (be_decl *node)
 185 {
 186   this->scope_ = node;
 187 }