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

class
	WIKITEXT_READER

create
	make

feature {NONE} -- Initialization

	make
			-- Initialize `Current'.
		local
			l_include_in_system: TUPLE [WIKI_NULL_VISITOR]
		do
--			read_folder ("data\eiffelstudio", "EiffelStudio")
			read_folder ("data\test", "Test")
			read_folder ("data\method", "Method")
		end

	read_folder (a_dir: STRING; a_name: STRING)
		local
			f: RAW_FILE
			fn: PATH
			wp: detachable WIKI_BOOK_PAGE
			wi: WIKI_INDEX
		do
			create fn.make_from_string (a_dir)
			fn := fn.extended ("book.index")
			create f.make_with_path (fn)
			if f.exists and f.is_readable then
				create wi.make (a_name, fn)
				wi.analyze
				if attached wi.book as wb then
					across
						wb.pages as c
					loop
						wp := c.item
						print ("[" + wp.key + "] ")
						print (wp.title)
						io.put_new_line
						print ("%Tfrom " + wp.src)
						io.put_new_line
					end
				end
			end
		end

feature -- Status

feature -- Access

feature -- Change

feature {NONE} -- Implementation

invariant
--	invariant_clause: True

note
	copyright: "2011-2012, Jocelyn Fiat"
	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			Jocelyn Fiat
			Contact: http://about.jocelynfiat.net/
		]"
end