diff options
Diffstat (limited to 'TAO/TAO_IDL/ast/ast_interface.cpp')
-rw-r--r-- | TAO/TAO_IDL/ast/ast_interface.cpp | 814 |
1 files changed, 0 insertions, 814 deletions
diff --git a/TAO/TAO_IDL/ast/ast_interface.cpp b/TAO/TAO_IDL/ast/ast_interface.cpp deleted file mode 100644 index 762f4001986..00000000000 --- a/TAO/TAO_IDL/ast/ast_interface.cpp +++ /dev/null @@ -1,814 +0,0 @@ -// $Id$ - -/* - -COPYRIGHT - -Copyright 1992, 1993, 1994 Sun Microsystems, Inc. Printed in the United -States of America. All Rights Reserved. - -This product is protected by copyright and distributed under the following -license restricting its use. - -The Interface Definition Language Compiler Front End (CFE) is made -available for your use provided that you include this license and copyright -notice on all media and documentation and the software program in which -this product is incorporated in whole or part. You may copy and extend -functionality (but may not remove functionality) of the Interface -Definition Language CFE without charge, but you are not authorized to -license or distribute it to anyone else except as part of a product or -program developed by you or with the express written consent of Sun -Microsystems, Inc. ("Sun"). - -The names of Sun Microsystems, Inc. and any of its subsidiaries or -affiliates may not be used in advertising or publicity pertaining to -distribution of Interface Definition Language CFE as permitted herein. - -This license is effective until terminated by Sun for failure to comply -with this license. Upon termination, you shall destroy or return all code -and documentation for the Interface Definition Language CFE. - -INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED AS IS WITH NO WARRANTIES OF -ANY KIND INCLUDING THE WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS -FOR A PARTICULAR PURPOSE, NONINFRINGEMENT, OR ARISING FROM A COURSE OF -DEALING, USAGE OR TRADE PRACTICE. - -INTERFACE DEFINITION LANGUAGE CFE IS PROVIDED WITH NO SUPPORT AND WITHOUT -ANY OBLIGATION ON THE PART OF Sun OR ANY OF ITS SUBSIDIARIES OR AFFILIATES -TO ASSIST IN ITS USE, CORRECTION, MODIFICATION OR ENHANCEMENT. - -SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES SHALL HAVE NO LIABILITY WITH -RESPECT TO THE INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY -INTERFACE DEFINITION LANGUAGE CFE OR ANY PART THEREOF. - -IN NO EVENT WILL SUN OR ANY OF ITS SUBSIDIARIES OR AFFILIATES BE LIABLE FOR -ANY LOST REVENUE OR PROFITS OR OTHER SPECIAL, INDIRECT AND CONSEQUENTIAL -DAMAGES, EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - -Use, duplication, or disclosure by the government is subject to -restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in -Technical Data and Computer Software clause at DFARS 252.227-7013 and FAR -52.227-19. - -Sun, Sun Microsystems and the Sun logo are trademarks or registered -trademarks of Sun Microsystems, Inc. - -SunSoft, Inc. -2550 Garcia Avenue -Mountain View, California 94043 - -NOTE: - -SunOS, SunSoft, Sun, Solaris, Sun Microsystems or the Sun logo are -trademarks or registered trademarks of Sun Microsystems, Inc. - - */ - -/* - * ast_interface.cc - Implementation of class AST_Interface - * - * AST_Interfaces denote IDL interface definitions - * AST_Interfaces are subclasses of AST_Type and UTL_Scope - * AST_Interfaces have an array of inherited interfaces and - * a count of the number of inherited interfaces. This count - * represents the total number of unique (recursively) inherited - * interfaces. - */ - -#include "idl.h" -#include "idl_extern.h" - -ACE_RCSID(ast, ast_interface, "$Id$") - -/* - * Constructor(s) and destructor - */ -AST_Interface::AST_Interface() - : pd_inherits(NULL), - pd_n_inherits(0) -{ -} - -AST_Interface::AST_Interface(UTL_ScopedName *n, - AST_Interface **ih, - long nih, - UTL_StrList *p) - : AST_Decl(AST_Decl::NT_interface, n, p), - UTL_Scope(AST_Decl::NT_interface), - pd_inherits(ih), - pd_n_inherits(nih) -{ -} - -/* - * Private operations - */ - -/* - * Public operations - */ - -idl_bool AST_Interface::is_abstract_interface () -{ - return 0; -} - - -idl_bool AST_Interface::is_valuetype () -{ - return 0; -} - - -idl_bool AST_Interface::is_abstract_valuetype () -{ - return 0; -} - -void AST_Interface::set_abstract_valuetype () -{ - ACE_ASSERT (0); -} - -/* - * Redefinition of inherited virtual operations - */ - -/* - * Add an AST_Constant node (a constant declaration) to this scope - */ -AST_Constant *AST_Interface::fe_add_constant(AST_Constant *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_Exception node (an exception declaration) to this scope - */ -AST_Exception *AST_Interface::fe_add_exception(AST_Exception *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_Attribute node (an attribute declaration) to this scope - */ -AST_Attribute *AST_Interface::fe_add_attribute(AST_Attribute *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - - -/* - * Add this AST_Field node (a field declaration) to this scope - * (only for valuetypes) - */ -AST_Field *AST_Interface::fe_add_field(AST_Field *t) -{ -#ifdef IDL_HAS_VALUETYPE - AST_Decl *d; - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; - -#else /* IDL_HAS_VALUETYPE */ - ACE_ASSERT (0); - return 0; -#endif /* IDL_HAS_VALUETYPE */ -} - - -/* - * Add an AST_Operation node (an operation declaration) to this scope - */ -AST_Operation *AST_Interface::fe_add_operation(AST_Operation *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_Structure (a struct declaration) to this scope - */ -AST_Structure *AST_Interface::fe_add_structure(AST_Structure *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_Enum node (an enum declaration) to this scope - */ -AST_Enum *AST_Interface::fe_add_enum(AST_Enum *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_Union (a union declaration) to this scope - */ -AST_Union *AST_Interface::fe_add_union(AST_Union *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_EnumVal node (an enumerator) to this scope. - * This is done to conform to the C++ scoping rules which declare - * enumerators in the enclosing scope (in addition to declaring them - * in the enum itself) - */ -AST_EnumVal *AST_Interface::fe_add_enum_val(AST_EnumVal *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_Typedef (a typedef) to the current scope - */ -AST_Typedef *AST_Interface::fe_add_typedef(AST_Typedef *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Add an AST_Native (a native declaration) to this scope - */ -AST_Native *AST_Interface::fe_add_native (AST_Native *t) -{ - AST_Decl *d; - - /* - * Can't add to interface which was not yet defined - */ - if (!is_defined()) { - idl_global->err()->error2(UTL_Error::EIDL_DECL_NOT_DEFINED, this, t); - return NULL; - } - /* - * Already defined and cannot be redefined? Or already used? - */ - if ((d = lookup_for_add(t, I_FALSE)) != NULL) { - if (!can_be_redefined(d)) { - idl_global->err()->error3(UTL_Error::EIDL_REDEF, t, this, d); - return NULL; - } - if (referenced(d)) { - idl_global->err()->error3(UTL_Error::EIDL_DEF_USE, t, this, d); - return NULL; - } - if (t->has_ancestor(d)) { - idl_global->err()->redefinition_in_scope(t, d); - return NULL; - } - } - /* - * Add it to scope - */ - add_to_scope(t); - /* - * Add it to set of locally referenced symbols - */ - add_to_referenced(t, I_FALSE); - - return t; -} - -/* - * Dump this AST_Interface node to the ostream o - */ -void -AST_Interface::dump(ostream &o) -{ - long i; - - if (this->is_valuetype ()) - { - if (this->is_abstract_valuetype ()) - o << "abstract "; - o << "valuetype "; - } - else - { - if (this->is_abstract_interface ()) - o << "abstract "; - o << "interface "; - } - local_name()->dump(o); - o << " "; - if (pd_n_inherits > 0) { - o << ": "; - for (i = 0; i < pd_n_inherits; i++) { - pd_inherits[i]->local_name()->dump(o); - if (i < pd_n_inherits - 1) - o << ", "; - } - } - o << " {\n"; - UTL_Scope::dump(o); - idl_global->indent()->skip_to(o); - o << "}"; -} - -void -AST_Interface::fwd_redefinition_helper (AST_Interface *&i, - UTL_Scope *s, - UTL_StrList *p) -{ - AST_Decl *d = NULL; - AST_Interface *fd = NULL; - - if (i != NULL && (d = s->lookup_by_name (i->name (), - I_FALSE)) - != NULL) - { - // See if we're defining a forward declared interface. - if (d->node_type () == AST_Decl::NT_interface) - { - // Narrow to an interface - fd = AST_Interface::narrow_from_decl (d); - - // Successful? - if (fd == NULL) - { - // Should we give an error here? ... no, look in fe_add_interface - } - - // If it is a forward declared interface.. - else if (!fd->is_defined ()) - { - // Check if redefining in same scope. If a module is reopened, - // a new pointer in created, and the first term below will be true. - // In that case, the scoped names must be compared. - if (fd->defined_in () != s - && !AST_Interface::compare_names (fd, - i)) - { - idl_global->err ()->error2 (UTL_Error::EIDL_SCOPE_CONFLICT, - i, - fd); - } - - // All OK, do the redefinition - else - { -# ifdef IDL_HAS_VALUETYPE - - // only redefinition of the same kind - if ((i->is_valuetype () != fd->is_valuetype ()) - || (i->is_abstract_valuetype () != fd->is_abstract_valuetype ()) - || (i->is_abstract_interface () != fd->is_abstract_interface ())) - { - idl_global->err ()->error2 (UTL_Error::EIDL_REDEF, - i, - fd); - return; - } - -# endif /* IDL_HAS_VALUETYPE */ - - fd->redefine (i, - p); - - // Use full definition node - delete i; - i = fd; - } - } - } - } -} - - -/* - * Data accessors - */ - -void -AST_Interface::redefine (AST_Interface *from, UTL_StrList *p) -{ - this->set_inherits(from->inherits()); - this->set_n_inherits(from->n_inherits()); - /* - * Update place of definition - */ - this->set_imported(idl_global->imported()); - this->set_in_main_file(idl_global->in_main_file()); - this->set_line(idl_global->lineno()); - this->set_file_name(idl_global->filename()); - this->add_pragmas(p); -} - -AST_Interface ** -AST_Interface::inherits() -{ - return pd_inherits; -} - -void -AST_Interface::set_inherits(AST_Interface **i) -{ - pd_inherits = i; -} - -long -AST_Interface::n_inherits() -{ - return pd_n_inherits; -} - -void -AST_Interface::set_n_inherits(long i) -{ - pd_n_inherits = i; -} - -// Get the scoped names and, if they are the same -// length, iterate over them, comparing each term. -idl_bool -AST_Interface::compare_names (AST_Interface *that, - AST_Interface *other) -{ - UTL_ScopedName *that_name = that->name (); - UTL_ScopedName *other_name = other->name (); - - long that_length = that_name->length (); - - if (that_length != other_name->length ()) - { - return I_FALSE; - } - - Identifier *that_id = 0; - Identifier *other_id = 0; - - UTL_IdListActiveIterator *that_iter = - new UTL_IdListActiveIterator (that_name); - UTL_IdListActiveIterator *other_iter = - new UTL_IdListActiveIterator (other_name); - - for (int i = 0; i < that_length; i++) - { - that_id = that_iter->item (); - other_id = other_iter->item (); - - if (ACE_OS::strcmp (that_id->get_string (), - other_id->get_string ())) - { - delete that_iter; - delete other_iter; - return I_FALSE; - } - - that_iter->next (); - other_iter->next (); - } - - delete that_iter; - delete other_iter; - return I_TRUE; -} - -/* - * Narrowing methods - */ -IMPL_NARROW_METHODS2(AST_Interface, AST_Type, UTL_Scope) -IMPL_NARROW_FROM_DECL(AST_Interface) -IMPL_NARROW_FROM_SCOPE(AST_Interface) |