وحدة:Wikidata2/sort claims

local p = {}

p.sortingproperties = { "P585", "P571", "P580", "P569", "P582", "P570" }
p.sorting_methods = {
    ["chronological"] = "chronological",
    ["تصاعدي"] = "chronological",
    ["asc"] = "chronological",
    ["inverted"] = "inverted",
    ["تنازلي"] = "inverted",
    ["desc"] = "inverted"
}

local function isvalid(x)
    if x and x ~= "" and x ~= "لا" then return x end
    return nil
end

local function comparedates(a, b) -- returns true if a is earlier than B or if a has a date but not b
    if a and b then
        return a > b
    elseif a then
        return true
    end
end

local function getqualifierbysortingproperty(claim, sortingproperty)
    for k, v in pairs(sortingproperty) do
        if claim and claim.qualifiers and claim.qualifiers[v] and claim.qualifiers[v][1].snaktype == "value" then
            local vali = claim.qualifiers[v][1].datavalue.value.time or claim.qualifiers[v][1].datavalue.value.amount
            if vali:sub(1, 1) == "+" then
                vali = vali:sub(2)
            end
            --mw.log(vali)
            return vali
        end
    end
    return nil
end

local function get_sorting_properties(options)
    if type(options.sortingproperty) == "table" then
        return options.sortingproperty
    elseif type(options.sortingproperty) == "string" and options.sortingproperty ~= "" then
        return mw.text.split(options.sortingproperty, ",")
    else
        return p.sortingproperties
    end
end

local function sortbyqualifier(claims, sorting_properties, options)
    if not sorting_properties or #sorting_properties == 0 then
        sorting_properties = get_sorting_properties(options)
    end

    local sort_by = p.sorting_methods[options.sortbytime] or options.sortbytime

    table.sort(
        claims,
        function(a, b)
            local timeA = getqualifierbysortingproperty(a, sorting_properties)
            local timeB = getqualifierbysortingproperty(b, sorting_properties)
            if sort_by == "inverted" then
                return comparedates(timeB, timeA)
            else
                return comparedates(timeA, timeB)
            end
        end
    )
    return claims
end

function p.sortbyqualifiernumber(claims, sorting_properties, options)
    if not sorting_properties or #sorting_properties == 0 then
        sorting_properties = get_sorting_properties(options)
    end

    local sort_by = p.sorting_methods[options.sortbynumber] or options.sortbynumber

    table.sort(
        claims,
        function(a, b)
            local timeA = getqualifierbysortingproperty(a, sorting_properties)
            local timeB = getqualifierbysortingproperty(b, sorting_properties)
            if sort_by == "inverted" then
                return comparedates(timeB, timeA)
            else
                return comparedates(timeA, timeB)
            end
        end
    )
    return claims
end

local function getDateArb(claim, sorting_properties)
    local sortingproperty = sorting_properties
    if claim.mainsnak.snaktype == "value" then
        local item = claim.mainsnak.datavalue.value["numeric-id"]
        if claim.mainsnak.datavalue.value["entity-type"] == "item" then
            item = "Q" .. item
        elseif claim.mainsnak.datavalue.value["entity-type"] == "property" then
            item = "P" .. item
        end
        for k, prop in pairs(sortingproperty) do
            local date =
                formatStatements({ property = prop, entityId = item, firstvalue = "t", noref = "t", modifytime = "q" })
            if isvalid(date) then
                --mw.log("item:".. item .. ", prop:".. prop .. ", date:".. date)
                return date
            end
        end
    end
end

local function sortbyarb(claims, sorting_properties, options)
    if not sorting_properties or #sorting_properties == 0 then
        sorting_properties = get_sorting_properties(options)
    end
    local sortingmethod = options.sortbyarbitrary or options.sortingmethod
    --mw.log("sortbyarb: " .. sortingmethod)

    table.sort(
        claims,
        function(a, b)
            local timeA = getDateArb(a, sorting_properties)
            local timeB = getDateArb(b, sorting_properties)
            if sortingmethod == "inverted" or p.sorting_methods[sortingmethod] == "inverted" then
                return comparedates(timeB, timeA)
            else
                return comparedates(timeA, timeB)
            end
        end
    )
    return claims
end

function p.sort_claims(claims, options)
    local sortingmethod = options.sortbyarbitrary or options.sortingmethod
    local sorting_properties = get_sorting_properties(options)

    if isvalid(options.sortbytime) and p.sorting_methods[options.sortbytime] then
        if #sorting_properties == 0 then
            sorting_properties = p.sortingproperties
        end
        claims = sortbyqualifier(claims, sorting_properties, options)
        --
    elseif isvalid(options.sortbynumber) and p.sorting_methods[options.sortbynumber] then
        claims = p.sortbyqualifiernumber(claims, sorting_properties, options)
        --
    elseif isvalid(sortingmethod) and p.sorting_methods[sortingmethod] then
        claims = sortbyarb(claims, sorting_properties, options)
    end
    return claims
end

return p
وحدة:Wikidata2/sort claims

الاستخدام
