Модуль:Wikidata/Places

Материал из Википедии — свободной энциклопедии
Перейти к: навигация, поиск
(i) Документация

Содержит функции форматирования для свойств (claims) Викиданных, представляющих собой ссылки на географические элементы (обычно — административные единицы или страны).

Вызов всех функций данного шаблона осуществляется из шаблона {{wikidata}}}. Функции модуля нельзя вызывать напрямую — они передаются в виде аргументов из соответствующих связанных шаблонов (и только из них, в другие шаблоны их также вставлять не нужно).

formatCountryClaimWithFlag

Отличием от обычной функции форматирования элемента являются:

  • дополнение каждой страны флагом
  • оборачивание значений в <span class="country-name">…</span>

Для вывода флага модуль сначала вычисляет «актуальную дату»:

  1. сначала пытается взять квалификатор дата окончания (P582) у значения страны
  2. если нет, то берёт первое нормальное значение у одного из следующих свойств у текущего объекта:
  3. если всё ещё нет, берётся текущая дата

Далее модуль идёт в по флагам, перечисленным в свойстве изображение флага (P41) и берёт там последний из флагов указанной страны, для которого дата введения меньше вычисленной актуальной даты (флаги отсортированы по дате введения).

Таким образом, если шаблон {{wikidata/p27}} не отображает флаг в карточке, проверьте, что у страны на Викиданных заполнено свойство изображение флага (P41), а у флага указана корректная дата введения (ранг игнорируется)

Если отображается ненужный флаг (то есть флага не может быть по историческим причинам), либо флаг должен быть другой, то проверьте:

  • наличие даты окончания принадлежности к стране (квалификатор дата окончания (P582)) у значения свойства гражданство (P27) текущего элемента, либо корректной даты смерти (или другого соответствующего свойства)
  • корректность значения свойства изображение флага (P41) у соответствующего элемента страны, в том числе наличие корректного значения квалификатора дата начала (P580) у каждого значения флага

formatPlaceWithQualifiers


TODO

Сейчас не решена проблема в случаях, когда есть неоднозначность в построении цепочки. Для некоторых стран (например, Франции) подобная неоднозначность в обозримом будущем не будет разрешена.

Квалификатор «указано для части»

« У Адамс, Келли в месте рождения указано Линкольн, Линкольншир и никакой тебе Великобритании. Проблема в том что часть графства одновременно относится к Восточному Мидленду, а часть к — Йоркшир и Хамбер. В результате система просто не может сделать между ними выбор, но в самом элементе Линкольншир указано что к чему относится с помощью квалификатора указано для части. Есть ли возможность учитывать этот квалификатор при построении геоцепочек в подобных случаях? Например, у людей родившихся в Линкольне после 1994 года полное место рождения: Линкольн (город), Линкольн (боро), Линкольншир (неметропольное графство), Линкольншир (церемониальное графство), Восточный Мидленд, Англия, Великобритания. С учётом столичных элементов должно быть: Линкольн, Восточный Мидленд, Англия, Великобритания. Проверить можно на Джордан, Пэт он умер уже после образования Восточного Мидленда (если режиме предварительного простора убрать то, что введено вручную, на подгрузку из Викиданных). Коллеги, в том числе Putnik, как участник, занимающийся АТЕ и геоцепочками, посмотрите, пожалуйста, реализуемо ли это предложение технически и может ли от него быть польза? --Ksc~ruwiki (обс.) 19:48, 23 мая 2018 (UTC) »

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

local categorizeByPlace = true;

local WDS = require( 'Module:WikidataSelectors' );
local Flags = require( 'Module:Wikidata/Flags' );
local p = {
	config = {
		hideSameLabels = false,
		hidePartOfLabels = false,
		hideUnitsForCapitals = true,
		reverseOrder = false,
		catAmbiguousGeoChains = '[[Категория:Википедия:Страницы с неоднозначными геоцепочками]]',
		catWikibaseError = '[[Категория:Википедия:Страницы с ошибками скриптов, использующих Викиданные]]'
	}
};

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 getTimeBoundariesFromProperty( context, propertyId )
	local dateClaims = WDS.filter( context.entity.claims, propertyId );
	if not dateClaims or #dateClaims == 0 then
		return nil;
	end

	-- only support exact date so far, but need improvment
	local left = nil;
	local right = nil;
	for _, claim in pairs( dateClaims ) do
		if not claim.mainsnak then return nil; end
		local boundaries = context.parseTimeBoundariesFromSnak( claim.mainsnak );
		if not boundaries then return nil; end
		left = min( left, boundaries[ 1 ] );
		right = max( right, boundaries[ 2 ] );
	end

	if not left or not right then return nil; end

	return { left, right };
end

local function getTimeBoundariesFromProperties( context, propertyIds )
	for _, propertyId in ipairs( propertyIds ) do
		local result = getTimeBoundariesFromProperty( context, propertyId );
		if result then
			return result;
		end
	end

	return nil;
end

local function getTimeBoundariesFromQualifiers( 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

local function getParentsInBoundariesSnakImpl( context, entityOrId, boundaries, propertyIds )
	local results = {};

	if not propertyIds or #propertyIds == 0 then
		return results;
	end
	
	for _, propertyId in ipairs( propertyIds ) do
		local entityClaims;
		if type( entityOrId.claims ) == 'string' then
			entityClaims = mw.wikibase.getAllStatements( entityOrId, propertyId );
		elseif entityOrId.claims then
			entityClaims = entityOrId.claims;
		else
			return results;
		end

		local filteredClaims = WDS.filter( entityClaims, 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 = getTimeBoundariesFromQualifiers( context, claim, 'P580' );
					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

	return results;
end

local function getParentsInBoundariesSnak( context, entity, boundaries )
	if not entity then error('entity must be specified'); end
	if type(entity) ~= 'table' then error('entity must be table'); end
	if not boundaries then error('boundaries must be specified'); end
	if type(boundaries) ~= 'table' then error('boundaries must be table'); end

	local results = getParentsInBoundariesSnakImpl( context, entity, boundaries, {'P131'} ) -- located in
	if not results or #results == 0 then
		results = getParentsInBoundariesSnakImpl( context, entity, boundaries, {'P17'} ) -- country
	end

	for r, result in pairs( results ) do
		if result.snaktype ~= 'value' then
			return nil;
		end
		local resultId = result.datavalue.value.id;
		if resultId == entity.id then
			return nil;
		end
	end
	return results;
end

local unions = { 
	Q1140229 = true, -- political union
	Q3623811 = true, -- Экономический союз
	Q4120211 = true -- региональная организация
}

local countries = {
	Q6256 = true, -- страна
	Q7275 = true, -- государство
	Q3624078 = true -- суверенное государство
}

local function isSkipTopLevel( entity )
	local isCountry = false;
	local isUnion = false;
	if entity and
		entity.claims and
		entity.claims.P31
	then
		for c, claim in pairs( entity.claims.P31 ) do
			if claim and
				claim.mainsnak and
				claim.mainsnak.datavalue and
				claim.mainsnak.datavalue.value and
				claim.mainsnak.datavalue.value.id
			then
				local typeId = claim.mainsnak.datavalue.value.id;
				isCountry = isCountry or countries[ typeId ];
				isUnion = isUnion or unions[ typeId ];
			end
		end
	end
	return isUnion and not isCountry;
end

local function isPartOfNext( prevLabel, nextLabel )
	return ( mw.ustring.len( prevLabel ) > mw.ustring.len( nextLabel ) )
		and ( mw.ustring.sub( prevLabel, mw.ustring.len( prevLabel ) - mw.ustring.len( nextLabel ) + 1 ) == nextLabel );
end

--Property:P19, Property:P20, Property:P119
function p.formatPlaceWithQualifiers( context, options, statement )
	local property = mw.ustring.upper( options.property );
	-- mw.log( 'formatPlaceWithQualifiers(..., ' .. property .. ')');

	local actualDateBoundariesProperties = nil;
	if property == 'P19' then actualDateBoundariesProperties = {'P569','P570'}; end
	if property == 'P20' then actualDateBoundariesProperties = {'P570','P569'}; end
	if property == 'P119' then actualDateBoundariesProperties = {'P570','P569'}; end

	local boundaries = nil;
	if actualDateBoundariesProperties ~= nil then
		boundaries = getTimeBoundariesFromProperties( context, actualDateBoundariesProperties );
	end

	local entriesToLookupCategory = {};

	local circumstances = context.getSourcingCircumstances( statement );
	local result = '';
	local baseResult = context.formatSnak( options, statement.mainsnak, circumstances );
	if not baseResult then
		return nil;
	end
	
	insertFromSnak( statement.mainsnak, entriesToLookupCategory )

	local hasAdditionalQualifiers = false;
	if statement.qualifiers then
		--parent divisions
		if statement.qualifiers.P131 then
			for i, qualifier in ipairs( statement.qualifiers.P131 ) do
				local parentOptions = context.cloneOptions( options );
				local qualifierEntityId = qualifier.datavalue.value.id;
				local wbStatus, qualifierEntity = pcall( mw.wikibase.getEntity, qualifierEntityId )
				if wbStatus ~= true then
					return '[[:d:' .. qualifierEntityId .. '|' .. qualifierEntityId .. ']]<span style="color:#b32424; border-bottom: 1px dotted #b32424; cursor: help; white-space: nowrap" title="Ошибка получения элемента из Викиданных.">×</span>' .. categoryLinksToEntitiesWithWikibaseError;
				end
				parentOptions['text'] = getLabel( context, qualifierEntity, boundaries );
				local link = context.formatSnak( parentOptions, qualifier );

				if p.config.reverseOrder then
					result = link .. ', ' .. result;
				else
					result = result .. ', ' .. link;
				end
				insertFromSnak( qualifier, entriesToLookupCategory )
				hasAdditionalQualifiers = true;
			end
		end

		--country
		if statement.qualifiers.P17 then
			for i, qualifier in ipairs( statement.qualifiers.P17 ) do
				local parentOptions = context.cloneOptions( options );
				local qualifierEntityId = qualifier.datavalue.value.id;
				local wbStatus, qualifierEntity = pcall( mw.wikibase.getEntity, qualifierEntityId )
				if wbStatus ~= true then
					return '[[:d:' .. qualifierEntityId .. '|' .. qualifierEntityId .. ']]'
						.. '<span style="color:#b32424; border-bottom:1px dotted #b32424; cursor:help; white-space:nowrap"'
						.. ' title="Ошибка получения элемента из Викиданных.">×</span>'
						.. categoryLinksToEntitiesWithWikibaseError;
				end
				parentOptions[ 'text' ] = getLabel( context, qualifierEntity, boundaries );
				local link = context.formatSnak( parentOptions, qualifier );

				if p.config.reverseOrder then
					result = link .. ', ' .. result;
				else
					result = result .. ', ' .. link;
				end
				insertFromSnak( qualifier, entriesToLookupCategory )
				hasAdditionalQualifiers = true;
			end
		end
	end

	if statement.mainsnak and
		statement.mainsnak.datavalue and
		statement.mainsnak.datavalue.value and
		statement.mainsnak.datavalue.value.id
	then
		local entityId = statement.mainsnak.datavalue.value.id;
		local wbStatus, entity = pcall( mw.wikibase.getEntity, entityId );
		local parentSnaks = { statement.mainsnak };
		local parentEntities = { entity };

		if wbStatus == true and actualDateBoundariesProperties ~= nil then
			local filterCapitalOf = {
				[ entityId ] = getParentsInBoundariesSnakImpl( context, entity, boundaries, {'P1376'} )
			};
			if boundaries then
				local entityOptions = context.cloneOptions( options );
				entityOptions['text'] = getLabel( context, entity, boundaries );
				baseResult = context.formatSnak( entityOptions, statement.mainsnak, circumstances );

				local parent = entity;
				local wbStatus = true;
				while wbStatus == true and parent ~= nil do
					-- get parent
					local newParentSnaks = getParentsInBoundariesSnak( context, parent, boundaries );
					if not newParentSnaks or #newParentSnaks == 0 then
						parent = nil;
					elseif #newParentSnaks == 1 then
						local parentSnak = newParentSnaks[ 1 ];
						local parentId = parentSnak.datavalue.value.id;
						wbStatus, parent = pcall( mw.wikibase.getEntity, parentId );
						if wbStatus == true then
							table.insert( parentSnaks, parentSnak );
							table.insert( parentEntities, parent );
							filterCapitalOf[ parentId ] = getParentsInBoundariesSnakImpl( context, parent, boundaries, { 'P1376' } );
						end
					else
						parent = nil;
						if p.config and p.config.catAmbiguousGeoChains then
							result = result .. p.config.catAmbiguousGeoChains;
						end
					end
				end

				if not hasAdditionalQualifiers then
					for i = 2, #parentSnaks, 1 do
						local parentSnak = parentSnaks[ i ];
						insertFromSnak( parentSnak, entriesToLookupCategory )
					end
				end

				do
					local i = #parentSnaks;
					while i > 1 do
						local prevEntity = parentEntities[ i - 1 ];
						-- TODO: use English labels, if there is no current language labels
						local prevLabel = getLabel( context, prevEntity, boundaries ) or '';
						local nextEntity = parentEntities[ i ];
						local nextLabel = getLabel( context, nextEntity, boundaries ) or '';
						if p.config and p.config.hideSameLabels == true and prevLabel == nextLabel then
							-- do not output same label twice (NY, NY, USA)
							table.remove( parentSnaks, i );
							table.remove( parentEntities, i );
						elseif p.config and p.config.hidePartOfLabels == true and isPartOfNext( prevLabel, ' ' .. nextLabel ) then
							-- do not output same label if it's part of previos
							table.remove( parentSnaks, i - 1 );
							table.remove( parentEntities, i - 1 );
						elseif p.config and p.config.hideUnitsForCapitals == true then
							-- do not ouput items whose capital is the first item
							local capitalId = nil;
							for _capitalId, capitalSnaks in pairs( filterCapitalOf ) do
								if #capitalSnaks > 0 then
									for __, capitalSnak in pairs( capitalSnaks ) do
										if parentSnaks[ i ].datavalue.value.id == capitalSnak.datavalue.value.id then
											capitalId = _capitalId;
											break;
										end
									end
								end
							end
							if capitalId ~= nil then
								if i == #parentSnaks then
									i = i - 1;
								end
								while i > 1 and parentEntities[ i ].id ~= capitalId do
									table.remove( parentSnaks, i );
									table.remove( parentEntities, i );
									i = i - 1;
								end
							end
						end
						i = i - 1;
					end
				end

				if isSkipTopLevel( parentEntities[ #parentEntities ] ) then
					table.remove( parentSnaks, #parentEntities );
					table.remove( parentEntities, #parentEntities );
				end

				if not hasAdditionalQualifiers then
					for i = 2, #parentSnaks, 1 do
						local parentSnak = parentSnaks[ i ];

						local parentOptions = context.cloneOptions( options );
						parentOptions['text'] = getLabel( context, parentEntities[ i ], boundaries );

						if p.config.reverseOrder then
							result = context.formatSnak( parentOptions, parentSnak ) .. ', ' .. result;
						else
							result = result .. ', ' .. context.formatSnak( parentOptions, parentSnak );
						end
					end
				end
			end
		end

		if wbStatus ~= true and p.config and p.config.catWikibaseError then
			result = result .. p.config.catWikibaseError;
		end
	end

	if options[ 'thisLocationOnly' ] then
		result = baseResult  .. context.formatRefs( options, statement );
	elseif p.config.reverseOrder then
		result = result .. baseResult .. context.formatRefs( options, statement );
	else
		result = baseResult .. result .. context.formatRefs( options, statement );
	end

	if categorizeByPlace then
		if property == 'P19' then result = result .. getCategory( 'P1464', entriesToLookupCategory ); end
		if property == 'P20' then result = result .. getCategory( 'P1465', entriesToLookupCategory ); end
		if property == 'P119' then result = result .. getCategory( 'P1791', entriesToLookupCategory ); end
	end

	return result;
end

-- append entity id from snak to result
function insertFromSnak( snak, result )
	if not categorizeByPlace then
		return;
	end
	if snak and
		snak.datavalue and
		snak.datavalue.type == 'wikibase-entityid' and
		snak.datavalue.value and
		snak.datavalue.value[ 'entity-type' ] == 'item'
	then
		table.insert( result, snak.datavalue.value.id );
	end
end

function getCategory( propertyToSearch, entriesToLookupCategoryFor )
	for _, placeId in pairs( entriesToLookupCategoryFor ) do
		local wbStatus, placeEntity = pcall( mw.wikibase.getEntity, placeId );
		if wbStatus == true and placeEntity then
			local claims = WDS.filter( placeEntity.claims, propertyToSearch );
	
			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
							return '[[' .. catEntity:getSitelink() .. ']]';
						end
					end
				end
			end
		end
	end
	return '';
end

-- get current of historic name of place
function getLabel( context, entityOrId, boundaries )
	if not entityOrId then
		return nil;
	end

	local lang = mw.language.getContentLanguage();
	local langCode = lang:getCode();

	-- name from label
	local label = nil;
	if type( entityOrId ) == 'string' then
		label = mw.wikibase.getLabel( entityOrId );
	else
		label = entityOrId:getLabel();
	end

	-- name from properties
	local results = getParentsInBoundariesSnakImpl( context, entityOrId, boundaries, {
		'P1813[language:' .. langCode .. ']',
		'P1448[language:' .. langCode .. ']',
		'P1705[language:' .. langCode .. ']'
	} );

	for r, result in pairs( results ) do
		if result.datavalue and
			result.datavalue.value and
			result.datavalue.value.text
		then
			label = result.datavalue.value.text;
			break;
		end
	end

	return label;
end

p.getLabel = getLabel;

local function calculateEndDateTimestamp( 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 statement.qualifiers and statement.qualifiers.P582 then
		for i, qualifier in ipairs( statement.qualifiers.P582 ) do
			local parsedTime = context.parseTimeFromSnak( qualifier );
			if parsedTime then
				return parsedTime;
			end
		end
	end

	-- check death day... do we have it at all?
	for h, propertyId in pairs( { "P570", "P577", "P571" } ) do
		local dateClaims = context.selectClaims( options, propertyId );
		if dateClaims then
			for i, statement in ipairs( dateClaims ) do
				local parsedTime = context.parseTimeFromSnak( statement.mainsnak );
				if parsedTime then
					return parsedTime;
				end
			end
		end
	end

	-- TODO: check other "end" properties

	-- no death day
	return os.time() * 1000;
end

function p.formatCountryClaimWithFlag( 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 is missing') end;
	if not statement then error('statement not specified') end;

	if not statement.mainsnak or
		not statement.mainsnak.datavalue or
		not statement.mainsnak.datavalue.value or
		not statement.mainsnak.datavalue.value.id
	then
		local result = context.formatStatementDefault( context, options, statement );
		if not result then
			return '';
		end
		return '<span class="country-name">' .. result .. '</span>';
	end
	
	local countryEntityId = statement.mainsnak.datavalue.value.id;
	local endDateTimestamp = calculateEndDateTimestamp( context, options, statement );
	local boundaries = getTimeBoundariesFromProperties( context, {'P570', 'P577', 'P571'} );

	local countryOptions = context.cloneOptions( options );
	if not countryOptions['text'] or countryOptions['text'] == '' then
		countryOptions['text'] = getLabel( context, countryEntityId, boundaries );
	end

	local flag = Flags.getFlag( context, countryEntityId, endDateTimestamp );	
	if flag then
		return flag .. '&nbsp;<span class="country-name">' ..
			context.formatStatementDefault( context, countryOptions, statement ) ..
			'</span>';
	end

	return '<span class="country-name">' ..
		context.formatStatementDefault( context, countryOptions, statement ) ..
		'</span>';
end

return p;