TAO/TAO_IDL/be/be_visitor_interface/interface_ih.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    interface_ih.cpp
   5  *
   6  *  Visitor generating code for Interfaces in the implementation header
   7  *
   8  *  @author Yamuna Krishnamurthy (yamuna@cs.wustl.edu)
   9  */
  10 //=============================================================================
  11
  12 #include "interface.h"
  13
  14 be_visitor_interface_ih::be_visitor_interface_ih (be_visitor_context *ctx)
  15   : be_visitor_interface (ctx)
  16 {
  17 }
  18
  19 be_visitor_interface_ih::~be_visitor_interface_ih ()
  20 {
  21 }
  22
  23 int
  24 be_visitor_interface_ih::visit_interface (be_interface *node)
  25 {
  26   if (node->impl_hdr_gen () || node->imported () || node->is_abstract ())
  27     {
  28       return 0;
  29     }
  30
  31   TAO_OutStream *os = this->ctx_->stream ();
  32   static char namebuf [NAMEBUFSIZE];
  33
  34
  35   ACE_OS::memset (namebuf,
  36                   '\0',
  37                   NAMEBUFSIZE);
  38
  39   // Generate the skeleton class name.
  40
  41   ACE_OS::sprintf (namebuf, "%s", node->flat_name ());
  42
  43   if (be_global->gen_impl_debug_info ())
  44     {
  45       TAO_INSERT_COMMENT (os);
  46     }
  47
  48   // Now generate the class definition.
  49   *os << "class " << be_global->stub_export_macro ()
  50       << " " << be_global->impl_class_prefix () << namebuf
  51       << be_global->impl_class_suffix () << be_idt_nl << ": public virtual ";
  52
  53   // Inherit from the base skeleton name, unless the interface
  54   // is local.
  55   if (node->is_local ())
  56     {
  57       *os << node->full_name ();
  58     }
  59   else
  60     {
  61       *os << node->full_skel_name ();
  62     }
  63
  64   if (node->is_local ())
  65     {
  66       *os << "," << be_idt_nl
  67           << "public virtual ::CORBA::LocalObject"
  68           << be_uidt;
  69     }
  70
  71   *os << be_uidt_nl
  72       << "{" << be_nl
  73       << "public:" << be_idt_nl
  74       << "// Constructor" << be_nl
  75       <<  be_global->impl_class_prefix () << namebuf
  76       << be_global->impl_class_suffix () << " (void);" << be_nl_2;
  77
  78   if (be_global->gen_copy_ctor () && !node->is_local ())
  79     {
  80       *os << "// Copy Constructor"<<be_nl
  81           << be_global->impl_class_prefix () << namebuf
  82           << be_global->impl_class_suffix () << " (const "
  83           << be_global->impl_class_prefix () << namebuf
  84           << be_global->impl_class_suffix () << "&);" <<be_nl <<be_nl;
  85     }
  86
  87   if (be_global->gen_assign_op ())
  88     {
  89       *os << "// Copy Assignment" << be_nl
  90           << be_global->impl_class_prefix () << namebuf
  91           << be_global->impl_class_suffix () << "& " << "operator=(const "
  92           << be_global->impl_class_prefix () << namebuf
  93           << be_global->impl_class_suffix () << "&);" << be_nl_2;
  94
  95     }
  96
  97   *os << "// Destructor" << be_nl
  98       << "virtual " << "~" << be_global->impl_class_prefix () << namebuf
  99       << be_global->impl_class_suffix () << " (void);";
 100
 101
 102   // Generate code for elements in the scope (e.g., operations).
 103   if (this->visit_scope (node) ==  -1)
 104     {
 105       ACE_ERROR_RETURN ((LM_ERROR,
 106                          "be_visitor_interface_ih::"
 107                          "visit_interface - "
 108                          "codegen for scope failed\n"),
 109                         -1);
 110     }
 111
 112
 113   // Generate the code for the members of the derived classes.
 114   int status =
 115     node->traverse_inheritance_graph (
 116       be_visitor_interface_ih::method_helper,
 117       os);
 118
 119   if (status == -1)
 120     {
 121       ACE_ERROR_RETURN ((LM_ERROR,
 122                          "be_visitor_interface_tie_sh_ss::"
 123                          "visit_interface - "
 124                          "traversal of inhertance graph failed\n"),
 125                         -1);
 126     }
 127
 128
 129   *os << be_uidt_nl
 130       << "};" << be_nl_2;
 131
 132   return 0;
 133 }
 134
 135
 136 // Helper method to generate members within the scope of the base classes.
 137 int
 138 be_visitor_interface_ih::method_helper (be_interface *derived,
 139                                         be_interface *node,
 140                                         TAO_OutStream *os)
 141 {
 142   int compare =
 143     ACE_OS::strcmp (derived->flat_name (), node->flat_name ());
 144
 145   if (compare != 0)
 146     {
 147       be_visitor_context ctx;
 148       ctx.state (TAO_CodeGen::TAO_ROOT_IH);
 149       ctx.interface (derived);
 150       ctx.stream (os);
 151       be_visitor_interface_ih visitor (&ctx);
 152
 153       if (visitor.visit_scope (node) == -1)
 154         {
 155           ACE_ERROR_RETURN ((LM_ERROR,
 156                              "be_visitor_interface_is::"
 157                              "method_helper\n"),
 158                             -1);
 159         }
 160     }
 161
 162   return 0;
 163 }