TAO/TAO_IDL/be/be_visitor_sequence/sequence_base.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    sequence_base.cpp
   5  *
   6  *  Visitor generating code for the base type of the Sequence
   7  *
   8  *  @author Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12 #include "sequence.h"
  13
  14 // ****************************************************************
  15 // We have to generate the parameters for the template that implements
  16 // each sequence type.
  17 // ****************************************************************
  18
  19 be_visitor_sequence_base::be_visitor_sequence_base (be_visitor_context *ctx)
  20   : be_visitor_decl (ctx)
  21 {
  22 }
  23
  24 be_visitor_sequence_base::~be_visitor_sequence_base ()
  25 {
  26 }
  27
  28
  29 int
  30 be_visitor_sequence_base::visit_predefined_type (be_predefined_type *node)
  31 {
  32   TAO_OutStream *os = this->ctx_->stream ();
  33
  34   *os << "::" << node->name ();
  35
  36   return 0;
  37 }
  38
  39 // helper
  40 int
  41 be_visitor_sequence_base::visit_node (be_type *node)
  42 {
  43   TAO_OutStream *os = this->ctx_->stream ();
  44   be_type *bt = nullptr;
  45
  46   if (this->ctx_->alias ())
  47     {
  48       bt = this->ctx_->alias ();
  49     }
  50   else
  51     {
  52       bt = node;
  53     }
  54
  55   if (this->ctx_->state () == TAO_CodeGen::TAO_SEQUENCE_BASE_CH)
  56     {
  57       if (this->ctx_->sub_state ()
  58             == TAO_CodeGen::TAO_ARRAY_SEQ_CH_TEMPLATE_VAR)
  59         {
  60           *os << bt->nested_type_name (this->ctx_->scope ()->decl (), "_var");
  61         }
  62       else
  63         {
  64           *os << bt->nested_type_name (this->ctx_->scope ()->decl ());
  65         }
  66     }
  67   else
  68     {
  69       *os << bt->name ();
  70     }
  71
  72   return 0;
  73 }
  74
  75 int
  76 be_visitor_sequence_base::visit_sequence (be_sequence *node)
  77 {
  78   return this->visit_node (node);
  79 }
  80
  81 int
  82 be_visitor_sequence_base::visit_interface (be_interface *node)
  83 {
  84   return this->visit_node (node);
  85 }
  86
  87 int
  88 be_visitor_sequence_base::visit_interface_fwd (be_interface_fwd *node)
  89 {
  90   return this->visit_node (node);
  91 }
  92
  93 int
  94 be_visitor_sequence_base::visit_valuebox (be_valuebox *node)
  95 {
  96   return this->visit_node (node);
  97 }
  98
  99 int
 100 be_visitor_sequence_base::visit_valuetype (be_valuetype *node)
 101 {
 102   return this->visit_node (node);
 103 }
 104
 105 int
 106 be_visitor_sequence_base::visit_valuetype_fwd (be_valuetype_fwd *node)
 107 {
 108   return this->visit_node (node);
 109 }
 110
 111 int
 112 be_visitor_sequence_base::visit_string (be_string *)
 113 {
 114   // NO-OP, we have ad-hoc classes from strings.
 115   return 0;
 116 }
 117
 118 int
 119 be_visitor_sequence_base::visit_structure (be_structure *node)
 120 {
 121   return this->visit_node (node);
 122 }
 123
 124 int
 125 be_visitor_sequence_base::visit_structure_fwd (be_structure_fwd *node)
 126 {
 127   return this->visit_node (node);
 128 }
 129
 130 int
 131 be_visitor_sequence_base::visit_union (be_union *node)
 132 {
 133   return this->visit_node (node);
 134 }
 135
 136 int
 137 be_visitor_sequence_base::visit_union_fwd (be_union_fwd *node)
 138 {
 139   return this->visit_node (node);
 140 }
 141
 142 int
 143 be_visitor_sequence_base::visit_enum (be_enum *node)
 144 {
 145   return this->visit_node (node);
 146 }
 147
 148 int
 149 be_visitor_sequence_base::visit_exception (be_exception *node)
 150 {
 151   return this->visit_node (node);
 152 }
 153
 154 int
 155 be_visitor_sequence_base::visit_array (be_array *node)
 156 {
 157   return this->visit_node (node);
 158 }
 159
 160 int
 161 be_visitor_sequence_base::visit_typedef (be_typedef *node)
 162 {
 163   // Set the alias node.
 164   this->ctx_->alias (node);
 165
 166   if (node->primitive_base_type ()->accept (this) == -1)
 167     {
 168       ACE_ERROR_RETURN ((LM_ERROR,
 169                          "be_visitor_sequence_base::"
 170                          "visit_typedef - "
 171                          "accept on primitive type failed\n"),
 172                         -1);
 173     }
 174
 175   this->ctx_->alias (nullptr);
 176   return 0;
 177 }
 178
 179 be_visitor_sequence_base_template_args::
 180 be_visitor_sequence_base_template_args (be_visitor_context *ctx,
 181                                         be_sequence *seq)
 182   : be_visitor_sequence_base (ctx),
 183     beseq_ (seq)
 184 {
 185 }
 186
 187
 188 be_visitor_sequence_base_template_args::
 189 ~be_visitor_sequence_base_template_args ()
 190 {
 191 }
 192
 193 int
 194 be_visitor_sequence_base_template_args::visit_interface (be_interface *node)
 195 {
 196   TAO_OutStream *os = this->ctx_->stream ();
 197   be_type *bt = nullptr;
 198
 199   if (this->ctx_->alias ())
 200     {
 201       bt = this->ctx_->alias ();
 202     }
 203   else
 204     {
 205       bt = node;
 206     }
 207
 208   if (this->ctx_->state () == TAO_CodeGen::TAO_SEQUENCE_BASE_CH)
 209     {
 210       *os << bt->nested_type_name (this->ctx_->scope ()->decl ()) << ",";
 211       *os << bt->nested_type_name (this->ctx_->scope ()->decl (), "_var");
 212     }
 213   else
 214     {
 215       *os << bt->name () << ",";
 216       *os << bt->name () << "_var";
 217     }
 218
 219   return 0;
 220 }
 221
 222 int
 223 be_visitor_sequence_base_template_args::visit_interface_fwd (
 224     be_interface_fwd *node
 225   )
 226 {
 227   TAO_OutStream *os = this->ctx_->stream ();
 228   be_type *bt = nullptr;
 229
 230   if (this->ctx_->alias ())
 231     {
 232       bt = this->ctx_->alias ();
 233     }
 234   else
 235     {
 236       bt = node;
 237     }
 238
 239   if (this->ctx_->state () == TAO_CodeGen::TAO_SEQUENCE_BASE_CH)
 240     {
 241       *os << bt->nested_type_name (this->ctx_->scope ()->decl ()) << ",";
 242       *os << bt->nested_type_name (this->ctx_->scope ()->decl (), "_var");
 243     }
 244   else
 245     {
 246       *os << bt->name () << ",";
 247       *os << bt->name () << "_var";
 248     }
 249
 250   return 0;
 251 }
 252
 253 int
 254 be_visitor_sequence_base_template_args::visit_valuetype (be_valuetype *node)
 255 {
 256   return this->visit_interface (node);
 257 }
 258
 259 int
 260 be_visitor_sequence_base_template_args::visit_valuetype_fwd (
 261     be_valuetype_fwd *node
 262   )
 263 {
 264   return this->visit_interface_fwd (node);
 265 }
 266
 267 int
 268 be_visitor_sequence_base_template_args::visit_predefined_type (
 269     be_predefined_type *node
 270   )
 271 {
 272   TAO_OutStream *os = this->ctx_->stream ();
 273   *os << "::" << node->name ();
 274
 275   if (beseq_->managed_type () == be_sequence::MNG_PSEUDO
 276       || beseq_->managed_type () == be_sequence::MNG_OBJREF)
 277     {
 278       *os << ", ::" << node->name () << "_var";
 279     }
 280
 281   return 0;
 282 }