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

class
	AXIS_ANCESTOR

inherit
	AXIS

feature -- Basic Operations

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

	next is
			--
		do
			if item = node.owner_document then
				item := Void
			else
				item := item.parent
			end
		end

end