TAO/TAO_IDL/be/be_visitor_constant/constant_ch.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    constant_ch.cpp
   5  *
   6  *  Visitor generating code for the Constant node in the client header.
   7  *
   8  *  @author Aniruddha Gokhale
   9  */
  10 //=============================================================================
  11
  12 #include "constant.h"
  13
  14 be_visitor_constant_ch::be_visitor_constant_ch (be_visitor_context *ctx)
  15   : be_visitor_decl (ctx)
  16 {
  17 }
  18
  19 be_visitor_constant_ch::~be_visitor_constant_ch ()
  20 {
  21 }
  22
  23 // Visit the Constant node and its scope.
  24 int
  25 be_visitor_constant_ch::visit_constant (be_constant *node)
  26 {
  27   if (node->cli_hdr_gen () || node->imported ())
  28     {
  29       return 0;
  30     }
  31
  32   TAO_OutStream *os = this->ctx_->stream ();
  33
  34   TAO_INSERT_COMMENT (os);
  35
  36   // If we are defined in the outermost scope, then the value is assigned
  37   // to us here itself, else it will be in the *.cpp file.
  38
  39   AST_Decl::NodeType nt = AST_Decl::NT_pre_defined;
  40   AST_Decl *tdef = node->constant_value ()->get_tdef ();
  41   AST_Decl::NodeType bnt = AST_Decl::NT_pre_defined;
  42   AST_Expression::ExprType etype = node->et ();
  43   AST_Decl::NodeType snt = node->defined_in ()->scope_node_type ();
  44
  45   if (tdef != nullptr)
  46     {
  47       nt = tdef->node_type ();
  48       be_typedef *td = dynamic_cast<be_typedef*> (tdef);
  49       bnt = td->base_node_type ();
  50     }
  51
  52   *os << be_nl_2;
  53
  54   if (! node->is_nested ())
  55     {
  56       *os << "const ";
  57
  58       if (etype == AST_Expression::EV_enum)
  59         {
  60           *os << node->enum_full_name ();
  61         }
  62       else if (nt == AST_Decl::NT_typedef)
  63         {
  64           *os << tdef->name ();
  65         }
  66       else
  67         {
  68           *os << exprtype_to_cpp_corba_type (node->et ());
  69         }
  70
  71       *os << " " << node->local_name ();
  72     }
  73   // We are nested inside an interface or a valuetype.
  74   else
  75     {
  76       if (snt != AST_Decl::NT_module)
  77         {
  78           *os << "static ";
  79         }
  80       else if (!be_global->gen_inline_constants ())
  81         {
  82           *os << "extern " << be_global->stub_export_macro () << " ";
  83         }
  84
  85       *os << "const ";
  86
  87       if (etype == AST_Expression::EV_enum)
  88         {
  89           *os << node->enum_full_name ();
  90         }
  91       else if (nt == AST_Decl::NT_typedef)
  92         {
  93           if (bnt == AST_Decl::NT_string || bnt == AST_Decl::NT_wstring)
  94             {
  95               *os << exprtype_to_cpp_corba_type (node->et ());
  96             }
  97           else
  98             {
  99               *os << tdef->name ();
 100             }
 101         }
 102       else
 103         {
 104           *os << exprtype_to_cpp_corba_type (node->et ());
 105         }
 106
 107       *os << " " << node->local_name ();
 108     }
 109
 110   // If this is true, can't generate inline constants.
 111   bool const forbidden_in_class = (snt != AST_Decl::NT_root
 112                              && snt != AST_Decl::NT_module
 113                              && (etype == AST_Expression::EV_string
 114                                  || etype == AST_Expression::EV_wstring
 115                                  || etype == AST_Expression::EV_float
 116                                  || etype == AST_Expression::EV_double
 117                                  || etype == AST_Expression::EV_longdouble));
 118
 119   if (!node->is_nested ()
 120       || (be_global->gen_inline_constants () && !forbidden_in_class))
 121     {
 122       *os << " = " << node->constant_value ();
 123     }
 124
 125   *os << ";";
 126
 127   node->cli_hdr_gen (true);
 128   return 0;
 129 }