Modul:CactaceaeTaxonok

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

local p = {}

-- Szupergyors formázó: minimálisra csökkentett műveletszám
local function formazSzinonimak(szoveg)
    if not szoveg or szoveg == "" then return "" end

    -- Unicode-helyett sima string csere ahol lehet
    local tiszta = szoveg:gsub("¤", "")
    tiszta = tiszta:gsub(">−", "−"):gsub(">≡", "≡"):gsub(">=", "=")
    
    -- Darabolás elválasztók mentén
    local lista = {}
    -- Sima string.gmatch-et használunk a gyorsaságért
    for r in tiszta:gmatch("[^|≡=−]+") do
        local tr = mw.text.trim(r)
        if tr ~= "" then
            -- Csak a legszükségesebb dőltetés
            table.insert(lista, "<li>''" .. tr .. "''</li>")
        end
    end
    
    return #lista > 0 and ('<ul style="margin-left:1.1em; list-style-type:disc; padding:0; margin:0;">' .. table.concat(lista) .. "</ul>") or ""
end

function p.tablazat(frame)
    local args = frame:getParent().args
    local szuro = args[1] and mw.text.trim(args[1]) or ""
    
    if szuro == "" then
        return "<div style='color:red;'>Hiba: Adj meg egy nemzetséget!</div>"
    end

    local status, dataModul = pcall(require, 'Modul:CactaceaeTaxonokData')
    if not status then return "Hiba: Adatmodul hiányzik." end
    local nyers = dataModul.getAdatok()

    local rows = {}
    local counter = 0
    local isVisible = false
    
    -- Sima string iteráció (NAGYSÁGRENDDEL GYORSABB, mint az ustring)
    -- A ß és Ł karaktereket bájtonként kezeljük (ß = \195\159, Ł = \197\129)
    for sor in nyers:gmatch("[^\r\n]+") do
        
        -- Nemzetség sor keresése (ß karakter bájtkódja: \195\159)
        if sor:byte(1) == 195 and sor:byte(2) == 159 then
            -- Csak akkor nézzük meg alaposabban, ha a szűrő benne van a sorban
            if sor:find(szuro, 1, true) then
                local nemz = sor:match("ß%s*([^:]+)")
                if nemz and mw.text.trim(nemz):gsub("¤", "") == szuro then
                    isVisible = true
                    counter = counter + 1
                    local tip = sor:match("::%s*(.+)") or ""
                    table.insert(rows, "|-\n| " .. counter .. "\n| '''[[:Kategória:" .. szuro .. "|" .. szuro .. "]]'''\n| " .. formazSzinonimak(tip))
                else
                    isVisible = false
                end
            else
                isVisible = false
            end
            
        -- Faj sor keresése (Ł karakter bájtkódja: \197\129)
        elseif isVisible and sor:byte(1) == 197 and sor:byte(2) == 129 then
            local t, sz = sor:match("Ł%s*([^¤]+)¤¤¤(.*)")
            if t then
                counter = counter + 1
                table.insert(rows, "|-\n| " .. counter .. "\n| ''[[" .. mw.text.trim(t) .. "]]''\n| " .. formazSzinonimak(sz))
            end
        end
        
        -- Ha elértük az 500 sort, álljunk meg (Opuntia-nál ez is sok lehet)
        if counter >= 500 then break end
    end

    if #rows == 0 then return "Nincs találat: " .. szuro end

    local head = '{| class="wikitable sortable datatable-hook stripe hover compact" style="width:100%; font-size:90%;"\n! # !! Taxonnév !! Típusfaj, szinonima\n'
    return frame:preprocess(head .. table.concat(rows, "\n") .. "\n|}")
end

return p