Модуль:ExampleList: различия между версиями

Материал из in.wiki
Перейти к навигации Перейти к поиску
(параметр trim)
 
(не показано 48 промежуточных версий 6 участников)
Строка 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
Строка 29: Строка 29:
 
getArgs = require('Module:Arguments').getArgs
 
getArgs = require('Module:Arguments').getArgs
 
end
 
end
−
local trim = require('Module:Yesno')(frame:getParent().args.trim, false)
+
yesno = require('Module:Yesno')
−
local args = copy(getArgs(frame, {trim = trim, removeBlanks = false})) --copy(frame.args)
+
local trim = not (yesno(frame:getParent().args.trim or frame:getParent().args._trim, false) == false)  -- по умолчанию true
−
local tname = args.template or args[1]
+
local args = copy(getArgs(frame, {trim = false, removeBlanks = false})) -- copy(frame.args)
−
local opener = args.opener or '* '
+
for k, v in pairs(args) do
−
local sep = args.sep
+
if type(k) == 'number' then
 +
v = v
 +
:gsub('^ *\n+', '')
 +
:gsub('\n+ *$', '')
 +
if trim then
 +
v = v
 +
:gsub('^ +', '')
 +
:gsub(' +$', '')
 +
end
 +
args[k] = v
 +
end
 +
end
 
 
−
if tname == '' or tname == nil then --при опущенном первом параметре берём имя шаблона из названия страницы
+
local g_alias = args._alias
−
tname = mw.language.new('ru'):lcfirst(mw.title.getCurrentTitle().rootText)
+
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)
 +
local class = args.class or args._class
 +
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
 
end
−
if args.template == nil then --имя вызываемого шаблона в неименованном первом параметре (или же взято из названия страницы или
+
−
table.remove(args, 1)   --в этой строчке вреда нет в любом случае), больше его обрабатывать не надо
+
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 targs, content = {}, ''
+
-- Узнаем, заполнено ли где-то поле комментария
 +
local are_comments = false
 
for k, v in pairs(args) do
 
for k, v in pairs(args) do
−
targs = mw.text.split(v, '\\')
+
local pre_targs = {}
−
table.insert(targs, 1, tname)
+
if type(k) == 'number' then
−
if (sep) then
+
if v ~= '' then
−
table.insert(targs, '_sep', sep)
+
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) == '&#95;' then
 +
targs[k2] = v2:gsub('&#95;', '_')
 +
else
 +
targs[k2] = v2
 +
end
 +
end
 +
end
 +
end
 +
-- если задан локальный алиас, то он используется вместо _template и глобального alias (консенсусная реализация, не меняю)
 +
-- иначе используется _template = tname и _alias = g_alias, если последний задан
 +
-- пример: {{стопка примеров|t=Проект:Часто_используемые_источники/Статус|_alias=/Статус|...}} даст
 +
-- <code>{{/Статус|...}}</code> → {{Проект:Часто_используемые_источники/Статус|...}}
 +
local targs_tname = targs._alias
 +
local local_alias = nil
 +
if not targs_tname then
 +
targs_tname = tname
 +
local_alias = g_alias
 +
end
 +
 +
targs._sep, targs._style, targs._nobr, targs._nocat, targs._spaced, targs._comment_sep, targs._template, targs._alias = sep, style, nobr,
 +
nocat, spaced, comment_sep, targs_tname, local_alias
 +
 +
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
 +
if class then table_content = table_content .. class end
 +
table_content = table_content .. '"\n! scope="col" | Код !! scope="col" | Результат'
 +
if are_comments then table_content = table_content .. ' !! Комментарий' end
 +
end
 +
content = table_content .. '\n' .. content
 +
if not inthemiddle then
 +
content = content .. '\n|}'
 
end
 
end
−
content = content .. opener .. tostring(expand(frame, 'пример', targs)) .. '\n'
 
 
end
 
end
 
 
−
return string.sub(content, 1, -2)
+
return content
 
end
 
end
  
 
return p
 
return p

Текущая версия от 23:06, 12 апреля 2025

Для документации этого модуля может быть создана страница Модуль:ExampleList/doc 

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 g_alias = args._alias
	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)
	local class = args.class or args._class
	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) == '&#95;' then
							targs[k2] = v2:gsub('&#95;', '_')
						else
							targs[k2] = v2
						end
					end
				end
			end
			-- если задан локальный алиас, то он используется вместо _template и глобального alias (консенсусная реализация, не меняю)
			-- иначе используется _template = tname и _alias = g_alias, если последний задан
			-- пример: {{стопка примеров|t=Проект:Часто_используемые_источники/Статус|_alias=/Статус|...}} даст
			-- <code>{{/Статус|...}}</code> → {{Проект:Часто_используемые_источники/Статус|...}}
			local targs_tname = targs._alias 
			local local_alias = nil
			if not targs_tname then
				targs_tname = tname
				local_alias = g_alias
			end
			
			targs._sep, targs._style, targs._nobr, targs._nocat, targs._spaced, targs._comment_sep, targs._template, targs._alias = sep, style, nobr,
			nocat, spaced, comment_sep, targs_tname, local_alias
				
			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
			if class then table_content = table_content .. class end
			table_content = table_content .. '"\n! scope="col" | Код !! scope="col" | Результат'
			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
Источник — https://in.wiki/w/index.php?title=Модуль:ExampleList&oldid=1566621