Wikipedia

Module:IPAc2-mh: Difference between revisions

Browse history interactively
← Previous editNext edit →
Content deleted Content added
No edit summary
No edit summary
Line 10:
 
local math_max = math.max
local math_min = math.min
local mw_text_gsplit = mw.text.gsplit
local mw_text_split = mw.text.split
Line 513 ⟶ 514:
 
local IS_VOWEL = FRONT_VOWEL
 
local VOWEL_REFLEX
if true then
-- [f1]
local aEei = { "a", "E", "e", "i" }
local AEei = { "A", "E", "e", "i" }
local AV7i = { "A", "V", "7", "i" }
local AV7M = { "A", "V", "7", "M" }
local AV7u = { "A", "V", "7", "u" }
local AOou = { "A", "O", "o", "u" }
local QOou = { "Q", "O", "o", "u" }
-- [F2[secondaryR]][f1]
local _jv_X = { aEei, AEei, QOou }
local njv_X = { aEei, AV7i, QOou }
local hjvtX = { aEei, aEei, QOou }
local _Gv_X = { AV7i, AV7M, QOou }
local rGv_X = { AEei, AV7M, QOou } -- not currently used
local hGv_X = { AV7M, AV7M, AV7M }
local _wv_X = { AV7u, AOou, QOou }
local rwv_X = { AOou, AOou, QOou }
local hwv_X = { AV7M, AOou, QOou }
local hwvtX = { AV7M, AV7u, QOou }
-- [F2[secondaryL]][F2[secondaryR]][f1]
local _Xv__ = { _jv_X, _Gv_X, _wv_X }
local nXv__ = { njv_X, _Gv_X, hwv_X }
local rXv__ = { _jv_X, _Gv_X, rwv_X }
local hXv__ = { _jv_X, hGv_X, hwv_X }
local hXvt_ = { hjvtX, hGv_X, hwvtX }
local hXvr_ = { hjvtX, hGv_X, hwv_X }
-- [primaryR][F2[secondaryL]][F2[secondaryR]][f1]
local __vX_ = {
["p"] = _Xv__, ["t"] = _Xv__, ["k"] = _Xv__,
["m"] = _Xv__, ["n"] = _Xv__, ["N"] = _Xv__,
["r"] = _Xv__, ["l"] = _Xv__
}
local n_vX_ = {
["p"] = nXv__, ["t"] = nXv__, ["k"] = nXv__,
["m"] = nXv__, ["n"] = nXv__, ["N"] = nXv__,
["r"] = nXv__, ["l"] = nXv__
}
local r_vX_ = {
["p"] = rXv__, ["t"] = rXv__, ["k"] = rXv__,
["m"] = rXv__, ["n"] = rXv__, ["N"] = rXv__,
["r"] = rXv__, ["l"] = _Xv__
}
local h_vX_ = {
["p"] = hXv__, ["t"] = hXvt_, ["k"] = hXv__,
["m"] = hXv__, ["n"] = hXv__, ["N"] = hXv__,
["r"] = hXvr_, ["l"] = hXv__
}
-- [primaryL][primaryR][F2[secondaryL]][F2[secondaryR]][f1]
VOWEL_REFLEX = {
["p"] = __vX_, ["t"] = __vX_, ["k"] = __vX_,
["m"] = __vX_, ["n"] = n_vX_, ["N"] = __vX_,
["r"] = r_vX_, ["l"] = n_vX_, ["h"] = h_vX_
}
end
 
local CONSON_REFLEX
if true then
local map = {
["t"] = { ["j"] = "T" },
["n"] = { ["j"] = "J" },
["r"] = { ["j"] = "R" },
["l"] = { ["j"] = "L" }
}
for primary in mw_text_gsplit("ptkmnNrl", "") do
local map2 = map[primary]
if not map2 then
map2 = {}
map[primary] = map2
end
map2["j"] = map2["j"] or primary
map2["G"] = map2["G"] or primary
map2["w"] = map2["w"] or primary
end
map["T"] = map["t"]
map["J"] = map["n"]
map["R"] = map["r"]
map["L"] = map["l"]
CONSON_REFLEX = map
end
 
local VOICED_PRIMARY =
Line 519 ⟶ 602:
{ ["b"]="p", ["d"]="t", ["D"]="T", ["Z"]="S", ["z"]="s", ["g"]="k" }
 
local VOWEL_REFLEX
local CONSON_REFLEX
local PHONETIC_IPA
if true then
local map = {
["p"] = "p",
["b"] = "b",
["B"] = "β̞",
["t"] = "t",
["d"] = "d",
["s"] = "s",
["z"] = "z",
["k"] = "k",
["g"] = "ɡ",
["m"] = "m",
["n"] = "n",
["N"] = "ŋ",
["r"] = "r",
["l"] = "l",
["HG"] = "ʔ",
["Hw"] = "w",
["_"] = "‿",
["j"] = "ʲ",
["G"] = "ˠ",
["w"] = "ʷ",
["a"] = "æ",
["E"] = "ɛ",
["e"] = "e",
["i"] = "i",
["A"] = "ɑ",
["V"] = "ʌ",
["7"] = "ɤ",
["M"] = "ɯ",
["Q"] = "ɒ",
["O"] = "ɔ",
["o"] = "o",
["u"] = "u",
["^"] = ASYLL,
["@"] = ASYLL,
["("] = "(",
[")"] = ")",
[":"] = "ː",
["="] = TIE2
}
if PHONETIC_DETAILS then
assign(map, {
["t"] = "t̪",
["T"] = "t̠",
["d"] = "d̪",
["D"] = "d̠",
["s"] = "s̠",
["z"] = "z̠",
["k"] = "k̠",
["g"] = "ɡ̠",
["n"] = "n̠",
["J"] = "n̪",
["N"] = "ŋ̠",
["r"] = "r̠",
["R"] = "r̪",
["l"] = "l̠",
["L"] = "l̪",
["a"] = "æ̝",
["E"] = "ɛ̝",
["E@"] = "e"..map["@"],
["E^"] = "e"..map["^"],
["Q"] = "ɒ̝",
["O"] = "ɔ̝",
["O@"] = "o"..map["@"],
["O^"] = "o"..map["^"]
})
end
map["T"] = map["T"] or map["t"]
map["D"] = map["D"] or map["d"]
map["S"] = map["S"] or (map["T"]..map["s"])
map["Z"] = map["Z"] or (map["D"]..map["z"])
map["kG"] = map["kG"] or map["k"]
map["gG"] = map["gG"] or map["g"]
map["J"] = map["J"] or map["n"]
map["NG"] = map["NG"] or map["N"]
map["R"] = map["R"] or map["r"]
map["L"] = map["L"] or map["l"]
map["Hj"] = map["Hj"] or map["i"]..map["^"]
local key
for primary in mw_text_gsplit("pbBtdTDSZszkgmnJNrRlL_", "") do
for secondary in mw_text_gsplit("jGw", "") do
key = primary..secondary
map[key] = map[key] or (map[primary]..map[secondary])
end
end
for vowel in mw_text_gsplit(V_, "") do
key = vowel.."@"
map[key] = map[key] or (map[vowel]..map["@"])
key = vowel.."^"
map[key] = map[key] or (map[vowel]..map["^"])
end
PHONETIC_IPA = map
end
 
local function toPhoneticRemainder(code, config, leftFlag, rightFlag)
local text = code
local chars, subst
local diphthongs = config.diphthongs
-- If the phrase begins or ends with a bare vowel
-- and no pseudo-glide, display phrase threeup to five times
-- with each of the different pseudo-glides and possible vowel reflexes.
if IS_VOWEL[string_sub(text, 1, 1)] then
text = "_j"..code
toPhoneticRemainder("_j"..text, config)
toPhoneticRemainder("_G"..text, config, false, rightFlag)
if not diphthongs then
toPhoneticRemainder("_w"..text, config)
toPhoneticRemainder(text, config, true, rightFlag)
end
text = "_G"..code
toPhoneticRemainder(text, config, false, rightFlag)
if not diphthongs then
toPhoneticRemainder(text, config, true, rightFlag)
end
text = "_w"..code
toPhoneticRemainder(text, config, false, rightFlag)
if not diphthongs then
toPhoneticRemainder(text, config, true, rightFlag)
end
return
end
if IS_VOWEL[string_sub(text, -1)] then
toPhoneticRemainder(text = code.."_j", config)
toPhoneticRemainder(text.."_G", config, leftFlag, false)
if not diphthongs then
toPhoneticRemainder(text.."_w", config)
toPhoneticRemainder(text, config, leftFlag, true)
end
text = code.."_G"
toPhoneticRemainder(text, config, leftFlag, false)
if not diphthongs then
toPhoneticRemainder(text, config, leftFlag, true)
end
text = code.."_w"
toPhoneticRemainder(text, config, leftFlag, false)
if not diphthongs then
toPhoneticRemainder(text, config, leftFlag, true)
end
return
end
local diphthongs = config.diphthongs
local initialJ = config.initialJ
local medialJ = config.medialJ
Line 652 ⟶ 852:
end
)
subst = function(
primaryL, secondaryL, _, vowel, epenth, __, primaryR, secondaryR
)
local f1 = F1[vowel]
return (
primaryL..secondaryL.._..
VOWEL[f1][F2[secondaryL]]..epenth.."="..
VOWEL[f1][F2[secondaryR]]..epenth..__..
primaryR..secondaryR
)
end
if diphthongs then
text = string_gsub2(text,
"(.)([jGw])( *)/([aEei])(@?)( *)(.)([jGw])", subst)
function(
primaryL, secondaryL, _, vowel, epenth, __, primaryR, secondaryR
)
local f1 = F1[vowel]
return (
primaryL..secondaryL.._..
VOWEL[f1][F2[secondaryL]]..epenth.."="..
VOWEL[f1][F2[secondaryR]]..epenth..__..
primaryR..secondaryR
)
end
)
else
-- Represent vowelsVowels neighboring pseudo-glides as diphthongs regardless.
textsubst = string_gsubfunction(text,
primaryL, secondaryL, _, vowel, epenth,
"(_)([jGw])( *)/([aEei])(@?)( *)(.)([jGw])", subst)
__, primaryR, secondaryR, flag
text = string_gsub(text,
)
"(.)([jGw])( *)/([aEei])(@?)( *)(_)([jGw])", subst)
local f2L = F2[secondaryL]
local f2R = F2[secondaryR]
if not VOWEL_REFLEX then
--local [f1]f2
if flag then
local aEei = { "a", "E", "e", "i" }
f2 = math_max(f2L, f2R)
local AEei = { "A", "E", "e", "i" }
else
local AV7i = { "A", "V", "7", "i" }
f2 = math_min(f2L, f2R)
local AV7M = { "A", "V", "7", "M" }
end
local AV7u = { "A", "V", "7", "u" }
return (
local AOou = { "A", "O", "o", "u" }
primaryL..secondaryL.._..
local QOou = { "Q", "O", "o", "u" }
-- VOWEL[F2F1[secondaryRvowel]][f1f2]..epenth..__..
primaryR..secondaryR
local _jv_X = { aEei, AEei, QOou }
)
local njv_X = { aEei, AV7i, QOou }
local hjvtX = { aEei, aEei, QOou }
local _Gv_X = { AV7i, AV7M, QOou }
local rGv_X = { AEei, AV7M, QOou } -- not currently used
local hGv_X = { AV7M, AV7M, AV7M }
local _wv_X = { AV7u, AOou, QOou }
local rwv_X = { AOou, AOou, QOou }
local hwv_X = { AV7M, AOou, QOou }
local hwvtX = { AV7M, AV7u, QOou }
-- [F2[secondaryL]][F2[secondaryR]][f1]
local _Xv__ = { _jv_X, _Gv_X, _wv_X }
local nXv__ = { njv_X, _Gv_X, hwv_X }
local rXv__ = { _jv_X, _Gv_X, rwv_X }
local hXv__ = { _jv_X, hGv_X, hwv_X }
local hXvt_ = { hjvtX, hGv_X, hwvtX }
local hXvr_ = { hjvtX, hGv_X, hwv_X }
-- [primaryR][F2[secondaryL]][F2[secondaryR]][f1]
local __vX_ = {
["p"] = _Xv__, ["t"] = _Xv__, ["k"] = _Xv__,
["m"] = _Xv__, ["n"] = _Xv__, ["N"] = _Xv__,
["r"] = _Xv__, ["l"] = _Xv__
}
local n_vX_ = {
["p"] = nXv__, ["t"] = nXv__, ["k"] = nXv__,
["m"] = nXv__, ["n"] = nXv__, ["N"] = nXv__,
["r"] = nXv__, ["l"] = nXv__
}
local r_vX_ = {
["p"] = rXv__, ["t"] = rXv__, ["k"] = rXv__,
["m"] = rXv__, ["n"] = rXv__, ["N"] = rXv__,
["r"] = rXv__, ["l"] = _Xv__
}
local h_vX_ = {
["p"] = hXv__, ["t"] = hXvt_, ["k"] = hXv__,
["m"] = hXv__, ["n"] = hXv__, ["N"] = hXv__,
["r"] = hXvr_, ["l"] = hXv__
}
-- [primaryL][primaryR][F2[secondaryL]][F2[secondaryR]][f1]
VOWEL_REFLEX = {
["p"] = __vX_, ["t"] = __vX_, ["k"] = __vX_,
["m"] = __vX_, ["n"] = n_vX_, ["N"] = __vX_,
["r"] = r_vX_, ["l"] = n_vX_, ["h"] = h_vX_
}
end
text = string_gsub(text, "(_)([jGw])( *)/("..V..")(@?)( *)(.)([jGw])",
function(a, b, c, d, e, f, g, h)
return subst(a, b, c, d, e, f, g, h, leftFlag)
end
)
text = string_gsub(text, "(.)([jGw])( *)/("..V..")(@?)( *)(_)([jGw])",
function(a, b, c, d, e, f, g, h)
return subst(a, b, c, d, e, f, g, h, rightFlag)
end
)
-- Vowels between two non-glides have the most predictable reflexes.
Line 985 ⟶ 1,153:
until index == 1
text = table_concat(chars, "")
end
if not CONSON_REFLEX then
CONSON_REFLEX = {
["t"] = { ["j"] = "T" },
["n"] = { ["j"] = "J" },
["r"] = { ["j"] = "R" },
["l"] = { ["j"] = "L" }
}
for primary in mw_text_gsplit("ptkmnNrl", "") do
local map = CONSON_REFLEX[primary]
if not map then
map = {}
CONSON_REFLEX[primary] = map
end
map["j"] = map["j"] or primary
map["G"] = map["G"] or primary
map["w"] = map["w"] or primary
end
end
Line 1,035 ⟶ 1,184:
-- /nʲ, rʲ, lʲ/ are palatalized dental.
-- /nˠ, rˠ, lˠ/ are velarized postalveolar.
-- AssimilateRegressively assimilate primary dental or postalveolar.
-- None of this will be visible unless PHONETIC_DETAILS == true.
primaryL = CONSON_REFLEX[primaryL]
[secondaryL == "j" and "G" or "j"]
Line 1,049 ⟶ 1,199:
primaryL = finalJ
primaryR = initialJ
if primaryL == "S" and
primaryR ~= "s"
then
primaryL = "T"
elseif
primaryL == "T" and
primaryR == "s" and
medialJ == "S"
then
primaryL = "S"
end
else
primaryR = medialJ
Line 1,063 ⟶ 1,224:
if primaryR ~= "" then
-- Consonant cluster.
-- For some reason, the {t} in {lt} and {ļt} is voiceless.
if not geminated and
primaryL ~= "l" and
Line 1,070 ⟶ 1,232:
primaryR = VOICED_PRIMARY[primaryR] or primaryR
end
-- Display secondary articulation only once for the cluster.
if secondaryL == secondaryR then
if primaryLsecondaryL == primaryR then""
if false then
primaryR = ":"
secondaryR = ""
else
secondaryL = ""
end
else
secondaryL = ""
end
end
elseif
not isInitial and
Line 1,116 ⟶ 1,268:
end
end
if false and PHONETIC_DETAILS then
text = string_gsub(text, "([pbm])(G *[aEei])(@?)",
function(primary, _, epenth)
Line 1,146 ⟶ 1,298:
text = string_gsub(text, " +", false and "_" or "")
if not PHONETIC_IPA then
local map = {
["p"] = "p",
["b"] = "b",
["B"] = "β̞",
["t"] = "t",
["d"] = "d",
["s"] = "s",
["z"] = "z",
["k"] = "k",
["g"] = "ɡ",
["m"] = "m",
["n"] = "n",
["N"] = "ŋ",
["r"] = "r",
["l"] = "l",
["HG"] = "ʔ",
["Hw"] = "w",
["_"] = "‿",
["j"] = "ʲ",
["G"] = "ˠ",
["w"] = "ʷ",
["a"] = "æ",
["E"] = "ɛ",
["e"] = "e",
["i"] = "i",
["A"] = "ɑ",
["V"] = "ʌ",
["7"] = "ɤ",
["M"] = "ɯ",
["Q"] = "ɒ",
["O"] = "ɔ",
["o"] = "o",
["u"] = "u",
["^"] = ASYLL,
["@"] = ASYLL,
["("] = "<small>(</small>",
[")"] = "<small>)</small>",
[":"] = "ː",
["="] = TIE2
}
if PHONETIC_DETAILS then
assign(map, {
["t"] = "t̪",
["T"] = "t̠",
["d"] = "d̪",
["D"] = "d̠",
["s"] = "s̠",
["z"] = "z̠",
["k"] = "k̠",
["g"] = "ɡ̠",
["n"] = "n̠",
["J"] = "n̪",
["N"] = "ŋ̠",
["r"] = "r̠",
["R"] = "r̪",
["l"] = "l̠",
["L"] = "l̪",
["a"] = "æ̝",
["E"] = "ɛ̝",
["E@"] = "e"..map["@"],
["E^"] = "e"..map["^"],
["Q"] = "ɒ̝",
["O"] = "ɔ̝",
["O@"] = "o"..map["@"],
["O^"] = "o"..map["^"]
})
end
map["T"] = map["T"] or map["t"]
map["D"] = map["D"] or map["d"]
map["S"] = map["S"] or (map["T"]..map["s"])
map["Z"] = map["Z"] or (map["D"]..map["z"])
map["kG"] = map["kG"] or map["k"]
map["gG"] = map["gG"] or map["g"]
map["J"] = map["J"] or map["n"]
map["NG"] = map["NG"] or map["N"]
map["R"] = map["R"] or map["r"]
map["L"] = map["L"] or map["l"]
map["Hj"] = map["Hj"] or map["i"]..map["^"]
local key
for primary in mw_text_gsplit("pbBtdTDSZszkgmnJNrRlL_", "") do
for secondary in mw_text_gsplit("jGw", "") do
key = primary..secondary
map[key] = map[key] or (map[primary]..map[secondary])
end
end
for vowel in mw_text_gsplit(V_, "") do
key = vowel.."@"
map[key] = map[key] or (map[vowel]..map["@"])
key = vowel.."^"
map[key] = map[key] or (map[vowel]..map["^"])
end
PHONETIC_IPA = map
end
text = string_gsub(text, ".[jGw@%^]?", PHONETIC_IPA)
Retrieved from "https://en.wikipedia.org/wiki/Module:IPAc2-mh"