ФЭНДОМ


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-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>',
}
 
-- settings, may differ from project to project
local categoryLinksToEntitiesWithMissingLabel = '[[Категория:Википедия:Статьи со ссылками на элементы Викиданных без подписи]]';
local categoryLinksToEntitiesWithWikibaseError = '[[Категория:Википедия:Страницы с ошибками скриптов, использующих Викиданные]]';
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% случаев загрузки страниц (чтобы иметь на виду при переименовании)
local moduleSources = require( 'Module:Sources' )
local WDS = require( 'Module:WikidataSelectors' );
 
-- Константы
local contentLanguageCode = mw.getContentLanguage():getCode();
 
local p = {}
 
local formatDatavalue, formatEntityId, formatRefs, formatSnak, formatStatement,
	formatStatementDefault, formatProperty, getSourcingCircumstances,
	getPropertyDatatype, getPropertyParams, 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
 
--[[
 Преобразует строку в булевое значение
 
 Принимает: строковое значение (может отсутствовать)
 Возвращает: булевое значение 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 )
	end
	wbStatus, entity = pcall( mw.wikibase.getEntityObject );
 
	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
 
--[[
	Функция для получения значения свойства элемента в заданный момент времени.
 
	Принимает: контекст, элемент, временные границы, таблица ID свойства
	Возвращает: таблицу соответствующих значений свойства
]]
local function getPropertyInBoundaries( context, entity, boundaries, propertyIds )
	local results = {};
 
	if not propertyIds or #propertyIds == 0 then
		return results;
	end
 
	if entity.claims then
		for _, propertyId in ipairs( propertyIds ) do
			local filteredClaims = WDS.filter( entity.claims, propertyId .. '[rank:preferred, rank:normal]' );
			if filteredClaims then
				for _, claim in pairs( filteredClaims ) do
					if not boundaries or not propertyIds or #propertyIds == 0 then
						table.insert( results, claim.mainsnak );
					else
						local startBoundaries = p.getTimeBoundariesFromQualifier( context.frame, context, claim, 'P580' );
						local endBoundaries = p.getTimeBoundariesFromQualifier( context.frame, context, claim, 'P582' );
 
						if ( (startBoundaries == nil or ( startBoundaries[2] <= boundaries[1]))
								and (endBoundaries == nil or ( endBoundaries[1] >= boundaries[2]))) then
							table.insert( results, claim.mainsnak );
						end
					end
				end
			end
 
			if #results > 0 then
				break;
			end
		end
	end
 
	return results;
end
 
--[[
	TODO
]]
function p.getTimeBoundariesFromQualifier( frame, context, statement, qualifierId )
	-- only support exact date so far, but need improvment
	local left = nil;
	local right = nil;
	if ( statement.qualifiers and statement.qualifiers[qualifierId] ) then
		for _, qualifier in pairs( statement.qualifiers[qualifierId] ) do
			local boundaries = context.parseTimeBoundariesFromSnak( qualifier );
			if ( not boundaries ) then return nil; end
			left = min( left, boundaries[1] );
			right = max( right, boundaries[2] );
		end
	end
 
	if ( not left or not right ) then
		return nil;
	end
 
	return { left, right };
end
 
--[[
	TODO
]]
function p.getTimeBoundariesFromQualifiers( frame, context, statement, qualifierIds )
	if not qualifierIds then
		qualifierIds = { 'P582', 'P580', 'P585' };
	end
 
	for _, qualifierId in ipairs( qualifierIds ) do
		local result = p.getTimeBoundariesFromQualifier( frame, context, statement, qualifierId );
		if result then
			return result;
		end
	end
 
	return nil;
end
 
--[[
	Функция для получения метки элемента в заданный момент времени.
 
	Принимает: контекст, элемент, временные границы
	Возвращает: текстовую метку элемента, язык метки
]]
function getLabelWithLang( context, options, entity, boundaries, propertyIds )
	if not entity then
		return nil;
	end
 
	local lang = mw.language.getContentLanguage();
	local langCode = lang:getCode();
 
	-- name from label
	local label = nil;
	if ( options.text and options.text ~= '' ) then
		label = options.text;
	else
		label, langCode = entity:getLabelWithLang();
 
		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 label, langCode;
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.cloneOptions = function( options )
		local entity = options.entity;
		options.entity = nil;
 
		newOptions = mw.clone( options );
		options.entity = entity;
		newOptions.entity = entity;
 
		return newOptions;
	end;
	context.formatProperty = function( options )
		local func = getUserFunction( options, 'property', context.formatPropertyDefault );
		return func( context, options )
	end;
	context.formatStatement = function( options, statement ) return formatStatement( context, options, statement ) end;
	context.formatSnak = function( options, snak, circumstances ) return formatSnak( context, options, snak, circumstances ) end;
	context.formatRefs = function( options, statement ) return formatRefs( context, options, statement ) end;
 
	context.parseTimeFromSnak = function( snak )
			if ( snak and snak.datavalue and snak.datavalue.value and snak.datavalue.value.time ) then
				return tonumber(os.time( splitISO8601( tostring( snak.datavalue.value.time ) ) ) ) * 1000;
			end
			return nil;
		end
	context.parseTimeBoundariesFromSnak = function( snak )
			if ( snak and snak.datavalue and snak.datavalue.value and snak.datavalue.value.time and snak.datavalue.value.precision ) then
				return parseTimeBoundaries( snak.datavalue.value.time, snak.datavalue.value.precision );
			end
			return nil;
		end
	context.getSourcingCircumstances = function( statement ) return getSourcingCircumstances( statement ) end;
	context.selectClaims = function( options, propertyId ) return selectClaims( context, options, propertyId ) end;
 
	return context.formatProperty( options );
end
 
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;
	if options.property then -- TODO: Почему тут может не быть property?
		claims = context.selectClaims( options, options.property );
	end
	if claims == nil then
		return '' --TODO error?
	end
 
	-- Обход всех заявлений утверждения и с накоплением оформленых предпочтительных
	-- заявлений в таблице
	local formattedClaims = {}
 
	for i, claim in ipairs(claims) do
		local formattedStatement = context.formatStatement( options, claim )
		-- здесь может вернуться либо оформленный текст заявления
		-- либо строка ошибки nil похоже никогда не возвращается
		if (formattedStatement) 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 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 );
 
	options.qualifiers = statement.qualifiers;
 
	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 = '<span class="wikidata-snak ' .. mainSnakClass .. '"' .. hash .. '>'
	local after = '</span>'
 
	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']
	elseif options['nocoord'] and options['nocoord'] ~= '' then
		-- если передан параметр nocoord, то не выводить координаты
		-- обычно это делается при использовании нескольких карточек на странице
		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
 
--[[
	Функция для оформления объектов-значений с файлами с Викисклада
 
	Принимает: объект-значение и таблицу параметров,
	Возвращает: строку оформленного текста
]]
function formatCommonsMedia( value, options )
	local image = value
 
	local caption = ''
	if options['caption'] and options['caption'] ~= '' then
		caption = options['caption']
	elseif options['description'] and options['description'] ~= '' then
		caption = options['description']
	end
	if caption ~= '' then
		caption = '<span data-wikidata-qualifier-id="P2096" style="display:block">' .. caption .. '</span>'
	end
 
	if not string.find( value, '[%[%]%{%}]' ) then
		image = '[[File:' .. value
		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 = fileDefaultSize;
		end
		image = image .. '|' .. size
 
		if options['alt'] and options['alt'] ~= '' then
			image = image .. '|' .. options['alt']
		end
		image = image .. ']]'
 
		if caption ~= '' then
			image = image .. '<br>' .. caption
		end
	else
		image = image .. caption
	end
 
	return image
end
 
--[[
	Функция для оформления внешних идентификаторов
 
	Принимает: объект-значение и таблицу параметров,
	Возвращает: строку оформленного текста
]]
local function formatExternalId( value, options )
	local formatter = options.formatter
 
	if not formatter or formatter == '' then
		local wbStatus, entity = pcall( mw.wikibase.getEntity, options.property:upper() )
		if wbStatus == true and entity then
			local statements = entity:getBestStatements( 'P1630' )
			for _, statement in pairs( statements ) do
				if statement.mainsnak.snaktype == 'value' then
					formatter = statement.mainsnak.datavalue.value
					break
				end
			end
		end
	end
 
	if formatter and formatter ~= '' then
		local link = mw.ustring.gsub( formatter, '$1', value )
 
		local title = options.title
		if not title or title == '' then
			title = '$1'
		end
		title = mw.ustring.gsub( title, '$1', value )
 
		return '[' .. link .. ' ' .. title .. ']'
	end
 
	return value
end
 
--[[
	Функция для оформления числовых значений
 
	Принимает: объект-значение и таблицу параметров,
	Возвращает: строку оформленного текста
]]
local function formatQuantity( value, options )
	-- диапазон значений
	local amount = string.gsub( value['amount'], '^%+', '' );
	local lang = mw.language.getContentLanguage();
	local langCode = lang:getCode();
 
	local function formatNum( number )
		-- округление до 13 знаков после запятой, на 14-м возникает ошибка в точности
		local mult = 10^13
		number = math.floor( number * mult + 0.5 ) / mult
 
		return lang:formatNum( number )
	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
 
	if options.unit and options.unit ~= '' then
		if options.unit ~= '-' then
			out = out .. ' ' .. options.unit
		end
	elseif value.unit and string.match( value.unit, 'http://www.wikidata.org/entity/' ) then
		local unitEntityId = string.gsub( value.unit, 'http://www.wikidata.org/entity/', '' );
		local wbStatus, unitEntity = pcall( mw.wikibase.getEntity, unitEntityId );
		if wbStatus == true and unitEntity then
			local writingSystemElementId = 'Q8209';
			local langElementId = 'Q7737';
			local label = getLabelWithLang( context, options, unitEntity, nil, {
				'P558[P282:' .. writingSystemElementId .. ', P407:' .. langElementId .. ']',
				'P558[!P282][!P407]'
			} );
 
			out = out .. ' ' .. label;
		end
	end
 
	return out;
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( context, options, getEntityIdFromValue( value ) ) end;
	elseif datavalue.type == 'string' then
		-- String
		if datatype and datatype == 'commonsMedia' then
			-- Media
			return function( context, options, value )
				if ( not options.caption or options.caption == '' )
						and ( 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 == contentLanguageCode ) then
							options.caption = qualifier.datavalue.value.text
							options.description = qualifier.datavalue.value.text
							break
						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
				return moduleUrl.formatUrlSingle( context, options, value );
			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 ) 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
 
--[[
	Функция для оформления значений (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
 
--[[
	Функция для оформления идентификатора сущности
 
	Принимает: строку индентификатора (типа Q42) и таблицу параметров,
	Возвращает: строку оформленного текста
]]
function formatEntityId( context, options, entityId )
	-- получение локализованного названия
	local wbStatus, entity = pcall( mw.wikibase.getEntity, entityId )
	if wbStatus ~= true then
		return '[[:d:' .. entityId .. '|' .. entityId .. ']]<span style="color:#b32424; border-bottom: 1px dotted #b32424; cursor: help; white-space: nowrap" title="Ошибка получения элемента из Викиданных.">×</span>' .. categoryLinksToEntitiesWithWikibaseError;
	end
	local boundaries = nil
	if options.qualifiers then
		boundaries = p.getTimeBoundariesFromQualifiers( frame, context, { qualifiers = options.qualifiers } )
	end
	local label, labelLanguageCode = getLabelWithLang( context, options, entity, boundaries )
 
	-- определение соответствующей показываемому элементу категории
	local category = ''
	if ( options.category ) then
		local claims = WDS.filter( entity.claims, options.category );
		if ( claims ) then
			for _, claim in pairs( claims ) do
				if ( claim.mainsnak
						and claim.mainsnak
						and claim.mainsnak.datavalue
						and claim.mainsnak.datavalue.type == 'wikibase-entityid' ) then
					local catEntityId = claim.mainsnak.datavalue.value.id;
					local wbStatus, catEntity = pcall( mw.wikibase.getEntity, catEntityId );
					if ( wbStatus == true and catEntity and catEntity:getSitelink() ) then
						category = '[[' .. catEntity:getSitelink() .. ']]';
					end
				end
			end
		end
	end
 
	-- получение ссылки по идентификатору
	local link = mw.wikibase.sitelink( entityId )
	if link then
		-- ссылка на категорию, а не добавление страницы в неё
		if mw.ustring.match( link, '^' .. mw.site.namespaces[ 14 ].name .. ':' ) then
			link = ':' .. link
		end
		if label then
			if ( contentLanguageCode ~= labelLanguageCode ) then
				return '[[' .. link .. '|' .. label .. ']]' .. categoryLinksToEntitiesWithMissingLocalLanguageLabel .. category;
			else
				return '[[' .. link .. '|' .. label .. ']]' .. category;
			end
		else
			return '[[' .. link .. ']]' .. category;
		end
	end
 
	if label then
		-- красная ссылка
		-- TODO: разобраться, почему не всегда есть options.frame
		local title = mw.title.new( label );
		if title and not title.exists and options.frame then
			return '[[' .. label .. ']]<sup>[[:d:' .. entityId .. '|[d]]]</sup>' .. category;
		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&#x5d;]</sup>'
		end
 
		-- одноимённая статья уже существует - выводится текст и ссылка на ВД
		return '<span class="iw" data-title="' .. label .. '">' .. label
			.. sup
			.. '</span>' .. category
	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 .. category;
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 args = frame.args
 
	-- проверка на отсутствие обязательного параметра property
	if not args.property then
		throwError( 'property-param-not-provided' )
	end
	local propertyId = mw.language.getContentLanguage():ucfirst( string.gsub( args.property, '%[.*$', '' ) )
	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
 
	args.plain = toBoolean( args.plain, false );
	args.nocat = toBoolean( args.nocat, false );
	args.references = toBoolean( args.references, true );
 
	-- если значение передано в параметрах вызова то выводим только его
	if args.value and args.value ~= '' then
		-- специальное значение для скрытия Викиданных
		if args.value == '-' then
			return ''
		end
		local value = args.value
 
		-- опция, запрещающая оформление значения, поэтому никак не трогаем
		if args.plain then
			return value
		end
 
		-- обработчики по типу значения
		local wrapperExtraArgs = ''
		if args['value-module'] and args['value-function'] and not string.find( value, '[%[%]%{%}]' ) then
			local func = getUserFunction( args, 'value' );
			value = func( {}, args, value );
		elseif datatype == 'commonsMedia' then
			value = formatCommonsMedia( value, args );
		elseif datatype == 'external-id' and not string.find( value, '[%[%]%{%}]' ) then
			wrapperExtraArgs = wrapperExtraArgs .. ' data-wikidata-external-id="' .. mw.text.encode( value ).. '"';
			value = formatExternalId( value, args );
		elseif datatype == 'url' then
			local moduleUrl = require( 'Module:URL' );
			value = moduleUrl.formatUrlSingle( nil, args, value );
		end
 
		-- оборачиваем в тег для JS-функций
		if string.match( propertyId, '^P%d+$' ) then
			value = mw.text.trim( value )
 
			-- временная штрафная категория для исправления табличных вставок
			if ( propertyId ~= 'P166'
					and string.match( value, '<t[dr][ >]' )
					and not string.match( value, '<table >]' )
					and not string.match( value, '^%{%|' ) ) then
				value = value .. '[[Категория:Википедия:Статьи с табличной вставкой в карточке]]'
			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
			local pageTitle = mw.title.getCurrentTitle();
			if pageTitle.namespace == 0 then
				value = value .. categoryLocalValuePresent;
			end
		end
 
		return value
	end
 
	if ( args.plain ) then -- вызова стандартного обработчика без оформления, если передана опция plain
		return frame:callParserFunction( '#property', propertyId );
	end
 
	g_frame = frame
	-- после проверки всех аргументов -- вызов функции оформления для свойства (набора утверждений)
	return formatProperty( 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.id ) then
				local entityId = reference.snaks.P248[1].datavalue.value.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.id ) then
					local entityId = reference.snaks.P248[1].datavalue.value.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
 
return p

Обнаружено использование расширения AdBlock.


Викия — это свободный ресурс, который существует и развивается за счёт рекламы. Для блокирующих рекламу пользователей мы предоставляем модифицированную версию сайта.

Викия не будет доступна для последующих модификаций. Если вы желаете продолжать работать со страницей, то, пожалуйста, отключите расширение для блокировки рекламы.