Module:rad-stem/templates

Underlies:

• {{rad-conj}}
• {{rad-comp}}
• {{rad-decl}}
• {{rad-enclisis}}

---

local export = {}
local getArgs = require('Module:Arguments').getArgs

local m_stem = require("Module:rad-stem")
local m_links = require("Module:links")
local m_parameters = require("Module:parameters")

function get_stems(args)
	local shifted = {"noun", "_"}
	
	local i = 1
	while args[i] do
		shifted[i+2] = args[i]
		i = i + 1
	end
	
	return m_stem.getNounStem(shifted)
end

function break_adj(adj)
	local C = "bcdðfghħjĵkķlmnņpqrsștvwxzþ°"
	local temp = adj

	temp = mw.ustring.gsub(temp, "([" .. C .. "])([" .. C .. "])íș$", "%1%2ieș")
	temp = mw.ustring.gsub(temp, "(°)", "")
	temp = mw..gsub(temp, "(íș)$", "jeș")
	temp = mw..gsub(temp, "(úș)$", "uoș")
	temp = mw..gsub(temp, "(ýș)$", "yeș")

	return temp
end

function export.sg_pl(frame)
	local args = getArgs(frame)
	local stems = get_stems(args)
	local adj = args['adj']
	local adj_broken = break_adj(adj)
	
	return adj
end

return export

--[[
Debug console test string:
=p.sg_pl(mw.getCurrentFrame():newChild{title="whatever",args={"hv", "o~u^u", "þ"}})
]]--