TAO/TAO_IDL/be/be_visitor_home/home_exs.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    home_exs.cpp
   5  *
   6  *  Visitor generating code for homes in the exec impl source.
   7  *
   8  *  @author Jeff Parsons
   9  */
  10 //=============================================================================
  11
  12 #include "home.h"
  13
  14 be_visitor_home_exs::be_visitor_home_exs (be_visitor_context *ctx)
  15   : be_visitor_scope (ctx),
  16     node_ (nullptr),
  17     comp_ (nullptr),
  18     os_ (*ctx->stream ()),
  19     comment_start_border_ ("/**"),
  20     comment_end_border_ (" */"),
  21     your_code_here_ ("/* Your code here. */"),
  22     export_macro_ (be_global->exec_export_macro ())
  23 {
  24 }
  25
  26 be_visitor_home_exs::~be_visitor_home_exs ()
  27 {
  28 }
  29
  30 int
  31 be_visitor_home_exs::visit_home (be_home *node)
  32 {
  33   if (node->imported ())
  34     {
  35       return 0;
  36     }
  37
  38   node_ = node;
  39   comp_ = node_->managed_component ();
  40
  41   /// Use 'CIAO_' + component's flat name.
  42   os_ << be_nl_2
  43       << "namespace CIAO_" << comp_->flat_name () << "_Impl" << be_nl
  44       << "{" << be_idt;
  45
  46   if (this->gen_exec_class () == -1)
  47     {
  48       ACE_ERROR_RETURN ((LM_ERROR,
  49                          ACE_TEXT ("be_visitor_home_exs::")
  50                          ACE_TEXT ("visit_home - ")
  51                          ACE_TEXT ("gen_servant_class() failed\n")),
  52                         -1);
  53     }
  54
  55   this->gen_entrypoint ();
  56
  57   os_ << be_uidt_nl
  58       << "}";
  59
  60   return 0;
  61 }
  62
  63 int
  64 be_visitor_home_exs::visit_operation (be_operation *node)
  65 {
  66   be_visitor_operation_exs v (this->ctx_);
  67   v.scope (node_);
  68   return v.visit_operation (node);
  69 }
  70
  71 int
  72 be_visitor_home_exs::visit_attribute (be_attribute *node)
  73 {
  74   be_visitor_attribute v (this->ctx_);
  75   v.op_scope (node_);
  76   return v.visit_attribute (node);
  77 }
  78
  79 int
  80 be_visitor_home_exs::visit_factory (be_factory *node)
  81 {
  82   AST_Decl *scope = ScopeAsDecl (comp_->defined_in ());
  83   ACE_CString sname_str (scope->full_name ());
  84   const char *sname = sname_str.c_str ();
  85   const char *lname = comp_->local_name ()->get_string ();
  86   const char *global = (sname_str == "" ? "" : "::");
  87
  88   os_ << be_nl_2
  89       << "::Components::EnterpriseComponent_ptr" << be_nl
  90       << node_->original_local_name ()->get_string ()
  91       << "_exec_i::" << node->local_name ();
  92
  93   be_visitor_operation_arglist visitor (this->ctx_);
  94   visitor.unused (true);
  95
  96   if (visitor.visit_factory (node) == -1)
  97     {
  98       ACE_ERROR_RETURN ((LM_ERROR,
  99                          ACE_TEXT ("be_visitor_home_exs::")
 100                          ACE_TEXT ("visit_factory - ")
 101                          ACE_TEXT ("codegen for arglist failed\n")),
 102                         -1);
 103     }
 104
 105   os_ << be_nl
 106       << "{" << be_idt_nl
 107       << your_code_here_ << be_nl
 108       << "return " << global << sname << "::CCM_"
 109       << lname << "::_nil ();" << be_uidt_nl
 110       << "}";
 111
 112   return 0;
 113 }
 114
 115 int
 116 be_visitor_home_exs::gen_exec_class ()
 117 {
 118   // No '_cxx_' prefix.
 119   const char *lname =
 120     node_->original_local_name ()->get_string ();
 121
 122   os_ << be_nl
 123       << comment_start_border_ << be_nl
 124       << " * Home Executor Implementation Class: "
 125       << lname << "_exec_i" << be_nl
 126       << comment_end_border_;
 127
 128   os_ << be_nl_2
 129       << lname << "_exec_i::" << lname << "_exec_i ()" << be_nl
 130       << "{" << be_nl
 131       << "}";
 132
 133   os_ << be_nl_2
 134       << lname << "_exec_i::~" << lname << "_exec_i ()" << be_nl
 135       << "{" << be_nl
 136       << "}";
 137
 138   be_home *h = node_;
 139
 140   while (h != nullptr)
 141     {
 142       if (this->visit_scope (h) != 0)
 143         {
 144           ACE_ERROR_RETURN ((LM_ERROR,
 145                              ACE_TEXT ("be_visitor_home_exs::")
 146                              ACE_TEXT ("gen_exec_class - ")
 147                              ACE_TEXT ("codegen for scope ")
 148                              ACE_TEXT ("failed\n")),
 149                             -1);
 150         }
 151
 152       for (long i = 0; i < h->n_inherits (); ++i)
 153         {
 154           // A closure of all the supported interfaces is stored
 155           // in the base class 'pd_inherits_flat' member.
 156           be_interface *bi =
 157             dynamic_cast<be_interface*> (h->inherits ()[i]);
 158
 159           bi->get_insert_queue ().reset ();
 160           bi->get_del_queue ().reset ();
 161           bi->get_insert_queue ().enqueue_tail (bi);
 162
 163           Home_Exec_Op_Attr_Generator op_attr_gen (this);
 164
 165           int status =
 166             bi->traverse_inheritance_graph (op_attr_gen,
 167                                             &os_,
 168                                             false,
 169                                             false);
 170
 171           if (status == -1)
 172             {
 173               ACE_ERROR_RETURN ((LM_ERROR,
 174                                  ACE_TEXT ("be_visitor_home_exs::")
 175                                  ACE_TEXT ("gen_exec_class - ")
 176                                  ACE_TEXT ("traverse_inheritance_graph() ")
 177                                  ACE_TEXT ("failed for %s\n"),
 178                                  bi->full_name ()),
 179                                 -1);
 180             }
 181         }
 182
 183       h = dynamic_cast<be_home*> (h->base_home ());
 184     }
 185
 186   os_ << be_nl_2
 187       << "// Implicit operations.";
 188
 189   os_ << be_nl_2
 190       << "::Components::EnterpriseComponent_ptr" << be_nl
 191       << lname << "_exec_i::create ()" << be_nl
 192       << "{" << be_idt_nl
 193       << "::Components::EnterpriseComponent_ptr retval ="
 194       << be_idt_nl
 195       << "::Components::EnterpriseComponent::_nil ();"
 196       << be_uidt_nl << be_nl
 197       << "ACE_NEW_THROW_EX (" << be_idt_nl
 198       << "retval," << be_nl
 199       << comp_->original_local_name ()->get_string ()
 200       << "_exec_i," << be_nl
 201       << "::CORBA::NO_MEMORY ());"
 202       << be_uidt_nl << be_nl
 203       << "return retval;" << be_uidt_nl
 204       << "}";
 205
 206   return 0;
 207 }
 208
 209 void
 210 be_visitor_home_exs::gen_entrypoint ()
 211 {
 212   os_ << be_nl_2
 213       << "extern \"C\" " << export_macro_.c_str ()
 214       << " ::Components::HomeExecutorBase_ptr" << be_nl
 215       << "create_" << node_->flat_name ()
 216       << "_Impl ()" << be_nl
 217       << "{" << be_idt_nl
 218       << "::Components::HomeExecutorBase_ptr retval =" << be_idt_nl
 219       << "::Components::HomeExecutorBase::_nil ();"
 220       << be_uidt_nl << be_nl
 221       << "ACE_NEW_NORETURN (" << be_idt_nl
 222       << "retval," << be_nl
 223       << node_->original_local_name ()->get_string ()
 224       << "_exec_i);" << be_uidt_nl << be_nl
 225       << "return retval;" << be_uidt_nl
 226       << "}";
 227 }
 228
 229 Home_Exec_Op_Attr_Generator::Home_Exec_Op_Attr_Generator (
 230     be_visitor_scope * visitor)
 231   : visitor_ (visitor)
 232 {
 233 }
 234
 235 int
 236 Home_Exec_Op_Attr_Generator::emit (be_interface * /* derived_interface */,
 237                                    TAO_OutStream * /* os */,
 238                                    be_interface * base_interface)
 239 {
 240   return visitor_->visit_scope (base_interface);
 241 }
 242