Módulo:Conjugador

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

-- ============================================================
-- Diego F. Gómez -- 2024-2026
-- Módulo de conjugación para verbos muysca en lua para mediawiki
-- ============================================================

local p = {}

-- ============================================================
-- DICCIONARIO DE TEXTOS 
-- ============================

local TEXTS = {
    ui = {
        expand = "Conjugar",
        collapse = "Ocultar",
        error_root = "Error: No se pudo extraer la raíz de ",
        main_title = "Paradigma verbal: ",
        col_person = "Persona"
    },
    series = {
        s1 = {
            title = "Serie de Flexión Verbal",
            headers = {"Perfectivo", "Imperfectivo", "Irrealis", "Destinativo"}
        },
        s2 = {
            title = "Serie de Nominalización",
            headers = {"Resultativa", "Factual", "Irrealis", "Prospectiva"}
        },
        s3 = {
            title = "Modo Imperativo",
            headers = {"Forma Única"}
        }
    },
    persons = {
        sg1 = "1.ª sg.", sg2 = "2.ª sg.", sg3 = "3.ª",
        pl1 = "1.ª pl.", pl2 = "2.ª pl.",
        imp_sg = "2.ª sg. (Imp.)", 
        imp_pl = "2.ª pl. (Imp.)"
    }
}

-- ============================================================
-- LÓGICA PRIVADA
-- ============================================================

local function cleanPageName(pageName)
    if not mw then return pageName:gsub("%s*%b()", ""):gsub("%d+", ""):gsub("^%s*(.-)%s*$", "%1") end
    pageName = mw.text.trim(pageName or "")
    pageName = mw.ustring.gsub(pageName, "%s*%b()", "")
    pageName = mw.ustring.gsub(pageName, "%d+", "")
    return mw.text.trim(pageName)
end

local function getRoot(pageName, clase, manualRoot)
    if manualRoot and manualRoot ~= "" then return manualRoot end
    local fullVerb = cleanPageName(pageName)
    local root = fullVerb
    if clase == "sq." then root = fullVerb:gsub("squa$", "")
    elseif clase == "su." then root = fullVerb:gsub("suca$", "") end
    if root == fullVerb then root = fullVerb:gsub("s[uq]ua$", "") end
    return root
end

-- ============================================================
-- NUEVA LÓGICA DE CLASE (Parsing)
-- ============================================================

local function parseVerbClass(raw)
    raw = (raw or ""):lower()
    local info = {
        type = "",             -- "sq." o "su."
        isTransitive = false,
        isIntransitive = false,
        isQuy = false,         -- Para iquy.
        isQuySimple = false,   -- Para quy. (ua-squa)
        hasRootI = false,      -- Para raíces en i. (hui-a)
        raw = raw
    }
    
    if raw:find("sq") then info.type = "sq." end
    if raw:find("su") then info.type = "su." end
    if raw:find("tr%.") then info.isTransitive = true end
    if raw:find("intr%.") then info.isIntransitive = true end
    
    -- Detectamos raíces históricas
    if raw:find("iquy") then 
        info.isQuy = true 
    elseif raw:find("quy%.") then
        info.isQuySimple = true
    end
    
    if raw:find(" i%.") or raw:find(" i ") or raw:sub(-2) == " i" then
        info.hasRootI = true
    end
    
    return info
end

-- ============================================================
-- EL CEREBRO: Lógica Pura
-- ============================================================

function p.getConjugations(pageName, claseRaw, manualRoot)
    local classInfo = parseVerbClass(claseRaw)
    local root = getRoot(pageName, classInfo.type, manualRoot)
    
    local results = { root = root, classInfo = classInfo, series = {} }

    -- Configuración de Series
    local config = {
        {
            id = "S1", -- Flexión Verbal
            title = TEXTS.series.s1.title, 
            headers = TEXTS.series.s1.headers,
            persons = {{TEXTS.persons.sg1, "z-"}, {TEXTS.persons.sg2, "m-"}, {TEXTS.persons.sg3, "a-"}, {TEXTS.persons.pl1, "chi-"}, {TEXTS.persons.pl2, "mi-"}},
            suffixes = {
                perf = "", 
                imperf = (classInfo.type == "su." and "-suca" or "-squa"),
                irreal = (classInfo.type == "su." and "-nynga" or "-nga"),
                destinativo = "-iua"
            },
            applyRule = true,
            allowInfix = true,
            hasNegation = true -- Habilita filas negativas
        },
        {
            id = "S2", -- Nominalización
            title = TEXTS.series.s2.title, 
            headers = TEXTS.series.s2.headers,
            persons = {{TEXTS.persons.sg1, "cha-"}, {TEXTS.persons.sg2, "ma-"}, {TEXTS.persons.sg3, ""}, {TEXTS.persons.pl1, "chi-"}, {TEXTS.persons.pl2, "mi-"}},
            suffixes = {
                perf = (classInfo.type == "su." and "-ua" or "-ia"), 
                imperf = (classInfo.type == "su." and "-suca" or "-sca"),
                irreal = (classInfo.type == "su." and "-nynga" or "-nga"),
                prospectivo = (classInfo.type == "su." and "-nynguepqua" or "-nguepqua")
            },
            applyRule = false,
            allowInfix = false
        },
        {
            id = "S3", -- Imperativos
            title = TEXTS.series.s3.title, 
            headers = TEXTS.series.s3.headers,
            persons = {
                {TEXTS.persons.imp_sg, "", "-u"}, 
                {TEXTS.persons.imp_pl, "", "-ua"}
            },
            applyRule = false,
            allowInfix = false
        }
    }

    local firstChar = root:sub(1,1):lower()
    local firstTwo = root:sub(1,2):lower()

    for _, s in ipairs(config) do
        local serieData = { id = s.id, title = s.title, headers = s.headers, rows = {} }
        
        for _, pData in ipairs(s.persons) do
            local label, prefix, personalSuffix = pData[1], pData[2], pData[3]
            
            ------------------------------------------------------------
            -- 1. LÓGICA DE PREFIJOS (Sujeto y Desambiguación)
            ------------------------------------------------------------

            -- 1.1 Regla Especial de Prefijo (z- -> i-)
            -- Solo para Serie 1, solo si la raíz comienza con n, s, z, t o ch, 
            -- y sólo para verbos intransitivos, pues los transitivos poseen el infijo -b- , -g-, etc. que nunca será coronal.
            if s.applyRule and label == TEXTS.persons.sg1 then
                if (firstChar == "n" or firstChar == "s" or firstChar == "z" or firstChar == "t" or firstTwo == "ch") and classInfo.isIntransitive then
                    prefix = "i-"
                end
            end

            -- 1.2 LÓGICA DE LA A- INTRANSITIVA (Desambiguación)
            local intransitivePrefix = ""
            -- Si es intransitivo y estamos en Serie 2 (3.ª persona) o Serie 3 (Imperativos)
            -- Se añade 'a-' para marcar la intransitividad/neutralidad
            if classInfo.isIntransitive then
                if (s.id == "S2" and label == TEXTS.persons.sg3) or s.id == "S3" then
                    intransitivePrefix = "a-"
                end
            end

            ------------------------------------------------------------
            -- 2. LÓGICA DE RAÍZ E INFIJOS
            ------------------------------------------------------------

            local currentInfix = ""
            local currentRoot = root 
            
            -- 2.1 LÓGICA DEL INFIJO -b- Y CAMBIOS EN LA RAÍZ
            -- Solo se aplica infijo si es transitivo Y NO es intransitivo (neutraliza casos como aguquy)
            if s.allowInfix and classInfo.isTransitive and not classInfo.isIntransitive then
                if prefix ~= "" then
                    local r1 = firstChar
                    if r1 == "u" then
                        currentInfix = "g-"
                    elseif r1 == "n" then
                        currentInfix = "m-"
                    elseif r1 == "h" and classInfo.type == "su." then
                        local vocal = root:sub(2,2)
                        currentInfix = "m" .. vocal .. "-"
                        currentRoot = "h" .. root:sub(3)
                    elseif r1 == "b" then
                        currentInfix = "m-"
                        currentRoot = "m" .. root:sub(2)
                    else
                        currentInfix = (prefix == "m-" and "m-" or "b-")
                    end
                end
            end

            ------------------------------------------------------------
            -- 3. LÓGICA DE SUFIJOS Y REGLAS ESPECIALES
            ------------------------------------------------------------

            -- 3.1 Inicialización de sufijos base
            local perfSuffix = personalSuffix or (s.suffixes and s.suffixes.perf) or ""
            local imperfSuffix = (s.suffixes and s.suffixes.imperf) or ""
            local irrealSuffix = (s.suffixes and s.suffixes.irreal) or ""
            local prospectivoSuffix = (s.suffixes and s.suffixes.prospectivo) or ""
            local destinativoSuffix = (s.suffixes and s.suffixes.destinativo) or ""
            
            -- 3.2 Inicialización de raíces por tiempo
            local rootPerf = currentRoot
            local rootImperf = currentRoot
            local rootIrreal = currentRoot
            local rootProspectivo = currentRoot
            local rootDestinativo = currentRoot

            -- 3.3 REGLA ESPECÍFICA PARA CLASE "su." (ej. nypquasuca > nypqua-o)
            -- En la Serie 1, el perfectivo añade una -o si la raíz termina en -a
            if classInfo.type == "su." and s.id == "S1" then
                if root:sub(-1):lower() == "a" then
                    perfSuffix = "-o"
                end
            end

            -- 3.4 LÓGICA DE RAÍCES EN -I (Serie 2)
            if classInfo.hasRootI and s.id == "S2" then
                rootPerf = currentRoot .. "i"
                rootImperf = currentRoot .. "i"
                rootIrreal = currentRoot .. "i"
                rootProspectivo = currentRoot .. "i"
            end

            -- 3.5 LÓGICA DE VERBOS CON RAÍZ HISTÓRICA EN IQUY (z/i)
            if classInfo.isQuy then
                if s.id == "S1" then
                    perfSuffix = "quy"
                elseif s.id == "S2" then
                    rootPerf = currentRoot .. "z"
                    perfSuffix = "-a"
                    rootImperf = currentRoot .. "i"
                    rootIrreal = currentRoot .. "i"
                elseif s.id == "S3" then
                    rootPerf = currentRoot .. "z"
                end
            end

            -- 3.6 LÓGICA DE VERBOS CON RAÍZ HISTÓRICA EN -QUY SIMPLE (ej: ua-squa)
            if classInfo.isQuySimple then
                if s.id == "S1" then
                    perfSuffix = "quy"
                elseif s.id == "S2" then
                    rootPerf = currentRoot .. "c"
                    perfSuffix = "-a"
                elseif s.id == "S3" then
                    rootPerf = currentRoot .. "c"
                end
            end
            
            rootProspectivo = rootIrreal

            ------------------------------------------------------------
            -- 4. ENSAMBLAJE FINAL Y NEGACIÓN
            ------------------------------------------------------------

            -- 4.1 CONSTRUCCIÓN DE FILA AFIRMATIVA
            table.insert(serieData.rows, {
                label = label,
                status = "pos", -- Marca para estilo visual
                perf = prefix .. currentInfix .. intransitivePrefix .. rootPerf .. perfSuffix,
                imperf = prefix .. currentInfix .. intransitivePrefix .. rootImperf .. imperfSuffix,
                irreal = prefix .. currentInfix .. intransitivePrefix .. rootIrreal .. irrealSuffix,
                prospectivo = prefix .. currentInfix .. intransitivePrefix .. rootProspectivo .. prospectivoSuffix,
                destinativo = prefix .. currentInfix .. intransitivePrefix .. rootDestinativo .. destinativoSuffix
            })

            -- 4.2 LÓGICA DE NEGACIÓN (Solo para Serie 1)
            if s.hasNegation then
                -- REGLA DE RAÍZ PURA: La negación ignora extensiones históricas en S1
                local negRoot = currentRoot
                
                table.insert(serieData.rows, {
                    label = "", -- Se puede dejar vacío para usar rowspan o marcar con (-)
                    status = "neg",
                    perf = prefix .. currentInfix .. negRoot .. "-za",
                    imperf = prefix .. currentInfix .. negRoot .. imperfSuffix .. "-za",
                    irreal = prefix .. currentInfix .. negRoot .. "-zi-nga",
                    destinativo = prefix .. currentInfix .. negRoot .. "-za-n iua"
                })
            end
        end
        table.insert(results.series, serieData)
    end
    return results
end

-- ============================================================
-- LA VISTA: Usado por la Wiki
-- ============================================================
local function drawTable(serie)
    local wrapper = mw.html.create("div"):css("margin-bottom", "1.5em"):css("font-size", "14px")
    wrapper:tag("div"):css("font-weight", "bold"):css("font-size", "1.1em")
        :css("margin-bottom", "0.4em"):css("color", "#202122"):wikitext(serie.title)

    local tableHtml = wrapper:tag("table"):addClass("wikitable")
        :css("width", "100%"):css("max-width", "700px"):css("margin", "0")

    local headerRow = tableHtml:tag("tr")
    headerRow:tag("th"):wikitext(TEXTS.ui.col_person)
    
    if serie.id == "S3" then
        headerRow:tag("th"):wikitext(serie.headers[1])
    else
        for _, hName in ipairs(serie.headers) do
            headerRow:tag("th"):wikitext(hName)
        end
    end

    for i, row in ipairs(serie.rows) do
        local tr = tableHtml:tag("tr")
        
        -- Estética para negación
        if row.status == "neg" then
            tr:css("background-color", "#f8f9fa"):css("color", "#54595d")
            local tdLabel = tr:tag("td"):css("text-align", "right"):css("font-size", "0.9em")
                :css("font-style", "italic"):wikitext("neg.")
        else
            tr:tag("td"):css("font-weight", "bold"):wikitext(row.label)
        end

        tr:tag("td"):wikitext(row.perf)
        
        if serie.id == "S1" then
            tr:tag("td"):wikitext(row.imperf)
            tr:tag("td"):wikitext(row.irreal)
            tr:tag("td"):wikitext(row.destinativo)
        elseif serie.id == "S2" then
            tr:tag("td"):wikitext(row.imperf)
            tr:tag("td"):wikitext(row.irreal)
            tr:tag("td"):wikitext(row.prospectivo)
        end
    end
    return wrapper
end

function p.render(frame)
    local args = frame:getParent().args
    local pageName = mw.title.getCurrentTitle().text
    local claseInput = args.clase or args.tipo or args.cat or args[1] or ""
    local data = p.getConjugations(pageName, claseInput, args.raiz)

    if data.root == "" or data.root == pageName then
        return "<span style='color:red;'>" .. TEXTS.ui.error_root .. pageName .. ".</span>"
    end

    -- Contenedor de la línea del botón (alineado a la derecha)
    local buttonWrapper = mw.html.create("div")
        :css("display", "flex")
        :css("justify-content", "flex-end")
        :css("margin-bottom", "10px")

    -- El Botón Azul (mw-customtoggle)
    buttonWrapper:tag("div")
        :addClass("mw-customtoggle-muyscaParadigma") -- ID vinculado al contenido
        :addClass("mw-ui-button mw-ui-progressive")   -- Estilo azul de MediaWiki
        :css("border-radius", "20px")                -- Bordes bien redondeados
        :css("padding", "4px 15px")
        :css("font-weight", "bold")
        :css("cursor", "pointer")
        :wikitext(TEXTS.ui.expand)

    -- Contenedor del Paradigma (el que se oculta/muestra)
    local contentDiv = mw.html.create("div")
        :addClass("mw-collapsible mw-collapsed")
        :attr("id", "mw-customcollapsible-muyscaParadigma") -- ID para el toggle
        :css("border", "1px solid #c8ccd1")
        :css("border-radius", "8px")
        :css("padding", "20px")
        :css("background-color", "#fcfcfc")
        :css("margin-top", "10px")

    -- El Título (ahora dentro del contenido desplegable)
    contentDiv:tag("div")
        :css("font-weight", "bold")
        :css("border-bottom", "2px solid #3366cc")
        :css("margin-bottom", "20px")
        :css("padding-bottom", "5px")
        :css("font-size", "1.2em")
        :wikitext(TEXTS.ui.main_title .. data.root .. " (" .. data.classInfo.raw .. ")")

    -- Dibujar las tablas de las series
    for _, serie in ipairs(data.series) do
        contentDiv:node(drawTable(serie))
    end

    return tostring(buttonWrapper) .. tostring(contentDiv)
end

return p