note description: "External forward one-step iteration cursor for {STRING_32}." library: "EiffelBase: Library of reusable components for Eiffel." date: "$Date: 2016-04-13 13:29:38 +0000 (Wed, 13 Apr 2016) $" revision: "$Revision: 98619 $" class STRING_32_ITERATION_CURSOR inherit GENERAL_SPECIAL_ITERATION_CURSOR [CHARACTER_32, READABLE_STRING_32] redefine is_valid end create {READABLE_STRING_32, STRING_32_ITERATION_CURSOR} make feature {NONE} -- Creation make (t: like target) -- Initialize cursor for target t. require t_attached: attached t local l: INTEGER_32 do target := t area := target.area l := t.area_lower area_index := l area_first_index := l area_last_index := t.area_upper ensure target_set: target = t is_valid: is_valid default_step: Step = 1 ascending_traversal: not Is_reversed first_index_set: First_index = t.Lower last_index_set: last_index = t.count end feature -- Access First_index: INTEGER_32 = 1 -- First valid index of target structure for current iteration. -- Note that if Is_reversed, First_index might be greater than last_index. new_cursor: STRING_32_ITERATION_CURSOR -- Restarted cursor of the iteration. do create Result.make (target) end feature -- Status report is_valid: BOOLEAN -- Is the cursor still compatible with the associated underlying object? do Result := target.area = area and then Precursor end feature {TYPED_INDEXABLE_ITERATION_CURSOR} -- Access target: READABLE_STRING_32 -- Associated structure used for iteration. feature {NONE} -- Access area_first_index: INTEGER_32 -- First valid index of area. note copyright: "Copyright (c) 1984-2016, 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 STRING_32_ITERATION_CURSOR
Generated by ISE EiffelStudio