Modul:CactaceaeTaxonok

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

local p = {}

-- Biztonságos Unicode formázó
local function formazSzinonimak(szoveg)
    if not szoveg or szoveg == "" then return "" end

    -- Minden művelet mw.ustring-gel a stabilitásért
    local tiszta = mw.ustring.gsub(szoveg, "[đ÷¤]", "")
    tiszta = mw.ustring.gsub(tiszta, ">−", "−")
    tiszta = mw.ustring.gsub(tiszta, ">≡", "≡")
    tiszta = mw.ustring.gsub(tiszta, ">=", "=")
    
    -- Elválasztók cseréje
    tiszta = mw.ustring.gsub(tiszta, "≡≡", "|≡")
    tiszta = mw.ustring.gsub(tiszta, "==", "|=")
    tiszta = mw.ustring.gsub(tiszta, "−−", "|−")
    tiszta = mw.ustring.gsub(tiszta, "%%-%%-", "|−")

    local lista_elemek = {}
    local reszek = mw.text.split(tiszta, "|", true)
    
    for i=1, #reszek do
        local tiszta_resz = mw.text.trim(reszek[i])
        if tiszta_resz ~= "" then
            local formazott = "''" .. tiszta_resz .. "''"
            -- Speciális karakterek körüli dőltetés feloldása
            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.''")
            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)
    local args = frame.args[1] and frame.args or frame:getParent().args
    local szuroNemzettseg = args[1] and mw.text.trim(args[1]) or nil
    if szuroNemzettseg == "" then szuroNemzettseg = nil end

    local status, adatModul = pcall(require, 'Modul:CactaceaeTaxonokData')
    if not status then return "Hiba: Adatmodul nem található!" end
    
    local nyers_adat = adatModul.getAdatok()
    local rows = {}
    local sorszam = 0
    local jelenlegiNemzettseg = ""
    local megjelenit = true

    -- CSAK mw.ustring könyvtárat használunk, metódusokat (.find) nem!
    for sor in mw.ustring.gmatch(nyers_adat, "[^\r\n]+") do
        local taxon_link = ""
        local szinonimak_nyers = ""

        -- Jelző karakterek vizsgálata ustring-gel
        if mw.ustring.match(sor, "^ß") then
            local nemz, tip = mw.ustring.match(sor, "^ß%s*([^:]+)::%s*(.+)")
            if nemz then
                jelenlegiNemzettseg = mw.text.trim(nemz):gsub("¤+", "")
                if not szuroNemzettseg or szuroNemzettseg == jelenlegiNemzettseg then
                    taxon_link = "'''[[:Kategória:" .. jelenlegiNemzettseg .. "|" .. jelenlegiNemzettseg .. "]]'''"
                    szinonimak_nyers = tip
                    megjelenit = true
                else
                    megjelenit = false
                end
            end
        elseif megjelenit and mw.ustring.match(sor, "^Ł") then
            local tiszta_sor = mw.ustring.gsub(sor, "^Ł%s*", "")
            local t, sz = mw.ustring.match(tiszta_sor, "([^¤]+)¤¤¤(.*)")
            if t then
                local tiszta_nev = mw.text.trim(t)
                taxon_link = "''[[" .. tiszta_nev .. "]]''"
                szinonimak_nyers = sz
            end
        end

        if taxon_link ~= "" then
            sorszam = sorszam + 1
            table.insert(rows, "|-\n| " .. sorszam .. "\n| " .. taxon_link .. "\n| " .. formazSzinonimak(szinonimak_nyers))
        end
        
        -- Biztonsági korlát: Ha túl sok a sor, álljunk le, mielőtt a szerver lelövi (Error 24)
        if sorszam > 2000 then
            table.insert(rows, "|-\n| colspan='3' | <span style='color:red;'>Hiba: A lista túl hosszú, adj meg egy nemzetséget a szűréshez!</span>")
            break
        end
    end

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

return p