Modul:CactaceaeTaxonSzinonimák

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

local p = {}

-- Tisztító függvény: @, számok é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 speciális karaktert, ami nem a név része
    -- A [^%w%.%s] minden olyan karaktert töröl, ami nem betű, szám, pont vagy szóköz
    -- De a dőlt betűs nevek miatt maradjunk a célzott törlésnél:
    local cleaned = mw.ustring.gsub(s, "[%d#@≡=%-−]+", "")
    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
    
    local dataModul = require("Modul:CactaceaeTaxonokData")
    local nyersAdat = dataModul.getAdatok()
    
    local homoHTML = "≡" -- ≡
    local hibaHTML = "−" -- −
    
    for sor in nyersAdat:gmatch("[^\r\n]+") do
        if mw.ustring.find(sor, keresettTaxon, 1, true) then
            
            -- Érvényes név kinyerése
            local ervenyesNevNyers = mw.ustring.match(sor, "%d+ ([^#≡=%-−]+)")
            local ervenyesNev = cleanName(ervenyesNevNyers)
            
            local eredmeny = "== A ''" .. ervenyesNev .. "'' szinonimái ==\n\n"
            local lista = {}

            -- A sort darabokra szedjük a # mentén
            local darabok = mw.text.split(sor, "#")
            
            for _, darab in ipairs(darabok) do
                -- Megkeressük a jelet és a szintet
                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
                        if szam == 4 and #lista > 0 then
                            -- Ha 4-es, az előzőhöz fűzzük
                            table.insert(lista[#lista].nevek, {jel = aktJel, nev = tisztaNev})
                        else
                            -- Ha nem 4-es, új listapont
                            table.insert(lista, {
                                elsoJel = aktJel,
                                nevek = {{jel = "", nev = tisztaNev}}
                            })
                        end
                    end
                end
            end
            
            -- Megjelenítés összeállítása
            if #lista == 0 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
                        -- Az első név elé NEM kell belső jel
                        table.insert(sorElemei, "''" .. adat.nev .. "''")
                    else
                        -- A többi név elé kell a saját jele (≡ vagy −)
                        table.insert(sorElemei, adat.jel .. " ''" .. adat.nev .. "''")
                    end
                end
                eredmeny = eredmeny .. "* " .. csoport.elsoJel .. " " .. table.concat(sorElemei, " ") .. "\n"
            end
            
            return eredmeny
        end
    end
    
    return "A megadott taxon nem található."
end

return p