Відмінності між версіями «Модуль:Wikidata»

Матеріал з Вікіпедії — вільної енциклопедії.
Перейти до навігації Перейти до пошуку
[перевірена версія][перевірена версія]
(Скасування редагування № 22849053 користувача Shmurak (обговорення))
(Мітка: Скасування)
 
Рядок 474: Рядок 474:
 
local after = ''
 
local after = ''
   
if snak.snaktype == 'somevalue' then
+
if snak.snaktype == 'somevalue' then
if ( options['somevalue'] and options['somevalue'] ~= '' ) then
+
if ( options['somevalue'] and options['somevalue'] ~= '' ) then
result = options['somevalue'];
+
return before .. options['somevalue'] .. after;
  +
end
else
 
 
elseif snak.snaktype == 'novalue' then
end
 
  +
if ( options['novalue'] and options['novalue'] ~= '' ) then
elseif snak.snaktype == 'novalue' then
 
  +
end
result = options['novalue'];
 
  +
return before .. options.i18n['novalue'] .. after;
else
 
 
elseif snak.snaktype == 'value' then
result = options.i18n['novalue'];
 
result = options.i18n['somevalue'];
+
return before .. options.i18n['somevalue'] .. after;
if ( options['novalue'] and options['novalue'] ~= '' ) then
+
return before .. options['novalue'] .. after;
end
 
elseif snak.snaktype == 'value' then
 
result = formatDatavalue( context, options, snak.datavalue, snak.datatype );
 
 
 
if ( circumstances.presumably ) then
 
if ( circumstances.presumably ) then
 
before = before .. options.i18n.presumably;
result = options.i18n.presumably .. result;
 
 
end
 
end
 
if ( circumstances.circa ) then
 
if ( circumstances.circa ) then
result = options.i18n.circa .. result;
+
before = before .. options.i18n.circa;
 
end
 
end
else
 
throwError( 'unknown-snak-type' );
 
end
 
 
if ( not result or result == '' ) then
 
return nil;
 
end
 
   
return before .. result .. after;
+
return before .. formatDatavalue( context, options, snak.datavalue, snak.datatype ) .. after;
 
else
 
throwError( 'unknown-snak-type' );
 
end
 
end
 
end
   

Поточна версія на 14:15, 17 липня 2018

Модуль:Wikidata (обг. · [ред.] · історія · посилання · документація · підсторінки · тести – результати)


Використовується в {{Wikidata}}. Модуль викликає шаблон {{Не перекладено}} (Модуль:Не перекладено (обг. · [ред.] · історія · посилання · документація · підсторінки · тести – результати) ).

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

Далі описується внутрішня документація. Назви функцій і параметрів можуть змінитися. При їх зміненні автор змін зобов'язаний оновити шаблон {{wikidata}} та спеціалізовані шаблони властивостей. Зміни в інших місцях, якщо хтось все ж таки викликає функції модуля напряму, залишаються на сумлінні автора «костиля». Отже, при виклику шаблона {{wikidata}} або спеціалізованого шаблона властивості управління віддається на функцію formatStatements, котра приймає frame. Із frame добуваються такі опції, які так чи інакше передаються в решту функцій:

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

За замовчанням модуль підтримує виведення наступних значень без додаткових налаштувань:

Інші типи даних потребують указання функції форматування значення.

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

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

Див. також[ред. код]

CC-logo.svg

Цей модуль містить код, запозичений з модуля «Wikidata» російської Вікіпедії.

Переклад
CC-logo.svg

Цей модуль містить код, запозичений з модуля «Wikidata» англійської Вікіпедії.

Переклад

local i18n = {
    ["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-module, не знайдений.",
        ["property-function-not-found"] = "Функція, вказана у property-function, не знайдена.",
        ["claim-module-not-found"] = "Модуль, вказаний у claim-module, не знайдений.",
        ["claim-function-not-found"] = "Функція, вказана у claim-function, не знайдена.",
        ["value-module-not-found"] = "Модуль, вказаний у value-module, не знайдений.",
        ["value-function-not-found"] = "Функція, вказана у value-function, не знайдена."
    },
    ["somevalue"] = "''невідомо''",
    ["novalue"] = "",
    ["circa"] = '<span style="border-bottom: 1px dotted; cursor: help;" title="близько">бл. </span>',
    ["presumably"] = '<span style="border-bottom: 1px dotted; cursor: help;" title="імовірно">ім. </span>',
}

-- settings, may differ from project to project
local categoryLinksToEntitiesWithMissingLabel = '[[Категорія:Вікіпедія:Статті з посиланнями на елементи Вікіданих без українського підпису]]';
local categoryLocalValuePresent = '[[Категорія:Вікіпедія:Статті з іншим значенням на Вікіданих]]';
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% случаев загрузки страниц (чтобы иметь на виду при переименовании)
local moduleSources = require('Module:Sources')
local WDS = require( 'Module:WikidataSelectors' );

local p = {}

local formatDatavalue, formatEntityId, formatRefs, formatSnak, formatStatement,
	formatStatementDefault, formatProperty, getSourcingCircumstances,
	getPropertyDatatype, throwError, toBoolean;

local function copyTo( obj, target )
	for k, v in pairs( obj ) do
		target[k] = v
	end
	return target;
end

local function min( prev, next )
	if ( prev == nil ) then return next;
	elseif ( prev > next ) then return next;
	else return prev; end
end

local function max( prev, next )
	if ( prev == nil ) then return next;
	elseif ( prev < next ) then return next;
	else return prev; end
end

local function splitISO8601(str)
	if 'table' == type(str) then
		if str.args and str.args[1] then
			str = '' .. str.args[1]
		else
			return 'unknown argument type: ' .. type( str ) .. ': ' .. table.tostring( str )
		end
	end
	local Y, M, D = (function(str)
		local pattern = "(%-?%d+)%-(%d+)%-(%d+)T"
		local Y, M, D = mw.ustring.match( str, pattern )
		return tonumber(Y), tonumber(M), tonumber(D)
	end) (str);
	local h, m, s = (function(str)
		local pattern = "T(%d+):(%d+):(%d+)%Z";
		local H, M, S = mw.ustring.match( str, pattern);
		return tonumber(H), tonumber(M), tonumber(S);
	end) (str);
	local oh,om = ( function(str)
		if str:sub(-1)=="Z" then return 0,0 end; -- ends with Z, Zulu time
		-- matches ±hh:mm, ±hhmm or ±hh; else returns nils
		local pattern = "([-+])(%d%d):?(%d?%d?)$";
		local sign, oh, om = mw.ustring.match( str, pattern);
		sign, oh, om = sign or "+", oh or "00", om or "00";
		return tonumber(sign .. oh), tonumber(sign .. om);
	end )(str)
	return {year=Y, month=M, day=D, hour=(h+oh), min=(m+om), sec=s};
end

local function parseTimeBoundaries( time, precision )
	local s = splitISO8601( time );
	if (not s) then return nil; end

	if ( precision >= 0 and precision <= 8 ) then
		local powers = { 1000000000 , 100000000, 10000000, 1000000, 100000, 10000, 1000, 100, 10 }
		local power = powers[ precision + 1 ];
		local left = s.year - ( s.year % power );
		return { tonumber(os.time( {year=left, month=1, day=1, hour=0, min=0, sec=0} )) * 1000,
			tonumber(os.time( {year=left + power - 1, month=12, day=31, hour=29, min=59, sec=58} )) * 1000 + 1999 };
	end

	if ( precision == 9 ) then
		return { tonumber(os.time( {year=s.year, month=1, day=1, hour=0, min=0, sec=0} )) * 1000,
			tonumber(os.time( {year=s.year, month=12, day=31, hour=23, min=59, sec=58} )) * 1000 + 1999 };
	end

	if ( precision == 10 ) then
		local lastDays = {31, 28.25, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
		local lastDay = lastDays[s.month];
		return { tonumber(os.time( {year=s.year, month=s.month, day=1, hour=0, min=0, sec=0} )) * 1000,
			tonumber(os.time( {year=s.year, month=s.month, day=lastDay, hour=23, min=59, sec=58} )) * 1000 + 1999 };
	end

	if ( precision == 11 ) then
		return { tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=0, min=0, sec=0} )) * 1000,
			tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=23, min=59, sec=58} )) * 1000 + 1999 };
	end

	if ( precision == 12 ) then
		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

	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

	if ( precision == 14 ) then
		local t = tonumber(os.time( {year=s.year, month=s.month, day=s.day, hour=s.hour, min=s.min, sec=0} ) );
		return { t * 1000, t * 1000 + 999 };
	end

	error('Unsupported precision: ' .. precision );
end

local function parseISO8601(str)
    if 'table' == type(str) then
        if str.args and str.args[1] then
            str = '' .. str.args[1]
        else
            return 'unknown argument type: ' .. type( str ) .. ': ' .. table.tostring( str )
        end
    end
    local Y, M, D = (function(str) 
        local pattern = "(%-?%d+)%-(%d+)%-(%d+)T"
        local Y, M, D = mw.ustring.match( str, pattern )
        return tonumber(Y), tonumber(M), tonumber(D)
    end) (str);
    local h, m, s = (function(str) 
        local pattern = "T(%d+):(%d+):(%d+)%Z";
        local H, M, S = mw.ustring.match( str, pattern);
        return tonumber(H), tonumber(M), tonumber(S);
    end) (str);
    local oh,om = ( function(str)
        if str:sub(-1)=="Z" then return 0,0 end; -- ends with Z, Zulu time
        -- matches ±hh:mm, ±hhmm or ±hh; else returns nils
        local pattern = "([-+])(%d%d):?(%d?%d?)$";
        local sign, oh, om = mw.ustring.match( str, pattern);
        sign, oh, om = sign or "+", oh or "00", om or "00";
        return tonumber(sign .. oh), tonumber(sign .. om);
    end )(str)
    return tonumber(os.time({year=Y, month=M, day=D, hour=(h+oh), min=(m+om), sec=s}))
end

--[[ 
 Преобразует строку в булевое значение

 Принимает: строковое значение (может отсутствовать)
 Возвращает: булевое значение true или false, если получается распознать значение, или defaultValue во всех остальных  случаях
]]
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

--[[ 
  Функция для получения сущности (еntity) для текущей страницы
  Подробнее о сущностях см. d:Wikidata:Glossary/ru

  Принимает: строковый индентификатор (типа P18, Q42)
  Возвращает: объект таблицу, элементы которой индексируются с нуля
]]
local function getEntityFromId( id )
	local entity;
	local wbStatus;

	if id then
		wbStatus, entity = pcall( mw.wikibase.getEntityObject, id )
	else
		wbStatus, entity = pcall( mw.wikibase.getEntityObject );
	end

	return entity;
end

--[[ 
  Внутрення функция для формирования сообщения об ошибке
 
  Принимает: ключ элемента в таблице i18n (например entity-not-found)
  Возвращает: строку сообщения
]]
local function throwError( key )
    error( i18n.errors[key] );
end

--[[ 
  Функция для получения идентификатора сущностей 

  Принимает: объект таблицу сущности
  Возвращает: строковый индентификатор (типа P18, Q42)
]]
local function getEntityIdFromValue( value )
    local prefix = ''
    if value['entity-type'] == 'item' then
        prefix = 'Q'
    elseif value['entity-type'] == 'property' then
        prefix = 'P'
    else
        throwError( 'unknown-entity-type' )
    end
    return prefix .. value['numeric-id']
end

-- проверка на наличие специилизированной функции в опциях
local function getUserFunction( options, prefix, defaultFunction )
	-- проверка на указание специализированных обработчиков в параметрах,
	-- переданных при вызове
	if options[ prefix .. '-module' ] or options[ prefix .. '-function' ] then
		-- проверка на пустые строки в параметрах или их отсутствие
		if not options[ prefix .. '-module' ] or not options[ prefix .. '-function' ] then
			throwError( 'unknown-' .. prefix .. '-module' );
		end
		-- динамическая загруза модуля с обработчиком указанным в параметре
		local formatter = require( 'Module:' .. options[ prefix .. '-module' ] );
		if formatter == nil then
			throwError( prefix .. '-module-not-found' )
		end
		local fun = formatter[ options[ prefix .. '-function' ] ]
		if fun == nil then
			throwError( prefix .. '-function-not-found' )
		end
		return fun;
	end

	return defaultFunction;
end

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

	result = WDS.filter( options.entity.claims, propertySelector );

	if ( not result or #result == 0 ) then
		return nil;
	end

	if options.limit and options.limit ~= '' and options.limit ~= '-'  then
		local limit = tonumber( options.limit, 10 );
		while #result > limit do
			table.remove( result );
		end
	end

	return result;
end

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

  Принимает: таблицу параметров
  Возвращает: строку оформленного текста, предназначенного для отображения в статье
]]
local function formatProperty( options )
    -- Получение сущности по идентификатору
    local entity = getEntityFromId( options.entityId )
    if not entity then
        return -- throwError( 'entity-not-found' )
    end
	-- проверка на присутсвие у сущности заявлений (claim)
	-- подробнее о заявлениях см. d:Викиданные:Глоссарий
    if (entity.claims == nil) then
        return '' --TODO error?
    end

	-- improve options
	options.frame = g_frame;
	options.entity = entity;
	options.extends = function( self, newOptions )
		return copyTo( newOptions, copyTo( self, {} ) )
	end

	if ( options.i18n ) then
		options.i18n = copyTo( options.i18n, copyTo( i18n, {} ) );
	else
		options.i18n = i18n;
	end

	-- create context
	local context = {
		entity = options.entity,
		formatSnak = formatSnak,
		formatPropertyDefault = formatPropertyDefault,
		formatStatementDefault = formatStatementDefault }
	context.formatProperty = function( options ) 
		local func = getUserFunction( options, 'property', context.formatPropertyDefault );
		return func( context, options )
	end;
	context.formatStatement = function( options, statement ) return formatStatement( context, options, statement ) end;
	context.formatSnak = function( options, snak, circumstances ) return formatSnak( context, options, snak, circumstances ) end;
	context.formatRefs = function( options, statement ) return formatRefs( context, options, statement ) end;
	
	context.parseTimeFromSnak = function( snak )
			if ( snak and snak.datavalue and snak.datavalue.value and snak.datavalue.value.time ) then
				return tonumber(os.time( splitISO8601( tostring( snak.datavalue.value.time ) ) ) ) * 1000;
			end
			return nil;
		end
	context.parseTimeBoundariesFromSnak = function( snak )
			if ( snak and snak.datavalue and snak.datavalue.value and snak.datavalue.value.time and snak.datavalue.value.precision ) then
				return parseTimeBoundaries( snak.datavalue.value.time, snak.datavalue.value.precision );
			end
			return nil;
		end
	context.getSourcingCircumstances = function( statement ) return getSourcingCircumstances( statement ) end;
	context.selectClaims = function( options, propertyId ) return selectClaims( context, options, propertyId ) end;

	return context.formatProperty( options );
end

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 = context.selectClaims( options, options.property );
    if (claims == nil) then
        return '' --TODO error?
    end

    -- Обход всех заявлений утверждения и с накоплением оформленых предпочтительных 
    -- заявлений в таблице
    local formattedClaims = {}

    for i, claim in ipairs(claims) do
        local formattedStatement = context.formatStatement( options, claim )
        -- здесь может вернуться либо оформленный текст заявления
        -- либо строка ошибки nil похоже никогда не возвращается
        if (formattedStatement) then
            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 out
end

--[[
	Функция для оформления одного утверждения (statement)

	Принимает: объект-таблицу утверждение и таблицу параметров
	Возвращает: строку оформленного текста с заявлением (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

function getSourcingCircumstances( statement )
	if (not statement) then error('statement is not specified') end;

	local circumstances = {};
	if ( statement.qualifiers
			and statement.qualifiers.P1480 ) then
		for i, qualifier in pairs( statement.qualifiers.P1480 ) do
			if ( qualifier
					and qualifier.datavalue
					and qualifier.datavalue.type == 'wikibase-entityid'
					and qualifier.datavalue.value
					and qualifier.datavalue.value['entity-type'] == 'item' ) then
				local circumstance = qualifier.datavalue.value.id;
				if ( 'Q5727902' == circumstance ) then
					circumstances.circa = true;
				end
				if ( 'Q18122778' == circumstance ) then
					circumstances.presumably = true;
				end
			end
		end
	end
	return circumstances;
end

--[[ 
  Функция для оформления одного утверждения (statement)

  Принимает: объект-таблицу утверждение, таблицу параметров,
  объект-функцию оформления внутренних структур утверждения (snak) и
  объект-функцию оформления ссылки на источники (reference)
  Возвращает: строку оформленного текста с заявлением (claim)
]]
function formatStatementDefault( context, options, statement )
    if (not context) then error('context is not specified') end;
    if (not options) then error('options is not specified') end;
    if (not statement) then error('statement is not specified') end;

    local circumstances = context.getSourcingCircumstances( statement );

	if statement.qualifiers then
		options.qualifiers = statement.qualifiers;
	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

--[[ 
  Функция для оформления части утверждения (snak)
  Подробнее о snak см. d:Викиданные:Глоссарий

  Принимает: таблицу snak объекта (main snak или же snak от квалификатора) и таблицу опций
  Возвращает: строку оформленного викитекста
]]
function formatSnak( context, options, snak, circumstances )
	circumstances = circumstances or {};
	local hash = '';
	local mainSnakClass = '';
	if ( snak.hash ) then
		hash = ' data-wikidata-hash="' .. snak.hash .. '"';
	else
		mainSnakClass = ' wikidata-main-snak';
	end

	local before = ''
	local after = ''

    if snak.snaktype == 'somevalue' then
        if ( options['somevalue'] and options['somevalue'] ~= '' ) then
            return before .. options['somevalue'] .. after;
        end
        return before .. options.i18n['somevalue'] .. after;
    elseif snak.snaktype == 'novalue' then
        if ( options['novalue'] and options['novalue'] ~= '' ) then
            return before .. options['novalue'] .. after;
        end
        return before .. options.i18n['novalue'] .. after;
    elseif snak.snaktype == 'value' then
		if ( circumstances.presumably ) then
			before = before .. options.i18n.presumably;
		end
		if ( circumstances.circa ) then
			before = before .. options.i18n.circa;
		end

        return before .. formatDatavalue( context, options, snak.datavalue, snak.datatype ) .. after;
    else
        throwError( 'unknown-snak-type' );
    end
end

--[[ 
  Функция для оформления объектов-значений с географическими координатами

  Принимает: объект-значение и таблицу параметров,
  Возвращает: строку оформленного текста
]]
function formatGlobeCoordinate( value, options )
    -- проверка на требование в параметрах вызова на возврат сырого значения 
    if options['subvalue'] == 'latitude' then -- широты
        return value['latitude']
    elseif options['subvalue'] == 'longitude' then -- долготы
        return value['longitude']
    else
        -- в противном случае формируются параметры для вызова шаблона {{coord}}
        -- нужно дописать в документации шаблона, что он отсюда вызывается, и что
        -- любое изменние его парамеров  должно быть согласовано с кодом тут
        local eps = 0.0000001 -- < 1/360000
        local globe = '' -- 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)
        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)
        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['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

--[[ 
  Функция для оформления объектов-значений с файлами с Викисклада

  Принимает: объект-значение и таблицу параметров,
  Возвращает: строку оформленного текста
]]
function formatCommonsMedia( value, options )
	local image = '[[File:' .. value
	if options['border'] and options['border'] ~= '' then
    	image = image .. '|border'
    end

   	local size = options['size']
    if size and size ~= '' then
    	if not string.match( size, 'px$' )
			and not string.match( size, 'пкс$' ) -- TODO: использовать перевод для языка вики 
		then
    		size = size .. 'px'
    	end
	else
		size = '250x350px' -- TODO: вынести в настройки
    end
	image = image .. '|' .. size

    if options['alt'] and options['alt'] ~= '' then
    	image = image .. '|' .. options['alt']
    end
	image = image .. ']]'

	if options['description'] and options['description'] ~= '' then
		image = image .. '<br>' .. options['description']
	end

    return image
end

--[[
	Get property datatype by ID.
	
	@param string Property ID, e.g. 'P123'.
	@return string Property datatype, e.g. 'commonsMedia', 'time' or 'url'.
]]
local function getPropertyDatatype( propertyId )
	if not propertyId or not string.match( propertyId, '^P%d+$' ) then
		return nil;
	end
	
	local wbStatus, propertyEntity = pcall( mw.wikibase.getEntity, propertyId );
	if wbStatus ~= true or not propertyEntity then
		return nil;
	end

	return propertyEntity.datatype;
end

local function getDefaultValueFunction( datavalue, datatype )
    -- вызов обработчиков по умолчанию для известных типов значений
    if datavalue.type == 'wikibase-entityid' then
    	-- Entity ID
        return function( context, options, value ) return formatEntityId( getEntityIdFromValue( value ), options ) end;
    elseif datavalue.type == 'string' then
    	-- String
    	if datatype and datatype == 'commonsMedia' then
	    	-- Media
	        return function( context, options, value )
		        local lang = mw.language.getContentLanguage()
	        	if ( not options.description or options.description == '' )
	        			and options.qualifiers and options.qualifiers.P2096 then
    				for i, qualifier in pairs( options.qualifiers.P2096 ) do
						if ( qualifier
								and qualifier.datavalue
								and qualifier.datavalue.type == 'monolingualtext'
								and qualifier.datavalue.value
								and qualifier.datavalue.value.language == lang:getCode() ) then
							options.description = qualifier.datavalue.value.text
							break
						end
					end
        		end
	        	return formatCommonsMedia( value, options )
        	end;
	    end
        return function( context, options, value ) return value end;
    elseif datavalue.type == 'monolingualtext' then
    	-- моноязычный текст (строка с указанием языка)
        return function( context, options, value )
        	if ( options.monolingualLangTemplate == 'lang' ) then
	        	return options.frame:expandTemplate{ title = 'lang-' .. value.language, args = { value.text } };
        	elseif ( options.monolingualLangTemplate == 'ref' ) then
	        	return '<span class="lang" lang="' .. value.language .. '">' .. value.text .. '</span>' .. options.frame:expandTemplate{ title = 'ref-' .. value.language };
        	else
	        	return '<span class="lang" lang="' .. value.language .. '">' .. value.text .. '</span>';
        	end
        end;
    elseif datavalue.type == 'globecoordinate' then
    	-- географические координаты
        return function( context, options, value ) return formatGlobeCoordinate( value, options )  end;
    elseif datavalue.type == 'quantity' then
        return function( context, options, value )
	    	-- диапазон значений
	        local amount = string.gsub(value['amount'], '^%+', '')
	        local lang = mw.language.getContentLanguage()
	        return lang:formatNum( tonumber( amount ) )
        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

--[[ 
  Функция для оформления значений (value)
  Подробнее о значениях  см. d:Wikidata:Glossary/ru

  Принимает: объект-значение и таблицу параметров,
  Возвращает: строку оформленного текста
]]
function formatDatavalue( context, options, datavalue, datatype )
	if ( not context ) then error( 'context not specified' ); end;
	if ( not options ) then error( 'options not specified' ); end;
	if ( not datavalue ) then error( 'datavalue not specified' ); end;
	if ( not datavalue.value ) then error( 'datavalue.value is missng' ); end;

    -- проверка на указание специализированных обработчиков в параметрах,
    -- переданных при вызове
    context.formatValueDefault = getDefaultValueFunction( datavalue, datatype );
    local functionToCall = getUserFunction( options, 'value', context.formatValueDefault );
    return functionToCall( context, options, datavalue.value );
end

-- Небольшой словарь упрощенного отображения (TODO: надо сделать расширенный с учётом даты)
local simpleReplaces = {
    Q30 = '[[Сполучені Штати Америки|США]]',
    Q148 = '[[Китайська Народна Республіка|КНР]]',
    Q258 = '[[Південно-Африканська Республіка|ПАР]]',
    Q423 = '[[Корейська Народно-Демократична Республіка|КНДР]]',
    Q2184 = '[[Російська Радянська Федеративна Соціалістична Республіка|РРФСР]]',
    Q2895 = '[[Білоруська Радянська Соціалістична Республіка|Білоруська РСР]]',
    Q15180 = '[[Союз Радянських Соціалістичних Республік|СРСР]]',
    Q16957 = '[[Німецька Демократична Республіка|НДР]]',
    Q130229 = '[[Грузинська Радянська Соціалістична Республіка|Грузинська РСР]]',
    Q133356 = '[[Українська Радянська Соціалістична Республіка|Українська РСР]]',
}

--[[ 
  Функция для оформления идентификатора сущности

  Принимает: строку индентификатора (типа Q42) и таблицу параметров,
  Возвращает: строку оформленного текста
]]

function formatEntityId( entityId, options )
	-- получение локализованного названия 
    local label = nil;
    if ( options.text and options.text ~= '' ) then
        label = options.text
    else
    	if ( simpleReplaces[entityId] ) then
			return simpleReplaces[entityId];
		end
		label = mw.wikibase.label( entityId );
    end

	-- получение ссылки по идентификатору
    local link = mw.wikibase.sitelink( entityId )
    if link then
        if label then
            return '[[' .. link .. '|' .. label .. ']]'
        else
            return '[[' .. link .. ']]'
        end
    end

    if label then
        -- красная ссылка
        if not mw.title.new( label ).exists then
            return options.frame:expandTemplate{
                title = 'Не перекладено',
                args = { label, '', 'd', entityId }
            }
        end

		-- TODO: перенести до проверки на существование статьи
		local sup = '';
		if ( not options.format or options.format ~= 'text' )
				and entityId ~= 'Q6581072' and entityId ~= 'Q6581097' -- TODO: переписать на format=text
				then
			local lang = mw.language.getContentLanguage()
			sup = '<sup class="plainlinks noprint">[//www.wikidata.org/wiki/' .. entityId .. '?uselang=' .. lang:getCode() .. ' [d]]</sup>'
		end

        -- одноимённая статья уже существует - выводится текст и ссылка на ВД
        return '<span class="iw" data-title="' .. label .. '">' .. label
        	.. sup
        	.. '</span>'
    end
    -- сообщение об отсутвии локализованного названия
    -- not good, but better than nothing
    return '[[d:' .. entityId .. '|' .. entityId .. ']]<span style="border-bottom: 1px dotted; cursor: help; white-space: nowrap" title="вікідані не мають української назви елемента. Ви можете помогти, вказавши її.">?</span>' .. categoryLinksToEntitiesWithMissingLabel;
end

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

  Принимает: таблицу параметров
  Возвращает: строку оформленного текста, предназначенного для отображения в статье
]]
-- устаревшее имя, не использовать
function p.formatStatements( frame )
	return p.formatProperty( frame );
end

function getPropertyParams( propertyId, datatype, params )
	local config = require( 'Module:Wikidata/config' );
	if not config then
		return {};
	end

	-- Различные уровни настройки параметров, по убыванию приоритета
	local propertyParams = {};

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

	-- 2. Настройки конкретного параметра
	if config['properties'] and config['properties'][propertyId] then
		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

	-- 3. Указанный пресет настроек
	if propertyParams['preset'] and config['presets']
			and config['presets'][propertyParams['preset']] then
		local presetParams = mw.clone( config['presets'][propertyParams['preset']] );
		for key, value in pairs( presetParams ) do
			if propertyParams[key] == nil then
				propertyParams[key] = value;
			end
		end
	end

	-- 4. Настройки для типа данных
	if datatype and config['datatypes'] and config['datatypes'][datatype] then
		local datatypeParams = mw.clone( config['datatypes'][datatype] );
		for key, value in pairs( datatypeParams ) do
			if propertyParams[key] == nil then
				propertyParams[key] = value;
			end
		end
	end

	-- 5. Общие настройки для всех свойств
	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

	return propertyParams;
end

function p.formatProperty( frame )
    local plain = toBoolean( frame.args.plain, false );
    frame.args.nocat = toBoolean( frame.args.nocat, false );
    frame.args.microformatClass = toBoolean(frame.args.microformatClass, false);
    frame.args.references = toBoolean( frame.args.references, true );
    local args = frame.args
    args = getPropertyParams( propertyId, datatype, args );
    
    -- проверка на отсутствие обязательного параметра property 
    if not args.property then
        throwError( 'property-param-not-provided' )
    end
    local propertyId = mw.language.getContentLanguage():ucfirst( string.gsub( args.property, '%[.*$', '' ) )

	-- если значение передано в параметрах вызова то выводим только его
    if args.value and args.value ~= '' then
        -- специальное значение для скрытия Викиданных
        if args.value == '-' then
            return ''
        end
    	local value = args.value

    	-- опция, запрещающая оформление значения, поэтому никак не трогаем
        if plain then
            return value
        end
        
        -- обробка за типом значення
		local datatype = getPropertyDatatype( propertyId );
		if datatype == 'commonsMedia' and not string.find( value, '[%[%]%{%}]' ) then
			value = formatCommonsMedia( value, args );
		elseif datatype == 'url' then
			local moduleUrl = require( 'Module:URL' );
	    	value = moduleUrl.formatUrlSingle( nil, args, value );
		end
        
        -- если трогать всё-таки можно, добавляем категорию-маркер
        if (not args.nocat) and (not frame:callParserFunction( '#property', args.property )=='') then
			value = value .. categoryLocalValuePresent;
		end
		
		-- оборачиваем в тег для JS-функций
		if string.match( propertyId, '^P%d+$' ) then
			value = mw.text.trim( value )
			-- значений с блочными тегами остаются блоком, текст встраиваем в строку
			if ( string.match( value, '\n' )
					or string.match( value, '<t[dhr][ >]' )
					or string.match( value, '<div[ >]' ) ) then
				value = '<div class="no-wikidata" data-wikidata-property-id="' .. propertyId .. '">\n'
					.. value .. '</div>'
			end
		end

        return value
    end

    if ( plain ) then -- вызова стандартного обработчика без оформления, если передана опция plain
        return frame:callParserFunction( '#property', propertyId );
    end

    g_frame = frame
    -- после проверки всех аргументов -- вызов функции оформления для свойства (набора утверждений)
    return formatProperty( frame.args )
end

--[[
  Функция оформления ссылок на источники (reference) 
  Подробнее о ссылках на источники см. d:Wikidata:Glossary/ru

  Экспортируется в качестве зарезервированной точки для вызова из функций-расширения вида 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

    local result = '';
    if ( statement.references ) then

        local allReferences = statement.references;
        local hasPreferred = false;
        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

        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
    return result
end

function p.entityName(frame)
    return formatEntityId(frame.args[1], frame.args)
end

--end ruwiki source code [[:ru:Модуль:Wikidata]]

--some functions from enwiki [[:en:Module:Wikidata]]

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

return p