p=-- crude comparison between the various ISO 639 parts data and iana 2020-09-17function p.comp local iana = mw.loadData ('Module:Lang/data/iana languages/sandbox'); local iso2 = mw.loadData ('Module:ISO 639 name/ISO 639-2') local iso2B = mw.loadData ('Module:ISO 639 name/ISO 639-2B') local iso3 = mw.loadData ('Module:ISO 639 name/ISO 639-3'); local dep3 = mw.loadData ('Module:ISO 639 name/ISO 639-3 (dep)'); local iso5 = mw.loadData ('Module:ISO 639 name/ISO 639-5'); local syn = mw.loadData ('Module:Lang/ISO 639 synonyms'); local wp_lang = mw.loadData ('Module:Language/data/wp languages'); local override = mw.loadData ('Module:Lang/data/sandbox').override; local iso2_not_in_iana = -- ISO 639-1 synonymous codes not in iana local iso2B_not_in_iana = -- none of the ISO 639-2B codes in iana local iso3_not_in_iana = -- ISO 639-1 synonymous codes and hbs (Serbo Croatian) not in iana local dep3_not_in_iana = -- none of the deprecated ISO 639-3 codes in iana local iso5_not_in_iana = -- ISO 639-1 synonymous codes not in iana (bih) local wp_lang_not_in_override =
local iana_not_in_iso3 = local iana_dep_not_in_dep3 = for k, v in pairs (iso2) do if not iana.active[k] then if not syn[k] then table.insert (iso2_not_in_iana, k); end end end
for k, v in pairs (iso2B) do if not iana.active[k] then table.insert (iso2B_not_in_iana, k); end end
for k, v in pairs (iso3) do if not iana.active[k] then if not syn[k] then table.insert (iso3_not_in_iana, k); end end end
for k, v in pairs (dep3) do if not iana.deprecated[k] then table.insert (dep3_not_in_iana, k) end end
for k, v in pairs (iana.deprecated) do if not dep3[k] then table.insert (iana_dep_not_in_dep3, k) end end
for k, v in pairs (iso5) do if not iana.active[k] then table.insert (iso5_not_in_iana, k); end end
for k, v in pairs (iana.active) do if (3
for k, v in pairs (wp_lang) do k = k:lower--error (mw.dumpObject (iana[k][1])) if not override[k] then if iana.active[k] then table.insert (wp_lang_not_in_override, table.concat); else table.insert (wp_lang_not_in_override, table.concat); end-- table.insert (wp_lang_not_in_override, k); end end table.sort (wp_lang_not_in_override) table.sort (iso2B_not_in_iana) table.sort (iso3_not_in_iana) table.sort (dep3_not_in_iana) table.sort (iana_dep_not_in_dep3) return 'iso2_not_in_iana:\n' .. mw.dumpObject (iso2_not_in_iana) .. '\n\niso2B_not_in_iana:\n' .. mw.dumpObject (iso2B_not_in_iana) .. '\n\niso3_not_in_iana:\n' .. mw.dumpObject (iso3_not_in_iana) .. '\n\niso5_not_in_iana:\n' .. mw.dumpObject (iso5_not_in_iana) .. '\n\dep3_not_in_iana:\n' .. mw.dumpObject (dep3_not_in_iana) .. '\n\iana_dep_not_in_dep3:\n' .. mw.dumpObject (iana_dep_not_in_dep3) .. '\n\wp_lang_not_in_override:\n' .. mw.dumpObject (wp_lang_not_in_override) -- return #dep3_not_in_iana, 'dep3_not_in_iana:\n' .. mw.dumpObject (dep3_not_in_iana)
-- return mw.dumpObject (iana_not_in_iso3)end ----------------------------------------------------
function p.test local langs = mw.language.fetchLanguageNames('en', 'all'); local iws = mw.site.interwikiMap ('local'); local lang_not_in_iw = ; local iw_is_lang = local iw_is_not_lang = local iw_is_extra_lang = for code, language in pairs (langs) do if not iws[code] then lang_not_in_iw[code] = language; end end
for k, v in pairs (iws) do if langs[v["prefix"]] then iw_is_lang[v["prefix"]] = langs[v["prefix"]]; elseif v.isExtraLanguageLink then iw_is_extra_lang[v["prefix"]] = v['url']; else if v['url']:match ('%.wikipedia%.org') then iw_is_not_lang[v["prefix"]] = v['url']; end end end
--
-- return mw.dumpObject (lang_not_in_iw); -- list of lang codes that are not prefixes (there are a lot) return mw.dumpObject (iw_is_lang); -- list of prefixes that match supported language codes (use this list)-- return mw.dumpObject (iw_is_not_lang); -- list of prefixes that have wikipedia.org url but prefix isn't found in the langs list-- return mw.dumpObject (iw_is_extra_lang); -- none are marked with ["isExtraLanguageLink"] = true,end
function p.format (text) local str = text:gsub ('%s*=%s*', '='):gsub('%s*|%s*', ' |'); -- uniform spacing str = str:gsub ('accessdate', 'access-date'):gsub ('archivedate', 'archive-date'); -- hyphenated version str = str:gsub ('(%a)url', '%1-url'); -- archive, dead, chapter, etc urls to hyphenated versions str = str:gsub ('|[%a%-]+= +', ); -- remove empty parameters str = str:gsub (' +|[%a%-]+=}', '}'); -- remove empty parameter at end of template str = str:gsub(''); -- no spacing return str;
end
function p.eq (frame) local ref = frame[1]; local test = frame[2]; if ref
test' end local msg; if ref:len
t then i=i+1; else return msg .. 'diff @ char: ' .. i .. '; ref: ' .. mw.ustring.char (r) .. '; test: ' .. mw.ustring.char (t); end end return i;endreturn p;