Karaby: 1 версия импортирована

2025-07-27T15:36:41Z

1 версия импортирована

← Предыдущая версия	Версия от 15:36, 27 июля 2025
(нет различий)

109.187.231.88: fix

2025-01-26T17:39:27Z

fix

Новая страница

local sp = {} -- Как положено в языке Lua, объявляем имя результирующей переменной модуля.

function spouseId ( ddd ) --[[ объявляем внутреннюю функцию, выдающую, как результат,
перечень супругов (при их наличии) из заданного элемента Викиданных ]]
spouseId = '' -- присваиваем результирующей переменной пустое значение
test , GetSpouseId = pcall ( mw.wikibase.getBestStatements , ddd , 'P26' ) --[[ производим безопасный запрос
таблицы с перечнем супругов из заданного элемента Викиданных ]]
if not test -- проверяем: если запрос был неудачным,
then do return spouseId end -- то возвращаем пустое значение
end -- закончили проверку
for key1, key2 in pairs ( GetSpouseId ) -- для каждой пары полученных табличных данных производим циклические действия
do spouseId = spouseId .. ',' .. key2.mainsnak.datavalue.value.id --[[ добавляем к результирующей переменной запятую
и id элемента Викиданных очередного супруга ]]
end -- циклические действия закончились
spouseId = string.gsub( spouseId, ',' , '', 1 ) -- вырезаем из результирующей переменной ненужную начальную запятую
return spouseId -- возвращаем результирующую переменную
end; -- локальная функция закончилась

function siteLink ( bbb ) --[[ объявляем внутреннюю функцию, выдающую, как результат,
ссылку на страницу Википедии (при её наличии) из заданного элемента Викиданных ]]
GetsiteLink = mw.wikibase.getSitelink ( bbb , 'ruwiki' ) --[[ производим запрос
ссылки на статью в разделе Википедии на русском языке из заданного элемента Викиданных ]]
if GetsiteLink ~= nil -- проверяем: если запрос был успешным,
then do return '[[' .. GetsiteLink .. ']]' end -- то возвращаем ссылку на статью в формате [[Название статьи]]
end -- закончили проверку
GetsiteLink =mw.wikibase.getSitelink ( bbb , 'enwiki' ) --[[ производим запрос
ссылки на статью в разделе Википедии на английском языке из заданного элемента Викиданных ]]
if GetsiteLink ~= nil -- проверяем: если запрос был успешным,
then do return '[[:en:' .. GetsiteLink .. '|' .. GetsiteLink .. ']]' end -- то возвращаем ссылку на статью
-- в формате [[:en:Page name|Page name]]
end -- закончили проверку
GetsiteLink = mw.wikibase.getSitelink ( bbb , 'dewiki' ) --[[ производим запрос
ссылки на статью в разделе Википедии на немецком языке из заданного элемента Викиданных ]]
if GetsiteLink ~= nil -- проверяем: если запрос был успешным,
then do return '[[:de:' .. GetsiteLink .. '|' .. GetsiteLink .. ']]' end -- то возвращаем ссылку на статью
-- в формате [[:de:Page name|Page name]]
end -- закончили проверку
return nil -- если все запросы оказались безуспешными, возвращаем пустое значение
end; -- локальная функция закончилась

function sid (eee) --[[ объявляем внутреннюю функцию, выдающую, как результат,
id элемента Викиданных, для которого будет составляться список супругов ]]
test2, test3 = pcall ( mw.wikibase.entityExists , eee ) --[[ производим безопасный запрос
на предмет существования заданного элемента Викиданных ]]
if test2 and test3 and eee ~= 'Q6' -- проверяем: если запрос оказался успешным и заданный элемент Викиданных существует,
then do return eee end -- то возвращаем id заданного элемента Викиданных
end -- закончили проверку
return mw.wikibase.getEntityIdForCurrentPage() -- возвращаем id элемента Викиданных,
-- привязанного к странице, вызывающей модуль
end; -- локальная функция закончилась

function sp.spouse (frame) --[[ объявляем глобальную функцию, выдающую, как результат,
для человека с заданным id элемента Вкиданных,
или человека, со страницы которого производится вызов функции,
ссылку на страницу Википедии о единственном(ой) супруге, указанном на Викиданных,
или маркированный список таких супругов при их неединственности ]]
if frame.args and frame.args[1] and frame.args[1] ~='' -- проверяем: если прислан аргумент,
then vid = frame.args[1] -- то присваиваем переменной значение присланного аргумента
else vid = 'Q6' -- иначе присваиваем переменной значение id несуществующего элемента Викиданных
end -- закончили проверку
id = sid ( vid ) --[[ через локальную функцию присваиваем переменной
значение id элемента Викиданных, с которым придётся работать ]]
if id == nil -- проверяем: если нет такого элемента Викиданных,
then do return nil end -- то возвращаем пустое значение
end -- закончили проверку
id2 = spouseId ( id ) --[[ через локальную функцию присваиваем переменной
значение списка id элементов Викиданных супругов ]]
if id2 == '' -- проверяем: если на Викиданных отсутствуют супруги,
then do return nil end -- то возвращаем пустое значение
end -- закончили проверку
if mw.ustring.match(id2, ",") == nil -- проверяем: если получен не список супругов, а единственное значение,
then do return siteLink (id2) end -- то возвращаем ссылку (при её наличии) на соответствующую статью
end -- закончили проверку
spouse = '' -- задаём переменной пустое значение
for did in mw.ustring.gmatch ( id2 , "[Qq]%d+" ) -- для каждого супруга
do -- делаем циклические действия
spouse2 = siteLink (did) -- запрашиваем ссылку на страницу
if spouse2 ~= nil -- проверяем: если сссылка на страницу получена,
then spouse = spouse .. '\n* ' .. spouse2 -- то добавляем её в маркированный список
end -- закончили проверку
end -- закончили циклические действия
return spouse -- возвращаем полученный в функции результат
end -- глобальная функция закончилась

return sp -- возвращаем полученный в модуле результат

Модуль:Spouse - История изменений

Karaby: 1 версия импортирована

109.187.231.88: fix