TAO/TAO_IDL/ast/ast_component.cpp

   1 #include "ast_component.h"
   2 #include "ast_attribute.h"
   3 #include "ast_provides.h"
   4 #include "ast_uses.h"
   5 #include "ast_publishes.h"
   6 #include "ast_emits.h"
   7 #include "ast_consumes.h"
   8 #include "ast_mirror_port.h"
   9 #include "ast_visitor.h"
  10 #include "utl_identifier.h"
  11 #include "utl_indenter.h"
  12 #include "utl_err.h"
  13 #include "global_extern.h"
  14 #include "fe_extern.h"
  15
  16 AST_Decl::NodeType const
  17 AST_Component::NT = AST_Decl::NT_component;
  18
  19 AST_Component::AST_Component (UTL_ScopedName *n,
  20                               AST_Component *base_component,
  21                               AST_Type **supports,
  22                               long n_supports,
  23                               AST_Interface **supports_flat,
  24                               long n_supports_flat)
  25   : COMMON_Base (false,
  26                  false),
  27     AST_Decl (AST_Decl::NT_component,
  28               n),
  29     AST_Type (AST_Decl::NT_component,
  30               n),
  31     UTL_Scope (AST_Decl::NT_component),
  32     AST_Interface (n,
  33                    supports,
  34                    n_supports,
  35                    supports_flat,
  36                    n_supports_flat,
  37                    false,
  38                    false),
  39     pd_base_component (base_component)
  40 {
  41   FE_Utils::tmpl_mod_ref_check (this, base_component);
  42
  43   if (!this->imported ())
  44     {
  45       idl_global->component_seen_ = true;
  46     }
  47 }
  48
  49 AST_Component::~AST_Component (void)
  50 {
  51 }
  52
  53 void
  54 AST_Component::redefine (AST_Interface *from)
  55 {
  56   AST_Component *c = dynamic_cast<AST_Component*> (from);
  57
  58   if (c == 0)
  59     {
  60       idl_global->err ()->redef_error (from->local_name ()->get_string (),
  61                                        this->local_name ()->get_string ());
  62       return;
  63     }
  64
  65   // Copy over all the base class members.
  66   this->AST_Interface::redefine (from);
  67
  68   this->pd_base_component = c->pd_base_component;
  69 }
  70
  71 AST_Decl *
  72 AST_Component::look_in_inherited (UTL_ScopedName *e,
  73                                   bool full_def_only)
  74 {
  75   AST_Decl *d = 0;
  76
  77   if (this->pd_base_component != 0)
  78     {
  79       d =
  80         this->pd_base_component->lookup_by_name_r (
  81           e,
  82           full_def_only);
  83     }
  84
  85   return d;
  86 }
  87
  88 // Look through supported interface list.
  89 AST_Decl *
  90 AST_Component::look_in_supported (UTL_ScopedName *e,
  91                                   bool full_def_only)
  92 {
  93   AST_Decl *d = 0;
  94   AST_Type **is = 0;
  95   long nis = -1;
  96
  97   // Can't look in an interface which was not yet defined.
  98   if (!this->is_defined ())
  99     {
 100       idl_global->err ()->fwd_decl_lookup (this, e);
 101       return 0;
 102     }
 103
 104   // OK, loop through supported interfaces.
 105
 106   for (nis = this->n_supports (), is = this->supports ();
 107        nis > 0;
 108        nis--, is++)
 109     {
 110       if ((*is)->node_type () == AST_Decl::NT_param_holder)
 111         {
 112           continue;
 113         }
 114
 115       AST_Interface *i =
 116         dynamic_cast<AST_Interface*> (*is);
 117
 118       d = (i)->lookup_by_name_r (e, full_def_only);
 119
 120       if (d != 0)
 121         {
 122           break;
 123         }
 124     }
 125
 126   return d;
 127 }
 128
 129 AST_Component *
 130 AST_Component::base_component (void) const
 131 {
 132   return this->pd_base_component;
 133 }
 134
 135 AST_Type **
 136 AST_Component::supports (void) const
 137 {
 138   return this->inherits ();
 139 }
 140
 141 long
 142 AST_Component::n_supports (void) const
 143 {
 144   return this->n_inherits ();
 145 }
 146
 147 AST_Decl *
 148 AST_Component::special_lookup (UTL_ScopedName *e,
 149                                bool full_def_only,
 150                                AST_Decl *&/*final_parent_decl*/)
 151 {
 152   AST_Decl *d = this->look_in_inherited (e, full_def_only);
 153
 154   if (d == 0)
 155     {
 156       d = this->look_in_supported (e, full_def_only);
 157     }
 158
 159   return d;
 160 }
 161
 162 void
 163 AST_Component::destroy (void)
 164 {
 165   this->AST_Interface::destroy ();
 166 }
 167
 168 void
 169 AST_Component::dump (ACE_OSTREAM_TYPE &o)
 170 {
 171   this->dump_i (o, "component ");
 172
 173   this->local_name ()->dump (o);
 174
 175   this->dump_i (o, " ");
 176
 177   if (this->pd_base_component != 0)
 178     {
 179       this->dump_i (o, ": ");
 180       this->pd_base_component->local_name ()->dump (o);
 181     }
 182
 183   if (this->pd_n_inherits > 0)
 184     {
 185       this->dump_i (o, "supports ");
 186
 187       for (long i = 0; i < this->pd_n_inherits; ++i)
 188         {
 189           this->pd_inherits[i]->local_name ()->dump (o);
 190
 191           if (i < this->pd_n_inherits - 1)
 192             {
 193               this->dump_i (o, ", ");
 194             }
 195         }
 196     }
 197
 198   this->dump_i (o, " {\n");
 199
 200   UTL_Scope::dump (o);
 201   idl_global->indent ()->skip_to (o);
 202
 203   this->dump_i (o, "}");
 204 }
 205
 206 int
 207 AST_Component::ast_accept (ast_visitor *visitor)
 208 {
 209   return visitor->visit_component (this);
 210 }
 211
 212 AST_Provides *
 213 AST_Component::fe_add_provides (AST_Provides *p)
 214 {
 215   return dynamic_cast<AST_Provides*> (this->fe_add_ref_decl (p));
 216 }
 217
 218 AST_Uses *
 219 AST_Component::fe_add_uses (AST_Uses *u)
 220 {
 221   return dynamic_cast<AST_Uses*> (this->fe_add_ref_decl (u));
 222 }
 223
 224 AST_Publishes *
 225 AST_Component::fe_add_publishes (AST_Publishes *p)
 226 {
 227   return dynamic_cast<AST_Publishes*> (this->fe_add_ref_decl (p));
 228 }
 229
 230 AST_Emits *
 231 AST_Component::fe_add_emits (AST_Emits *e)
 232 {
 233   return dynamic_cast<AST_Emits*> (this->fe_add_ref_decl (e));
 234 }
 235
 236 AST_Consumes *
 237 AST_Component::fe_add_consumes (AST_Consumes *c)
 238 {
 239   return dynamic_cast<AST_Consumes*> (this->fe_add_ref_decl (c));
 240 }
 241
 242 AST_Extended_Port *
 243 AST_Component::fe_add_extended_port (AST_Extended_Port *p)
 244 {
 245   return dynamic_cast<AST_Extended_Port*> (this->fe_add_ref_decl (p));
 246 }
 247
 248 AST_Mirror_Port *
 249 AST_Component::fe_add_mirror_port (AST_Mirror_Port *p)
 250 {
 251   return dynamic_cast<AST_Mirror_Port*> (this->fe_add_ref_decl (p));
 252 }
 253
 254 int
 255 AST_Component::be_add_uses (AST_Uses *i,
 256                             AST_Uses *ix)
 257 {
 258   // Add it to scope.
 259   this->add_to_scope (i,
 260                       ix);
 261
 262   // Add it to set of locally referenced symbols.
 263   this->add_to_referenced (i,
 264                            false,
 265                            i->local_name (),
 266                            ix);
 267
 268   return 0;
 269 }
 270
 271 IMPL_NARROW_FROM_DECL (AST_Component)
 272 IMPL_NARROW_FROM_SCOPE (AST_Component)