Module:rad-IPA: Difference between revisions

if mw.ustring.find(s, toReplace) then

s = mw.ustring.gsub(s, "(" .. toReplace .. ")", ReplaceKey)

end

end

function resolve_vowels(phones)

local working_phones = phones

local i = 0

local function p_Resolve(p_new)

working_phones[i] = p_new

p_new = ""

end

local function p_Convert(p_new)

working_phones[i] = p_new

p_current = p_new

p_new = ""

-- Resolution of [aù] --

if p_prev == "a" and p_current == "ù" then

p_Convert("u")

p_current = "u"

-- Resolution of [u], [ù] and [ū] --

if p_current == "u" then

if consonant[p_next] then

if glide[p_next2] then

if not vowel[p_next3] then

p_Resolve("ɤ")

else

end

elseif not vowel[p_next2] then

p_Resolve("ɤ")

else

end

else

end

elseif p_current == "ù" or p_current == "ū" then

p_Resolve("u")

end

local check_phone = working_phones[i - j]

if boundary[check_phone] or check_phone == nil then

p_Resolve("ai")

break

if p_current == "iej" or p_current == "yej" or p_current == "uoj" then

if p_current == "uoj" then

p_Resolve("uo")

table.insert(working_phones, i + 1, "j")

else

p_Resolve("iː")

end

return working_phones

function resolve_consonants(phones, hj_dv, phon)

local working_phones = phones

local i = 0

local function p_Resolve(p_new)

working_phones[i] = p_new

p_new = ""

end

local function p_Convert(p_new)

working_phones[i] = p_new

p_current = p_new

p_new = ""

if iotate[p_current] and p_next == "j" then

p_Convert(iotate[p_current])

p_RemoveNext()

elseif p_current == "ĵ" then

p_Convert("j")

if not hj_dv then

if p_current == "ç" then

p_Convert("ʃ")

elseif p_current == "j" and (boundary[p_prev] or p_prev == nil) and consonant[p_next] then

p_Convert("ʒ")

end

if sibilant[p_current] then

p_RemoveNext()

elseif p_current == "t" then

p_Convert("ts")

p_RemoveNext()

elseif p_current == "d" then

p_Convert("dz")

p_RemoveNext()

end

elseif p_next == "ʃ" then

if sibilant_post[p_current] == true then

p_RemoveNext()

elseif sibilant_alv[p_current] then

p_Convert(sibilant_alv_to_post[p_current])

p_RemoveNext()

p_Convert("tʃ")

p_RemoveNext()

elseif p_current == "d" then

p_Convert("dʒ")

p_RemoveNext()

end

if p_next == "v" and ((Cv_split[p_current] and not vowel[p_prev]) or Cv_fixed[p_current]) then

p_RemoveNext()

end

if obstruent[p_current] then

local final_i = i

if final_i ~= i then -- if cluster recognised --

final_obs = working_phones[final_i]

-- assimilate --

if obstruent_voiced[p_current] ~= obstruent_voiced[final_obs] then

if obstruent_voiced[final_obs] == true then

p_Convert(obstruent_voice[p_current])

end

else

end

else

end

end

if (p_current == "v") and (p_prev == "t" or p_prev == "k") then

p_Convert("f")

end

if p_next == p_current and (boundary[p_next2] or p_next2 == nil) and consonant[p_current] then

p_RemoveNext()

end

if p_current == "'" then

table.remove(working_phones, i)

p_current = working_phones[i]

end

if p_current == "v" and obstruent[p_prev] and p_prev ~= "d" and p_prev ~= "g" then

p_Resolve("ʋ")

end

if p_current == "h" and not vowel[p_next] then -- hC

p_Convert("x")

elseif p_current == "h" and p_next == "j" then

p_Convert("ç")

p_RemoveNext()

if p_current == "n" and p_next == "j" then

p_Convert("ɲ")

p_RemoveNext()

if p_current == "n" and velar[p_next] then

p_Resolve("ŋ")

end

end

return working_phones

end

end

-- division into syllables --

local function register_syllable(check)

syllables[syllable_no] = working_syllable

if #syllables[syllable_no]["onset"] == 0 then

syllables[syllable_no]["coda"] = nil

end

logSyllable()

syllable_no = syllable_no + 1

working_syllable = {

syllables[syllable_no] = p_current

table.remove(working_phones, 1)

syllable_no = syllable_no + 1

end

if vowel[p_current] then

working_syllable["nucleus"] = p_current

elseif consonant[p_current] then

local unit = ""

end

table.insert(working_syllable[unit], p_current)

else

error("Invalid input for function register_phone")

end

return syllables

function tag_syllables(syllables)

local syl_count = #syllables

local function tag_syllable(tag, value)

syllables[i][tag] = value

end

end

end

local test_n = #syllables

while #syllables > 0 do

table.insert(working_word, syllables[1])

table.remove(syllables, 1)

if syllables[1] == nil or type(syllables[1]) == "string" then -- check next syllable is a boundary (now 1 after deletion of registered syllable)

break

end -- if next syllable is a boundary, register and continue to stress assignment

if (syllables[1] == "-" or output[#output] == "·") and syllables[1] ~= "·" and output[#output] ~= "-" then -- check if following · or preceding - ; if so, assign stress regardless of monosyllabicness

working_word[syl]["stress"] = true

elseif #working_word > 1 then -- if monosyllabic, do not add a redundant stress mark

if output[#output] == "-" or syllables[1] == "·" then -- check if following - or preceding ·

working_word[syl]["stress2"] = true

else

working_word[syl]["stress"] = true

end

else

end

end

working_word = {}

else

error("An empty word cannot be registered")

-- calculate stress on the working word

if #working_word == 0 or working_word == nil then

error("Empty syllable found in array. The array should contain no empty syllables")

else -- if boundary is identified as the working word, then

table.insert(output, syllables[1])

table.remove(syllables, 1)

end

end

local screened = false

function resolve_syllables(syllables)

if #syllables > 1 then

end

end

syllables[i]["coda"] = new_coda

syllables[i+1]["onset"] = new_onset

local output = ""

for i = 1, #syllables do

if not (syllables[i+1]["stress"] or syllables[i+1]["stress2"]) then

syllables[i]["coda"] = {"."}

end

end

local function get_nasal(check)

if check then

syllables[i]["nucleus"] = nasalise[syllables[i]["nucleus"]]

table.remove(syllables[i]["coda"], 1)

local p = 2

while args[p] do

parameters[args[p]] = true

p = p + 1

end

if outputIPA == nil then

return nil

end

return outputIPA