Modul:CactaceaeTaxonok

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

local p = {}

-- Szigorúan Unicode-biztos formázó függvény
local function formazSzinonimak(szoveg)
    if not szoveg or szoveg == "" then return "" end

    -- Minden tisztítást mw.ustring-gel végzünk
    local tiszta = mw.ustring.gsub(szoveg, "[đ÷¤]", "")
    tiszta = mw.ustring.gsub(tiszta, ">−", "−")
    tiszta = mw.ustring.gsub(tiszta, ">≡", "≡")
    tiszta = mw.ustring.gsub(tiszta, ">=", "=")
    
    -- Elválasztók előkészítése (a % elkerüli a speciális jelentést)
    tiszta = mw.ustring.gsub(tiszta, "≡≡", "###")
    tiszta = mw.ustring.gsub(tiszta, "==", "###")
    tiszta = mw.ustring.gsub(tiszta, "−−", "###")
    tiszta = mw.ustring.gsub(tiszta, "%-%-", "###")

    local lista_elemek = {}
    
    -- Saját daraboló logika mw.ustring alapokon (elkerüli az mw.text.split hibáját)
    for resz in mw.ustring.gmatch(tiszta, "[^#]+") do
        local tiszta_resz = mw.text.trim(resz)
        if tiszta_resz ~= "" then
            -- Dőltetés: Alapból dőlt, a jelek állóként "kilépnek"
            local formazott = "''" .. tiszta_resz .. "''"
            formazott = mw.ustring.gsub(formazott, "≡", "''≡''")
            formazott = mw.ustring.gsub(formazott, "=", "''=''")
            formazott = mw.ustring.gsub(formazott, "−", "''−''")
            formazott = mw.ustring.gsub(formazott, "Type:", "''Type:''")
            formazott = mw.ustring.gsub(formazott, "var%.", "''var.''")
            formazott = mw.ustring.gsub(formazott, "subsp%.", "''subsp.''")
            formazott = mw.ustring.gsub(formazott, "f%.", "''f.''")
            
            -- Felesleges dupla aposztrófok takarítása
            formazott = mw.ustring.gsub(formazott, "''''", "")
            
            table.insert(lista_elemek, "<li>" .. formazott .. "</li>")
        end
    end
    
    if #lista_elemek == 0 then return "" end
    return '<ul style="margin-left: 1.1em; list-style-type: disc; padding: 0; margin: 0;">' .. table.concat(lista_elemek) .. "</ul>"
end

function p.tablazat(frame)
    -- Paraméterkezelés
    local parent_args = frame:getParent().args
    local szuroNemzettseg = parent_args[1] or frame.args[1]
    if szuroNemzettseg then szuroNemzettseg = mw.text.trim(szuroNemzettseg) end
    if szuroNemzettseg == "" then szuroNemzettseg = nil end

    -- Adatok betöltése
    local status, adatModul = pcall(require, 'Modul:CactaceaeTaxonokData')
    if not status then return "Hiba: A 'Modul:CactaceaeTaxonokData' nem található!" end
    local nyers_adat = adatModul.getAdatok()

    local rows = {}
    local sorszam = 0
    local jelenlegiNemzettseg = ""
    local megjelenit = true

    -- Soronkénti feldolgozás Unicode-biztosan
    for sor in mw.ustring.gmatch(nyers_adat, "[^\r\n]+") do
        local taxon_link = ""
        local szinonimak_nyers = ""

        -- Kezdőkarakter ellenőrzése mw.ustring.sub-bal
        local elso = mw.ustring.sub(sor, 1, 1)

        if elso == "ß" then
            -- Nemzetség sor: ß Név :: Típusfaj
            local nemz, tip = mw.ustring.match(sor, "^ß%s*([^:]+)::%s*(.+)")
            if nemz then
                jelenlegiNemzettseg = mw.text.trim(mw.ustring.gsub(nemz, "¤", ""))
                
                -- Szűrés logikája
                if not szuroNemzettseg or szuroNemzettseg == jelenlegiNemzettseg then
                    taxon_link = "'''[[:Kategória:" .. jelenlegiNemzettseg .. "|" .. jelenlegiNemzettseg .. "]]'''"
                    szinonimak_nyers = tip
                    megjelenit = true
                else
                    megjelenit = false
                end
            end
        elseif elso == "Ł" and megjelenit then
            -- Faj sor: Ł Név ¤¤¤ Szinonimák
            local tiszta_sor = mw.ustring.sub(sor, 2) -- Ł levágása
            local t, sz = mw.ustring.match(tiszta_sor, "^%s*([^¤]+)¤¤¤(.*)")
            if t then
                local tiszta_nev = mw.text.trim(t)
                taxon_link = "''[[" .. tiszta_nev .. "]]''"
                szinonimak_nyers = sz
            end
        end

        -- Ha van érvényes taxonunk és meg kell jeleníteni
        if taxon_link ~= "" then
            sorszam = sorszam + 1
            table.insert(rows, "|-\n| " .. sorszam .. "\n| " .. taxon_link .. "\n| " .. formazSzinonimak(szinonimak_nyers))
        end

        -- Biztonsági gát (CPU limit miatt)
        if sorszam > 1500 then
            table.insert(rows, "|-\n| colspan='3' | <span style='color:red;'>Hiba: A lista túl hosszú. Kérlek, szűrj egy nemzetségre!</span>")
            break
        end
    end

    -- Táblázat összeállítása
    local res = '{| class="wikitable sortable datatable-hook stripe hover compact" data-page-length="50" style="width:100%; font-size:90%;"\n'
    res = res .. "! # !! Taxonnév !! Típusfaj, szinonima\n"
    res = res .. table.concat(rows, "\n") .. "\n|}"
    
    return frame:preprocess(res)
end

return p