TAO/TAO_IDL/be/be_visitor_field/field_cs.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    field_cs.cpp
   5  *
   6  *  Visitor generating code for Field in the client stubs file.
   7  *
   8  *  @author Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12 #include "field.h"
  13 #include "be_visitor_array/array_cs.h"
  14 #include "be_visitor_enum/enum_cs.h"
  15 #include "be_visitor_sequence/sequence_cs.h"
  16 #include "be_visitor_structure/structure_cs.h"
  17 #include "be_visitor_union/union_cs.h"
  18
  19 // **********************************************
  20 //  Visitor for field in the client stubs file.
  21 // **********************************************
  22
  23 be_visitor_field_cs::be_visitor_field_cs (be_visitor_context *ctx)
  24   : be_visitor_decl (ctx)
  25 {
  26 }
  27
  28 be_visitor_field_cs::~be_visitor_field_cs ()
  29 {
  30 }
  31
  32 int
  33 be_visitor_field_cs::visit_field (be_field *node)
  34 {
  35   be_type *bt = dynamic_cast<be_type*> (node->field_type ());
  36
  37   if (!bt)
  38     {
  39       ACE_ERROR_RETURN ((LM_ERROR,
  40                          "(%N:%l) be_visitor_field_cs::"
  41                          "visit_field - "
  42                          "Bad field type\n"),
  43                         -1);
  44     }
  45
  46   this->ctx_->node (node);
  47
  48   if (bt->accept (this) == -1)
  49     {
  50       ACE_ERROR_RETURN ((LM_ERROR,
  51                          "(%N:%l) be_visitor_field_cs::"
  52                          "visit_field - "
  53                          "codegen for field type failed\n"),
  54                         -1);
  55     }
  56
  57   return 0;
  58 }
  59
  60 int
  61 be_visitor_field_cs::visit_array (be_array *node)
  62 {
  63   if (!this->ctx_->alias ()
  64       && node->is_child (this->ctx_->scope ()->decl ()))
  65     {
  66       be_visitor_context ctx (*this->ctx_);
  67       ctx.node (node);
  68       be_visitor_array_cs visitor (&ctx);
  69
  70       if (node->accept (&visitor) == -1)
  71         {
  72           ACE_ERROR_RETURN ((LM_ERROR,
  73                              "(%N:%l) be_visitor_field_cs::"
  74                              "visit_array - "
  75                              "codegen failed\n"),
  76                             -1);
  77         }
  78     }
  79
  80   return 0;
  81 }
  82
  83 int
  84 be_visitor_field_cs::visit_enum (be_enum *node)
  85 {
  86   if (node->node_type () != AST_Decl::NT_typedef
  87       && node->is_child (this->ctx_->scope ()->decl ()))
  88     {
  89       be_visitor_context ctx (*this->ctx_);
  90       ctx.node (node);
  91       be_visitor_enum_cs visitor (&ctx);
  92
  93       if (node->accept (&visitor) == -1)
  94         {
  95           ACE_ERROR_RETURN ((LM_ERROR,
  96                              "(%N:%l) be_visitor_field_cs::"
  97                              "visit_enum - "
  98                              "codegen failed\n"),
  99                             -1);
 100         }
 101     }
 102
 103   return 0;
 104 }
 105
 106 int
 107 be_visitor_field_cs::visit_sequence (be_sequence *node)
 108 {
 109   if (node->node_type () != AST_Decl::NT_typedef
 110       && node->is_child (this->ctx_->scope ()->decl ()))
 111     {
 112       be_visitor_context ctx (*this->ctx_);
 113       ctx.node (node);
 114       be_visitor_sequence_cs visitor (&ctx);
 115
 116       if (node->accept (&visitor) == -1)
 117         {
 118           ACE_ERROR_RETURN ((LM_ERROR,
 119                              "(%N:%l) be_visitor_field_cs::"
 120                              "visit_sequence - "
 121                              "codegen failed\n"),
 122                             -1);
 123         }
 124     }
 125
 126   return 0;
 127 }
 128
 129 int
 130 be_visitor_field_cs::visit_map (be_map *)
 131 {
 132   return 0;
 133 }
 134
 135 int
 136 be_visitor_field_cs::visit_structure (be_structure *node)
 137 {
 138   if (node->node_type () != AST_Decl::NT_typedef
 139       && node->is_child (this->ctx_->scope ()->decl ()))
 140     {
 141       be_visitor_context ctx (*this->ctx_);
 142       ctx.node (node);
 143       be_visitor_structure_cs visitor (&ctx);
 144
 145       if (node->accept (&visitor) == -1)
 146         {
 147           ACE_ERROR_RETURN ((LM_ERROR,
 148                              "(%N:%l) be_visitor_field_cs::"
 149                              "visit_struct - "
 150                              "codegen failed\n"),
 151                             -1);
 152         }
 153     }
 154
 155   return 0;
 156 }
 157
 158 int
 159 be_visitor_field_cs::visit_structure_fwd (
 160   be_structure_fwd *node)
 161 {
 162   be_structure *s =
 163     dynamic_cast<be_structure*> (node->full_definition ());
 164
 165   return this->visit_structure (s);
 166 }
 167
 168 int
 169 be_visitor_field_cs::visit_typedef (be_typedef *node)
 170 {
 171   this->ctx_->alias (node);
 172   be_type *bt = node->primitive_base_type ();
 173
 174   if (!bt || (bt->accept (this) == -1))
 175     {
 176       ACE_ERROR_RETURN ((LM_ERROR,
 177                          "(%N:%l) be_visitor_union_branch_public_ci::"
 178                          "visit_typedef - "
 179                          "Bad primitive type\n"),
 180                         -1);
 181     }
 182
 183   this->ctx_->alias (nullptr);
 184   return 0;
 185 }
 186
 187 int
 188 be_visitor_field_cs::visit_union (be_union *node)
 189 {
 190   if (node->node_type () != AST_Decl::NT_typedef
 191       && node->is_child (this->ctx_->scope ()->decl ()))
 192     {
 193       be_visitor_context ctx (*this->ctx_);
 194       ctx.node (node);
 195       be_visitor_union_cs visitor (&ctx);
 196
 197       if (node->accept (&visitor) == -1)
 198         {
 199           ACE_ERROR_RETURN ((LM_ERROR,
 200                              "(%N:%l) be_visitor_field_cs::"
 201                              "visit_union - "
 202                              "codegen failed\n"),
 203                             -1);
 204         }
 205     }
 206
 207   return 0;
 208 }
 209
 210 int
 211 be_visitor_field_cs::visit_union_fwd (be_union_fwd *node)
 212 {
 213   be_union *u =
 214     dynamic_cast<be_union*> (node->full_definition ());
 215
 216   return this->visit_union (u);
 217 }
 218