Modul:CactaceaeTaxonok

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

local p = {}

-- Segédfüggvény a szimbólumokhoz
local function formazSzinonimak(szoveg)
    if not szoveg or szoveg == "" then return "" end
    local tiszta = mw.ustring.gsub(szoveg, "[đ÷]", "")
    tiszta = mw.ustring.gsub(tiszta, "¤+", "")
    tiszta = mw.ustring.gsub(tiszta, ">−", "−")
    tiszta = mw.ustring.gsub(tiszta, ">≡", "≡")
    tiszta = mw.ustring.gsub(tiszta, ">=", "=")
    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 _, resz in ipairs(reszek) do
        local tiszta_resz = mw.text.trim(resz)
        if tiszta_resz ~= "" then
            local formazott = "''" .. tiszta_resz .. "''"
            formazott = formazott:gsub("≡", "''≡''"):gsub("=", "''=''"):gsub("−", "''−''")
            formazott = formazott:gsub("Type:", "''Type:''"):gsub("var%.", "''var.''"):gsub("subsp%.", "''subsp.''"):gsub("f%.", "''f.''")
            formazott = formazott:gsub("''''", "")
            table.insert(lista_elemek, "<li>" .. formazott .. "</li>")
        end
    end
    return #lista_elemek > 0 and ('<ul style="margin-left: 1.1em; list-style-type: disc; padding: 0; margin: 0;">' .. table.concat(lista_elemek) .. "</ul>") or ""
end

function p.tablazat(frame)
    -- Paraméter átvétele a sablonból vagy közvetlen hívásból
    local args = frame.args
    if args[1] == nil or args[1] == "" then
        args = frame:getParent().args
    end
    local szuroNemzettseg = args[1] ~= "" and args[1] or nil

    local status, adatModul = pcall(require, 'Modul:CactaceaeTaxonokData')
    if not status then return "Hiba: Adatmodul nem található!" end
    local nyers_adat = adatModul.getAdatok()

    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"

    local sorszam = 0
    local jelenlegiNemzettseg = ""
    local megjelenit = true

    for sor in mw.ustring.gmatch(nyers_adat, "[^\r\n]+") do
        local taxon_link = ""
        local szinonimak = ""
        local tiszta_nev = ""

        if mw.ustring.match(sor, "^ß") then
            local nemz, tip = mw.ustring.match(sor, "^ß%s*([^:]+)::%s*(.+)")
            if nemz then
                tiszta_nev = mw.text.trim(nemz):gsub("¤+", "")
                jelenlegiNemzettseg = tiszta_nev
                taxon_link = "'''[[:Kategória:" .. tiszta_nev .. "|" .. tiszta_nev .. "]]'''"
                szinonimak = tip
                -- Ha van szűrő, csak akkor jelenítjük meg, ha egyezik
                megjelenit = (not szuroNemzettseg or szuroNemzettseg == jelenlegiNemzettseg)
            end
        elseif mw.ustring.match(sor, "^Ł") then
            local tiszta_sor = mw.ustring.gsub(sor, "^Ł%s*", "")
            local t, sz = mw.ustring.match(tiszta_sor, "([^¤]+)¤¤¤(.*)")
            if t then
                tiszta_nev = mw.text.trim(t)
                taxon_link = "''[[" .. tiszta_nev .. "]]''"
                szinonimak = sz
                -- Faj megjelenítése csak ha a szűrőnek megfelelő nemzetségben vagyunk
                megjelenit = (not szuroNemzettseg or szuroNemzettseg == jelenlegiNemzettseg)
            end
        end

        if taxon_link ~= "" and megjelenit then
            sorszam = sorszam + 1
            res = res .. "|-\n| " .. sorszam .. "\n| " .. taxon_link .. "\n| " .. formazSzinonimak(szinonimak) .. "\n"
        end
    end

    return frame:preprocess(res .. "|}")
end

return p