TAO/TAO_IDL/ast/ast_factory.cpp

   1 /*
   2
   3 COPYRIGHT
   4
   5 Copyright 1992, 1993, 1994 Sun Microsystems, Inc.  Printed in the United
   6 States of America.  All Rights Reserved.
   7
   8 This product is protected by copyright and distributed under the following
   9 license restricting its use.
  10
  11 The Interface Definition Language Compiler Front End (CFE) is made
  12 available for your use provided that you include this license and copyright
  13 notice on all media and documentation and the software program in which
  14 this product is incorporated in whole or part. You may copy and extend
  15 functionality (but may not remove functionality) of the Interface
  16 Definition Language CFE without charge, but you are not authorized to
  17 license or distribute it to anyone else except as part of a product or
  18 program developed by you or with the express written consent of Sun
  19 Microsystems, Inc. ("Sun").
  20
  21 The names of Sun Microsystems, Inc. and any of its subsidiaries or
  22 affiliates may not be used in advertising or publicity pertaining to
  23 distribution of Interface Definition Language CFE as permitted herein.
  24
  25 This license is effective until terminated by Sun for failure to comply
  26 with this license.  Upon termination, you shall destroy or return all code
  27 and documentation for the Interface Definition Language CFE.
  28
  29 INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED AS IS WITH NO WARRANTIES OF
  30 ANY KIND INCLUDING THE WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS
  31 FOR A PARTICULAR PURPOSE, NONINFRINGEMENT, OR ARISING FROM A COURSE OF
  32 DEALING, USAGE OR TRADE PRACTICE.
  33
  34 INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED WITH NO SUPPORT AND WITHOUT
  35 ANY OBLIGATION ON THE PART OF Sun OR ANY OF ITS SUBSIDIARIES OR AFFILIATES
  36 TO ASSIST IN ITS USE, CORRECTION, MODIFICATION OR ENHANCEMENT.
  37
  38 SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES SHALL HAVE NO LIABILITY WITH
  39 RESPECT TO THE INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY
  40 INTERFACE DEFINITION LANGUAGE CFE OR ANY PART THEREOF.
  41
  42 IN NO EVENT WILL SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES BE LIABLE FOR
  43 ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, INDIRECT AND CONSEQUENTIAL
  44 DAMAGES, EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  45
  46 Use, duplication, or disclosure by the government is subject to
  47 restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in
  48 Technical Data and Computer Software clause at DFARS 252.227-7013 and FAR
  49 52.227-19.
  50
  51 Sun, Sun Microsystems and the Sun logo are trademarks or registered
  52 trademarks of Sun Microsystems, Inc.
  53
  54 SunSoft, Inc.
  55 2550 Garcia Avenue
  56 Mountain View, California  94043
  57
  58 NOTE:
  59
  60 SunOS, SunSoft, Sun, Solaris, Sun Microsystems or the Sun logo are
  61 trademarks or registered trademarks of Sun Microsystems, Inc.
  62
  63 */
  64
  65 // AST_Factory nodes denote OBV or component home factory
  66 // construct declarations.
  67 // AST_Factory is a subclass of AST_Decl (it is not a type!)
  68 // and of UTL_Scope (the arguments are managed in a scope).
  69
  70 #include "ast_factory.h"
  71 #include "ast_argument.h"
  72 #include "ast_exception.h"
  73 #include "ast_visitor.h"
  74 #include "global_extern.h"
  75 #include "utl_err.h"
  76 #include "utl_identifier.h"
  77 #include "utl_exceptlist.h"
  78 #include "utl_namelist.h"
  79
  80 AST_Decl::NodeType const
  81 AST_Factory::NT = AST_Decl::NT_factory;
  82
  83 AST_Factory::AST_Factory (UTL_ScopedName *n)
  84   : COMMON_Base (true,
  85                  false), //@@ Always local, never abstract
  86     AST_Decl (AST_Decl::NT_factory,
  87               n),
  88     UTL_Scope (AST_Decl::NT_factory),
  89     pd_exceptions (nullptr),
  90     pd_n_exceptions (0),
  91     argument_count_ (-1),
  92     has_native_ (0)
  93 {
  94 }
  95
  96 AST_Factory::~AST_Factory ()
  97 {
  98 }
  99
 100 // Public operations.
 101
 102 UTL_ExceptList *
 103 AST_Factory::exceptions ()
 104 {
 105   return this->pd_exceptions;
 106 }
 107
 108 int
 109 AST_Factory::n_exceptions ()
 110 {
 111   return this->pd_n_exceptions;
 112 }
 113
 114 // Return the member count.
 115 int
 116 AST_Factory::argument_count ()
 117 {
 118   this->compute_argument_attr ();
 119
 120   return this->argument_count_;
 121 }
 122
 123 // Return if any argument or the return type is a <native> type.
 124 int
 125 AST_Factory::has_native ()
 126 {
 127   this->compute_argument_attr ();
 128
 129   return this->has_native_;
 130 }
 131
 132 void
 133 AST_Factory::destroy ()
 134 {
 135   if (nullptr != this->pd_exceptions)
 136     {
 137       this->pd_exceptions->destroy ();
 138       this->pd_exceptions = nullptr;
 139     }
 140
 141   this->AST_Decl::destroy ();
 142   this->UTL_Scope::destroy ();
 143 }
 144
 145 UTL_ExceptList *
 146 AST_Factory::be_add_exceptions (UTL_ExceptList *t)
 147 {
 148   if (this->pd_exceptions != nullptr)
 149     {
 150       idl_global->err ()->error1 (UTL_Error::EIDL_ILLEGAL_RAISES,
 151                                   this);
 152     }
 153   else
 154     {
 155       this->pd_exceptions = t;
 156       this->pd_n_exceptions = (t == nullptr ? 0 : t->length ());
 157     }
 158
 159   return this->pd_exceptions;
 160 }
 161
 162 // Private operations.
 163
 164 // Compute total number of members.
 165 int
 166 AST_Factory::compute_argument_attr ()
 167 {
 168   if (this->argument_count_ != -1)
 169     {
 170       return 0;
 171     }
 172
 173   AST_Decl *d = nullptr;
 174   AST_Type *type = nullptr;
 175   AST_Argument *arg = nullptr;
 176
 177   this->argument_count_ = 0;
 178
 179   // If there are elements in this scope.
 180   if (this->nmembers () > 0)
 181     {
 182       for (UTL_ScopeActiveIterator i (this, IK_decls);
 183            !i.is_done ();
 184            i.next ())
 185         {
 186           // Get the next AST decl node.
 187           d = i.item ();
 188
 189           if (d->node_type () == AST_Decl::NT_argument)
 190             {
 191               this->argument_count_++;
 192
 193               arg = dynamic_cast<AST_Argument*> (d);
 194
 195               type = dynamic_cast<AST_Type*> (arg->field_type ());
 196
 197               if (type->node_type () == AST_Decl::NT_native)
 198                 {
 199                   this->has_native_ = 1;
 200                 }
 201             }
 202         }
 203     }
 204
 205   return 0;
 206 }
 207
 208 AST_Argument *
 209 AST_Factory::fe_add_argument (AST_Argument *t)
 210 {
 211   return dynamic_cast<AST_Argument*> (this->fe_add_ref_decl (t));
 212 }
 213
 214 UTL_NameList *
 215 AST_Factory::fe_add_exceptions (UTL_NameList *t)
 216 {
 217   UTL_ScopedName *nl_n = nullptr;
 218   AST_Type *fe = nullptr;
 219   AST_Decl *d = nullptr;
 220
 221   this->pd_exceptions = nullptr;
 222
 223   for (UTL_NamelistActiveIterator nl_i (t);
 224        !nl_i.is_done ();
 225        nl_i.next ())
 226     {
 227       nl_n = nl_i.item ();
 228
 229       d = this->defined_in ()->lookup_by_name (nl_n, true);
 230
 231       if (d == nullptr)
 232         {
 233           idl_global->err ()->lookup_error (nl_n);
 234           return nullptr;
 235         }
 236
 237       AST_Decl::NodeType nt = d->node_type ();
 238
 239       if (nt != AST_Decl::NT_except
 240           && nt != AST_Decl::NT_param_holder)
 241         {
 242           idl_global->err ()->error1 (UTL_Error::EIDL_ILLEGAL_RAISES,
 243                                       this);
 244           return nullptr;
 245         }
 246
 247       fe = dynamic_cast<AST_Type*> (d);
 248
 249       UTL_ExceptList *el = nullptr;
 250       ACE_NEW_RETURN (el,
 251                       UTL_ExceptList (fe, nullptr),
 252                       nullptr);
 253
 254       if (this->pd_exceptions == nullptr)
 255         {
 256           this->pd_exceptions = el;
 257         }
 258       else
 259         {
 260           this->pd_exceptions->nconc (el);
 261         }
 262
 263       this->pd_n_exceptions++;
 264     }
 265
 266   // This return value is never used, it's easier to
 267   // destroy it here and return 0 than to destroy it
 268   // each place it is passed in.
 269   t->destroy ();
 270   delete t;
 271   t = nullptr;
 272
 273   return t;
 274 }
 275
 276 // Dump this AST_Factory node to the ostream o.
 277 void
 278 AST_Factory::dump (ACE_OSTREAM_TYPE &o)
 279 {
 280   AST_Decl *d = nullptr;
 281
 282   this->dump_i (o, "factory ");
 283   this->local_name ()->dump (o);
 284   this->dump_i (o, "(");
 285
 286   // Iterator must be explicitly advanced inside the loop.
 287   for (UTL_ScopeActiveIterator i (this, IK_decls);
 288        !i.is_done ();)
 289     {
 290       d = i.item ();
 291       d->dump (o);
 292       i.next ();
 293
 294       if (!i.is_done())
 295         {
 296           this->dump_i (o, ", ");
 297         }
 298     }
 299
 300   this->dump_i (o, ")");
 301 }
 302
 303 int
 304 AST_Factory::ast_accept (ast_visitor *visitor)
 305 {
 306   return visitor->visit_factory (this);
 307 }