Modul:CactaceaeTaxonok

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

local p = {}

local nyers_adat = [[
ß Acanthocalycium :: Type: Acanthocalycium spiniflorum ¤¤¤¤
Ł Acanthocalycium glaucum ¤¤¤ ÷  ≡≡ Lobivia thionantha var. glauca đ >≡ Echinopsis thionantha subsp. glauca ¤ >≡ Acanthocalycium thionanthum subsp. glaucum ¤¤ ÷  == Echinopsis glaucina đ
Ł Acanthocalycium leucanthum ¤¤¤ ÷  == Melocactus ambiguus đ ÷  == Cereus incurvispinus đ ÷  == Melocactus elegans đ ÷  == Echinonyctanthus leucanthus đ ÷  == Echinocactus salpigophorus đ ÷  == Echinopsis campylacantha var. leucantha đ ÷  == Echinopsis campylacantha var. stylodes đ ÷  == Echinopsis simplex đ ÷  == Cereus campylacanthus đ >≡ Echinopsis campylacantha ¤¤ ÷  == Echinopsis baldiana đ ÷  == Echinopsis cordobensis đ ÷  == Echinopsis intricatissima đ ÷  == Echinopsis melanopotamica đ ÷  == Echinopsis molesta đ ÷  == Echinopsis shaferi đ ÷  == Echinopsis spegazziniana đ ÷  == Echinopsis leucantha var. brasiliensis đ ÷  == Echinopsis gladispina đ ÷  == Echinopsis leucantha var. volliana đ
Ł Acanthocalycium rhodotrichum ¤¤¤ ÷  ≡≡ Echinopsis rhodotricha đ >− Acanthocalycium rhodotricum ¤¤ ÷  == Echinocactus forbesii đ ÷  == Echinopsis forbesii đ >≡ Echinopsis pentlandii var. forbesii ¤ >≡ Echinopsis pentlandii var. forbesii ¤ >≡ Lobivia pentlandii var. forbesii ¤¤ ÷  == Echinopsis valida var. forbesii đ ÷  == Cereus validissimus đ ÷  == Echinopsis rhodotricha var. roseiflora đ ÷  == Echinopsis spegazzinii đ ÷  == Echinopsis rhodotricha var. argentinensis đ ÷  == Echinopsis rhodotricha var. robusta đ ÷  == Echinopsis robinsoniana đ ÷  == Echinopsis chacoana var. spinosior đ >≡ Echinopsis rhodotricha var. spinosior ¤¤ ÷  == Echinopsis rhodotricha var. brevispina đ
Ł Acanthocalycium rhodotrichum subsp. chacoanum ¤¤¤ ÷  ≡≡ Echinopsis chacoana đ >≡ Echinopsis rhodotricha var. chacoana ¤ >≡ Echinopsis rhodotricha subsp. chacoana ¤¤ ÷  == Echinopsis klingleriana đ
Ł Acanthocalycium rhodotrichum subsp. rhodotrichum ¤¤¤ ÷  == Echinopsis minuana đ ÷  == Echinopsis meyeri đ
Ł Acanthocalycium spiniflorum ¤¤¤ ÷  ≡≡ Echinocactus spiniflorus đ >≡ Echinopsis spiniflora ¤ >≡ Lobivia spiniflora ¤¤ ÷  == Echinopsis klimpeliana đ >≡ Lobivia klimpeliana ¤ >≡ Acanthocalycium klimpelianum ¤ >≡ Lobivia spiniflora var. klimpeliana ¤¤ ÷  == Echinopsis violacea đ >≡ Acanthocalycium violaceum ¤ >≡ Lobivia spiniflora var. violacea ¤ >− Acanthocalycium spiniflorum f. violaceum ¤¤ ÷  == Acanthocalycium peitscherianum đ >≡ Echinopsis peitscherana ¤ >≡ Lobivia spiniflora var. peitscheriana ¤ >− Acanthocalycium spiniflorum f. peitscherianum ¤¤ ÷  == Acanthocalycium variiflorum đ ÷  == Lobivia spiniflora var. macrantha đ >≡ Acanthocalycium klimpelianum var. macranthum ¤¤
Ł Acanthocalycium thionanthum ¤¤¤ ÷  ≡≡ Echinocactus thionanthus đ >≡ Lobivia thionantha ¤ >≡ Echinopsis thionantha ¤ >≡ Echinopsis thionantha ¤ >− Lobivia thionanthus ¤¤ ÷  == Echinocactus chionanthus đ >≡ Lobivia chionanthus ¤ >≡ Echinopsis chionantha ¤ >≡ Acanthocalycium chionanthum ¤ >≡ Lobivia thionantha var. chionantha ¤¤ ÷  == Acanthocalycium griseum đ ÷  == Acanthocalycium brevispinum đ >≡ Echinopsis brevispina ¤ >≡ Lobivia thionantha var. brevispina ¤¤ ÷  == Acanthocalycium aurantiacum đ >≡ Echinopsis aurantiaca ¤ >≡ Lobivia thionantha var. aurantiaca ¤¤ ÷  == Acanthocalycium catamarcense đ >≡ Lobivia thionantha var. catamarcensis ¤¤ ÷  == Lobivia thionantha var. erythrantha đ
Ł Acanthocalycium thionanthum subsp. ferrarii ¤¤¤ ÷  ≡≡ Acanthocalycium ferrarii đ >≡ Lobivia thionantha var. ferrarii ¤ >≡ Echinopsis thionantha subsp. ferrarii ¤¤ ÷  == Lobivia thionantha var. munita đ >≡ Acanthocalycium thionanthum var. munitum ¤¤ ÷  == Lobivia thionantha var. variiflora đ
Ł Acanthocalycium thionanthum subsp. thionanthum ¤¤¤
]]

function p.tablazat(frame)
    local res = '{| class="wikitable sortable datatable-hook stripe hover compact" data-page-length="50" style="width:100%; font-size:90%;"\n'
    -- Fejléc három oszloppal
    res = res .. "! # !! Taxonnév !! Típusfaj, szinonima\n"

    local sorszam = 0
    for sor in nyers_adat:gmatch("[^\r\n]+") do
        local taxon = ""
        local szinonimak = ""
        local tipus_sor = false

        if sor:match("^ß") then
            -- Szétbontjuk a "ß Nemzetség :: Type: ..." formátumot
            local nemzettseg, tipus = sor:match("^ß%s*([^:]+)::%s*(.+)")
            if nemzettseg then
                taxon = mw.text.trim(nemzettseg):gsub("¤+", "")
                szinonimak = mw.text.trim(tipus):gsub("¤+", "")
                tipus_sor = true
            end
        elseif sor:match("^Ł") then
            local tiszta = sor:gsub("^Ł%s*", "")
            local t, sz = tiszta:match("([^¤]+)¤¤¤(.*)")
            if t then
                taxon = t
                szinonimak = sz:gsub("[¤đ÷]", ""):gsub("≡≡", "≡"):gsub("==", "=")
            end
        end

        if taxon ~= "" then
            sorszam = sorszam + 1
            res = res .. "|-\n"
            -- Sorszám oszlop
            res = res .. "| " .. sorszam .. "\n"
            -- Taxonnév oszlop
            res = res .. "| " .. mw.text.trim(taxon) .. "\n"
            -- Típusfaj / Szinonima oszlop
            res = res .. "| " .. mw.text.trim(szinonimak or "") .. "\n"
        end
    end

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

return p