diff options
author | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
---|---|---|
committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:11 +0000 |
commit | 6b846cf03c0bcbd8c276cb0af61a181e5f98eaae (patch) | |
tree | da50d054f9c761c3f6a5923f6979e93306c56d68 /TAO/TAO_IDL/be/be_predefined_type.cpp | |
parent | 0e555b9150d38e3b3473ba325b56db2642e6352b (diff) | |
download | ATCD-6b846cf03c0bcbd8c276cb0af61a181e5f98eaae.tar.gz |
Repo restructuring
Diffstat (limited to 'TAO/TAO_IDL/be/be_predefined_type.cpp')
-rw-r--r-- | TAO/TAO_IDL/be/be_predefined_type.cpp | 240 |
1 files changed, 0 insertions, 240 deletions
diff --git a/TAO/TAO_IDL/be/be_predefined_type.cpp b/TAO/TAO_IDL/be/be_predefined_type.cpp deleted file mode 100644 index 0d1c7a6b69b..00000000000 --- a/TAO/TAO_IDL/be/be_predefined_type.cpp +++ /dev/null @@ -1,240 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = LIBRARY -// TAO IDL -// -// = FILENAME -// be_predefined_type.cpp -// -// = DESCRIPTION -// Extension of class AST_PredefinedType that provides additional means for C++ -// mapping. -// -// = AUTHOR -// Copyright 1994-1995 by Sun Microsystems, Inc. -// and -// Aniruddha Gokhale -// -// ============================================================================ - -#include "be_predefined_type.h" -#include "be_visitor.h" -#include "utl_identifier.h" -#include "global_extern.h" - -#include "ace/Log_Msg.h" -#include "ace/ACE.h" -#include "ace/OS_NS_stdio.h" - -ACE_RCSID (be, - be_predefined_type, - "$Id$") - -be_predefined_type::be_predefined_type (void) - : COMMON_Base (), - AST_Decl (), - AST_Type (), - AST_ConcreteType (), - AST_PredefinedType (), - be_decl (), - be_type () -{ -} - -be_predefined_type::be_predefined_type (AST_PredefinedType::PredefinedType t, - UTL_ScopedName *n) - : COMMON_Base (), - AST_Decl (AST_Decl::NT_pre_defined, - n, - true), - AST_Type (AST_Decl::NT_pre_defined, - n), - AST_ConcreteType (AST_Decl::NT_pre_defined, - n), - AST_PredefinedType (t, - n), - be_decl (AST_Decl::NT_pre_defined, - n), - be_type (AST_Decl::NT_pre_defined, - n) -{ - // Computes the repoID. - this->compute_repoID (); - - // Computes the fully scoped typecode name. - this->compute_tc_name (); - - // Compute the flattened fully scoped name. - this->AST_Decl::compute_flat_name (); - - if (t == AST_PredefinedType::PT_object) - { - this->fwd_helper_name_ = "::CORBA::tao_Object"; - } - else if (t == AST_PredefinedType::PT_value) - { - this->fwd_helper_name_ = "::CORBA::tao_ValueBase"; - } - - switch (t) - { - case AST_PredefinedType::PT_char: - case AST_PredefinedType::PT_wchar: - case AST_PredefinedType::PT_boolean: - case AST_PredefinedType::PT_octet: - idl_global->ambiguous_type_seen_ = true; - break; - case AST_PredefinedType::PT_any: - case AST_PredefinedType::PT_object: - case AST_PredefinedType::PT_value: - case AST_PredefinedType::PT_void: - case AST_PredefinedType::PT_pseudo: - break; - default: - idl_global->basic_type_seen_ = true; - break; - } -} - -// Overriden method. -void -be_predefined_type::compute_tc_name (void) -{ - // Start with the head as the CORBA namespace. - Identifier *corba_id = 0; - ACE_NEW (corba_id, - Identifier ("CORBA")); - - ACE_NEW (this->tc_name_, - UTL_ScopedName (corba_id, - 0)); - - Identifier *id = 0; - UTL_ScopedName *conc_name = 0; - - switch (this->pt ()) - { - case AST_PredefinedType::PT_void: - ACE_NEW (id, - Identifier ("_tc_void")); - break; - case AST_PredefinedType::PT_long: - ACE_NEW (id, - Identifier ("_tc_long")); - break; - case AST_PredefinedType::PT_longlong: - ACE_NEW (id, - Identifier ("_tc_longlong")); - break; - case AST_PredefinedType::PT_ulong: - ACE_NEW (id, - Identifier ("_tc_ulong")); - break; - case AST_PredefinedType::PT_ulonglong: - ACE_NEW (id, - Identifier ("_tc_ulonglong")); - break; - case AST_PredefinedType::PT_short: - ACE_NEW (id, - Identifier ("_tc_short")); - break; - case AST_PredefinedType::PT_ushort: - ACE_NEW (id, - Identifier ("_tc_ushort")); - break; - case AST_PredefinedType::PT_float: - ACE_NEW (id, - Identifier ("_tc_float")); - break; - case AST_PredefinedType::PT_double: - ACE_NEW (id, - Identifier ("_tc_double")); - break; - case AST_PredefinedType::PT_longdouble: - ACE_NEW (id, - Identifier ("_tc_longdouble")); - break; - case AST_PredefinedType::PT_char: - ACE_NEW (id, - Identifier ("_tc_char")); - break; - case AST_PredefinedType::PT_wchar: - ACE_NEW (id, - Identifier ("_tc_wchar")); - break; - case AST_PredefinedType::PT_octet: - ACE_NEW (id, - Identifier ("_tc_octet")); - break; - case AST_PredefinedType::PT_boolean: - ACE_NEW (id, - Identifier ("_tc_boolean")); - break; - case AST_PredefinedType::PT_any: - ACE_NEW (id, - Identifier ("_tc_any")); - break; - case AST_PredefinedType::PT_object: - ACE_NEW (id, - Identifier ("_tc_Object")); - break; - case AST_PredefinedType::PT_value: - ACE_NEW (id, - Identifier ("_tc_ValueBase")); - break; - case AST_PredefinedType::PT_pseudo: - { - char tcname [100]; - ACE_OS::sprintf (tcname, - "_tc_%s", - this->name ()->last_component ()->get_string ()); - - ACE_NEW (id, - Identifier (tcname)); - break; - } - default: - ACE_ERROR ((LM_WARNING, "Unknown or invalid predefined type")); - break; - } - - ACE_NEW (conc_name, - UTL_ScopedName (id, - 0)); - - this->tc_name_->nconc (conc_name); -} - -void -be_predefined_type::compute_repoID (void) -{ - switch (this->pt ()) - { - case AST_PredefinedType::PT_object: - ACE::strdelete (this->repoID_); - this->repoID_ = ACE::strnew ("IDL:omg.org/CORBA/Object:1.0"); - break; - default: - AST_Decl::compute_repoID (); - break; - } -} - -int -be_predefined_type::accept (be_visitor *visitor) -{ - return visitor->visit_predefined_type (this); -} - -void -be_predefined_type::destroy (void) -{ - this->AST_PredefinedType::destroy (); - this->be_type::destroy (); -} - -// Narrowing -IMPL_NARROW_METHODS2 (be_predefined_type, AST_PredefinedType, be_type) -IMPL_NARROW_FROM_DECL (be_predefined_type) |