Module:pollasena-roots

The following documentation is located at Module:pollasena-roots/doc.^[edit]

Useful links: subpage list • links • transclusions • testcases • sandbox

This module implemented inherited templates for Pollasena languages: {{qsc-inh}}, {{gwax-wasc}}. It was generalized to also include other non-Pollasena languages: {{guim-inh}}.

---

local m_iut = require("Module:inflection utilities")
local m_table = require("Module:table")

local gsub = mw.ustring.gsub
local PAGENAME = gsub(mw.title.getCurrentTitle().text, "%s", " ")
local match = mw.ustring.match
local gmatch = mw.ustring.gmatch

local lang = require("Module:languages").getByCode("socl")

local export = {}

local function ncategories(categories)
	local out_categories = {}
	for key, cat in ipairs(categories) do
		out_categories[key] = "[[Category:" .. cat .. "]]"
	end

	return table.concat(out_categories, "")
end

local function link(term,alt)
	return "[[Contionary:" .. term .. "|" .. (alt or term) .. "]]"	
end

function export.getLink(frame)
	local a = 2
	local params = {
		[1] = {},
		[a] = {list = true}, -- Wascotl
	}
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	local param_mods = {"alt", "cat"}
	local param_mod_set = m_table.listToSet(param_mods)
	local links = {}; local categories = {}
	-- WIP
	for i, item in ipairs(args[a]) do
		if item:find("<") and not item:find("^[^<]*<[a-z]*[^a-z:]") then
			local run = m_iut.parse_balanced_segment_run(item, "<", ">")
			local orig_param = i + 1
			local function parse_err(msg)
				error(msg .. ": " .. orig_param .. "= " .. table.concat(run))
			end
			local termobj = {term = {}}
			termobj.term.lang = lang
			termobj.term.term = run[1]

			for j = 2, #run - 1, 2 do
				if run[j + 1] ~= "" then
					parse_err("Extraneous text '" .. run[j + 1] .. "' after modifier")
				end
				local modtext = run[j]:match("^<(.*)>$")
				if not modtext then
					parse_err("Internal error: Modifier '" .. modtext .. "' isn't surrounded by angle brackets")
				end
				local prefix, arg = modtext:match("^([a-z]+):(.*)$")
				if not prefix then
					parse_err("Modifier " .. run[j] .. " lacks a prefix, should begin with one of '" ..
						table.concat(param_mods, ":', '") .. ":'")
				end
				if param_mod_set[prefix] then
					local obj = termobj.term
					if obj[prefix] then
						parse_err("Modifier '" .. prefix .. "' occurs twice, second occurrence " .. run[j])
					end
					
					table.insert(links, link("*" .. obj.term, "*" .. obj["alt"]))
					table.insert(categories, "Soc'ul' terms inherited from Wascotl *" .. (obj["cat"] or obj.term))
				else
					parse_err("Unrecognized prefix '" .. prefix .. "' in modifier " .. run[j])
				end
			end
			args[a][i] = termobj
		end
	end
	
	return table.concat(links) .. ncategories(categories)
end


return export