Modul:CactaceaeTaxonok

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

local p = {}

-- Segédfüggvény a szimbólumok és HTML lista kezeléséhez
local function formazSzinonimak(szoveg)
    if not szoveg or szoveg == "" then return "" end

    -- 1. Felesleges karakterek törlése és a komplex jelek egyszerűsítése
    local tiszta = szoveg:gsub("[đ÷]", ""):gsub("¤+", "")
    
    -- Egyszerűsítések a kérés szerint
    tiszta = tiszta:gsub(">−", "−")
    tiszta = tiszta:gsub(">≡", "≡")
    tiszta = tiszta:gsub(">=", "=")

    -- 2. Átalakítások egységes elválasztó karakterré ( | ) a felsoroláshoz
    -- Minden jel elé teszünk egy elválasztót, kivéve ha már ott van
    tiszta = tiszta:gsub("≡≡", "|≡")
    tiszta = tiszta:gsub("==", "|=")
    tiszta = tiszta:gsub("−−", "|−")
    tiszta = tiszta:gsub("≡", "|≡")
    tiszta = tiszta:gsub("=", "|=")
    tiszta = tiszta:gsub("−", "|−")
    
    -- Dupla elválasztók tisztítása
    tiszta = tiszta:gsub("|%s*|", "|")

    -- 3. HTML lista építése
    local lista_elemek = {}
    
    for resz in mw.text.gsplit(tiszta, "|", true) do
        local tiszta_resz = mw.text.trim(resz)
        if tiszta_resz ~= "" then
            -- Botanikai nevek dőltetése
            local szavak = {}
            for szo in tiszta_resz:gmatch("%S+") do
                if szo:match("[≡=−,]") or szo == "var." or szo == "subsp." or szo == "f." or szo == "Type:" then
                    table.insert(szavak, szo)
                else
                    table.insert(szavak, "''" .. szo .. "''")
                end
            end
            
            local kesz_elem = table.concat(szavak, " "):gsub("^,%s*", "")
            table.insert(lista_elemek, "<li>" .. kesz_elem .. "</li>")
        end
    end
    
    if #lista_elemek > 0 then
        return '<ul style="margin-left: 1.5em; list-style-type: disc; padding-top: 0; margin-top: 0;">' .. 
               table.concat(lista_elemek) .. 
               "</ul>"
    else
        return ""
    end
end

function p.tablazat(frame)
    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 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
    for sor in nyers_adat:gmatch("[^\r\n]+") do
        local taxon = ""
        local szinonimak = ""

        if sor:match("^ß") then
            local nemzettseg, tipus = sor:match("^ß%s*([^:]+)::%s*(.+)")
            if nemzettseg then
                taxon = "'''" .. mw.text.trim(nemzettseg) .. "'''"
                szinonimak = tipus
            end
        elseif sor:match("^Ł") then
            local tiszta = sor:gsub("^Ł%s*", "")
            local t, sz = tiszta:match("([^¤]+)¤¤¤(.*)")
            if t then
                taxon = "''" .. mw.text.trim(t) .. "''"
                szinonimak = sz
            end
        end

        if taxon ~= "" then
            sorszam = sorszam + 1
            res = res .. "|-\n"
            res = res .. "| " .. sorszam .. "\n"
            res = res .. '| style="white-space: nowrap;" | ' .. taxon .. "\n"
            res = res .. "| " .. formazSzinonimak(szinonimak) .. "\n"
        end
    end

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

return p