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

Материал из BelGenWiki
Перейти к навигации Перейти к поиску
(добавлена возможность отключения подгрузки Викиданных)
 
(Новая страница: «-- vim: set noexpandtab ft=lua ts=4 sw=4: require('strict') 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...»)
Строка 1: Строка 1:
-- settings, may differ from project to project
-- vim: set noexpandtab ft=lua ts=4 sw=4:
local fileDefaultSize = '267x400px';
require('strict')
local outputReferences = true;


-- Ссылки на используемые модули, которые потребуются в 99% случаев загрузки страниц (чтобы иметь на виду при переименовании)
local p = {}
local moduleSources = require( 'Module:Sources' )
local debug = false
local WDS = require( 'Module:WikidataSelectors' );


-- Константы
local contentLanguageCode = mw.getContentLanguage():getCode();


local p = {};
------------------------------------------------------------------------------
local config = nil;
-- module local variables and functions


local formatDatavalue, formatEntityId, formatRefs, formatSnak, formatStatement,
local wiki =
formatStatementDefault, formatProperty, getSourcingCircumstances,
{
getPropertyDatatype, getPropertyParams, throwError, toBoolean;
langcode = mw.language.getContentLanguage().code
}


local function copyTo( obj, target, skipEmpty )
-- internationalisation
for k, v in pairs( obj ) do
local i18n =
if skipEmpty ~= true or ( v ~= nil and v ~= '' ) then
{
target[k] = v;
["errors"] =
end
{
["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"
}
}
 
if wiki.langcode ~= "en" then
--require("Module:i18n").loadI18n("Module:Wikidata/i18n", i18n)
-- got idea from [[:w:Module:Wd]]
local module_title; if ... == nil then
module_title = mw.getCurrentFrame():getTitle()
else
module_title = ...
end
end
return target;
require('Module:i18n').loadI18n(module_title..'/i18n', i18n)
end
end


local function min( prev, next )
-- this function needs to be internationalised along with the above:
if ( prev == nil ) then return next;
-- takes cardinal numer as a numeric and returns the ordinal as a string
elseif ( prev > next ) then return next;
-- we need three exceptions in English for 1st, 2nd, 3rd, 21st, .. 31st, etc.
else return prev; end
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
end


local function max( prev, next )
local function printError(code)
if ( prev == nil ) then return next;
return '<span class="error">' .. (i18n.errors[code] or code) .. '</span>'
elseif ( prev < next ) then return next;
else return prev; end
end
end
 
local function parseDateFormat(f, timestamp, addon, prefix_addon, addon_sep)  
local function getConfig( section, code )
local year_suffix
if config == nil then
local tstr = ""
config = require( 'Module:Wikidata/config' );
local lang_obj = mw.language.new(wiki.langcode)
end;
local f_parts = mw.text.split(f, 'Y', true)
if not config then
for idx, f_part in pairs(f_parts) do
config = {};
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
end
 
if addon ~= "" and prefix_addon then
if not section then
return addon .. addon_sep .. tstr
return config;
elseif addon ~= "" then
return tstr .. addon_sep .. addon
else
return tstr
end
end
if not code then
return config[ section ] or {};
end
if not config[ section ] then
return nil;
end
return config[ section ][ code ];
end
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 = ""


local function getCategoryByCode( code, sortkey )
-- check for negative date
local value = getConfig( 'categories', code );
if string.sub(timestamp, 1, 1) == '-' then
if not value or value == '' then
timestamp = '+' .. string.sub(timestamp, 2)
return '';
addon = date_addon
end
end
local _date_format = i18n["datetime"]["format"][date_format]
if sortkey ~= nil then
if _date_format ~= nil then
return '[[Category:' .. value .. '|' .. sortkey .. ']]'; -- экранировать?
return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
else
else
return '[[Category:' .. value .. ']]';
return printError("unknown-datetime-format")
end
end
end
end


local function splitISO8601(str)
-- This local function combines the year/month/day/BC/BCE handling of parseDateValue{}
if 'table' == type(str) then
-- with the millennium/century/decade handling of formatDate()
if str.args and str.args[1] then
local function parseDateFull(timestamp, precision, date_format, date_addon)
str = '' .. str.args[1]
local prefix_addon = i18n["datetime"]["prefix-addon"]
else
local addon_sep = i18n["datetime"]["addon-sep"]
return 'unknown argument type: ' .. type( str ) .. ': ' .. table.tostring( str )
local addon = ""
end
 
-- check for negative date
if string.sub(timestamp, 1, 1) == '-' then
timestamp = '+' .. string.sub(timestamp, 2)
addon = date_addon
end
end
local Y, M, D = (function(str)
local pattern = "(%-?%d+)%-(%d+)%-(%d+)T"
local Y, M, D = mw.ustring.match( str, pattern )
return tonumber(Y), tonumber(M), tonumber(D)
end) (str);
local h, m, s = (function(str)
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


local function parseTimeBoundaries( time, precision )
-- get the next four characters after the + (should be the year now in all cases)
local s = splitISO8601( time );
-- ok, so this is dirty, but let's get it working first
if (not s) then return nil; end
local intyear = tonumber(string.sub(timestamp, 2, 5))
 
if intyear == 0 and precision <= 9 then
if ( precision >= 0 and precision <= 8 ) then
return ""
local powers = { 1000000000 , 100000000, 10000000, 1000000, 100000, 10000, 1000, 100, 10 }
local power = powers[ precision + 1 ];
local left = s.year - ( s.year % power );
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
-- precision is 10000 years or more
return { tonumber(os.time( {year=s.year, month=1, day=1, hour=0, min=0, sec=0} )) * 1000,
if precision <= 5 then
tonumber(os.time( {year=s.year, month=12, day=31, hour=23, min=59, sec=58} )) * 1000 + 1999 };
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
end


if ( precision == 10 ) then
-- precision is decades (8), centuries (7) and millennia (6)
local lastDays = {31, 28.25, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
local era, card
local lastDay = lastDays[s.month];
if precision == 6 then
return { tonumber(os.time( {year=s.year, month=s.month, day=1, hour=0, min=0, sec=0} )) * 1000,
card = math.floor((intyear - 1) / 1000) + 1
tonumber(os.time( {year=s.year, month=s.month, day=lastDay, hour=23, min=59, sec=58} )) * 1000 + 1999 };
era = mw.ustring.gsub(i18n.datetime[6], "$1", makeOrdinal(card))
end
end
 
if precision == 7 then
if ( precision == 11 ) then
card = math.floor((intyear - 1) / 100) + 1
return { tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=0, 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=23, min=59, sec=58} )) * 1000 + 1999 };
end
end
 
if precision == 8 then
if ( precision == 12 ) 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=0, sec=0} )) * 1000,
tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=59, sec=58} )) * 1000 + 1999 };
end
end
 
if era then
if ( precision == 13 ) then
if addon ~= "" then
return { tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=s.min, sec=0} )) * 1000,
era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=s.min, sec=58} )) * 1000 + 1999 };
else
era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era)
end
return era
end
end


if ( precision == 14 ) then
local _date_format = i18n["datetime"]["format"][date_format]
local t = tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=s.min, sec=0} ) );
if _date_format ~= nil then
return { t * 1000, t * 1000 + 999 };
-- check for precision is year and override supplied date_format
if precision == 9 then
_date_format = i18n["datetime"][9]
end
return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
else
return printError("unknown-datetime-format")
end
end
error('Unsupported precision: ' .. precision );
end
end


--[[
-- the "qualifiers" and "snaks" field have a respective "qualifiers-order" and "snaks-order" field
Функция для формирования категории на основе wikidata/config
-- 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 extractCategory( options, value )
local function orderedpairs(array, order)
if ( not options.category or options.nocat ) then
if not order then return pairs(array) end
return '';
end
local propertyId = string.gsub( options.category, '([^Pp0-9].*)$', '');
local wbStatus, claims = pcall( mw.wikibase.getAllStatements, value.id, propertyId );
if ( wbStatus ~= true or not claims ) then return ''; end
allClaims = {}
allClaims[ propertyId ] = claims
claims = WDS.filter( allClaims, options.category )
if not claims then return ''; end
for _, claim in pairs( claims ) do
if ( claim
and claim.mainsnak
and claim.mainsnak.datavalue
and claim.mainsnak.datavalue.type == 'wikibase-entityid' ) then
local catEntityId = claim.mainsnak.datavalue.value.id;
local wbStatus, catSiteLink = pcall( mw.wikibase.getSitelink, catEntityId );


if ( wbStatus == true and catSiteLink ) then
-- return iterator function
return '[[' .. catSiteLink .. ']]';
local i = 0
end
return function()
i = i + 1
if order[i] then
return order[i], array[order[i]]
end
end
end
end
end


return '';
-- 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
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
Возвращает: булевое значение true или false, если получается распознать значение, или defaultValue во всех остальных  случаях
if precision <= 5 then
]]
local factor = 10 ^ ((5 - precision) + 4)
local function toBoolean( valueToParse, defaultValue )
local y2 = math.ceil(math.abs(year) / factor)
if ( valueToParse ~= nil ) then
local relative = mw.ustring.gsub(i18n.datetime[precision], "$1", tostring(y2))
if valueToParse == false or valueToParse == '' or valueToParse == 'false' or valueToParse == '0' then
if year < 0 then
return false
relative = mw.ustring.gsub(i18n.datetime.beforenow, "$1", relative)
else
relative = mw.ustring.gsub(i18n.datetime.afternow, "$1", relative)
end
end
return true
return relative
end
end
return defaultValue;
end


-- Обрачивает отформатированное значение в инлайновый или блочный тег.
-- precision is decades, centuries and millennia
-- @param value String value
local era
-- @param attributes Table of attributes
if precision == 6 then era = mw.ustring.gsub(i18n.datetime[6], "$1", tostring(math.floor((math.abs(year) - 1) / 1000) + 1)) end
-- @return string HTML tag with value
if precision == 7 then era = mw.ustring.gsub(i18n.datetime[7], "$1", tostring(math.floor((math.abs(year) - 1) / 100) + 1)) end
local function wrapValue( value, attributes )
if precision == 8 then era = mw.ustring.gsub(i18n.datetime[8], "$1", tostring(math.floor(math.abs(year) / 10) * 10)) end
local tagName = 'span';
if era then
local spacer = '';
if year < 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.bc, '"', ""), "$1", era)
if (
elseif year > 0 then era = mw.ustring.gsub(mw.ustring.gsub(i18n.datetime.ad, '"', ""), "$1", era) end
string.match( value, '\n' )
return era
or string.match( value, '<t[dhr][ >]' )
or string.match( value, '<div[ >]' )
or string.find( value, 'UNIQ%-%-imagemap' )
) then
tagName = 'div';
spacer = '\n'
end
end
local attrString = ''
for key, value in pairs( attributes or {} ) do
local _key = mw.text.trim( key )
local _value = mw.text.encode( mw.text.trim( value ) )
attrString = attrString .. _key .. '="' .. _value .. '" '
end
return '<' .. tagName .. ' ' .. attrString .. '>' .. spacer .. value .. '</' .. tagName .. '>';
end


-- Wraps formatted snak value into HTML tag with attributes.
-- precision is year
-- @param value String value of snak
if precision == 9 then
-- @param hash Snak hash
return year
-- @param attributes Table of extra attributes
-- @return string HTML tag with value
local function wrapSnak( value, hash, attributes )
local newAttributes = mw.clone( attributes or {} )
newAttributes['class'] = ( newAttributes['class'] or '' ) .. ' wikidata-snak'
if hash then
newAttributes['data-wikidata-hash'] = hash
else
newAttributes['class'] = newAttributes['class'] .. ' wikidata-main-snak'
end
end


return wrapValue( value, newAttributes )
-- 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)
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
]]--


-- Wraps formatted statement value into HTML tag with attributes.
local formatstr = i18n.datetime[precision]
-- @param value String value of statement
if year == 0 then formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], "")
-- @param propertyId String PID of property
elseif year < 0 then
-- @param claimId String ID of claim or nil for local value
-- Mediawiki formatDate doesn't support negative years
-- @param attributes Table of extra attributes
date = mw.ustring.sub(date, 2)
-- @return string HTML tag with value
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.bc, "$1", i18n.datetime[9]))
local function wrapStatement( value, propertyId, claimId, attributes )
elseif year > 0 and i18n.datetime.ad ~= "$1" then
local newAttributes = mw.clone( attributes or {} )
formatstr = mw.ustring.gsub(formatstr, i18n.datetime[9], mw.ustring.gsub(i18n.datetime.ad, "$1", i18n.datetime[9]))
newAttributes['class'] = newAttributes['class'] or ''
end
newAttributes['data-wikidata-property-id'] = string.upper( propertyId )
return mw.language.new(wiki.langcode):formatDate(formatstr, date)
 
if claimId then
newAttributes['class'] = newAttributes['class'] .. ' wikidata-claim'
newAttributes['data-wikidata-claim-id'] = claimId
else
newAttributes['class'] = newAttributes['class'] .. ' no-wikidata'
end
end
return wrapValue( value, newAttributes )
end
end


-- Wraps formatted qualifier's statement value into HTML tag with attributes.
local function printDatavalueEntity(data, parameter)
-- @param value String value of qualifier's statement
-- data fields: entity-type [string], numeric-id [int, Wikidata id]
-- @param propertyId String PID of qualifier
local id
-- @param attributes Table of extra attributes
-- @return string HTML tag with value
local function wrapQualifier( value, qualifierId, attributes )
local newAttributes = mw.clone( attributes or {} )
newAttributes['data-wikidata-qualifier-id'] = string.upper( qualifierId )
return wrapValue( value, newAttributes )
end


--[[
if data["entity-type"] == "item" then id = "Q" .. data["numeric-id"]
Функция для получения сущности (еntity) для текущей страницы
elseif data["entity-type"] == "property" then id = "P" .. data["numeric-id"]
Подробнее о сущностях см. d:Wikidata:Glossary/ru
else return printError("unknown-entity-type")
end


Принимает: строковый индентификатор (типа P18, Q42)
if parameter then
Возвращает: объект таблицу, элементы которой индексируются с нуля
if parameter == "link" then
]]
local linkTarget = mw.wikibase.getSitelink(id)
local function getEntityFromId( id )
local linkName = mw.wikibase.getLabel(id)
local entity;
if linkTarget then
local wbStatus;
-- if there is a local Wikipedia article link to it using the label or the article title
 
return "[[" .. linkTarget .. "|" .. (linkName or linkTarget) .. "]]"
if id then
else
wbStatus, entity = pcall( mw.wikibase.getEntityObject, id )
-- 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
else
wbStatus, entity = pcall( mw.wikibase.getEntityObject );
return mw.wikibase.getLabel(id) or id
end
end
return entity;
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
Принимает: ключ элемента в таблице config.errors (например entity-not-found)
--  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
local function throwError( key )
elseif parameter == "time" then data.time = normalizeDate(data.time) end
error( getConfig( 'errors', key ) );
return data[parameter]
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
else
throwError( 'unknown-entity-type' )
return formatDate(data.time, data.precision, data.timezone)
end
end
return prefix .. value['numeric-id']
end
end


-- проверка на наличие специилизированной функции в опциях
local function printDatavalueMonolingualText(data, parameter)
local function getUserFunction( options, prefix, defaultFunction )
-- data fields: language [string], text [string]
-- проверка на указание специализированных обработчиков в параметрах,
if parameter then
-- переданных при вызове
return data[parameter]
if options[ prefix .. '-module' ] or options[ prefix .. '-function' ] then
else
-- проверка на пустые строки в параметрах или их отсутствие
local result = mw.ustring.gsub(mw.ustring.gsub(i18n.monolingualtext, "%%language", data["language"]), "%%text", data["text"])
if not options[ prefix .. '-module' ] or not options[ prefix .. '-function' ] then
return result
throwError( 'unknown-' .. prefix .. '-module' );
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
end
return defaultFunction;
end
end


-- Выбирает свойства по property id, дополнительно фильтруя их по рангу
local function findClaims(entity, property)
local function selectClaims( context, options, propertySelector )
if not property or not entity or not entity.claims then return end
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 is missing' ); end;
if ( not propertySelector ) then error( 'propertySelector not specified' ); end;


result = WDS.filter( options.entity.claims, propertySelector );
if mw.ustring.match(property, "^P%d+$") then
-- if the property is given by an id (P..) access the claim list by this id
return entity.claims[property]
else
property = mw.wikibase.resolvePropertyId(property)
if not property then return end


if ( not result or #result == 0 ) then
return entity.claims[property]
return nil;
end
end
if options.limit and options.limit ~= '' and options.limit ~= '-'  then
local limit = tonumber( options.limit, 10 );
while #result > limit do
table.remove( result );
end
end
return result;
end
end


--[[
local function getSnakValue(snak, parameter)
Функция для получения значения свойства элемента в заданный момент времени.
if snak.snaktype == "value" then
 
-- call the respective snak parser
Принимает: контекст, элемент, временные границы, таблица ID свойства
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)
local function getPropertyInBoundaries( context, entityId, boundaries, propertyIds, selectors )
elseif snak.datavalue.type == "time" then return printDatavalueTime(snak.datavalue.value, parameter)
if (type(entityId) ~= 'string') then error('type of entityId argument expected string, but was ' .. type(entityId)); end
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)
local results = {};
 
if not propertyIds or #propertyIds == 0 then
return results;
end
 
for _, propertyId in ipairs( propertyIds ) do
local selector;
if selectors ~= nil then
selector = selectors[_] or selectors[propertyId] or propertyId;
else
selector = propertyId;
end
 
local fakeAllClaims = {};
fakeAllClaims[propertyId] = mw.wikibase.getAllStatements( entityId, propertyId );
local filteredClaims = WDS.filter( fakeAllClaims, selector .. '[rank:preferred, rank:normal]' );
if filteredClaims then
for _, claim in pairs( filteredClaims ) do
if not boundaries 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 mw.wikibase.renderSnak(snak)
return results;
end
end


--[[
local function getQualifierSnak(claim, qualifierId)
TODO
-- 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,
function p.getTimeBoundariesFromQualifier( frame, context, statement, qualifierId )
-- as well as a list of attribute snaks and a list of references snaks
-- only support exact date so far, but need improvment
if qualifierId then
local left = nil;
-- search the attribute snak with the given qualifier as key
local right = nil;
if claim.qualifiers then
if ( statement.qualifiers and statement.qualifiers[qualifierId] ) then
local qualifier = claim.qualifiers[qualifierId]
for _, qualifier in pairs( statement.qualifiers[qualifierId] ) do
if qualifier then return qualifier[1] end
local boundaries = context.parseTimeBoundariesFromSnak( qualifier );
if ( not boundaries ) then return nil; end
left = min( left, boundaries[1] );
right = max( right, boundaries[2] );
end
end
return nil, printError("qualifier-not-found")
else
-- otherwise return the main snak
return claim.mainsnak
end
end
if ( not left or not right ) then
return nil;
end
return { left, right };
end
end


--[[
local function getValueOfClaim(claim, qualifierId, parameter)
TODO
local error
]]
local snak
function p.getTimeBoundariesFromQualifiers( frame, context, statement, qualifierIds )
snak, error = getQualifierSnak(claim, qualifierId)
if not qualifierIds then
if snak then
qualifierIds = { 'P582', 'P580', 'P585' };
return getSnakValue(snak, parameter)
else
return nil, error
end
end
for _, qualifierId in ipairs( qualifierIds ) do
local result = p.getTimeBoundariesFromQualifier( frame, context, statement, qualifierId );
if result then
return result;
end
end
return nil;
end
end


local CONTENT_LANGUAGE_CODE = mw.language.getContentLanguage():getCode();
local function getReferences(frame, claim)
local getLabelWithLang_DEFAULT_PROPERTIES = { "P1813", "P1448", "P1705" };
local result = ""
local getLabelWithLang_DEFAULT_SELECTORS = {
-- traverse through all references
'P1813[language:' .. CONTENT_LANGUAGE_CODE .. '][!P3831,P3831:Q105690470]',
for ref in pairs(claim.references or {}) do
'P1448[language:' .. CONTENT_LANGUAGE_CODE .. '][!P3831,P3831:Q105690470]',
local refparts
'P1705[language:' .. CONTENT_LANGUAGE_CODE .. '][!P3831,P3831:Q105690470]'
-- 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.getLabel(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])
local function getLabelWithLang( context, options, entityId, boundaries, propertyIds, selectors )
if (type(entityId) ~= 'string') then error('type of entityId argument expected string, but was ' .. type(entityId)); end
if not entityId then
return nil;
end
 
local langCode = CONTENT_LANGUAGE_CODE;
 
-- name from label
local label = nil;
if ( options.text and options.text ~= '' ) then
label = options.text;
else
if not propertyIds then
propertyIds = getLabelWithLang_DEFAULT_PROPERTIES;
selectors = getLabelWithLang_DEFAULT_SELECTORS;
end
 
-- name from properties
local results = getPropertyInBoundaries( context, entityId, boundaries, propertyIds, selectors );
 
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;
langCode = result.datavalue.value.language;
break;
elseif result.datavalue.type == 'string' then
label = result.datavalue.value;
break;
end
end
end
if (not label) then
label, langCode = mw.wikibase.getLabelWithLang( entityId );
if not langCode then
return nil;
end
end
end
end
if refparts then result = result .. frame:extensionTag("ref", refparts) end
end
end
 
return result
return label, langCode;
end
end


local function formatPropertyDefault( context, options )
local function parseInput(frame)
if ( not context ) then error( 'context not specified' ); end;
local qid = frame.args.qid
if ( not options ) then error( 'options not specified' ); end;
if qid and (#qid == 0) then qid = nil end
if ( not options.entity ) then error( 'options.entity missing' ); end;
local propertyID = mw.text.trim(frame.args[1] or "")
 
local input_parm = mw.text.trim(frame.args[2] or "")
local claims;
if input_parm ~= "FETCH_WIKIDATA" then
if options.property then -- TODO: Почему тут может не быть property?
return false, input_parm, nil, nil
if options.rank then -- передать настройки ранга из конфига
claims = context.selectClaims( options, options.property .. options.rank );
else
claims = context.selectClaims( options, options.property );
end
end
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 = context.wrapStatement( formattedStatement, options.property, claim.id )
table.insert( formattedClaims, formattedStatement )
end
end
end
 
local entity = mw.wikibase.getEntity(qid)
-- создание текстовой строки со списком оформленых заявлений из таблицы
local claims
local out = mw.text.listToText( formattedClaims, options.separator, options.conjunction )
if entity and entity.claims then
if out ~= '' then
claims = entity.claims[propertyID]
if options.before then
if not claims then
out = options.before .. out
return false, "", nil, nil
end
if options.after then
out = out .. options.after
end
end
else
return false, "", nil, nil
end
end
 
return true, entity, claims, propertyID
return out
end
local function isType(claims, type)
return claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == type
end
end
 
local function getValue(entity, claims, propertyID, delim, labelHook)
-- create context
if labelHook == nil then
local function initContext( options )
labelHook = function (qnumber)
local context = {
entity = options.entity,
extractCategory = extractCategory,
formatSnak = formatSnak,
formatPropertyDefault = formatPropertyDefault,
formatStatementDefault = formatStatementDefault,
getPropertyInBoundaries = getPropertyInBoundaries,
getTimeBoundariesFromQualifier = p.getTimeBoundariesFromQualifier,
getTimeBoundariesFromQualifiers = p.getTimeBoundariesFromQualifiers,
wrapSnak = wrapSnak,
wrapStatement = wrapStatement,
wrapQualifier = wrapQualifier,
}
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;
return nil;
end
end
context.parseTimeBoundariesFromSnak = function( snak )
end
if ( snak and snak.datavalue and snak.datavalue.value and snak.datavalue.value.time and snak.datavalue.value.precision ) then
if isType(claims, "wikibase-entityid") then
return parseTimeBoundaries( snak.datavalue.value.time, snak.datavalue.value.precision );
local out = {}
for k, v in pairs(claims) do
local qnumber = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
local sitelink = mw.wikibase.getSitelink(qnumber)
local label = labelHook(qnumber) or mw.wikibase.getLabel(qnumber) or qnumber
if sitelink then
out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
else
out[#out + 1] = "[[:d:" .. qnumber .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
end
end
return nil;
end
end
context.getSourcingCircumstances = function( statement ) return getSourcingCircumstances( statement ) end;
return table.concat(out, delim)
context.selectClaims = function( options, propertyId ) return selectClaims( context, options, propertyId ) end;
else
 
-- just return best values
return context
return entity:formatPropertyValues(propertyID).value
end
end
end


--[[
------------------------------------------------------------------------------
Функция для оформления утверждений (statement)
-- module global functions
Подробнее о утверждениях см. d:Wikidata:Glossary/ru


Принимает: таблицу параметров
if debug then
Возвращает: строку оформленного текста, предназначенного для отображения в статье
function p.inspectI18n(frame)
]]
local val = i18n
local function formatProperty( options )
for _, key in pairs(frame.args) do
-- Получение сущности по идентификатору
key = mw.text.trim(key)
local entity = getEntityFromId( options.entityId )
val = val[key]
if not entity then
end
return -- throwError( 'entity-not-found' )
return val
end
-- проверка на присутсвие у сущности заявлений (claim)
-- подробнее о заявлениях см. d:Викиданные:Глоссарий
if (entity.claims == nil) then
return '' --TODO error?
end
end
end


-- improve options
function p.descriptionIn(frame)
options.frame = g_frame;
local langcode = frame.args[1]
options.entity = entity;
local id = frame.args[2]
options.extends = function( self, newOptions )
-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
return copyTo( newOptions, copyTo( self, {} ) )
return mw.wikibase.getEntity(id):getDescription(langcode or wiki.langcode)
end
end


if ( options.i18n ) then
function p.labelIn(frame)
options.i18n = copyTo( options.i18n, copyTo( getConfig( 'i18n' ), {} ) );
local langcode = frame.args[1]
else
local id = frame.args[2]
options.i18n = getConfig( 'i18n' );
-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
end
return mw.wikibase.getEntity(id):getLabel(langcode or wiki.langcode)
local context = initContext( options );
 
return context.formatProperty( options );
end
end


--[[
-- This is used to get a value, or a comma separated list of them if multiple values exist
Функция для оформления одного утверждения (statement)
p.getValue = function(frame)
 
local delimdefault = ", " -- **internationalise later**
Принимает: объект-таблицу утверждение и таблицу параметров
local delim = frame.args.delimiter or ""
Возвращает: строку оформленного текста с заявлением (claim)
delim = string.gsub(delim, '"', '')
]]
if #delim == 0 then
function formatStatement( context, options, statement )
delim = delimdefault
if ( not statement ) then
error( 'statement is not specified or nil' );
end
end
if not statement.type or statement.type ~= 'statement' then
local go, errorOrentity, claims, propertyID = parseInput(frame)
throwError( 'unknown-claim-type' )
if not go then
return errorOrentity
end
end
 
return getValue(errorOrentity, claims, propertyID, delim)
local functionToCall = getUserFunction( options, 'claim', context.formatStatementDefault );
return functionToCall( context, options, statement );
end
end


function getSourcingCircumstances( statement )
-- Same as above, but uses the short name property for label if available.
if (not statement) then error('statement is not specified') end;
p.getValueShortName = function(frame)
 
local go, errorOrentity, claims, propertyID = parseInput(frame)
local circumstances = {};
if not go then
if ( statement.qualifiers
return errorOrentity
and statement.qualifiers.P1480 ) then
for i, qualifier in pairs( statement.qualifiers.P1480 ) do
if ( qualifier
and qualifier.datavalue
and qualifier.datavalue.type == 'wikibase-entityid'
and qualifier.datavalue.value
and qualifier.datavalue.value['entity-type'] == 'item' ) then
table.insert(circumstances, qualifier.datavalue.value.id)
end
end
end
end
return circumstances;
local entity = errorOrentity
end
-- if wiki-linked value output as link if possible
 
local function labelHook (qnumber)
--[[
local label
Функция для оформления одного утверждения (statement)
local claimEntity = mw.wikibase.getEntity(qnumber)
 
if claimEntity ~= nil then
Принимает: объект-таблицу утверждение, таблицу параметров,
if claimEntity.claims.P1813 then
объект-функцию оформления внутренних структур утверждения (snak) и
for k2, v2 in pairs(claimEntity.claims.P1813) do
объект-функцию оформления ссылки на источники (reference)
if v2.mainsnak.datavalue.value.language == "en" then
Возвращает: строку оформленного текста с заявлением (claim)
label = v2.mainsnak.datavalue.value.text
]]
end
function formatStatementDefault( context, options, statement )
end
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 );
 
options.qualifiers = statement.qualifiers;
 
local result = context.formatSnak( options, statement.mainsnak, circumstances );
    if ( options.qualifier and statement.qualifiers and statement.qualifiers[ options.qualifier ] ) then
    qualConfig = getPropertyParams( options.qualifier, nil, {})
    if options.i18n then qualConfig.i18n = options.i18n end
    local qualifierValues = {};
for _, qualifierSnak in pairs( statement.qualifiers[ options.qualifier ] ) do
local snakValue = context.formatSnak( qualConfig, qualifierSnak );
if snakValue and snakValue ~= '' then
table.insert( qualifierValues, snakValue );
end
end
end
end
if ( result and result ~= '' and #qualifierValues ) then
if label == nil or label == "" then return nil end
if qualConfig.invisible then
return label
        result = result .. table.concat( qualifierValues, ', ' );
else
        result = result .. ' (' .. table.concat( qualifierValues, ', ' ) .. ')';
        end
        end
    end
 
if ( result and result ~= '' and options.references ) then
result = result .. context.formatRefs( options, statement );
end
end
 
return getValue(errorOrentity, claims, propertyID, ", ", labelHook);
return result;
end
end


--[[
-- This is used to get a value, or a comma separated list of them if multiple values exist
Функция для оформления части утверждения (snak)
-- from an arbitrary entry by using its QID.
Подробнее о snak см. d:Викиданные:Глоссарий
-- 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)
Принимает: таблицу snak объекта (main snak или же snak от квалификатора) и таблицу опций
-- Please use sparingly - this is an *expensive call*.
Возвращает: строку оформленного викитекста
p.getValueFromID = function(frame)
]]
local itemID = mw.text.trim(frame.args[1] or "")
function formatSnak( context, options, snak, circumstances )
local propertyID = mw.text.trim(frame.args[2] or "")
circumstances = circumstances or {};
local input_parm = mw.text.trim(frame.args[3] or "")
 
if input_parm == "FETCH_WIKIDATA" then
if snak.snaktype == 'somevalue' then
local entity = mw.wikibase.getEntity(itemID)
if ( options['somevalue'] and options['somevalue'] ~= '' ) then
local claims
result = options['somevalue'];
if entity and entity.claims then
else
claims = entity.claims[propertyID]
result = options.i18n['somevalue'];
end
end
elseif snak.snaktype == 'novalue' then
if claims then
if ( options['novalue'] and options['novalue'] ~= '' ) then
return getValue(entity, claims, propertyID, ", ")
result = options['novalue'];
else
else
result = options.i18n['novalue'];
return ""
end
elseif snak.snaktype == 'value' then
result = formatDatavalue( context, options, snak.datavalue, snak.datatype );
for _, item in pairs(circumstances) do
if options.i18n[item] then
result = options.i18n[item] .. result;
end
end
end
else
else
throwError( 'unknown-snak-type' );
return input_parm
end
if ( not result or result == '' ) then
return nil;
end
end
return context.wrapSnak( result, snak.hash )
end
end
 
local function getQualifier(frame, outputHook)  
--[[
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.getEntity()
]]
if entity.claims[propertyID] ~= nil then
local function formatGlobeCoordinate( value, options )
local out = {}
-- проверка на требование в параметрах вызова на возврат сырого значения
for k, v in pairs(entity.claims[propertyID]) do
if options['subvalue'] == 'latitude' then -- широты
for k2, v2 in pairs(v.qualifiers[qualifierID]) do
return value['latitude']
if v2.snaktype == 'value' then
elseif options['subvalue'] == 'longitude' then -- долготы
out[#out + 1] = outputHook(v2);
return value['longitude']
end
elseif options['nocoord'] and options['nocoord'] ~= '' then
-- если передан параметр nocoord, то не выводить координаты
-- обычно это делается при использовании нескольких карточек на странице
return ''
else
-- в противном случае формируются параметры для вызова шаблона {{coord}}
-- нужно дописать в документации шаблона, что он отсюда вызывается, и что
-- любое изменние его парамеров  должно быть согласовано с кодом тут
coord_mod = require( "Module:Coordinates" );
local globe = options.globe or ''
if globe == '' and value['globe'] then
globes = require( 'Module:Wikidata/Globes' )
globe = globes[value['globe']] or ''
end
local display = 'inline'
if options.display and options.display ~= '' then
display = options.display
elseif ( options.property:upper() == 'P625' ) then
display = 'title'
end
local format = options.format or ''
if format == '' then
format = 'dms'
if value['precision'] then
local precision = value['precision'] * 60
if precision >= 60 then
format = 'd'
elseif precision >= 1 then
format = 'dm'
end
end
end
end
return table.concat(out, ", "), true
else
return "", false
end
end
 
else
g_frame.args = {
return input_parm, false
tostring(value['latitude']),
tostring(value['longitude']),
globe = globe,
type = options.type and options.type or '',
scale = options.scale and options.scale or '',
display = display,
format = format,
}
return coord_mod.coord(g_frame)
end
end
end
end
 
p.getQualifierValue = function(frame)
--[[
local function outputValue(value)
Функция для оформления объектов-значений с файлами с Викисклада
local qnumber = "Q" .. value.datavalue.value["numeric-id"]
 
if (mw.wikibase.getSitelink(qnumber)) then
Принимает: объект-значение и таблицу параметров,
return "[[" .. mw.wikibase.getSitelink(qnumber) .. "]]"
Возвращает: строку оформленного текста
]]
local function formatCommonsMedia( value, options )
local image = value;
 
local caption = '';
if options[ 'caption' ] and options[ 'caption' ] ~= '' then
caption = options[ 'caption' ];
end
if caption ~= '' then
caption = wrapQualifier( caption, 'P2096', { class = 'media-caption', style = 'display:block' } );
end
 
if not string.find( value, '[%[%]%{%}]' ) and not string.find( value, 'UNIQ%-%-imagemap' ) then
-- если в value не содержится викикод или imagemap, то викифицируем имя файла
-- ищем слово imagemap в строке, потому что вставляется плейсхолдер: [[PHAB:T28213]]
image = '[[File:' .. value .. '|frameless';
if options[ 'border' ] and options[ 'border' ] ~= '' then
image = image .. '|border';
end
 
local size = options[ 'size' ];
if size and size ~= '' then
-- TODO: check localized pixel names too
if not string.match( size, 'px$' ) then
size = size .. 'px'
end
else
else
size = fileDefaultSize;
return "[[:d:" .. qnumber .. "|" ..qnumber .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
end
end
image = image .. '|' .. size;
end
return (getQualifier(frame, outputValue))
end


if options[ 'alt' ] and options[ 'alt' ] ~= '' then
-- This is used to get a value like 'male' (for property p21) which won't be linked and numbers without the thousand separators
image = image .. '|alt=' .. options[ 'alt' ];
p.getRawValue = function(frame)
end
local go, errorOrentity, claims, propertyID = parseInput(frame)
if not go then
if caption ~= '' then
return errorOrentity
image = image .. '|' .. caption
end
end
local entity = errorOrentity
image = image .. ']]';
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
 
-- if number type: remove thousand separators, bounds and units
if caption ~= '' then
if isType(claims, "quantity") then
image = image .. '<br>' .. caption;
result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")
end
result = mw.ustring.gsub(result, "(%d)±.*", "%1")
else
image = image .. caption .. getCategoryByCode( 'media-contains-markup' );
end
end
 
return result
return image
end
end


--[[
-- This is used to get the unit name for the numeric value returned by getRawValue
Fonction for render math formulas
p.getUnits = function(frame)
 
local go, errorOrentity, claims, propertyID = parseInput(frame)
@param string Value.
if not go then
@param table Parameters.
return errorOrentity
@return string Formatted string.
end
]]
local entity = errorOrentity
local function formatMath( value, options )
local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
return options.frame:extensionTag{ name = 'math', content = value };
if isType(claims, "quantity") then
result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)
end
return result
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 go, errorOrentity, claims = parseInput(frame)
Принимает: объект-значение и таблицу параметров,
if not go then
Возвращает: строку оформленного текста
return errorOrentity
]]
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
 
local entity = errorOrentity
if formatter and formatter ~= '' then
local result
local encodedValue = mw.ustring.gsub( value, '%%', '%%%%' ) -- ломается, если подставить внутрь другого mw.ustring.gsub
if isType(claims, "quantity") then
-- get the url for the unit entry on Wikidata:
local link = mw.ustring.gsub(
result = claims[1].mainsnak.datavalue.value.unit
mw.ustring.gsub( formatter, '$1', encodedValue ), '.',
-- and just reurn the last bit from "Q" to the end (which is the QID):
{ [' '] = '%20', ['+'] = '%2b', ['['] = '%5B', [']'] = '%5D' } )
result = mw.ustring.sub(result, mw.ustring.find(result, "Q"), -1)
 
local title = options.title
if not title or title == '' then
title = '$1'
end
title = mw.ustring.gsub(  
mw.ustring.gsub( title, '$1', encodedValue ), '.',
{ ['['] = '(', [']'] = ')' } )
 
return '[' .. link .. ' ' .. title .. ']'
end
end
 
return result
return value
end
end


--[[
p.getRawQualifierValue = function(frame)
Функция для оформления числовых значений
local function outputHook(value)
 
if value.datavalue.value["numeric-id"] then
Принимает: объект-значение и таблицу параметров,
return mw.wikibase.getLabel("Q" .. value.datavalue.value["numeric-id"])
Возвращает: строку оформленного текста
]]
local function formatQuantity( value, options )
-- диапазон значений
local amount = string.gsub( value['amount'], '^%+', '' );
local lang = mw.language.getContentLanguage();
local langCode = lang:getCode();
 
local function formatNum( number, sigfig )
local multiplier = ''
if options.countByThousands then
local powers = options.i18n['thousandPowers']
local pos = 1
while math.abs(number) >= 1000 and pos < #powers do
number = number / 1000
pos = pos + 1
end
multiplier = powers[pos]
if math.abs(number) >= 100 then
sigfig = sigfig or 0
elseif math.abs(number) >= 10 then
sigfig = sigfig or 1
else
sigfig = sigfig or 2
end
else
else
sigfig = sigfig or 12 -- округление до 12 знаков после запятой, на 13-м возникает ошибка в точности
return value.datavalue.value
end
end
local mult = 10^sigfig;
number = math.floor( number * mult + 0.5 ) / mult;
return string.gsub( lang:formatNum( number ), '^-', '−' ) .. multiplier;
end
end
local ret, gotData = getQualifier(frame, outputHook)
if gotData then
ret = string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
end
return ret
end


local out = formatNum( tonumber( amount ) );
-- This is used to get a date value for date_of_birth (P569), etc. which won't be linked
if value.upperBound then
-- Dates and times are stored in ISO 8601 format (sort of).
local diff = tonumber( value.upperBound ) - tonumber( amount )
-- At present the local formatDate(date, precision, timezone) function doesn't handle timezone
if diff > 0 then -- временная провека, пока у большинства значений не будет убрано ±0
-- So I'll just supply "Z" in the call to formatDate below:
-- Пробуем понять до какого знака округлять
p.getDateValue = function(frame)
local integer, dot, decimals, expstr = value.upperBound:match( '^+?-?(%d*)(%.?)(%d*)(.*)' )
local date_format = mw.text.trim(frame.args[3] or i18n["datetime"]["default-format"])
local prec
local date_addon = mw.text.trim(frame.args[4] or i18n["datetime"]["default-addon"])
if dot == '' then
local go, errorOrentity, claims = parseInput(frame)
prec = -integer:match('0*$'):len()
if not go then
else
return errorOrentity
prec = #decimals
end
bound = formatNum( diff, prec )
if string.match( bound, 'E%-(%d+)' ) then -- если в экспоненциальном формате
digits = tonumber( string.match( bound, 'E%-(%d+)' ) ) - 2
bound = formatNum( diff * 10 ^ digits, prec )
bound = string.sub( bound, 0, 2 ) .. string.rep( '0', digits ) .. string.sub( bound, -string.len( bound ) + 2 )
end
out = out .. ' ± ' .. bound
end
end
end
 
local entity = errorOrentity
if options.unit and options.unit ~= '' then
local out = {}
if options.unit ~= '-' then
for k, v in pairs(claims) do
out = out .. ' ' .. options.unit
if v.mainsnak.datavalue.type == 'time' then
end
local timestamp = v.mainsnak.datavalue.value.time
elseif value.unit and string.match( value.unit, 'http://www.wikidata.org/entity/' ) then
local dateprecision = v.mainsnak.datavalue.value.precision
local unitEntityId = string.gsub( value.unit, 'http://www.wikidata.org/entity/', '' );
-- A year can be stored like this: "+1872-00-00T00:00:00Z",
if unitEntityId ~= 'undefined' then  
-- which is processed here as if it were the day before "+1872-01-01T00:00:00Z",
local wbStatus, unitEntity = pcall( mw.wikibase.getEntity, unitEntityId );
-- and that's the last day of 1871, so the year is wrong.
if wbStatus == true and unitEntity then
-- So fix the month 0, day 0 timestamp to become 1 January instead:
if unitEntity.claims.P2370 and
timestamp = timestamp:gsub("%-00%-00T", "-01-01T")
unitEntity.claims.P2370[1].mainsnak.snaktype == 'value' and
out[#out + 1] = parseDateFull(timestamp, dateprecision, date_format, date_addon)
not value.upperBound and
options.siConversion == true
then
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
prec = #decimals
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
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
local writingSystemElementId = 'Q8209';
local langElementId = 'Q7737';
local label = getLabelWithLang( context, options, unitEntity.id, nil, { "P5061", "P558", "P558" }, {
'P5061[language:' .. langCode .. ']',
'P558[P282:' .. writingSystemElementId .. ', P407:' .. langElementId .. ']',
'P558[!P282][!P407]'
} );
out = out .. ' ' .. label;
end
end
end
end
end
 
return table.concat(out, ", ")
return out;
end
end
 
p.getQualifierDateValue = function(frame)
-- Функция для оформления URL
local date_format = mw.text.trim(frame.args[4] or i18n["datetime"]["default-format"])
local function formatUrlValue( context, options, value )
local date_addon = mw.text.trim(frame.args[5] or i18n["datetime"]["default-addon"])
if not options.length or options.length == '' then
local function outputHook(value)
options.length = 25
local timestamp = value.datavalue.value.time
return parseDateValue(timestamp, date_format, date_addon)
end
end
 
return (getQualifier(frame, outputHook))
local moduleUrl = require( 'Module:URL' )
return moduleUrl.formatUrlSingle( context, options, value )
end
end


local DATATYPE_CACHE = {}
-- 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)
Get property datatype by ID.
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA}}
 
-- e.g. {{#invoke:Wikidata|getImages|P18|FETCH_WIKIDATA|<br>|250px}}
@param string Property ID, e.g. 'P123'.
-- If a property is chosen that is not of type "commonsMedia", it will return empty text.
@return string Property datatype, e.g. 'commonsMedia', 'time' or 'url'.
p.getImages = function(frame)
]]
local sep = mw.text.trim(frame.args[3] or " ")
local function getPropertyDatatype( propertyId )
local imgsize = mw.text.trim(frame.args[4] or "frameless")
if not propertyId or not string.match( propertyId, '^P%d+$' ) then
local go, errorOrentity, claims = parseInput(frame)
return nil;
if not go then
return errorOrentity
end
end
local entity = errorOrentity
local cached = DATATYPE_CACHE[propertyId];
if (claims[1] and claims[1].mainsnak.datatype == "commonsMedia") then
if (cached ~= nil) then return cached; end
local out = {}
 
for k, v in pairs(claims) do
local wbStatus, propertyEntity = pcall( mw.wikibase.getEntity, propertyId );
local filename = v.mainsnak.datavalue.value
if wbStatus ~= true or not propertyEntity then
out[#out + 1] = "[[File:" .. filename .. "|" .. imgsize .. "]]"
return nil;
end
return table.concat(out, sep)
else
return ""
end
end
mw.log("Loaded datatype " .. propertyEntity.datatype .. " of " .. propertyId .. ' from wikidata, consider passing datatype argument to formatProperty call or to Wikidata/config' )
DATATYPE_CACHE[propertyId] = propertyEntity.datatype;
return propertyEntity.datatype;
end
end


local function getDefaultValueFunction( datavalue, datatype )
-- 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
if datavalue.type == 'wikibase-entityid' then
-- uses the newer mw.wikibase calls instead of directly using the snaks
-- Entity ID
-- 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
return function( context, options, value ) return formatEntityId( context, options, getEntityIdFromValue( value ) ) end;
p.getTAValue = function(frame)
elseif datavalue.type == 'string' then
local ent = mw.wikibase.getEntity()
-- String
local props = ent:formatPropertyValues('P1323')
if datatype and datatype == 'commonsMedia' then
local out = {}
-- Media
local t = {}
return function( context, options, value )
for k, v in pairs(props) do
return formatCommonsMedia( value, options )
if k == 'value' then
end;
t = mw.text.split( v, ", ")
elseif datatype and datatype == 'external-id' then
for k2, v2 in pairs(t) do
-- External ID
out[#out + 1] = "[http://www.unifr.ch/ifaa/Public/EntryPage/TA98%20Tree/Entity%20TA98%20EN/" .. string.sub(v2, 2) .. "%20Entity%20TA98%20EN.htm " .. v2 .. "]"
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
end
elseif datatype and datatype == 'url' then
-- URL
return formatUrlValue
end
end
return function( context, options, value ) return value end;
elseif datavalue.type == 'monolingualtext' then
-- моноязычный текст (строка с указанием языка)
return function( context, options, value )
if ( options.monolingualLangTemplate == 'lang' ) then
if ( value.language == contentLanguageCode ) then
return value.text;
end
return options.frame:expandTemplate{ title = 'lang-' .. value.language, args = { value.text } };
elseif ( options.monolingualLangTemplate == 'ref' ) then
return '<span class="lang" lang="' .. value.language .. '">' .. value.text .. '</span>' .. options.frame:expandTemplate{ title = 'ref-' .. value.language };
else
return '<span class="lang" lang="' .. value.language .. '">' .. value.text .. '</span>';
end
end;
elseif datavalue.type == 'globecoordinate' then
-- географические координаты
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
-- во всех стальных случаях возвращаем ошибку
throwError( 'unknown-datavalue-type' )
end
end
local ret = table.concat(out, "<br> ")
if #ret == 0 then
ret = "Invalid TA"
end
return ret
end
end


--[[
--[[
Функция для оформления значений (value)
This is used to return an image legend from Wikidata
Подробнее о значениях  см. d:Wikidata:Glossary/ru
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
]]
]]
function formatDatavalue( context, options, datavalue, datatype )
if ( not context ) then error( 'context not specified' ); end;
if ( not options ) then error( 'options not specified' ); end;
if ( not datavalue ) then error( 'datavalue not specified' ); end;
if ( not datavalue.value ) then error( 'datavalue.value is missng' ); end;


-- проверка на указание специализированных обработчиков в параметрах,
p.getImageLegend = function(frame)
-- переданных при вызове
-- look for named parameter id; if it's blank make it nil
context.formatValueDefault = getDefaultValueFunction( datavalue, datatype );
local id = frame.args.id
local functionToCall = getUserFunction( options, 'value', context.formatValueDefault );
if id and (#id == 0) then
return functionToCall( context, options, datavalue.value );
id = nil
end
end
 
local DEFAULT_BOUNDARIES = { os.time() * 1000, os.time() * 1000};
 
--[[
Функция для оформления идентификатора сущности


Принимает: строку индентификатора (типа Q42) и таблицу параметров,
-- 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
function formatEntityId( context, options, entityId )
local lang = frame.args.lang
-- получение локализованного названия
if (not lang) or (#lang < 2) then
local boundaries = nil
lang = mw.language.getContentLanguage().code
if options.qualifiers then
boundaries = p.getTimeBoundariesFromQualifiers( frame, context, { qualifiers = options.qualifiers } )
end
end
if not boundaries then
boundaries = DEFAULT_BOUNDARIES;
end
local label, labelLanguageCode = getLabelWithLang( context, options, entityId, boundaries )


-- определение соответствующей показываемому элементу категории
-- first unnamed parameter is the local parameter, if supplied
local category = context.extractCategory( options, { id = entityId } )
local input_parm = mw.text.trim(frame.args[1] or "")
 
if input_parm == "FETCH_WIKIDATA" then
-- получение ссылки по идентификатору
local ent = mw.wikibase.getEntity(id)
local link = mw.wikibase.sitelink( entityId )
local imgs
if link then
if ent and ent.claims then
-- ссылка на категорию, а не добавление страницы в неё
imgs = ent.claims.P18
if mw.ustring.match( link, '^' .. mw.site.namespaces[ 14 ].name .. ':' ) then
link = ':' .. link
end
end
if label and not options.rawArticle then
local imglbl
local a = link == label and ('[[' .. link .. ']]') or '[[' .. link .. '|' .. label .. ']]';
if imgs then
if ( contentLanguageCode ~= labelLanguageCode and 'mul' ~= labelLanguageCode ) then
-- look for an image with 'preferred' rank
a = a .. getCategoryByCode( 'links-to-entities-with-missing-local-language-label' );
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 a .. category;
else
return '[[' .. link .. ']]' .. category;
end
end
return imglbl
else
return input_parm
end
end
end


if label then  -- TODO: возможно, лучше просто mw.wikibase.label(entityId)
-- 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 moduleRedLink = require( 'Module:Wikidata/redLink' )
local rawLabel = mw.wikibase.label(entityId) or label -- без |text= и boundaries; or label - костыль
local redLink = moduleRedLink.formatRedLinkWithInfobox(rawLabel, label, entityId)
if ( contentLanguageCode ~= labelLanguageCode and 'mul' ~= labelLanguageCode ) then
redLink = redLink .. getCategoryByCode( 'links-to-entities-with-missing-local-language-label' );
end
return redLink .. '<sup>[[:d:' .. entityId .. '|[d]]]</sup>' .. category
end


-- TODO: перенести до проверки на существование статьи
p.getPropertyIDs = function(frame)
local sup = '';
local go, errorOrentity, propclaims = parseInput(frame)
if ( not options.format or options.format ~= 'text' )
if not go then
and entityId ~= 'Q6581072' and entityId ~= 'Q6581097' -- TODO: переписать на format=text
return errorOrentity
then
end
sup = '<sup class="plainlinks noprint">[//www.wikidata.org/wiki/' .. entityId .. '?uselang=' .. contentLanguageCode .. ' [d&#x5d;]</sup>'
local entity = errorOrentity
-- 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
end
 
return table.concat(out, ", ")
-- одноимённая статья уже существует - выводится текст и ссылка на ВД
else
return '<span class="iw" data-title="' .. label .. '">' .. label
-- not a wikibase-entityid, so return empty
.. sup
return ""
.. '</span>' .. category
end
end
-- сообщение об отсутвии локализованного названия
-- 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
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"]
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 propertyParams = {};
local showerrors = frame.args["showerrors"]
local default = frame.args["default"]
if default then showerrors = nil end


-- 1. Параметры, указанные явно при вызове
-- get wikidata entity
if params then
local entity = mw.wikibase.getEntity(id)
for key, value in pairs( params ) do
if not entity then
if value ~= '' then
if showerrors then return printError("entity-not-found") else return default end
propertyParams[ key ] = value;
end
end
end
end
 
-- fetch the first claim of satisfying the given property
-- 2. Настройки конкретного параметра
local claims = findClaims(entity, property)
if config[ 'properties' ] and config[ 'properties' ][ propertyId ] then
if not claims or not claims[1] then
for key, value in pairs( config[ 'properties' ][ propertyId ] ) do
if showerrors then return printError("property-not-found") else return default end
if propertyParams[ key ] == nil then
propertyParams[ key ] = value;
end
end
end
end


-- 3. Указанный пресет настроек
-- get initial sort indices
if propertyParams[ 'preset' ] and config[ 'presets' ] and
local sortindices = {}
config[ 'presets' ][ propertyParams[ 'preset' ] ]
for idx in pairs(claims) do
then
sortindices[#sortindices + 1] = idx
for key, value in pairs( config[ 'presets' ][ propertyParams[ 'preset' ] ] ) do
if propertyParams[ key ] == nil then
propertyParams[ key ] = value;
end
end
end
end
 
-- sort by claim rank
local datatype = datatype or params.datatype or propertyParams.datatype or getPropertyDatatype( propertyId );
local comparator = function(a, b)
if propertyParams.datatype == nil then
local rankmap = { deprecated = 2, normal = 1, preferred = 0 }
propertyParams.datatype = datatype;
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
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
local override;
local propertyId = mw.language.getContentLanguage():ucfirst( string.gsub( args.property, '([^Pp0-9].*)$', function(w)
if string.sub( w, 1, 1 ) == '~' then override = w; end
return '';
end ) )
args = getPropertyParams( propertyId, nil, args );
if (override) then
args[override:match('[,~]([^=]*)=')] = override:match('=(.*)')
args['property'] = propertyId
end
end
 
local data = mw.wikibase.getEntity(id)
local datatype = args.datatype;
if not data then
 
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 context = initContext( args );
-- обработчики по типу значения
local wrapperExtraArgs = {}
if args['value-module'] and args['value-function'] and not string.find( value, '[%[%]%{%}]' ) then
local func = getUserFunction( args, 'value' );
value = func( context, args, value );
elseif datatype == 'commonsMedia' then
value = formatCommonsMedia( value, args );
elseif datatype == 'external-id' and not string.find( value, '[%[%]%{%}]' ) then
wrapperExtraArgs['data-wikidata-external-id'] = mw.text.killMarkers( value );
value = formatExternalId( value, args );
--elseif datatype == 'math' then
-- args.frame = frame -- костыль: в formatMath нужно frame:extensionTag
-- value = formatMath( value, args );
elseif datatype == 'url' then
value = formatUrlValue( context, args, value );
end
 
-- оборачиваем в тег для JS-функций
if string.match( propertyId, '^P%d+$' ) then
value = mw.text.trim( value )
 
-- временная штрафная категория для исправления табличных вставок
local allowTables = getPropertyParams(propertyId, nil, {})['allowTables']
if ( not allowTables
and string.match( value, '<t[dhr][ >]' )
-- and not string.match( value, '<table[ >]' )
-- and not string.match( value, '^%{%|' )
) then
value = value .. getCategoryByCode( 'value-contains-table', propertyId )
else
else
value = wrapStatement( value, propertyId, nil, wrapperExtraArgs );
return tostring(data)
end
end
end
end


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


-- ability to disable loading Wikidata
i = i + 1
if args.entityId == '-' then
return ''
end
end
if ( args.plain ) then -- вызова стандартного обработчика без оформления, если передана опция plain
local callArgs = { propertyId };
if args.entityId then
callArgs.from = args.entityId;
end
return frame:callParserFunction( '#property', callArgs );
end
g_frame = frame
-- после проверки всех аргументов -- вызов функции оформления для свойства (набора утверждений)
return formatProperty( args )
end
end


--[[
-- getting sitelink of a given wiki
Функция проверки на присутствие источника в списке нерекомендованных.
-- get sitelink of current item if qid not supplied
 
function p.getSiteLink(frame)
Принимает: таблицу snak'ов
local qid = frame.args.qid
Возвращает: true/false
if qid == "" then qid = nil end
]]
local f = mw.text.trim( frame.args[1] or "")
function isReferenceDeprecated( snaks )
local entity = mw.wikibase.getEntity(qid)
if not snaks then
if not entity then
return false
return
end
end
if snaks.P248
local link = entity:getSitelink( f )
and snaks.P248[1]
if not link then
and snaks.P248[1].datavalue
return
and snaks.P248[1].datavalue.value.id
then
local entityId = snaks.P248[1].datavalue.value.id
if getConfig( 'deprecatedSources', entityId ) then
return true
end
elseif snaks.P1433
and snaks.P1433[1]
and snaks.P1433[1].datavalue
and snaks.P1433[1].datavalue.value.id
then
local entityId = snaks.P1433[1].datavalue.value.id
if getConfig( 'deprecatedSources', entityId ) then
return true
end
end
end
return false
return link
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.getEntity(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 hasNotDeprecated = false;
if not data then
local displayCount = 0;
return i18n.warnDump
for _, reference in pairs( statement.references ) do
local entityId = nil;
if not isReferenceDeprecated( reference.snaks ) then
hasNotDeprecated = true;
end
end
end


for _, reference in pairs( statement.references ) do
i = i + 1
local display = true;
if ( hasNotDeprecated ) then
if isReferenceDeprecated( reference.snaks ) then
display = false;
end
end
if ( displayCount > 2 ) then
if ( options.entity and options.property ) then
local propertyID = mw.ustring.match( options.property, '^[Pp][0-9]+' )  -- TODO: обрабатывать не тут, а раньше
local moreReferences = '<sup>[[d:' .. options.entity.id .. '#' .. string.upper( propertyID ) .. '|[…]]]</sup>';
table.insert( references, moreReferences );
end
break;
end
if ( display == true ) then
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

Версия от 17:18, 19 декабря 2022

Используется в {{Wikidata}} (см. описания параметров там же). Настраивается при помощи Модуль:Wikidata/config.

Прежде чем вносить какие-либо изменения в данный модуль, просьба оттестировать их в /песочнице. Обратите внимание, что не всё корректно работает в песочнице.

Общие сведения

Функции данного модуля не предназначены для прямого вызова из шаблонов карточек или других модулей, не являющихся функциями расширения данного. Для вызова из шаблонов карточек используйте шаблон {{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 )

Заготовки функций

property-function

<syntaxhighlight lang="lua"> function p.formatSomeProperty( context, options ) local claims = context.selectClaims( options, options.property ); if claims == nil then return end

local formattedStatements = {} for _, claim in ipairs( claims ) do local formattedStatement = context.formatStatement( options, claim ) -- local formattedStatement = p.formatSomeStatement( context, options, claim ) if ( formattedStatement and formattedStatement ~= ) then formattedStatement = context.wrapStatement( formattedStatement, options.property, claim.id ) table.insert( formattedStatements, formattedStatement ) end end

return mw.text.listToText( formattedStatements, options.separator, options.conjunction ) end </syntaxhighlight> Также см. код метода formatPropertyDefault ниже, в нём присутствует больше проверок и работа параметрами вызова.

claim-function

<syntaxhighlight lang="lua"> function formatSomeClaim( context, options, statement ) local circumstances = context.getSourcingCircumstances( statement ); options.qualifiers = statement.qualifiers; local result = context.formatSnak( options, statement.mainsnak, circumstances );

if ( result and result ~= and options.references ) then result = result .. context.formatRefs( options, statement ); end

return result; end </syntaxhighlight> Также см. код метода formatStatementDefault ниже, в нём есть пример работы с квалификаторами.

value-function

<syntaxhighlight lang="lua"> function formatSomeValue( context, options, value ) return value; end </syntaxhighlight> Также см. код метода formatUrlSingle в модуле Модуль:URL.

Context API

Переменные

  • entity
  • frame

Методы

  • cloneOptions( options )
  • getSourcingCircumstances( statement )
  • formatProperty( options )
  • formatPropertyDefault( context, options )
  • formatSnak( options, snak, circumstances )
  • formatStatement( options, statement )
  • formatStatementDefault( context, options, statement )
  • formatRefs( options, statement )
  • formatValueDefault( context, options, value )
  • parseTimeBoundariesFromSnak( snak )
  • parseTimeFromSnak( snak )
  • selectClaims( options, propertyId )
  • wrapSnak( value, hash, attributes )
  • wrapStatement( value, propertyId, claimId, attributes )
  • wrapQualifier( value, qualifierId, attributes )

Функции для форматирования

property-function

claim-function

value-function

См. также

-- vim: set noexpandtab ft=lua ts=4 sw=4:
require('strict')

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"
	}
}

if wiki.langcode ~= "en" then
	--require("Module:i18n").loadI18n("Module:Wikidata/i18n", i18n)
	-- got idea from [[:w:Module:Wd]]
	local module_title; if ... == nil then
		module_title = mw.getCurrentFrame():getTitle()
	else
		module_title = ...
	end
	require('Module:i18n').loadI18n(module_title..'/i18n', i18n)
end

-- 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 parseDateFormat(f, timestamp, addon, prefix_addon, addon_sep) 
	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 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 _date_format = i18n["datetime"]["format"][date_format]
	if _date_format ~= nil then
		return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
	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
		return parseDateFormat(_date_format, timestamp, addon, prefix_addon, addon_sep)
	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.getSitelink(id)
			local linkName = mw.wikibase.getLabel(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.getLabel(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

	if mw.ustring.match(property, "^P%d+$") then
		-- if the property is given by an id (P..) access the claim list by this id
		return entity.claims[property]
	else
		property = mw.wikibase.resolvePropertyId(property)
		if not property then return end

		return entity.claims[property]
	end
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.getLabel(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

local function parseInput(frame)
	local qid = frame.args.qid
	if qid and (#qid == 0) then qid = nil end
	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
		return false, input_parm, nil, nil
	end
	local entity = mw.wikibase.getEntity(qid)
	local claims
	if entity and entity.claims then
		claims = entity.claims[propertyID]
		if not claims then
			return false, "", nil, nil
		end
	else
		return false, "", nil, nil
	end
	return true, entity, claims, propertyID
end
local function isType(claims, type)
	return claims[1] and claims[1].mainsnak.snaktype == "value" and claims[1].mainsnak.datavalue.type == type
end
local function getValue(entity, claims, propertyID, delim, labelHook) 
	if labelHook == nil then
		labelHook = function (qnumber)
			return nil;
		end
	end
	if isType(claims, "wikibase-entityid") then
		local out = {}
		for k, v in pairs(claims) do
			local qnumber = "Q" .. v.mainsnak.datavalue.value["numeric-id"]
			local sitelink = mw.wikibase.getSitelink(qnumber)
			local label = labelHook(qnumber) or mw.wikibase.getLabel(qnumber) or qnumber
			if sitelink then
				out[#out + 1] = "[[" .. sitelink .. "|" .. label .. "]]"
			else
				out[#out + 1] = "[[:d:" .. qnumber .. "|" .. label .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
			end
		end
		return table.concat(out, delim)
	else
		-- just return best values
		return entity:formatPropertyValues(propertyID).value
	end
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]
	-- return description of a Wikidata entity in the given language or the default language of this Wikipedia site
	return mw.wikibase.getEntity(id):getDescription(langcode or wiki.langcode)
end

function p.labelIn(frame)
	local langcode = frame.args[1]
	local id = frame.args[2]
	-- return label of a Wikidata entity in the given language or the default language of this Wikipedia site
	return mw.wikibase.getEntity(id):getLabel(langcode or wiki.langcode)
end

-- This is used to get a value, or a comma separated list of them if multiple values exist
p.getValue = function(frame)
	local delimdefault = ", " -- **internationalise later**
	local delim = frame.args.delimiter or ""
	delim = string.gsub(delim, '"', '')
	if #delim == 0 then
		delim = delimdefault
	end
	local go, errorOrentity, claims, propertyID = parseInput(frame)
	if not go then
		return errorOrentity
	end
	return getValue(errorOrentity, claims, propertyID, delim)
end

-- Same as above, but uses the short name property for label if available.
p.getValueShortName = function(frame)
	local go, errorOrentity, claims, propertyID = parseInput(frame)
	if not go then
		return errorOrentity
	end
	local entity = errorOrentity
	-- if wiki-linked value output as link if possible
	local function labelHook (qnumber)
		local label
		local claimEntity = mw.wikibase.getEntity(qnumber)
		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 return nil end
		return label
	end
	return getValue(errorOrentity, claims, propertyID, ", ", labelHook);
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
			return getValue(entity, claims, propertyID, ", ")
		else
			return ""
		end
	else
		return input_parm
	end
end
local function getQualifier(frame, outputHook) 
	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.getEntity()
		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
						out[#out + 1] = outputHook(v2);
					end
				end
			end
			return table.concat(out, ", "), true
		else
			return "", false
		end
	else
		return input_parm, false
	end
end
p.getQualifierValue = function(frame)
	local function outputValue(value)
		local qnumber = "Q" .. value.datavalue.value["numeric-id"]
		if (mw.wikibase.getSitelink(qnumber)) then
			return "[[" .. mw.wikibase.getSitelink(qnumber) .. "]]"
		else
			return "[[:d:" .. qnumber .. "|" ..qnumber .. "]]<abbr title='" .. i18n["errors"]["local-article-not-found"] .. "'>[*]</abbr>"
		end
	end
	return (getQualifier(frame, outputValue))
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 go, errorOrentity, claims, propertyID = parseInput(frame)
	if not go then
		return errorOrentity
	end
	local entity = errorOrentity
	local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
	-- if number type: remove thousand separators, bounds and units
	if isType(claims, "quantity") then
		result = mw.ustring.gsub(result, "(%d),(%d)", "%1%2")
		result = mw.ustring.gsub(result, "(%d)±.*", "%1")
	end
	return result
end

-- This is used to get the unit name for the numeric value returned by getRawValue
p.getUnits = function(frame)
	local go, errorOrentity, claims, propertyID = parseInput(frame)
	if not go then
		return errorOrentity
	end
	local entity = errorOrentity
	local result = entity:formatPropertyValues(propertyID, mw.wikibase.entity.claimRanks).value
	if isType(claims, "quantity") then
		result = mw.ustring.sub(result, mw.ustring.find(result, " ")+1, -1)
	end
	return result
end

-- This is used to get the unit's QID to use with the numeric value returned by getRawValue
p.getUnitID = function(frame)
	local go, errorOrentity, claims = parseInput(frame)
	if not go then
		return errorOrentity
	end
	local entity = errorOrentity
	local result
	if isType(claims, "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
end

p.getRawQualifierValue = function(frame)
	local function outputHook(value)
		if value.datavalue.value["numeric-id"] then
			return mw.wikibase.getLabel("Q" .. value.datavalue.value["numeric-id"])
		else
			return value.datavalue.value
		end
	end
	local ret, gotData = getQualifier(frame, outputHook)
	if gotData then
		ret = string.upper(string.sub(ret, 1, 1)) .. string.sub(ret, 2)
	end
	return ret
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 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"])
	local go, errorOrentity, claims = parseInput(frame)
	if not go then
		return errorOrentity
	end
	local entity = errorOrentity
	local out = {}
	for k, v in pairs(claims) 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, ", ")
end
p.getQualifierDateValue = function(frame)
	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"])
	local function outputHook(value)
		local timestamp = value.datavalue.value.time
		return parseDateValue(timestamp, date_format, date_addon)
	end
	return (getQualifier(frame, outputHook))
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 sep = mw.text.trim(frame.args[3] or " ")
	local imgsize = mw.text.trim(frame.args[4] or "frameless")
	local go, errorOrentity, claims = parseInput(frame)
	if not go then
		return errorOrentity
	end
	local entity = errorOrentity
	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
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.getEntity()
	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.getEntity(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 go, errorOrentity, propclaims = parseInput(frame)
	if not go then
		return errorOrentity
	end
	local entity = errorOrentity
	-- 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
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"]
	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.getEntity(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.getEntity(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
-- get sitelink of current item if qid not supplied
function p.getSiteLink(frame)
	local qid = frame.args.qid
	if qid == "" then qid = nil end
	local f = mw.text.trim( frame.args[1] or "")
	local entity = mw.wikibase.getEntity(qid)
	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.getEntity(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://belgen.info/wiki/index.php?title=Модуль:Wikidata&oldid=143