note
	description: "Summary description for {WDOCS_HELPER}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	WDOCS_HELPER

feature -- Helper

	normalized_fs_text (a_text: READABLE_STRING_GENERAL): STRING_32
			-- `a_text' converted to a normalized file system text.
			--| for instance a wiki name converted to safe filename.
			--| ex:  "foobar" -> "foobar"
			--| ex:  "foo bar" -> "foo_bar"
			--| ex:  "foo %T   bar" -> "foo_bar"
			--| ex:  "foo_bar" -> "foo_bar"	
		local
			i,n: INTEGER
		do
				-- Replace any space with underscore
			create Result.make (a_text.count)
			from
				i := 1
				n := a_text.count
			until
				i > n
			loop
				if a_text[i].is_space then
					from
						i := i + 1
					until
						not a_text[i].is_space
					loop
						i := i + 1
					end
					Result.append_character ('_')
				else
					Result.append_character (a_text[i])
					i := i + 1
				end
			end
		end

	normalized_fs_path (a_path: PATH): PATH
		require
			not_absolute: a_path.is_absolute
		do
			create Result.make_from_string (normalized_fs_text (a_path.name))
		end


end