deferred class
	EL_FONT_FAMILIES_I

inherit
	EL_FONT_PROPERTY
		export
			{NONE} all
		end

	EL_MODULE_TEXT

	EL_SHARED_ZSTRING_BUFFER_SCOPES

feature -- Access

	new_query_list (
		width_bitmap, type_bitmap: NATURAL_8; excluded_char_sets: detachable ARRAY [INTEGER]
	): EL_COMPACT_ZSTRING_LIST
		-- fonts that have width properties if `width_bitmap' > 0
		-- and fonts that have type properties if `type_bitmap' > 0
		local
			utf_8_list: EL_IMMUTABLE_UTF_8_LIST; hexadecimal: EL_HEXADECIMAL_CONVERTER
			bitmap: NATURAL_8; included: BOOLEAN; char_set, char_set_then_bitmap: INTEGER
		do
			create utf_8_list.make (property_table.count)
			across property_table as table loop
				char_set_then_bitmap := hexadecimal.to_integer (table.utf_8_item)

				char_set := char_set_then_bitmap |>> 8; bitmap := char_set_then_bitmap.to_natural_8
				if width_bitmap.to_boolean then
					included := ((bitmap & Font_mask_width) & width_bitmap).to_boolean
				else
					included := True
				end
				if type_bitmap.to_boolean then
					included := included and ((bitmap & Font_mask_type) & type_bitmap).to_boolean
				end
				if attached excluded_char_sets as char_sets then
					included := included and not char_sets.has (char_set)
				end
				if included then
					utf_8_list.extend (table.key)
				end
			end
			utf_8_list.trim
			create Result.make (utf_8_list)
		end

feature -- Status query

	has (name: READABLE_STRING_GENERAL): BOOLEAN
		do
			Result := property_table.has_general (name)
		end

feature {NONE} -- Implementation

	new_property_table: EL_IMMUTABLE_UTF_8_TABLE
		-- table of hexadecimal font property bitmaps from class `EL_FONT_PROPERTY'
		local
			bitmap: NATURAL_8; manifest: ZSTRING; char_set_then_bitmap: INTEGER
		do
			if attached new_true_type_set as true_type_set then
				across String_scope as scope loop
					manifest := scope.item
					across new_font_families_map as family loop
						if manifest.count > 0 then
							manifest.append_character_8 (',')
						end
						if Text.is_proportional (family.key) then
							bitmap := Font_proportional
						else
							bitmap := Font_monospace
						end
						if is_true_type (true_type_set, family.key) then
							bitmap := bitmap | Font_true_type
						else
							bitmap := bitmap | Font_non_true_type
						end
						char_set_then_bitmap := family.value |<< 8 | bitmap.to_integer_32
						if attached char_set_then_bitmap.to_hex_string as hex_string then
							hex_string.prune_all_leading ('0')
							manifest.append_string_general (hex_string)
						end
						manifest.append_character_8 (',')
						manifest.append_string_general (family.key)
					end
					create Result.make (manifest)
				end
			end
		end

feature {NONE} -- Deferred

	is_true_type (true_type_set: EL_HASH_SET [ZSTRING]; family: STRING_32): BOOLEAN
		-- table of hexadecimal font property bitmaps from class `EL_FONT_PROPERTY'
		deferred
		end

	new_font_families_map: EL_ARRAYED_MAP_LIST [STRING_32, INTEGER]
		deferred
		end

	new_true_type_set: EL_HASH_SET [ZSTRING]
		deferred
		end

feature {NONE} -- Internal attributes

	property_table: EL_IMMUTABLE_UTF_8_TABLE
		-- table of hexadecimal font property bitmaps from class `EL_FONT_PROPERTY' (digits 0 - 1)
		-- plus {EV_FONT}.char_set for Windows (digits 2 - 3)

end