Modul:CactaceaeTaxonok

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

local p = {}

-- Speciális formázó a taxonómiai nevekhez
-- isGenus: ha igaz, félkövér-dőlt ('''/'''), ha hamis, csak dőlt (/'')
local function taxonFormazo(szoveg, isGenus)
    if not szoveg or szoveg == "" then return "" end
    
    local s = ""
    if isGenus then
        s = "'''''" .. szoveg .. "'''''" -- Félkövér-dőlt
    else
        s = "''" .. szoveg .. "''" -- Csak dőlt
    end
    
    -- Botanikai kulcsszavak állóvá tétele
    local kulcsszavak = {
        "subgen%.", "subg%.", "sect%.", "subsect%.", 
        "subsp%.", "var%.", "subvar%.", "f%."
    }
    
    for _, kulcs in ipairs(kulcsszavak) do
        local tiszta_kulcs = kulcs:gsub("%%", "")
        -- Kiszállunk a dőltetésből a kulcsszóra, majd vissza
        s = s:gsub(kulcs, "''" .. tiszta_kulcs .. "''")
    end
    
    -- Takarítás (felesleges formázójelek törlése)
    s = s:gsub("''''''", ""):gsub("''''", "")
    return s
end

-- Szinonimák feldolgozása: 3-as szint = új sor, 4-es szint = hozzáfűzés
local function formazSzinonimak(sor)
    if not sor or sor == "" then return "" end

    local lista = {}
    local aktualis_sor = ""

    for szint, jel, tartalom in sor:gmatch("(%d)%s*([^%d%s#]+)%s*([^#]+)%s*%d#") do
        -- Jel szimplázása (≡≡ -> ≡, == -> =, −− -> −)
        local tiszta_jel = mw.ustring.sub(jel, 1, 1)
        
        -- Meghatározzuk, hogy nemzetségről van-e szó (szinonima nemzetségnél nincs fajnév, csak egy szó)
        local trimmed_tartalom = mw.text.trim(tartalom)
        local is_syn_genus = not trimmed_tartalom:find(" ") 
        
        local formalt_nev = taxonFormazo(trimmed_tartalom, is_syn_genus)
        local elem = tiszta_jel .. " " .. formalt_nev

        if szint == "3" then
            if aktualis_sor ~= "" then
                table.insert(lista, "<li>" .. aktualis_sor .. "</li>")
            end
            aktualis_sor = elem
        elseif szint == "4" then
            aktualis_sor = aktualis_sor .. " " .. elem
        end
    end

    if aktualis_sor ~= "" then
        table.insert(lista, "<li>" .. aktualis_sor .. "</li>")
    end

    if #lista == 0 then return "" end
    return '<ul style="margin-left:1.1em; list-style-type:disc; padding:0; margin:0;">' .. table.concat(lista) .. "</ul>"
end

function p.tablazat(frame)
    local args = frame:getParent().args
    local szuro = args[1] and mw.text.trim(args[1]) or ""
    
    local status, dataModul = pcall(require, 'Modul:CactaceaeTaxonokData')
    if not status then return "Hiba: Modul:CactaceaeTaxonokData nem található." end
    local nyers = dataModul.getAdatok()

    local rows = {}
    local counter = 0
    local isVisible = false

    for sor in nyers:gmatch("[^\r\n]+") do
        local szint = sor:sub(1, 1)

        -- 1-es szint: Nemzetség
        if szint == "1" then
            local nemz, extra = sor:match("^1%s+([^%s:]+)%s*(.*)")
            if nemz then
                if szuro == "" or nemz == szuro then
                    isVisible = true
                    counter = counter + 1
                    
                    -- Nemzetségnév linkkel, félkövér-dőlten
                    local nemz_link = "[[Kategória:" .. nemz .. "|'''''" .. nemz .. "''''']]"
                    
                    -- A típusfaj/szinonima részt a :: után keressük az 1# jelzésig
                    local maradek = extra:match("::%s*(.*)") or ""
                    table.insert(rows, "|-\n| " .. counter .. "\n| " .. nemz_link .. "\n| " .. formazSzinonimak(maradek))
                else
                    isVisible = false
                end
            end

        -- 2-es szint: Faj
        elseif szint == "2" and isVisible then
            local fajnev, maradek = sor:match("^2%s+([^2#]+)2#%s*(.*)")
            if fajnev then
                counter = counter + 1
                -- Fajnév linkkel, csak dőlten
                local tiszta_fajnev = mw.text.trim(fajnev)
                local faj_link = "[[" .. tiszta_fajnev .. "|''" .. tiszta_fajnev .. "'']]"
                table.insert(rows, "|-\n| " .. counter .. "\n| " .. faj_link .. "\n| " .. formazSzinonimak(maradek))
            end
        end
    end

    if #rows == 0 then return "Nincs találat." end

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

return p