TAO/TAO_IDL/be/be_visitor_decl.cpp

   1
   2 //=============================================================================
   3 /**
   4  *  @file    be_visitor_decl.cpp
   5  *
   6  *  Visitor for the base be_decl node. This serves to maintain the current
   7  *  state (context) of code generation for the derived visitor.
   8  *
   9  *  @author Aniruddha Gokhale
  10  */
  11 //=============================================================================
  12
  13 #include "be_visitor_decl.h"
  14 #include "be_visitor_sequence.h"
  15 #include "be_visitor_context.h"
  16 #include "be_typedef.h"
  17 #include "be_type.h"
  18 #include "ace/Log_Msg.h"
  19
  20 be_visitor_decl::be_visitor_decl (be_visitor_context *ctx)
  21   : ctx_ (ctx),
  22     os_ (*ctx->stream ())
  23 {
  24 }
  25
  26 be_visitor_decl::~be_visitor_decl ()
  27 {
  28 }
  29
  30 be_visitor_context *
  31 be_visitor_decl::ctx ()
  32 {
  33   return this->ctx_;
  34 }
  35
  36 int
  37 be_visitor_decl::gen_anonymous_base_type (be_type *bt,
  38                                           TAO_CodeGen::CG_STATE cg_state)
  39 {
  40   be_typedef *tdef = dynamic_cast<be_typedef*> (bt);
  41
  42   if (!tdef)
  43     {
  44       be_visitor_context ctx (*this->ctx_);
  45       ctx.state (cg_state);
  46
  47       // In case our container was typedef'd.
  48       ctx.tdef (nullptr);
  49
  50       int status = 0;
  51
  52       switch (cg_state)
  53       {
  54         case TAO_CodeGen::TAO_ROOT_CH:
  55           {
  56             be_visitor_sequence_ch visitor (&ctx);
  57             status = bt->accept (&visitor);
  58             break;
  59           }
  60         case TAO_CodeGen::TAO_ROOT_CI:
  61           {
  62             break;
  63           }
  64         case TAO_CodeGen::TAO_ROOT_CS:
  65           {
  66             be_visitor_sequence_cs visitor (&ctx);
  67             status = bt->accept (&visitor);
  68             break;
  69           }
  70         case TAO_CodeGen::TAO_ROOT_CDR_OP_CS:
  71           {
  72             be_visitor_sequence_cdr_op_cs visitor (&ctx);
  73             status = bt->accept (&visitor);
  74             break;
  75           }
  76         default:
  77           ACE_ERROR_RETURN ((LM_ERROR,
  78                              "(%N:%l) be_visitor_decl::"
  79                              "gen_anonymous_base_type - "
  80                              "bad context state\n"),
  81                             -1);
  82       }
  83
  84       if (status == -1)
  85         {
  86           ACE_ERROR_RETURN ((LM_ERROR,
  87                              "(%N:%l) be_visitor_decl::"
  88                              "gen_anonymous_base_type - "
  89                              "anonymous base type codegen failed\n"),
  90                             -1);
  91         }
  92     }
  93
  94   return 0;
  95 }