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