Module:pollasena-roots: Difference between revisions

← Older edit

Module:pollasena-roots (view source)

Revision as of 10:26, 8 August 2024

1,469 bytes added , 8 August

no edit summary

Sware

Bureaucrats, Administrators

45,647

edits

@@ Line 1: / Line 1: @@
 local m_put = require("Module:parse utilities")
-local m_table = require("Module:table")
+local m_families = require("Module:families")
 local gsub = mw.ustring.gsub
 local PAGENAME = gsub(mw.title.getCurrentTitle().text, "%s", "&nbsp;")
+local NAMESPACE = mw.title.getCurrentTitle().nsText
 local match = mw.ustring.match
 local gmatch = mw.ustring.gmatch
-local lang = require("Module:languages").getByCode("socl")
 local export = {}
@@ Line 17: / Line 16: @@
 	end
-	return table.concat(out_categories, "")
+	return NAMESPACE == "Template" and "" or table.concat(out_categories, "")
 end
-local function link(term,alt)
+local function link(lang, term, alt)
-	return "[[Contionary:*" .. term .. "|*" .. (alt or term) .. "]]"
+	local natlang = lang:getWikidataItem() or false
+	-- true if the language declaration has a wikidata item, a marginal amount of conlangs have it
+	term = (lang:hasType("reconstruced") and "*" or "") .. term
+	local data = {term = term, alt = alt, lang = lang, nocont = natlang}
+	return require('Module:links').full_link(data)
 end
 function export.getLink(frame)
-	local a = 2
+	local params = {}
-	local params = {
+	local a = 0
-		[1] = {},
-		[a] = {list = true}, -- Wascotl
+	if frame.args["older"] then
-	}
+		params[1] = {}
+		params[2] = {list = true}
+		a = 2
+	else
+		params[1] = {list = true}
+		a = 1
+	end
 	local args = require("Module:parameters").process(frame:getParent().args, params)
-	local param_mods = {"a", "c"}
-	local param_mod_set = m_table.listToSet(param_mods)
+	local fam, lang = m_families.getByCode(frame.args[1]), require("Module:languages").getByCode(frame.args[2])
-	local links = {}; local categories = {}
+	local proto = fam:getProtoLanguage()
-	local term = ""
+	local links = {}; local categories = {}; local alts = {};
 	-- WIP
 	for i, item in ipairs(args[a]) do
-		if item == " " or item == "-" then
+		if item == "+" then
+			table.insert(links,"&nbsp;")
+		elseif item == "-" then
 			table.insert(links, item)
 		elseif item:find("<") and not item:find("^[^<]*<[a-z]*[^a-z:]") then
@@ Line 46: / Line 59: @@
 				error(msg .. ": " .. orig_param .. "= " .. table.concat(run))
 			end
-			term = run[1]
+			local term = run[1]:gsub("%*","")
 			for j = 2, #run - 1, 2 do
@@ Line 52: / Line 65: @@
 				local prefix, arg = modtext:match("^([a-z]+):(.*)$")
-				alt = prefix == "a" and table.insert(links, link(term, arg)) or nil
+				if item:match("><") then
-				cat = prefix == "c" and table.insert(categories, "Soc'ul' terms from Wascotl *" .. arg) or nil
+					if prefix == "a" then
+						table.insert(links, link(proto, term, arg))
+						table.insert(alts, arg)
+					elseif prefix == "c" then
+						table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. arg)
+						table.insert(alts, term)
+					end
+				elseif prefix == "a" then
+					table.insert(links, link(proto, term, arg))
+					table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. term)
+					table.insert(alts, arg)
+				elseif prefix == "c" then
+					table.insert(links, link(proto, term))
+					table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. arg)
+					table.insert(alts, term)
+				end
 			end
 		else
-			table.insert(links, link(term))
+			table.insert(links, link(proto, args[a][i]))
-			table.insert(categories, "Soc'ul' terms from Wascotl *" .. term)
+			table.insert(categories, lang:getCanonicalName() .. " terms from " .. proto:getCanonicalName() .. " *" .. args[a][i])
+			table.insert(alts, args[a][i])
 		end
+		if i~=1 and links[i-1] == "-" then links[i] = links[i]:gsub("%|%*","|") end
+		if i~=1 and links[i-1] ~= "&nbsp;" then links[i] = links[i]:gsub("%|%*%-","|-") end
+		--if i~=1 and alts[i-1]:match("%-$") then links[i] = links[i]:gsub("%|%*","|") end
 	end