Modul:etymologi

local st = require("Modul:string")
local lk = require("Modul:link")
local lg = require("Modul:lang")
local export = {}


function export.getWikitext(a)
    local terms = {a.args.term1, a.args.term2, a.args.term3, a.args.term4, a.args.term5}
    local trans = {a.args.tr1, a.args.tr2, a.args.tr3, a.args.tr4, a.args.tr5}
    local lang_code = a.args.lang
    local language = lg.getLanguage(lang_code)

    if(language == "bokmål" or language == "nynorsk" or language == "riksmål") then
        language = "norsk"
    end

    local text = ""
    local cats = ""

    local test_sams = 0

    for i,v in ipairs(terms) do
        local tr = ""
        if (not (trans[i] == "")) then
            tr = " («" .. trans[i] .. "») "  
        end

        if (not (v == "")) then
            if (i > 1) then
                text = text .. " + "
            end
            text = text .. "''" .. lk.link(v, lang_code) .. "''" .. tr
            local first = st.pos({args={v, 1}})
            local last = st.pos({args={v, -1}})

            if(first == "-" and last == "-") then
                cats = cats .. "[[Kategori:Ord i " .. language .. " dannet av infikset «" .. v .. "»]]"
            elseif(first == "-") then
                cats = cats .. "[[Kategori:Ord i " .. language .. " dannet av suffikset «" .. v .. "»]]"
                test_sams = 0
            elseif(last == "-") then
                cats = cats .. "[[Kategori:Ord i " .. language .. " dannet av prefikset «" .. v .. "»]]"
                test_sams = 0
            else
                test_sams = test_sams + 1
                if(test_sams == 2) then
                    cats = cats .. "[[Kategori:Sammensatte ord i " .. language .. "]]"
                end
            end
        end
    end

    return text .. cats
end

return export