class
	EL_REFLECTED_STRING_8

inherit
	EL_REFLECTED_STRING [STRING_8]
		redefine
			set_from_utf_8
		end

create
	make

feature -- Basic operations

	reset (a_object: EL_REFLECTIVE)
		do
			value (a_object).wipe_out
		end

	set_from_memory (a_object: EL_REFLECTIVE; memory: EL_MEMORY_READER_WRITER)
		do
			if attached value (a_object) as str then
				memory.read_into_string_8 (str)
			end
		end

	set_from_node (a_object: EL_REFLECTIVE; node: EL_STRING_NODE)
		do
			if is_value_cached then
				set (a_object, node.as_string_8 (False))

			elseif attached value (a_object) as str_8 then
				node.set_8 (str_8)
			else
				set (a_object, node.as_string_8 (True))
			end
		end

	set_from_readable (a_object: EL_REFLECTIVE; readable: EL_READABLE)
		do
			set (a_object, readable.read_string_8)
		end

	set_from_utf_8 (a_object: EL_REFLECTIVE; utf_8: READABLE_STRING_8)
		local
			conv: EL_UTF_8_CONVERTER; count: INTEGER; str: STRING_8
		do
			count := conv.unicode_count (utf_8)
			if count = utf_8.count then
			-- ASCII characters
				set (a_object, utf_8)
			else
				if attached value (a_object) as v then
					str := v
					str.grow (count)
				else
					create str.make (count)
					set (a_object, str)
				end
				conv.string_8_into_string_general (str, str)
			end
		end

	write (a_object: EL_REFLECTIVE; writeable: EL_WRITABLE)
		do
			writeable.write_string_8 (value (a_object))
		end

	write_to_memory (a_object: EL_REFLECTIVE; memory: EL_MEMORY_READER_WRITER)
		do
			memory.write_string_8 (value (a_object))
		end

feature {NONE} -- Implementation

	replaced (str: STRING_8; general: READABLE_STRING_GENERAL): STRING_8
		local
			s: EL_STRING_8_ROUTINES
		do
			Result := str
			s.replace (str, general)
		end

	strict_type_id: INTEGER
		-- type that matches generator name suffix EL_REFLECTED_*
		do
			Result := ({STRING_8}).type_id
		end

end