TAO/TAO_IDL/be/be_visitor_interface/amh_ch.cpp

   1 //=============================================================================
   2 /**
   3 *  @file   amh_ch.cpp
   4 *
   5 *  Specialized interface visitor for AMH-RH generates code that is
   6 *  specific to AMH interfaces.
   7 *
   8 *  @author Mayur Deshpande <mayur@ics.uci.edu>
   9 */
  10 //=============================================================================
  11
  12 #include "interface.h"
  13
  14 be_visitor_amh_interface_ch::be_visitor_amh_interface_ch (
  15     be_visitor_context *ctx)
  16   : be_visitor_interface (ctx)
  17 {
  18 }
  19
  20 be_visitor_amh_interface_ch::~be_visitor_amh_interface_ch ()
  21 {
  22 }
  23
  24 int
  25 be_visitor_amh_interface_ch::visit_interface (be_interface *node)
  26 {
  27   // If not already generated and not imported.
  28   if (node->cli_hdr_gen () || node->imported ())
  29     {
  30       return 0;
  31     }
  32
  33   // This will be a no-op if it has already been done by a forward
  34   // declaration.
  35   node->gen_var_out_seq_decls ();
  36
  37   TAO_OutStream *os = this->ctx_->stream ();
  38
  39   // Now generate the class definition.
  40   *os << "class " << be_global->stub_export_macro ()
  41       << " " << node->local_name () << be_idt_nl
  42       << ": " ;
  43
  44   // If node interface inherits from other interfaces.
  45   if (node->n_inherits () > 0)
  46     {
  47       *os << be_idt;
  48
  49       for (int i = 0; i < node->n_inherits (); i++)
  50         {
  51           *os << "public virtual "
  52               << node->inherits ()[i]->name ();
  53
  54           if (i < node->n_inherits () - 1)
  55             {
  56               // Node has multiple inheritance, so put a comma.
  57               *os << "," << be_nl;
  58             }
  59         }
  60
  61       *os << be_uidt << be_uidt_nl;
  62     }
  63   else
  64     {
  65       // We do not inherit from anybody, hence we do so from the base
  66       // CORBA::Object class.
  67       *os << "public virtual ::CORBA::Object" << be_uidt_nl;
  68     }
  69
  70   // Generate the body.
  71
  72   *os << "{" << be_nl
  73       << "public:" << be_idt_nl
  74
  75       // Generate the _ptr_type and _var_type typedefs.
  76       << "typedef " << node->local_name () << "_ptr _ptr_type;"
  77       << be_nl
  78       << "typedef " << node->local_name () << "_var _var_type;"
  79       << be_nl
  80       << "typedef " << node->local_name () << "_out _out_type;"
  81       << be_nl;
  82
  83   // Generate code for the interface definition by traversing thru the
  84   // elements of its scope. We depend on the front-end to have made sure
  85   // that only legal syntactic elements appear in our scope.
  86
  87   if (this->visit_scope (node) == -1)
  88     {
  89       ACE_ERROR_RETURN ((LM_ERROR,
  90                          "(%N:%l) be_visitor_interface_ch::"
  91                          "visit_interface - "
  92                          "codegen for scope failed\n"), -1);
  93     }
  94
  95   node->cli_hdr_gen (true);
  96   return 0;
  97 }