local export = {}

local sc = require("Module:scripts").getByCode("Arab")
local lang = require("Module:languages").getByCode("ajp")
local m_utilities = require("Module:utilities")
local m_links = require("Module:links")
local m_headword = require("Module:headword")
local rsplit = mw.text.split

function export.catfix() return m_utilities.catfix(lang, sc) end

local function link(term, tr, gloss, face, alt)
    if word == "" or word == "—" then
        return word
    else
        return m_links.full_link({
            term = term,
            alt = alt,
            lang = lang,
            tr = tr,
            sc = sc,
            gloss = gloss
        }, face)
    end
end

local function validateRoot(rootTable, joined_root)
    if type(rootTable) ~= "table" then error("rootTable is not a table", 2) end

    for i, letter in ipairs(rootTable) do
        if mw.ustring.len(letter) > 1 then
            error("'" .. letter .. "', the " .. ordinal[i] ..
                      " letter in the root '" .. joined_root ..
                      "' should be a single letter.")
        end
    end
end

function export.ajp_root(frame)
    local output = {}
    local categories = {}
    local title = mw.title.getCurrentTitle()
    local fulltitle = title.fullText
    local pagename = title.text
    local namespace = title.nsText

    local params = {
        [1] = {},
        ["nocat"] = {type = "boolean"},
        ["plain"] = {type = "boolean"},
        ["t"] = {},
        ["gloss"] = {alias_of = "t"},
        ["notext"] = {type = "boolean"},
        ["nolink"] = {type = "boolean"},
        ["sort"] = {},
        ["face"] = {}
    }

    local args = require("Module:parameters").process(frame:getParent().args,
                                                      params)
    local rootLetters = {}

    if not args[1] and namespace == "Template" then
        rootLetters = {"ك", "ت", "ب"}
    elseif args[1] then
        rootLetters = rsplit(args[1], " ")
    else
        rootLetters = rsplit(fulltitle, " ")
    end

    local joined_root = table.concat(rootLetters, " ")
    validateRoot(rootLetters, joined_root)

    if fulltitle == joined_root then
        table.insert(output, m_headword.full_headword(
                         {
                lang = lang,
                sc = sc,
                pos_category = "roots",
                categories = {},
                heads = {joined_root}
            }))

        table.insert(categories, "[[Category:南黎凡特阿拉伯語詞根|" .. (args["sort"] or joined_root) .. "]]")

        if args["nocat"] then
            return table.concat(output)
        else
            return table.concat(output) .. table.concat(categories)
        end

    else
        local link_text

        if args["nolink"] then
            link_text = link(nil, args["gloss"], args["face"], joined_root)
        else
            link_text = link(joined_root, args["gloss"], args["face"])
        end

        table.insert(output, link_text)

        table.insert(categories, m_utilities.format_categories(
                         {"詞根為" .. joined_root .."的南黎凡特阿拉伯語詞"},
                         lang))

        if args["nocat"] then
            return table.concat(output)
        elseif args["plain"] then
            return table.concat(output)
        else
            return "<table class=\"wikitable\" style=\"float: right; clear: right; text-align: center;\"><tr><th>[[w:en:Semitic root|詞根]]</th></tr><tr><td>" .. link_text .. "</td></tr></table>" .. table.concat(categories)
        end

    end

end

return export