diff options
Diffstat (limited to 'TAO/TAO_IDL/ast/ast_generator.cpp')
-rw-r--r-- | TAO/TAO_IDL/ast/ast_generator.cpp | 922 |
1 files changed, 922 insertions, 0 deletions
diff --git a/TAO/TAO_IDL/ast/ast_generator.cpp b/TAO/TAO_IDL/ast/ast_generator.cpp new file mode 100644 index 00000000000..bcfe904b83e --- /dev/null +++ b/TAO/TAO_IDL/ast/ast_generator.cpp @@ -0,0 +1,922 @@ +// $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. + +*/ + +// The generator protocol is explained in detail in the IDL CFE +// design document. +// The AST_Generator class provides operations to instantiate any +// of the AST nodes. It contains an operation for every constructor +// of every AST class. + +#include "ast_root.h" +#include "ast_valuebox.h" +#include "ast_valuetype.h" +#include "ast_valuetype_fwd.h" +#include "ast_eventtype.h" +#include "ast_eventtype_fwd.h" +#include "ast_component.h" +#include "ast_component_fwd.h" +#include "ast_home.h" +#include "ast_exception.h" +#include "ast_enum.h" +#include "ast_attribute.h" +#include "ast_union.h" +#include "ast_union_fwd.h" +#include "ast_union_branch.h" +#include "ast_enum_val.h" +#include "ast_array.h" +#include "ast_sequence.h" +#include "ast_string.h" +#include "ast_structure_fwd.h" +#include "ast_native.h" +#include "ast_factory.h" +#include "utl_identifier.h" +#include "nr_extern.h" +#include "ace/OS_NS_wchar.h" + +#include "ast_generator.h" + +ACE_RCSID (ast, + ast_generator, + "$Id$") + +AST_PredefinedType * +AST_Generator::create_predefined_type (AST_PredefinedType::PredefinedType t, + UTL_ScopedName *n) +{ + AST_PredefinedType *retval = 0; + ACE_NEW_RETURN (retval, + AST_PredefinedType (t, + n), + 0); + + return retval; +} + +AST_Module * +AST_Generator::create_module (UTL_Scope *s, + UTL_ScopedName *n) +{ + // We create this first so if we find a module with the + // same name from an included file, we can add its + // members to the new module's scope. + AST_Module *retval = 0; + ACE_NEW_RETURN (retval, + AST_Module (n), + 0); + + AST_Decl *d = 0; + AST_Module *m = 0; + + UTL_ScopeActiveIterator iter (s, + UTL_Scope::IK_decls); + + // Check for another module of the same name in this scope. + while (!iter.is_done ()) + { + d = iter.item (); + + if (d->node_type () == AST_Decl::NT_module) + { + // Does it have the same name as the one we're + // supposed to create. + if (d->local_name ()->compare (n->last_component ())) + { + m = AST_Module::narrow_from_decl (d); + + // Get m's previous_ member, plus all it's decls, + // into the new modules's previous_ member. + retval->add_to_previous (m); + } + } + + iter.next (); + } + + // If this scope is itself a module, and has been previously + // opened, the previous opening may contain a previous opening + // of the module we're creating. + d = ScopeAsDecl (s); + AST_Decl::NodeType nt = d->node_type (); + + if (nt == AST_Decl::NT_module || nt == AST_Decl::NT_root) + { + m = AST_Module::narrow_from_decl (d); + + // AST_Module::previous_ is a set, so it contains each + // entry only once, but previous_ will contain the decls + // from all previous openings. See comment in + // AST_Module::add_to_previous() body. + d = m->look_in_previous (n->last_component ()); + + if (d != 0) + { + if (d->node_type () == AST_Decl::NT_module) + { + m = AST_Module::narrow_from_decl (d); + + retval->add_to_previous (m); + } + } + } + + return retval; +} + +AST_Root * +AST_Generator::create_root (UTL_ScopedName *n) +{ + AST_Root *retval = 0; + ACE_NEW_RETURN (retval, + AST_Root (n), + 0); + + return retval; +} + +AST_Interface * +AST_Generator::create_interface (UTL_ScopedName *n, + AST_Interface **inherits, + long n_inherits, + AST_Interface **inherits_flat, + long n_inherits_flat, + bool is_local, + bool is_abstract) +{ + AST_Interface *retval = 0; + ACE_NEW_RETURN (retval, + AST_Interface (n, + inherits, + n_inherits, + inherits_flat, + n_inherits_flat, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_InterfaceFwd * +AST_Generator::create_interface_fwd (UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Interface *full_defn = this->create_interface (n, + 0, + -1, + 0, + 0, + is_local, + is_abstract); + + AST_InterfaceFwd *retval = 0; + ACE_NEW_RETURN (retval, + AST_InterfaceFwd (full_defn, + n), + 0); + + full_defn->fwd_decl (retval); + return retval; +} + +AST_ValueType * +AST_Generator::create_valuetype (UTL_ScopedName *n, + AST_Interface **inherits, + long n_inherits, + AST_ValueType *inherits_concrete, + AST_Interface **inherits_flat, + long n_inherits_flat, + AST_Interface **supports_list, + long n_supports, + AST_Interface *supports_concrete, + bool is_abstract, + bool is_truncatable, + bool is_custom) +{ + AST_ValueType *retval = 0; + ACE_NEW_RETURN (retval, + AST_ValueType (n, + inherits, + n_inherits, + inherits_concrete, + inherits_flat, + n_inherits_flat, + supports_list, + n_supports, + supports_concrete, + is_abstract, + is_truncatable, + is_custom), + 0); + + // The following helps with OBV_ namespace generation. + AST_Module *m = AST_Module::narrow_from_scope (retval->defined_in ()); + + if (m != 0) + { + m->set_has_nested_valuetype (); + } + + return retval; +} + +AST_ValueTypeFwd * +AST_Generator::create_valuetype_fwd (UTL_ScopedName *n, + bool is_abstract) +{ + AST_ValueType *full_defn = this->create_valuetype (n, + 0, + -1, + 0, + 0, + 0, + 0, + 0, + 0, + is_abstract, + false, + false); + + AST_ValueTypeFwd *retval = 0; + ACE_NEW_RETURN (retval, + AST_ValueTypeFwd (full_defn, + n), + 0); + + full_defn->fwd_decl (retval); + return retval; +} + +AST_EventType * +AST_Generator::create_eventtype (UTL_ScopedName *n, + AST_Interface **inherits, + long n_inherits, + AST_ValueType *inherits_concrete, + AST_Interface **inherits_flat, + long n_inherits_flat, + AST_Interface **supports_list, + long n_supports, + AST_Interface *supports_concrete, + bool is_abstract, + bool is_truncatable, + bool is_custom) +{ + AST_EventType *retval = 0; + ACE_NEW_RETURN (retval, + AST_EventType (n, + inherits, + n_inherits, + inherits_concrete, + inherits_flat, + n_inherits_flat, + supports_list, + n_supports, + supports_concrete, + is_abstract, + is_truncatable, + is_custom), + 0); + + // The following helps with OBV_ namespace generation. + AST_Module *m = AST_Module::narrow_from_scope (retval->defined_in ()); + + if (m != 0) + { + m->set_has_nested_valuetype (); + } + + return retval; +} + +AST_EventTypeFwd * +AST_Generator::create_eventtype_fwd (UTL_ScopedName *n, + bool is_abstract) +{ + AST_EventType *full_defn = this->create_eventtype (n, + 0, + -1, + 0, + 0, + 0, + 0, + 0, + 0, + is_abstract, + false, + false); + + AST_EventTypeFwd *retval = 0; + ACE_NEW_RETURN (retval, + AST_EventTypeFwd (full_defn, + n), + 0); + + full_defn->fwd_decl (retval); + return retval; +} + +AST_Component * +AST_Generator::create_component (UTL_ScopedName *n, + AST_Component *base_component, + AST_Interface **supports_list, + long n_supports, + AST_Interface **supports_flat, + long n_supports_flat) +{ + AST_Component *retval = 0; + ACE_NEW_RETURN (retval, + AST_Component (n, + base_component, + supports_list, + n_supports, + supports_flat, + n_supports_flat), + 0); + + return retval; +} + +AST_ComponentFwd * +AST_Generator::create_component_fwd (UTL_ScopedName *n) +{ + AST_Component *full_defn = this->create_component (n, + 0, + 0, + -1, + 0, + 0); + + AST_ComponentFwd *retval = 0; + ACE_NEW_RETURN (retval, + AST_ComponentFwd (full_defn, + n), + 0); + + full_defn->fwd_decl (retval); + return retval; +} + +AST_Home * +AST_Generator::create_home (UTL_ScopedName *n, + AST_Home *base_home, + AST_Component *managed_component, + AST_ValueType *primary_key, + AST_Interface **supports_list, + long n_supports, + AST_Interface **supports_flat, + long n_supports_flat) +{ + AST_Home *retval = 0; + ACE_NEW_RETURN (retval, + AST_Home (n, + base_home, + managed_component, + primary_key, + supports_list, + n_supports, + supports_flat, + n_supports_flat), + 0); + + return retval; +} + +AST_Exception * +AST_Generator::create_exception (UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Exception *retval = 0; + ACE_NEW_RETURN (retval, + AST_Exception (n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_Structure * +AST_Generator::create_structure (UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Structure *retval = 0; + ACE_NEW_RETURN (retval, + AST_Structure (n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_StructureFwd * +AST_Generator::create_structure_fwd (UTL_ScopedName *n) +{ + AST_Structure *full_defn = this->create_structure (n, + false, + false); + AST_StructureFwd *retval = 0; + ACE_NEW_RETURN (retval, + AST_StructureFwd (full_defn, + n), + 0); + + full_defn->fwd_decl (retval); + return retval; +} + +AST_Enum * +AST_Generator::create_enum (UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Enum *retval = 0; + ACE_NEW_RETURN (retval, + AST_Enum (n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_Operation * +AST_Generator::create_operation (AST_Type *rt, + AST_Operation::Flags fl, + UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Operation *retval = 0; + ACE_NEW_RETURN (retval, + AST_Operation (rt, + fl, + n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_Field * +AST_Generator::create_field (AST_Type *ft, + UTL_ScopedName *n, + AST_Field::Visibility vis) +{ + AST_Field *retval = 0; + ACE_NEW_RETURN (retval, + AST_Field (ft, + n, + vis), + 0); + + return retval; +} + +AST_Argument * +AST_Generator::create_argument (AST_Argument::Direction d, + AST_Type *ft, + UTL_ScopedName *n) +{ + AST_Argument *retval = 0; + ACE_NEW_RETURN (retval, + AST_Argument (d, + ft, + n), + 0); + + return retval; +} + +AST_Attribute * +AST_Generator::create_attribute (bool ro, + AST_Type *ft, + UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Attribute *retval = 0; + ACE_NEW_RETURN (retval, + AST_Attribute (ro, + ft, + n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_Union * +AST_Generator::create_union (AST_ConcreteType *dt, + UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Union *retval = 0; + ACE_NEW_RETURN (retval, + AST_Union (dt, + n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_UnionFwd * +AST_Generator::create_union_fwd (UTL_ScopedName *n) +{ + AST_Union *full_defn = this->create_union (0, + n, + false, + false); + AST_UnionFwd *retval = 0; + ACE_NEW_RETURN (retval, + AST_UnionFwd (full_defn, + n), + 0); + + full_defn->fwd_decl (retval); + return retval; +} + +AST_UnionBranch * +AST_Generator::create_union_branch (UTL_LabelList *ll, + AST_Type *ft, + UTL_ScopedName *n) +{ + AST_UnionBranch *retval = 0; + ACE_NEW_RETURN (retval, + AST_UnionBranch (ll, + ft, + n), + 0); + + return retval; +} + +AST_UnionLabel * +AST_Generator::create_union_label (AST_UnionLabel::UnionLabel ul, + AST_Expression *v) +{ + AST_UnionLabel *retval = 0; + ACE_NEW_RETURN (retval, + AST_UnionLabel (ul, + v), + 0); + + return retval; +} + +AST_Constant * +AST_Generator::create_constant (AST_Expression::ExprType et, + AST_Expression *ev, + UTL_ScopedName *n) +{ + AST_Constant *retval = 0; + ACE_NEW_RETURN (retval, + AST_Constant (et, + ev, + n), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (UTL_ScopedName *n) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (n), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (AST_Expression *v, + AST_Expression::ExprType t) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (v, + t), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (AST_Expression::ExprComb c, + AST_Expression *v1, + AST_Expression *v2) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (c, + v1, + v2), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (long v) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (v), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (bool b) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (b), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (idl_uns_long v, + AST_Expression::ExprType t) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (v, + t), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (UTL_String *s) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (s), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (char c) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (c), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (ACE_OutputCDR::from_wchar wc) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (wc), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (char *s) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (s), + 0); + + return retval; +} + +AST_Expression * +AST_Generator::create_expr (double d) +{ + AST_Expression *retval = 0; + ACE_NEW_RETURN (retval, + AST_Expression (d), + 0); + + return retval; +} + +AST_EnumVal * +AST_Generator::create_enum_val (unsigned long v, + UTL_ScopedName *n) +{ + AST_EnumVal *retval = 0; + ACE_NEW_RETURN (retval, + AST_EnumVal (v, + n), + 0); + + return retval; +} + +AST_Array * +AST_Generator::create_array (UTL_ScopedName *n, + unsigned long ndims, + UTL_ExprList *dims, + bool is_local, + bool is_abstract) +{ + AST_Array *retval = 0; + ACE_NEW_RETURN (retval, + AST_Array (n, + ndims, + dims, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_Sequence * +AST_Generator::create_sequence (AST_Expression *ms, + AST_Type *bt, + UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Sequence *retval = 0; + ACE_NEW_RETURN (retval, + AST_Sequence (ms, + bt, + n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_String * +AST_Generator::create_string (AST_Expression *ms) +{ + Identifier id ("string"); + UTL_ScopedName n (&id, + 0); + + AST_String *retval = 0; + ACE_NEW_RETURN (retval, + AST_String (AST_Decl::NT_string, + &n, + ms), + 0); + + return retval; +} + +AST_String * +AST_Generator::create_wstring (AST_Expression *ms) +{ + Identifier id (sizeof (ACE_CDR::WChar) == 1 + ? "string" + : "wstring"); + UTL_ScopedName n (&id, + 0); + AST_Decl::NodeType nt = sizeof (ACE_CDR::WChar) == 1 + ? AST_Decl::NT_string + : AST_Decl::NT_wstring; + + AST_String *retval = 0; + ACE_NEW_RETURN (retval, + AST_String (nt, + &n, + ms, + sizeof (ACE_OS::WChar)), + 0); + + return retval; +} + +AST_Typedef * +AST_Generator::create_typedef (AST_Type *bt, + UTL_ScopedName *n, + bool is_local, + bool is_abstract) +{ + AST_Typedef *retval = 0; + ACE_NEW_RETURN (retval, + AST_Typedef (bt, + n, + is_local, + is_abstract), + 0); + + return retval; +} + +AST_Native * +AST_Generator::create_native (UTL_ScopedName *n) +{ + AST_Native *retval = 0; + ACE_NEW_RETURN (retval, + AST_Native (n), + 0); + + return retval; +} + +AST_Factory * +AST_Generator::create_factory (UTL_ScopedName *n) +{ + AST_Factory *retval = 0; + ACE_NEW_RETURN (retval, + AST_Factory (n), + 0); + + return retval; +} + +AST_ValueBox * +AST_Generator::create_valuebox (UTL_ScopedName *n, + AST_Type *boxed_type) +{ + AST_ValueBox *retval = 0; + ACE_NEW_RETURN (retval, + AST_ValueBox (n, boxed_type), + 0); + + return retval; +} |