TAO/TAO_IDL/be/be_visitor_exception/exception_cs.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    exception_cs.cpp
   5  *
   6  *  Visitor generating code for Exception in the stubs file
   7  *
   8  *  @author Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12 #include "exception.h"
  13 #include "be_visitor_typecode/typecode_defn.h"
  14
  15 // ***************************************************************************
  16 // For client stubs.
  17 // ***************************************************************************
  18
  19 be_visitor_exception_cs::be_visitor_exception_cs (be_visitor_context *ctx)
  20   : be_visitor_exception (ctx)
  21 {
  22 }
  23
  24 be_visitor_exception_cs::~be_visitor_exception_cs ()
  25 {
  26 }
  27
  28 // Visit the Exception_Cs node and its scope.
  29 int be_visitor_exception_cs::visit_exception (be_exception *node)
  30 {
  31   if (node->cli_stub_gen () || node->imported ())
  32     {
  33       return 0;
  34     }
  35
  36   TAO_OutStream *os = this->ctx_->stream ();
  37
  38   os->indent ();
  39
  40   // Generate stub code required of any anonymous types of members.
  41   if (this->visit_scope (node) == -1)
  42     {
  43       ACE_ERROR_RETURN ((LM_ERROR,
  44                          ACE_TEXT ("be_visitor_exception::")
  45                          ACE_TEXT ("visit_exception - ")
  46                          ACE_TEXT ("code for stub failed\n")),
  47                         -1);
  48     }
  49
  50   be_visitor_context ctx (*this->ctx_);
  51
  52   // Constructor taking all members. It exists only if there are any
  53   // members.
  54   if (node->member_count () > 0)
  55     {
  56       // Generate the signature.
  57       ctx.state (TAO_CodeGen::TAO_EXCEPTION_CTOR_CS);
  58       be_visitor_exception_ctor ec_visitor (&ctx);
  59
  60       if (node->accept (&ec_visitor) == -1)
  61         {
  62           ACE_ERROR_RETURN ((LM_ERROR,
  63                              ACE_TEXT ("be_visitor_exception::")
  64                              ACE_TEXT ("visit_exception - ")
  65                              ACE_TEXT ("codegen for ctor failed\n")),
  66                             -1);
  67         }
  68
  69       *os << be_idt_nl
  70           << ": ::CORBA::UserException ("
  71           << be_idt << be_idt << be_idt_nl
  72           << "\"" << node->repoID () << "\"," << be_nl
  73           << "\"" << node->local_name () << "\")" << be_uidt
  74           << be_uidt << be_uidt << be_uidt_nl;
  75       *os << "{" << be_idt;
  76
  77       // Assign each individual member. We need yet another state.
  78       ctx = *this->ctx_;
  79
  80       // Indicate that the special ctor is being generated.
  81       ctx.exception (true);
  82
  83       be_visitor_exception_ctor_assign eca_visitor (&ctx);
  84
  85       if (node->accept (&eca_visitor) == -1)
  86         {
  87           ACE_ERROR_RETURN ((LM_ERROR,
  88                              ACE_TEXT ("be_visitor_exception_cs::")
  89                              ACE_TEXT ("visit_exception - ")
  90                              ACE_TEXT ("codegen for scope failed\n")),
  91                             -1);
  92         }
  93
  94       *os << be_uidt_nl << "}" << be_nl_2;
  95     }
  96
  97   TAO_INSERT_COMMENT (os);
  98
  99   // Default constructor.
 100   *os << node->name () << "::" << node->local_name ()
 101       << " ()" << be_idt_nl;
 102   *os << ": ::CORBA::UserException (" << be_idt << be_idt << be_idt_nl
 103       << "\"" << node->repoID () << "\"," << be_nl
 104       << "\"" << node->local_name () << "\")" << be_uidt
 105       << be_uidt << be_uidt << be_uidt_nl;
 106   *os << "{" << be_nl;
 107   *os << "}" << be_nl_2;
 108
 109   // Copy constructor.
 110   *os << node->name () << "::" << node->local_name () << " (const ::"
 111       << node->name () << " &_tao_excp)" << be_idt_nl;
 112   *os << ": ::CORBA::UserException (" << be_idt << be_idt << be_idt_nl
 113       << "_tao_excp._rep_id ()," << be_nl
 114       << "_tao_excp._name ())" << be_uidt
 115       << be_uidt << be_uidt << be_uidt_nl;
 116   *os << "{";
 117
 118   ctx = *this->ctx_;
 119
 120   if (node->nmembers () > 0)
 121     {
 122       *os << be_idt;
 123
 124       // Assign each individual member.
 125       be_visitor_exception_ctor_assign visitor (&ctx);
 126
 127       if (node->accept (&visitor) == -1)
 128         {
 129           ACE_ERROR_RETURN ((LM_ERROR,
 130                              ACE_TEXT ("be_visitor_exception_cs::")
 131                              ACE_TEXT ("visit_exception - ")
 132                              ACE_TEXT ("codegen for scope failed\n")),
 133                             -1);
 134         }
 135     }
 136
 137   *os << be_uidt_nl
 138       << "}" << be_nl_2;
 139
 140   // Assignment operator.
 141   *os << node->name () << "&" << be_nl;
 142   *os << node->name () << "::operator= (const ::"
 143       << node->name () << " &_tao_excp)" << be_nl
 144       << "{" << be_idt_nl
 145       << "this->::CORBA::UserException::operator= "
 146       << "(_tao_excp);";
 147
 148   // Assign each individual member.
 149   ctx = *this->ctx_;
 150   be_visitor_exception_ctor_assign ca_visitor (&ctx);
 151
 152   if (node->accept (&ca_visitor) == -1)
 153     {
 154       ACE_ERROR_RETURN ((LM_ERROR,
 155                          ACE_TEXT ("be_visitor_exception_cs::")
 156                          ACE_TEXT ("visit_exception - ")
 157                          ACE_TEXT ("codegen for scope failed\n")),
 158                         -1);
 159     }
 160
 161   *os << be_nl
 162       << "return *this;" << be_uidt_nl
 163       << "}" << be_nl_2;
 164
 165   if (be_global->any_support ())
 166     {
 167       *os << "void "
 168           << node->name ()
 169           << "::_tao_any_destructor (void *_tao_void_pointer)" << be_nl
 170           << "{" << be_idt_nl
 171           << node->local_name () << " *_tao_tmp_pointer =" << be_idt_nl
 172           << "static_cast<"
 173           << node->local_name () << " *> (_tao_void_pointer);" << be_uidt_nl
 174           << "delete _tao_tmp_pointer;" << be_uidt_nl
 175           << "}" << be_nl_2;
 176     }
 177
 178   // Non-const downcast method.
 179   *os << node->name () << " *" << be_nl;
 180   *os << node->name () << "::_downcast (::CORBA::Exception *_tao_excp)" << be_nl;
 181   *os << "{" << be_idt_nl;
 182   *os << "return dynamic_cast<" << node->local_name ()
 183       << " *> (_tao_excp);" << be_uidt_nl;
 184   *os << "}" << be_nl_2;
 185
 186   // Const downcast method.
 187   *os << "const " << node->name () << " *" << be_nl;
 188   *os << node->name () << "::_downcast (::CORBA::Exception const *_tao_excp)"
 189       << be_nl;
 190   *os << "{" << be_idt_nl;
 191   *os << "return dynamic_cast<const " << node->local_name ()
 192       << " *> (_tao_excp);" << be_uidt_nl;
 193   *os << "}" << be_nl_2;
 194
 195   // Generate the _alloc method.
 196   *os << "::CORBA::Exception *" << node->name ()
 197       << "::_alloc ()" << be_nl;
 198   *os << "{" << be_idt_nl;
 199   *os << "::CORBA::Exception *retval {};" << be_nl
 200       << "ACE_NEW_RETURN (retval, ::" << node->name ()
 201       << ", nullptr);" << be_nl
 202       << "return retval;" << be_uidt_nl;
 203   *os << "}" << be_nl_2;
 204
 205   *os << "::CORBA::Exception *" << be_nl
 206       << node->name () << "::_tao_duplicate () const" << be_nl
 207       << "{" << be_idt_nl
 208       << "::CORBA::Exception *result {};" << be_nl
 209       << "ACE_NEW_RETURN (result, "
 210       << "::" << node->name () << " (*this), nullptr);"
 211       << be_nl
 212       << "return result;" << be_uidt_nl
 213       << "}" << be_nl_2;
 214
 215   *os << "void " << node->name () << "::_raise () const" << be_nl
 216       << "{" << be_idt_nl
 217       << "throw *this;" << be_uidt_nl
 218       << "}" << be_nl_2;
 219
 220   *os << "void " << node->name ()
 221       << "::_tao_encode (";
 222
 223   if (!node->is_local ())
 224     {
 225       *os << "TAO_OutputCDR &cdr) const" << be_nl
 226           << "{" << be_idt_nl
 227           << "if (!(cdr << *this))" << be_idt_nl
 228           << "{" << be_idt_nl
 229           << "throw ::CORBA::MARSHAL ();" << be_uidt_nl
 230           << "}" << be_uidt << be_uidt_nl;
 231
 232       *os << "}" << be_nl_2;
 233     }
 234   else
 235     {
 236       *os << "TAO_OutputCDR &) const" << be_nl
 237           << "{" << be_idt_nl;
 238
 239       *os << "throw ::CORBA::MARSHAL ();" << be_uidt_nl;
 240
 241       *os << "}" << be_nl_2;
 242     }
 243
 244   *os << "void " << node->name ()
 245       << "::_tao_decode (";
 246
 247   if (!node->is_local ())
 248     {
 249       *os << "TAO_InputCDR &cdr)" << be_nl
 250           << "{" << be_idt_nl
 251           << "if (!(cdr >> *this))" << be_idt_nl
 252           << "{" << be_idt_nl
 253           << "throw ::CORBA::MARSHAL ();" << be_uidt_nl
 254           << "}" << be_uidt << be_uidt_nl;
 255
 256       *os << "}" << be_nl_2;
 257     }
 258   else
 259     {
 260       *os << "TAO_InputCDR &)" << be_nl
 261           << "{" << be_idt_nl;
 262
 263       *os << "throw ::CORBA::MARSHAL ();" << be_uidt_nl;
 264
 265       *os << "}" << be_nl_2;
 266     }
 267
 268   if ((ACE_OS::strcmp (node->full_name (), "CORBA::InvalidPolicies") == 0) ||
 269       (ACE_OS::strcmp (node->full_name (), "CORBA::PolicyError") == 0))
 270     {
 271       *os << "// TAO extension - the virtual _type method." << be_nl
 272           << "::CORBA::TypeCode_ptr " << node->name ()
 273           << "::_tao_type () const" << be_nl
 274           << "{" << be_idt_nl
 275           << "TAO_AnyTypeCode_Adapter *adapter =" << be_idt_nl
 276           << "ACE_Dynamic_Service<TAO_AnyTypeCode_Adapter>::instance ("
 277           << "\"AnyTypeCode_Adapter\");" << be_uidt_nl
 278           << "if (!adapter)" << be_idt_nl
 279           << "{" << be_idt_nl
 280           // FUZZ: disable check_for_ace_log_categories
 281           << "TAOLIB_ERROR_RETURN ((LM_ERROR," << be_idt_nl
 282           // FUZZ: enable check_for_ace_log_categories
 283           << "ACE_TEXT (\"TAO \")," << be_nl
 284           << "ACE_TEXT (\"Unable to find the \")" << be_nl
 285           << "ACE_TEXT (\"AnyTypeCode Adapter instance\")), 0);" << be_uidt << be_uidt_nl
 286           << "}" << be_uidt_nl
 287           << "return adapter->_tao_type_" << node->local_name () <<  "();" << be_uidt_nl
 288           << "}";
 289     }
 290
 291   // Switch streams to the *A.cpp file if we are using this option.
 292   if (be_global->gen_anyop_files ())
 293     {
 294       os = tao_cg->anyop_source ();
 295       *os << be_nl_2;
 296     }
 297
 298   if ((ACE_OS::strcmp (node->full_name (), "CORBA::InvalidPolicies") != 0) &&
 299       (ACE_OS::strcmp (node->full_name (), "CORBA::PolicyError") != 0))
 300     {
 301       if (be_global->tc_support ())
 302         {
 303           *os << "// TAO extension - the virtual _type method." << be_nl;
 304           *os << "::CORBA::TypeCode_ptr " << node->name ()
 305               << "::_tao_type () const" << be_nl;
 306           *os << "{" << be_idt_nl;
 307           *os << "return ::" << node->tc_name () << ";" << be_uidt_nl;
 308           *os << "}";
 309         }
 310     }
 311
 312   if (be_global->tc_support ())
 313     {
 314       ctx = *this->ctx_;
 315       TAO::be_visitor_struct_typecode tc_visitor (&ctx);
 316
 317       if (tc_visitor.visit_exception (node) == -1)
 318         {
 319           ACE_ERROR_RETURN ((LM_ERROR,
 320                              ACE_TEXT ("be_visitor_exception_cs::")
 321                              ACE_TEXT ("visit_exception - ")
 322                              ACE_TEXT ("TypeCode definition failed\n")),
 323                             -1);
 324         }
 325     }
 326
 327   node->cli_stub_gen (true);
 328   return 0;
 329 }