note description: "Decoding of arbitrary objects graphs between sessions of a same program." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date: 2013-04-18 21:19:16 +0000 (Thu, 18 Apr 2013) $" revision: "$Revision: 92457 $" class SED_BASIC_DESERIALIZER inherit SED_SESSION_DESERIALIZER redefine read_header end create make feature {NONE} -- Implementation read_header (a_count: NATURAL_32) -- Read header which contains mapping between dynamic type and their -- string representation. local i, nb: INTEGER_32 l_deser: like deserializer l_reflector: like reflector l_table: like dynamic_type_table l_old_dtype, l_new_dtype: INTEGER_32 l_type_str: STRING_8 do l_reflector := reflector l_deser := deserializer read_settings nb := l_deser.read_compressed_natural_32.to_integer_32 create l_table.make_filled (0, nb) from i := 0 until i = nb loop l_old_dtype := l_deser.read_compressed_natural_32.to_integer_32 l_type_str := l_deser.read_string_8 l_new_dtype := l_reflector.dynamic_type_from_string (l_type_str) if l_new_dtype >= 0 then if not l_table.valid_index (l_old_dtype) then l_table := l_table.aliased_resized_area_with_default (0, (l_old_dtype + 1).max (l_table.count * 2)) end l_table.put (l_new_dtype, l_old_dtype) else add_error (Error_factory.new_missing_type_error (l_type_str, l_type_str)) end i := i + 1 end dynamic_type_table := l_table read_object_table (a_count) end note library: "EiffelBase: Library of reusable components for Eiffel." copyright: "Copyright (c) 1984-2013, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end -- class SED_BASIC_DESERIALIZER
Generated by ISE EiffelStudio