diff options
Diffstat (limited to 'TAO/tao/Marshal.cpp')
-rw-r--r-- | TAO/tao/Marshal.cpp | 262 |
1 files changed, 0 insertions, 262 deletions
diff --git a/TAO/tao/Marshal.cpp b/TAO/tao/Marshal.cpp deleted file mode 100644 index b63181880a5..00000000000 --- a/TAO/tao/Marshal.cpp +++ /dev/null @@ -1,262 +0,0 @@ -// $Id$ - -// ============================================================================ -// -// = 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/Marshal.h" -#include "tao/TypeCode.h" - -#if !defined (__ACE_INLINE__) -# include "tao/Marshal.i" -#endif /* ! __ACE_INLINE__ */ - -ACE_RCSID (tao, - Marshal, - "$Id$") - -TAO_Marshal_Object::~TAO_Marshal_Object (void) -{ -} - -TAO::traverse_status -TAO_Marshal_Object::perform_skip (CORBA::TypeCode_ptr tc, - TAO_InputCDR *stream - ACE_ENV_ARG_DECL) -{ - CORBA::ULong kind = tc->kind (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (TAO::TRAVERSE_STOP); - - switch (kind) - { - default: - case CORBA::tk_fixed: - case CORBA::tk_value_box: - case CORBA::tk_native: - case CORBA::tk_abstract_interface: - case CORBA::tk_component: - case CORBA::tk_home: - // @@ We don't know how to handle any of them yet. - return TAO::TRAVERSE_STOP; - - case CORBA::tk_null: - case CORBA::tk_void: - case CORBA::tk_short: - case CORBA::tk_long: - case CORBA::tk_ushort: - case CORBA::tk_ulong: - case CORBA::tk_float: - case CORBA::tk_double: - case CORBA::tk_boolean: - case CORBA::tk_char: - case CORBA::tk_octet: - case CORBA::tk_longlong: - case CORBA::tk_ulonglong: - case CORBA::tk_longdouble: - case CORBA::tk_wchar: - case CORBA::tk_enum: - { - TAO_Marshal_Primitive marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - - case CORBA::tk_any: - { - TAO_Marshal_Any marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_TypeCode: - { - TAO_Marshal_TypeCode marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_Principal: - { - TAO_Marshal_Principal marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_objref: - { - TAO_Marshal_ObjRef marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_struct: - { - TAO_Marshal_Struct marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_union: - { - TAO_Marshal_Union marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_string: - { - TAO_Marshal_String marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_sequence: - { - TAO_Marshal_Sequence marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_array: - { - TAO_Marshal_Array marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_alias: - { - TAO_Marshal_Alias marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_except: - { - TAO_Marshal_Except marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_wstring: - { - TAO_Marshal_WString marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_value: - { - TAO_Marshal_Value marshal; - return marshal.skip (tc, stream ACE_ENV_ARG_PARAMETER); - } - } -} - -TAO::traverse_status -TAO_Marshal_Object::perform_append (CORBA::TypeCode_ptr tc, - TAO_InputCDR *src, - TAO_OutputCDR *dest - ACE_ENV_ARG_DECL) -{ - CORBA::ULong kind = tc->kind (ACE_ENV_SINGLE_ARG_PARAMETER); - ACE_CHECK_RETURN (TAO::TRAVERSE_STOP); - - switch (kind) - { - default: - case CORBA::tk_fixed: - case CORBA::tk_value_box: - case CORBA::tk_native: - case CORBA::tk_abstract_interface: - case CORBA::tk_component: - case CORBA::tk_home: - // @@ We don't know how to handle any of them yet. - return TAO::TRAVERSE_STOP; - - case CORBA::tk_null: - case CORBA::tk_void: - case CORBA::tk_short: - case CORBA::tk_long: - case CORBA::tk_ushort: - case CORBA::tk_ulong: - case CORBA::tk_float: - case CORBA::tk_double: - case CORBA::tk_boolean: - case CORBA::tk_char: - case CORBA::tk_octet: - case CORBA::tk_longlong: - case CORBA::tk_ulonglong: - case CORBA::tk_longdouble: - case CORBA::tk_wchar: - case CORBA::tk_enum: - { - TAO_Marshal_Primitive marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - - case CORBA::tk_any: - { - TAO_Marshal_Any marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_TypeCode: - { - TAO_Marshal_TypeCode marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_Principal: - { - TAO_Marshal_Principal marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_objref: - { - TAO_Marshal_ObjRef marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_struct: - { - TAO_Marshal_Struct marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_union: - { - TAO_Marshal_Union marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_string: - { - TAO_Marshal_String marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_sequence: - { - TAO_Marshal_Sequence marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_array: - { - TAO_Marshal_Array marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_alias: - { - TAO_Marshal_Alias marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_except: - { - TAO_Marshal_Except marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_wstring: - { - TAO_Marshal_WString marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - case CORBA::tk_value: - { - TAO_Marshal_Value marshal; - return marshal.append (tc, src, dest ACE_ENV_ARG_PARAMETER); - } - } -} - -#if defined (ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION) - -#elif defined (ACE_HAS_TEMPLATE_INSTANTIATION_PRAGMA) - -#endif /* ACE_HAS_EXPLICIT_TEMPLATE_INSTANTIATION */ |