note description: "Store all information about a mismatch in a type." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date: 2014-05-16 22:45:00 +0000 (Fri, 16 May 2014) $" revision: "$Revision: 95094 $" class SED_TYPE_MISMATCH create make feature {NONE} -- Initialization make (a_type_id: INTEGER_32) -- Mismatch for dynamic type a_type_id in retrieving system. require type_id_non_negative: a_type_id >= 0 local l_attribute_count: INTEGER_32 do type_id := a_type_id l_attribute_count := Internal.field_count_of_type (type_id) create mismatches_by_name.make (l_attribute_count) create mismatches_by_stored_position.make (l_attribute_count) ensure type_id_set: type_id = a_type_id end feature -- Element change add_new_attribute_mismatch (a_added_attribute_count: INTEGER_32) -- Mismatch when new attributes have been added require a_added_attribute_count_positive: a_added_attribute_count > 0 do has_new_attribute := True end add_attribute_count_mismatch (a_old_count, a_new_count: INTEGER_32) -- Mismatch where there is a_old_count attributes in the original system -- and a_new_count attributes in the retrieving system. require old_count_non_negative: a_old_count >= 0 new_count_non_negative: a_new_count >= 0 do old_count := a_old_count new_count := a_new_count ensure old_count_set: old_count = a_old_count new_count_set: new_count = a_new_count end add_version_mismatch (a_old_version, a_new_version: detachable IMMUTABLE_STRING_8) -- Mismatch where the original system as a version a_old_version which differs -- from the version a_new_version in the retrieving system. require different_version: a_old_version /~ a_new_version do old_version := a_old_version new_version := a_new_version has_version_mismatch := True ensure old_version_set: old_version = a_old_version new_version_set: new_version = a_new_version version_mismatched: has_version_mismatch end add_attribute_mismatch (a_old_attr_type, a_new_attr_type: INTEGER_32; a_old_name, a_new_name: STRING_8; a_old_pos, a_new_pos: INTEGER_32) -- Mismatch for a_old_name where the new name is a_new_name, the new type -- a_new_attr_type is different from a_old_attr_type stored at position -- a_old_pos in the stored system for a a_new_pos in the retrieving system. require a_old_attr_type_non_negative: a_old_attr_type >= 0 a_new_attr_type_non_negative: a_new_attr_type >= 0 a_old_name_attached: a_old_name /= Void a_new_name_attached: a_new_name /= Void a_old_pos_positive: a_old_pos > 0 a_new_pos_positive: a_new_pos > 0 local l_info: like attribute_info do l_info := [a_old_name, a_new_name, a_old_attr_type, a_new_attr_type, a_old_pos, a_new_pos, True, False, False] mismatches_by_name.put (l_info, a_new_name) mismatches_by_stored_position.put (l_info, a_old_pos) end add_void_safe_mismatch (a_old_attr_type, a_new_attr_type: INTEGER_32; a_old_name, a_new_name: STRING_8; a_old_pos, a_new_pos: INTEGER_32) -- Mismatch for a_old_name where the new name is a_new_name, the new type -- a_new_attr_type is attached and a_old_attr_type is detachable stored at position -- a_old_pos in the stored system for a a_new_pos in the retrieving system. require a_old_attr_type_non_negative: a_old_attr_type >= 0 a_new_attr_type_non_negative: a_new_attr_type >= 0 a_old_name_attached: a_old_name /= Void a_new_name_attached: a_new_name /= Void a_old_pos_positive: a_old_pos > 0 a_new_pos_positive: a_new_pos > 0 local l_info: like attribute_info do l_info := [a_old_name, a_new_name, a_old_attr_type, a_new_attr_type, a_old_pos, a_new_pos, False, False, True] mismatches_by_name.put (l_info, a_new_name) mismatches_by_stored_position.put (l_info, a_old_pos) end add_removed_attribute (a_old_attr_type: INTEGER_32; a_old_name, a_new_name: STRING_8; a_old_pos: INTEGER_32) -- Attribute a_name of type a_old_attr_type at position a_old_pos in -- the stored system is now missing from Current. require a_old_attr_type_non_negative: a_old_attr_type >= 0 a_old_name_attached: a_old_name /= Void a_new_name_attached: a_new_name /= Void a_old_pos_positive: a_old_pos > 0 local l_info: like attribute_info do l_info := [a_old_name, a_new_name, a_old_attr_type, -1, a_old_pos, -1, False, True, False] mismatches_by_name.put (l_info, a_new_name) mismatches_by_stored_position.put (l_info, a_old_pos) end feature -- Status report has_version_mismatch: BOOLEAN -- Do we have a mismatch in versioning? has_new_attribute: BOOLEAN -- Do we have new attributes that did not exist in the stored system? has_new_attached_attribute: BOOLEAN -- Do we have new attached attributes that did not exist in the stored system? feature -- Access type_id: INTEGER_32 -- Type ID for type having the mismatch old_count: INTEGER_32 -- Number of attributes in original system and retrieving system. new_count: INTEGER_32 -- Number of attributes in original system and retrieving system. old_version: detachable IMMUTABLE_STRING_8 -- Version in stored system and retrieving system. new_version: detachable IMMUTABLE_STRING_8 -- Version in stored system and retrieving system. mismatches_by_name: HASH_TABLE [like attribute_info, STRING_8] -- Store information about mismatch based on the attribute name. mismatches_by_stored_position: HASH_TABLE [like attribute_info, INTEGER_32] -- Store information about mismatch based on the store position. attribute_info: TUPLE [old_name: STRING_8; new_name: STRING_8; old_attribute_type: INTEGER_32; new_attribute_type: INTEGER_32; old_position: INTEGER_32; new_position: INTEGER_32; is_changed: BOOLEAN; is_removed: BOOLEAN; is_attachment_check_required: BOOLEAN] -- For typing purposes. require callable: False do check False then end end feature {NONE} -- Implementation Internal: REFLECTOR -- To query type properties. once create Result end invariant type_id_non_negative: type_id >= 0 counts_non_negative: old_count >= 0 and new_count >= 0 note library: "EiffelBase: Library of reusable components for Eiffel." copyright: "Copyright (c) 1984-2014, 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_TYPE_MISMATCH
Generated by ISE EiffelStudio