indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	AXIS_DESCENDANT

inherit
	AXIS

feature -- Basic Operations

	start (n: XML_NODE) is
			--
		do
			node := n
			item := node.first_child
		end

	next is
			--
		local
			tmp: XML_NODE
		do
			if item.first_child = Void then
				from
					tmp := item
					item := Void
				until
					tmp = node or item /= Void
				loop
					if tmp.next_sibling = Void then
						tmp := tmp.parent
					else
						item := tmp.next_sibling
					end
				end
			else
				item := item.first_child
			end
		end

end