Jump to content

Module:tr-headword

From Wiktionary, the free dictionary


local export = {}

local function track(page)
	require("Module:debug").track("tr-headword/" .. page)
	return true
end

function export.adjectives(frame)
	local params = {
		head = {},
		[1] = {}, -- hyphen (-)
		["int"] = {}, -- intensive form
	}
	local args = require("Module:parameters").process(frame:getParent().args, params)
	
	local lang = require("Module:languages").getByCode("tr")
	local poscat = "adjectives"
	local positive_form = args.head or mw.title.getCurrentTitle().text
	local data = {
		lang = lang,
		pos_category = poscat,
		categories = {},
		heads = {positive_form},
		no_redundant_head_cat = not args.head,
		inflections = {}
	}
	
	if args[1] == "-" then
		track("adj is not comparable")
		table.insert(data.inflections, { label = "not comparable" })
	end

	if args["int"] then
		track("adj has an intensive form")
		table.insert(data.inflections, { label = "intensive", args["int"] .. positive_form })
	end
	
	return require("Module:headword").full_headword(data)
end

return export