Модуль:Wikidata — различия между версиями

Материал из Wikipedia PC-SUPP
Перейти к: навигация, поиск
Строка 1: Строка 1:
−
-- settings, may differ from project to project
+
-- vim: set noexpandtab ft=lua ts=4 sw=4:
−
local fileDefaultSize = '267x400px';
+
require('Module:No globals')
−
local outputReferences = true;
 
  
−
-- sources that shall be omitted if any preffered sources exists
+
local p = {}
−
local deprecatedSources = {
+
local debug = false
−
Q36578 = true, -- Gemeinsame Normdatei
 
−
Q63056 = true, -- Find a Grave
 
−
Q15222191 = true, -- BNF
 
−
};
 
−
local preferredSources = {
 
−
Q5375741  = true, -- Encyclopædia Britannica Online
 
−
Q17378135  = true, -- Great Soviet Encyclopedia (1969—1978)
 
−
};
 
  
−
-- Ссылки на используемые модули, которые потребуются в 99% случаев загрузки страниц (чтобы иметь на виду при переименовании)
 
−
local moduleSources = require( 'Module:Sources' )
 
−
local WDS = require( 'Module:WikidataSelectors' );
 
  
−
-- Константы
+
------------------------------------------------------------------------------
−
local contentLanguageCode = mw.getContentLanguage():getCode();
+
-- module local variables and functions
  
−
local p = {};
+
local wiki =
−
local config = nil;
+
{
 +
langcode = mw.language.getContentLanguage().code
 +
}
  
−
local formatDatavalue, formatEntityId, formatRefs, formatSnak, formatStatement,
+
-- internationalisation
−
formatStatementDefault, formatProperty, getSourcingCircumstances,
+
local i18n =
−
getPropertyDatatype, getPropertyParams, throwError, toBoolean;
+
{
 +
["errors"] =
 +
{
 +
["property-not-found"] = "Property not found.",
 +
["entity-not-found"] = "Wikidata entity not found.",
 +
["unknown-claim-type"] = "Unknown claim type.",
 +
["unknown-entity-type"] = "Unknown entity type.",
 +
["qualifier-not-found"] = "Qualifier not found.",
 +
["site-not-found"] = "Wikimedia project not found.",
 +
["unknown-datetime-format"] = "Unknown datetime format.",
 +
["local-article-not-found"] = "Article is not yet available in this wiki."
 +
},
 +
["datetime"] =
 +
{
 +
-- $1 is a placeholder for the actual number
 +
[0] = "$1 billion years", -- precision: billion years
 +
[1] = "$100 million years", -- precision: hundred million years
 +
[2] = "$10 million years", -- precision: ten million years
 +
[3] = "$1 million years", -- precision: million years
 +
[4] = "$100,000 years", -- precision: hundred thousand years
 +
[5] = "$10,000 years", -- precision: ten thousand years
 +
[6] = "$1 millennium", -- precision: millennium
 +
[7] = "$1 century", -- precision: century
 +
[8] = "$1s", -- precision: decade
 +
-- the following use the format of #time parser function
 +
[9]  = "Y", -- precision: year,
 +
[10] = "F Y", -- precision: month
 +
[11] = "F j, Y", -- precision: day
 +
[12] = "F j, Y ga", -- precision: hour
 +
[13] = "F j, Y g:ia", -- precision: minute
 +
[14] = "F j, Y g:i:sa", -- precision: second
 +
["beforenow"] = "$1 BCE", -- how to format negative numbers for precisions 0 to 5
 +
["afternow"] = "$1 CE", -- how to format positive numbers for precisions 0 to 5
 +
["bc"] = '$1 "BCE"', -- how print negative years
 +
["ad"] = "$1", -- how print positive years
 +
-- the following are for function getDateValue() and getQualifierDateValue()
 +
["default-format"] = "dmy", -- default value of the #3 (getDateValue) or
 +
-- #4 (getQualifierDateValue) argument
 +
["default-addon"] = "BC", -- default value of the #4 (getDateValue) or
 +
-- #5 (getQualifierDateValue) argument
 +
["prefix-addon"] = false, -- set to true for languages put "BC" in front of the
 +
-- datetime string; or the addon will be suffixed
 +
["addon-sep"] = " ", -- separator between datetime string and addon (or inverse)
 +
["format"] = -- options of the 3rd argument
 +
{
 +
["mdy"] = "F j, Y",
 +
["my"] = "F Y",
 +
["y"] = "Y",
 +
["dmy"] = "j F Y",
 +
["ymd"] = "Y-m-d",
 +
["ym"] = "Y-m"
 +
}
 +
},
 +
["monolingualtext"] = '<span lang="%language">%text</span>',
 +
["warnDump"] = "[[Category:Called function 'Dump' from module Wikidata]]",
 +
["ordinal"] =
 +
{
 +
[1] = "st",
 +
[2] = "nd",
 +
[3] = "rd",
 +
["default"] = "th"
 +
}
 +
}
  
−
local function copyTo( obj, target, skipEmpty )
+
-- Credit to http://stackoverflow.com/a/1283608/2644759
−
for k, v in pairs( obj ) do
+
-- cc-by-sa 3.0
−
if skipEmpty ~= true or ( v ~= nil and v ~= '' ) then
+
local function tableMerge(t1, t2)
−
target[k] = v;
+
for k,v in pairs(t2) do
 +
if type(v) == "table" then
 +
if type(t1[k] or false) == "table" then
 +
tableMerge(t1[k] or {}, t2[k] or {})
 +
else
 +
t1[k] = v
 +
end
 +
else
 +
t1[k] = v
 
end
 
end
 
end
 
end
−
return target;
+
return t1
 
end
 
end
  
−
local function min( prev, next )
+
local function loadI18n()
−
if ( prev == nil ) then return next;
+
local exist, res = pcall(require, "Module:Wikidata/i18n")
−
elseif ( prev > next ) then return next;
+
if exist and next(res) ~= nil then
−
else return prev; end
+
tableMerge(i18n, res.i18n)
−
end
+
end
−
 
 
−
local function max( prev, next )
 
−
if ( prev == nil ) then return next;
 
−
elseif ( prev < next ) then return next;
 
−
else return prev; end
 
 
end
 
end
  
−
local function getConfig( section, code )
+
loadI18n()
−
if config == nil then
 
−
config = require( 'Module:Wikidata/config' );
 
−
end;
 
−
if not config then
 
−
config = {};
 
−
end
 
  
−
if not section then
+
-- this function needs to be internationalised along with the above:
−
return config;
+
-- takes cardinal numer as a numeric and returns the ordinal as a string
 +
-- we need three exceptions in English for 1st, 2nd, 3rd, 21st, .. 31st, etc.
 +
local function makeOrdinal (cardinal)
 +
local ordsuffix = i18n.ordinal.default
 +
if cardinal % 10 == 1 then
 +
ordsuffix = i18n.ordinal[1]
 +
elseif cardinal % 10 == 2 then
 +
ordsuffix = i18n.ordinal[2]
 +
elseif cardinal % 10 == 3 then
 +
ordsuffix = i18n.ordinal[3]
 
end
 
end
−
if not code then
+
-- In English, 1, 21, 31, etc. use 'st', but 11, 111, etc. use 'th'
−
return config[ section ] or {};
+
-- similarly for 12 and 13, etc.
 +
if (cardinal % 100 == 11) or (cardinal % 100 == 12) or (cardinal % 100 == 13) then
 +
ordsuffix = i18n.ordinal.default
 
end
 
end
 +
return tostring(cardinal) .. ordsuffix
 +
end
  
−
if not config[ section ] then
+
local function printError(code)
−
return nil;
+
return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>'
−
end
 
−
return config[ section ][ code ];
 
 
end
 
end
  
−
local function getCategoryByCode( code )
+
local function parseDateValue(timestamp, date_format, date_addon)
−
local value = getConfig( 'categories', code );
+
local prefix_addon = i18n["datetime"]["prefix-addon"]
−
if not value or value == '' then
+
local addon_sep = i18n["datetime"]["addon-sep"]
−
return '';
+
local addon = ""
 +
 
 +
-- check for negative date
 +
if string.sub(timestamp, 1, 1) == '-' then
 +
timestamp = '+' .. string.sub(timestamp, 2)
 +
addon = date_addon
 
end
 
end
−
return '[[Category:' .. value .. ']]';
+
local function d(f)
−
end
+
local year_suffix
−
 
+
local tstr = ""
−
local function splitISO8601(str)
+
local lang_obj = mw.language.new(wiki.langcode)
−
if 'table' == type(str) then
+
local f_parts = mw.text.split(f, 'Y', true)
−
if str.args and str.args[1] then
+
for idx, f_part in pairs(f_parts) do
−
str = '' .. str.args[1]
+
year_suffix = ''
 +
if string.match(f_part, "x[mijkot]$") then
 +
-- for non-Gregorian year
 +
f_part = f_part .. 'Y'
 +
elseif idx < #f_parts then
 +
-- supress leading zeros in year
 +
year_suffix = lang_obj:formatDate('Y', timestamp)
 +
year_suffix = string.gsub(year_suffix, '^0+', '', 1)
 +
end
 +
tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
 +
end
 +
if addon ~= "" and prefix_addon then
 +
return addon .. addon_sep .. tstr
 +
elseif addon ~= "" then
 +
return tstr .. addon_sep .. addon
 
else
 
else
−
return 'unknown argument type: ' .. type( str ) .. ': ' .. table.tostring( str )
+
return tstr
 
end
 
end
 
end
 
end
−
local Y, M, D = (function(str)
+
local _date_format = i18n["datetime"]["format"][date_format]
−
local pattern = "(%-?%d+)%-(%d+)%-(%d+)T"
+
if _date_format ~= nil then
−
local Y, M, D = mw.ustring.match( str, pattern )
+
return d(_date_format)
−
return tonumber(Y), tonumber(M), tonumber(D)
+
else
−
end) (str);
+
return printError("unknown-datetime-format")
−
local h, m, s = (function(str)
+
end
−
local pattern = "T(%d+):(%d+):(%d+)%Z";
 
−
local H, M, S = mw.ustring.match( str, pattern);
 
−
return tonumber(H), tonumber(M), tonumber(S);
 
−
end) (str);
 
−
local oh,om = ( function(str)
 
−
if str:sub(-1)=="Z" then return 0,0 end; -- ends with Z, Zulu time
 
−
-- matches ±hh:mm, ±hhmm or ±hh; else returns nils
 
−
local pattern = "([-+])(%d%d):?(%d?%d?)$";
 
−
local sign, oh, om = mw.ustring.match( str, pattern);
 
−
sign, oh, om = sign or "+", oh or "00", om or "00";
 
−
return tonumber(sign .. oh), tonumber(sign .. om);
 
−
end )(str)
 
−
return {year=Y, month=M, day=D, hour=(h+oh), min=(m+om), sec=s};
 
 
end
 
end
  
−
local function parseTimeBoundaries( time, precision )
+
-- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}
−
local s = splitISO8601( time );
+
-- with the millennium/century/decade handling of formatDate()
−
if (not s) then return nil; end
+
local function parseDateFull(timestamp, precision, date_format, date_addon)
 +
local prefix_addon = i18n["datetime"]["prefix-addon"]
 +
local addon_sep = i18n["datetime"]["addon-sep"]
 +
local addon = ""
  
−
if ( precision >= 0 and precision <= 8 ) then
+
-- check for negative date
−
local powers = { 1000000000 , 100000000, 10000000, 1000000, 100000, 10000, 1000, 100, 10 }
+
if string.sub(timestamp, 1, 1) == '-' then
−
local power = powers[ precision + 1 ];
+
timestamp = '+' .. string.sub(timestamp, 2)
−
local left = s.year - ( s.year % power );
+
addon = date_addon
−
return { tonumber(os.time( {year=left, month=1, day=1, hour=0, min=0, sec=0} )) * 1000,
 
−
tonumber(os.time( {year=left + power - 1, month=12, day=31, hour=29, min=59, sec=58} )) * 1000 + 1999 };
 
 
end
 
end
  
−
if ( precision == 9 ) then
+
-- get the next four characters after the + (should be the year now in all cases)
−
return { tonumber(os.time( {year=s.year, month=1, day=1, hour=0, min=0, sec=0} )) * 1000,
+
-- ok, so this is dirty, but let's get it working first
−
tonumber(os.time( {year=s.year, month=12, day=31, hour=23, min=59, sec=58} )) * 1000 + 1999 };
+
local intyear = tonumber(string.sub(timestamp, 2, 5))
 +
if intyear == 0 and precision <= 9 then
 +
return ""
 
end
 
end
  
−
if ( precision == 10 ) then
+
-- precision is 10000 years or more
−
local lastDays = {31, 28.25, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
+
if precision <= 5 then
−
local lastDay = lastDays[s.month];
+
local factor = 10 ^ ((5 - precision) + 4)
−
return { tonumber(os.time( {year=s.year, month=s.month, day=1, hour=0, min=0, sec=0} )) * 1000,
+
local y2 = math.ceil(math.abs(intyear) / factor)
−
tonumber(os.time( {year=s.year, month=s.month, day=lastDay, hour=23, min=59, sec=58} )) * 1000 + 1999 };
+
local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
 +
if addon ~= "" then
 +
-- negative date
 +
relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
 +
else
 +
relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
 +
end
 +
return relative
 
end
 
end
  
−
if ( precision == 11 ) then
+
-- precision is decades (8), centuries (7) and millennia (6)
−
return { tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=0, min=0, sec=0} )) * 1000,
+
local era, card
−
tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=23, min=59, sec=58} )) * 1000 + 1999 };
+
if precision == 6 then
 +
card = math.floor((intyear - 1) / 1000) + 1
 +
era = mw.ustring.gsub(i18n.datetime[6], "$1", makeOrdinal(card))
 
end
 
end
−
 
+
if precision == 7 then
−
if ( precision == 12 ) then
+
card = math.floor((intyear - 1) / 100) + 1
−
return { tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=0, sec=0} )) * 1000,
+
era = mw.ustring.gsub(i18n.datetime[7], "$1", makeOrdinal(card))
−
tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=59, sec=58} )) * 1000 + 19991999 };
 
 
end
 
end
−
 
+
if precision == 8 then
−
if ( precision == 13 ) then
+
era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(intyear) / 10) * 10))
−
return { tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=s.min, sec=0} )) * 1000,
 
−
tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=s.min, sec=58} )) * 1000 + 1999 };
 
 
end
 
end
−
 
+
if era then
−
if ( precision == 14 ) then
+
if addon ~= "" then
−
local t = tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=s.min, sec=0} ) );
+
era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
−
return { t * 1000, t * 1000 + 999 };
+
else
 +
era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era)
 +
end
 +
return era
 
end
 
end
  
−
error('Unsupported precision: ' .. precision );
+
local _date_format = i18n["datetime"]["format"][date_format]
−
end
+
if _date_format ~= nil then
−
 
+
-- check for precision is year and override supplied date_format
−
--[[
+
if precision == 9 then
−
Преобразует строку в булевое значение
+
_date_format = i18n["datetime"][9]
−
 
+
end
−
Принимает: строковое значение (может отсутствовать)
+
local year_suffix
−
Возвращает: булевое значение true или false, если получается распознать значение, или defaultValue во всех остальных  случаях
+
local tstr = ""
−
]]
+
local lang_obj = mw.language.new(wiki.langcode)
−
local function toBoolean( valueToParse, defaultValue )
+
local f_parts = mw.text.split(_date_format, 'Y', true)
−
if ( valueToParse ~= nil ) then
+
for idx, f_part in pairs(f_parts) do
−
if valueToParse == false or valueToParse == '' or valueToParse == 'false' or valueToParse == '0' then
+
year_suffix = ''
−
return false
+
if string.match(f_part, "x[mijkot]$") then
 +
-- for non-Gregorian year
 +
f_part = f_part .. 'Y'
 +
elseif idx < #f_parts then
 +
-- supress leading zeros in year
 +
year_suffix = lang_obj:formatDate('Y', timestamp)
 +
year_suffix = string.gsub(year_suffix, '^0+', '', 1)
 +
end
 +
tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
 +
end
 +
local fdate
 +
if addon ~= "" and prefix_addon then
 +
fdate = addon .. addon_sep .. tstr
 +
elseif addon ~= "" then
 +
fdate = tstr .. addon_sep .. addon
 +
else
 +
fdate = tstr
 
end
 
end
−
return true
 
−
end
 
−
return defaultValue;
 
−
end
 
  
−
--[[
+
return fdate
−
Функция для получения сущности (еntity) для текущей страницы
 
−
Подробнее о сущностях см. d:Wikidata:Glossary/ru
 
−
 
 
−
Принимает: строковый индентификатор (типа P18, Q42)
 
−
Возвращает: объект таблицу, элементы которой индексируются с нуля
 
−
]]
 
−
local function getEntityFromId( id )
 
−
local entity;
 
−
local wbStatus;
 
−
 
 
−
if id then
 
−
wbStatus, entity = pcall( mw.wikibase.getEntityObject, id )
 
 
else
 
else
−
wbStatus, entity = pcall( mw.wikibase.getEntityObject );
+
return printError("unknown-datetime-format")
 
end
 
end
−
 
−
return entity;
 
 
end
 
end
  
−
--[[
+
-- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field
−
Внутрення функция для формирования сообщения об ошибке
+
-- use these as the second parameter and this function instead of the built-in "pairs" function
 +
-- to iterate over all qualifiers and snaks in the intended order.
 +
local function orderedpairs(array, order)
 +
if not order then return pairs(array) end
  
−
Принимает: ключ элемента в таблице config.errors (например entity-not-found)
+
-- return iterator function
−
Возвращает: строку сообщения
+
local i = 0
−
]]
+
return function()
−
local function throwError( key )
+
i = i + 1
−
error( getConfig( 'errors', key ) );
+
if order[i] then
−
end
+
return order[i], array[order[i]]
−
 
+
end
−
--[[
 
−
Функция для получения идентификатора сущностей
 
−
 
 
−
Принимает: объект таблицу сущности
 
−
Возвращает: строковый индентификатор (типа P18, Q42)
 
−
]]
 
−
local function getEntityIdFromValue( value )
 
−
local prefix = ''
 
−
if value['entity-type'] == 'item' then
 
−
prefix = 'Q'
 
−
elseif value['entity-type'] == 'property' then
 
−
prefix = 'P'
 
−
else
 
−
throwError( 'unknown-entity-type' )
 
 
end
 
end
−
return prefix .. value['numeric-id']
 
 
end
 
end
  
−
-- проверка на наличие специилизированной функции в опциях
+
-- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
−
local function getUserFunction( options, prefix, defaultFunction )
+
local function normalizeDate(date)
−
-- проверка на указание специализированных обработчиков в параметрах,
+
date = mw.text.trim(date, "+")
−
-- переданных при вызове
+
-- extract year
−
if options[ prefix .. '-module' ] or options[ prefix .. '-function' ] then
+
local yearstr = mw.ustring.match(date, "^\-?%d+")
−
-- проверка на пустые строки в параметрах или их отсутствие
+
local year = tonumber(yearstr)
−
if not options[ prefix .. '-module' ] or not options[ prefix .. '-function' ] then
+
-- remove leading zeros of year
−
throwError( 'unknown-' .. prefix .. '-module' );
+
return year .. mw.ustring.sub(date, #yearstr + 1), year
−
end
 
−
-- динамическая загруза модуля с обработчиком указанным в параметре
 
−
local formatter = require( 'Module:' .. options[ prefix .. '-module' ] );
 
−
if formatter == nil then
 
−
throwError( prefix .. '-module-not-found' )
 
−
end
 
−
local fun = formatter[ options[ prefix .. '-function' ] ]
 
−
if fun == nil then
 
−
throwError( prefix .. '-function-not-found' )
 
−
end
 
−
return fun;
 
−
end
 
−
 
 
−
return defaultFunction;
 
 
end
 
end
  
−
-- Выбирает свойства по property id, дополнительно фильтруя их по рангу
+
local function formatDate(date, precision, timezone)
−
local function selectClaims( context, options, propertySelector )
+
precision = precision or 11
−
if ( not context ) then error( 'context not specified' ); end;
+
local date, year = normalizeDate(date)
−
if ( not options ) then error( 'options not specified' ); end;
+
if year == 0 and precision <= 9 then return "" end
−
if ( not options.entity ) then error( 'options.entity is missing' ); end;
 
−
if ( not propertySelector ) then error( 'propertySelector not specified' ); end;
 
  
−
result = WDS.filter( options.entity.claims, propertySelector );
+
-- precision is 10000 years or more
−
 
+
if precision <= 5 then
−
if ( not result or #result == 0 ) then
+
local factor = 10 ^ ((5 - precision) + 4)
−
return nil;
+
local y2 = math.ceil(math.abs(year) / factor)
−
end
+
local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
−
 
+
if year < 0 then
−
if options.limit and options.limit ~= '' and options.limit ~= '-'  then
+
relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
−
local limit = tonumber( options.limit, 10 );
+
else
−
while #result > limit do
+
relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
−
table.remove( result );
 
 
end
 
end
 +
return relative
 
end
 
end
  
−
return result;
+
-- precision is decades, centuries and millennia
−
end
+
local era
−
 
+
if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end
−
--[[
+
if precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(math.floor((math.abs(year) - 1) / 100) + 1)) end
−
Функция для получения значения свойства элемента в заданный момент времени.
+
if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(year) / 10) * 10)) end
−
 
+
if era then
−
Принимает: контекст, элемент, временные границы, таблица ID свойства
+
if year < 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
−
Возвращает: таблицу соответствующих значений свойства
+
elseif year > 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end
−
]]
+
return era
−
local function getPropertyInBoundaries( context, entity, boundaries, propertyIds )
 
−
local results = {};
 
−
 
 
−
if not propertyIds or #propertyIds == 0 then
 
−
return results;
 
 
end
 
end
  
−
if entity.claims then
+
-- precision is year
−
for _, propertyId in ipairs( propertyIds ) do
+
if precision == 9 then
−
local filteredClaims = WDS.filter( entity.claims, propertyId .. '[rank:preferred, rank:normal]' );
+
return year
−
if filteredClaims then
 
−
for _, claim in pairs( filteredClaims ) do
 
−
if not boundaries or not propertyIds or #propertyIds == 0 then
 
−
table.insert( results, claim.mainsnak );
 
−
else
 
−
local startBoundaries = p.getTimeBoundariesFromQualifier( context.frame, context, claim, 'P580' );
 
−
local endBoundaries = p.getTimeBoundariesFromQualifier( context.frame, context, claim, 'P582' );
 
−
 
 
−
if ( (startBoundaries == nil or ( startBoundaries[2] <= boundaries[1]))
 
−
and (endBoundaries == nil or ( endBoundaries[1] >= boundaries[2]))) then
 
−
table.insert( results, claim.mainsnak );
 
−
end
 
−
end
 
−
end
 
−
end
 
−
 
 
−
if #results > 0 then
 
−
break;
 
−
end
 
−
end
 
 
end
 
end
  
−
return results;
+
-- precision is less than years
−
end
+
if precision > 9 then
−
 
+
--[[ the following code replaces the UTC suffix with the given negated timezone to convert the global time to the given local time
−
--[[
+
timezone = tonumber(timezone)
−
TODO
+
if timezone and timezone ~= 0 then
−
]]
+
timezone = -timezone
−
function p.getTimeBoundariesFromQualifier( frame, context, statement, qualifierId )
+
timezone = string.format("%.2d%.2d", timezone / 60, timezone % 60)
−
-- only support exact date so far, but need improvment
+
if timezone[1] ~= '-' then timezone = "+" .. timezone end
−
local left = nil;
+
date = mw.text.trim(date, "Z") .. " " .. timezone
−
local right = nil;
 
−
if ( statement.qualifiers and statement.qualifiers[qualifierId] ) then
 
−
for _, qualifier in pairs( statement.qualifiers[qualifierId] ) do
 
−
local boundaries = context.parseTimeBoundariesFromSnak( qualifier );
 
−
if ( not boundaries ) then return nil; end
 
−
left = min( left, boundaries[1] );
 
−
right = max( right, boundaries[2] );
 
 
end
 
end
−
end
+
]]--
−
 
 
−
if ( not left or not right ) then
 
−
return nil;
 
−
end
 
−
 
 
−
return { left, right };
 
−
end
 
−
 
 
−
--[[
 
−
TODO
 
−
]]
 
−
function p.getTimeBoundariesFromQualifiers( frame, context, statement, qualifierIds )
 
−
if not qualifierIds then
 
−
qualifierIds = { 'P582', 'P580', 'P585' };
 
−
end
 
  
−
for _, qualifierId in ipairs( qualifierIds ) do
+
local formatstr = i18n.datetime[precision]
−
local result = p.getTimeBoundariesFromQualifier( frame, context, statement, qualifierId );
+
if year == 0 then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], "")
−
if result then
+
elseif year < 0 then
−
return result;
+
-- Mediawiki formatDate doesn't support negative years
 +
date = mw.ustring.sub(date, 2)
 +
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.bc, "$1", i18n.datetime[9]))
 +
elseif year > 0 and i18n.datetime.ad ~= "$1" then
 +
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, "$1", i18n.datetime[9]))
 
end
 
end
 +
return mw.language.new(wiki.langcode):formatDate(formatstr, date)
 
end
 
end
−
 
−
return nil;
 
 
end
 
end
  
−
--[[
+
local function printDatavalueEntity(data, parameter)
−
Функция для получения метки элемента в заданный момент времени.
+
-- data fields: entity-type [string], numeric-id [int, Wikidata id]
 +
local id
  
−
Принимает: контекст, элемент, временные границы
+
if data["entity-type"] == "item" then id = "Q" .. data["numeric-id"]
−
Возвращает: текстовую метку элемента, язык метки
+
elseif data["entity-type"] == "property" then id = "P" .. data["numeric-id"]
−
]]
+
else return printError("unknown-entity-type")
−
function getLabelWithLang( context, options, entity, boundaries, propertyIds )
 
−
if not entity then
 
−
return nil;
 
 
end
 
end
  
−
local lang = mw.language.getContentLanguage();
+
if parameter then
−
local langCode = lang:getCode();
+
if parameter == "link" then
−
 
+
local linkTarget = mw.wikibase.sitelink(id)
−
-- name from label
+
local linkName = mw.wikibase.label(id)
−
local label = nil;
+
if linkTarget then
−
if ( options.text and options.text ~= '' ) then
+
-- if there is a local Wikipedia article link to it using the label or the article title
−
label = options.text;
+
return "[[" .. linkTarget .. "|" .. (linkName or linkTarget) .. "]]"
−
else
+
else
−
label, langCode = entity:getLabelWithLang();
+
-- if there is no local Wikipedia article output the label or link to the Wikidata object to let the user input a proper label
−
 
+
if linkName then return linkName else return "[[:d:" .. id .. "|" .. id .. "]]" end
−
if not langCode then
 
−
return nil;
 
−
end
 
−
 
 
−
if not propertyIds then
 
−
propertyIds = {
 
−
'P1813[language:' .. langCode .. ']',
 
−
'P1448[language:' .. langCode .. ']',
 
−
'P1705[language:' .. langCode .. ']'
 
−
};
 
−
end
 
−
 
 
−
-- name from properties
 
−
local results = getPropertyInBoundaries( context, entity, boundaries, propertyIds );
 
−
 
 
−
for _, result in pairs( results ) do
 
−
if result.datavalue and result.datavalue.value then
 
−
if result.datavalue.type == 'monolingualtext' and result.datavalue.value.text then
 
−
label = result.datavalue.value.text;
 
−
lang = result.datavalue.value.language;
 
−
break;
 
−
elseif result.datavalue.type == 'string' then
 
−
label = result.datavalue.value;
 
−
break;
 
−
end
 
 
end
 
end
 +
else
 +
return data[parameter]
 
end
 
end
 +
else
 +
return mw.wikibase.label(id) or id
 
end
 
end
−
 
−
return label, langCode;
 
 
end
 
end
  
−
--[[
+
local function printDatavalueTime(data, parameter)
−
Функция для оформления утверждений (statement)
+
-- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI]
−
Подробнее о утверждениях см. d:Wikidata:Glossary/ru
+
--   precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
−
 
+
--   calendarmodel: e.g. http://www.wikidata.org/entity/Q1985727 for the proleptic Gregorian calendar or http://www.wikidata.org/wiki/Q11184 for the Julian calendar]
−
Принимает: таблицу параметров
+
if parameter then
−
Возвращает: строку оформленного текста, предназначенного для отображения в статье
+
if parameter == "calendarmodel" then data.calendarmodel = mw.ustring.match(data.calendarmodel, "Q%d+") -- extract entity id from the calendar model URI
−
]]
+
elseif parameter == "time" then data.time = normalizeDate(data.time) end
−
local function formatProperty( options )
+
return data[parameter]
−
-- Получение сущности по идентификатору
+
else
−
local entity = getEntityFromId( options.entityId )
+
return formatDate(data.time, data.precision, data.timezone)
−
if not entity then
 
−
return -- throwError( 'entity-not-found' )
 
−
end
 
−
-- проверка на присутсвие у сущности заявлений (claim)
 
−
-- подробнее о заявлениях см. d:Викиданные:Глоссарий
 
−
if (entity.claims == nil) then
 
−
return '' --TODO error?
 
 
end
 
end
 +
end
  
−
-- improve options
+
local function printDatavalueMonolingualText(data, parameter)
−
options.frame = g_frame;
+
-- data fields: language [string], text [string]
−
options.entity = entity;
+
if parameter then
−
options.extends = function( self, newOptions )
+
return data[parameter]
−
return copyTo( newOptions, copyTo( self, {} ) )
 
−
end
 
−
 
 
−
if ( options.i18n ) then
 
−
options.i18n = copyTo( options.i18n, copyTo( getConfig( 'i18n' ), {} ) );
 
 
else
 
else
−
options.i18n = getConfig( 'i18n' );
+
local result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"])
 +
return result
 
end
 
end
 +
end
  
−
-- create context
+
local function findClaims(entity, property)
−
local context = {
+
if not property or not entity or not entity.claims then return end
−
entity = options.entity,
+
return entity:getAllStatements(property)
−
formatSnak = formatSnak,
 
−
formatPropertyDefault = formatPropertyDefault,
 
−
formatStatementDefault = formatStatementDefault }
 
−
context.cloneOptions = function( options )
 
−
local entity = options.entity;
 
−
options.entity = nil;
 
−
 
 
−
newOptions = mw.clone( options );
 
−
options.entity = entity;
 
−
newOptions.entity = entity;
 
−
newOptions.frame = options.frame; -- На склонированном фрейме frame:expandTemplate()
 
−
 
 
−
return newOptions;
 
−
end;
 
−
context.formatProperty = function( options )
 
−
local func = getUserFunction( options, 'property', context.formatPropertyDefault );
 
−
return func( context, options )
 
−
end;
 
−
context.formatStatement = function( options, statement ) return formatStatement( context, options, statement ) end;
 
−
context.formatSnak = function( options, snak, circumstances ) return formatSnak( context, options, snak, circumstances ) end;
 
−
context.formatRefs = function( options, statement ) return formatRefs( context, options, statement ) end;
 
−
 
 
−
context.parseTimeFromSnak = function( snak )
 
−
if ( snak and snak.datavalue and snak.datavalue.value and snak.datavalue.value.time ) then
 
−
return tonumber(os.time( splitISO8601( tostring( snak.datavalue.value.time ) ) ) ) * 1000;
 
−
end
 
−
return nil;
 
−
end
 
−
context.parseTimeBoundariesFromSnak = function( snak )
 
−
if ( snak and snak.datavalue and snak.datavalue.value and snak.datavalue.value.time and snak.datavalue.value.precision ) then
 
−
return parseTimeBoundaries( snak.datavalue.value.time, snak.datavalue.value.precision );
 
−
end
 
−
return nil;
 
−
end
 
−
context.getSourcingCircumstances = function( statement ) return getSourcingCircumstances( statement ) end;
 
−
context.selectClaims = function( options, propertyId ) return selectClaims( context, options, propertyId ) end;
 
−
 
 
−
return context.formatProperty( options );
 
 
end
 
end
  
−
function formatPropertyDefault( context, options )
+
local function getSnakValue(snak, parameter)
−
if ( not context ) then error( 'context not specified' ); end;
+
if snak.snaktype == "value" then
−
if ( not options ) then error( 'options not specified' ); end;
+
-- call the respective snak parser
−
if ( not options.entity ) then error( 'options.entity missing' ); end;
+
if snak.datavalue.type == "string" then return snak.datavalue.value
−
 
+
elseif snak.datavalue.type == "globecoordinate" then return printDatavalueCoordinate(snak.datavalue.value, parameter)
−
local claims;
+
elseif snak.datavalue.type == "quantity" then return printDatavalueQuantity(snak.datavalue.value, parameter)
−
if options.property then -- TODO: Почему тут может не быть property?
+
elseif snak.datavalue.type == "time" then return printDatavalueTime(snak.datavalue.value, parameter)
−
claims = context.selectClaims( options, options.property );
+
elseif snak.datavalue.type == "wikibase-entityid" then return printDatavalueEntity(snak.datavalue.value, parameter)
−
end
+
elseif snak.datavalue.type == "monolingualtext" then return printDatavalueMonolingualText(snak.datavalue.value, parameter)
−
if claims == nil then
 
−
return '' --TODO error?
 
−
end
 
−
 
 
−
-- Обход всех заявлений утверждения и с накоплением оформленых предпочтительных
 
−
-- заявлений в таблице
 
−
local formattedClaims = {}
 
−
 
 
−
for i, claim in ipairs(claims) do
 
−
local formattedStatement = context.formatStatement( options, claim )
 
−
-- здесь может вернуться либо оформленный текст заявления, либо строка ошибки, либо nil
 
−
if ( formattedStatement and formattedStatement ~= '' ) then
 
−
formattedStatement = '<span class="wikidata-claim" data-wikidata-property-id="' .. string.upper( options.property ) .. '" data-wikidata-claim-id="' .. claim.id .. '">' .. formattedStatement .. '</span>'
 
−
table.insert( formattedClaims, formattedStatement )
 
 
end
 
end
 
end
 
end
 +
return mw.wikibase.renderSnak(snak)
 +
end
  
−
-- создание текстовой строки со списком оформленых заявлений из таблицы
+
local function getQualifierSnak(claim, qualifierId)
−
local out = mw.text.listToText( formattedClaims, options.separator, options.conjunction )
+
-- a "snak" is Wikidata terminology for a typed key/value pair
−
if out ~= '' then
+
-- a claim consists of a main snak holding the main information of this claim,
−
if options.before then
+
-- as well as a list of attribute snaks and a list of references snaks
−
out = options.before .. out
+
if qualifierId then
−
end
+
-- search the attribute snak with the given qualifier as key
−
if options.after then
+
if claim.qualifiers then
−
out = out .. options.after
+
local qualifier = claim.qualifiers[qualifierId]
 +
if qualifier then return qualifier[1] end
 
end
 
end
 +
return nil, printError("qualifier-not-found")
 +
else
 +
-- otherwise return the main snak
 +
return claim.mainsnak
 
end
 
end
−
 
−
return out
 
 
end
 
end
  
−
--[[
+
local function getValueOfClaim(claim, qualifierId, parameter)
−
Функция для оформления одного утверждения (statement)
+
local error
−
 
+
local snak
−
Принимает: объект-таблицу утверждение и таблицу параметров
+
snak, error = getQualifierSnak(claim, qualifierId)
−
Возвращает: строку оформленного текста с заявлением (claim)
+
if snak then
−
]]
+
return getSnakValue(snak, parameter)
−
function formatStatement( context, options, statement )
+
else
−
if ( not statement ) then
+
return nil, error
−
error( 'statement is not specified or nil' );
 
 
end
 
end
−
if not statement.type or statement.type ~= 'statement' then
 
−
throwError( 'unknown-claim-type' )
 
−
end
 
−
 
−
local functionToCall = getUserFunction( options, 'claim', context.formatStatementDefault );
 
−
return functionToCall( context, options, statement );
 
 
end
 
end
  
−
function getSourcingCircumstances( statement )
+
local function getReferences(frame, claim)
−
if (not statement) then error('statement is not specified') end;
+
local result = ""
−
 
+
-- traverse through all references
−
local circumstances = {};
+
for ref in pairs(claim.references or {}) do
−
if ( statement.qualifiers
+
local refparts
−
and statement.qualifiers.P1480 ) then
+
-- traverse through all parts of the current reference
−
for i, qualifier in pairs( statement.qualifiers.P1480 ) do
+
for snakkey, snakval in orderedpairs(claim.references[ref].snaks or {}, claim.references[ref]["snaks-order"]) do
−
if ( qualifier
+
if refparts then refparts = refparts .. ", " else refparts = "" end
−
and qualifier.datavalue
+
-- output the label of the property of the reference part, e.g. "imported from" for P143
−
and qualifier.datavalue.type == 'wikibase-entityid'
+
refparts = refparts .. tostring(mw.wikibase.label(snakkey)) .. ": "
−
and qualifier.datavalue.value
+
-- output all values of this reference part, e.g. "German Wikipedia" and "English Wikipedia" if the referenced claim was imported from both sites
−
and qualifier.datavalue.value['entity-type'] == 'item' ) then
+
for snakidx = 1, #snakval do
−
local circumstance = qualifier.datavalue.value.id;
+
if snakidx > 1 then refparts = refparts .. ", " end
−
if ( 'Q5727902' == circumstance ) then
+
refparts = refparts .. getSnakValue(snakval[snakidx])
−
circumstances.circa = true;
 
−
end
 
−
if ( 'Q18122778' == circumstance ) then
 
−
circumstances.presumably = true;
 
−
end
 
 
end
 
end
 
end
 
end
 +
if refparts then result = result .. frame:extensionTag("ref", refparts) end
 
end
 
end
−
return circumstances;
+
return result
 
end
 
end
  
−
--[[
 
−
Функция для оформления одного утверждения (statement)
 
−
 
−
Принимает: объект-таблицу утверждение, таблицу параметров,
 
−
объект-функцию оформления внутренних структур утверждения (snak) и
 
−
объект-функцию оформления ссылки на источники (reference)
 
−
Возвращает: строку оформленного текста с заявлением (claim)
 
−
]]
 
−
function formatStatementDefault( context, options, statement )
 
−
if (not context) then error('context is not specified') end;
 
−
if (not options) then error('options is not specified') end;
 
−
if (not statement) then error('statement is not specified') end;
 
  
−
local circumstances = context.getSourcingCircumstances( statement );
+
------------------------------------------------------------------------------
 +
-- module global functions
  
−
options.qualifiers = statement.qualifiers;
+
if debug then
−
 
+
function p.inspectI18n(frame)
−
local result = context.formatSnak( options, statement.mainsnak, circumstances );
+
local val = i18n
−
if ( result and result ~= '' and options.references ) then
+
for _, key in pairs(frame.args) do
−
result = result .. context.formatRefs( options, statement );
+
key = mw.text.trim(key)
 +
val = val[key]
 +
end
 +
return val
 
end
 
end
 +
end
  
−
return result;
+
function p.descriptionIn(frame)
 +
local langcode = frame.args[1]
 +
local id = frame.args[2] -- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration
 +
-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
 +
return mw.wikibase.getEntityObject(id).descriptions[langcode or wiki.langcode].value
 
end
 
end
  
−
--[[
+
function p.labelIn(frame)
−
Функция для оформления части утверждения (snak)
+
local langcode = frame.args[1]
−
Подробнее о snak см. d:Викиданные:Глоссарий
+
local id = frame.args[2] -- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration
 +
-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
 +
return mw.wikibase.getEntityObject(id).labels[langcode or wiki.langcode].value
 +
end
  
−
Принимает: таблицу snak объекта (main snak или же snak от квалификатора) и таблицу опций
+
-- This is used to get a value, or a comma separated list of them if multiple values exist
−
Возвращает: строку оформленного викитекста
+
p.getValue = function(frame)
−
]]
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
function formatSnak( context, options, snak, circumstances )
+
local input_parm = mw.text.trim(frame.args[2] or "")
−
circumstances = circumstances or {};
+
if input_parm == "FETCH_WIKIDATA" then
−
local hash = '';
+
local entity = mw.wikibase.getEntityObject()
−
local mainSnakClass = '';
+
local claims
−
if ( snak.hash ) then
+
if entity and entity.claims then
−
hash = ' data-wikidata-hash="' .. snak.hash .. '"';
+
claims = entity.claims[propertyID]
−
else
+
end
−
mainSnakClass = ' wikidata-main-snak';
+
if claims then
−
end
+
-- if wiki-linked value output as link if possible
 +
if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then
 +
local out = {}
 +
for k, v in pairs(claims) do
 +
local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"])
 +
local label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"])
 +
if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end
  
−
local before = '<span class="wikidata-snak ' .. mainSnakClass .. '"' .. hash .. '>'
+
if sitelink then
−
local after = '</span>'
+
out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
−
 
+
else
−
if snak.snaktype == 'somevalue' then
+
out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
−
if ( options['somevalue'] and options['somevalue'] ~= '' ) then
+
end
−
result = options['somevalue'];
+
end
 +
return table.concat(out, ", ")
 +
else
 +
-- just return best values
 +
return entity:formatPropertyValues(propertyID).value
 +
end
 
else
 
else
−
result = options.i18n['somevalue'];
+
return ""
−
end
 
−
elseif snak.snaktype == 'novalue' then
 
−
if ( options['novalue'] and options['novalue'] ~= '' ) then
 
−
result = options['novalue'];
 
−
else
 
−
result = options.i18n['novalue'];
 
−
end
 
−
elseif snak.snaktype == 'value' then
 
−
result = formatDatavalue( context, options, snak.datavalue, snak.datatype );
 
−
 
 
−
if ( circumstances.presumably ) then
 
−
result = options.i18n.presumably .. result;
 
−
end
 
−
if ( circumstances.circa ) then
 
−
result = options.i18n.circa .. result;
 
 
end
 
end
 
else
 
else
−
throwError( 'unknown-snak-type' );
+
return input_parm
 
end
 
end
−
 
−
if ( not result or result == '' ) then
 
−
return nil;
 
−
end
 
−
 
−
return before .. result .. after;
 
 
end
 
end
  
−
--[[
+
-- Same as above, but uses the short name property for label if available.
−
Функция для оформления объектов-значений с географическими координатами
+
p.getValueShortName = function(frame)
 +
local propertyID = mw.text.trim(frame.args[1] or "")
 +
local input_parm = mw.text.trim(frame.args[2] or "")
 +
if input_parm == "FETCH_WIKIDATA" then
 +
local entity = mw.wikibase.getEntityObject()
 +
local claims
 +
if entity and entity.claims then
 +
claims = entity.claims[propertyID]
 +
end
 +
if claims then
 +
-- if wiki-linked value output as link if possible
 +
if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then
 +
local out = {}
 +
for k, v in pairs(claims) do
 +
local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"])
 +
local label
 +
local claimEntity = mw.wikibase.getEntity("Q" .. v.mainsnak.datavalue.value["numeric-id"])
 +
if claimEntity ~= nil then
 +
if claimEntity.claims.P1813 then
 +
for k2, v2 in pairs(claimEntity.claims.P1813) do
 +
if v2.mainsnak.datavalue.value.language == "en" then
 +
label = v2.mainsnak.datavalue.value.text
 +
end
 +
end
 +
end
 +
end
 +
if label == nil or label == "" then label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"]) end
 +
if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end
  
−
Принимает: объект-значение и таблицу параметров,
+
if sitelink then
−
Возвращает: строку оформленного текста
+
out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
−
]]
+
else
−
function formatGlobeCoordinate( value, options )
+
out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
−
-- проверка на требование в параметрах вызова на возврат сырого значения
+
end
−
if options['subvalue'] == 'latitude' then -- широты
+
end
−
return value['latitude']
+
return table.concat(out, ", ")
−
elseif options['subvalue'] == 'longitude' then -- долготы
+
else
−
return value['longitude']
+
-- just return best vakues
−
elseif options['nocoord'] and options['nocoord'] ~= '' then
+
return entity:formatPropertyValues(propertyID).value
−
-- если передан параметр nocoord, то не выводить координаты
+
end
−
-- обычно это делается при использовании нескольких карточек на странице
 
−
return ''
 
−
else
 
−
-- в противном случае формируются параметры для вызова шаблона {{coord}}
 
−
-- нужно дописать в документации шаблона, что он отсюда вызывается, и что
 
−
-- любое изменние его парамеров  должно быть согласовано с кодом тут
 
−
local eps = 0.0000001 -- < 1/360000
 
−
local globe = options.globe or '' -- TODO
 
−
local lat = {}
 
−
lat['abs'] = math.abs(value['latitude'])
 
−
lat['ns'] = value['latitude'] >= 0 and 'N' or 'S'
 
−
lat['d'] = math.floor(lat['abs'] + eps)
 
−
lat['m'] = math.floor((lat['abs'] - lat['d']) * 60 + eps)
 
−
lat['s'] = math.max(0, ((lat['abs'] - lat['d']) * 60 - lat['m']) * 60 + eps)
 
−
local lon = {}
 
−
lon['abs'] = math.abs(value['longitude'])
 
−
lon['ew'] = value['longitude'] >= 0 and 'E' or 'W'
 
−
lon['d'] = math.floor(lon['abs'] + eps)
 
−
lon['m'] = math.floor((lon['abs'] - lon['d']) * 60 + eps)
 
−
lon['s'] = math.max(0, ((lon['abs'] - lon['d']) * 60 - lon['m']) * 60 + eps)
 
−
-- TODO: round seconds with precision
 
−
local coord = '{{coord'
 
−
if (value['precision'] == nil) or (value['precision'] < 1/60) then -- по умолчанию с точностью до секунды
 
−
coord = coord .. '|' .. lat['d'] .. '|' .. lat['m'] .. '|' .. lat['s'] .. '|' .. lat['ns']
 
−
coord = coord .. '|' .. lon['d'] .. '|' .. lon['m'] .. '|' .. lon['s'] .. '|' .. lon['ew']
 
−
elseif value['precision'] < 1 then
 
−
coord = coord .. '|' .. lat['d'] .. '|' .. lat['m'] .. '|' .. lat['ns']
 
−
coord = coord .. '|' .. lon['d'] .. '|' .. lon['m'] .. '|' .. lon['ew']
 
 
else
 
else
−
coord = coord .. '|' .. lat['d'] .. '|' .. lat['ns']
+
return ""
−
coord = coord .. '|' .. lon['d'] .. '|' .. lon['ew']
 
 
end
 
end
−
coord = coord .. '|globe:' .. globe
+
else
−
if options['type'] and options['type'] ~= '' then
+
return input_parm
−
coord = coord .. '|type=' .. options.type
 
−
end
 
−
if options['display'] and options['display'] ~= '' then
 
−
coord = coord .. '|display=' .. options.display
 
−
else
 
−
coord = coord .. '|display=title'
 
−
end
 
−
coord = coord .. '}}'
 
−
 
 
−
return g_frame:preprocess(coord)
 
 
end
 
end
 
end
 
end
  
−
--[[
+
-- This is used to get a value, or a comma separated list of them if multiple values exist
−
Функция для оформления объектов-значений с файлами с Викисклада
+
-- from an arbitrary entry by using its QID.
−
 
+
-- Use : {{#invoke:Wikidata|getValueFromID|<ID>|<Property>|FETCH_WIKIDATA}}
−
Принимает: объект-значение и таблицу параметров,
+
-- E.g.: {{#invoke:Wikidata|getValueFromID|Q151973|P26|FETCH_WIKIDATA}} - to fetch value of 'spouse' (P26) from 'Richard Burton' (Q151973)
−
Возвращает: строку оформленного текста
+
-- Please use sparingly - this is an *expensive call*.
−
]]
+
p.getValueFromID = function(frame)
−
function formatCommonsMedia( value, options )
+
local itemID = mw.text.trim(frame.args[1] or "")
−
local image = value;
+
local propertyID = mw.text.trim(frame.args[2] or "")
−
 
+
local input_parm = mw.text.trim(frame.args[3] or "")
−
local caption = '';
+
if input_parm == "FETCH_WIKIDATA" then
−
if options[ 'caption' ] and options[ 'caption' ] ~= '' then
+
local entity = mw.wikibase.getEntity(itemID)
−
caption = options[ 'caption' ];
+
local claims
−
elseif options[ 'description' ] and options[ 'description' ] ~= '' then
+
if entity and entity.claims then
−
caption = options[ 'description' ];
+
claims = entity.claims[propertyID]
−
end
 
−
if caption ~= '' then
 
−
caption = '<span data-wikidata-qualifier-id="P2096" style="display:block">' .. caption .. '</span>';
 
−
end
 
−
 
 
−
if not string.find( value, '[%[%]%{%}]' ) then
 
−
image = '[[File:' .. value .. '|frameless';
 
−
if options[ 'border' ] and options[ 'border' ] ~= '' then
 
−
image = image .. '|border';
 
 
end
 
end
 +
if claims then
 +
-- if wiki-linked value output as link if possible
 +
if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then
 +
local out = {}
 +
for k, v in pairs(claims) do
 +
local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"])
 +
local label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"])
 +
if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end
  
−
local size = options[ 'size' ];
+
if sitelink then
−
if size and size ~= '' then
+
out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
−
if not string.match( size, 'px$' )
+
else
−
and not string.match( size, 'пкс$' ) -- TODO: использовать перевод для языка вики
+
out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
−
then
+
end
−
size = size .. 'px'
+
end
 +
return table.concat(out, ", ")
 +
else
 +
return entity:formatPropertyValues(propertyID).value
 
end
 
end
 
else
 
else
−
size = fileDefaultSize;
+
return ""
−
end
 
−
image = image .. '|' .. size;
 
−
 
 
−
if options[ 'alt' ] and options[ 'alt' ] ~= '' then
 
−
image = image .. '|' .. options[ 'alt' ];
 
−
end
 
−
image = image .. ']]';
 
−
 
 
−
if caption ~= '' then
 
−
image = image .. '<br>' .. caption;
 
 
end
 
end
 
else
 
else
−
image = image .. caption .. getCategoryByCode( 'media-contains-markup' );
+
return input_parm
 
end
 
end
−
 
−
return image
 
 
end
 
end
  
−
--[[
+
p.getQualifierValue = function(frame)
−
Fonction for render math formulas
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
 
+
local qualifierID = mw.text.trim(frame.args[2] or "")
−
@param string Value.
+
local input_parm = mw.text.trim(frame.args[3] or "")
−
@param table Parameters.
+
if input_parm == "FETCH_WIKIDATA" then
−
@return string Formatted string.
+
local entity = mw.wikibase.getEntityObject()
−
]]
+
if entity.claims[propertyID] ~= nil then
−
function formatMath( value, options )
+
local out = {}
−
return options.frame:extensionTag{ name = 'math', content = value };
+
for k, v in pairs(entity.claims[propertyID]) do
−
end
+
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
−
 
+
if v2.snaktype == 'value' then
−
--[[
+
if (mw.wikibase.sitelink("Q" .. v2.datavalue.value["numeric-id"])) then
−
Функция для оформления внешних идентификаторов
+
out[#out + 1] = "[[" .. mw.wikibase.sitelink("Q" .. v2.datavalue.value["numeric-id"]) .. "]]"
−
 
+
else
−
Принимает: объект-значение и таблицу параметров,
+
out[#out + 1] = "[[:d:Q" .. v2.datavalue.value["numeric-id"] .. "|" .. mw.wikibase.label("Q" .. v2.datavalue.value["numeric-id"]) .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
−
Возвращает: строку оформленного текста
+
end
−
]]
 
−
local function formatExternalId( value, options )
 
−
local formatter = options.formatter;
 
−
 
 
−
if not formatter or formatter == '' then
 
−
local wbStatus, propertyEntity = pcall( mw.wikibase.getEntity, options.property:upper() )
 
−
if wbStatus == true and propertyEntity then
 
−
local isGoodFormat = false;
 
−
local statements = propertyEntity:getBestStatements( 'P1793' );
 
−
for _, statement in pairs( statements ) do
 
−
if statement.mainsnak.snaktype == 'value' then
 
−
local pattern = mw.ustring.gsub( statement.mainsnak.datavalue.value, '\\', '%' );
 
−
pattern = mw.ustring.gsub( pattern, '{%d+,?%d*}', '+' );
 
−
if ( string.find( pattern, '|' ) or string.find( pattern, '%)%?' )
 
−
or mw.ustring.match( value, '^' .. pattern .. '$' ) ~= nil ) then
 
−
isGoodFormat = true;
 
−
break;
 
−
end
 
−
end
 
−
end
 
−
 
 
−
if ( isGoodFormat == true ) then
 
−
statements = propertyEntity:getBestStatements( 'P1630' );
 
−
for _, statement in pairs( statements ) do
 
−
if statement.mainsnak.snaktype == 'value' then
 
−
formatter = statement.mainsnak.datavalue.value;
 
−
break
 
 
end
 
end
 
end
 
end
 
end
 
end
 +
return table.concat(out, ", ")
 +
else
 +
return ""
 
end
 
end
 +
else
 +
return input_parm
 
end
 
end
 +
end
  
−
if formatter and formatter ~= '' then
+
-- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators
−
local link = mw.ustring.gsub( mw.ustring.gsub( formatter, '$1', value ), ' ', '%%20' )
+
p.getRawValue = function(frame)
 +
local propertyID = mw.text.trim(frame.args[1] or "")
 +
local input_parm = mw.text.trim(frame.args[2] or "")
 +
if input_parm == "FETCH_WIKIDATA" then
 +
local entity = mw.wikibase.getEntityObject()
 +
local claims
 +
if entity and entity.claims then claims = entity.claims[propertyID] end
 +
if claims then
 +
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
  
−
local title = options.title
+
-- if number type: remove thousand separators, bounds and units
−
if not title or title == '' then
+
if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then
−
title = '$1'
+
result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")
 +
result = mw.ustring.gsub(result, "(%d)±.*", "%1")
 +
end
 +
return result
 +
else
 +
return ""
 
end
 
end
−
title = mw.ustring.gsub( title, '$1', value )
+
else
−
 
+
return input_parm
−
return '[' .. link .. ' ' .. title .. ']'
 
 
end
 
end
−
 
−
return value
 
 
end
 
end
  
−
--[[
+
-- This is used to get the unit name for the numeric value returned by getRawValue
−
Функция для оформления числовых значений
+
p.getUnits = function(frame)
−
 
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
Принимает: объект-значение и таблицу параметров,
+
local input_parm = mw.text.trim(frame.args[2] or "")
−
Возвращает: строку оформленного текста
+
if input_parm == "FETCH_WIKIDATA" then
−
]]
+
local entity = mw.wikibase.getEntityObject()
−
local function formatQuantity( value, options )
+
local claims
−
-- диапазон значений
+
if entity and entity.claims then claims = entity.claims[propertyID] end
−
local amount = string.gsub( value['amount'], '^%+', '' );
+
if claims then
−
local lang = mw.language.getContentLanguage();
+
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
−
local langCode = lang:getCode();
+
if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then
−
 
+
result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)
−
local function formatNum( number, sigfig )
+
end
−
sigfig = sigfig or 12 -- округление до 12 знаков после запятой, на 13-м возникает ошибка в точности
+
return result
−
local mult = 10^sigfig;
+
else
−
number = math.floor( number * mult + 0.5 ) / mult;
+
return ""
−
 
+
end
−
return string.gsub( lang:formatNum( number ), '^-', '−' );
+
else
 +
return input_parm
 
end
 
end
 +
end
  
−
local out = formatNum( tonumber( amount ) );
+
-- This is used to get the unit's QID to use with the numeric value returned by getRawValue
−
if value.upperBound then
+
p.getUnitID = function(frame)
−
local diff = tonumber( value.upperBound ) - tonumber( amount )
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
if diff > 0 then -- временная провека, пока у большинства значений не будет убрано ±0
+
local input_parm = mw.text.trim(frame.args[2] or "")
−
out = out .. '±' .. formatNum( diff )
+
if input_parm == "FETCH_WIKIDATA" then
 +
local entity = mw.wikibase.getEntityObject()
 +
local claims
 +
if entity and entity.claims then claims = entity.claims[propertyID] end
 +
if claims then
 +
local result
 +
if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then
 +
-- get the url for the unit entry on Wikidata:
 +
result = claims[1].mainsnak.datavalue.value.unit
 +
-- and just reurn the last bit from "Q" to the end (which is the QID):
 +
result = mw.ustring.sub(result, mw.ustring.find(result, "Q"), -1)
 +
end
 +
return result
 +
else
 +
return ""
 
end
 
end
 +
else
 +
return input_parm
 
end
 
end
 +
end
  
−
if options.unit and options.unit ~= '' then
+
p.getRawQualifierValue = function(frame)
−
if options.unit ~= '-' then
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
out = out .. ' ' .. options.unit
+
local qualifierID = mw.text.trim(frame.args[2] or "")
−
end
+
local input_parm = mw.text.trim(frame.args[3] or "")
−
elseif value.unit and string.match( value.unit, 'http://www.wikidata.org/entity/' ) then
+
if input_parm == "FETCH_WIKIDATA" then
−
local unitEntityId = string.gsub( value.unit, 'http://www.wikidata.org/entity/', '' );
+
local entity = mw.wikibase.getEntityObject()
−
local wbStatus, unitEntity = pcall( mw.wikibase.getEntity, unitEntityId );
+
if entity.claims[propertyID] ~= nil then
−
if wbStatus == true and unitEntity then
+
local out = {}
−
if unitEntity.claims.P2370 and
+
for k, v in pairs(entity.claims[propertyID]) do
−
unitEntity.claims.P2370[1].mainsnak.snaktype == 'value' and
+
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
−
not value.upperBound and
+
if v2.snaktype == 'value' then
−
options.siConversion
+
if v2.datavalue.value["numeric-id"] then
−
then
+
out[#out + 1] = mw.wikibase.label("Q" .. v2.datavalue.value["numeric-id"])
−
conversionToSIunit = string.gsub( unitEntity.claims.P2370[1].mainsnak.datavalue.value.amount, '^%+', '' );
 
−
if math.floor( math.log10( conversionToSIunit )) ~= math.log10( conversionToSIunit ) then
 
−
-- Если не степени десятки (переводить сантиметры в метры не надо!)
 
−
outValue = tonumber( amount ) * conversionToSIunit
 
−
 
 
−
if ( outValue > 0 ) then
 
−
-- Пробуем понять до какого знака округлять
 
−
local integer, dot, decimals, expstr = amount:match( '^(%d*)(%.?)(%d*)(.*)' )
 
−
local prec
 
−
if dot == '' then
 
−
prec = -integer:match('0*$'):len()
 
 
else
 
else
−
prec = #decimals
+
out[#out + 1] = v2.datavalue.value
 
end
 
end
−
local adjust = math.log10( math.abs( conversionToSIunit )) + math.log10( 2 )
 
−
local minprec = 1 - math.floor( math.log10( outValue ) + 2e-14 );
 
−
out = formatNum( outValue, math.max( math.floor( prec + adjust ), minprec ));
 
−
else
 
−
out = formatNum( outValue, 0 )
 
 
end
 
end
−
unitEntityId = string.gsub( unitEntity.claims.P2370[1].mainsnak.datavalue.value.unit, 'http://www.wikidata.org/entity/', '' );
 
−
wbStatus, unitEntity = pcall( mw.wikibase.getEntity, unitEntityId );
 
 
end
 
end
 
end
 
end
−
 
+
local ret = table.concat(out, ", ")
−
local writingSystemElementId = 'Q8209';
+
return string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
−
local langElementId = 'Q7737';
+
else
−
local label = getLabelWithLang( context, options, unitEntity, nil, {
+
return ""
−
'P5061[language:' .. langCode .. ']',
 
−
'P558[P282:' .. writingSystemElementId .. ', P407:' .. langElementId .. ']',
 
−
'P558[!P282][!P407]'
 
−
} );
 
−
 
 
−
out = out .. ' ' .. label;
 
 
end
 
end
 +
else
 +
return input_parm
 
end
 
end
−
 
−
return out;
 
 
end
 
end
  
−
--[[
+
-- This is used to get a date value for date_of_birth (P569), etc. which won't be linked
−
Get property datatype by ID.
+
-- Dates and times are stored in ISO 8601 format (sort of).
−
 
+
-- At present the local formatDate(date, precision, timezone) function doesn't handle timezone
−
@param string Property ID, e.g. 'P123'.
+
-- So I'll just supply "Z" in the call to formatDate below:
−
@return string Property datatype, e.g. 'commonsMedia', 'time' or 'url'.
+
p.getDateValue = function(frame)
−
]]
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
local function getPropertyDatatype( propertyId )
+
local input_parm = mw.text.trim(frame.args[2] or "")
−
if not propertyId or not string.match( propertyId, '^P%d+$' ) then
+
local date_format = mw.text.trim(frame.args[3] or i18n["datetime"]["default-format"])
−
return nil;
+
local date_addon = mw.text.trim(frame.args[4] or i18n["datetime"]["default-addon"])
 +
if input_parm == "FETCH_WIKIDATA" then
 +
local entity = mw.wikibase.getEntityObject()
 +
if entity.claims[propertyID] ~= nil then
 +
local out = {}
 +
for k, v in pairs(entity.claims[propertyID]) do
 +
if v.mainsnak.datavalue.type == 'time' then
 +
local timestamp = v.mainsnak.datavalue.value.time
 +
local dateprecision = v.mainsnak.datavalue.value.precision
 +
-- A year can be stored like this: "+1872-00-00T00:00:00Z",
 +
-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",
 +
-- and that's the last day of 1871, so the year is wrong.
 +
-- So fix the month 0, day 0 timestamp to become 1 January instead:
 +
timestamp = timestamp:gsub("%-00%-00T", "-01-01T")
 +
out[#out + 1] = parseDateFull(timestamp, dateprecision, date_format, date_addon)
 +
end
 +
end
 +
return table.concat(out, ", ")
 +
else
 +
return ""
 +
end
 +
else
 +
return input_parm
 
end
 
end
−
 
−
local wbStatus, propertyEntity = pcall( mw.wikibase.getEntity, propertyId );
 
−
if wbStatus ~= true or not propertyEntity then
 
−
return nil;
 
−
end
 
−
 
−
return propertyEntity.datatype;
 
 
end
 
end
  
−
local function formatLangRefs( options )
+
p.getQualifierDateValue = function(frame)
−
local langRefs = ''
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
if ( options.qualifiers and options.qualifiers.P407 ) then
+
local qualifierID = mw.text.trim(frame.args[2] or "")
−
for i, qualifier in pairs( options.qualifiers.P407 ) do
+
local input_parm = mw.text.trim(frame.args[3] or "")
−
if ( qualifier
+
local date_format = mw.text.trim(frame.args[4] or i18n["datetime"]["default-format"])
−
and qualifier.datavalue
+
local date_addon = mw.text.trim(frame.args[5] or i18n["datetime"]["default-addon"])
−
and qualifier.datavalue.type == 'wikibase-entityid' ) then
+
if input_parm == "FETCH_WIKIDATA" then
−
local langRefEntity = getEntityFromId( qualifier.datavalue.value.id )
+
local entity = mw.wikibase.getEntityObject()
−
if ( langRefEntity and langRefEntity.claims ) then
+
if entity.claims[propertyID] ~= nil then
−
local langRefCodeClaims = WDS.filter( langRefEntity.claims, 'P218' )
+
local out = {}
−
if langRefCodeClaims then
+
for k, v in pairs(entity.claims[propertyID]) do
−
for _, claim in pairs( langRefCodeClaims ) do
+
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
−
if ( claim.mainsnak
+
if v2.snaktype == 'value' then
−
and claim.mainsnak
+
local timestamp = v2.datavalue.value.time
−
and claim.mainsnak.datavalue
+
out[#out + 1] = parseDateValue(timestamp, date_format, date_addon)
−
and claim.mainsnak.datavalue.type == 'string' ) then
 
−
local langRefCode = claim.mainsnak.datavalue.value
 
−
langRefs = langRefs .. options.frame:expandTemplate{ title = 'ref-' ..langRefCode }
 
−
end
 
−
end
 
 
end
 
end
 
end
 
end
 
end
 
end
 +
return table.concat(out, ", ")
 +
else
 +
return ""
 
end
 
end
 +
else
 +
return input_parm
 
end
 
end
−
 
−
return langRefs
 
 
end
 
end
  
−
local function getDefaultValueFunction( datavalue, datatype )
+
-- This is used to fetch all of the images with a particular property, e.g. image (P18), Gene Atlas Image (P692), etc.
−
-- вызов обработчиков по умолчанию для известных типов значений
+
-- Parameters are | propertyID | value / FETCH_WIKIDATA / nil | separator (default=space) | size (default=frameless)
−
if datavalue.type == 'wikibase-entityid' then
+
-- It will return a standard wiki-markup [[File:Filename | size]] for each image with a selectable size and separator (which may be html)
−
-- Entity ID
+
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}}
−
return function( context, options, value ) return formatEntityId( context, options, getEntityIdFromValue( value ) ) end;
+
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|<br>|250px}}
−
elseif datavalue.type == 'string' then
+
-- If a property is chosen that is not of type "commonsMedia", it will return empty text.
−
-- String
+
p.getImages = function(frame)
−
if datatype and datatype == 'commonsMedia' then
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
-- Media
+
local input_parm = mw.text.trim(frame.args[2] or "")
−
return function( context, options, value )
+
local sep = mw.text.trim(frame.args[3] or " ")
−
if ( not options.caption or options.caption == '' )
+
local imgsize = mw.text.trim(frame.args[4] or "frameless")
−
and ( not options.description or options.description == '' )
+
if input_parm == "FETCH_WIKIDATA" then
−
and options.qualifiers and options.qualifiers.P2096 then
+
local entity = mw.wikibase.getEntityObject()
−
for i, qualifier in pairs( options.qualifiers.P2096 ) do
+
local claims
−
if ( qualifier
+
if entity and entity.claims then
−
and qualifier.datavalue
+
claims = entity.claims[propertyID]
−
and qualifier.datavalue.type == 'monolingualtext'
 
−
and qualifier.datavalue.value
 
−
and qualifier.datavalue.value.language == contentLanguageCode ) then
 
−
options.caption = qualifier.datavalue.value.text
 
−
options.description = qualifier.datavalue.value.text
 
−
break
 
−
end
 
−
end
 
−
end
 
−
if options['appendTimestamp'] and options.qualifiers and options.qualifiers.P585 and options.qualifiers.P585[1] then
 
−
local moment = formatDatavalue (context, options, options.qualifiers.P585[1].datavalue, 'time')
 
−
if not options.caption or options.caption == ''  then
 
−
options.caption = moment
 
−
options.description = moment
 
−
else
 
−
options.caption = options.caption .. ', ' .. moment
 
−
options.description = options.description .. ', ' .. moment
 
−
end
 
−
end
 
−
return formatCommonsMedia( value, options )
 
−
end;
 
−
elseif datatype and datatype == 'external-id' then
 
−
-- External ID
 
−
return function( context, options, value )
 
−
return formatExternalId( value, options )
 
−
end
 
−
elseif datatype and datatype == 'math' then
 
−
-- Math formula
 
−
return function( context, options, value )
 
−
return formatMath( value, options )
 
−
end
 
−
elseif datatype and datatype == 'url' then
 
−
-- URL
 
−
return function( context, options, value )
 
−
local moduleUrl = require( 'Module:URL' )
 
−
local langRefs = formatLangRefs( options )
 
−
if not options.length or options.length == '' then
 
−
options.length = math.max( 18, 25 - #langRefs )
 
−
end
 
−
return moduleUrl.formatUrlSingle( context, options, value ) .. langRefs
 
−
end
 
 
end
 
end
−
return function( context, options, value ) return value end;
+
if claims then
−
elseif datavalue.type == 'monolingualtext' then
+
if (claims[1] and claims[1].mainsnak.datatype == "commonsMedia") then
−
-- моноязычный текст (строка с указанием языка)
+
local out = {}
−
return function( context, options, value )
+
for k, v in pairs(claims) do
−
if ( options.monolingualLangTemplate == 'lang' ) then
+
local filename = v.mainsnak.datavalue.value
−
if ( value.language == contentLanguageCode ) then
+
out[#out + 1] = "[[File:" .. filename .. "|" .. imgsize .. "]]"
−
return value.text;
 
 
end
 
end
−
return options.frame:expandTemplate{ title = 'lang-' .. value.language, args = { value.text } };
+
return table.concat(out, sep)
−
elseif ( options.monolingualLangTemplate == 'ref' ) then
 
−
return '<span class="lang" lang="' .. value.language .. '">' .. value.text .. '</span>' .. options.frame:expandTemplate{ title = 'ref-' .. value.language };
 
 
else
 
else
−
return '<span class="lang" lang="' .. value.language .. '">' .. value.text .. '</span>';
+
return ""
 
end
 
end
−
end;
+
else
−
elseif datavalue.type == 'globecoordinate' then
+
return ""
−
-- географические координаты
+
end
−
return function( context, options, value ) return formatGlobeCoordinate( value, options )  end;
 
−
elseif datavalue.type == 'quantity' then
 
−
return function( context, options, value ) return formatQuantity( value, options )  end;
 
−
elseif datavalue.type == 'time' then
 
−
return function( context, options, value )
 
−
local moduleDate = require( 'Module:Wikidata/date' )
 
−
return moduleDate.formatDate( context, options, value );
 
−
end;
 
 
else
 
else
−
-- во всех стальных случаях возвращаем ошибку
+
return input_parm
−
throwError( 'unknown-datavalue-type' )
 
 
end
 
end
 
end
 
end
  
−
--[[
+
-- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)
−
Функция для оформления значений (value)
+
-- which are then linked to http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/01.1.00.005%20Entity%20TA98%20EN.htm
−
Подробнее о значениях  см. d:Wikidata:Glossary/ru
+
-- uses the newer mw.wikibase calls instead of directly using the snaks
−
 
+
-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string
−
Принимает: объект-значение и таблицу параметров,
+
p.getTAValue = function(frame)
−
Возвращает: строку оформленного текста
+
local ent = mw.wikibase.getEntityObject()
−
]]
+
local props = ent:formatPropertyValues('P1323')
−
function formatDatavalue( context, options, datavalue, datatype )
+
local out = {}
−
if ( not context ) then error( 'context not specified' ); end;
+
local t = {}
−
if ( not options ) then error( 'options not specified' ); end;
+
for k, v in pairs(props) do
−
if ( not datavalue ) then error( 'datavalue not specified' ); end;
+
if k == 'value' then
−
if ( not datavalue.value ) then error( 'datavalue.value is missng' ); end;
+
t = mw.text.split( v, ", ")
−
 
+
for k2, v2 in pairs(t) do
−
-- проверка на указание специализированных обработчиков в параметрах,
+
out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
−
-- переданных при вызове
+
end
−
context.formatValueDefault = getDefaultValueFunction( datavalue, datatype );
+
end
−
local functionToCall = getUserFunction( options, 'value', context.formatValueDefault );
+
end
−
return functionToCall( context, options, datavalue.value );
+
local ret = table.concat(out, "<br> ")
 +
if #ret == 0 then
 +
ret = "Invalid TA"
 +
end
 +
return ret
 
end
 
end
  
 
--[[
 
--[[
−
Функция для оформления идентификатора сущности
+
This is used to return an image legend from Wikidata
 +
image is property P18
 +
image legend is property P2096
 +
 
 +
Call as {{#invoke:Wikidata |getImageLegend | <PARAMETER> | lang=<ISO-639code> |id=<QID>}}
 +
Returns PARAMETER, unless it is equal to "FETCH_WIKIDATA", from Item QID (expensive call)
 +
If QID is omitted or blank, the current article is used (not an expensive call)
 +
If lang is omitted, it uses the local wiki language, otherwise it uses the provided ISO-639 language code
 +
ISO-639: https://docs.oracle.com/cd/E13214_01/wli/docs92/xref/xqisocodes.html#wp1252447
  
−
Принимает: строку индентификатора (типа Q42) и таблицу параметров,
+
Ranks are: 'preferred' > 'normal'
−
Возвращает: строку оформленного текста
+
This returns the label from the first image with 'preferred' rank
 +
Or the label from the first image with 'normal' rank if preferred returns nothing
 +
Ranks: https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua
 
]]
 
]]
−
function formatEntityId( context, options, entityId )
+
 
−
-- получение локализованного названия
+
p.getImageLegend = function(frame)
−
local wbStatus, entity = pcall( mw.wikibase.getEntity, entityId )
+
-- look for named parameter id; if it's blank make it nil
−
if wbStatus ~= true then
+
local id = frame.args.id
−
return '[[:d:' .. entityId .. '|' .. entityId .. ']]<span style="color:#b32424; border-bottom: 1px dotted #b32424; cursor: help; white-space: nowrap" title="Ошибка получения элемента из Викиданных.">×</span>' .. getCategoryByCode( 'links-to-entities-with-wikibase-error' );
+
if id and (#id == 0) then
 +
id = nil
 
end
 
end
−
local boundaries = nil
+
 
−
if options.qualifiers then
+
-- look for named parameter lang
−
boundaries = p.getTimeBoundariesFromQualifiers( frame, context, { qualifiers = options.qualifiers } )
+
-- it should contain a two-character ISO-639 language code
 +
-- if it's blank fetch the language of the local wiki
 +
local lang = frame.args.lang
 +
if (not lang) or (#lang < 2) then
 +
lang = mw.language.getContentLanguage().code
 
end
 
end
−
local label, labelLanguageCode = getLabelWithLang( context, options, entity, boundaries )
 
−
 
−
-- определение соответствующей показываемому элементу категории
 
−
local category = p.extractCategory( context, options, { id = entityId } )
 
  
−
-- получение ссылки по идентификатору
+
-- first unnamed parameter is the local parameter, if supplied
−
local link = mw.wikibase.sitelink( entityId )
+
local input_parm = mw.text.trim(frame.args[1] or "")
−
if link then
+
if input_parm == "FETCH_WIKIDATA" then
−
-- ссылка на категорию, а не добавление страницы в неё
+
local ent = mw.wikibase.getEntityObject(id)
−
if mw.ustring.match( link, '^' .. mw.site.namespaces[ 14 ].name .. ':' ) then
+
local imgs
−
link = ':' .. link
+
if ent and ent.claims then
 +
imgs = ent.claims.P18
 
end
 
end
−
if label then
+
local imglbl
−
if ( contentLanguageCode ~= labelLanguageCode ) then
+
if imgs then
−
return '[[' .. link .. '|' .. label .. ']]' .. getCategoryByCode( 'links-to-entities-with-missing-local-language-label' ) .. category;
+
-- look for an image with 'preferred' rank
−
else
+
for k1, v1 in pairs(imgs) do
−
return '[[' .. link .. '|' .. label .. ']]' .. category;
+
if v1.rank == "preferred" and v1.qualifiers and v1.qualifiers.P2096 then
 +
local imglbls = v1.qualifiers.P2096
 +
for k2, v2 in pairs(imglbls) do
 +
if v2.datavalue.value.language == lang then
 +
imglbl = v2.datavalue.value.text
 +
break
 +
end
 +
end
 +
end
 +
end
 +
-- if we don't find one, look for an image with 'normal' rank
 +
if (not imglbl) then
 +
for k1, v1 in pairs(imgs) do
 +
if v1.rank == "normal" and v1.qualifiers and v1.qualifiers.P2096 then
 +
local imglbls = v1.qualifiers.P2096
 +
for k2, v2 in pairs(imglbls) do
 +
if v2.datavalue.value.language == lang then
 +
imglbl = v2.datavalue.value.text
 +
break
 +
end
 +
end
 +
end
 +
end
 
end
 
end
−
else
 
−
return '[[' .. link .. ']]' .. category;
 
 
end
 
end
 +
return imglbl
 +
else
 +
return input_parm
 
end
 
end
 +
end
  
−
if label then
+
-- This is used to get the QIDs of all of the values of a property, as a comma separated list if multiple values exist
−
-- красная ссылка
+
-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |FETCH_WIKIDATA}}
−
-- TODO: разобраться, почему не всегда есть options.frame
+
-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |<InputParameter> |qid=<QID>}}
−
local title = mw.title.new( label );
 
−
if title and not title.exists and options.frame then
 
−
local templateText = "{{Универсальная карточка|" .. entityId .. "}}%0A'''" .. label .. "''' — %0A%0A== Примечания ==%0A{{примечания}}%0A";
 
−
local templateText = templateText .. "[[Категория:Википедия:Связать с элементом Викиданных|" .. entityId .. "]]";
 
−
local preloadUrl = tostring( mw.uri.canonicalUrl( label, 'action=edit&preload=Ш:Preload/Викиданные&preloadparams[]=' .. templateText ));
 
−
local redLink = options.frame:expandTemplate{ title='цветная ссылка', args = { '#ba0000', preloadUrl, label }};
 
−
return '<span class="plainlinks">' .. redLink .. '</span><sup>[[:d:' .. entityId .. '|[d]]]</sup>' .. category;
 
−
end
 
  
−
-- TODO: перенести до проверки на существование статьи
+
p.getPropertyIDs = function(frame)
−
local sup = '';
+
local propertyID = mw.text.trim(frame.args[1] or "")
−
if ( not options.format or options.format ~= 'text' )
+
local input_parm = mw.text.trim(frame.args[2] or "")
−
and entityId ~= 'Q6581072' and entityId ~= 'Q6581097' -- TODO: переписать на format=text
+
-- can take a named parameter |qid which is the Wikidata ID for the article. This will not normally be used.
−
then
+
local qid = frame.args.qid
−
sup = '<sup class="plainlinks noprint">[//www.wikidata.org/wiki/' .. entityId .. '?uselang=' .. contentLanguageCode .. ' [d&#x5d;]</sup>'
+
if qid and (#qid == 0) then qid = nil end
 +
if input_parm == "FETCH_WIKIDATA" then
 +
local entity = mw.wikibase.getEntityObject(qid)
 +
local propclaims
 +
if entity and entity.claims then
 +
propclaims = entity.claims[propertyID]
 
end
 
end
−
 
+
if propclaims then
−
-- одноимённая статья уже существует - выводится текст и ссылка на ВД
+
-- if wiki-linked value collect the QID in a table
−
return '<span class="iw" data-title="' .. label .. '">' .. label
+
if (propclaims[1] and propclaims[1].mainsnak.snaktype == "value" and propclaims[1].mainsnak.datavalue.type == "wikibase-entityid") then
−
.. sup
+
local out = {}
−
.. '</span>' .. category
+
for k, v in pairs(propclaims) do
−
end
+
out[#out + 1] = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
−
-- сообщение об отсутвии локализованного названия
 
−
-- not good, but better than nothing
 
−
return '[[:d:' .. entityId .. '|' .. entityId .. ']]<span style="border-bottom: 1px dotted; cursor: help; white-space: nowrap" title="В Викиданных нет русской подписи к элементу. Вы можете помочь, указав русский вариант подписи.">?</span>' .. getCategoryByCode( 'links-to-entities-with-missing-label' ) .. category;
 
−
end
 
−
 
 
−
--[[
 
−
Функция для формирования категории на основе wikidata/config
 
−
]]
 
−
function p.extractCategory( context, options, value )
 
−
local wbStatus, entity = pcall( mw.wikibase.getEntity, value.id )
 
−
local category = ''
 
−
if ( options.category ) then
 
−
local claims = WDS.filter( entity.claims, options.category );
 
−
if ( claims ) then
 
−
for _, claim in pairs( claims ) do
 
−
if ( claim.mainsnak
 
−
and claim.mainsnak
 
−
and claim.mainsnak.datavalue
 
−
and claim.mainsnak.datavalue.type == 'wikibase-entityid' ) then
 
−
local catEntityId = claim.mainsnak.datavalue.value.id;
 
−
local wbStatus, catEntity = pcall( mw.wikibase.getEntity, catEntityId );
 
−
 
 
−
if ( wbStatus == true and catEntity ) then
 
−
if catEntity:getSitelink() then
 
−
category = '[[' .. catEntity:getSitelink() .. ']]';
 
−
end
 
−
end
 
 
end
 
end
 +
return table.concat(out, ", ")
 +
else
 +
-- not a wikibase-entityid, so return empty
 +
return ""
 
end
 
end
 +
else
 +
-- no claim, so return empty
 +
return ""
 
end
 
end
 +
else
 +
return input_parm
 
end
 
end
−
return category;
 
 
end
 
end
  
−
--[[
+
-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
−
Функция для оформления утверждений (statement)
+
function p.pageId(frame)
−
Подробнее о утверждениях см. d:Wikidata:Glossary/ru
+
return mw.wikibase.getEntityIdForCurrentPage()
−
 
 
−
Принимает: таблицу параметров
 
−
Возвращает: строку оформленного текста, предназначенного для отображения в статье
 
−
]]
 
−
-- устаревшее имя, не использовать
 
−
function p.formatStatements( frame )
 
−
return p.formatProperty( frame );
 
 
end
 
end
  
−
--[[
+
function p.claim(frame)
−
Получение параметров, которые обычно используются для вывода свойства.
+
local property = frame.args[1] or ""
−
]]
+
local id = frame.args["id"] -- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration
−
function getPropertyParams( propertyId, datatype, params )
+
local qualifierId = frame.args["qualifier"]
−
local config = getConfig();
+
local parameter = frame.args["parameter"]
 +
local list = frame.args["list"]
 +
local references = frame.args["references"]
 +
local showerrors = frame.args["showerrors"]
 +
local default = frame.args["default"]
 +
if default then showerrors = nil end
  
−
-- Различные уровни настройки параметров, по убыванию приоритета
+
-- get wikidata entity
−
local propertyParams = {};
+
local entity = mw.wikibase.getEntityObject(id)
−
 
+
if not entity then
−
-- 1. Параметры, указанные явно при вызове
+
if showerrors then return printError("entity-not-found") else return default end
−
if params then
+
end
−
for key, value in pairs( params ) do
+
-- fetch the first claim of satisfying the given property
−
if value ~= '' then
+
local claims = findClaims(entity, property)
−
propertyParams[ key ] = value;
+
if not claims or not claims[1] then
−
end
+
if showerrors then return printError("property-not-found") else return default end
−
end
 
 
end
 
end
  
−
-- 2. Настройки конкретного параметра
+
-- get initial sort indices
−
if config[ 'properties' ] and config[ 'properties' ][ propertyId ] then
+
local sortindices = {}
−
for key, value in pairs( config[ 'properties' ][ propertyId ] ) do
+
for idx in pairs(claims) do
−
if propertyParams[ key ] == nil then
+
sortindices[#sortindices + 1] = idx
−
propertyParams[ key ] = value;
 
−
end
 
−
end
 
 
end
 
end
−
 
+
-- sort by claim rank
−
-- 3. Указанный пресет настроек
+
local comparator = function(a, b)
−
if propertyParams[ 'preset' ] and config[ 'presets' ] and
+
local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
−
config[ 'presets' ][ propertyParams[ 'preset' ] ]
+
local ranka = rankmap[claims[a].rank or "normal"] .. string.format("%08d", a)
−
then
+
local rankb = rankmap[claims[b].rank or "normal"] .. string.format("%08d", b)
−
for key, value in pairs( config[ 'presets' ][ propertyParams[ 'preset' ] ] ) do
+
return ranka < rankb
−
if propertyParams[ key ] == nil then
 
−
propertyParams[ key ] = value;
 
−
end
 
−
end
 
 
end
 
end
 +
table.sort(sortindices, comparator)
  
−
-- 4. Настройки для типа данных
+
local result
−
if datatype and config[ 'datatypes' ] and config[ 'datatypes' ][ datatype ] then
+
local error
−
for key, value in pairs( config[ 'datatypes' ][ datatype ] ) do
+
if list then
−
if propertyParams[ key ] == nil then
+
local value
−
propertyParams[ key ] = value;
+
-- iterate over all elements and return their value (if existing)
−
end
+
result = {}
 +
for idx in pairs(claims) do
 +
local claim = claims[sortindices[idx]]
 +
value, error = getValueOfClaim(claim, qualifierId, parameter)
 +
if not value and showerrors then value = error end
 +
if value and references then value = value .. getReferences(frame, claim) end
 +
result[#result + 1] = value
 
end
 
end
 +
result = table.concat(result, list)
 +
else
 +
-- return first element
 +
local claim = claims[sortindices[1]]
 +
result, error = getValueOfClaim(claim, qualifierId, parameter)
 +
if result and references then result = result .. getReferences(frame, claim) end
 
end
 
end
  
−
-- 5. Общие настройки для всех свойств
+
if result then return result else
−
if config[ 'global' ] then
+
if showerrors then return error else return default end
−
for key, value in pairs( config[ 'global' ] ) do
 
−
if propertyParams[ key ] == nil then
 
−
propertyParams[ key ] = value;
 
−
end
 
−
end
 
 
end
 
end
−
 
−
return propertyParams;
 
 
end
 
end
  
−
function p.formatProperty( frame )
+
-- look into entity object
−
local args = frame.args
+
function p.ViewSomething(frame)
−
 
+
local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
−
-- проверка на отсутствие обязательного параметра property
+
local id = f.args.id
−
if not args.property then
+
if id and (#id == 0) then
−
throwError( 'property-param-not-provided' )
+
id = nil
 
end
 
end
−
local propertyId = mw.language.getContentLanguage():ucfirst( string.gsub( args.property, '%[.*$', '' ) )
+
local data = mw.wikibase.getEntityObject(id)
−
local datatype = getPropertyDatatype( propertyId );
+
if not data then
−
args = getPropertyParams( propertyId, datatype, args );
+
return nil
−
 
 
−
-- проброс всех параметров из шаблона {wikidata} и параметра from откуда угодно
 
−
p_frame = frame
 
−
while p_frame do
 
−
if p_frame:getTitle() == mw.site.namespaces[10].name .. ':Wikidata' then
 
−
copyTo( p_frame.args, args, true );
 
−
end
 
−
if p_frame.args and p_frame.args.from and p_frame.args.from ~= '' then
 
−
args.entityId = p_frame.args.from;
 
−
end
 
−
p_frame = p_frame:getParent();
 
 
end
 
end
  
−
args.plain = toBoolean( args.plain, false );
+
local i = 1
−
args.nocat = toBoolean( args.nocat, false );
+
while true do
−
args.references = toBoolean( args.references, true );
+
local index = f.args[i]
−
 
+
if not index then
−
-- если значение передано в параметрах вызова то выводим только его
+
if type(data) == "table" then
−
if args.value and args.value ~= '' then
+
return mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY)
−
-- специальное значение для скрытия Викиданных
 
−
if args.value == '-' then
 
−
return ''
 
−
end
 
−
local value = args.value
 
−
 
 
−
-- опция, запрещающая оформление значения, поэтому никак не трогаем
 
−
if args.plain then
 
−
return value
 
−
end
 
−
 
 
−
-- обработчики по типу значения
 
−
local wrapperExtraArgs = ''
 
−
if args['value-module'] and args['value-function'] and not string.find( value, '[%[%]%{%}]' ) then
 
−
local func = getUserFunction( args, 'value' );
 
−
value = func( {}, args, value );
 
−
elseif datatype == 'commonsMedia' then
 
−
value = formatCommonsMedia( value, args );
 
−
elseif datatype == 'external-id' and not string.find( value, '[%[%]%{%}]' ) then
 
−
wrapperExtraArgs = wrapperExtraArgs .. ' data-wikidata-external-id="' .. mw.text.encode( value ).. '"';
 
−
value = formatExternalId( value, args );
 
−
elseif datatype == 'math' then
 
−
value = formatMath( value, args );
 
−
elseif datatype == 'url' then
 
−
local moduleUrl = require( 'Module:URL' );
 
−
if not args.length or args.length == '' then
 
−
args.length = 25
 
−
end
 
−
value = moduleUrl.formatUrlSingle( nil, args, value );
 
−
end
 
−
 
 
−
-- оборачиваем в тег для JS-функций
 
−
if string.match( propertyId, '^P%d+$' ) then
 
−
value = mw.text.trim( value )
 
−
 
 
−
-- временная штрафная категория для исправления табличных вставок
 
−
if ( propertyId ~= 'P166'
 
−
and string.match( value, '<t[dr][ >]' )
 
−
and not string.match( value, '<table >]' )
 
−
and not string.match( value, '^%{%|' ) ) then
 
−
value = value .. getCategoryByCode( 'value-contains-table' )
 
 
else
 
else
−
-- значений с блочными тегами остаются блоком, текст встраиваем в строку
+
return tostring(data)
−
if ( string.match( value, '\n' )
 
−
or string.match( value, '<t[dhr][ >]' )
 
−
or string.match( value, '<div[ >]' ) ) then
 
−
value = '<div class="no-wikidata"' .. wrapperExtraArgs
 
−
.. ' data-wikidata-property-id="' .. propertyId .. '">\n'
 
−
.. value .. '</div>'
 
−
else
 
−
value = '<span class="no-wikidata"' .. wrapperExtraArgs
 
−
.. ' data-wikidata-property-id="' .. propertyId .. '">'
 
−
.. value .. '</span>'
 
−
end
 
 
end
 
end
 
end
 
end
  
−
-- добавляем категорию-маркер
+
data = data[index] or data[tonumber(index)]
−
if not args.nocat then
+
if not data then
−
local pageTitle = mw.title.getCurrentTitle();
+
return
−
if pageTitle.namespace == 0 then
 
−
value = value .. getCategoryByCode( 'local-value-present' );
 
−
end
 
 
end
 
end
  
−
return value
+
i = i + 1
 
end
 
end
 +
end
  
−
if ( args.plain ) then -- вызова стандартного обработчика без оформления, если передана опция plain
+
-- getting sitelink of a given wiki
−
local callArgs = { propertyId };
+
function p.getSiteLink(frame)
−
if args.entityId then
+
local f = frame.args[1]
−
callArgs.from = args.entityId;
+
local entity = mw.wikibase.getEntity()
−
end
+
if not entity then
−
return frame:callParserFunction( '#property', callArgs );
+
return
 +
end
 +
local link = entity:getSitelink( f )
 +
if not link then
 +
return
 
end
 
end
−
 
+
return link
−
g_frame = frame
 
−
-- после проверки всех аргументов -- вызов функции оформления для свойства (набора утверждений)
 
−
return formatProperty( args )
 
 
end
 
end
  
−
--[[
+
function p.Dump(frame)
−
Функция оформления ссылок на источники (reference)
+
local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
−
Подробнее о ссылках на источники см. d:Wikidata:Glossary/ru
+
local data = mw.wikibase.getEntityObject(f.args.id)
−
 
+
if not data then
−
Экспортируется в качестве зарезервированной точки для вызова из функций-расширения вида claim-module/claim-function через context
+
return i18n.warnDump
−
Вызов из других модулей напрямую осуществляться не должен (используйте frame:expandTemplate вместе с одним из специлизированных шаблонов вывода значения свойства).
 
−
 
 
−
Принимает: объект-таблицу утверждение
 
−
Возвращает: строку оформленных ссылок для отображения в статье
 
−
]]
 
−
function formatRefs( context, options, statement )
 
−
if ( not context ) then error( 'context not specified' ); end;
 
−
if ( not options ) then error( 'options not specified' ); end;
 
−
if ( not options.entity ) then error( 'options.entity missing' ); end;
 
−
if ( not statement ) then error( 'statement not specified' ); end;
 
−
 
 
−
if ( not outputReferences ) then
 
−
return '';
 
 
end
 
end
  
−
local references = {};
+
local i = 1
−
if ( statement.references ) then
+
while true do
 +
local index = f.args[i]
 +
if not index then
 +
return "<pre>"..mw.dumpObject(data).."</pre>".. i18n.warnDump
 +
end
  
−
local allReferences = statement.references;
+
data = data[index] or data[tonumber(index)]
−
local hasPreferred = false;
+
if not data then
−
local displayCount = 0;
+
return i18n.warnDump
−
for _, reference in pairs( statement.references ) do
 
−
if ( reference.snaks
 
−
and reference.snaks.P248
 
−
and reference.snaks.P248[1]
 
−
and reference.snaks.P248[1].datavalue
 
−
and reference.snaks.P248[1].datavalue.value.id ) then
 
−
local entityId = reference.snaks.P248[1].datavalue.value.id;
 
−
if ( preferredSources[entityId] ) then
 
−
hasPreferred = true;
 
−
end
 
−
end
 
 
end
 
end
  
−
for _, reference in pairs( statement.references ) do
+
i = i + 1
−
local display = true;
 
−
if ( hasPreferred ) then
 
−
if ( reference.snaks
 
−
and reference.snaks.P248
 
−
and reference.snaks.P248[1]
 
−
and reference.snaks.P248[1].datavalue
 
−
and reference.snaks.P248[1].datavalue.value.id ) then
 
−
local entityId = reference.snaks.P248[1].datavalue.value.id;
 
−
if ( deprecatedSources[entityId] ) then
 
−
display = false;
 
−
end
 
−
end
 
−
end
 
−
if ( display == true ) then
 
−
if ( displayCount > 2 ) then
 
−
if ( options.entity and options.property ) then
 
−
table.remove( references );
 
−
local moreReferences = '<sup>[[d:' .. options.entity.id .. '#' .. string.upper( options.property ) .. '|[…]]]</sup>';
 
−
table.insert( references, moreReferences );
 
−
end
 
−
break;
 
−
end;
 
−
local refText = moduleSources.renderReference( g_frame, options.entity, reference );
 
−
if ( refText ~= '' ) then
 
−
table.insert( references, refText );
 
−
displayCount = displayCount + 1;
 
−
end
 
−
end
 
−
end
 
 
end
 
end
−
return table.concat( references );
 
 
end
 
end
  
 
return p
 
return p

Версия 15:24, 3 июля 2018

Time Внимание! Это один из самых используемых модулей.
Каждое его изменение создаёт дополнительную нагрузку на серверы проекта. Пожалуйста, убедитесь в адекватности и правильности ваших изменений, проверьте их на тестовых страницах.


Используется в {{Wikidata}}.

Функции данного модуля не предназначены для прямого вызова из шаблонов карточек или других модулей, не являющихся функциями расширения данного. Для вызова из шаблонов карточек используйте шаблон {{wikidata}} или один из специализированных шаблонов для свойств. Для вызова функций Викиданных предназначенных для отображения чаще всего достаточно вызова frame:expandTemplate{} с вызовом шаблона, ответственного за отрисовку свойства. С другой стороны, вызов определённых функций модуля (в основном это касается getEntityObject()) может в будущем стать предпочтительным. Данный Lua-функционал в любом случае стоит рассматривать как unstable с точки зрения сохранения совместимости на уровне кода (вместе с соответствующими функциями API для Wikibase Client).

Далее описывается внутренняя документация. Названия функций и параметров могут изменяться. При их изменении автор изменений обязан обновить шаблон {{wikidata}} и специализированные шаблоны свойств. Изменения в других местах, если кто-то всё-таки вызывает функции модуля напрямую, остаются на совести автора «костыля». Итак, при вызове шаблона {{wikidata}} или специализированного шаблона свойства управление отдаётся на функцию formatStatements, которая принимает frame. Из frame достаются следующие опции, которые так или иначе передаются в остальные функции:

  • plain — булевый переключатель (по умолчанию false). Если true, результат совпадает с обычным вызовом {{#property:pNNN}} (по факту им и будет являться)
  • references — булевый переключатель (по умолчанию true). Если true, после вывода значения параметра дополнительно выводит ссылки на источники, указанные в Викиданных. Для вывода используется Модуль:Sources. Обычно отключается для тех свойств, которые являются «самоописываемыми», например, внешними идентификаторами или ссылками (когда такая ссылка является доказательством своей актуальности), например, идентификаторы IMDb.
  • value — значение, которое надо выводить вместо значений из Викиданных (используется, если что-то задано уже в карточке в виде т. н. локального свойства)

По умолчанию модуль поддерживает вывод следующих значений без дополнительных настроек:

  • географические координаты (coordinates)
  • количественные значения (quantity)
  • моноязычный текст (monolingualtext)
  • строки (string)
  • даты (time)

Остальные типы данных требуют указания функции форматирования значения.

Поддерживаются три типа параметров-функций, которые дополнительно указывают, как надо форматировать значения:

  • property-module, property-function — название модуля и функции модуля, которые отвечают за форматирование вывода массива значений свойства (statements, claims) с учётом квалификаторов, ссылок и прочего. Например, оформляет множество выводов в таблицу или график. Характерные примеры:
    Спецификация функции: function p.…( context, options ), поведение по умолчанию: Модуль:Wikidata#formatPropertyDefault.
  • claim-module, claim-function — название модуля и функции модуля, которые отвечают за форматирование вывода значения свойства (statement, claim) с учётом квалификаторов, ссылок и прочего. Может, например, дополнительно к основному значению (main snak) вывести значения квалификаторов. Характерные примеры:
    Спецификация функции: function p.…( context, statement )
  • value-module, value-function — название модуля и функции модуля, которые отвечают за форматирование значения (snak, snak data value), в зависимости от контекста, как значений свойства, так и значений квалификатора (если вызывается из claim-module/claim-function). Необходимо для изменения отображения свойства, например, генерации викиссылки вместо простой строки или даже вставки изображения вместо отображения имени файла изображения (так как ссылки на изображения хранятся как строки). Характерные примеры:
    Спецификация функции: function p.…( value, options )


-- vim: set noexpandtab ft=lua ts=4 sw=4:
require('Module:No globals')

local p = {}
local debug = false


------------------------------------------------------------------------------
-- module local variables and functions

local wiki =
{
	langcode = mw.language.getContentLanguage().code
}

-- internationalisation
local i18n =
{
	["errors"] =
	{
		["property-not-found"] = "Property not found.",
		["entity-not-found"] = "Wikidata entity not found.",
		["unknown-claim-type"] = "Unknown claim type.",
		["unknown-entity-type"] = "Unknown entity type.",
		["qualifier-not-found"] = "Qualifier not found.",
		["site-not-found"] = "Wikimedia project not found.",
		["unknown-datetime-format"] = "Unknown datetime format.",
		["local-article-not-found"] = "Article is not yet available in this wiki."
	},
	["datetime"] =
	{
		-- $1 is a placeholder for the actual number
		[0] = "$1 billion years",	-- precision: billion years
		[1] = "$100 million years",	-- precision: hundred million years
		[2] = "$10 million years",	-- precision: ten million years
		[3] = "$1 million years",	-- precision: million years
		[4] = "$100,000 years",		-- precision: hundred thousand years
		[5] = "$10,000 years",		-- precision: ten thousand years
		[6] = "$1 millennium",		-- precision: millennium
		[7] = "$1 century",			-- precision: century
		[8] = "$1s",				-- precision: decade
		-- the following use the format of #time parser function
		[9]  = "Y",					-- precision: year,
		[10] = "F Y",				-- precision: month
		[11] = "F j, Y",			-- precision: day
		[12] = "F j, Y ga",			-- precision: hour
		[13] = "F j, Y g:ia",		-- precision: minute
		[14] = "F j, Y g:i:sa",		-- precision: second
		["beforenow"] = "$1 BCE",	-- how to format negative numbers for precisions 0 to 5
		["afternow"] = "$1 CE",		-- how to format positive numbers for precisions 0 to 5
		["bc"] = '$1 "BCE"',		-- how print negative years
		["ad"] = "$1",				-- how print positive years
		-- the following are for function getDateValue() and getQualifierDateValue()
		["default-format"] = "dmy", -- default value of the #3 (getDateValue) or
									-- #4 (getQualifierDateValue) argument
		["default-addon"] = "BC",	-- default value of the #4 (getDateValue) or
									-- #5 (getQualifierDateValue) argument
		["prefix-addon"] = false,	-- set to true for languages put "BC" in front of the
									-- datetime string; or the addon will be suffixed
		["addon-sep"] = " ",		-- separator between datetime string and addon (or inverse)
		["format"] =				-- options of the 3rd argument
		{
			["mdy"] = "F j, Y",
			["my"] = "F Y",
			["y"] = "Y",
			["dmy"] = "j F Y",
			["ymd"] = "Y-m-d",
			["ym"] = "Y-m"
		}
	},
	["monolingualtext"] = '<span lang="%language">%text</span>',
	["warnDump"] = "[[Category:Called function 'Dump' from module Wikidata]]",
	["ordinal"] =
	{
		[1] = "st",
		[2] = "nd",
		[3] = "rd",
		["default"] = "th"
	}
}

-- Credit to http://stackoverflow.com/a/1283608/2644759
-- cc-by-sa 3.0
local function tableMerge(t1, t2)
	for k,v in pairs(t2) do
		if type(v) == "table" then
			if type(t1[k] or false) == "table" then
				tableMerge(t1[k] or {}, t2[k] or {})
			else
				t1[k] = v
			end
		else
			t1[k] = v
		end
	end
	return t1
end

local function loadI18n()
	local exist, res = pcall(require, "Module:Wikidata/i18n")
	if exist and next(res) ~= nil then
		tableMerge(i18n, res.i18n)
	end
end

loadI18n()

-- this function needs to be internationalised along with the above:
-- takes cardinal numer as a numeric and returns the ordinal as a string
-- we need three exceptions in English for 1st, 2nd, 3rd, 21st, .. 31st, etc.
local function makeOrdinal (cardinal)
	local ordsuffix = i18n.ordinal.default
	if cardinal % 10 == 1 then
		ordsuffix = i18n.ordinal[1]
	elseif cardinal % 10 == 2 then
		ordsuffix = i18n.ordinal[2]
	elseif cardinal % 10 == 3 then
		ordsuffix = i18n.ordinal[3]
	end
	-- In English, 1, 21, 31, etc. use 'st', but 11, 111, etc. use 'th'
	-- similarly for 12 and 13, etc.
	if (cardinal % 100 == 11) or (cardinal % 100 == 12) or (cardinal % 100 == 13) then
		ordsuffix = i18n.ordinal.default
	end
	return tostring(cardinal) .. ordsuffix
end

local function printError(code)
	return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>'
end

local function parseDateValue(timestamp, date_format, date_addon)
	local prefix_addon = i18n["datetime"]["prefix-addon"]
	local addon_sep = i18n["datetime"]["addon-sep"]
	local addon = ""

	-- check for negative date
	if string.sub(timestamp, 1, 1) == '-' then
		timestamp = '+' .. string.sub(timestamp, 2)
		addon = date_addon
	end
	local function d(f)
		local year_suffix
		local tstr = ""
		local lang_obj = mw.language.new(wiki.langcode)
		local f_parts = mw.text.split(f, 'Y', true)
		for idx, f_part in pairs(f_parts) do
			year_suffix = ''
			if string.match(f_part, "x[mijkot]$") then
				-- for non-Gregorian year
				f_part = f_part .. 'Y'
			elseif idx < #f_parts then
				-- supress leading zeros in year
				year_suffix = lang_obj:formatDate('Y', timestamp)
				year_suffix = string.gsub(year_suffix, '^0+', '', 1)
			end
			tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
		end
		if addon ~= "" and prefix_addon then
			return addon .. addon_sep .. tstr
		elseif addon ~= "" then
			return tstr .. addon_sep .. addon
		else
			return tstr
		end
	end
	local _date_format = i18n["datetime"]["format"][date_format]
	if _date_format ~= nil then
		return d(_date_format)
	else
		return printError("unknown-datetime-format")
	end
end

-- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}
-- with the millennium/century/decade handling of formatDate()
local function parseDateFull(timestamp, precision, date_format, date_addon)
	local prefix_addon = i18n["datetime"]["prefix-addon"]
	local addon_sep = i18n["datetime"]["addon-sep"]
	local addon = ""

	-- check for negative date
	if string.sub(timestamp, 1, 1) == '-' then
		timestamp = '+' .. string.sub(timestamp, 2)
		addon = date_addon
	end

	-- get the next four characters after the + (should be the year now in all cases)
	-- ok, so this is dirty, but let's get it working first
	local intyear = tonumber(string.sub(timestamp, 2, 5))
	if intyear == 0 and precision <= 9 then
		return ""
	end

	-- precision is 10000 years or more
	if precision <= 5 then
		local factor = 10 ^ ((5 - precision) + 4)
		local y2 = math.ceil(math.abs(intyear) / factor)
		local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
		if addon ~= "" then
			-- negative date
			relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
		else
			relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
		end
		return relative
	end

	-- precision is decades (8), centuries (7) and millennia (6)
	local era, card
	if precision == 6 then
		card = math.floor((intyear - 1) / 1000) + 1
		era = mw.ustring.gsub(i18n.datetime[6], "$1", makeOrdinal(card))
	end
	if precision == 7 then
		card = math.floor((intyear - 1) / 100) + 1
		era = mw.ustring.gsub(i18n.datetime[7], "$1", makeOrdinal(card))
	end
	if precision == 8 then
		era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(intyear) / 10) * 10))
	end
	if era then
		if addon ~= "" then
			era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
		else
			era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era)
		end
		return era
	end

	local _date_format = i18n["datetime"]["format"][date_format]
	if _date_format ~= nil then
		-- check for precision is year and override supplied date_format
		if precision == 9 then
			_date_format = i18n["datetime"][9]
		end
		local year_suffix
		local tstr = ""
		local lang_obj = mw.language.new(wiki.langcode)
		local f_parts = mw.text.split(_date_format, 'Y', true)
		for idx, f_part in pairs(f_parts) do
			year_suffix = ''
			if string.match(f_part, "x[mijkot]$") then
				-- for non-Gregorian year
				f_part = f_part .. 'Y'
			elseif idx < #f_parts then
				-- supress leading zeros in year
				year_suffix = lang_obj:formatDate('Y', timestamp)
				year_suffix = string.gsub(year_suffix, '^0+', '', 1)
			end
			tstr = tstr .. lang_obj:formatDate(f_part, timestamp) .. year_suffix
		end
		local fdate
		if addon ~= "" and prefix_addon then
			fdate = addon .. addon_sep .. tstr
		elseif addon ~= "" then
			fdate = tstr .. addon_sep .. addon
		else
			fdate = tstr
		end

		return fdate
	else
		return printError("unknown-datetime-format")
	end
end

-- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field
-- use these as the second parameter and this function instead of the built-in "pairs" function
-- to iterate over all qualifiers and snaks in the intended order.
local function orderedpairs(array, order)
	if not order then return pairs(array) end

	-- return iterator function
	local i = 0
	return function()
		i = i + 1
		if order[i] then
			return order[i], array[order[i]]
		end
	end
end

-- precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
local function normalizeDate(date)
	date = mw.text.trim(date, "+")
	-- extract year
	local yearstr = mw.ustring.match(date, "^\-?%d+")
	local year = tonumber(yearstr)
	-- remove leading zeros of year
	return year .. mw.ustring.sub(date, #yearstr + 1), year
end

local function formatDate(date, precision, timezone)
	precision = precision or 11
	local date, year = normalizeDate(date)
	if year == 0 and precision <= 9 then return "" end

	-- precision is 10000 years or more
	if precision <= 5 then
		local factor = 10 ^ ((5 - precision) + 4)
		local y2 = math.ceil(math.abs(year) / factor)
		local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
		if year < 0 then
			relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
		else
			relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
		end
		return relative
	end

	-- precision is decades, centuries and millennia
	local era
	if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end
	if precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(math.floor((math.abs(year) - 1) / 100) + 1)) end
	if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(year) / 10) * 10)) end
	if era then
		if year < 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
		elseif year > 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end
		return era
	end

	-- precision is year
	if precision == 9 then
		return year
	end

	-- precision is less than years
	if precision > 9 then
		--[[ the following code replaces the UTC suffix with the given negated timezone to convert the global time to the given local time
		timezone = tonumber(timezone)
		if timezone and timezone ~= 0 then
			timezone = -timezone
			timezone = string.format("%.2d%.2d", timezone / 60, timezone % 60)
			if timezone[1] ~= '-' then timezone = "+" .. timezone end
			date = mw.text.trim(date, "Z") .. " " .. timezone
		end
		]]--

		local formatstr = i18n.datetime[precision]
		if year == 0 then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], "")
		elseif year < 0 then
			-- Mediawiki formatDate doesn't support negative years
			date = mw.ustring.sub(date, 2)
			formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.bc, "$1", i18n.datetime[9]))
		elseif year > 0 and i18n.datetime.ad ~= "$1" then
			formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, "$1", i18n.datetime[9]))
		end
		return mw.language.new(wiki.langcode):formatDate(formatstr, date)
	end
end

local function printDatavalueEntity(data, parameter)
	-- data fields: entity-type [string], numeric-id [int, Wikidata id]
	local id

	if data["entity-type"] == "item" then id = "Q" .. data["numeric-id"]
	elseif data["entity-type"] == "property" then id = "P" .. data["numeric-id"]
	else return printError("unknown-entity-type")
	end

	if parameter then
		if parameter == "link" then
			local linkTarget = mw.wikibase.sitelink(id)
			local linkName = mw.wikibase.label(id)
			if linkTarget then
				-- if there is a local Wikipedia article link to it using the label or the article title
				return "[[" .. linkTarget .. "|" .. (linkName or linkTarget) .. "]]"
			else
				-- if there is no local Wikipedia article output the label or link to the Wikidata object to let the user input a proper label
				if linkName then return linkName else return "[[:d:" .. id .. "|" .. id .. "]]" end
			end
		else
			return data[parameter]
		end
	else
		return mw.wikibase.label(id) or id
	end
end

local function printDatavalueTime(data, parameter)
	-- data fields: time [ISO 8601 time], timezone [int in minutes], before [int], after [int], precision [int], calendarmodel [wikidata URI]
	--   precision: 0 - billion years, 1 - hundred million years, ..., 6 - millennia, 7 - century, 8 - decade, 9 - year, 10 - month, 11 - day, 12 - hour, 13 - minute, 14 - second
	--   calendarmodel: e.g. http://www.wikidata.org/entity/Q1985727 for the proleptic Gregorian calendar or http://www.wikidata.org/wiki/Q11184 for the Julian calendar]
	if parameter then
		if parameter == "calendarmodel" then data.calendarmodel = mw.ustring.match(data.calendarmodel, "Q%d+") -- extract entity id from the calendar model URI
		elseif parameter == "time" then data.time = normalizeDate(data.time) end
		return data[parameter]
	else
		return formatDate(data.time, data.precision, data.timezone)
	end
end

local function printDatavalueMonolingualText(data, parameter)
	-- data fields: language [string], text [string]
	if parameter then
		return data[parameter]
	else
		local result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"])
		return result
	end
end

local function findClaims(entity, property)
	if not property or not entity or not entity.claims then return end
	return entity:getAllStatements(property)
end

local function getSnakValue(snak, parameter)
	if snak.snaktype == "value" then
		-- call the respective snak parser
		if snak.datavalue.type == "string" then return snak.datavalue.value
		elseif snak.datavalue.type == "globecoordinate" then return printDatavalueCoordinate(snak.datavalue.value, parameter)
		elseif snak.datavalue.type == "quantity" then return printDatavalueQuantity(snak.datavalue.value, parameter)
		elseif snak.datavalue.type == "time" then return printDatavalueTime(snak.datavalue.value, parameter)
		elseif snak.datavalue.type == "wikibase-entityid" then return printDatavalueEntity(snak.datavalue.value, parameter)
		elseif snak.datavalue.type == "monolingualtext" then return printDatavalueMonolingualText(snak.datavalue.value, parameter)
		end
	end
	return mw.wikibase.renderSnak(snak)
end

local function getQualifierSnak(claim, qualifierId)
	-- a "snak" is Wikidata terminology for a typed key/value pair
	-- a claim consists of a main snak holding the main information of this claim,
	-- as well as a list of attribute snaks and a list of references snaks
	if qualifierId then
		-- search the attribute snak with the given qualifier as key
		if claim.qualifiers then
			local qualifier = claim.qualifiers[qualifierId]
			if qualifier then return qualifier[1] end
		end
		return nil, printError("qualifier-not-found")
	else
		-- otherwise return the main snak
		return claim.mainsnak
	end
end

local function getValueOfClaim(claim, qualifierId, parameter)
	local error
	local snak
	snak, error = getQualifierSnak(claim, qualifierId)
	if snak then
		return getSnakValue(snak, parameter)
	else
		return nil, error
	end
end

local function getReferences(frame, claim)
	local result = ""
	-- traverse through all references
	for ref in pairs(claim.references or {}) do
		local refparts
		-- traverse through all parts of the current reference
		for snakkey, snakval in orderedpairs(claim.references[ref].snaks or {}, claim.references[ref]["snaks-order"]) do
			if refparts then refparts = refparts .. ", " else refparts = "" end
			-- output the label of the property of the reference part, e.g. "imported from" for P143
			refparts = refparts .. tostring(mw.wikibase.label(snakkey)) .. ": "
			-- output all values of this reference part, e.g. "German Wikipedia" and "English Wikipedia" if the referenced claim was imported from both sites
			for snakidx = 1, #snakval do
				if snakidx > 1 then refparts = refparts .. ", " end
				refparts = refparts .. getSnakValue(snakval[snakidx])
			end
		end
		if refparts then result = result .. frame:extensionTag("ref", refparts) end
	end
	return result
end


------------------------------------------------------------------------------
-- module global functions

if debug then
	function p.inspectI18n(frame)
		local val = i18n
		for _, key in pairs(frame.args) do
			key = mw.text.trim(key)
			val = val[key]
		end
		return val
	end
end

function p.descriptionIn(frame)
	local langcode = frame.args[1]
	local id = frame.args[2]	-- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration
	-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
	return mw.wikibase.getEntityObject(id).descriptions[langcode or wiki.langcode].value
end

function p.labelIn(frame)
	local langcode = frame.args[1]
	local id = frame.args[2]	-- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration
	-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
	return mw.wikibase.getEntityObject(id).labels[langcode or wiki.langcode].value
end

-- This is used to get a value, or a comma separated list of them if multiple values exist
p.getValue = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		local claims
		if entity and entity.claims then
			claims = entity.claims[propertyID]
		end
		if claims then
			-- if wiki-linked value output as link if possible
			if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then
				local out = {}
				for k, v in pairs(claims) do
					local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"])
					local label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"])
					if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end

					if sitelink then
						out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
					else
						out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
					end
				end
				return table.concat(out, ", ")
			else
				-- just return best values
				return entity:formatPropertyValues(propertyID).value
			end
		else
			return ""
		end
	else
		return input_parm
	end
end

-- Same as above, but uses the short name property for label if available.
p.getValueShortName = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		local claims
		if entity and entity.claims then
			claims = entity.claims[propertyID]
		end
		if claims then
			-- if wiki-linked value output as link if possible
			if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then
				local out = {}
				for k, v in pairs(claims) do
					local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"])
					local label
					local claimEntity = mw.wikibase.getEntity("Q" .. v.mainsnak.datavalue.value["numeric-id"])
					if claimEntity ~= nil then
						if claimEntity.claims.P1813 then
							for k2, v2 in pairs(claimEntity.claims.P1813) do
								if v2.mainsnak.datavalue.value.language == "en" then
									label = v2.mainsnak.datavalue.value.text
								end
							end
						end
					end
					if label == nil or label == "" then label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"]) end
					if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end

					if sitelink then
						out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
					else
						out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
					end
				end
				return table.concat(out, ", ")
			else
				-- just return best vakues
				return entity:formatPropertyValues(propertyID).value
			end
		else
			return ""
		end
	else
		return input_parm
	end
end

-- This is used to get a value, or a comma separated list of them if multiple values exist
-- from an arbitrary entry by using its QID.
-- Use : {{#invoke:Wikidata|getValueFromID|<ID>|<Property>|FETCH_WIKIDATA}}
-- E.g.: {{#invoke:Wikidata|getValueFromID|Q151973|P26|FETCH_WIKIDATA}} - to fetch value of 'spouse' (P26) from 'Richard Burton' (Q151973)
-- Please use sparingly - this is an *expensive call*.
p.getValueFromID = function(frame)
	local itemID = mw.text.trim(frame.args[1] or "")
	local propertyID = mw.text.trim(frame.args[2] or "")
	local input_parm = mw.text.trim(frame.args[3] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntity(itemID)
		local claims
		if entity and entity.claims then
			claims = entity.claims[propertyID]
		end
		if claims then
			-- if wiki-linked value output as link if possible
			if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "wikibase-entityid") then
				local out = {}
				for k, v in pairs(claims) do
					local sitelink = mw.wikibase.sitelink("Q" .. v.mainsnak.datavalue.value["numeric-id"])
					local label = mw.wikibase.label("Q" .. v.mainsnak.datavalue.value["numeric-id"])
					if label == nil then label = "Q" .. v.mainsnak.datavalue.value["numeric-id"] end

					if sitelink then
						out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
					else
						out[#out + 1] = "[[:d:Q" .. v.mainsnak.datavalue.value["numeric-id"] .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
					end
				end
				return table.concat(out, ", ")
			else
				return entity:formatPropertyValues(propertyID).value
			end
		else
			return ""
		end
	else
		return input_parm
	end
end

p.getQualifierValue = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local qualifierID = mw.text.trim(frame.args[2] or "")
	local input_parm = mw.text.trim(frame.args[3] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		if entity.claims[propertyID] ~= nil then
			local out = {}
			for k, v in pairs(entity.claims[propertyID]) do
				for k2, v2 in pairs(v.qualifiers[qualifierID]) do
					if v2.snaktype == 'value' then
						if (mw.wikibase.sitelink("Q" .. v2.datavalue.value["numeric-id"])) then
							out[#out + 1] = "[[" .. mw.wikibase.sitelink("Q" .. v2.datavalue.value["numeric-id"]) .. "]]"
						else
							out[#out + 1] = "[[:d:Q" .. v2.datavalue.value["numeric-id"] .. "|" .. mw.wikibase.label("Q" .. v2.datavalue.value["numeric-id"]) .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
						end
					end
				end
			end
			return table.concat(out, ", ")
		else
			return ""
		end
	else
		return input_parm
	end
end

-- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators
p.getRawValue = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		local claims
		if entity and entity.claims then claims = entity.claims[propertyID] end
		if claims then
			local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value

			-- if number type: remove thousand separators, bounds and units
			if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then
				result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")
				result = mw.ustring.gsub(result, "(%d)±.*", "%1")
			end
			return result
		else
			return ""
		end
	else
		return input_parm
	end
end

-- This is used to get the unit name for the numeric value returned by getRawValue
p.getUnits = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		local claims
		if entity and entity.claims then claims = entity.claims[propertyID] end
		if claims then
			local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
			if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then
				result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)
			end
			return result
		else
			return ""
		end
	else
		return input_parm
	end
end

-- This is used to get the unit's QID to use with the numeric value returned by getRawValue
p.getUnitID = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		local claims
		if entity and entity.claims then claims = entity.claims[propertyID] end
		if claims then
			local result
			if (claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == "quantity") then
				-- get the url for the unit entry on Wikidata:
				result = claims[1].mainsnak.datavalue.value.unit
				-- and just reurn the last bit from "Q" to the end (which is the QID):
				result = mw.ustring.sub(result, mw.ustring.find(result, "Q"), -1)
			end
			return result
		else
			return ""
		end
	else
		return input_parm
	end
end

p.getRawQualifierValue = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local qualifierID = mw.text.trim(frame.args[2] or "")
	local input_parm = mw.text.trim(frame.args[3] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		if entity.claims[propertyID] ~= nil then
			local out = {}
			for k, v in pairs(entity.claims[propertyID]) do
				for k2, v2 in pairs(v.qualifiers[qualifierID]) do
					if v2.snaktype == 'value' then
						if v2.datavalue.value["numeric-id"] then
							out[#out + 1] = mw.wikibase.label("Q" .. v2.datavalue.value["numeric-id"])
						else
							out[#out + 1] = v2.datavalue.value
						end
					end
				end
			end
			local ret = table.concat(out, ", ")
			return string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
		else
			return ""
		end
	else
		return input_parm
	end
end

-- This is used to get a date value for date_of_birth (P569), etc. which won't be linked
-- Dates and times are stored in ISO 8601 format (sort of).
-- At present the local formatDate(date, precision, timezone) function doesn't handle timezone
-- So I'll just supply "Z" in the call to formatDate below:
p.getDateValue = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	local date_format = mw.text.trim(frame.args[3] or i18n["datetime"]["default-format"])
	local date_addon = mw.text.trim(frame.args[4] or i18n["datetime"]["default-addon"])
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		if entity.claims[propertyID] ~= nil then
			local out = {}
			for k, v in pairs(entity.claims[propertyID]) do
				if v.mainsnak.datavalue.type == 'time' then
					local timestamp = v.mainsnak.datavalue.value.time
					local dateprecision = v.mainsnak.datavalue.value.precision
					-- A year can be stored like this: "+1872-00-00T00:00:00Z",
					-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",
					-- and that's the last day of 1871, so the year is wrong.
					-- So fix the month 0, day 0 timestamp to become 1 January instead:
					timestamp = timestamp:gsub("%-00%-00T", "-01-01T")
					out[#out + 1] = parseDateFull(timestamp, dateprecision, date_format, date_addon)
				end
			end
			return table.concat(out, ", ")
		else
			return ""
		end
	else
		return input_parm
	end
end

p.getQualifierDateValue = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local qualifierID = mw.text.trim(frame.args[2] or "")
	local input_parm = mw.text.trim(frame.args[3] or "")
	local date_format = mw.text.trim(frame.args[4] or i18n["datetime"]["default-format"])
	local date_addon = mw.text.trim(frame.args[5] or i18n["datetime"]["default-addon"])
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		if entity.claims[propertyID] ~= nil then
			local out = {}
			for k, v in pairs(entity.claims[propertyID]) do
				for k2, v2 in pairs(v.qualifiers[qualifierID]) do
					if v2.snaktype == 'value' then
						local timestamp = v2.datavalue.value.time
						out[#out + 1] = parseDateValue(timestamp, date_format, date_addon)
					end
				end
			end
			return table.concat(out, ", ")
		else
			return ""
		end
	else
		return input_parm
	end
end

-- This is used to fetch all of the images with a particular property, e.g. image (P18), Gene Atlas Image (P692), etc.
-- Parameters are | propertyID | value / FETCH_WIKIDATA / nil | separator (default=space) | size (default=frameless)
-- It will return a standard wiki-markup [[File:Filename | size]] for each image with a selectable size and separator (which may be html)
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}}
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|<br>|250px}}
-- If a property is chosen that is not of type "commonsMedia", it will return empty text.
p.getImages = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	local sep = mw.text.trim(frame.args[3] or " ")
	local imgsize = mw.text.trim(frame.args[4] or "frameless")
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject()
		local claims
		if entity and entity.claims then
			claims = entity.claims[propertyID]
		end
		if claims then
			if (claims[1] and claims[1].mainsnak.datatype == "commonsMedia") then
				local out = {}
				for k, v in pairs(claims) do
					local filename = v.mainsnak.datavalue.value
					out[#out + 1] = "[[File:" .. filename .. "|" .. imgsize .. "]]"
				end
				return table.concat(out, sep)
			else
				return ""
			end
		else
			return ""
		end
	else
		return input_parm
	end
end

-- This is used to get the TA98 (Terminologia Anatomica first edition 1998) values like 'A01.1.00.005' (property P1323)
-- which are then linked to http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/01.1.00.005%20Entity%20TA98%20EN.htm
-- uses the newer mw.wikibase calls instead of directly using the snaks
-- formatPropertyValues returns a table with the P1323 values concatenated with ", " so we have to split them out into a table in order to construct the return string
p.getTAValue = function(frame)
	local ent = mw.wikibase.getEntityObject()
	local props = ent:formatPropertyValues('P1323')
	local out = {}
	local t = {}
	for k, v in pairs(props) do
		if k == 'value' then
			t = mw.text.split( v, ", ")
			for k2, v2 in pairs(t) do
				out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
			end
		end
	end
	local ret = table.concat(out, "<br> ")
	if #ret == 0 then
		ret = "Invalid TA"
	end
	return ret
end

--[[
This is used to return an image legend from Wikidata
image is property P18
image legend is property P2096

Call as {{#invoke:Wikidata |getImageLegend | <PARAMETER> | lang=<ISO-639code> |id=<QID>}}
Returns PARAMETER, unless it is equal to "FETCH_WIKIDATA", from Item QID (expensive call)
If QID is omitted or blank, the current article is used (not an expensive call)
If lang is omitted, it uses the local wiki language, otherwise it uses the provided ISO-639 language code
ISO-639: https://docs.oracle.com/cd/E13214_01/wli/docs92/xref/xqisocodes.html#wp1252447

Ranks are: 'preferred' > 'normal'
This returns the label from the first image with 'preferred' rank
Or the label from the first image with 'normal' rank if preferred returns nothing
Ranks: https://www.mediawiki.org/wiki/Extension:Wikibase_Client/Lua
]]

p.getImageLegend = function(frame)
	-- look for named parameter id; if it's blank make it nil
	local id = frame.args.id
	if id and (#id == 0) then
		id = nil
	end

	-- look for named parameter lang
	-- it should contain a two-character ISO-639 language code
	-- if it's blank fetch the language of the local wiki
	local lang = frame.args.lang
	if (not lang) or (#lang < 2) then
		lang = mw.language.getContentLanguage().code
	end

	-- first unnamed parameter is the local parameter, if supplied
	local input_parm = mw.text.trim(frame.args[1] or "")
	if input_parm == "FETCH_WIKIDATA" then
		local ent = mw.wikibase.getEntityObject(id)
		local imgs
		if ent and ent.claims then
			imgs = ent.claims.P18
		end
		local imglbl
		if imgs then
			-- look for an image with 'preferred' rank
			for k1, v1 in pairs(imgs) do
				if v1.rank == "preferred" and v1.qualifiers and v1.qualifiers.P2096 then
					local imglbls = v1.qualifiers.P2096
					for k2, v2 in pairs(imglbls) do
						if v2.datavalue.value.language == lang then
							imglbl = v2.datavalue.value.text
							break
						end
					end
				end
			end
			-- if we don't find one, look for an image with 'normal' rank
			if (not imglbl) then
				for k1, v1 in pairs(imgs) do
					if v1.rank == "normal" and v1.qualifiers and v1.qualifiers.P2096 then
						local imglbls = v1.qualifiers.P2096
						for k2, v2 in pairs(imglbls) do
							if v2.datavalue.value.language == lang then
								imglbl = v2.datavalue.value.text
								break
							end
						end
					end
				end
			end
		end
		return imglbl
	else
		return input_parm
	end
end

-- This is used to get the QIDs of all of the values of a property, as a comma separated list if multiple values exist
-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |FETCH_WIKIDATA}}
-- Usage: {{#invoke:Wikidata |getPropertyIDs |<PropertyID> |<InputParameter> |qid=<QID>}}

p.getPropertyIDs = function(frame)
	local propertyID = mw.text.trim(frame.args[1] or "")
	local input_parm = mw.text.trim(frame.args[2] or "")
	-- can take a named parameter |qid which is the Wikidata ID for the article. This will not normally be used.
	local qid = frame.args.qid
	if qid and (#qid == 0) then qid = nil end
	if input_parm == "FETCH_WIKIDATA" then
		local entity = mw.wikibase.getEntityObject(qid)
		local propclaims
		if entity and entity.claims then
			propclaims = entity.claims[propertyID]
		end
		if propclaims then
			-- if wiki-linked value collect the QID in a table
			if (propclaims[1] and propclaims[1].mainsnak.snaktype == "value" and propclaims[1].mainsnak.datavalue.type == "wikibase-entityid") then
				local out = {}
				for k, v in pairs(propclaims) do
					out[#out + 1] = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
				end
				return table.concat(out, ", ")
			else
				-- not a wikibase-entityid, so return empty
				return ""
			end
		else
			-- no claim, so return empty
			return ""
		end
	else
		return input_parm
	end
end

-- returns the page id (Q...) of the current page or nothing of the page is not connected to Wikidata
function p.pageId(frame)
	return mw.wikibase.getEntityIdForCurrentPage()
end

function p.claim(frame)
	local property = frame.args[1] or ""
	local id = frame.args["id"]	-- "id" must be nil, as access to other Wikidata objects is disabled in Mediawiki configuration
	local qualifierId = frame.args["qualifier"]
	local parameter = frame.args["parameter"]
	local list = frame.args["list"]
	local references = frame.args["references"]
	local showerrors = frame.args["showerrors"]
	local default = frame.args["default"]
	if default then showerrors = nil end

	-- get wikidata entity
	local entity = mw.wikibase.getEntityObject(id)
	if not entity then
		if showerrors then return printError("entity-not-found") else return default end
	end
	-- fetch the first claim of satisfying the given property
	local claims = findClaims(entity, property)
	if not claims or not claims[1] then
		if showerrors then return printError("property-not-found") else return default end
	end

	-- get initial sort indices
	local sortindices = {}
	for idx in pairs(claims) do
		sortindices[#sortindices + 1] = idx
	end
	-- sort by claim rank
	local comparator = function(a, b)
		local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
		local ranka = rankmap[claims[a].rank or "normal"] .. string.format("%08d", a)
		local rankb = rankmap[claims[b].rank or "normal"] .. string.format("%08d", b)
		return ranka < rankb
	end
	table.sort(sortindices, comparator)

	local result
	local error
	if list then
		local value
		-- iterate over all elements and return their value (if existing)
		result = {}
		for idx in pairs(claims) do
			local claim = claims[sortindices[idx]]
			value, error = getValueOfClaim(claim, qualifierId, parameter)
			if not value and showerrors then value = error end
			if value and references then value = value .. getReferences(frame, claim) end
			result[#result + 1] = value
		end
		result = table.concat(result, list)
	else
		-- return first element
		local claim = claims[sortindices[1]]
		result, error = getValueOfClaim(claim, qualifierId, parameter)
		if result and references then result = result .. getReferences(frame, claim) end
	end

	if result then return result else
		if showerrors then return error else return default end
	end
end

-- look into entity object
function p.ViewSomething(frame)
	local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
	local id = f.args.id
	if id and (#id == 0) then
		id = nil
	end
	local data = mw.wikibase.getEntityObject(id)
	if not data then
		return nil
	end

	local i = 1
	while true do
		local index = f.args[i]
		if not index then
			if type(data) == "table" then
				return mw.text.jsonEncode(data, mw.text.JSON_PRESERVE_KEYS + mw.text.JSON_PRETTY)
			else
				return tostring(data)
			end
		end

		data = data[index] or data[tonumber(index)]
		if not data then
			return
		end

		i = i + 1
	end
end

-- getting sitelink of a given wiki
function p.getSiteLink(frame)
	local f = frame.args[1]
	local entity = mw.wikibase.getEntity()
	if not entity then
		return
	end
	local link = entity:getSitelink( f )
	if not link then
		return
	end
	return link
end

function p.Dump(frame)
	local f = (frame.args[1] or frame.args.id) and frame or frame:getParent()
	local data = mw.wikibase.getEntityObject(f.args.id)
	if not data then
		return i18n.warnDump
	end

	local i = 1
	while true do
		local index = f.args[i]
		if not index then
			return "<pre>"..mw.dumpObject(data).."</pre>".. i18n.warnDump
		end

		data = data[index] or data[tonumber(index)]
		if not data then
			return i18n.warnDump
		end

		i = i + 1
	end
end

return p
Источник — «https://wiki.pc-supp.ru/index.php?title=Модуль:Wikidata&oldid=1090»