diff options
Diffstat (limited to 'luaotfload-database.lua')
-rw-r--r-- | luaotfload-database.lua | 55 |
1 files changed, 47 insertions, 8 deletions
diff --git a/luaotfload-database.lua b/luaotfload-database.lua index bae90c3..8268283 100644 --- a/luaotfload-database.lua +++ b/luaotfload-database.lua @@ -2588,7 +2588,7 @@ end local collect_statistics = function (mappings) local sum_dsnsize, n_dsnsize = 0, 0 - local fullname, family = { }, { } + local fullname, family, families = { }, { }, { } local subfamily, prefmodifiers, fontstyle_name = { }, { }, { } local addtohash = function (hash, item) @@ -2602,6 +2602,28 @@ local collect_statistics = function (mappings) end end + local appendtohash = function (hash, key, value) + if key and value then + local entry = hash [key] + if entry then + entry [#entry + 1] = value + else + hash [key] = { value } + end + end + end + + local addtoset = function (hash, key, value) + if key and value then + local set = hash [key] + if set then + set [value] = true + else + hash [key] = { [value] = true } + end + end + end + local setsize = function (set) local n = 0 for _, _ in next, set do @@ -2629,6 +2651,8 @@ local collect_statistics = function (mappings) addtohash (prefmodifiers, englishnames.prefmodifiers) addtohash (fontstyle_name, names.fontstyle_name) + addtoset (families, englishnames.family, englishnames.fullname) + local sizeinfo = entry.style.size if sizeinfo then sum_dsnsize = sum_dsnsize + sizeinfo [1] @@ -2636,19 +2660,23 @@ local collect_statistics = function (mappings) end end + --inspect (families) + local n_fullname = setsize (fullname) local n_family = setsize (family) if logs.get_loglevel () > 1 then - report ("both", 0, "", "~~~~ font index statistics ~~~~") - report ("both", 0, "db", - " · Collected %d fonts (%d names) in %d families.", - #mappings, n_fullname, n_family) + local pprint_top = function (hash, n, set) - local pprint_top = function (hash, n) local freqs = { } local items = { } - for item, freq in next, hash do + + for item, value in next, hash do + if set then + freq = setsize (value) + else + freq = value + end local ifreq = items [freq] if ifreq then ifreq [#ifreq + 1] = item @@ -2669,12 +2697,23 @@ local collect_statistics = function (mappings) for i = from, to, -1 do local freq = freqs [i] local itemlist = items [freq] + + if type (itemlist) == "table" then + itemlist = tableconcat (itemlist, ", ") + end + report ("both", 0, "db", " · %4d × %s.", - freq, tableconcat (itemlist, ", ")) + freq, itemlist) end end + report ("both", 0, "", "~~~~ font index statistics ~~~~") + report ("both", 0, "db", + " · Collected %d fonts (%d names) in %d families.", + #mappings, n_fullname, n_family) + pprint_top (families, 4, true) + report ("both", 0, "db", " · %d different “subfamily” kinds", setsize (subfamily)) |