Dzmuh: Новая страница: «local p = {} local cc = nil --required when needed local roman = nil --required when needed local yesno = nil --required when needed local YEAR_PLACEHOLDER = '<...»

2022-01-10T04:27:27Z

Новая страница: «local p = {} local cc = nil --required when needed local roman = nil --required when needed local yesno = nil --required when needed local YEAR_PLACEHOLDER = '<...»

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

local p = {}

local cc = nil --required when needed
local roman = nil --required when needed
local yesno = nil --required when needed

local YEAR_PLACEHOLDER = '<год>'
local COUNTRY_NOM_PLACEHOLDER = '<страна>'
local CENTURY_NOM_PLACEHOLDER = '<век>'
local COUNTRY_GEN_PLACEHOLDER = '<страны>'
local CENTURY_GEN_PLACEHOLDER = '<века>'
local COUNTRY_LOC_PLACEHOLDER = '<в стране>'
local LAST_DIGIT_PLACEHOLDER = '<последняя_цифра>'
local DECADE_PLACEHOLDER = '<десятилетие>'

-- простой аналог [[Модуль:Math/tonumber#year]] без дат до нашей эры и обработки других чисел
local function year_from_title()
local title = mw.title.getCurrentTitle().text
for t in mw.ustring.gmatch(title, '[0-9]+') do
return t
end
return ''
end

local function error_string(s)
return '<span class="error">' .. s .. '</span>'
end

local function get_year(args)
return tonumber(args['year']) or tonumber(args['год']) or tonumber(year_from_title())
end

local function subst_country(frame, cat_pattern, country)
if cat_pattern:find(COUNTRY_NOM_PLACEHOLDER) then
cat_pattern = mw.ustring.gsub(cat_pattern, COUNTRY_NOM_PLACEHOLDER, country)
end
if cat_pattern:find(COUNTRY_GEN_PLACEHOLDER) then
if cc == nil then cc = require('Module:CountryCases') end
cat_pattern = mw.ustring.gsub(cat_pattern, COUNTRY_GEN_PLACEHOLDER, cc._genitive(frame, country))
end
if cat_pattern:find(COUNTRY_LOC_PLACEHOLDER) then
if cc == nil then cc = require('Module:CountryCases') end
cat_pattern = mw.ustring.gsub(cat_pattern, COUNTRY_LOC_PLACEHOLDER, cc._locative(frame, country))
end
return cat_pattern
end

function p.theme(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
local args = getArgs(frame)
local year = get_year(args)
if year == nil then
return error_string('Ошибка: не указан год')
end
local wt = mw.html.create('table'):addClass('standard'):attr('align', 'center')
local row = wt:tag('tr')
local range = tonumber(args['range']) or tonumber(args['диапазон']) or 5
local country = args['страна'] or args['country']
local cat_pattern = args[1]
cat_pattern = subst_country(frame, cat_pattern, country)

local year_cat = function(y)
return '[[:К:' .. mw.ustring.gsub(cat_pattern, YEAR_PLACEHOLDER, tostring(y)) .. '|' .. tostring(y) .. ']]'
end

local start_year
local min_year = tonumber(args['min']) or tonumber(args['мин'])
if min_year then
start_year = math.max(min_year, year - range)
if year < start_year then
return error_string('Год не попадает в диапазон: меньше минимального значения ' .. tostring(min_year))
end
else
start_year = year - range
end
for y = start_year, year -1 do
row:tag('td'):wikitext(year_cat(y))
end
row:tag('th'):wikitext(tostring(year))
local end_year
local max_year = tonumber(args['max']) or tonumber(args['макс'])
if max_year then
end_year = math.min(max_year, year + range)
if year > end_year then
return error_string('Год не попадает в диапазон: больше максимального значения ' .. tostring(max_year))
end
else
end_year = year + range
end
for y = year +1, end_year do
row:tag('td'):wikitext(year_cat(y))
end
return tostring(wt)
end

local function deexclamatecat(pat)
local split = mw.text.split(pat, '!', true)
if split == nil or #split == 0 then
return ''
end
return '[[К:' .. split[1] .. (split[2] and ('|' .. split[2]) or '') .. ']]'
end

local function century_num(year, is_decade)
if is_decade and year % 100 == 0 then
return math.floor((year) / 100) + 1
end
return math.floor((year-1) /100 +1 )
end

local function get_roman_century(frame, year, is_decade)
if roman == nil then
roman = require('Module:Roman').convert
end
return year and roman(century_num(year, is_decade)) or error_string('Укажите год')
end

function p.cats(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
local tt = require('Module:TableTools')
local args = getArgs(frame)
local year = get_year(args)
yesno = yesno or require('Module:Yesno')
local is_decade = yesno(args['is_decade']) or yesno(args['десятилетие'])
local country = args['страна'] or args['country']
local ret = ''
for _, pat in tt.sparseIpairs(args) do
ret = ret .. deexclamatecat(pat) .. '\n'
end
ret = subst_country(frame, ret, country)
if ret:find(YEAR_PLACEHOLDER) then
ret = mw.ustring.gsub(ret, YEAR_PLACEHOLDER, tostring(year))
end
local roman_century = nil
if ret:find(CENTURY_NOM_PLACEHOLDER) then
roman_century = roman_century or get_roman_century(frame, year, is_decade)
ret = mw.ustring.gsub(ret, CENTURY_NOM_PLACEHOLDER, roman_century .. ' век')
end
if ret:find(CENTURY_GEN_PLACEHOLDER) then
roman_century = roman_century or get_roman_century(frame, year, is_decade)
ret = mw.ustring.gsub(ret, CENTURY_GEN_PLACEHOLDER, roman_century .. ' века')
end
if ret:find(LAST_DIGIT_PLACEHOLDER) then
ret = mw.ustring.gsub(ret, LAST_DIGIT_PLACEHOLDER, tostring(year % 10))
end
if ret:find(DECADE_PLACEHOLDER) then
ret = mw.ustring.gsub(ret, DECADE_PLACEHOLDER, tostring(year - (year % 10)) .. '-е')
end
if args['demo'] then --для документации
return frame:extensionTag('pre', ret)
else
return ret
end
end

function p.decade_theme(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
local args = getArgs(frame)
local year = get_year(args)
if year == nil then
return error_string('Ошибка: не указан год')
end
if year % 10 ~= 0 then
return error_string('Ошибка: должно использоваться только на страницах десятилетий')
end

local wt = mw.html.create('table'):addClass('standard'):attr('align', 'center')
local row = wt:tag('tr')
local range = tonumber(args['range']) or tonumber(args['диапазон']) or 5
local country = args['страна'] or args['country']
local cat_pattern = args[1]
cat_pattern = subst_country(frame, cat_pattern, country)

local year_cat = function(y)
return '[[:К:' .. mw.ustring.gsub(cat_pattern, DECADE_PLACEHOLDER, tostring(y) .. '-е годы') .. '|' .. tostring(y) .. '-е]]'
end

local start_year
local min_year = tonumber(args['min']) or tonumber(args['мин'])
if min_year then
if min_year % 10 ~= 0 then
return error_string('Ошибка: заданный минимальный год не является границей десятилетия')
end
start_year = math.max(min_year, year - range * 10)
if year < start_year then
return error_string('Год не попадает в диапазон: меньше минимального значения ' .. tostring(min_year))
end
else
start_year = year - range * 10
end
for y = start_year, year - 10, 10 do
row:tag('td'):wikitext(year_cat(y))
end
row:tag('th'):wikitext(tostring(year) .. '-е')
local end_year
local max_year = tonumber(args['max']) or tonumber(args['макс']) or 2020 -- в будущее сильно уходить не надо, на 10 лет хватит
if max_year then
if max_year % 10 ~= 0 then
return error_string('Ошибка: заданный максимальный год не является границей десятилетия')
end
end_year = math.min(max_year, year + range * 10)
if year > end_year then
return error_string('Год не попадает в диапазон: больше максимального значения ' .. tostring(max_year))
end
end
for y = year + 10, end_year, 10 do
row:tag('td'):wikitext(year_cat(y))
end
return tostring(wt)
end

return p

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

Dzmuh: Новая страница: «local p = {} local cc = nil --required when needed local roman = nil --required when needed local yesno = nil --required when needed local YEAR_PLACEHOLDER = '<...»