note description: "[ Ancestor of all classes that need facility to retrieve an older version of an instance of current class through storable. Redefine correct_mismatch to get data from Mismatch_information about found mismatch. A mismatch might be the addition or the removal of an attribute as well as an attribute type change. ]" library: "Free implementation of ELKS library" status: "See notice at end of class." legal: "See notice at end of class." date: "$Date: 2017-04-12 13:15:47 +0000 (Wed, 12 Apr 2017) $" revision: "$Revision: 100150 $" class MISMATCH_CORRECTOR create default_create feature -- Correction correct_mismatch -- Attempt to correct object mismatch using Mismatch_information. local l_msg: STRING_8 l_exc: EXCEPTIONS do create l_msg.make_from_string ("Mismatch: ") create l_exc l_msg.append (generating_type.name) l_exc.raise_retrieval_exception (l_msg) end Mismatch_information: MISMATCH_INFORMATION -- Original attribute values of mismatched object once create Result end note copyright: "Copyright (c) 1984-2017, 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 MISMATCH_CORRECTOR
Generated by ISE EiffelStudio