Module:rad-syllables: Difference between revisions

Jump to navigation Jump to search

Module:rad-syllables (view source)

Revision as of 12:07, 21 July 2024

2,604 bytes added ,  21 July
m
Beautified
No edit summary
Tags: Mobile edit Mobile web edit Advanced mobile edit
m (Beautified)
 
Line 1: Line 1:
local export = {}
local export = {}
local getArgs = require('Module:Arguments').getArgs
local getArgs = require("Module:Arguments").getArgs


-- DATA --
-- DATA --


local grapheme = {
local grapheme = {
["a"] = true, ["á"] = true, ["à"] = true, ["â"] = true, ["ả"] = true, ["ai"] = true, ["ài"] = true, ["âi"] = true, ["ao"] = true, ["ào"] = true, ["aoi"] = true, ["au"] = true, ["b"] = true, ["c"] = true, ["d"] = true, ["ð"] = true, ["dx"] = true, ["dz"] = true, ["e"] = true, ["é"] = true, ["è"] = true, ["ea"] = true, ["ei"] = true, ["f"] = true, ["g"] = true, ["h"] = true, ["ħ"] = true, ["i"] = true, ["ì"] = true, ["í"] = true, ["ỉ"] = true, ["ie"] = true, ["ìe"] = true, ["ỉe"] = true, ["iea"] = true, ["j"] = true, ["ĵ"] = true, ["k"] = true, ["ķ"] = true, ["l"] = true, ["m"] = true, ["n"] = true, ["ņ"] = true, ["o"] = true, ["ó"] = true, ["ò"] = true, ["ø"] = true, ["oa"] = true, ["øa"] = true, ["øi"] = true, ["p"] = true, ["q"] = true, ["r"] = true, ["s"] = true, ["ș"] = true, ["t"] = true, ["ts"] = true, ["tș"] = true, ["u"] = true, ["ú"] = true, ["ù"] = true, ["û"] = true, ["ū"] = true, ["ủ"] = true, ["ui"] = true, ["uo"] = true, ["ủo"] = true, ["uoa"] = true, ["v"] = true, ["w"] = true, ["x"] = true, ["y"] = true, ["ỳ"] = true, ["ý"] = true, ["ỷ"] = true, ["ye"] = true, ["ỷe"] = true, ["yea"] = true, ["z"] = true, ["þ"] = true,
    ["a"] = true,
    ["á"] = true,
["gj"] = true, ["lj"] = true,
    ["à"] = true,
    ["â"] = true,
    ["ả"] = true,
    ["ai"] = true,
    ["ài"] = true,
    ["âi"] = true,
    ["ao"] = true,
    ["ào"] = true,
    ["aoi"] = true,
    ["au"] = true,
    ["b"] = true,
    ["c"] = true,
    ["d"] = true,
    ["ð"] = true,
    ["dx"] = true,
    ["dz"] = true,
    ["e"] = true,
    ["é"] = true,
    ["è"] = true,
    ["ea"] = true,
    ["ei"] = true,
    ["f"] = true,
    ["g"] = true,
    ["h"] = true,
    ["ħ"] = true,
    ["i"] = true,
    ["ì"] = true,
    ["í"] = true,
    ["ỉ"] = true,
    ["ie"] = true,
    ["ìe"] = true,
    ["ỉe"] = true,
    ["iea"] = true,
    ["j"] = true,
    ["ĵ"] = true,
    ["k"] = true,
    ["ķ"] = true,
    ["l"] = true,
    ["m"] = true,
    ["n"] = true,
    ["ņ"] = true,
    ["o"] = true,
    ["ó"] = true,
    ["ò"] = true,
    ["ø"] = true,
    ["oa"] = true,
    ["øa"] = true,
    ["øi"] = true,
    ["p"] = true,
    ["q"] = true,
    ["r"] = true,
    ["s"] = true,
    ["ș"] = true,
    ["t"] = true,
    ["ts"] = true,
    ["tș"] = true,
    ["u"] = true,
    ["ú"] = true,
    ["ù"] = true,
    ["û"] = true,
    ["ū"] = true,
    ["ủ"] = true,
    ["ui"] = true,
    ["uo"] = true,
    ["ủo"] = true,
    ["uoa"] = true,
    ["v"] = true,
    ["w"] = true,
    ["x"] = true,
    ["y"] = true,
    ["ỳ"] = true,
    ["ý"] = true,
    ["ỷ"] = true,
    ["ye"] = true,
    ["ỷe"] = true,
    ["yea"] = true,
    ["z"] = true,
    ["þ"] = true,
    ["gj"] = true,
    ["lj"] = true
}
}


local vowel = {
local vowel = {
["a"] = true, ["á"] = true, ["à"] = true, ["â"] = true, ["ả"] = true, ["ai"] = true, ["ài"] = true, ["âi"] = true, ["ao"] = true, ["ào"] = true, ["aoi"] = true, ["au"] = true, ["e"] = true, ["é"] = true, ["è"] = true, ["ea"] = true, ["ei"] = true, ["i"] = true, ["ì"] = true, ["í"] = true, ["ỉ"] = true, ["ie"] = true, ["ìe"] = true, ["ỉe"] = true, ["iea"] = true, ["o"] = true, ["ó"] = true, ["ò"] = true, ["ø"] = true, ["oa"] = true, ["øa"] = true, ["øi"] = true, ["u"] = true, ["ú"] = true, ["ù"] = true, ["û"] = true, ["ū"] = true, ["ủ"] = true, ["ui"] = true, ["uo"] = true, ["ủo"] = true, ["uoa"] = true, ["y"] = true, ["ỳ"] = true, ["ý"] = true, ["ỷ"] = true, ["ye"] = true, ["ỷe"] = true, ["yea"] = true,
    ["a"] = true,
    ["á"] = true,
    ["à"] = true,
    ["â"] = true,
    ["ả"] = true,
    ["ai"] = true,
    ["ài"] = true,
    ["âi"] = true,
    ["ao"] = true,
    ["ào"] = true,
    ["aoi"] = true,
    ["au"] = true,
    ["e"] = true,
    ["é"] = true,
    ["è"] = true,
    ["ea"] = true,
    ["ei"] = true,
    ["i"] = true,
    ["ì"] = true,
    ["í"] = true,
    ["ỉ"] = true,
    ["ie"] = true,
    ["ìe"] = true,
    ["ỉe"] = true,
    ["iea"] = true,
    ["o"] = true,
    ["ó"] = true,
    ["ò"] = true,
    ["ø"] = true,
    ["oa"] = true,
    ["øa"] = true,
    ["øi"] = true,
    ["u"] = true,
    ["ú"] = true,
    ["ù"] = true,
    ["û"] = true,
    ["ū"] = true,
    ["ủ"] = true,
    ["ui"] = true,
    ["uo"] = true,
    ["ủo"] = true,
    ["uoa"] = true,
    ["y"] = true,
    ["ỳ"] = true,
    ["ý"] = true,
    ["ỷ"] = true,
    ["ye"] = true,
    ["ỷe"] = true,
    ["yea"] = true
}
}


local consonant = {
local consonant = {
["b"] = true, ["c"] = true, ["d"] = true, ["ð"] = true, ["dx"] = true, ["dz"] = true, ["f"] = true, ["g"] = true, ["h"] = true, ["ħ"] = true, ["j"] = true, ["ĵ"] = true, ["k"] = true, ["ķ"] = true, ["l"] = true, ["m"] = true, ["n"] = true, ["ņ"] = true, ["p"] = true, ["q"] = true, ["r"] = true, ["s"] = true, ["ș"] = true, ["t"] = true, ["ts"] = true, ["tș"] = true, ["v"] = true, ["w"] = true, ["x"] = true, ["z"] = true, ["þ"] = true,
    ["b"] = true,
    ["c"] = true,
["gj"] = true, ["lj"] = true,
    ["d"] = true,
    ["ð"] = true,
    ["dx"] = true,
    ["dz"] = true,
    ["f"] = true,
    ["g"] = true,
    ["h"] = true,
    ["ħ"] = true,
    ["j"] = true,
    ["ĵ"] = true,
    ["k"] = true,
    ["ķ"] = true,
    ["l"] = true,
    ["m"] = true,
    ["n"] = true,
    ["ņ"] = true,
    ["p"] = true,
    ["q"] = true,
    ["r"] = true,
    ["s"] = true,
    ["ș"] = true,
    ["t"] = true,
    ["ts"] = true,
    ["tș"] = true,
    ["v"] = true,
    ["w"] = true,
    ["x"] = true,
    ["z"] = true,
    ["þ"] = true,
    ["gj"] = true,
    ["lj"] = true
}
}


local affix = {
local affix = {
["·"] = true, ["-"] = true, ["’"] = true, ["‘"] = true,
    ["·"] = true,
    ["-"] = true,
    ["’"] = true,
    ["‘"] = true
}
}


local nasal = {
local nasal = {
["m"] = true, ["n"] = true, ["ņ"] = true,
    ["m"] = true,
    ["n"] = true,
    ["ņ"] = true
}
}
 
local glide = {
local glide = {
["j"] = true, ["ĵ"] = true, ["w"] = true,
    ["j"] = true,
    ["ĵ"] = true,
["gj"] = true, ["lj"] = true,
    ["w"] = true,
    ["gj"] = true,
    ["lj"] = true
}
}


local sibilant = {
local sibilant = {
["dz"] = true,
    ["dz"] = true,
["dʒ"] = true,
    ["dʒ"] = true,
["s"] = true, ["ș"] = true,
    ["s"] = true,
["c"] = true, ["ķ"] = true, ["ts"] = true, ["tș"] = true,  
    ["ș"] = true,
["z"] = true, ["x"] = true,
    ["c"] = true,
    ["ķ"] = true,
    ["ts"] = true,
    ["tș"] = true,
    ["z"] = true,
    ["x"] = true
}
}


local Cs = {
local Cs = {
["d"] = true,
    ["d"] = true,
["t"] = true,
    ["t"] = true,
["dz"] = true,
    ["dz"] = true,
["dʒ"] = true,
    ["dʒ"] = true,
["s"] = true, ["ș"] = true,
    ["s"] = true,
["c"] = true, ["ķ"] = true, ["ts"] = true, ["tș"] = true,  
    ["ș"] = true,
["z"] = true, ["x"] = true,
    ["c"] = true,
    ["ķ"] = true,
    ["ts"] = true,
    ["tș"] = true,
    ["z"] = true,
    ["x"] = true
}
}


local sibilant = {
local sibilant = {
["s"] = true, ["ș"] = true,
    ["s"] = true,
["z"] = true, ["x"] = true,
    ["ș"] = true,
    ["z"] = true,
    ["x"] = true
}
}


local Cv_fixed = { -- <Cv> combinations that uniformly pronounced without /v/ --
local Cv_fixed = {
["b"] = true,
    -- <Cv> combinations that uniformly pronounced without /v/ --
["f"] = true,
    ["b"] = true,
["p"] = true,
    ["f"] = true,
    ["p"] = true
}
}


local Cr = { -- consonants that can precede /r/ in a medial onset --
local Cr = {
["p"] = true, ["k"] = true, ["b"] = true, ["g"] = true,  
    -- consonants that can precede /r/ in a medial onset --
    ["p"] = true,
["ð"] = true,
    ["k"] = true,
["f"] = true, ["ħ"] = true, ["h"] = true,
    ["b"] = true,
["v"] = true,
    ["g"] = true,
["þ"] = true,  
    ["ð"] = true,
    ["f"] = true,
["t"] = true, ["d"] = true,
    ["ħ"] = true,
    ["h"] = true,
    ["v"] = true,
    ["þ"] = true,
    ["t"] = true,
    ["d"] = true
}
}


local Cl = { -- consonants that can precede /l/ in a medial onset --
local Cl = {
["p"] = true, ["k"] = true, ["b"] = true, ["g"] = true,  
    -- consonants that can precede /l/ in a medial onset --
    ["p"] = true,
["ð"] = true,
    ["k"] = true,
["f"] = true, ["ħ"] = true, ["h"] = true,
    ["b"] = true,
["v"] = true,
    ["g"] = true,
["þ"] = true,  
    ["ð"] = true,
    ["f"] = true,
["s"] = true, ["ș"] = true, ["z"] = true, ["x"] = true,
    ["ħ"] = true,
    ["h"] = true,
    ["v"] = true,
    ["þ"] = true,
    ["s"] = true,
    ["ș"] = true,
    ["z"] = true,
    ["x"] = true
}
}


local Cv = { -- consonants that can precede /v/ in a medial onset --
local Cv = {
["d"] = true, ["ð"] = true, ["dz"] = true,
    -- consonants that can precede /v/ in a medial onset --
["dʒ"] = true, ["g"] = true, ["ħ"] = true, ["h"] = true,
    ["d"] = true,
["k"] = true, ["l"] = true, ["r"] = true, ["s"] = true, ["ș"] = true,
    ["ð"] = true,
["t"] = true, ["c"] = true, ["ķ"] = true, ["ts"] = true, ["tș"] = true,  
    ["dz"] = true,
["z"] = true, ["x"] = true, ["þ"] = true, ["m"] = true, ["n"] = true,
    ["dʒ"] = true,
    ["g"] = true,
    ["ħ"] = true,
    ["h"] = true,
    ["k"] = true,
    ["l"] = true,
    ["r"] = true,
    ["s"] = true,
    ["ș"] = true,
    ["t"] = true,
    ["c"] = true,
    ["ķ"] = true,
    ["ts"] = true,
    ["tș"] = true,
    ["z"] = true,
    ["x"] = true,
    ["þ"] = true,
    ["m"] = true,
    ["n"] = true
}
}


local CN = { -- consonants that can precede nasals in a medial onset -- (non-glide continuants)
local CN = {
["ð"] = true,
    -- consonants that can precede nasals in a medial onset -- (non-glide continuants)
["f"] = true, ["ħ"] = true, ["h"] = true,
    ["ð"] = true,
["l"] = true, ["r"] = true, ["s"] = true, ["ș"] = true,
    ["f"] = true,
["v"] = true,
    ["ħ"] = true,
["z"] = true, ["x"] = true, ["þ"] = true,
    ["h"] = true,
    ["l"] = true,
    ["r"] = true,
    ["s"] = true,
    ["ș"] = true,
    ["v"] = true,
    ["z"] = true,
    ["x"] = true,
    ["þ"] = true
}
}


local irregular = {
local irregular = {
["eurú"] = {"eu", "r", "ú"},
    ["eurú"] = {"eu", "r", "ú"},
["eurov"] = {"eu", "r", "o", "v"},
    ["eurov"] = {"eu", "r", "o", "v"},
["zeus"] = {"z", "eu", "s"},
    ["zeus"] = {"z", "eu", "s"},
["zeud"] = {"z", "eu", "d"},
    ["zeud"] = {"z", "eu", "d"}
}
}


local irregular_grapheme = { "eu", }
local irregular_grapheme = {"eu"}
local irregular_vowel = { "eu", }
local irregular_vowel = {"eu"}


function graphemise(word)
function graphemise(word)
--mw.log("————— GRAPHEMISING —————")
    --mw.log("————— GRAPHEMISING —————")
 
    local graphemes = {}
 
    while mw.ustring.len(word) > 0 do
        local limit = mw.ustring.len(word)
 
        for i = 1, limit do
            local orig_string = mw.ustring.sub(word, i)
            local check_string = mw.ustring.lower(orig_string)
 
            if irregular[check_string] then
                --mw.log("Irregular spelling recognised: " .. orig_string)
                local capitals = {}
 
                -- get capital data --
                for j = 1, #orig_string do
                    if mw.ustring.sub(orig_string, j, j) == mw.ustring.upper(mw.ustring.sub(check_string, j, j)) then
                        capitals[j] = true
                    end
                end
 
                -- ammend irregular data to match capitals --
                local index = 1
                for j = 1, #irregular[check_string] do
                    local new_data = ""
 
                    for k = 1, #irregular[check_string][j] do
                        local letter = mw.ustring.sub(irregular[check_string][j], k, k)
 
                        if capitals[index] then
                            letter = mw.ustring.upper(letter)
                        end
 
                        new_data = new_data .. letter
                        index = index + 1
                    end
 
                    irregular[check_string][j] = new_data
                end
 
                for j = 0, #irregular[check_string] - 1 do
                    table.insert(graphemes, 1, irregular[check_string][#irregular[check_string] - j])
                    --mw.log("<" .. irregular[check_string][#irregular[check_string] - j] .. "> logged.")
                end
                word = mw.ustring.sub(word, 1, i - 1)
                break
            elseif grapheme[check_string] then
                table.insert(graphemes, 1, orig_string)
                --mw.log("<" .. orig_string .. "> logged.")
                word = mw.ustring.sub(word, 1, i - 1)
                break
            elseif mw.ustring.len(check_string) == 1 then
                table.insert(graphemes, 1, orig_string)
                --mw.log("<" .. orig_string .. "> logged.")
                word = mw.ustring.sub(word, 1, i - 1)
                break
            end
        end
    end


local graphemes = {}
    --mw.log("String exhausted.")
while mw.ustring.len(word) > 0 do
local limit = mw.ustring.len(word)
for i = 1, limit do
local orig_string = mw.ustring.sub(word, i)
local check_string = mw.ustring.lower(orig_string)
if irregular[check_string] then
--mw.log("Irregular spelling recognised: " .. orig_string)
local capitals = {}
-- get capital data --
for j = 1, #orig_string do
if mw.ustring.sub(orig_string, j, j) == mw.ustring.upper(mw.ustring.sub(check_string, j, j)) then
capitals[j] = true
end
end
-- ammend irregular data to match capitals --
local index = 1
for j = 1, #irregular[check_string] do
local new_data = ""
for k = 1, #irregular[check_string][j] do
local letter = mw.ustring.sub(irregular[check_string][j], k, k)
if capitals[index] then
letter = mw.ustring.upper(letter)
end
new_data = new_data .. letter
index = index + 1
end
irregular[check_string][j] = new_data
end
for j = 0, #irregular[check_string] - 1 do
table.insert(graphemes, 1, irregular[check_string][#irregular[check_string] - j])
--mw.log("<" .. irregular[check_string][#irregular[check_string] - j] .. "> logged.")
end
word = mw.ustring.sub(word, 1, i - 1)
break
elseif grapheme[check_string] then
table.insert(graphemes, 1, orig_string)
--mw.log("<" .. orig_string .. "> logged.")
word = mw.ustring.sub(word, 1, i - 1)
break
elseif mw.ustring.len(check_string) == 1 then
table.insert(graphemes, 1, orig_string)
--mw.log("<" .. orig_string .. "> logged.")
word = mw.ustring.sub(word, 1, i - 1)
break
end
end
end
--mw.log("String exhausted.")


--mw.log("<" .. table.concat(graphemes, "><") .. ">")
    --mw.log("<" .. table.concat(graphemes, "><") .. ">")
return graphemes
    return graphemes
end
end


function syllabify(graphemes)
function syllabify(graphemes)
--mw.log("————— SYLLABIFYING —————")
    --mw.log("————— SYLLABIFYING —————")
 
for _, g in ipairs(irregular_grapheme) do
    for _, g in ipairs(irregular_grapheme) do
grapheme[g] = true
        grapheme[g] = true
end
    end
for _, g in ipairs(irregular_vowel) do
    for _, g in ipairs(irregular_vowel) do
vowel[g] = true
        vowel[g] = true
end
    end
 
local function swap(Pos1, Pos2)
    local function swap(Pos1, Pos2)
--mw.log(graphemes[Pos1] .. " ↔ " .. graphemes[Pos2] .. " at position " .. Pos1)
        --mw.log(graphemes[Pos1] .. " ↔ " .. graphemes[Pos2] .. " at position " .. Pos1)
local temp = graphemes[Pos1]
        local temp = graphemes[Pos1]
graphemes[Pos1] = graphemes[Pos2]
        graphemes[Pos1] = graphemes[Pos2]
graphemes[Pos2] = temp
        graphemes[Pos2] = temp
end
    end
 
    local i = 1


local i = 1
    while true do -- add σ before each vowel
        if graphemes[i] == nil then
while true do -- add σ before each vowel
            break
        end
if graphemes[i] == nil then break end
 
        if vowel[mw.ustring.lower(graphemes[i])] then
if vowel[mw.ustring.lower(graphemes[i])] then
            table.insert(graphemes, i, "σ")
table.insert(graphemes, i, "σ")
            --mw.log("σ inserted in position " .. i)
--mw.log("σ inserted in position " .. i)
            i = i + 2
i = i + 2
        else
else
            i = i + 1
i = i + 1
        end
end
    end
end
 
    i = #graphemes
i = #graphemes
    while true do
while true do
        local g_current = graphemes[i]
local g_current = graphemes[i]
        local g_after = graphemes[i + 1]
local g_after = graphemes[i+1]
        local g_prev = graphemes[i - 1]
local g_prev = graphemes[i-1]
        local g_prev2 = graphemes[i - 2]
local g_prev2 = graphemes[i-2]
        local g_prev3 = graphemes[i - 3]
local g_prev3 = graphemes[i-3]
 
        if g_current then
if g_current then
            g_current = mw.ustring.lower(g_current)
g_current = mw.ustring.lower(g_current)
        end
end
        if g_after then
if g_after then
            g_after = mw.ustring.lower(g_after)
g_after = mw.ustring.lower(g_after)
        end
end
        if g_prev then
if g_prev then
            g_prev = mw.ustring.lower(g_prev)
g_prev = mw.ustring.lower(g_prev)
        end
end
        if g_prev2 then
if g_prev2 then
            g_prev2 = mw.ustring.lower(g_prev2)
g_prev2 = mw.ustring.lower(g_prev2)
        end
end
        if g_prev3 then
if g_prev3 then
            g_prev3 = mw.ustring.lower(g_prev3)
g_prev3 = mw.ustring.lower(g_prev3)
        end
end
 
        -- J ↔ σ
-- J ↔ σ
        if glide[g_prev] and g_current == "σ" and vowel[g_after] then
if glide[g_prev] and g_current == "σ" and vowel[g_after] then
            -- (J · ) ↔ σ
swap(i, i-1)
            swap(i, i - 1)
        elseif glide[g_prev2] and affix[g_prev] and g_current == "σ" and vowel[g_after] then
-- (J · ) ↔ σ
            -- C ↔ σ (J)
elseif glide[g_prev2] and affix[g_prev] and g_current == "σ" and vowel[g_after] then
            swap(i, i - 1)
swap(i, i-1)
            swap(i - 1, i - 2)
swap(i-1, i-2)
        elseif
            consonant[g_prev] and g_current == "σ" and (vowel[g_after] or glide[g_after]) and
-- C ↔ σ (J)
                not (g_prev == "j" and g_after == "j")
elseif consonant[g_prev] and g_current == "σ" and (vowel[g_after] or glide[g_after]) and not (g_prev == "j" and g_after =="j") then
        then
swap(i, i-1)
            swap(i, i - 1)
        elseif
elseif consonant[g_prev2] and affix[g_prev] and g_current == "σ" and (vowel[g_after] or glide[g_after]) and not (g_prev2 == "j" and g_after =="j") then
            consonant[g_prev2] and affix[g_prev] and g_current == "σ" and (vowel[g_after] or glide[g_after]) and
swap(i, i-1)
                not (g_prev2 == "j" and g_after == "j")
swap(i-1, i-2)
        then
            -- C Cᵥ ↔ σ v
-- C Cᵥ ↔ σ v
            swap(i, i - 1)
            swap(i - 1, i - 2)
elseif consonant[g_prev2] and Cv[g_prev] and g_current == "σ" and g_after == "v" then
        elseif consonant[g_prev2] and Cv[g_prev] and g_current == "σ" and g_after == "v" then
swap(i, i-1)
            swap(i, i - 1)
        elseif consonant[g_prev3] and Cv[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "v" then
elseif consonant[g_prev3] and Cv[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "v" then
            -- Bv ↔ σ v
swap(i, i-1)
            swap(i, i - 1)
swap(i-1, i-2)
            swap(i - 1, i - 2)
        elseif Cv_fixed[g_prev] and g_current == "σ" and g_after == "v" then
-- Bv ↔ σ v
            swap(i, i - 1)
elseif Cv_fixed[g_prev] and g_current == "σ" and g_after == "v" then
        elseif Cv_fixed[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "v" then
swap(i, i-1)
            -- C Cₙ ↔ σ N
            swap(i, i - 1)
elseif Cv_fixed[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "v" then
            swap(i - 1, i - 2)
swap(i, i-1)
        elseif consonant[g_prev2] and CN[g_prev] and g_current == "σ" and nasal[g_after] then
swap(i-1, i-2)
            swap(i, i - 1)
        elseif consonant[g_prev3] and CN[g_prev2] and affix[g_prev] and g_current == "σ" and nasal[g_after] then
-- C Cₙ ↔ σ N
            -- C Cᵣ ↔ σ r
elseif consonant[g_prev2] and CN[g_prev] and g_current == "σ" and nasal[g_after] then
            swap(i, i - 1)
swap(i, i-1)
            swap(i - 1, i - 2)
        elseif consonant[g_prev2] and Cr[g_prev] and g_current == "σ" and g_after == "r" then
elseif consonant[g_prev3] and CN[g_prev2] and affix[g_prev] and g_current == "σ" and nasal[g_after] then
            swap(i, i - 1)
swap(i, i-1)
        elseif consonant[g_prev3] and Cr[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "r" then
swap(i-1, i-2)
            -- C Cₗ ↔ σ l
            swap(i, i - 1)
-- C Cᵣ ↔ σ r
            swap(i - 1, i - 2)
elseif consonant[g_prev2] and Cr[g_prev] and g_current == "σ" and g_after == "r" then
        elseif consonant[g_prev2] and Cl[g_prev] and g_current == "σ" and g_after == "l" then
swap(i, i-1)
            swap(i, i - 1)
        elseif consonant[g_prev3] and Cl[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "l" then
elseif consonant[g_prev3] and Cr[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "r" then
            -- Cs ↔ σ S
swap(i, i-1)
            swap(i, i - 1)
swap(i-1, i-2)
            swap(i - 1, i - 2)
        elseif Cs[g_prev] and g_current == "σ" and sibilant[g_after] then
-- C Cₗ ↔ σ l
            swap(i, i - 1)
elseif consonant[g_prev2] and Cl[g_prev] and g_current == "σ" and g_after == "l" then
        elseif Cs[g_prev2] and affix[g_prev] and g_current == "σ" and sibilant[g_after] then
swap(i, i-1)
            swap(i, i - 1)
            swap(i - 1, i - 2)
elseif consonant[g_prev3] and Cl[g_prev2] and affix[g_prev] and g_current == "σ" and g_after == "l" then
        elseif g_current == "σ" then
swap(i, i-1)
            if i == 1 then
swap(i-1, i-2)
                table.remove(graphemes, 1)
            else
-- Cs ↔ σ S
                for j = 1, i - 1 do
elseif Cs[g_prev] and g_current == "σ" and sibilant[g_after] then
                    if vowel[mw.ustring.lower(graphemes[i - j])] or graphemes[i - j] == "σ" then
swap(i, i-1)
                        break
                    elseif i - j == 1 then
elseif Cs[g_prev2] and affix[g_prev] and g_current == "σ" and sibilant[g_after] then
                        table.remove(graphemes, i)
swap(i, i-1)
                        break
swap(i-1, i-2)
                    elseif not affix[graphemes[i - j]] and not consonant[mw.ustring.lower(graphemes[i - j])] then
                        table.remove(graphemes, i)
elseif g_current == "σ" then
                        break
if i == 1 then
                    end
table.remove(graphemes, 1)
                end
else
            end
for j = 1, i-1 do
        end
if vowel[mw.ustring.lower(graphemes[i - j])] or graphemes[i - j] == "σ" then
 
break
        if i > 1 then
elseif i - j == 1 then
            i = i - 1
table.remove(graphemes, i)
        else
break
            break
elseif not affix[graphemes[i-j]] and not consonant[mw.ustring.lower(graphemes[i-j])] then
        end
table.remove(graphemes, i)
    end
break
 
end
    return graphemes
end
end
end
if i > 1 then
i = i - 1
else break
end
end
return graphemes
end
end


function export.generate(frame)
    local args = getArgs(frame)
    if args[1] == nil then
        error("Word needed")
    end


function export.generate(frame)
    local outputSyllables = args[1]
local args = getArgs(frame)
 
    outputSyllables = graphemise(outputSyllables)
if args[1] == nil then
    outputSyllables = syllabify(outputSyllables)
error("Word needed")
 
end
    local divider = args[2]
 
local outputSyllables = args[1]
    if divider == nil then
        divider = "|"
outputSyllables = graphemise(outputSyllables)
    end
outputSyllables = syllabify(outputSyllables)
local divider = args[2]
if divider == nil then
divider = "|"
end


outputSyllables = table.concat(outputSyllables)
    outputSyllables = table.concat(outputSyllables)
outputSyllables = mw.ustring.gsub(outputSyllables, "(σ)", divider)
    outputSyllables = mw.ustring.gsub(outputSyllables, "(σ)", divider)


return outputSyllables
    return outputSyllables
end
end


function export.generate_array(frame)
function export.generate_array(frame)
local args = getArgs(frame)
    local args = getArgs(frame)
 
if args[1] == nil then
    if args[1] == nil then
error("Word needed")
        error("Word needed")
end
    end
 
local outputSyllables = args[1]
    local outputSyllables = args[1]
 
outputSyllables = graphemise(outputSyllables)
    outputSyllables = graphemise(outputSyllables)
outputSyllables = syllabify(outputSyllables)
    outputSyllables = syllabify(outputSyllables)
 
return outputSyllables
    return outputSyllables
end
end


Retrieved from ‘https://wiki.laenkea.si/wiki/Special:MobileDiff/21663’

Navigation menu