class
	EL_SPLIT_STRING_8_ON_STRING_CURSOR [RSTRING -> READABLE_STRING_8]

inherit
	EL_SPLIT_ON_STRING_CURSOR [RSTRING, CHARACTER_8]
		redefine
			fill_item, is_i_th_white_space, internal_item
		end

create
	make_adjusted

feature {NONE} -- Implementation

	fill_item (a_item: STRING_8)
		do
			a_item.wipe_out
			a_item.append_substring (target, item_lower, item_upper)
		end

	is_i_th_white_space (a_target: like target; i: INTEGER): BOOLEAN
		do
			Result := a_target [i].is_space
		end

	i_th_character (a_target: like target; i: INTEGER): CHARACTER_8
		-- i'th character of `a_target'
		do
			Result := a_target [i]
		end

feature {NONE} -- Internal attributes

	internal_item: detachable STRING_8

end