TAO/TAO_IDL/be/be_visitor_template_export.cpp

   1 //=============================================================================
   2 /**
   3 *  @file   be_visitor_template_export.cpp
   4 *
   5 *  This visitor generates template instantiations with export macro
   6 *
   7 *  @author Jeff Parsons <j.parsons@vanderbilt.edu>
   8 */
   9 //=============================================================================
  10
  11 #include "be_visitor_template_export.h"
  12 #include "be_visitor_context.h"
  13 #include "be_root.h"
  14 #include "be_module.h"
  15 #include "be_typedef.h"
  16 #include "be_sequence.h"
  17 #include "be_extern.h"
  18 #include "be_helper.h"
  19 #include "be_predefined_type.h"
  20 #include "ace/Log_Msg.h"
  21
  22 be_visitor_template_export::be_visitor_template_export (
  23   be_visitor_context *ctx)
  24   : be_visitor_scope (ctx)
  25 {
  26 }
  27
  28 be_visitor_template_export::~be_visitor_template_export ()
  29 {
  30 }
  31
  32 int
  33 be_visitor_template_export::visit_root (be_root *node)
  34 {
  35   TAO_OutStream *os = this->ctx_->stream ();
  36
  37   TAO_INSERT_COMMENT (os);
  38
  39   *os << "#if defined ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION_EXPORT";
  40
  41   if (this->visit_scope (node) == -1)
  42     {
  43       ACE_ERROR_RETURN ((LM_ERROR,
  44                          "be_visitor_template_export::"
  45                          "visit_root - visit scope failed\n"),
  46                         -1);
  47     }
  48
  49   *os << be_nl << "#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION_EXPORT */";
  50
  51   return 0;
  52 }
  53
  54 int
  55 be_visitor_template_export::visit_module (be_module *node)
  56 {
  57   if (this->visit_scope (node) == -1)
  58     {
  59       ACE_ERROR_RETURN ((LM_ERROR,
  60                          "be_visitor_template_export::"
  61                          "visit_module - visit scope failed\n"),
  62                         -1);
  63     }
  64
  65   return 0;
  66 }
  67
  68 int
  69 be_visitor_template_export::visit_sequence (be_sequence *node)
  70 {
  71   TAO_OutStream *os = this->ctx_->stream ();
  72
  73   be_type *bt = dynamic_cast<be_type*> (node->base_type ());
  74
  75   // TAO provides extensions for octet sequences, first find out if
  76   // the base type is an octet (or an alias for octet).
  77   be_predefined_type *predef = nullptr;
  78
  79   if (bt->base_node_type () == AST_Type::NT_pre_defined)
  80     {
  81       be_typedef* alias =
  82             dynamic_cast<be_typedef*> (bt);
  83
  84       if (alias == nullptr)
  85         {
  86           predef = dynamic_cast<be_predefined_type*> (bt);
  87         }
  88       else
  89         {
  90           predef =
  91             dynamic_cast<be_predefined_type*> (
  92                 alias->primitive_base_type ()
  93               );
  94         }
  95     }
  96
  97   // When it is a sequence add a special guard
  98   if (predef != nullptr && predef->pt () == AST_PredefinedType::PT_octet
  99       && node->unbounded ())
 100     {
 101       *os << "\n#if (TAO_NO_COPY_OCTET_SEQUENCES == 0)";
 102     }
 103
 104   *os << be_idt << be_nl
 105       << "template class " << be_global->stub_export_macro ()
 106       << " ";
 107
 108   if (node->gen_base_class_name (os,
 109                                  "",
 110                                  this->ctx_->scope ()->decl ()) == -1)
 111     {
 112       ACE_ERROR_RETURN ((LM_ERROR,
 113                          "(%N:%l) be_visitor_template_export::"
 114                          "visit_sequence - "
 115                          "Base class name generation failed\n"),
 116                         -1);
 117     }
 118
 119   *os << ";" << be_uidt;
 120
 121   if (predef != nullptr && predef->pt () == AST_PredefinedType::PT_octet
 122       && node->unbounded ())
 123     {
 124       *os << "\n#endif /* TAO_NO_COPY_OCTET_SEQUENCE == 0 */";
 125     }
 126
 127   return 0;
 128 }
 129
 130 int
 131 be_visitor_template_export::visit_typedef (be_typedef *node)
 132 {
 133   this->ctx_->alias (node);
 134   be_type *bt = node->primitive_base_type ();
 135
 136   if (bt->accept (this) == -1)
 137     {
 138       ACE_ERROR_RETURN ((LM_ERROR,
 139                          "be_visitor_template_export::"
 140                          "visit_typedef - "
 141                          "visit base type failed\n"),
 142                         -1);
 143     }
 144
 145   this->ctx_->alias (nullptr);
 146   return 0;
 147 }