Modul:CactaceaeTaxonSzinonimák

A modult a Modul:CactaceaeTaxonSzinonimák/doc lapon tudod dokumentálni

local p = {}

-- Tisztító függvény: @, számok, kettőskereszt és felesleges szóközök eltávolítása
local function cleanName(s)
    if not s or s == "" then return "" end
    -- Eltávolítunk minden nem névbe való karaktert (számok, jelek, kettőskereszt, @)
    local cleaned = mw.ustring.gsub(s, "[%d#@≡=%-−]+", "")
    -- A "Type:" kulcsszót is vegyük ki az összehasonlításnál, ha benne maradt volna
    cleaned = mw.ustring.gsub(cleaned, "Type:", "")
    return mw.text.trim(cleaned)
end

function p.keres(frame)
    local keresettTaxon = frame.args[1] or frame:getParent().args[1]
    if not keresettTaxon or keresettTaxon == "" then return "Nincs megadva taxon!" end
    
    keresettTaxon = mw.text.trim(keresettTaxon)
    local keresettAlap = cleanName(keresettTaxon)
    
    local dataModul = require("Modul:CactaceaeTaxonokData")
    local nyersAdat = dataModul.getAdatok()
    
    local homoHTML = "≡" -- ≡
    local hibaHTML = "−" -- −
    
    local talaltSor = nil

    -- 1. KERESÉS: Végigmegyünk a sorokon
    for sor in nyersAdat:gmatch("[^\r\n]+") do
        -- A sort darabokra szedjük a # mentén (minden egység egy taxon + szint)
        local darabok = mw.text.split(sor, "#")
        local illeszkedik = false
        
        for _, darab in ipairs(darabok) do
            local nevAdatban = cleanName(darab)
            
            -- SZIGORÚ TELJES EGYEZÉS ELLENŐRZÉSE
            if nevAdatban:lower() == keresettAlap:lower() then
                illeszkedik = true
                break
            end
        end
        
        if illeszkedik then
            talaltSor = sor
            break
        end
    end
    
    if not talaltSor then
        return "A megadott taxon (''" .. keresettTaxon .. "'') nem található az adatbázisban."
    end
    
    -- 2. FELDOLGOZÁS: Az érvényes név kinyerése a sor elejéről
    local ervenyesNevFinal = cleanName(mw.ustring.match(talaltSor, "%d+ ([^#:=≡%-−]+)") or "")
    local eredmeny = "== A ''" .. ervenyesNevFinal .. "'' szinonimái ==\n\n"
    
    -- Típus-információ (Type:) kinyerése
    local tipusInfo = mw.ustring.match(talaltSor, "Type: ([^1-4#]+)")
    if tipusInfo then
        eredmeny = eredmeny .. "'''Típus:''' ''" .. mw.text.trim(tipusInfo) .. "''\n\n"
    end

    local lista = {}
    local szinonimaDarabok = mw.text.split(talaltSor, "#")
    
    for _, darab in ipairs(szinonimaDarabok) do
        -- Jel és szint keresése a darabban
        local jel = mw.ustring.match(darab, "([≡=%-−])")
        local szint = mw.ustring.match(darab, "(%d+)$")
        
        if jel and szint then
            local tisztaNev = cleanName(darab)
            local szam = tonumber(szint)
            
            local aktJel = jel
            if jel == "≡" then aktJel = homoHTML end
            if jel == "-" or jel == "−" then aktJel = hibaHTML end
            
            if tisztaNev ~= "" then
                -- Szint-alapú csoportosítás (3-as: új sor, 4-es: soron belül)
                if szam == 4 and #lista > 0 then
                    table.insert(lista[#lista].nevek, {jel = aktJel, nev = tisztaNev})
                else
                    table.insert(lista, {
                        elsoJel = aktJel,
                        nevek = {{jel = "", nev = tisztaNev}}
                    })
                end
            end
        end
    end
    
    -- 3. MEGJELENÍTÉS összeállítása
    if #lista == 0 and not tipusInfo then return eredmeny .. "* Nincsenek szinonimák." end
    
    for _, csoport in ipairs(lista) do
        local sorElemei = {}
        for i, adat in ipairs(csoport.nevek) do
            if i == 1 then
                table.insert(sorElemei, "''" .. adat.nev .. "''")
            else
                table.insert(sorElemei, adat.jel .. " ''" .. adat.nev .. "''")
            end
        end
        -- Vesszővel választjuk el az egy sorban lévőket
        eredmeny = eredmeny .. "* " .. csoport.elsoJel .. " " .. table.concat(sorElemei, ", ") .. "\n"
    end
    
    return eredmeny
end

return p