Module:mg-pron: Difference between revisions

no edit summary
No edit summary
No edit summary
 
(20 intermediate revisions by the same user not shown)
Line 8: Line 8:
local gsplit = mw.text.gsplit
local gsplit = mw.text.gsplit


local NASAL = u(0x0303) -- COMBINING TILDE, ̃
local N = u(0x0303) -- COMBINING TILDE, ̃
local NONSYLL = u(0x032F) -- COMBINING INVERTED BREVE BELOW, ̯
local NONSYLL = u(0x032F) -- COMBINING INVERTED BREVE BELOW, ̯
local ADV = u(0x031F) -- COMBINING PLUS SIGN BELOW, ̟
local ADV = u(0x031F) -- COMBINING PLUS SIGN BELOW, ̟
Line 16: Line 16:


local velar = "[kɡɣɫw]"; local palatal = "[ɲʧʃʎ]"
local velar = "[kɡɣɫw]"; local palatal = "[ɲʧʃʎ]"
local consonants = "[bkdhjlmnɲprɾstʃθβðɡɣzʧɫʎ]"
local consonants = "[bkdhjlmnɲprɾstʃθβðɡɣzʧɫʎɓ]"
local vowels = "[áéíóúaɑɐeɪɛiɔʊouwJ" .. ADV .. RET .. CEN .. ACUTE .. "]"
local vowels = "[áéíóúaɑɐeɪɛiɔʊouwJąĄ" .. ADV .. RET .. CEN .. ACUTE .. "]"
local voiced = "[bdhʎjmnɲβðɡɣz]"
local voiced = "[bdhʎjmnɲβðɡɣzɓ]"


local function same(foo, bar)
local function same(foo, bar)
Line 31: Line 31:
str = mw.ustring.toNFC(str)
str = mw.ustring.toNFC(str)
return (with_stress and "ˈ" or "") .. str
return str == "Ą" and "ą" or (with_stress and "ˈ" or "") .. str
end
end


Line 39: Line 39:


local prelims = {
local prelims = {
{"r", "ɾ"}, {"ch", "ʧ"}, {"qu", "k"}, {"il", "ʎ"}, {"ñ", "ɲ"}, {"c", "k"}, {"an$", "ɐn"},
{"r", "ɾ"}, {"ch", "ʧ"}, {"qu", "k"}, {"il", "ʎ"}, {"ñ", "ɲ"}, {"c", "k"}, --{"an$", "ɐn"},
{"[bv]", "β"}, {"gu?", "ɣ"}, {"d", "ð"}, {"ʎ$", "il"},
{"[bv]", "β"}, {"gu?", "ɣ"}, {"d", "ð"}, {"ʎ$", "il"}, {"an$", "ą"}, {"án$", "Ą"},
{"z", "θ"}, {"x", "ʃ"}, {"(" .. vowels .. ")i(" .. vowels .. ")", "%1j%2"},
{"z", "θ"}, {"x", "ʃ"}, {"(" .. vowels .. ")i(" .. vowels .. ")", "%1j%2"}, {"ṡ", "z"},
{"(" .. vowels .. ")u", "%1w"}, {"u(" .. vowels .. ")", "w%1"}, {"(" .. vowels .. ")i", "%1J"}, {"i(" .. vowels .. ")", "J%1"},  
{"(" .. vowels .. ")u", "%1w"}, {"u(" .. vowels .. ")", "w%1"}, {"(" .. vowels .. ")i", "%1J"}, {"i(" .. vowels .. ")", "J%1"},  
}
}
Line 61: Line 61:
syll[1] = (monosyll[pos] or "(ˈ)") .. syll[1]
syll[1] = (monosyll[pos] or "(ˈ)") .. syll[1]
else
else
if match(term, "[áéíóú]") then
if match(term, "[áéíóúĄ]") then
for _, s in ipairs(syll) do
for _, s in ipairs(syll) do
s = remove_acute(s, match(s, "[áéíóú]") and true or false)
s = remove_acute(s, match(s, "[áéíóúĄ]") and true or false)
table.insert(noa, s)
table.insert(noa, s)
end
end
Line 75: Line 75:


local rules = {
local rules = {
{"([ɾs])·([ɾs])", function(s1, s2) return same(s1, s2) and "·ʰ" .. s1 or s1 .. s2 end}, -- rr and ss clusters, preaspirated
-- rr and ss clusters, preaspirated
{".$", {["a"] = "ɐ", ["e"] = "ɪ", ["o"] = "ʊ", ["n"] = NASAL}},
{"([ɾs])·(ˈ?)([ɾs])", function(s1, st, s2) return same(s1, s2) and "·" .. st .. "ʰ" .. s1 or s1 .. st .. s2 end},
{".$", {["a"] = "ɐ", ["e"] = "ɪ", ["o"] = "ʊ", ["n"] = N}},
{"l·", "ɫ·"}, {"l$", "ɫ"}, -- velarized [l]
{"l·", "ɫ·"}, {"l$", "ɫ"}, -- velarized [l]
{"a(" .. velar .. ")", "ɑ" .. ADV .. "%1"}, {"(" .. velar .. ")a", "%1ɑ" .. ADV}, -- [a] retracts next to velar consonants
{"a(" .. velar .. ")", "ɑ" .. ADV .. "%1"}, {"(" .. velar .. ")a", "%1ɑ" .. ADV}, -- [a] retracts next to velar consonants
{"a(" .. palatal .. ")", "a" .. RET .. "%1"}, {"(" .. palatal .. "a)", "%1" .. RET}, -- and advances next to palatal
{"a(" .. palatal .. ")", "a" .. RET .. "%1"}, {"(" .. palatal .. "a)", "%1" .. RET}, -- and advances next to palatal
{"s·(" .. voiced .. ")", "z·%1"}, {"(" .. vowels .. ")·s(" .. vowels .. ")", "%1·z%2"}, -- [s]-voicing
{"s·(" .. voiced .. ")", "z·%1"}, {"(" .. vowels .. ")·s(" .. vowels .. ")", "%1·z%2"}, {"%ss", "‿z"}, -- [s]-voicing
{"[Jj]m$", "y" .. NASAL}, {"m$", "u" .. NASAL}, {"n·", "ⁿ·"}, -- [m] and [n] behave as nasalizers in codas and word-finally
{"[Jj]m$", "y" .. N}, {"m$", "u" .. N}, {"n·", N .. "·"}, -- [m] and [n] behave as nasalizers in codas and word-finally
{"e(" .. consonants .. ")·(" .. consonants .. ")", "ɛ%1·%2"}, {"o(" .. consonants .. ")·(" .. consonants .. ")", "ɔ%1·%2"},  
{"e(" .. N .. "?)·(" .. consonants .. ")", "ɛ%1·%2"}, {"o(" .. N .. "?)·(" .. consonants .. ")", "ɔ%1·%2"},
{"e(" .. consonants .. ")?·(" .. consonants .. "[aɐɑ])", "ɛ%1·%2"}, {"o(" .. consonants .. ")?·(" .. consonants .. "[aɐɑ])", "ɔ%1·%2"},
{"e(" .. consonants .. ")·(" .. consonants .. ")", "ɛ%1·%2"}, {"o(" .. consonants .. ")·(" .. consonants .. ")", "ɔ%1·%2"},
{"e(" .. N .. "?)?·(" .. consonants .. "[aɐɑąĄ])", "ɛ%1·%2"}, {"o(" .. N .. "?)?·(" .. consonants .. "[aɐɑąĄ])", "ɔ%1·%2"},
{"e(" .. N .. "?"  .. consonants .. ")?·(" .. consonants .. "[aɐɑąĄ])", "ɛ%1·%2"}, {"o(" .. N .. "?"  .. consonants .. ")?·(" .. consonants .. "[aɐɑąĄ])", "ɔ%1·%2"},
{"(" .. vowels .. "i)", "%1" .. NONSYLL}, {"w", "u" .. NONSYLL}, {"J", "i" .. NONSYLL},  
{"(" .. vowels .. "i)", "%1" .. NONSYLL}, {"w", "u" .. NONSYLL}, {"J", "i" .. NONSYLL},  
Line 94: Line 97:
--{"a([^" .. RET .. "])", "a" .. CEN .. "%1"},
--{"a([^" .. RET .. "])", "a" .. CEN .. "%1"},
--{"([ɑa][" .. CEN .. RET .. ADV .. "])(ː?)" .. NASAL, "%1" .. NASAL .. "%2"}, {"a" .. CEN .. NASAL, "a" .. RET .. NASAL},
--{"([ɑa][" .. CEN .. RET .. ADV .. "])(ː?)" .. N, "%1" .. N .. "%2"}, {"a" .. CEN .. N, "a" .. RET .. N},
{"i" .. NONSYLL, "j"}, {"u" .. NONSYLL, "w"},  
}
}


Line 117: Line 122:
term = gsub(term, "ːⁿ", "ⁿː")
term = gsub(term, "ːⁿ", "ⁿː")
term = gsub(term, "a([^" .. CEN .. ADV .. RET .. "])", "a" .. CEN .. "%1")
term = gsub(term, "a([^" .. CEN .. ADV .. RET .. "])", "a" .. CEN .. "%1")
term = gsub(term, "äː̃", "a" .. CEN .. NASAL .. "ː")
term = gsub(term, "ą", "a" .. CEN .. N); term = gsub(term, "Ą", "a" .. CEN .. N .. "ː")
term = gsub(term, "ɓ", "β") -- soft mutation
return term
return term