TAO/TAO_IDL/ast/ast_annotation_member.cpp

   1 /**
   2  * Abstract Syntax Tree Node for a Member Value of an Annotation
   3  */
   4
   5 #include "ast_annotation_member.h"
   6 #include "ast_type.h"
   7 #include "utl_scope.h"
   8
   9 #include "ast_enum.h"
  10 #include "ast_enum_val.h"
  11
  12 AST_Decl::NodeType const AST_Annotation_Member::NT =
  13   AST_Decl::NT_annotation_member;
  14
  15 AST_Annotation_Member::AST_Annotation_Member (
  16   AST_Expression::ExprType expr_type, AST_Type *type, UTL_ScopedName *name)
  17   : AST_Decl (NT, name),
  18     AST_Field (type, name, vis_NA),
  19     expr_type_ (expr_type),
  20     value_ (0)
  21 {
  22 }
  23
  24 AST_Annotation_Member::AST_Annotation_Member (
  25   AST_Decl::NodeType nt,
  26   AST_Expression::ExprType expr_type, AST_Type *type, UTL_ScopedName *name)
  27   : AST_Decl (nt, name),
  28     AST_Field (nt, type, name, vis_NA),
  29     expr_type_ (expr_type),
  30     value_ (0)
  31 {
  32 }
  33
  34 AST_Annotation_Member::AST_Annotation_Member (
  35   UTL_ScopedName *name,
  36   AST_Annotation_Member *other)
  37   : AST_Decl (name, dynamic_cast<AST_Decl*>(other)),
  38     AST_Field (name, dynamic_cast<AST_Field*>(other)),
  39     expr_type_ (other->expr_type ()),
  40     value_ (other->value () ?
  41       new AST_Expression (other->value (), other->expr_type ()) : 0)
  42 {
  43 }
  44
  45 AST_Annotation_Member::~AST_Annotation_Member ()
  46 {
  47   delete value_;
  48 }
  49
  50 void
  51 AST_Annotation_Member::destroy ()
  52 {
  53   if (value_)
  54     {
  55       value_->destroy ();
  56     }
  57   AST_Field::destroy ();
  58 }
  59
  60 IMPL_NARROW_FROM_DECL (AST_Annotation_Member);
  61 IMPL_NARROW_FROM_SCOPE (AST_Annotation_Member);
  62
  63 void
  64 AST_Annotation_Member::dump (ACE_OSTREAM_TYPE &o)
  65 {
  66   AST_Field::dump (o);
  67   if (field_type () && value_)
  68     {
  69       dump_i (o, " default ");
  70       if (field_type ()->node_type () == AST_Decl::NT_enum)
  71         {
  72           dynamic_cast<AST_Enum*> (field_type ())->
  73             lookup_by_value (value_)->name ()->dump (o);
  74         }
  75       else
  76         {
  77           value_->dump (o);
  78         }
  79     }
  80 }
  81
  82 AST_Expression *
  83 AST_Annotation_Member::value ()
  84 {
  85   return value_;
  86 }
  87
  88 void
  89 AST_Annotation_Member::value (AST_Expression *value)
  90 {
  91   if (value_)
  92     {
  93       value_->destroy ();
  94       delete value_;
  95     }
  96
  97   value_ = value;
  98 }
  99
 100 AST_Expression::ExprType
 101 AST_Annotation_Member::expr_type ()
 102 {
 103   return expr_type_;
 104 }
 105
 106 bool
 107 AST_Annotation_Member::invalid_value ()
 108 {
 109   return !value () || !value ()->ev ();
 110 }