TAO/TAO_IDL/be/be_visitor_array/array.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    array.cpp
   5  *
   6  *  Generic visitor for code generation for Arrays
   7  *
   8  *  @author Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12 #include "array.h"
  13
  14 be_visitor_array::be_visitor_array (be_visitor_context *ctx)
  15   : be_visitor_decl (ctx)
  16 {
  17 }
  18
  19 be_visitor_array::~be_visitor_array ()
  20 {
  21 }
  22
  23 int be_visitor_array::visit_array (be_array *)
  24 {
  25   // Must be overloaded by derived visitors.
  26   return -1;
  27 }
  28
  29 int
  30 be_visitor_array::visit_enum (be_enum *node)
  31 {
  32   return this->visit_node (node);
  33 }
  34
  35 int
  36 be_visitor_array::visit_interface (be_interface *node)
  37 {
  38   return this->emit_common (node);
  39 }
  40
  41 int
  42 be_visitor_array::visit_interface_fwd (be_interface_fwd *node)
  43 {
  44   return this->emit_common (node);
  45 }
  46
  47 int
  48 be_visitor_array::visit_valuebox (be_valuebox *node)
  49 {
  50   return this->emit_common (node);
  51 }
  52
  53 int
  54 be_visitor_array::visit_valuetype (be_valuetype *node)
  55 {
  56   return this->emit_common (node);
  57 }
  58
  59 int
  60 be_visitor_array::visit_valuetype_fwd (be_valuetype_fwd *node)
  61 {
  62   return this->emit_common (node);
  63 }
  64
  65 int
  66 be_visitor_array::visit_predefined_type (be_predefined_type *node)
  67 {
  68   TAO_OutStream *os = this->ctx_->stream ();
  69   AST_PredefinedType::PredefinedType pt = node->pt ();
  70
  71   *os << "::";
  72
  73   if (pt == AST_PredefinedType::PT_pseudo
  74       || pt == AST_PredefinedType::PT_object)
  75     {
  76       *os << node->name () << "_var";
  77     }
  78   else
  79     {
  80       *os << node->name ();
  81     }
  82
  83   return 0;
  84 }
  85
  86 int
  87 be_visitor_array::visit_sequence (be_sequence *node)
  88 {
  89   return this->visit_node (node);
  90 }
  91
  92 int
  93 be_visitor_array::visit_string (be_string *node)
  94 {
  95   TAO_OutStream *os = this->ctx_->stream ();
  96
  97   if (node->width () == (long) sizeof (char))
  98     {
  99       *os << "::TAO::String_Manager";
 100     }
 101   else
 102     {
 103       *os << "::TAO::WString_Manager";
 104     }
 105
 106   return 0;
 107 }
 108
 109 int
 110 be_visitor_array::visit_structure (be_structure *node)
 111 {
 112   return this->visit_node (node);
 113 }
 114
 115 int
 116 be_visitor_array::visit_union (be_union *node)
 117 {
 118   return this->visit_node (node);
 119 }
 120
 121 int
 122 be_visitor_array::visit_typedef (be_typedef *node)
 123 {
 124   TAO_OutStream *os = this->ctx_->stream ();
 125   AST_Type *pbt = node->primitive_base_type ();
 126   AST_Decl::NodeType nt = pbt->node_type ();
 127   AST_PredefinedType::PredefinedType pt = AST_PredefinedType:: PT_void;
 128   int result = 0;
 129
 130   // We check for these first, because in these cases, we replace the
 131   // entire slice type with one of the strings below, instead of using
 132   // the node's type name, possibly suffixed with '_var'.
 133   if (nt == AST_Decl::NT_string)
 134     {
 135       *os << "::TAO::String_Manager";
 136
 137       return 0;
 138     }
 139   else if (nt == AST_Decl::NT_wstring)
 140     {
 141       *os << "::TAO::WString_Manager";
 142
 143       return 0;
 144     }
 145
 146   result = this->visit_node (node);
 147
 148   if (nt == AST_Decl::NT_pre_defined)
 149     {
 150       AST_PredefinedType *pdt = dynamic_cast<AST_PredefinedType*> (pbt);
 151       pt = pdt->pt ();
 152     }
 153
 154   // We must append a "_var" for typedefs of interfaces, CORBA::Objects or
 155   // typecodes.
 156   if (nt == AST_Decl::NT_interface
 157       || nt == AST_Decl::NT_interface_fwd
 158       || pt == AST_PredefinedType::PT_pseudo
 159       || pt == AST_PredefinedType::PT_object)
 160     {
 161       *os << "_var";
 162     }
 163
 164   return result;
 165 }
 166
 167 // helper
 168 int
 169 be_visitor_array::visit_node (be_type *node)
 170 {
 171   TAO_OutStream *os = this->ctx_->stream ();
 172   be_type *bt = nullptr;
 173
 174   if (this->ctx_->alias ())
 175     {
 176       bt = this->ctx_->alias ();
 177     }
 178   else
 179     {
 180       bt = node;
 181     }
 182
 183   if (this->ctx_->state () == TAO_CodeGen::TAO_ARRAY_CH)
 184     {
 185       *os << bt->nested_type_name (this->ctx_->scope ()->decl ());
 186     }
 187   else
 188     {
 189       *os << bt->name ();
 190     }
 191
 192   return 0;
 193 }
 194
 195 int
 196 be_visitor_array::emit_common (be_type *node)
 197 {
 198   TAO_OutStream *os = this->ctx_->stream ();
 199   be_type *bt = nullptr;
 200
 201   if (this->ctx_->alias ())
 202     {
 203       bt = this->ctx_->alias ();
 204     }
 205   else
 206     {
 207       bt = node;
 208     }
 209
 210   if (this->ctx_->state () == TAO_CodeGen::TAO_ARRAY_CH)
 211     {
 212       *os << bt->nested_type_name (this->ctx_->scope ()->decl (), "_var");
 213     }
 214   else
 215     {
 216       *os << bt->name () << "_var";
 217     }
 218
 219   return 0;
 220 }