模組:Km-headword

---

此模块缺少說明文檔。請協助創建。

相關連結：子頁面列表 • 链入 • 嵌入包含 • 測試用例 • 沙盒

local export = {}
local pos_functions = {}

local lang = require("Module:languages").getByCode("km")
local script = require('Module:scripts').getByCode("Khmr")
local PAGENAME = mw.title.getCurrentTitle().text
local pron = require("Module:km-pron")
local translit = require("Module:km-translit")

function export.show(frame)

	local args = frame:getParent().args
	local poscat = frame.args[1] or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
	
	local data = {lang = lang, sc = script, pos_category = poscat, categories = {}, heads = {args["head"] or PAGENAME}, inflections = {}}
	
	if args["cat2"] then
		table.insert(data.categories, "高棉語" .. args["cat2"])
	end
	if args["cat3"] then
		table.insert(data.categories, "高棉語" .. args["cat3"])
	end
	
	if pos_functions[poscat] then
		pos_functions[poscat](args, data)
	end
	
	local phon
	local content = mw.title.new(PAGENAME):getContent()
	local code = mw.ustring.match(content, '{{km%-IPA[^}]*}}')
	local false_positive = mw.ustring.match(content, 'obsolete spelling of') or mw.ustring.match(content, 'obsolete form of') or mw.ustring.match(content, 'alternative spelling of') or mw.ustring.match(content, 'archaic spelling of') or mw.ustring.match(PAGENAME, 'Unsupported')

	if not code then
		phon = args["phon"] or args["mono"] or ""
		if phon ~= "" then
			data.translits = {pron.convert(phon, "tc")}
		elseif args["tr"] then
			data.translits = { args["tr"] }
		else
			data.translits = { translit.tr(PAGENAME) }
		end
		if not false_positive then
	--		table.insert(data.categories, "Khmer terms without km-IPA template")
		end
	else
		phon = args["phon"] or args["mono"] or mw.ustring.match(code, '|([^|}]+)') or PAGENAME -- detects only first one
		data.translits = {pron.convert(phon, "tc")}
	end
	
	local letter = true
	local specialLetter = mw.ustring.gmatch(PAGENAME, '.-([ឋឌឍឝឞឡឥ-ឳៗ៉៊៌៍៏័]).-')
	while true do
		letter = specialLetter()
		if (not letter) then break end
		if letter == "៉" or letter == "៊" or letter == "៌" or letter == "៍" or letter == "៏" or letter == "័" then
			table.insert(data.categories, "帶「◌" .. letter .."」的高棉語詞") -- add dotted circle for above/below marks
		else
			table.insert(data.categories, "帶「" .. letter .. "」的高棉語詞")
		end
	end
	
	return require("Module:headword").full_headword(data)

end

pos_functions["名詞"] = function(args, data)

	local classifiers = {label = "量詞"}

	if args[1] then
		for _,par in ipairs(args) do
			if par == "*" then
				table.insert(classifiers, PAGENAME) -- shorthand
				table.insert(data.categories, "高棉語量詞")
				table.insert(data.categories, "Khmer nouns classified by " .. PAGENAME)
			else
				table.insert(classifiers, par)
				table.insert(data.categories, "Khmer nouns classified by " .. par)
			end
		end
		table.insert(data.inflections, classifiers)
	end

end

pos_functions["動詞"] = function(args, data)

	local par1 = args[1]; if par1 == "" then par1 = nil end
	local par2 = args[2]; if par2 == "" then par2 = nil end
	local par3 = args[3]; if par3 == "" then par3 = nil end
	local abstract_forms = {label = "抽象名詞", accel = {pos = "noun", form = "abstract-noun"}}

	if par1 ~= "-" then
		if not par1 then
			table.insert(abstract_forms, "ការ" .. PAGENAME)
		else
			table.insert(abstract_forms, par1)
			table.insert(abstract_forms, par2)
			table.insert(abstract_forms, par3)
		end
		table.insert(data.inflections, abstract_forms)
	end

end

pos_functions["形容詞"] = function(args, data)

	local par1 = args[1]; if par1 == "" then par1 = nil end
	local par2 = args[2]; if par2 == "" then par2 = nil end
	local par3 = args[3]; if par3 == "" then par3 = nil end
	local abstract_forms = {label = "抽象名詞", accel = {pos = "noun", form = "abstract-noun"}}

	if par1 ~= "-" then
		if not par1 then
			table.insert(abstract_forms, "ភាព" .. PAGENAME)
		else
			table.insert(abstract_forms, par1)
			table.insert(abstract_forms, par2)
			table.insert(abstract_forms, par3)
		end
		table.insert(data.inflections, abstract_forms)
	end

end

return export