وحدة:Wikidata2/tax/ملعب2

توثيق الوحدة [أنشئ] [محو الاختزان][استخدامات] [قوالب]

يمكنك أن تنشئ صفحة توثيق لهذه الوحدة (أنشئ).
يمكن للمحررين تجريب تعديلاتهم على الوحدة في صفحات ملعب (أنشئ | مرآة) ومختبر (أنشئ).
من فضلك أضف التصنيفات في الصفحة الفرعية للقالب /شرح. الصفحات الفرعية لـ وحدة.

-- This module implements [[template:تصنيف كائن/تصنيف علمي ويكي بيانات]].

local p = {}
local data = require("Module:Wikidata2/tax/cash")
local Cash = data.Cash
local colors = data.colors
local taxP105 = data.taxP105
local Cash2 = {}

function add_Tracking_Category(prop, options)
    return prop .. addTrackingCategory(options)
    --return prop
end

function FindInCash(id, prop)
    local ca = Cash[id]
    if ca and ca[prop] and ca[prop] ~= "" then
        mw.log(id .. " : " .. prop .. " : " .. ca[prop])
        return ca[prop]
    end
    return nil
end

function foo(iid, formatting, p)
    if not iid or iid == "" then
        return nil
    end

    local so = nil
    local st = formatStatements({
        property = p,
        entityId = iid,
        enlabelcate = "t",
        noref = "t",
        firstvalue = "true",
        formatting = formatting
    })
    
    if st and st ~= "" then
        so = st
    end
    
    return so
end

function GetP171id(id)
    if not id or id == "" then
        return nil
    end

    if not Cash2[id] then
        Cash2[id] = {}
    end

    local P171id = FindInCash(id, "P171")
    if not P171id then
        P171id = formatStatements({
            property = "P171",
            entityId = id,
            rank = "best",
            noref = "t",
            firstvalue = "true",
            formatting = "raw"
        })
        if P171id and P171id ~= "" then
            Cash2[id]["P171"] = P171id
        end
    end
    return P171id
end

function taxcolours2(id, options)
    local i = 0
    local ccc = ""
    while ccc == "" and i < 30 do
        local e = foo(id, "raw", "P105")
        if e and e ~= "" then
            if e == "Q36732" then
                ccc = colors[id] or ""
            end
        end
        id = GetP171id(id)
        i = i + 1
    end

    if ccc == "" and options.colour and options.colour ~= "" then
        ccc = options.colour
    end

    return ccc
end

function taxonrank(iid)
    local vvv = nil
    if not iid or iid == "" then
        return nil
    end

    local rank_raw = FindInCash(iid, "P105")
    if not rank_raw then
        rank_raw = formatStatements({
            property = "P105",
            entityId = iid,
            enlabelcate = "t",
            noref = "t",
            firstvalue = "true",
            formatting = "raw"
        })
        if not Cash2[iid] then
            Cash2[iid] = {}
        end
        Cash2[iid]["P105"] = rank_raw
    end

    if not rank_raw or rank_raw == "" then
        return nil
    end

    if taxP105[rank_raw] and taxP105[rank_raw] ~= "" then
        vvv = add_Tracking_Category(taxP105[rank_raw], {property = "P105", entityId = iid, noicon = "t"})
    else
        local rank_lab = formatStatements({
            property = "P105",
            entityId = iid,
            enlabelcate = "t",
            noref = "t",
            firstvalue = "true",
            formatting = ""
        })
        if rank_lab and rank_lab ~= "" then
            mw.log("Module:Wikidata2/tax: taxP105['" .. rank_raw .. "'] = '" .. rank_lab .. "'")
            vvv = add_Tracking_Category(rank_lab .. "", {property = "P105", entityId = iid, noicon = "t"})
        end
    end

    return vvv
end

function pro1(id)
    if not id or id == "" then
        return nil
    end

    local label
    local id_r = formatStatements({
        property = "P171",
        entityId = id,
        enlabelcate = "t",
        noref = "t",
        firstvalue = "true",
        formatting = "raw"
    })

    if id_r and id_r ~= "" then
        label = FindInCash(id_r, "label")
        if not label then
            label = formatStatements({
                property = "P171",
                entityId = id,
                enlabelcate = "t",
                noref = "e",
                firstvalue = "true"
            })
            if not Cash2[id_r] then
                Cash2[id_r] = {}
            end
            if label and label ~= "" then
                Cash2[id_r]["label"] = label
            end
        end
    end

    return label
end

function dd(id, taxo_id)
    -- taxolabel : الكائن
    -- d : المرتبة التصنيفية
    if id and id ~= "" then
        local taxolabel = pro1(taxo_id)
        local d = taxonrank(id) -- المرتبة التصنيفية

        if not d or d == "" then
            --d = foo( id , '' , 'P31' )
            --mw.log( "Module:Wikidata2/tax: foo[" .. id .. "] = " .. d)
            return nil
        end

        if taxolabel and taxolabel ~= "" then
            if d and d ~= "" then
                return d .. "||" .. taxolabel
            else
                return taxolabel
            end
        end
    end
end

function dd_old(id, taxolabel)
    -- taxolabel : الكائن
    -- d : المرتبة التصنيفية
    if id and id ~= "" then
        local d = taxonrank(id) -- المرتبة التصنيفية

        if not d or d == "" then
            return nil --'' -- nil
        end

        if taxolabel and taxolabel ~= "" then
            if d and d ~= "" then
                return d .. "||" .. taxolabel
            else
                return taxolabel
            end
        end
    end
end

function gettax(value_id, coo, lll, options)
    local P = {}
    local id_1 = value_id or ""
    
    mw.log("id_1: " .. id_1)
    P[0] = dd_old(value_id, lll)
    
    for number = 1, 30 do
        local s_id = GetP171id(id_1)
        P[number] = dd(s_id, id_1)
        id_1 = s_id
    end
    
    for k, v in pairs(Cash2) do
        if v["P171"] and v["P171"] ~= "" and v["P105"] and v["P105"] ~= "" then
            mw.log(string.format("Module:Wikidata2/tax: Cash['%s'] = {['P105'] = '%s', ['P171'] = '%s', ['label'] = '%s'}", k, v["P105"] or "", v["P171"] or "", v["label"] or ""))
        end
    end
    
    local ti = "[[التصنيف العلمي]]"
    local title = string.format('colspan="2" style="text-align: center;background-color:%s;" | %s', coo, add_Tracking_Category(ti, options))
    local head = '{| class="infobox biota" style="text-align: right; width: 200px; font-size: 100%%"'
    local End = "}"
    
    local taxon1 = {}
    for i = 30, 0, -1 do
        table.insert(taxon1, P[i] or "")
    end
    
    local q = { title }
    for _, j in ipairs(taxon1) do
        if j ~= "" then
            table.insert(q, j)
        end
    end
    
    local taxonSections = table.concat(q, "\n|-\n|")
    local result = string.format([[%s\n|-\n!%s\n|-\n|%s\n%s]], head, title, taxonSections, End)
    
    return taxonSections --result
end


function p.tax(datavalue, datatype, options)
    local value_id = datavalue.value.id
    local colour = taxcolours2(value_id, options)
    local lll = formatEntityId(value_id, options).value
    return gettax(value_id, colour, lll, options)
end

function p.taxcolour(datavalue, datatype, options)
    return taxcolours2(datavalue.value.id, options)
end

function p.gg(frame)
    local value_id = frame.args[1]
    local colour = "#ffffff" -- default color
    local lll = "test" -- default value for lll
    return gettax(value_id, colour, lll, frame.args)
end

return p