diff options
Diffstat (limited to 'TAO/tao/marshal.cpp')
| -rw-r--r-- | TAO/tao/marshal.cpp | 182 |
1 files changed, 182 insertions, 0 deletions
diff --git a/TAO/tao/marshal.cpp b/TAO/tao/marshal.cpp new file mode 100644 index 00000000000..adb7601a0e6 --- /dev/null +++ b/TAO/tao/marshal.cpp @@ -0,0 +1,182 @@ +// ============================================================================ +// +// = LIBRARY +// TAO +// +// = FILENAME +// marshal.cpp +// +// = DESCRIPTION +// Implements the Marshal_Object class and the factory +// +// The original encoder and decoder code now appears in files encode.cpp and +// decode.cpp +// +// = AUTHOR +// Copyright 1994-1995 by Sun Microsystems Inc. +// and +// Aniruddha Gokhale +// +// ============================================================================ + +#include "tao/corba.h" + +TAO_Marshal_Factory* TAO_Marshal::DEFAULT_MARSHAL_FACTORY = 0; + +void +TAO_Marshal::initialize (void) +{ + DEFAULT_MARSHAL_FACTORY = TAO_MARSHAL_FACTORY::instance(); +} + +// cosntructor for the factory +TAO_Marshal_Factory::TAO_Marshal_Factory (void) +#if 0 + : m_primitive_ (TAO_MARSHAL_PRIMITIVE::instance ()), + m_any_ (TAO_MARSHAL_ANY::instance ()), + m_typecode_ (TAO_MARSHAL_TYPECODE::instance ()), + m_principal_ (TAO_MARSHAL_PRINCIPAL::instance ()), + m_objref_ (TAO_MARSHAL_OBJREF::instance ()), + m_struct_ (TAO_MARSHAL_STRUCT::instance ()), + m_union_ (TAO_MARSHAL_UNION::instance ()), + m_string_ (TAO_MARSHAL_STRING::instance ()), + m_sequence_ (TAO_MARSHAL_SEQUENCE::instance ()), + m_array_ (TAO_MARSHAL_ARRAY::instance ()), + m_alias_ (TAO_MARSHAL_ALIAS::instance ()), + m_except_ (TAO_MARSHAL_EXCEPT::instance ()), + m_wstring_ (TAO_MARSHAL_WSTRING::instance ()) +#endif /* 0 */ +{ + // initialize the mobj table + mobj_table_[CORBA::tk_null].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_void].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_short].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_long].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_ushort].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_ulong].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_float].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_double].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_boolean].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_char].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_octet].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_any].obj_ = TAO_MARSHAL_ANY::instance (); + mobj_table_[CORBA::tk_TypeCode].obj_ = TAO_MARSHAL_TYPECODE::instance (); + mobj_table_[CORBA::tk_Principal].obj_ = TAO_MARSHAL_PRINCIPAL::instance (); + mobj_table_[CORBA::tk_objref].obj_ = TAO_MARSHAL_OBJREF::instance (); + mobj_table_[CORBA::tk_struct].obj_ = TAO_MARSHAL_STRUCT::instance (); + mobj_table_[CORBA::tk_union].obj_ = TAO_MARSHAL_UNION::instance (); + mobj_table_[CORBA::tk_enum].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_string].obj_ = TAO_MARSHAL_STRING::instance (); + mobj_table_[CORBA::tk_sequence].obj_ = TAO_MARSHAL_SEQUENCE::instance (); + mobj_table_[CORBA::tk_array].obj_ = TAO_MARSHAL_ARRAY::instance (); + mobj_table_[CORBA::tk_alias].obj_ = TAO_MARSHAL_ALIAS::instance (); + mobj_table_[CORBA::tk_except].obj_ = TAO_MARSHAL_EXCEPT::instance (); + mobj_table_[CORBA::tk_longlong].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_ulonglong].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_longdouble].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_wchar].obj_ = TAO_MARSHAL_PRIMITIVE::instance (); + mobj_table_[CORBA::tk_wstring].obj_ = TAO_MARSHAL_WSTRING::instance (); +} + +TAO_Marshal_Factory::~TAO_Marshal_Factory (void) +{ +} + +#if 0 +// factory method +// +// Based on the kind of the typecode, return the appropriate marshal object +TAO_Marshal_Object* TAO_Marshal_Factory::make_marshal_object (CORBA::TypeCode_ptr tc, + CORBA::Environment &env) +{ + env.clear (); + if (tc) + { + switch (tc->kind_) + { + case CORBA::tk_null: + case CORBA::tk_void: + case CORBA::tk_short: + case CORBA::tk_ushort: + case CORBA::tk_long: + case CORBA::tk_ulong: + case CORBA::tk_float: + case CORBA::tk_enum: + case CORBA::tk_double: + case CORBA::tk_longlong: + case CORBA::tk_ulonglong: + case CORBA::tk_boolean: + case CORBA::tk_char: + case CORBA::tk_octet: + case CORBA::tk_longdouble: + case CORBA::tk_wchar: + return m_primitive_; + case CORBA::tk_any: + return m_any_; + case CORBA::tk_TypeCode: + return m_typecode_; + case CORBA::tk_Principal: + return m_principal_; + case CORBA::tk_objref: + return m_objref_; + case CORBA::tk_struct: + return m_struct_; + case CORBA::tk_union: + return m_union_; + case CORBA::tk_string: + return m_string_; + case CORBA::tk_sequence: + return m_sequence_; + case CORBA::tk_array: + return m_array_; + case CORBA::tk_alias: + return m_alias_; + case CORBA::tk_except: + return m_except_; + case CORBA::tk_wstring: + return m_wstring_; + default: + // anything else is an error + env.exception (new CORBA::BAD_TYPECODE (CORBA::COMPLETED_NO)); + return (TAO_Marshal_Object *)0; + } + } + else + { + env.exception (new CORBA::BAD_TYPECODE (CORBA::COMPLETED_NO)); + return (TAO_Marshal_Object *)0; + } +} +#endif /* 0 */ + +#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION) +template class ACE_Singleton<TAO_Marshal_Factory, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Primitive, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Any, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_TypeCode, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Principal, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_ObjRef, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Struct, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Union, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_String, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Sequence, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Array, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Alias, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_Except, ACE_SYNCH_RECURSIVE_MUTEX>; +template class ACE_Singleton<TAO_Marshal_WString, ACE_SYNCH_RECURSIVE_MUTEX>; +#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA) +#pragma instantiate ACE_Singleton<TAO_Marshal_Factory, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Primitive, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Any, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_TypeCode, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Principal, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_ObjRef, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Struct, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Union, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_String, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Sequence, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Array, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Alias, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_Except, ACE_SYNCH_RECURSIVE_MUTEX> +#pragma instantiate ACE_Singleton<TAO_Marshal_WString, ACE_SYNCH_RECURSIVE_MUTEX> +#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */ |