class
	GROUPED_LINES_CURSOR

inherit
	EL_SPLIT_ON_CHARACTER_CURSOR [STRING]
		rename
			make as make_cursor
		redefine
			item
		end

	EL_CHARACTER_8_CONSTANTS

create
	make

feature {NONE} -- Initialization

	make (a_target: like target; a_tab_count: INTEGER)
		do
			target := a_target; tab_count := a_tab_count
			separator := '%N'
			forth
		end

feature -- Access

	item: STRING
		do
			Result := Buffer.copied (Tab * tab_count)
			Result.append_substring (target, item_lower, item_upper)
		end

feature {NONE} -- Internal attributes

	tab_count: INTEGER

feature {NONE} -- Constants

	Buffer: EL_STRING_8_BUFFER
		once
			create Result
		end
end