Modul:CactaceaeTaxonSzinonimák

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

local p = {}

-- Gyors tisztító függvény az összehasonlításhoz
local function cleanForMatch(s)
    if not s then return "" end
    -- Csak a betűket és szóközöket hagyjuk meg az összehasonlításhoz
    local cleaned = mw.ustring.gsub(s, "[%d#@≡=%-−]+", "")
    return mw.text.trim(cleaned):lower()
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 keresettAlacsony = keresettTaxon:lower()
    
    local dataModul = require("Modul:CactaceaeTaxonokData")
    local nyersAdat = dataModul.getAdatok()
    
    local homoHTML = "≡" 
    local hibaHTML = "−" 
    
    local talaltSor = nil

    -- GYORS KERESÉS: Csak azokon a sorokon futunk végig alaposan, amikben egyáltalán benne van a szó
    for sor in nyersAdat:gmatch("[^\r\n]+") do
        if mw.ustring.find(sor:lower(), keresettAlacsony, 1, true) then
            -- Ha a szó benne van, akkor ellenőrizzük a szigorú egyezést
            local darabok = mw.text.split(sor, "#")
            for _, darab in ipairs(darabok) do
                if cleanForMatch(darab) == cleanForMatch(keresettTaxon) then
                    talaltSor = sor
                    break
                end
            end
        end
        if talaltSor then break end
    end
    
    if not talaltSor then
        return "A megadott taxon (''" .. keresettTaxon .. "'') nem található az adatbázisban."
    end
    
    -- FELDOLGOZÁS (ez a rész már csak egyszer fut le a talált sorra)
    local ervenyesNevFinal = mw.ustring.match(talaltSor, "%d+ ([^#:=≡%-−]+)")
    if ervenyesNevFinal then
        ervenyesNevFinal = mw.ustring.gsub(ervenyesNevFinal, "[%d#@≡=%-−]+", "")
        ervenyesNevFinal = mw.text.trim(ervenyesNevFinal)
    else
        ervenyesNevFinal = "Ismeretlen taxon"
    end

    local eredmeny = "== A ''" .. ervenyesNevFinal .. "'' szinonimái ==\n\n"
    
    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
        local jel = mw.ustring.match(darab, "([≡=%-−])")
        local szint = mw.ustring.match(darab, "(%d+)$")
        
        if jel and szint then
            -- Név kinyerése és tisztítása a darabból
            local tisztaNev = mw.ustring.gsub(darab, "[%d#@≡=%-−]+", "")
            tisztaNev = mw.text.trim(tisztaNev)
            
            local szam = tonumber(szint)
            local aktJel = (jel == "≡") and homoHTML or ((jel == "-" or jel == "−") and hibaHTML or jel)
            
            if tisztaNev ~= "" then
                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
    
    for _, csoport in ipairs(lista) do
        local sorElemei = {}
        for i, adat in ipairs(csoport.nevek) do
            local elem = "''" .. adat.nev .. "''"
            if i > 1 then elem = adat.jel .. " " .. elem end
            table.insert(sorElemei, elem)
        end
        eredmeny = eredmeny .. "* " .. csoport.elsoJel .. " " .. table.concat(sorElemei, ", ") .. "\n"
    end
    
    return eredmeny
end

return p