45,640
edits
Module:anui-headword: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
| (52 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
local match = mw.ustring.match | |||
local u = mw.ustring.char | |||
local gsub = mw.ustring.gsub | |||
local sub = mw.ustring.sub | |||
local TILDEB = u(0x0330) -- COMBINING TILDE BELOW ̰◌ | |||
local export = {} | local export = {} | ||
local lang = require("Module:languages").getByCode("art-nui") | local lang = require("Module:languages").getByCode("art-nui") | ||
local | local deabb = {["adj"] = "adjectives", ["v"] = "verbs", ["adv"] = "adverbs",} | ||
local function glossary_link(entry, text) | local function glossary_link(entry, text) | ||
text = text or entry | text = text or entry | ||
return "[[ | return "[[wikt:Appendix:Glossary#" .. entry .. "|" .. text .. "]]" | ||
end | |||
local consonant = "[ǃǂǁʘʼʇxqrʛɴɬšṣschjklmptŋṉṭṯ]" | |||
local vowel = "[aeiouàèìòùãĩõũḛḭṵ" .. TILDEB .. "v@]" | |||
local function m(word) | |||
word = word:gsub("mʼm", "v") | |||
word = word:gsub("(" .. vowel .. ")m", "%1ũ") | |||
word = word:gsub("(" .. vowel .. "*)@(" .. vowel .. "*)", "%1@%2") | |||
return word | |||
end | end | ||
local function redup(word) | local function redup(word) | ||
word = m(word) | |||
-- CV > C₁(v)C₂V | |||
local C = match(word, "^" .. vowel .. "?(" .. consonant .. "*)") | |||
local V = mw.ustring.toNFD(match(word, consonant .. "*(" .. vowel .. "*)")) | |||
V = V:gsub("ḛ", "e"); V = V:gsub("ḭ", "i"); V = V:gsub("ṵ", "u"); V = V:gsub("v", "u") | |||
local r2 = match(word, C .. "(.*)") | |||
local v = sub(V, 1, 1) | |||
local ejective = C == "tɬʼ" or match(C, "^[ṭcq]ʼ$") ~= nil | |||
local fricative = match(C, "[sšṣɬ][ʇǃǂǁʘ]") ~= nil | |||
local nasal = match(C, "ɴ") ~= nil | |||
local glottal = match(C, "[ʇǃǂǁʘṭcɬq]ʼ") ~= nil | |||
local uvular = match(C, "x") ~= nil | |||
if ejective then word = C .. C .. r2 | |||
elseif (nasal or fricative) or glottal then word = C .. (glottal and "" or v) .. gsub(C, "[sšṣɬ]([ʇǃǂǁʘ])", "%1") .. r2 | |||
elseif uvular then word = gsub(C, "([ʇǃǂǁʘ])x", "%1") .. v .. C .. r2 | |||
else word = C .. v .. C .. r2 end | |||
word = word: gsub("v", "mʼm"); word = word:gsub("ũ", "m"); word = word:gsub("@", "ʼ") | |||
return | return word | ||
end | end | ||
function export.show() | function export.show(frame) | ||
local args = frame:getParent().args | local args = frame:getParent().args | ||
local word = mw.title.getCurrentTitle().text | local word = args["w"] or mw.title.getCurrentTitle().text | ||
local pos = args[1]; local f = args[2] | |||
local data = {lang = lang, pos_category = deabb[pos], heads = {word}, categories = {}, inflections = {},} | |||
if | if f == '-' then | ||
table.insert(data.inflections, {label = "not " .. glossary_link("comparable")}) | if pos == "adj" then | ||
table.insert(data.categories, lang:getCanonicalName() .. " | table.insert(data.inflections, {label = "not " .. glossary_link("comparable")}) | ||
table.insert(data.categories, lang:getCanonicalName() .. " uncomparable " .. deabb[pos]) | |||
end | |||
elseif pos ~= "v" then | |||
table.insert(data.inflections, {label = glossary_link("comparative"), redup(word)}) | |||
if pos == "adv" then table.insert(data.categories, lang:getCanonicalName() .. " comparative " .. deabb[pos]) end | |||
else | else | ||
table.insert(data.inflections, {label = | table.insert(data.inflections, {label = "[[w:applicative voice|applicative]]", redup(word)}) | ||
end | end | ||