class
	ZSTRING_UNENCODED_COUNT_COMPARISON

inherit
	STRING_BENCHMARK_COMPARISON
		rename
			Character_type as Character_abstract_type
		end

	HEXAGRAM_NAMES_I

	EL_SHARED_ZSTRING_CODEC

create
	make

feature -- Access

	Description: STRING = "ZSTRING: count number of unencoded characters"

feature -- Basic operations

	execute
		local
			str: ZSTRING
		do
			str := Name_manifest
			compare ("count number of unencoded characters", <<
				["count substitute occurrences",	  agent count_substitute_occurrences (str)],
				["call unencoded_character_count", agent unencoded_character_count (str)]
			>>)
		end

feature {NONE} -- Operations

	count_substitute_occurrences (str: ZSTRING)
		local
			i, count, i_upper: INTEGER
		do
			if attached str.area as c then
				i_upper := str.count - 1
				from i := 0 until i > i_upper loop
					inspect c [i]
						when Substitute then
							count := count + 1
					else
					end
					i := i + 1
				end
			end
		end

	unencoded_character_count (unencoded: EL_COMPACT_SUBSTRINGS_32_I)
		local
			count: INTEGER
		do
			count := unencoded.character_count
		end

end