A modult a Modul:km/doc lapon tudod dokumentálni
local export = {}
local gsub = mw.ustring.gsub
local sub = mw.ustring.sub
local match = mw.ustring.match
local m_pron = require("Module:km-pron")
function export.new(frame)
local title = mw.title.getCurrentTitle().text
local args = frame:getParent().args
local phonSpell = args or title
local pos = args or ""
local def = args or "{{rfdef|lang=km}}"
local pos2 = args or (args and "" or false)
local def2 = args or "{{rfdef|lang=km}}"
local pos3 = args or (args and "" or false)
local def3 = args or "{{rfdef|lang=km}}"
local etym = args or false
local head = args or false
local cls = args or false
local cat = args or false
local result = ""
local function genTitle(text)
local pos_title = {
= "Noun", = "Noun", = "Proper noun", = "Proper noun", = "Pronoun",
= "Verb", = "Adjective", = "Adjective", = "Adverb",
= "Preposition", = "Postposition", = "Conjunction",
= "Particle", = "Suffix",
= "Proverb", = "Idiom", = "Phrase", = "Interjection", = "Interjection",
= "Classifier", = "Classifier", = "Numeral", = "Abbreviation", = "Determiner"
};
return pos_title or mw.ustring.upper(sub(text, 1, 1)) .. sub(text, 2, -1)
end
local function genHead(text)
local pos_head = {
= "noun", = "noun", = "proper noun", = "proper noun", = "verb", = "adj",
= "post", = "con", = "particle", = "pronoun",
= "proverb", = "idiom", = "phrase", = "interj",
= "abbr", = "cls", = "det"
};
return pos_head or text
end
local function other(class, title, args)
local code = ""
if args then
code = code .. "\n\n===" .. title .. "===\n* {{l|km|" .. args .. "}}"
i = 2
while args do
code = code .. "\n* {{l|km|" .. args .. "}}"
i = i + 1
end
end
return code
end
if args then
etym = "From {{com|km|" .. args .. "|" .. args .. (args and "|" .. args or "") .. "}}."
head = " .. "]] .. "]]"
end
result = result .. "==Khmer=="
if args then result = result .. "\n{{wikipedia|lang=km" .. (args ~= "y" and "|" .. args or "") .. "}}" end
result = result .. other("alt", "Alternative forms", args)
if etym then result = result .. "\n\n===Etymology===\n" .. etym end
result = result .. "\n\n===Pronunciation===\n{{km-IPA" .. ((phonSpell ~= title and phonSpell ~= "") and ("|" .. gsub(phonSpell, ",", "|")) or "") .. "}}"
result = result .. "\n\n===" .. genTitle(pos) .. "===\n{{km-" .. genHead(pos) .. ((cls and genHead(pos) == "noun") and "|" .. cls or "") .. (head and ("|head=" .. head) or "") .. "}}\n\n# " .. def
result = result .. other("syn", "=Synonyms=", args)
result = result .. other("ant", "=Antonyms=", args)
result = result .. other("der", "=Derived terms=", args)
result = result .. other("rel", "=Related terms=", args)
result = result .. other("also", "=See also=", args)
if pos2 then
result = result .. "\n\n===" .. genTitle(pos2) .. "===\n{{km-" .. genHead(pos2) .. ((cls and genHead(pos2) == "noun") and "|" .. cls or "") .. (head and ("|head=" .. head) or "") .. "}}\n\n# " .. def2
end
if pos3 then
result = result .. "\n\n===" .. genTitle(pos3) .. "===\n{{km-" .. genHead(pos3) .. ((cls and genHead(pos2) == "noun") and "|" .. cls or "") .. (head and ("|head=" .. head) or "") .. "}}\n\n# " .. def3
end
if cat then
result = result .. "\n\n{{C|km|" .. cat .. "}}"
end
return result
end
function export.getTranslit(lemmas, phonSpell)
local m_km_pron = require("Module:km-pron")
if not phonSpell then
phonSpell = lemmas
for lemma in mw.ustring.gmatch(lemmas, "+") do
if mw.title.new(lemma).exists then
content = mw.title.new(lemma):getContent()
template = match(content, "{{km%-IPA*}}")
if template ~= "" then
lemma = gsub(lemma, "%-", "%" .. "-")
template = match(content, "{{km%-IPA|(+)}}")
phonSpell = gsub(phonSpell, lemma, template and mw.text.split(template, "|") or lemma)
phonSpell = gsub(phonSpell, "%%%-", "-")
end
end
end
end
transcription = m_km_pron.convert(phonSpell, "tc")
if not transcription or transcription == "" then transcription = require("Module:km-translit").tr(phonSpell, "km", "Khmr") end
transcription = (transcription and transcription ~= "") and transcription or nil
return transcription
end
function export.link(frame)
local args = frame:getParent().args
local lemma = args or error("Page to be linked to has not been specified. Please pass parameter 1 to the module invocation.")
local phonSpell = args or false
local gloss = args or args or ""
local transcription = export.getTranslit(lemma, phonSpell)
return frame:expandTemplate{ title = "l", args = {"km", lemma, nil, gloss = gloss, sc = "Khmr", tr = transcription}}
end
function export.usex(frame)
local boldCode = "%'%'%'"
local args = frame:getParent().args
local pagename = mw.title.getCurrentTitle().text
local text = {}
local example = args or error("Example has not been specified. Please pass parameter 1 to the module invocation.")
local translation = args or ""
local noBold = args or false
local exSet, romSet = {}, {}
if match(example, "") then error("The example contains the zero-space width character. Please remove it.") end
boldify = example ~= pagename and true or false
if not match(example, boldCode) and boldify and not noBold and mw.ustring.len(pagename) > 1 then
pagename = gsub(pagename, "%-", mw.ustring.char(0x2011))
example = gsub(example, "%-", mw.ustring.char(0x2011))
example = gsub(example, "(.?)(" .. pagename .. ")(.?)", function(pre, captured, post)
if not match(pre .. post, "") then
for captured_part in mw.text.gsplit(captured, " ") do
captured = gsub(captured, captured_part, "'''" .. captured_part .. "'''")
end
end
return pre .. captured .. post
end)
end
example = gsub(example, mw.ustring.char(0x2011), "-")
example = gsub(example, "'''({+})", "%1'''")
example = gsub(example, "%*", pagename) -- shorthand
example = gsub(example, "ฯ ", "ฯ ")
example = gsub(example, " ", " & ")
example = gsub(example, "(+)", " %1 ")
example = gsub(example, " +", " ")
example = gsub(example, "^ ", "")
example = gsub(example, " $", "")
local syllables = mw.text.split(example, " ", true)
local count = 0
for index, khmerWord in ipairs(syllables) do
local phonSpell, content, template = "", "", ""
if khmerWord == "'''" then
count = count + 1
khmerWord = count % 2 == 1 and "<b>" or "</b>"
end
if match(khmerWord, "") then
phonSpell = khmerWord
if match(khmerWord, "") then
phonSpell = match(phonSpell, "{(+)}")
khmerWord = match(khmerWord, "^+")
else
local titleWord = khmerWord == "ๆ" and lastWord or khmerWord
if match(titleWord, "^+$") and mw.title.new(titleWord).exists then
content = mw.title.new(titleWord):getContent()
template = match(content, "{{km%-IPA*}}")
if template ~= "" then
template = match(content, "{{km%-IPA|(+)}}")
phonSpell = template and mw.text.split(template, "|") or titleWord
else
phonSpell = titleWord
end
else
phonSpell = titleWord
end
end
lastWord = khmerWord
table.insert(exSet, "]")
khmerWord = gsub(khmerWord, boldCode .. "(+)" .. boldCode, "<b>%1</b>")
local transcript = m_pron.convert(phonSpell, "tc")
if not transcript then
if mw.title.new(khmerWord).exists then
error("The word " .. khmerWord .. " was not romanised successfully. " ..
"Please try adding bolding markup to the example, " ..
"or apply |bold=n to the template. If both are still unsuccessful, " ..
"please report the problem at ].")
else
error("The word ] was not romanised successfully. " ..
"Please supply its syllabified phonetic respelling, " ..
"enclosed by {} and placed after the word (see ]).")
end
end
table.insert(romSet, transcript)
else
table.insert(exSet, khmerWord)
table.insert(romSet, m_pron.convert(khmerWord, "tc"))
end
end
example = table.concat(exSet)
example = gsub(example, " ", "")
example = gsub(example, "&", " ")
example = gsub(example, "ฯ", "ฯ ")
example = gsub(example, "()(%%])", "%1 %2")
example = gsub(example, "(%%])()", "%1 %2")
translit = table.concat(romSet, " ")
translit = gsub(translit, "^ +", "")
translit = gsub(translit, " & ", " · ")
translit = gsub(translit, "&", " ")
translit = gsub(translit, "<b> ", "<b>")
translit = gsub(translit, " </b>", "</b>")
translit = gsub(translit, " :", ":")
translit = gsub(translit, "%( ", "(")
translit = gsub(translit, " %)", ")")
translit = gsub(translit, " ()", "%1")
while match(translit, "") do
translit = gsub(translit, "'", "‘", 1)
translit = gsub(translit, "'", "’", 1)
translit = gsub(translit, '"', "“", 1)
translit = gsub(translit, '"', "”", 1)
end
translit = gsub(translit, "() ", "%1")
translit = gsub(translit, " ()", "%1")
translit = gsub(translit, "(%a)%- ", "%1-")
if translation == "" then
table.insert(text, '<span lang="km" class="Khmr">' .. example .. '</span> (<i>' .. translit .. '</i>)</span>')
else
table.insert(text, ('<span lang="km" class="Khmr">%s</span>'):format(example))
if match(example, "") or mw.ustring.len(example) > 50 then
table.insert(text, "<dl><dd>''" .. translit .. "''</dd><dd>" .. translation .. "</dd></dl>")
else
table.insert(text, " ― ''" .. translit .. "'' ― " .. translation)
end
end
return table.concat(text)
end
return export