Module:languages: Difference between revisions

← Older edit

Module:languages (view source)

Revision as of 01:43, 7 August 2024

274 bytes removed , 7 August 2024

ਕੋਈ ਸੋਧ ਸਾਰ ਨਹੀਂ

TheNightAvl

Bureaucrats, Interface administrators, Suppressors, Administrators

11,796

edits

@@ Line 1: / Line 1: @@
 local export = {}
-local languages = {
-	-- Proto-Laenkean
-	["lnk-pro"] = {name = "Proto-Laenkean", code = "lnk-pro", link = ":Category:Proto-Laenkean roots", proto = true},
-	-- Balavic
-	["bal"] = {name = "Balavic", code = "bal", link = ":Category:Balavic lemmas", proto = false},
-	-- Kilitic
-	["kil"] = {name = "Kilitic", code = "kil", link = ":Category:Kilitic lemmas", proto = false},
-	-- Laefevian
-	["lfv-pro"] = {name = "Proto-Laefevic", code = "lfv-pro", link = ":Category:Proto-Laefevic lemmas", proto = true},
-	["lfv-o"] = {name = "Old Laefevian", code = "lfv-o", link = ":Category:Old Laefevian lemmas", proto = false},
-	["lfv-m"] = {name = "Middle Laefevian", code = "lfv-m", link = ":Category:Middle Laefevian lemmas", proto = false},
-	["lfv"] = {name = "Laefevian", code = "lfv", link = ":Category:Laefevian lemmas", proto = false},
-	-- Radestrian
-	["rad-pro"] = {name = "Proto-Radic", code = "rad-pro", link = ":Category:Proto-Radic lemmas", proto = true},
-	["rad-o"] = {name = "Old Radestrian", code = "rad-o", link = ":Category:Old Radestrian lemmas", proto = false},
-	["rad-m"] = {name = "Middle Radestrian", code = "rad-m", link = ":Category:Middle Radestrian lemmas", proto = false},
-	["rad"] = {name = "Radestrian", code = "rad", link = ":Category:Radestrian lemmas", proto = false},
-	-- Riyan
-	["ryn-o"] = {name = "Old Riyan", code = "ryn-o", link = ":Category:Old Riyan lemmas", proto = false},
-	["ryn-m"] = {name = "Middle Riyan", code = "ryn-m", link = ":Category:Middle Riyan lemmas", proto = false},
-	["ryn"] = {name = "Riyan", code = "ryn", link = ":Category:Riyan lemmas", proto = false}
-}
 function export.get_by_code(code)
+	local lang = export.find_by_code(code)
+	if lang == nil then error("No such language (" .. code .. ")") end
+	return lang
+end
+function export.find_by_code(code)
 	if type(code) ~= "string" then
 		error("Language code must be string. Got " .. type(code))
 	end
-	local l = languages[code]
+	return mw.loadData("Module:languages/data")[code]
-	if l == nil then
+end
-		error("No such language code")
-	end
+function export.get_by_name(name)
-	return l
+	local lang = export.find_by_canonical_name(name)
+	if lang == nil then error("No such language (" .. name .. ")") end
+	return lang
+end
+function export.find_by_name(name)
+	local code = mw.loadData("Module:languages/names")[name]
+	if code == nil then return nil end
+	return export.find_by_code(code)
 end
@@ Line 40: / Line 32: @@
 	local l = export.get_by_code(code)
 	return l[field]
+end
+function export.is_ancestor(language, code)
+	if language.lineage == nil then return false end
+	return language.lineage[code] ~= nil
+end
+function export.get_common_ancestors(a, b)
+	if a.lineage == nil or b.lineage == nil then return {} end
+	local commons = {}
+	for ancestor, _ in pairs(a.lineage) do
+		if b.lineage[ancestor] then
+			table.insert(commons, ancestor)
+		end
+	end
+	return commons
+end
+function export.stage_at_split(a, b)
+	return #export.get_common_ancestors(a, b)
+end -- returns stage at which the two languages diverged as an integer; if not related, returns 0
+function export.common_ancestor(a, b)
+	local ancestors = export.get_common_ancestors(a, b)
+	table.sort(ancestors, function(a, b)
+		local al = export.get_by_code(a).lineage or {}
+		local bl = export.get_by_code(b).lineage or {}
+		return #al > #bl
+	end
+	)
+	return ancestors[1]
 end