Mòdul:Wikidata: diferència entre les revisions

 

local p = {}

[10] = "F Y", -- precision: month

[11] = "F j, Y", -- precision: day

},

},

["addpencil"] = false, -- adds a pencil icon linked to Wikidata statement, planned to overwrite by Wikidata Bridge

["categorylabels"] = "", -- Category:Pages with Wikidata labels not translated (void for no local category)

["addfallback"] = {} -- additional fallback language codes

}

-- Credit to http://stackoverflow.com/a/1283608/2644759, cc-by-sa 3.0

local function tableMerge(t1, t2)

if type(v) == "table" then

if type(t1[k] or false) == "table" then

 

local function loadI18n(lang)

if exist and next(res) ~= nil then

tableMerge(i18n, res.i18n)

cases = res.cases

end

end

end

-- Argument is 'set' when it exists (not nil) or when it is not an empty string.

local function isSet(var)

end

 

if not isSet(label) then return label end

return '<span style="font-variant: small-caps;">' .. label .. '</span>'

elseif cases[localcase] then

end

return label, lang

end

 

local function feminineGender(id)

local claims = mw.wikibase.getBestStatements(id or mw.wikibase.getEntityIdForCurrentPage(),'P21')

end

return false

-- Fetch female form of label

local function feminineForm(id, lang)

for _, feminine_claim in ipairs(feminine_claims) do

return feminine_claim.mainsnak.datavalue.value.text

end

end

if label_id and (lang == nil or lang ~= uselang) then

ret_icon = " [[File:Noun Project label icon 1116097 cc mirror.svg|10px|baseline|"

.. mw.message.new('Translate-taction-translate'):inLanguage(uselang):plain()

untranslated = true

end

end

return ret_lang .. ret_icon

end

 

local function addEditIcon(parameters)

local ret = ''

.. "[[File:Arbcom ru editing.svg|10px|baseline|"

.. "|link=https://www.wikidata.org/wiki/" .. parameters.id .. "?uselang=" .. parameters.lang[1] .. "#" .. parameters.property .. "]]"

.. "</span>"

end

return ret

-- add edit icon to the last element of a table

local function addEditIconTable(thetable, parameters)

return thetable

end

local subparts = mw.ustring.find(parts[i], "=")

if subparts then

table.insert(parameters, parts[i])

end

end

return id

end

 

return expandBraces(mw.ustring.gsub(parameters.formatting, '$1', {['$1'] = data}), parameters.formatting)

elseif parameters.case then

end

return data

end

 

local function printDatatypeMedia(data, parameters)

local icon

if not string.find((parameters.formatting or ''), '$1', 1, true) then

icon = "no-icon"

end

return printDatatypeString(data, parameters), icon

if unit_symbol == '' then

-- fetch it

local langclaims = {}

table.insert(lang, 'mul') -- multilingual as last try

suffix = require(wiki.module_title .. "/Units").getUnit(amount, unit_label, id, false)

else

end

end

end

 

-- rounds out_num with significant figures of in_num (default precision)

-- first, count digits after decimal mark, handling cases like '12.345e6'

local exponent, prec

local suffix = ""

local conv_amount, conv_suffix

local unit_id = data.unit

unit_id = mw.ustring.sub(unit_id, mw.ustring.find(unit_id, "Q"), -1)

if parameters.convert == "default" or parameters.convert == "default2" then

local exist, units = pcall(require, wiki.module_title .. "/Units")

convert_to = units.convert_default[unit_id]

end

elseif string.sub(parameters.convert or '', 1, 1) == "Q" then

convert_to = resolveEntityId(parameters.convert)

end

if convert_to and convert_to ~= unit_id then

conv_amount = math.floor(tonumber(amount_f) + 0.5)

else

table.insert(conversions, mw.wikibase.getBestStatements(unit_id, 'P2370')[1]) -- conversion to SI unit

for _, conv in ipairs(conversions) do

if conv.mainsnak.snaktype == 'value' then -- no somevalue nor novalue

if conv.mainsnak.datavalue.value.unit == "http://www.wikidata.org/entity/" .. convert_to then

break

end

local lang_obj = mw.language.new(parameters.lang[1])

local sortkey = string.format("%019d", tonumber(amount) * 1000)

if parameters.case then

amount = case(parameters.case, amount, parameters.lang[1])

amount = lang_obj:formatNum(tonumber(amount))

end

if conv_amount then

if parameters.convert == 'default2' then

return conv_amount .. conv_suffix .. ' (' .. amount .. suffix .. ')', conv_sortkey

return conv_amount .. conv_suffix, conv_sortkey

end

end

return amount .. suffix, sortkey

ret1 = '[[' .. sitelink .. '|' .. labelcase .. ']]'

ret2 = labelcase

ret1 = '[[' .. label .. '|' .. labelcase .. ']]'

ret2 = labelcase

else

ret2 = labelcase or entity_id

end

end

end

 

if parameters.list == "lang" and data["language"] ~= parameters.lang[1] then

return

elseif parameters.formatting == "language" or parameters.formatting == "text" then

return printDatatypeString(snak.datavalue.value, parameters)

-- other data value string, tabular-data not implemented

return printDatatypeMedia(snak.datavalue.value, parameters)

elseif snak.datatype == "url" then

end

elseif snak.snaktype == 'novalue' then

return mw.message.new('Wikibase-snakview-snaktypeselector-novalue'):inLanguage(parameters.lang[1]):plain()

elseif snak.snaktype == 'somevalue' then

elseif snak[1] then -- a multi qualifier

local result, sortkey = {}, {}

for idx in pairs(snak) do

result[#result + 1], sortkey[#sortkey + 1] = getSnakValue(snak[idx], parameters)

end

return mw.text.listToText(result, parameters.qseparator, parameters.qconjunction), sortkey[1]

local function getValueOfParentClaim(claim, qualifierId, parameters)

local qids = mw.text.split(qualifierId, '/', true)

if qids[1] == parameters.property then

else

end

end

end

end

 

for snakidx = 1, #snakval do

if snakidx > 1 then refparts = refparts .. ", " end

end

refs[snakkey] = refparts

refparts = nil

if snakkey == "P248" then -- stated in

end

end

refs['P236'] = refs['P236'] or refParent(ref_name, 'P236') -- ISSN

refs['P356'] = refs['P356'] or refParent(ref_name, 'P356') -- DOI

end

end

if refparts then result = mw.getCurrentFrame():extensionTag("ref", refparts, {name=ref_name}) end

end

return result

 

-- Set whitelist or blacklist values

for i = 0, num_qual do

end

end

end

end

 

end

 

local id = args.item or args.from or (unnamed and mw.text.trim(args[1] or '') or nil)

id = pargs.item or pargs.from or (unnamed and mw.text.trim(pargs[1] or '') or nil)

end

end

return id

end

 

-- on debug console use: =p.claim{item="Q...", property="P...", ...}

function p.claim(frame)

return require(wiki.module_title .. "/" .. mw.message.new('Sandboxlink-subpage-name'):inLanguage(wiki.langcode):plain()).claim(frame)

end

--If a value is already set, use it

if isSet(args.value) then

-- arguments

local qualifierId = {}

local i = 2

while isSet(args["qualifier" .. i]) do

i = i + 1

end

local sorting_col = args.tablesort

local sorting_up = (args.sorting or "") ~= "-1"

local rowformat = args.rowformat

local references = args.references

local default = args.default

if default then showerrors = nil end

parameters.lang = findLang(args.lang)

-- defaults for table

local preformat, postformat = "", ""

if parameters.formatting == "table" then

parameters.separator = parameters.separator or "<br />"

-- set whitelist and blacklist values

end

if itemgender then

if string.match(itemgender, "^P%d+$") then

if snak_id then

idgender = snak_id

end

if gender_requested then

parameters.gender = "feminineform"

end

table.sort(sortindices, comparator)

local error

if parameters.list or parameters.formatting == "table" then

local sortkeys = {}

local refs = {}

local rowlist = {} -- rows to list with whitelist or blacklist

for idx in pairs(claims) do

local reference = {}

if not whitelisted then rowlist[idx] = true end

if parameters.formatting == "table" then

local params = tableParameters(args, parameters, "0")

params = tableParameters(args, parameters, j)

local valueq, sortkeyq, valueraw

valueq, sortkeyq, _ = getValueOfClaim(claim, nil, params)

else

valueq, sortkeyq, valueraw = getValueOfParentClaim(claim, q, params)

elseif string.find(q, "^/.+") then

valueq, sortkeyq, _ = getValueOfClaim(claim2[1], nil, params)

end

valueq, sortkeyq, _ = getValueOfClaim(claim, q, params)

end

end

end

values[#values]["col" .. j] = valueq

sortkeys[#sortkeys]["col" .. j] = sortkeyq or valueq

valueq = valueraw or getValueOfClaim(claim, qual, {["formatting"]="raw", ["lang"]=params.lang})

if whitelist[j] and whitelist[j][valueq or ""] then

elseif blacklist[j] and blacklist[j][valueq or ""] then

rowlist[#values] = false

end

end

table.sort(sortindices, comparator)

end

result = {}

for idx in pairs(values) do

else

local rowformatting = rowformat .. "$" -- fake end character added for easy gsub

value = mw.ustring.gsub(value, "$R0", reference) -- add reference

for i, _ in ipairs(qualifierId) do

local valueq = valuerow["col" .. i]

-- add fake end character $

-- gsub $i not followed by a number so $1 doesn't match $10, $11...

if isSet(value) then

result[#result + 1] = value

break

end

end

end

end

else

-- return first element

result, result2, error = getValueOfClaim(claim, qualifierId[1], parameters)

if result and references then result = result .. getReferences(claim, parameters.lang) end

end

if isSet(result) then

-- add edit icon, except table added previously and except explicit no-icon internal flag

result = result .. addEditIcon(parameters)

if showerrors then result = error else result = default end

end

end

end

 

 

local function uc_first(word)

return mw.ustring.upper(mw.ustring.sub(word, 1, 1)) .. mw.ustring.sub(word, 2)

end

 

local snaks = mw.wikibase.getBestStatements(id, property)

local mysnak = getSnak(snaks, {1, "mainsnak"})

if mysnak.datavalue then

entity_id = "Q" .. tostring(mysnak.datavalue.value['numeric-id'])

end

propertyLabel,

propertyLink,

last_only,

grammatical_case,

include_self)

local propertySups = mw.text.split(propertySupString, '[^P%d]')

end

local result = {}

for iter = 1, maxloop do

for _, propertySup in pairs(propertySups) do

end

if propertyLink then

if linktext then

link = mw.ustring.gsub(link, "%[%[(.*)%|.+%]%]", "[[%1|" .. linktext .. "]]")

end

end

break

end

end

return result

for i = first, last, iter do

local rowtext = mw.ustring.gsub(rowformat, "$[01]", {["$0"] = result[i][1], ["$1"] = result[i][2]})

end

if cascade then

for i = 1, #ret do

end

end

end

 

function p.getParentValues(frame)

return require(wiki.module_title .. "/" .. mw.message.new('Sandboxlink-subpage-name'):inLanguage(wiki.langcode):plain()).getParentValues(frame)

end

if id == nil then return end

local languages = findLang(args.lang)

end

end

end

end

propertyLabel,

propertyLink,

last_only,

case,

if #result == 0 then return end

local separator = args.separator; if not isSet(separator) then separator = "<br />" end

local sorting = args.sorting; if sorting == "" then sorting = nil end

-- Link with a parent label --------------------

function p.linkWithParentLabel(frame)

return require(wiki.module_title .. "/" .. mw.message.new('Sandboxlink-subpage-name'):inLanguage(wiki.langcode):plain()).linkWithParentLabel(frame)

end

-- get id value of property/qualifier

local largs = mw.clone(args)

largs.formatting = "raw"

largs.separator = "/·/"

local items_list, _ = p.claim(largs)

if not isSet(items_list) then return end

-- get label of parent property

if parent_claim == 'monolingualtext' then

largs.formatting = nil

else

largs.formatting = "label"

end

largs.property = args.parent

end

end

args.lang = findLang(args.lang)

return mw.text.listToText(link_table) .. addEditIcon(args)

-- Calculate number of years old ----------------------------

function p.yearsOld(frame)

return require(wiki.module_title .. "/" .. mw.message.new('Sandboxlink-subpage-name'):inLanguage(wiki.langcode):plain()).yearsOld(frame)

end

local args = frame.args or frame -- via invoke or require

local lang = mw.language.new('en')

local function getBestValue(id, prop)

end

-- Gets a label in a given language (content language by default) or its fallbacks, optionnally linked.

function p.getLabel(frame)

return require(wiki.module_title .. "/" .. mw.message.new('Sandboxlink-subpage-name'):inLanguage(wiki.langcode):plain()).getLabel(frame)

end

if id == nil then return end

local label_icon = ''

label = args.label

else

-- exceptions or labels fixed

local exist, labels = pcall(require, wiki.module_title .. "/labels" .. (languages[1] == wiki.langcode and '' or '/' .. languages[1]))

label = labels.infoboxLabelsFromId[id]

end

label, lang = getLabelByLangs(id, languages)

if label then

label = feminineForm(id, lang) or label

end

label = mw.language.new(lang):ucfirst(mw.text.nowiki(label)) -- sanitize

end

end

end

local linked = args.linked

if isSet(linked) and linked ~= "no" then

else

end

end

-- Copied from Module:Wikibase

function p.getSiteLink(frame)

end

 

-- Number of statements

function p.numStatements(frame)

end

return #num

end

-- Returns true if property datavalue is found excluding novalue/somevalue

function p.validProperty(frame)

if item == nil then return end

local prop_data = getSnak(mw.wikibase.getBestStatements(item, property), {1, "mainsnak", "datavalue"})

return prop_data and true or nil

end