diff options
Diffstat (limited to 'TAO/orbsvcs/orbsvcs/IFRService/ConstantDef_i.cpp')
-rw-r--r-- | TAO/orbsvcs/orbsvcs/IFRService/ConstantDef_i.cpp | 290 |
1 files changed, 290 insertions, 0 deletions
diff --git a/TAO/orbsvcs/orbsvcs/IFRService/ConstantDef_i.cpp b/TAO/orbsvcs/orbsvcs/IFRService/ConstantDef_i.cpp new file mode 100644 index 00000000000..0126fafe09d --- /dev/null +++ b/TAO/orbsvcs/orbsvcs/IFRService/ConstantDef_i.cpp @@ -0,0 +1,290 @@ +/* -*- C++ -*- */ +// $Id$ + +#include "ConstantDef_i.h" +#include "Repository_i.h" +#include "IDLType_i.h" +#include "Servant_Factory.h" +#include "ace/Auto_Ptr.h" + +ACE_RCSID(IFR_Service, ConstantDef_i, "$Id$") + +TAO_ConstantDef_i::TAO_ConstantDef_i ( + TAO_Repository_i *repo, + ACE_Configuration_Section_Key section_key + ) + : TAO_IRObject_i (repo, section_key), + TAO_Contained_i (repo, section_key) +{ +} + +TAO_ConstantDef_i::~TAO_ConstantDef_i (void) +{ +} + +CORBA::DefinitionKind +TAO_ConstantDef_i::def_kind (ACE_ENV_SINGLE_ARG_DECL_NOT_USED) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + return CORBA::dk_Constant; +} + +CORBA_Contained::Description * +TAO_ConstantDef_i::describe (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + TAO_IFR_READ_GUARD_RETURN (0); + + return this->describe_i (ACE_ENV_SINGLE_ARG_PARAMETER); +} + +CORBA_Contained::Description * +TAO_ConstantDef_i::describe_i (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + CORBA_Contained::Description *desc_ptr = 0; + ACE_NEW_THROW_EX (desc_ptr, + CORBA_Contained::Description, + CORBA::NO_MEMORY ()); + ACE_CHECK_RETURN (0); + + CORBA_Contained::Description_var retval = desc_ptr; + + retval->kind = this->def_kind (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK_RETURN (0); + + CORBA_ConstantDescription cd; + + cd.name = this->name_i (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK_RETURN (0); + + cd.id = this->id_i (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK_RETURN (0); + + ACE_TString container_id; + + this->repo_->config ()->get_string_value (this->section_key_, + "container_id", + container_id); + + cd.defined_in = container_id.c_str (); + + cd.version = this->version_i (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK_RETURN (0); + + cd.type = this->type_i (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK_RETURN (0); + + CORBA::Any_var val = this->value_i (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK_RETURN (0); + + cd.value = val.in (); + + retval->value <<= cd; + + return retval._retn (); +} + +CORBA::TypeCode_ptr +TAO_ConstantDef_i::type (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + TAO_IFR_READ_GUARD_RETURN (CORBA::TypeCode::_nil ()); + + return this->type_i (ACE_ENV_SINGLE_ARG_PARAMETER); +} + +CORBA::TypeCode_ptr +TAO_ConstantDef_i::type_i (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + ACE_TString type_path; + this->repo_->config ()->get_string_value (this->section_key_, + "type_path", + type_path); + + ACE_Configuration_Section_Key type_key; + this->repo_->config ()->expand_path (this->repo_->root_key (), + type_path, + type_key, + 0); + + TAO_IDLType_i *impl = + this->repo_->servant_factory ()->create_idltype (type_key + ACE_ENV_ARG_PARAMETER); + ACE_CHECK_RETURN (CORBA::TypeCode::_nil ()); + + auto_ptr<TAO_IDLType_i> safety (impl); + + return impl->type_i (ACE_ENV_SINGLE_ARG_PARAMETER); +} + +CORBA_IDLType_ptr +TAO_ConstantDef_i::type_def (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + TAO_IFR_READ_GUARD_RETURN (CORBA_IDLType::_nil ()); + + return this->type_def_i (ACE_ENV_SINGLE_ARG_PARAMETER); +} + +CORBA_IDLType_ptr +TAO_ConstantDef_i::type_def_i (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + ACE_TString type_path; + this->repo_->config ()->get_string_value (this->section_key_, + "type_path", + type_path); + + ACE_Configuration_Section_Key type_key; + this->repo_->config ()->expand_path (this->repo_->root_key (), + type_path, + type_key, + 0); + + u_int kind = 0; + this->repo_->config ()->get_integer_value (type_key, + "def_kind", + kind); + + CORBA::DefinitionKind def_kind = + ACE_static_cast (CORBA::DefinitionKind, kind); + + CORBA::Object_var obj = + this->repo_->servant_factory ()->create_objref (def_kind, + type_path.c_str () + ACE_ENV_ARG_PARAMETER); + ACE_CHECK_RETURN (CORBA_IDLType::_nil ()); + + return CORBA_IDLType::_narrow (obj.in () + ACE_ENV_ARG_PARAMETER); +} + +void +TAO_ConstantDef_i::type_def (CORBA_IDLType_ptr type_def + ACE_ENV_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + TAO_IFR_WRITE_GUARD; + + this->type_def_i (type_def + ACE_ENV_ARG_PARAMETER); +} + +void +TAO_ConstantDef_i::type_def_i (CORBA_IDLType_ptr type_def + ACE_ENV_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + PortableServer::ObjectId_var oid = + this->repo_->ir_poa ()->reference_to_id (type_def + ACE_ENV_ARG_PARAMETER); + ACE_CHECK; + + CORBA::String_var type_path = + PortableServer::ObjectId_to_string (oid.in ()); + + this->repo_->config ()->set_string_value (this->section_key_, + "type_path", + type_path.in ()); +} + +CORBA::Any * +TAO_ConstantDef_i::value (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + TAO_IFR_READ_GUARD_RETURN (0); + + return this->value_i (ACE_ENV_SINGLE_ARG_PARAMETER); +} + +CORBA::Any * +TAO_ConstantDef_i::value_i (ACE_ENV_SINGLE_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + CORBA::TypeCode_var tc = this->type_i (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK_RETURN (0); + + void *ref = 0; + u_int length = 0; + + this->repo_->config ()->get_binary_value ( + this->section_key_, + "value", + ref, + length + ); + + char *data = ACE_static_cast (char *, ref); + + ACE_Auto_Basic_Array_Ptr<char> safety (data); + + ACE_Message_Block mb (data, + length); + + mb.length (length); + + CORBA::Any *retval = 0; + ACE_NEW_THROW_EX (retval, + CORBA::Any (tc.in (), + 0, + TAO_ENCAP_BYTE_ORDER, + &mb), + CORBA::NO_MEMORY ()); + ACE_CHECK_RETURN (0); + + return retval; +} + +void +TAO_ConstantDef_i::value (const CORBA::Any &value + ACE_ENV_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + TAO_IFR_WRITE_GUARD; + + this->value_i (value + ACE_ENV_ARG_PARAMETER); +} + +void +TAO_ConstantDef_i::value_i (const CORBA::Any &value + ACE_ENV_ARG_DECL) + ACE_THROW_SPEC ((CORBA::SystemException)) +{ + CORBA::TypeCode_var my_tc = this->type_i (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK; + + CORBA::TypeCode_var val_tc = value.type (); + + if (!my_tc.in ()->equal (val_tc.in ())) + return; + + ACE_Message_Block *mb = value._tao_get_cdr (); + + CORBA::TCKind kind = val_tc->kind (ACE_ENV_SINGLE_ARG_PARAMETER); + ACE_CHECK; + + switch (kind) + { + // The data for these types will be aligned to an 8-byte + // boundary, while the rd_ptr may not. + case CORBA::tk_double: + case CORBA::tk_ulonglong: + case CORBA::tk_longlong: + case CORBA::tk_longdouble: + mb->rd_ptr (ACE_ptr_align_binary (mb->rd_ptr (), + ACE_CDR::MAX_ALIGNMENT)); + break; + default: + break; + } + + mb->crunch (); + + this->repo_->config ()->set_binary_value (this->section_key_, + "value", + mb->base (), + mb->length ()); +} |