モジュール:ine-common
ナビゲーションに移動
検索に移動
このモジュールについての説明文ページを モジュール:ine-common/doc に作成できます
local export = {}
function export.lengthen(text)
text = mw.ustring.gsub(text, "a", "ā")
text = mw.ustring.gsub(text, "e", "ē")
text = mw.ustring.gsub(text, "i", "ī")
text = mw.ustring.gsub(text, "o", "ō")
text = mw.ustring.gsub(text, "u", "ū")
text = mw.ustring.gsub(text, "á", "ā́")
text = mw.ustring.gsub(text, "é", "ḗ")
text = mw.ustring.gsub(text, "í", "ī́")
text = mw.ustring.gsub(text, "ó", "ṓ")
text = mw.ustring.gsub(text, "ú", "ū́")
return text
end
function export.destress(text)
text = mw.ustring.gsub(text, "á", "a")
text = mw.ustring.gsub(text, "é", "e")
text = mw.ustring.gsub(text, "í", "i")
text = mw.ustring.gsub(text, "ó", "o")
text = mw.ustring.gsub(text, "ú", "u")
text = mw.ustring.gsub(text, "ḗ", "ē")
text = mw.ustring.gsub(text, "ṓ", "ō")
text = mw.ustring.gsub(text, "́", "")
return text
end
function export.laryngeal_color(text)
-- Not sure what the precedence is here. Does e.g. h₃eh₂ color to o or a?
text = mw.ustring.gsub(text, "h₂e", "h₂a")
text = mw.ustring.gsub(text, "eh₂", "ah₂")
text = mw.ustring.gsub(text, "h₃e", "h₃o")
text = mw.ustring.gsub(text, "eh₃", "oh₃")
text = mw.ustring.gsub(text, "h₂é", "h₂á")
text = mw.ustring.gsub(text, "éh₂", "áh₂")
text = mw.ustring.gsub(text, "h₃é", "h₃ó")
text = mw.ustring.gsub(text, "éh₃", "óh₃")
return text
end
local function syllabify(text)
text = mw.ustring.gsub(text, "w", "u")
text = mw.ustring.gsub(text, "y", "i")
text = mw.ustring.gsub(text, "([lrmn])", "%1̥")
return text
end
local function desyllabify(text)
text = mw.ustring.gsub(text, "u", "w")
text = mw.ustring.gsub(text, "i", "y")
text = mw.ustring.gsub(text, "̥", "")
return text
end
function export.add_ending(stem, ending, ending_unstr, do_szemerenyi)
-- Destress the ending if necessary
if mw.ustring.find(stem, "[´áéíĺḿńóŕúḗṓ́]") then
if ending_unstr then
ending = ending_unstr
else
ending = export.destress(ending)
end
end
-- Desyllabify sonorants next to vowels
if (mw.ustring.find(ending, "^[aeiouāēīōūáéíóúḗṓ]") or mw.ustring.find(ending, "^[lrmn]̥")) and mw.ustring.find(stem, "[lmnrwyiu̥]$") then
local rest, sonorants = mw.ustring.match(stem, "^(.-)([lmnrwyiu̥]+)$")
sonorants = desyllabify(sonorants)
sonorants = mw.text.split(sonorants, "", true)
for i = #sonorants - 1, 1, -2 do
sonorants[i] = syllabify(sonorants[i])
end
if mw.ustring.find(rest, "[aeiouāēīōūáéíóúḗṓ́]$") then
sonorants[1] = desyllabify(sonorants[1])
end
stem = rest .. table.concat(sonorants)
end
if mw.ustring.find(stem, "[aeiouāēīōūáéíóúḗṓ́]$") then
ending = mw.ustring.gsub(ending, "^([lrmn])̥", "%1")
ending = mw.ustring.gsub(ending, "^i", "y")
ending = mw.ustring.gsub(ending, "^u", "w")
end
local word = stem .. ending
-- Delabialization
word = mw.ustring.gsub(word, "ʷ([uw])", "%1")
word = mw.ustring.gsub(word, "([uw][gk])ʷ", "%1")
-- Stang's law
word = mw.ustring.gsub(word, "[aeoáéó][mwy]m̥$", export.lengthen)
word = mw.ustring.gsub(word, "([āēōḗṓ́])[mwy]m̥$", "%1m")
word = mw.ustring.gsub(word, "[eé]h₂m̥$", export.laryngeal_color)
word = mw.ustring.gsub(word, "[aeoáéó]h₂m̥$", export.lengthen)
word = mw.ustring.gsub(word, "([āēōḗṓ́])h₂m̥$", "%1m")
word = mw.ustring.gsub(word, "([aeiouāēīōūáéíóúḗṓ́]y)i$", export.lengthen)
-- Szemerényi's law
word = mw.ustring.gsub(word, "([oó])nh₂$", export.lengthen)
word = mw.ustring.gsub(word, "([aeiouāēīōūáéíóúḗṓ́][lmnrs])h₂$", export.lengthen)
word = mw.ustring.gsub(word, "([aeiouāēīōūáéíóúḗṓ́]r)d$", export.lengthen)
if do_szemerenyi then
word = mw.ustring.gsub(word, "([oó])ns$", export.lengthen)
word = mw.ustring.gsub(word, "([aeiouāēīōūáéíóúḗṓ́][lmnrs])s$", export.lengthen)
end
-- Laryngeal deletion
word = mw.ustring.gsub(word, "([oōóṓ][lmnrwy])h[₁₂₃]([ptkḱbdgǵshHwy])", "%1%2")
word = mw.ustring.gsub(word, "([oōóṓ][lmnrwy])H([ptkḱbdgǵshHwy])", "%1%2")
word = mw.ustring.gsub(word, "([oōóṓ][lmnrwy])h[₁₂₃]([lmnr][^̥])", "%1%2")
word = mw.ustring.gsub(word, "([oōóṓ][lmnrwy])H([lmnr][^̥])", "%1%2")
-- Degemination
word = mw.ustring.gsub(word, "ss", "s")
word = mw.ustring.gsub(word, "iy([^aeiouāēīōūáéíóúḗṓ])", "ī%1")
word = mw.ustring.gsub(word, "íy([^aeiouāēīōūáéíóúḗṓ])", "ī́%1")
word = mw.ustring.gsub(word, "uw([^aeiouāēīōūáéíóúḗṓ])", "ū%1")
word = mw.ustring.gsub(word, "úw([^aeiouāēīōūáéíóúḗṓ])", "ū́%1")
return word
end
return export