Модуль: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-function-not-found"] = "Функция для отображения свойства не найдена", ["claim-module-not-found"] = "Модуль для отображения утверждения не найден.", ["claim-function-not-found"] = "Функция для отображения утверждения не найдена.", ["value-module-not-found"] = "Модуль для отображения значения не найден.", ["value-function-not-found"] = "Функция для отображения значения не найдена." },   ["somevalue"] = "неизвестно", ["novalue"] = "", ["approximate"] = 'прибл. ',   ["presumably"] = 'предп. ', }

-- 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 p = {}

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

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

local function loadCacheSafe( entityId ) local status, result = pcall( function return mw.loadData( 'Module:WikidataCache/' .. entityId ) end ); if ( status == true ) then return result; end return nil; 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 ) then if 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 ) if id then local cached = loadCacheSafe( id ); if ( cached ) then return cached; end return mw.wikibase.getEntityObject( id ) end local entity = mw.wikibase.getEntityObject; if ( entity ) then local cached = loadCacheSafe( entity.id ); if ( cached ) then return cached; end 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, propertyId ) 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 propertyId ) then error( 'propertyId not specified'); end;

local allPropertyClaims = options.entity.claims[ string.upper( propertyId ) ]; if ( not allPropertyClaims ) then return nil; end

--Поиск предпочтительного ранга local requiredRank = 'normal' -- ранг по умолчанию (deprecated не используем) -- если есть хотя бы один preferred, используем только их for i, statement in pairs( allPropertyClaims ) do		if (statement.rank == 'preferred') then requiredRank = 'preferred'; break end end local result = {}; if ( allPropertyClaims[0] ) then for i = 0, #allPropertyClaims do			local statement = allPropertyClaims[i] if (statement.rank == requiredRank) then result[ #result + 1 ] = statement; end end else for i, statement in pairs( allPropertyClaims ) do			if (statement.rank == requiredRank) then result[ #result + 1 ] = statement; end end end

if ( #result == 0 ) then return nil; 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 = { 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 local timeISO6801 = tostring( snak.datavalue.value.time ) return parseISO8601( timeISO6801 ); 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 formattedStatement = ' ' .. formattedStatement .. ' '           table.insert( formattedClaims, formattedStatement ) end end

-- создание текстовой строки со списком оформленых заявлений из таблицы return mw.text.listToText( formattedClaims, options.separator, options.conjunction ) 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 = 'Q' .. qualifier.datavalue.value["numeric-id"]; if ( 'Q18086598' == circumstance ) then circumstances.approximate = 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 ( 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 return before .. options.i18n['somevalue'] .. after; elseif snak.snaktype == 'novalue' then return before .. options.i18n['novalue'] .. after; elseif snak.snaktype == 'value' then if ( circumstances.presumably ) then before = before .. options.i18n.presumably; end if ( circumstances.approximate ) then before = before .. options.i18n.approximate; end

return before .. formatDatavalue( context, options, snak.datavalue ) .. 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 -- в противном случае формируются параметры для вызова шаблона °N, °W -- нужно дописать в документации шаблона, что он отсюда вызывается, и что -- любое изменние его парамеров должно быть согласовано с кодом тут 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 = ''

return g_frame:preprocess(coord) end end

local function getDefaultValueFunction( datavalue ) -- вызов обработчиков по умолчанию для известных типов значений if datavalue.type == 'wikibase-entityid' then -- идентификатор сущности return function( context, options, value ) return formatEntityId( getEntityIdFromValue( value ), options ) end; elseif datavalue.type == 'string' then -- строка return function( context, options, value ) return value end; elseif datavalue.type == 'monolingualtext' then -- моноязычный текст (строка с указанием языка) return function( context, options, value ) return ' ' .. value.text .. ' ' 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.new( 'ru' ) 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 ) 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 ); local functionToCall = getUserFunction( options, 'value', context.formatValueDefault ); return functionToCall( context, options, datavalue.value ); end

-- Небольшой словарь упрощенного отображения (TODO: надо сделать расширенный с учётом даты) local simpleReplaces = { Q30 = 'США', Q148 = 'КНР', Q183 = 'Германия', Q258 = 'ЮАР', Q423 = 'КНДР', Q2184 = 'РСФСР', Q2895 = 'Белорусская ССР', Q15180 = 'СССР', Q16957 = 'ГДР', Q130229 = 'Грузинская ССР', Q130280 = 'Эстонская ССР', Q131337 = 'Азербайджанская ССР', Q132856 = 'Армянская ССР', Q133356 = 'Украинская ССР', Q168811 = 'Казахская ССР', Q170895 = 'Молдавская ССР', Q173761 = 'Литовская ССР', Q192180 = 'Латвийская ССР', Q199707 = 'Туркменская ССР', Q199711 = 'Таджикская ССР', Q484578 = 'Узбекская ССР', Q809806 = 'Башкирская АССР', Q1157215 = 'Дагестанская АССР', }

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

Принимает: строку индентификатора (типа 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  .. label ..  else return  .. link ..  end end

if label then return label end -- сообщение об отсутвии локализованного названия -- not good, but better than nothing return '' .. entityId .. '? ' .. categoryLinksToEntitiesWithMissingLabel; end

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

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

function p.formatProperty( frame ) local args = frame.args local plain = toBoolean( frame.args.plain, false ); frame.args.nocat = toBoolean( frame.args.nocat, false ); frame.args.references = toBoolean( frame.args.references, true );

-- проверка на отсутствие обязательного параметра property if not frame.args.property then throwError( 'property-param-not-provided' ) end

-- если значение передано в параметрах вызова то выводим только его if frame.args.value and frame.args.value ~= '' then if plain or frame.args.nocat or frame:callParserFunction( '#property', frame.args.property )=='' then -- опция, запрещающая оформление значения, поэтому никак не трогаем return frame.args.value else -- если трогать всё-таки можно, добавляем категорию-маркер return args.value .. categoryLocalValuePresent; end end

if ( plain ) then -- вызова стандартного обработчика без оформления, если передана опция plain return frame:callParserFunction( '#property', frame.args.property ); 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

return p