class
	JSON_ZNAME_VALUE_LIST_ITERATION_CURSOR

inherit
	ITERATION_CURSOR [TUPLE [name, value: ZSTRING]]

create
	make

feature {NONE} -- Initialization

	make (a_target: like target)
		do
			target:= a_target
			if target.count > 0 then
				cursor_index := 1
			end
		end

feature -- Access

	item: TUPLE [name, value: ZSTRING]
		do
			target.go_i_th (cursor_index)
			Result := [target.item_name (False), target.item_value (False)]
		end

	item_copy: like item
		do
			target.go_i_th (cursor_index)
			Result := [target.item_name (True), target.item_value (True)]
		end

	cursor_index: INTEGER

feature -- Status report	

	after: BOOLEAN
		-- Are there no more items to iterate over?
		do
			Result := not target.valid_index (cursor_index)
		end

feature -- Cursor movement

	forth
		-- Move to next position.
		do
			cursor_index := cursor_index + 1
		end

feature {TYPED_INDEXABLE_ITERATION_CURSOR} -- Access

	target: JSON_ZNAME_VALUE_LIST

end