Ugrás a tartalomhoz

„Modul:CactaceaeTaxonSzinonimák” változatai közötti eltérés

Innen: MKOE wiki
Nincs szerkesztési összefoglaló
Nincs szerkesztési összefoglaló
1. sor: 1. sor:
local p = {}
-- 2. FELDOLGOZÁS
 
-- Szigorú tisztítás az összehasonlításhoz és megjelenítéshez
local function cleanName(s)
    if not s or s == "" then return "" end
    -- Eltávolítjuk a sallangokat: számok, jelek, kettőskereszt, @, kettőspontok
    local cleaned = mw.ustring.gsub(s, "[%d#@≡=%-−%:]+", "")
    return mw.text.trim(cleaned)
end
 
-- Függvény a nevek dőlt betűs formázásához a rövidítések kihagyásával
local function formatItalic(name)
    if not name or name == "" then return "" end
   
    -- A dőlt betűs formázásból kihagyandó rendszertani kategóriák (vesszővel elválasztva)
    local keywords = {"subgen%.", "subg%.", "sect%.", "subsect%.", "subsp%.", "var%.", "subvar%.", "f%."}
   
    local formatted = name
    for _, kw in ipairs(keywords) do
        -- Megkeressük a kulcsszót, és köré rakjuk a dőlt betűket lezáró/nyitó jeleket
        -- Példa: ''Lobivia'' var. ''glauca''
        formatted = mw.ustring.gsub(formatted, " (" .. kw .. ") ", "'' %1 ''")
    end
   
    -- Az egész nevet dőltbe tesszük, de ha voltak benne kulcsszavak, a dupla '' jelek kioltják egymást
    return "''" .. formatted .. "''"
end
 
function p.keres(frame)
    local keresettTaxon = frame.args[1] or frame:getParent().args[1]
    if not keresettTaxon or keresettTaxon == "" then return "Nincs megadva taxon!" end
   
    keresettTaxon = mw.text.trim(keresettTaxon)
    local keresettAlacsony = cleanName(keresettTaxon):lower()
   
    local dataModul = require("Modul:CactaceaeTaxonokData")
    local nyersAdat = dataModul.getAdatok()
   
    local homoHTML = "≡"
    local hibaHTML = "−"
   
    local talaltSor = nil
 
    -- 1. KERESÉS ÉS ELŐTISZTÍTÁS
    for sor in nyersAdat:gmatch("[^\r\n]+") do
        -- Kivágjuk a ":: Type: ..." részt
        local tisztaSor = mw.ustring.gsub(sor, "%s*::%s*Type:.-(%d#)", " %1")
       
        if mw.ustring.find(tisztaSor:lower(), keresettAlacsony, 1, true) then
            local darabok = mw.text.split(tisztaSor, "#")
            for _, darab in ipairs(darabok) do
                if cleanName(darab):lower() == keresettAlacsony then
                    talaltSor = tisztaSor
                    break
                end
            end
        end
        if talaltSor then break end
    end
   
    if not talaltSor then
        return "A megadott taxon (''" .. keresettTaxon .. "'') nem található az adatbázisban."
    end
   
    -- 2. FELDOLGOZÁS
     local elsoNevMatch = mw.ustring.match(talaltSor, "^%d+ ([^#≡=%-−]+)")
     local elsoNevMatch = mw.ustring.match(talaltSor, "^%d+ ([^#≡=%-−]+)")
     local ervenyesNevFinal = cleanName(elsoNevMatch or "Ismeretlen taxon")
     local ervenyesNevFinal = cleanName(elsoNevMatch or "Ismeretlen taxon")


     if ervenyesNevFinal == keresettTaxon then
    -- ELŐRE deklaráljuk a változót a blokkon kívül!
         local eredmeny = "=== A(z) " .. formatItalic(ervenyesNevFinal) .. " szinonimái ===\n\n"
    local eredmeny = ""
   
    -- Itt csak értéket adunk neki, nem rakjuk elé a 'local' szót újra
     if ervenyesNevFinal:lower() == keresettTaxon:lower() then
         eredmeny = "== A " .. formatItalic(ervenyesNevFinal) .. " szinonimái ==\n\n"
     else
     else
         local eredmeny = "=== A(z) " .. formatItalic(ervenyesNevFinal) .. " szinonimái (köztük a " .. formatItalic(keresettTaxon) .. " szinonima) ===\n\n"
         eredmeny = "== A " .. formatItalic(ervenyesNevFinal) .. " szinonimái ==\n*(A keresett ''" .. keresettTaxon .. "'' ennek a taxonnak a szinonimája)*\n\n"
     end
     end
      
      
108. sor: 48. sor:
             table.insert(sorElemei, elem)
             table.insert(sorElemei, elem)
         end
         end
        -- Itt már létezni fog az 'eredmeny', nem lesz nil hiba
         eredmeny = eredmeny .. "* " .. csoport.elsoJel .. " " .. table.concat(sorElemei, ", ") .. "\n"
         eredmeny = eredmeny .. "* " .. csoport.elsoJel .. " " .. table.concat(sorElemei, ", ") .. "\n"
     end
     end
      
      
     return eredmeny
     return eredmeny
end
return p

A lap 2026. január 11., 14:53-kori változata

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

-- 2. FELDOLGOZÁS
    local elsoNevMatch = mw.ustring.match(talaltSor, "^%d+ ([^#≡=%-−]+)")
    local ervenyesNevFinal = cleanName(elsoNevMatch or "Ismeretlen taxon")

    -- ELŐRE deklaráljuk a változót a blokkon kívül!
    local eredmeny = ""
    
    -- Itt csak értéket adunk neki, nem rakjuk elé a 'local' szót újra
    if ervenyesNevFinal:lower() == keresettTaxon:lower() then
        eredmeny = "== A " .. formatItalic(ervenyesNevFinal) .. " szinonimái ==\n\n"
    else
        eredmeny = "== A " .. formatItalic(ervenyesNevFinal) .. " szinonimái ==\n*(A keresett ''" .. keresettTaxon .. "'' ennek a taxonnak a szinonimája)*\n\n"
    end
    
    local lista = {}
    local szinonimaDarabok = mw.text.split(talaltSor, "#")
    
    for _, darab in ipairs(szinonimaDarabok) do
        local jel = mw.ustring.match(darab, "([≡=%-−])")
        local szint = mw.ustring.match(darab, "(%d+)$")
        
        if jel and szint then
            local tisztaNev = cleanName(darab)
            local szam = tonumber(szint)
            local aktJel = (jel == "≡") and homoHTML or ((jel == "-" or jel == "−") and hibaHTML or jel)
            
            if tisztaNev ~= "" then
                if szam == 4 and #lista > 0 then
                    table.insert(lista[#lista].nevek, {jel = aktJel, nev = tisztaNev})
                else
                    table.insert(lista, {
                        elsoJel = aktJel,
                        nevek = {{jel = "", nev = tisztaNev}}
                    })
                end
            end
        end
    end
    
    -- 3. ÖSSZEÁLLÍTÁS
    if #lista == 0 then return eredmeny .. "* Nincsenek szinonimák." end
    
    for _, csoport in ipairs(lista) do
        local sorElemei = {}
        for i, adat in ipairs(csoport.nevek) do
            local elem = formatItalic(adat.nev)
            if i > 1 then elem = adat.jel .. " " .. elem end
            table.insert(sorElemei, elem)
        end
        -- Itt már létezni fog az 'eredmeny', nem lesz nil hiba
        eredmeny = eredmeny .. "* " .. csoport.elsoJel .. " " .. table.concat(sorElemei, ", ") .. "\n"
    end
    
    return eredmeny