class
	EL_NAME_TRANSLATER_TABLE

inherit
	EL_CACHE_TABLE [EL_NAME_TRANSLATER, NATURAL]
		rename
			make as make_table,
			item as translater_item,
			new_item as new_translator
		export
			{NONE} all
		end

create
	make

feature {NONE} -- Initialization

	make
		do
			make_table (5)
		end

feature -- Access

	item (separater: CHARACTER; case: NATURAL): EL_NAME_TRANSLATER
		require
			valid_separater: ("_- %U").has (separater)
		do
			Result := translater_item (separater.natural_32_code |<< 8 | case)
		end

feature {NONE} -- Implementation

	new_translator (combined_key: NATURAL): EL_NAME_TRANSLATER
		local
			separater: CHARACTER; case: NATURAL_8
		do
			separater := (combined_key |>> 8).to_character_8; case := combined_key.to_natural_8
			inspect separater
				when '-' then
					create {EL_KEBAB_CASE_TRANSLATER} Result.make_case (case)
				when '%U' then
					create {EL_CAMEL_CASE_TRANSLATER} Result.make_case (case)
				when ' ' then
					create {EL_ENGLISH_NAME_TRANSLATER} Result.make_case (case)
			else
				create {EL_SNAKE_CASE_TRANSLATER} Result.make_case (case)
			end
		end

end