Modul:fi-headword

A modult a Modul:fi-headword/doc lapon tudod dokumentálni

local export = {}
local lang = require("Module:languages").getByCode("fi")
local m_utilities = require("Module:utilities")

export.adj = function(frame)
	local title = mw.title.getCurrentTitle().text
	local args = frame:getParent().args
	local data = {lang = lang, pos_category = "adjectives"}
	local categories = {}
	
	if args["head"] then
		data.head = {args["head"]}
	end
	
	if not args[1] then
		table.insert(categories, "fi-adj with no 1 or 2")
	elseif args[1] == "-" then
		data.inflections = {{ label = "not comparable" }}
		table.insert(categories, "Finnish uncomparable adjectives")
	elseif not args[2] then
		table.insert(categories, "fi-adj with no 1 or 2")
	else
		local stem = args[1]
		local comp = {{term = stem .. args[2], accel = {form = "comparative"}}}
		local sup = {}
		
		for i = 3, 10 do
			if not args[i] then break end
			table.insert(sup, {term = stem .. args[i], accel = {form = "superlative"}})
		end
		
		if args["c2"] then
			table.insert(comp, {term = args["c2"], accel = {form = "comparative"}})
		elseif args["comp2"] then
			table.insert(comp, {term = args["comp2"], accel = {form = "comparative"}})
		end
		
		data.inflections = {{label = "comparative", unpack(comp)}, {label = "superlative", unpack(sup)}}
	end
	
	data.categories = categories
	return require("Module:headword").full_headword(data)
end

return export