Module:Demo - Revision history

Merc: 1 revision imported

2025-05-04T08:30:58Z

1 revision imported

← Older revision	Revision as of 08:30, 4 May 2025
(No difference)

wikipedia>BrandonXLF: Undid revision 1240199590 by BrandonXLF (talk)

2024-08-14T02:31:11Z

Undid revision 1240199590 by BrandonXLF (talk)

← Older revision		Revision as of 02:31, 14 August 2024
Line 22:		Line 22:
	end		end
	return orphan, parent		return orphan, parent
			end

			function getSeparator(args, default)
			local br = tonumber(args.br) and ('<br>'):rep(args.br) or args.br
			local sep = args.sep or br or default
			return #sep > 0 and ' ' .. sep .. ' ' or sep
	end		end

	function p.get(frame, arg, passArgs)		function p.get(frame, arg, passArgs)
	local orphan, frame = disinherit(frame, passArgs and {arg or 1})		local orphan, frame = disinherit(frame, passArgs and {arg or 1})
	local code~~, noWiki, preserve~~ = frame.args[arg or 1] or ''		local code = frame.args[arg or 1] or ''
	if code:match'nowiki' then		if code:match'UNIQ%-%-nowiki' then
	~~local placeholder, preserve = ('6'):char(), {}~~
	code = mw.text.unstripNoWiki(code)		code = mw.text.unstripNoWiki(code)
	~~noWiki = code:gsub('%%', placeholder)~~:gsub('<', '<'):gsub('>', '>')		:gsub('<', '<')
	~~for k in noWiki~~:~~gmatch~~('&.-;') do		:gsub('>', '>')
	~~if not preserve[k] then~~		:gsub('"', '"')
	~~preserve[k]~~ = ~~true~~		-- Replace `}%-` with `}-` because of some server quirk leading to
	~~table~~.~~insert~~(~~preserve,~~ (k:~~gsub~~('~~&',~~ '&~~amp~~;'~~)))~~		-- =mw.text.unstripNoWiki(mw.getCurrentFrame():preprocess('<nowiki>}-</nowiki>'))
	~~noWiki = noWiki~~:gsub('(&.-;)', '~~%%%s~~')		-- outputting `}-` instead of `}-`, while it's ok with `<nowiki>} -</nowiki>`
	~~end~~		:gsub('}%-', '}-')
	~~end~~		-- The same with `-{`
	~~noWiki = mw.text.nowiki(noWiki):format(unpack(preserve))~~:gsub(~~placeholder~~, '%%')		:gsub('%-{', '-{')
	end		end
			local kill_categories = frame.args.demo_kill_categories or frame.args.nocat
	return {		return {
	source = ~~noWiki or~~ code,		source = code,
	output = orphan:preprocess(code):gsub(~~frame.args.demo_kill_categories~~ and '%[%[Category.-%]%]' or '', ''),		output = orphan:preprocess(code):gsub(kill_categories and '%[%[Category.-%]%]' or '', ''),
	frame = frame		frame = frame
	}		}
Line 50:		Line 56:
	local show = demoTable or p.get(frame)		local show = demoTable or p.get(frame)
	local args = show.frame.args		local args = show.frame.args
	~~args.br = tonumber(args.br or 1) and ('<br>'):rep(args.br or 1) or args.br or ''~~
	if show[args.result_arg] then		if show[args.result_arg] then
	return show[args.result_arg]		return show[args.result_arg]
	end		end
	~~return string.format~~('~~<pre%s>%s</pre>%s%s~~', args.~~style and string.format~~(~~" style~~='%s'", args.style~~) or ''~~, show.source, args.~~br,~~ show.output)		local yesno = require('Module:Yesno')
			args.reverse = yesno(args.reverse, false)
			args.sep = getSeparator(args, '')
			local source = frame:extensionTag{
			name = 'syntaxhighlight',
			args = {
			lang = 'wikitext',
			style = args.style
			},
			content = show.source
			}
			return args.reverse and
			show.output .. args.sep .. source or
			source .. args.sep .. show.output
	end		end

Line 64:		Line 82:
	return show[args.result_arg]		return show[args.result_arg]
	end		end
	~~return string.format~~('~~<code%s>%s</code>%s%s~~', args.~~style~~ and ~~string.format(" style~~='%s'", args.style~~) or ''~~, show.source~~, ' → ',~~ show.output)		local yesno = require('Module:Yesno')
			args.reverse = yesno(args.reverse, false)
			args.sep = getSeparator(args, args.reverse and '←' or '→')
			local source = frame:extensionTag{
			name = 'syntaxhighlight',
			args = {
			lang = 'wikitext',
			inline = true,
			style = args.style
			},
			content = show.source
			}
			return args.reverse and
			show.output .. args.sep .. source or
			source .. args.sep .. show.output
	end		end

Line 74:		Line 106:
	'demo_module_func',		'demo_module_func',
	'demo_main',		'demo_main',
			'demo_sep',
	'demo_br',		'demo_br',
	'demo_result_arg',		'demo_result_arg',
	'demo_kill_categories'		'demo_kill_categories',
			'nocat'
	})		})
	local template = frame.args.demo_template and 'Template:'..frame.args.demo_template		local template = frame.args.demo_template and 'Template:'..frame.args.demo_template
	local demoFunc = frame.args.demo_module_func or 'main\n'		local demoFunc = frame.args.demo_module_func or 'main\n'
	local demoModule = require('Module:' .. frame.args.demo_module)[demoFunc:match('^%s(.-)%s$')]		local demoModule = require('Module:' .. frame.args.demo_module)[demoFunc:match('^%s(.-)%s$')]
	frame.args.br, frame.args.result_arg = frame.args.demo_br, frame.args.demo_result_arg		frame.args.br, frame.args.result_arg = frame.args.demo_sep or frame.args.demo_br, frame.args.demo_result_arg
			local kill_categories = frame.args.demo_kill_categories or frame.args.nocat
	if demoModule then		if demoModule then
	local named = {insert = function(self, ...) table.insert(self, ...) return self end}		local named = {insert = function(self, ...) table.insert(self, ...) return self end}
Line 106:		Line 141:
	table.insert(source, insertNamed, table.concat(named))		table.insert(source, insertNamed, table.concat(named))
	return p.main(orphan, {		return p.main(orphan, {
	source = ~~mw.text.encode(~~table.concat(source), "<>'\|=~"),		source = table.concat(source), "<>'\|=~",
	output = tostring(demoModule(orphan)):gsub(~~frame.args.demo_kill_categories~~ and '%[%[Category.-%]%]' or '', ''),		output = tostring(demoModule(orphan)):gsub(kill_categories and '%[%[Category.-%]%]' or '', ''),
	frame = frame		frame = frame
	})		})

Merc: 1 revision imported

2018-05-16T16:00:44Z

1 revision imported

New page

local p = {}

--creates a frame object that cannot access any of the parent's args
--unless a table containing a list keys of not to inherit is provided
function disinherit(frame, onlyTheseKeys)
local parent = frame:getParent() or frame
local orphan = parent:newChild{}
orphan.getParent = parent.getParent --returns nil
orphan.args = {}
if onlyTheseKeys then
local family = {parent, frame}
for f = 1, 2 do
for k, v in pairs(family[f] and family[f].args or {}) do
orphan.args[k] = orphan.args[k] or v
end
end
parent.args = mw.clone(orphan.args)
setmetatable(orphan.args, nil)
for _, k in ipairs(onlyTheseKeys) do
rawset(orphan.args, k, nil)
end
end
return orphan, parent
end

function p.get(frame, arg, passArgs)
local orphan, frame = disinherit(frame, passArgs and {arg or 1})
local code, noWiki, preserve = frame.args[arg or 1] or ''
if code:match'nowiki' then
local placeholder, preserve = ('6'):char(), {}
code = mw.text.unstripNoWiki(code)
noWiki = code:gsub('%%', placeholder):gsub('<', '<'):gsub('>', '>')
for k in noWiki:gmatch('&.-;') do
if not preserve[k] then
preserve[k] = true
table.insert(preserve, (k:gsub('&', '&')))
noWiki = noWiki:gsub('(&.-;)', '%%%s')
end
end
noWiki = mw.text.nowiki(noWiki):format(unpack(preserve)):gsub(placeholder, '%%')
end
return {
source = noWiki or code,
output = orphan:preprocess(code):gsub(frame.args.demo_kill_categories and '%[%[Category.-%]%]' or '', ''),
frame = frame
}
end

function p.main(frame, demoTable)
local show = demoTable or p.get(frame)
local args = show.frame.args
args.br = tonumber(args.br or 1) and ('<br>'):rep(args.br or 1) or args.br or ''
if show[args.result_arg] then
return show[args.result_arg]
end
return string.format('<pre%s>%s</pre>%s%s', args.style and string.format(" style='%s'", args.style) or '', show.source, args.br, show.output)
end

-- Alternate function to return an inline result
function p.inline(frame, demoTable)
local show = demoTable or p.get(frame)
local args = show.frame.args
if show[args.result_arg] then
return show[args.result_arg]
end
return string.format('<code%s>%s</code>%s%s', args.style and string.format(" style='%s'", args.style) or '', show.source, ' → ', show.output)
end

--passing of args into other module without preprocessing
function p.module(frame)
local orphan, frame = disinherit(frame, {
'demo_template',
'demo_module',
'demo_module_func',
'demo_main',
'demo_br',
'demo_result_arg',
'demo_kill_categories'
})
local template = frame.args.demo_template and 'Template:'..frame.args.demo_template
local demoFunc = frame.args.demo_module_func or 'main\n'
local demoModule = require('Module:' .. frame.args.demo_module)[demoFunc:match('^%s*(.-)%s*$')]
frame.args.br, frame.args.result_arg = frame.args.demo_br, frame.args.demo_result_arg
if demoModule then
local named = {insert = function(self, ...) table.insert(self, ...) return self end}
local source = {insert = named.insert, '{{', frame.args.demo_template or frame.args.demo_module, '\n'}
if not template then
source:insert(2, '#invoke:'):insert(4, '|'):insert(5, demoFunc)
end
local insertNamed = #source + 1
for k, v in pairs(orphan.args) do
local nan, insert = type(k) ~= 'number', {v}
local target = nan and named or source
target:insert'|'
if nan then
target:insert(k):insert'=':insert'\n'
table.insert(insert, 1, #target)
end
target:insert(unpack(insert))
local nowiki = v:match('nowiki')
if nowiki or v:match('{{.-}}') then
orphan.args[k] = frame:preprocess(nowiki and mw.text.unstripNoWiki(v) or v)
end
end
source:insert'}}'
table.insert(source, insertNamed, table.concat(named))
return p.main(orphan, {
source = mw.text.encode(table.concat(source), "<>'|=~"),
output = tostring(demoModule(orphan)):gsub(frame.args.demo_kill_categories and '%[%[Category.-%]%]' or '', ''),
frame = frame
})
else
return "ERROR: Invalid module function: "..demoFunc
end
end

return p