Module:rad-stem

See Module:rad-stem/templates.

---

local export = {}
local getArgs = require("Module:Arguments").getArgs
local m_table = require("Module:table")

local V = "aáàâảeéèiíìỉoóòøuúùûūủyýỳỷ"
local C = "bcdðfghħjĵkķlmnņpqrsștvwxzþ°"
local O_voiced = "bdðgħvxz"
local O_unvoiced = "cfhkķpqsștþ"
local O = O_voiced .. O_unvoiced
local N = "mnņ"
local L = "lr"
local R = L .. N
local J = "jĵw"

stem_data = {
    -- heavy stems --
    ["b"] = "C",
    ["c"] = "C",
    ["d"] = "C",
    ["ð"] = "C",
    ["dz"] = "C",
    ["f"] = "C",
    ["g"] = "C",
    ["h"] = "C",
    ["ħ"] = "C",
    ["j"] = "C",
    ["k"] = "C",
    ["ķ"] = "C",
    ["l"] = "C",
    ["m"] = "C",
    ["n"] = "C",
    ["ņ"] = "C",
    ["p"] = "C",
    ["r"] = "C",
    ["s"] = "C",
    ["ș"] = "C",
    ["t"] = "C",
    ["v"] = "C",
    ["x"] = "C",
    ["z"] = "C",
    ["þ"] = "C",
    -- heavy spirants --
    ["bH"] = "CH",
    ["cH"] = "CH",
    ["dH"] = "CH",
    ["ðH"] = "CH",
    ["dzH"] = "CH",
    ["fH"] = "CH",
    ["gH"] = "CH",
    ["jH"] = "CH",
    ["kH"] = "CH",
    ["lḤ"] = "CH",
    ["mḤ"] = "CH",
    ["nḤ"] = "CH",
    ["ņḤ"] = "CH",
    ["pH"] = "CH",
    ["rḤ"] = "CH",
    ["sH"] = "CH",
    ["șH"] = "CH",
    ["tH"] = "CH",
    ["vH"] = "CH",
    ["xH"] = "CH",
    ["zH"] = "CH",
    ["þH"] = "CH",
    -- semi-light --
    ["a^eG"] = "G",
    ["a^oG"] = "G",
    ["eG"] = "G",
    ["G"] = "G",
    ["ieG"] = "G",
    ["iG"] = "G",
    ["oG"] = "G",
    ["øG"] = "G",
    ["uG"] = "G",
    ["yG"] = "G",
    ["yeG"] = "G",
    -- light --
    ["a"] = "V",
    ["a^e"] = "V",
    ["a^o"] = "V",
    ["ai"] = "V",
    ["au"] = "V",
    ["e"] = "V",
    ["i"] = "V",
    ["ie"] = "V",
    ["iè"] = "V",
    ["nj^e"] = "V",
    ["o"] = "V",
    ["o*"] = "V",
    ["ø"] = "V",
    ["t^o"] = "V",
    ["ķ^o"] = "V",
    ["u"] = "V",
    ["ù"] = "V",
    ["y"] = "V",
    -- light spirant --
    ["H"] = "VH",
    ["HH"] = "VH",
    ["Ḥ"] = "VH",
    ["ḤḤ"] = "VH"
}

light_noun_data = {
    -- NOM, V, ^V, dat, acc, ins, pl, voc
    ["a"] = {"a", "a", "a", "an", "ast"},
    ["a^e"] = {"Ra", "a", "e", "an", "ast"},
    ["a^o"] = {"Ra", "a", "u", "an", "ast"},
    ["ai"] = {"ai", "ai"},
    ["áj"] = {"áj", "áj"},
    ["au"] = {"au", "au"},
    ["e"] = {"Ra", "e", "=i"},
    ["i"] = {"Re", "=i"},
    ["ie"] = {"íRa", "ie"},
    ["iè"] = {"ia", "iè"},
    ["o"] = {"Ra", "o", "u", "un", "ust"},
    ["o*"] = {"o*", "o", "o*", "on*", "ost*"},
    ["ø"] = {"Ra", "ø", "y"},
    ["u"] = {"Re", "u"},
    ["ù"] = {"ù", "ù"},
    ["y"] = {"Re", "y"},
    ["a^eG"] = {"ár", "í", "á", "ád", "aúr", "ai", "áse"},
    ["a^oG"] = {"ár", "ív", "á", "ád", "aúr", "ai", "áse"},
    ["eG"] = {"ír", "í", "ea", "íd", "eúr", "í", "íse"},
    ["iG"] = {"ír", "í", "ea", "íd", "iúr", "í", "íse"},
    ["ieG"] = {"ỉr", "ỉ", "iea", "ỉd", "ieúr", "ỉ", "ỉse"},
    ["oG"] = {"úr", "ív", "oa", "úd", "oúr", "í", "úse"},
    ["øG"] = {"ýr", "ýj", "øa", "ýd", "øúr", "ý", "ýse"},
    ["uG"] = {"úr", "ív", "oa", "úd", "ủr", "í", "úse"},
    ["yG"] = {"ýr", "ýj", "øa", "ýd", "yúr", "ý", "ýse"},
    ["yeG"] = {"ỷr", "ỷ", "yea", "ỷd", "yeúr", "ỷ", "ỷse"},
    ["G"] = {"jr", "j", "a", "x", "úr", "j", "șe"}
}

pos_data = {"noun", "verb"}

-- this function resolves all consonant clashes
function resolve_ending(resolution)
    local function resolve(to_Match, to_Replace)
        if mw.ustring.find(resolution, to_Match) then
            resolution = mw.ustring.gsub(resolution, to_Match, to_Replace)
        -- mw.log( "/" .. to_Match .. "/ → " .. to_Replace .. " : " .. resolution )
        end
    end

    -- resolve heavy spirant stems --

    resolve("", "")

    resolve("([^Ḥ])Ḥ%=e", "%1ge")
    resolve("(ỉ[HḤ][HḤ]?%=e)$", "ỉè")
    resolve("(ie[HḤ][HḤ]?%=e)$", "íe")
    resolve("(ye[HḤ][HḤ]?%=e)$", "ýe")
    resolve("(a[HḤ][HḤ]?%=e)$", "ai")
    resolve("(e[HḤ][HḤ]?%=e)$", "ei")
    resolve("(ø[HḤ][HḤ]?%=e)$", "øi")
    resolve("(i[HḤ][HḤ]?%=e)$", "iè")
    resolve("(y[HḤ][HḤ]?%=e)$", "yè")
    resolve("(â[HḤ][HḤ]%=e)$", "âi")

    resolve("(ỉH%=i%=s)", "ỉes")
    resolve("(ieH%=i%=s)", "ies")
    resolve("(ieH%=i)", "eí")
    resolve("([ei][HḤ]%=i)", "=í")
    resolve("([íỉ][HḤ]%=i)", "ỉ")
    resolve("([øy][HḤ]%=i)", "=ý")
    resolve("(ý[HḤ]%=i)", "ỷ")

    resolve("([ouû]H%=[ei])", "ui")
    resolve("([ouû]H%=se)", "ûse")
    resolve("(aH%=[ei])", "ai")
    resolve("([" .. V .. "])H%=[ei]", "%1j=e")
    resolve("ieH%=([aú])", "eív=%1")
    resolve("([" .. V .. "])H%=([aú])", "%1v=%2")

    -- resolve semi-light and light spirant stems
    resolve("(%=ý%=s)$", "yes")
    resolve("(%=ú%=s)$", "uos")
    resolve("(%=ỉ%=s)$", "ỉes")
    resolve("([" .. C .. "][" .. C .. "])%=í%=s$", "%1ies")
    resolve("([jșķx])%=í%=s$", "%1ies")
    resolve("(%=í%=s)$", "jes")

    -- resolve light stems
    resolve("%=tr", "t=s")
    resolve("%=njr", "nj=s")
    resolve("aij%=R([ae])$", "aí%1")
    resolve("([^a])uv%=R([ae])$", "%1ú=%2")
    resolve("([^au])ov%=R([ae])$", "%1ú=%2")
    resolve("^[ou]v%=R([ae])$", "ú=%1")
    resolve("[ùò]v%=R([ae])$", "ú%1")
    resolve("uav%=Ra$", "uò=Ra")
    resolve("([^eoø])av%=Ra$", "%1o=Ra")
    resolve("uav%=(R?e)$", "uò=%1")
    resolve("([^eoø])av%=(R?e)$", "%1o=%2")
    resolve("([oò])%=Ra$", "%1à")

    -- resolve spirants
    resolve("ḤḤ%=g", "=k")
    resolve("ḤḤ%=d", "=t")
    resolve("ḤḤ%=s", "=s")
    resolve("ḤḤ%=a", "=à")
    resolve("ḤḤ%=úr", "úr")
    resolve("ḤḤ%=e", "=e")
    resolve("ḤḤ%=i", "=șe")

    resolve("HH%=g", "=ak")
    resolve("HH%=d", "=at")
    resolve("HH%=s", "=as")
    resolve("HH%=a", "=à")
    resolve("HH%=úr", "úr")
    resolve("HH%=e", "=e")
    resolve("HH%=i", "=așe")
    resolve("y%=à$", "ya")
    resolve("y%=a$", "øa")
    resolve("i%=à$", "ia")
    resolve("i%=a$", "ea")
    resolve("u%=à$", "ua")
    resolve("u%=a$", "oa")
    resolve("[aà]%=[aà]", "á")
    resolve("[áả]%=[aà]", "ả")
    resolve("â%=([aàáả])", "o%1")

    resolve("kH%=g", "k")
    resolve("kH%=d", "kt")
    resolve("[ḤH]%=g", "g")
    resolve("[ḤH]%=([ds])", "=%1")
    resolve("Ḥ%=i", "j=i")
    resolve("H%=i", "ș=i")
    resolve("Ḥ%=([" .. V .. "])", "g%1")
    
    -- resolve =g/=d
    resolve("([rvħh])%=g", "%1=u")
    resolve("(j%=g)", "j")
    resolve("(j%=d)", "x")

    resolve("([pf]%=g)", "f")
    resolve("([pf]%=d)", "f=t")
    resolve("(g%=g)", "g")
    resolve("(k%=g)", "k")
    resolve("(k%=d)", "t")

    resolve("(m%=g)", "n=g")

    resolve("b%=([gd])", "v=%1")

    resolve("(j[ctþ]%=g)", "ș=k")
    resolve("(j[ctþ]%=d)", "ș=t")

    resolve("j[dð]%=([gd])", "x=%1")
    resolve("jdz%=([gd])", "x=%1")

    resolve("([sș]?[șķ]%=g)", "ș=k")
    resolve("([sș]?[șķ]%=d)", "ș=t")

    resolve("[zx]?d?x%=([gd])", "x=%1")

    resolve("(s?[cstþ]%=g)", "s=k")
    resolve("(s?[cstþ]%=d)", "s=t")

    resolve("z?[zdð]%=([gd])", "z=%1")
    resolve("z?dz%=([gd])", "z=%1")

    resolve("([" .. C .. "])[mnņ]%=([gd])", "%1=%2")

    -- resolve =s
    resolve("([^a])u([sș])%=se", "%1û%2e")
    resolve("([sș])%=s", "%1")
    resolve("j%=s", "ș")

    -- resolve VvC
    resolve("([^eoø])av%=([^" .. V .. "])", "%1au=%2")
    resolve("^av%=([^" .. V .. "])", "au=%1")
    resolve("(àv%=)", "au=")

    resolve("([^a])uv%=([^" .. V .. "])", "%1ú=%2")
    resolve("([^au])ov%=([^" .. V .. "])", "%1ú=%2")
    resolve("^[ou]v%=([^" .. V .. "])", "ú=%1")
    resolve("([òù]v%=)", "ú=")

    resolve("([^iy])ev%=([^" .. V .. "])", "%1ø=%2")
    resolve("^ev%=([^" .. V .. "])", "ø=%1")
    resolve("(èv%=)", "ø=")

    resolve("([^aeuøuâ])iv%=([^" .. V .. "])", "%1y=%2")
    resolve("^iv%=([^" .. V .. "])", "y=%1")
    resolve("(ìv%=)", "y=")

    -- resolve CvC
    -- resolve("mv%=([" .. C .. "])","nu=%1")
    resolve("([" .. C .. "])v%=([" .. C .. "])", "%1u=%2")
    resolve("vv%=([aiuú])", "v=%1")
    resolve("([" .. C .. "])v%=R?e$", "%1u=i")
    resolve("([" .. C .. "])v%=Ra$", "%1u=a")

    -- resolve -ûve → -úe
    resolve("ûv%=R?e", "ú=e")
    resolve("ûv%=R?e", "ú=e")

    -- resolve aja, ava
    resolve("([^eoø])a[vj]%=a", "%1á")
    resolve("(à[vj]%=a)", "á")

    -- resolve f/þ~v/ð
    resolve("([" .. V .. O .. L .. J .. "])f%=([" .. V .. J .. "])", "%1v=%2")
    resolve("([" .. V .. O .. L .. J .. "])þ%=([" .. V .. J .. "])", "%1ð=%2")

    -- resolve k/g + front vowel
    resolve("k%=([ie])", "c=%1")
    resolve("g%=([ie])", "dz=%1")

    -- resolve palatal + i
    resolve("([jșxķ])%=i", "%1=e")

    -- resolve misc.
    resolve("(v%=g)", "v")
    resolve("[HḤ][HḤ]%=", "=")
    resolve("[HḤ]%=", "=")
    resolve("au°?%=R?a", "o=à")
    resolve("au°?%=R?([" .. V .. "])", "o=%1")
    resolve("%=(%S*)R", "=%1")
    resolve("(%=)", "")
    resolve("(°)", "")

    return resolution
end

function export.getNounStem(args) -- rad-inflection|pos|principle_part| 3 | 4 | 5, outputs table of principle parts
    local principle_parts = {
        ["nom"] = "",
        ["voc"] = "",
        ["gen"] = "",
        ["dat"] = "",
        ["acc"] = "",
        ["ins"] = "",
        ["nompl"] = "",
        ["genpl"] = "",
        ["genpl_short"] = "",
        ["anim"] = ""
    }

    local stem = ""
    local stem_broken = ""
    local stem_broken_e = ""
    local stem_raised = ""
    local ending = ""

    -- create stem and ending parameters --
    --mw.log("Parameters:")
    if stem_data[args[4]] or stem_data[args[5]] or stem_data[args[6]] then
        local v_index = 4 -- max nucleus position

        while true do
            if mw.ustring.find(args[v_index], "([%^%~])") and args[v_index + 1] ~= nil then
                if mw.ustring.find(args[v_index], "([%^])") then
                    stem = mw.ustring.match(args[v_index], "([^%^]+)%^") or ""
                    stem_raised = mw.ustring.match(args[v_index], "%^([^%^]+)")
                else
                    stem = args[v_index]
                    stem_raised = args[v_index]
                end
                if mw.ustring.find(stem, "([%~])") then
                    stem_broken = mw.ustring.match(stem, "%~([^%~%^]+)")
                    stem = mw.ustring.match(stem, "([^%~]+)%~")
                    if stem_raised == args[v_index] then
                        stem_raised = stem
                    end
                else
                    stem_broken = stem
                end
                break
            else
                if mw.ustring.find(V, mw.ustring.sub(args[v_index], -1)) and args[v_index + 1] ~= nil then
                    stem = args[v_index]
                    stem_raised = stem
                    stem_broken = stem
                    break
                elseif v_index == 3 then
                    stem = args[3]
                    stem_raised = stem
                    stem_broken = stem
                    break
                else
                    v_index = 3
                end
            end
        end

        if stem_broken == "u" then
            stem_broken_e = "û"
        else
            stem_broken_e = stem_broken
        end

        if v_index > 3 then
            stem = args[v_index - 1] .. stem
            stem_broken = args[v_index - 1] .. stem_broken
            stem_broken_e = args[v_index - 1] .. stem_broken_e
            stem_raised = args[v_index - 1] .. stem_raised
        end

        if args[v_index + 2] ~= nil then
            ending = args[v_index + 2]

            stem = stem .. args[v_index + 1]
            stem_broken = stem_broken .. args[v_index + 1]
            stem_broken_e = stem_broken_e .. args[v_index + 1]
            stem_raised = stem_raised .. args[v_index + 1]
        elseif args[v_index + 1] ~= nil then
            ending = args[v_index + 1]
        elseif stem_data[args[v_index]] then
            ending = args[v_index]
            stem = ""
            stem_broken = ""
            stem_broken_e = ""
            stem_raised = ""
        else
            error("No valid ending detected")
        end
    elseif stem_data[args[3]] then
        ending = args[3]
        stem = ""
        stem_broken = ""
        stem_broken_e = ""
        stem_raised = ""
    else
        error("Invalid format: Please format the arguments as hv|o~u^u|þ, dv|a^u|n|þ, he|rḤ or lorál|eH")
    end

    if stem_data[ending] == "C" or stem_data[ending] == "CH" or stem_data[ending] == "VH" then
        stem = stem .. ending
        stem_broken = stem_broken .. ending
        stem_broken_e = stem_broken_e .. ending
        stem_raised = stem_raised .. ending
    end
     --

    --[[
	mw.log("Stem: " .. stem)
	if stem_broken then mw.log("Broken stem: " .. stem_broken ) end
	if stem_broken_e then mw.log("Broken stem (û): " .. stem_broken_e ) end
	if stem_raised then mw.log("Raised stem: " .. stem_raised ) end
	mw.log("Ending: " .. ending)
	]] -- generate endings from declension type --

    -- HEAVY AND HEAVY SPIRANT --
    if stem_data[ending] == "C" or stem_data[ending] == "CH" or stem_data[ending] == "VH" then
        -- LIGHT --
        if
            ending == "j" and
                not (mw.ustring.sub(stem, -2) == "oj" and mw.ustring.sub(stem, -3) ~= "aoj" and
                    mw.ustring.sub(stem, -3) ~= "uoj")
         then
            principle_parts["nom"] = stem .. "=s"
            principle_parts["acc"] = stem .. "=d"
            principle_parts["voc"] = stem .. "=se"
        else
            principle_parts["nom"] = stem_broken .. "=s"
            principle_parts["acc"] = stem_broken .. "=d"
            principle_parts["voc"] = stem_broken .. "=se"
        end
        if (ending == "v" or ending == "r") and stem_raised == stem then
            principle_parts["gen"] = stem .. "=g"
        elseif stem_raised ~= stem then
            principle_parts["gen"] = stem_raised .. "=g"
        else
            principle_parts["gen"] = stem_broken .. "=g"
        end
        principle_parts["dat"] = stem .. "=a"
        principle_parts["ins"] = stem .. "=úr"
        principle_parts["nompl"] = stem_broken_e .. "=e"
        principle_parts["genpl"] = stem .. "=i"
        principle_parts["genpl_short"] = principle_parts["genpl"] .. "=s"
        principle_parts["anim"] = stem --for adjs only
    elseif ending == "nj^e" then
        principle_parts["nom"] = stem_broken .. "nș"
        principle_parts["voc"] = stem_broken .. "nșe"
        principle_parts["gen"] = stem_broken_e .. "njesk"
        principle_parts["dat"] = stem_broken_e .. "=" .. "nja"
        principle_parts["acc"] = stem_broken .. "nșt"
        principle_parts["ins"] = stem .. "nivúr"
        principle_parts["nompl"] = stem_broken .. "nxe"
        principle_parts["genpl"] = stem_broken_e .. "nje"
        principle_parts["genpl_short"] = stem_broken_e .. "nje=s"
    elseif mw.ustring.match(ending, "^[tķ]%^o$") then
    	local temp_stem = mw.ustring.match(ending, "^([tķ])%^o$")
        principle_parts["nom"] = stem_broken .. temp_stem .. "s"
        principle_parts["voc"] = stem_broken .. temp_stem .. "se"
        principle_parts["gen"] = stem .. temp_stem .. "usk"
        principle_parts["dat"] = stem .. temp_stem .. "a"
        principle_parts["acc"] = stem_broken .. temp_stem .. "st"
        principle_parts["ins"] = stem_broken .. temp_stem .. "vúr"
        principle_parts["nompl"] = stem_broken .. temp_stem .. "se"
        principle_parts["genpl"] = stem_broken .. temp_stem .. "s"
        principle_parts["genpl_short"] = stem .. temp_stem .. "u=s"
    elseif stem_data[ending] == "V" then
        -- SEMI-LIGHT
        principle_parts["nom"] = stem_broken_e .. "=" .. light_noun_data[ending][1]
        principle_parts["voc"] = stem .. light_noun_data[ending][2] .. "se"
        principle_parts["gen"] = stem .. (light_noun_data[ending][3] or light_noun_data[ending][2]) .. "sk"
        principle_parts["dat"] = stem .. (light_noun_data[ending][4] or (light_noun_data[ending][2] .. "n"))
        principle_parts["acc"] = stem .. (light_noun_data[ending][5] or (light_noun_data[ending][2] .. "st"))
        principle_parts["ins"] = stem .. (light_noun_data[ending][6] or (light_noun_data[ending][2] .. "vúr"))
        principle_parts["nompl"] = stem .. light_noun_data[ending][2] .. "re"
        principle_parts["genpl"] = stem .. light_noun_data[ending][2]
        principle_parts["genpl_short"] = stem .. (light_noun_data[ending][3] or light_noun_data[ending][2]) .. "=s"
    elseif stem_data[ending] == "G" then
        principle_parts["nom"] = stem_broken .. light_noun_data[ending][1]
        principle_parts["voc"] = stem .. light_noun_data[ending][7]
        principle_parts["gen"] = stem_broken .. light_noun_data[ending][2]
        principle_parts["dat"] = stem .. light_noun_data[ending][3]
        principle_parts["acc"] = stem .. light_noun_data[ending][4]
        principle_parts["ins"] = stem .. light_noun_data[ending][5]
        principle_parts["nompl"] = stem_broken .. light_noun_data[ending][6] .. "re"
        principle_parts["genpl"] = stem_broken .. light_noun_data[ending][6]
        principle_parts["genpl_short"] = stem_broken .. "=" .. light_noun_data[ending][6] .. "=s"
    end

    --mw.log("——— Resolving ———")
    for part, infl in pairs(principle_parts) do
        principle_parts[part] = resolve_ending(infl)
    end

    principle_parts["type"] = stem_data[ending]

    --mw.logObject(principle_parts)
    return principle_parts
end

function export.getVerbStem(args) -- outputs table of principle parts
    if args["pre"] then
        for arg, value in pairs(args) do
            if arg ~= "pre" and arg ~= "t" and arg ~= "vstem" and not mw.ustring.match(arg, "note$") then
                args[arg] = args["pre"] .. value
            end
        end
    end

    local principle_parts = {
        ["inf"] = args[1],
        ["2s"] = args[2],
        ["pst"] = args[3],
        ["prespart"] = args[4],
        ["pspart"] = args[5],
        ["passinf"] = args[6],
        ["passprespart"] = args[7] or args[6]
    }

    if args["vstem"] then
        if args.vstem == "true" then
            principle_parts["vstem"] = true
        elseif args.vstem == "false" then
            principle_parts["vstem"] = false
        end
    elseif
        mw.ustring.match(principle_parts["2s"], "[^n]v$") and not mw.ustring.match(principle_parts["inf"], "ft$") and
            not mw.ustring.match(principle_parts["inf"], "aut$")
     then
        principle_parts["vstem"] = true
    else
        principle_parts["vstem"] = false
    end

    -- non-finite parameters
    if principle_parts.vstem then
        principle_parts["vnoun"] = args["vnoun"] or mw.ustring.gsub(principle_parts["2s"], "v$", "nș")
    else
        principle_parts["vnoun"] = args["vnoun"] or (mw.ustring.gsub(principle_parts["pspart"] .. "aș", "âaș$", "oàș"))
    end
    if mw.ustring.match(principle_parts["pspart"], "ru$") then
        principle_parts["pspart"] = mw.ustring.gsub(principle_parts["pspart"], "ru$", "rủ")
    else
        principle_parts["pspart"] = mw.ustring.gsub(principle_parts["pspart"] .. "ú", "[uú]ú$", "ủ")
    end

    -- nonpast parameters
    if args["1s"] then
        principle_parts["1s"] = args["1s"]
    else
        if principle_parts["vstem"] then
            principle_parts["1s"] = mw.ustring.gsub(principle_parts["2s"], "v$", "") .. "e"
        else
            principle_parts["1s"] = principle_parts["2s"] .. "e"
        end
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "([âø])e$", "%1i")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "([^eoø])ae$", "%1ai")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "([^i])ee$", "%1ei")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "([^aeuøâ])ie$", "%1iè")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "ye$", "yè")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "([^au])oe$", "%1ui")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "([^a])ue$", "%1ui")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "uave$", "uòe")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "([^eøo])ave$", "%1oe")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "iee$", "íe")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "yee$", "ýe")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "uoe$", "úe")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "aoe$", "aoi")
        principle_parts["1s"] = mw.ustring.gsub(principle_parts["1s"], "nve$", "nui")
    end
    if args["3s"] then
        principle_parts["3s"] = args["3s"]
    else
        principle_parts["3s"] = principle_parts["2s"] .. "ș"
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "([^eoø])aș$", "%1áș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "áș$", "ảș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "([^aeuøâ])iș$", "%1eaș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "([^i])eș$", "%1eaș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "([^a])uș$", "%1oaș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "([^au])oș$", "%1oaș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "aoș$", "aôș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "[øy]ș$", "øaș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "âș$", "oaș")
        if principle_parts["vstem"] then
            principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "vș$", "ș")
        end
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "[sș]ș$", "ș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "nvș$", "mș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "([^eoø])avș$", "%1auș")
        principle_parts["3s"] = mw.ustring.gsub(principle_parts["3s"], "([nņlr])gș$", "%1ș")
    end
    principle_parts["pl"] = args["pl"]
    principle_parts["a"] = args["a"] or mw.ustring.gsub(principle_parts["2s"] .. "a", "([eoø])a$", "%1à")
    principle_parts["a"] = mw.ustring.gsub(principle_parts["a"], "aa$", "á")
    principle_parts["a"] = mw.ustring.gsub(principle_parts["a"], "áa$", "ả")
    principle_parts["a"] = mw.ustring.gsub(principle_parts["a"], "âa$", "oà")
    if principle_parts["vstem"] then
        principle_parts["a"] = mw.ustring.gsub(principle_parts["a"], "ava$", "á")
    end
    --principle_parts["aa"] = args["aa"] --or mw.ustring.gsub(principle_parts["2s"] .. "á", "([^eoø])avá$", "%1áva")
    --principle_parts["ai"] = args["ai"] --or mw.ustring.gsub(principle_parts["2s"] .. "ai", "([^eoø])avai$", "%1áe")
    if principle_parts["vstem"] then
        principle_parts["depers"] = args["depers"] or mw.ustring.gsub(principle_parts["2s"], "v$", "")
    else
        principle_parts["depers"] = args["depers"]
        if principle_parts["depers"] then
            principle_parts["depers"] = mw.ustring.gsub(principle_parts["depers"], "([^eoø])av$", "%1au")
        end
    end
    --principle_parts["o"] = mw.ustring.gsub(principle_parts["2s"] .. "o", "([au])o$", "%1ò")
    local imp_temp = args["depers"]
    if imp_temp then
        if mw.ustring.match(imp_temp, "au$") then
            imp_temp = nil
        elseif mw.ustring.find(imp_temp, "[uú]$") then
            imp_temp = imp_temp .. "a"
        else
        	imp_temp = principle_parts["2s"] .. "a"
        end
    end
    if principle_parts["vstem"] then
        principle_parts["imp"] = args["imp"] or mw.ustring.gsub(principle_parts["2s"], "v$", "ja")
    else
        principle_parts["imp"] = args["imp"] or imp_temp or nil
    end
    if args["r"] then
        principle_parts["r"] = args["r"]
    else
        principle_parts["r"] = (principle_parts["depers"] or principle_parts["2s"]) .. "r"
        if principle_parts["vstem"] then
            principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "vr$", "r")
        end
        principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "([sș])r$", "%1tr")
        principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "([zx])r$", "%1dr")
        principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "rr$", "r")
        principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "nr$", "rr")
        principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "mr$", "mbr")
        principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "ņr$", "ņgr")
        principle_parts["r"] = mw.ustring.gsub(principle_parts["r"], "nvr$", "nur")
    end

    -- past parameters
    principle_parts["apst"] = args["apst"] or mw.ustring.gsub(principle_parts["pst"] .. "a", "([eoø])a$", "%1à")
    principle_parts["apst"] = mw.ustring.gsub(principle_parts["apst"], "aa$", "á")
    principle_parts["apst"] = mw.ustring.gsub(principle_parts["apst"], "áa$", "ả")
    principle_parts["apst"] = mw.ustring.gsub(principle_parts["apst"], "âa$", "oà")
    -- principle_parts["aipst"] = args["aipst"]
    principle_parts["epst"] = args["epst"]
    if args["rpst"] then
        principle_parts["rpst"] = args["rpst"]
    else
        principle_parts["rpst"] = principle_parts["pst"] .. "r"
        principle_parts["rpst"] = mw.ustring.gsub(principle_parts["rpst"], "([sș])r$", "%1tr")
        principle_parts["rpst"] = mw.ustring.gsub(principle_parts["rpst"], "([zx])r$", "%1dr")
        principle_parts["rpst"] = mw.ustring.gsub(principle_parts["rpst"], "rr$", "r")
        principle_parts["rpst"] = mw.ustring.gsub(principle_parts["rpst"], "nr$", "rr")
        principle_parts["rpst"] = mw.ustring.gsub(principle_parts["rpst"], "mr$", "mbr")
        principle_parts["rpst"] = mw.ustring.gsub(principle_parts["rpst"], "ņr$", "ņgr")
    end

    return principle_parts
end

function export.getStem(frame)
    local args = getArgs(frame)
    local word = mw.title.getCurrentTitle().subpageText
    local to_Return = ""

    if args[1] ~= nil and m_table.contains(pos_data, args[1]) then
        local pos = args[1]
    else
        local error_text = "Parameter 1 must be:"
        for i, _ in pairs(data) do
            error_text = error_text .. " [" .. i .. "]"
        end
        error(error_text)
    end

    if args[1] == "noun" then
        to_Return = export.getNounStem(args)[args[2]]
    elseif args[1] == "verb" then
        to_Return = export.getVerbStem(args)[args[2]]
    end

    return to_Return
end

return export

--[[
Debug console test string:
=p.getStem(mw.getCurrentFrame():newChild{title="whatever",args={"noun", "nom", "dv", "a^u", "n", "þ"}})
]]--