Модуль:ExampleList: различия между версиями
Перейти к навигации
Перейти к поиску
[непроверенная версия] | [непроверенная версия] |
← Новая страница: «local p = {} -- используется для того, чтобы можно было удалять элементы из таблицы local function c…» |
Нет описания правки |
||
Строка 4: | Строка 4: | ||
local function copy(other) | local function copy(other) | ||
local res = {} | local res = {} | ||
for k,v in pairs(other) do | for k, v in pairs(other) do | ||
res[k] = v | res[k] = v | ||
end | end | ||
Строка 30: | Строка 30: | ||
end | end | ||
yesno = require('Module:Yesno') | yesno = require('Module:Yesno') | ||
local trim = not (yesno(frame:getParent().args.trim or frame:getParent().args._trim, false) == false) -- по умолчанию true | local trim = not (yesno(frame:getParent().args.trim or frame:getParent().args._trim, false) == false) -- по умолчанию true | ||
local args = copy(getArgs(frame, {trim = | local args = copy(getArgs(frame, {trim = false, removeBlanks = false})) -- copy(frame.args) | ||
for k, v in pairs(args) do | |||
if type(k) == 'number' then | |||
v = v | |||
:gsub('^ *\n+', '') | |||
:gsub('\n+ *$', '') | |||
if trim then | |||
v = v | |||
:gsub('^ +', '') | |||
:gsub(' +$', '') | |||
end | |||
args[k] = v | |||
end | |||
end | |||
local tname = args.t or args._t or args.template or args._template | local tname = args.t or args._t or args.template or args._template | ||
local ucFirst = yesno(args.u or args._u, false) | |||
local opener = args.opener or args._opener | local opener = args.opener or args._opener | ||
local sep = args.sep or args._sep | local sep = args.sep or args._sep | ||
Строка 51: | Строка 66: | ||
opener = '' | opener = '' | ||
if between == nil and (style == '*pre' or style == '*pre↓') then | if between == nil and (style == '*pre' or style == '*pre↓') then | ||
between = '<div style="margin-top:3em"></div>' | if mw.isSubsting() then | ||
between = '{{^|3em}}' | |||
else | |||
between = '<div style="margin-top:3em"></div>' | |||
end | |||
end | end | ||
else | else | ||
Строка 58: | Строка 77: | ||
end | end | ||
if between == nil and (style == 'pre' or style == '*pre' or style == 'pre↓' or style == '*pre↓') then | if between == nil and (style == 'pre' or style == '*pre' or style == 'pre↓' or style == '*pre↓') then | ||
between = '<div style="margin-top:2em"></div>' | if mw.isSubsting() then | ||
between = '{{^|2em}}' | |||
else | |||
between = '<div style="margin-top:2em"></div>' | |||
end | |||
end | end | ||
if tname == '' or tname == nil then -- при | if tname == '' or tname == nil then -- при опущенном первом параметре берём имя шаблона из названия страницы | ||
local ru = mw.language.new('ru') | |||
local currentTitle = mw.title.getCurrentTitle().rootText | |||
if not ucFirst and | |||
((ru:uc(currentTitle) ~= currentTitle and -- названия со всеми заглавными буквами | |||
not mw.ustring.match(currentTitle, '^[А-Яа-яA-Za-z]+:?[А-ЯA-Z]') -- Книга:Литературное наследство, TranslateDate | |||
) or | |||
#currentTitle == 1 | |||
) | |||
then | |||
tname = ru:lcfirst(currentTitle) | |||
else | |||
tname = currentTitle | |||
end | |||
end | end | ||
local | -- Узнаем, заполнено ли где-то поле комментария | ||
local are_comments = false | |||
for k, v in pairs(args) do | |||
local pre_targs = {} | |||
if type(k) == 'number' then | |||
if v ~= '' then | |||
pre_targs = mw.text.split(v, '\\') | |||
for k2, v2 in pairs(pre_targs) do | |||
local equals_pos | |||
if v2:sub(1, 1) == '_' and v2:find('=') then -- параметры настроек шаблона {{пример}} | |||
equals_pos = v2:find('=') | |||
end | |||
if equals_pos then | |||
local param = v2:sub(1, equals_pos - 1) | |||
if param == '_comment' then are_comments = true end | |||
end | |||
end | |||
end | |||
end | |||
end | |||
local content, i = '', 0 | |||
for k, v in pairs(args) do | for k, v in pairs(args) do | ||
local pre_targs, targs = {}, {} | local pre_targs, targs = {}, {} | ||
Строка 71: | Строка 127: | ||
i = i + 1 | i = i + 1 | ||
if are_comments then | |||
targs._comment = '' -- значение по умолчанию | |||
end | |||
if v ~= '' then | if v ~= '' then | ||
pre_targs = mw.text.split(v, '\\') | pre_targs = mw.text.split(v, '\\') | ||
for k2, v2 in pairs(pre_targs) do | for k2, v2 in pairs(pre_targs) do | ||
equals_pos | local equals_pos | ||
if v2:sub(1, 1) == '_' and v2:find('=') then -- параметры настроек шаблона | if v2:sub(1, 1) == '_' and v2:find('=') then -- параметры настроек шаблона {{пример}} | ||
equals_pos = v2:find('=') | equals_pos = v2:find('=') | ||
end | end | ||
if equals_pos then | if equals_pos then | ||
param = v2:sub(1, equals_pos-1) | local param = v2:sub(1, equals_pos - 1) | ||
value = v2:sub(equals_pos+1) | local value = v2:sub(equals_pos + 1) | ||
targs[param] = value | targs[param] = value | ||
else | else | ||
if v2:sub(1, 5) == '_' then | if v2:sub(1, 5) == '_' then | ||
Строка 94: | Строка 152: | ||
table.insert(targs, 1, tname) | table.insert(targs, 1, tname) | ||
targs._sep, targs._style, targs._nobr, targs._nocat, targs._spaced, targs._comment_sep | targs._sep, targs._style, targs._nobr, targs._nocat, targs._spaced, targs._comment_sep = sep, style, nobr, | ||
nocat, spaced, comment_sep | |||
if not targs._prefix then | |||
targs._prefix = prefix | |||
end | |||
if not targs._postfix then | |||
targs._postfix = postfix | |||
end | |||
local adjusted_opener | local adjusted_opener | ||
if style == 'pre' and opener == '*' and targs._before == nil then | if style == 'pre' and opener == '*' and targs._before == nil then | ||
Строка 101: | Строка 165: | ||
targs._style = '*pre' | targs._style = '*pre' | ||
else | else | ||
adjusted_opener = opener | if style == 'pre' and opener == '*' then | ||
if mw.isSubsting() then | |||
targs._before = targs._before .. '{{^|-0.5em}}' | |||
else | |||
targs._before = targs._before .. '<div style="margin-top:-0.5em"></div>' | |||
end | |||
end | |||
adjusted_opener = opener == '*' and '* ' or opener | |||
end | end | ||
--[[if not targs._style then | --[[if not targs._style then | ||
Строка 107: | Строка 178: | ||
end]] | end]] | ||
content = content .. (i ~= 1 and (between and between .. '\n' or '\n') or '') .. adjusted_opener .. | local exampleCode | ||
if mw.isSubsting() then | |||
exampleCode = '{{пример' | |||
for name, value in pairs(targs) do | |||
if type(name) == 'number' then | |||
exampleCode = exampleCode .. '|' .. value | |||
else | |||
exampleCode = exampleCode .. '|' .. name .. '=' .. value | |||
end | |||
end | |||
exampleCode = exampleCode .. '}}' | |||
else | |||
exampleCode = tostring(expand(frame, 'пример', targs)) | |||
end | |||
content = content .. (i ~= 1 and (between and between .. '\n' or '\n') or '') .. adjusted_opener .. exampleCode | |||
end | end | ||
end | end |
Версия от 12:11, 7 августа 2019
Реализация шаблонов {{стопка примеров}} и {{таблица примеров}}, см. их документацию.
См. также
- Модуль:Example
- {{пример}}
local p = {}
-- используется для того, чтобы можно было удалять элементы из таблицы
local function copy(other)
local res = {}
for k, v in pairs(other) do
res[k] = v
end
return res
end
-- вызов шаблона, при ошибке возвращает пустую строку
local function expand(frame, tname, targs)
local success, result = pcall(
frame.expandTemplate,
frame,
{title = tname, args = targs}
)
if success then
return result
else
return ''
end
--return frame:expandTemplate({title = tname, args = args})
end
function p.main(frame)
if not getArgs then
getArgs = require('Module:Arguments').getArgs
end
yesno = require('Module:Yesno')
local trim = not (yesno(frame:getParent().args.trim or frame:getParent().args._trim, false) == false) -- по умолчанию true
local args = copy(getArgs(frame, {trim = false, removeBlanks = false})) -- copy(frame.args)
for k, v in pairs(args) do
if type(k) == 'number' then
v = v
:gsub('^ *\n+', '')
:gsub('\n+ *$', '')
if trim then
v = v
:gsub('^ +', '')
:gsub(' +$', '')
end
args[k] = v
end
end
local tname = args.t or args._t or args.template or args._template
local ucFirst = yesno(args.u or args._u, false)
local opener = args.opener or args._opener
local sep = args.sep or args._sep
local prefix = args.prefix or args._prefix
local postfix = args.postfix or args._postfix
local style = args.style or args._style
local nobr = args.nobr or args._nobr
local nocat = args.nocat or args._nocat
local spaced = args.spaced or args._spaced
local comment_sep = args.comment_sep or args._comment_sep
local between = args.between or args._between
local inthemiddle = yesno(args.inthemiddle or args._inthemiddle, false)
local wide = yesno(args.wide or args._wide, false)
if not opener then
if style == 'wikitable' then
opener = '|-\n| '
elseif style == 'pre' or style == '*pre' or style == 'pre↓' or style == '*pre↓' then
opener = ''
if between == nil and (style == '*pre' or style == '*pre↓') then
if mw.isSubsting() then
between = '{{^|3em}}'
else
between = '<div style="margin-top:3em"></div>'
end
end
else
opener = '* '
end
end
if between == nil and (style == 'pre' or style == '*pre' or style == 'pre↓' or style == '*pre↓') then
if mw.isSubsting() then
between = '{{^|2em}}'
else
between = '<div style="margin-top:2em"></div>'
end
end
if tname == '' or tname == nil then -- при опущенном первом параметре берём имя шаблона из названия страницы
local ru = mw.language.new('ru')
local currentTitle = mw.title.getCurrentTitle().rootText
if not ucFirst and
((ru:uc(currentTitle) ~= currentTitle and -- названия со всеми заглавными буквами
not mw.ustring.match(currentTitle, '^[А-Яа-яA-Za-z]+:?[А-ЯA-Z]') -- Книга:Литературное наследство, TranslateDate
) or
#currentTitle == 1
)
then
tname = ru:lcfirst(currentTitle)
else
tname = currentTitle
end
end
-- Узнаем, заполнено ли где-то поле комментария
local are_comments = false
for k, v in pairs(args) do
local pre_targs = {}
if type(k) == 'number' then
if v ~= '' then
pre_targs = mw.text.split(v, '\\')
for k2, v2 in pairs(pre_targs) do
local equals_pos
if v2:sub(1, 1) == '_' and v2:find('=') then -- параметры настроек шаблона {{пример}}
equals_pos = v2:find('=')
end
if equals_pos then
local param = v2:sub(1, equals_pos - 1)
if param == '_comment' then are_comments = true end
end
end
end
end
end
local content, i = '', 0
for k, v in pairs(args) do
local pre_targs, targs = {}, {}
if type(k) == 'number' then
i = i + 1
if are_comments then
targs._comment = '' -- значение по умолчанию
end
if v ~= '' then
pre_targs = mw.text.split(v, '\\')
for k2, v2 in pairs(pre_targs) do
local equals_pos
if v2:sub(1, 1) == '_' and v2:find('=') then -- параметры настроек шаблона {{пример}}
equals_pos = v2:find('=')
end
if equals_pos then
local param = v2:sub(1, equals_pos - 1)
local value = v2:sub(equals_pos + 1)
targs[param] = value
else
if v2:sub(1, 5) == '_' then
targs[k2] = v2:gsub('_', '_')
else
targs[k2] = v2
end
end
end
end
table.insert(targs, 1, tname)
targs._sep, targs._style, targs._nobr, targs._nocat, targs._spaced, targs._comment_sep = sep, style, nobr,
nocat, spaced, comment_sep
if not targs._prefix then
targs._prefix = prefix
end
if not targs._postfix then
targs._postfix = postfix
end
local adjusted_opener
if style == 'pre' and opener == '*' and targs._before == nil then
adjusted_opener = ''
targs._style = '*pre'
else
if style == 'pre' and opener == '*' then
if mw.isSubsting() then
targs._before = targs._before .. '{{^|-0.5em}}'
else
targs._before = targs._before .. '<div style="margin-top:-0.5em"></div>'
end
end
adjusted_opener = opener == '*' and '* ' or opener
end
--[[if not targs._style then
targs._style = style
end]]
local exampleCode
if mw.isSubsting() then
exampleCode = '{{пример'
for name, value in pairs(targs) do
if type(name) == 'number' then
exampleCode = exampleCode .. '|' .. value
else
exampleCode = exampleCode .. '|' .. name .. '=' .. value
end
end
exampleCode = exampleCode .. '}}'
else
exampleCode = tostring(expand(frame, 'пример', targs))
end
content = content .. (i ~= 1 and (between and between .. '\n' or '\n') or '') .. adjusted_opener .. exampleCode
end
end
if style == 'wikitable' then
local table_content = ''
if not inthemiddle then
table_content = '{| class="wikitable '
if wide then table_content = table_content .. 'wide' end
table_content = table_content .. '"\n! Код !! Результат'
if are_comments then table_content = table_content .. ' !! Комментарий' end
end
content = table_content .. '\n' .. content
if not inthemiddle then
content = content .. '\n|}'
end
end
return content
end
return p