La documentación para este módulo puede ser creada en Módulo:Conjugador/doc

local p = {}

-- 1. Limpia el nombre de la página: "nysqua(2)" -> "nysqua"
local function cleanPageName(pageName)
    pageName = mw.text.trim(pageName or "")
    -- Quita el bloque de paréntesis: (2), (3), etc.
    pageName = mw.ustring.gsub(pageName, "%s*%b()", "")
    -- Quita números sueltos por si acaso
    pageName = mw.ustring.gsub(pageName, "%d+", "")
    return mw.text.trim(pageName)
end

-- 2. Normaliza la clase para que el script sepa qué terminación buscar
-- La abreviatura "sq." debe buscar squa, la abreviatura "su." debe buscar suca
local function normalizeClass(rawClass)
    rawClass = mw.text.trim(rawClass or "")
    rawClass = mw.ustring.lower(rawClass)

    if mw.ustring.find(rawClass, "sq") then
        return "sq."
    elseif mw.ustring.find(rawClass, "su") then
        return "su."
    end
    return ""
end

-- 3. Extrae la raíz pura: "nysqua" -> "ny"
local function getRoot(pageName, clase, manualRoot)
    manualRoot = mw.text.trim(manualRoot or "")
    if manualRoot ~= "" then
        return manualRoot
    end

    local fullVerb = cleanPageName(pageName)
    local root = fullVerb

    if clase == "sq." then
        root = mw.ustring.gsub(fullVerb, "squa$", "")
    elseif clase == "su." then
        root = mw.ustring.gsub(fullVerb, "suca$", "")
    end
    
    -- Si la clase no se especificó o no coincide, intento genérico
    if root == fullVerb then
        root = mw.ustring.gsub(fullVerb, "s[uq]ua$", "")
    end

    return root
end

-- Funciones auxiliares para las bases verbales
local function buildPerfective(root)
    return root
end

local function buildImperfective(root, clase)
    if clase == "su." then
        return root .. "suca"
    else
        return root .. "squa"
    end
end

local function buildIrrealis(root)
    return root .. "nga"
end

-- FUNCIÓN PRINCIPAL
function p.render(frame)
    local args = frame:getParent().args

    local rawClass = args.clase or args.tipo or ""
    local manualRoot = args.raiz or ""

    local clase = normalizeClass(rawClass)
    local pageName = mw.title.getCurrentTitle().text
    local root = getRoot(pageName, clase, manualRoot)

    if root == "" or root == pageName then
        return "<span style='color:red;'>Error: No se pudo extraer la raíz de '" .. pageName .. "'. Revisa la clase (sq. o su.).</span>"
    end

    local persons = {
        {"1.ª sg. (yo)", "z-"},
        {"2.ª sg. (tú)", "m-"},
        {"3.ª (él/ella)", "a-"},
        {"1.ª pl. (nosotros)", "chi-"},
        {"2.ª pl. (ustedes)", "mi-"}
    }

    local perfectiveBase = buildPerfective(root)
    local imperfectiveBase = buildImperfective(root, clase)
    local irrealisBase = buildIrrealis(root)

    -- Construcción de la tabla HTML
    local html = mw.html.create("table")
        :addClass("wikitable")
        :css("width", "100%")
        :css("max-width", "600px")

    local header = html:tag("tr")
    header:tag("th"):wikitext("Persona")
    header:tag("th"):wikitext("Perfectivo (Raíz)")
    header:tag("th"):wikitext("Imperfectivo")
    header:tag("th"):wikitext("Irrealis")

    for _, personData in ipairs(persons) do
        local label = personData[1]
        local prefix = personData[2]

        local row = html:tag("tr")
        row:tag("td"):css("font-weight", "bold"):wikitext(label)
        row:tag("td"):wikitext(prefix .. perfectiveBase)
        row:tag("td"):wikitext(prefix .. imperfectiveBase)
        row:tag("td"):wikitext(prefix .. irrealisBase)
    end

    return tostring(html)
end

return p