Modul:CactaceaeTaxonok

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

local p = {}

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

    -- 1. Felesleges technikai karakterek törlése (đ, ÷, ¤)
    local tiszta = szoveg:gsub("[đ÷]", ""):gsub("¤+", "")

    -- 2. Átalakítások a kért szabályok szerint:
    -- ≡≡ -> , ≡ (egy sorban marad)
    -- == -> * = (új soros felsorolás)
    -- −− -> * − (új soros felsorolás)
    tiszta = tiszta:gsub("≡≡", ", ≡")
                   :gsub("==", "\n* =")
                   :gsub("−−", "\n* −")
                   :gsub(">≡", ", >≡")
                   :gsub(">−", ", >−")
    
    -- 3. Tisztítás (felesleges szóközök és kezdő karakterek)
    tiszta = mw.text.trim(tiszta)
    tiszta = tiszta:gsub("^,%s*", "")     -- Sor eleji vessző le
    tiszta = tiszta:gsub("^\n*%*", "*")  -- Sor eleji felesleges sorminta igazítása

    -- 4. Formázás szavanként (Dőltetés a botanikai neveknek)
    local szavak = {}
    for szo in tiszta:gmatch("%S+") do
        -- Ha a szó szimbólumot, vesszőt vagy listajelt (*) tartalmaz, vagy rövidítés, marad álló
        if szo:match("[≡=>−,*]") or szo == "var." or szo == "subsp." or szo == "f." or szo == "Type:" then
            table.insert(szavak, szo)
        else
            -- Latin faj- és nemzetségnevek dőltetése
            table.insert(szavak, "''" .. szo .. "''")
        end
    end
    
    return table.concat(szavak, " ")
end

function p.tablazat(frame)
    -- Adatok betöltése a külső adatmodulból
    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()

    -- Táblázat fejléc és DataTables osztályok
    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
            -- Nemzetség (ß) feldolgozása
            local nemzettseg, tipus = sor:match("^ß%s*([^:]+)::%s*(.+)")
            if nemzettseg then
                taxon = "'''" .. mw.text.trim(nemzettseg):gsub("¤+", "") .. "'''"
                szinonimak = tipus
            end
        elseif sor:match("^Ł") then
            -- Faj (Ł) feldolgozása
            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"
            -- 1. oszlop: Sorszám
            res = res .. "| " .. sorszam .. "\n"
            -- 2. oszlop: Taxonnév (sortörés tiltva)
            res = res .. '| style="white-space: nowrap;" | ' .. taxon .. "\n"
            -- 3. oszlop: Szinonimák (vegyes formátum: vesszős és listás)
            res = res .. "| " .. formazSzinonimak(szinonimak) .. "\n"
        end
    end

    res = res .. "|}"
    return res
end

return p