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

class
	XMLDOC_CODE_ENTITY

inherit
	XMLDOC_CODE_ENTITY_KIND

	XMLDOC_ITEM
		redefine
			process_visitor
		end

	XMLDOC_WITH_CONTENT
		rename
			make as make_content
		redefine
			valid_item
		end

--	XMLDOC_WITH_TEXT

create
	make

feature {NONE} -- Initialization

	make (a_kind: STRING)
			-- Initialize `Current'.
		require
			a_kind_valid: a_kind /= Void and then not a_kind.is_empty and then a_kind.as_lower.is_equal (a_kind)
		do
			kind := a_kind
			make_content
		end

feature -- Access

	kind: STRING
			-- Kind of code entity

	valid_item (i: XMLDOC_ITEM): BOOLEAN
			-- is_text_or_container
		do
			Result := ({ot_t: XMLDOC_TEXT} i) or ({ot_e: XMLDOC_CODE_ENTITY_KIND} i) or ({ot_l: XMLDOC_LINK} i)
		end

feature {XMLDOC_VISITOR} -- Visitor

	process_visitor (v: XMLDOC_VISITOR)
		do
			v.process_code_entity (Current)
		end

end