มอดูล:km-headword
หน้าตา
- This มอดูล lacks a documentation subpage. Please create it.
- Useful links: subpage list • links • transclusions • testcases • sandbox
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:Khmr-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 poscat_th = require("Module:utilities").translate_term(poscat)
local data = {lang = lang, sc = script, pos_category = poscat_th, categories = {}, heads = {args["head"]}, 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_th] then
pos_functions[poscat_th](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, 'ชื่อไม่รองรับ')
if not code then
phon = args["phon"] or args["mono"] or ""
if phon ~= "" then
data.translits = { translit.tr(phon) }
end
if not false_positive then
table.insert(data.categories, "ศัพท์ภาษาเขมรที่ไม่มี km-IPA")
end
else
phon = args["phon"] or args["mono"] or mw.ustring.match(code, '|([^|}]+)') or PAGENAME -- detects only first one
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 = "คำลักษณนาม", accel = "classifier-of"}
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, "คำนามภาษาเขมรที่ใช้คำลักษณนาม " .. PAGENAME)
else
table.insert(classifiers, par)
table.insert(data.categories, "คำนามภาษาเขมรที่ใช้คำลักษณนาม " .. 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 = "abstract-noun-form-of"}
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 = "abstract-noun-form-of"}
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