Jump to content

Module:Demo and Module:Demo/sandbox: Difference between pages

(Difference between pages)
Page 1
Page 2
Content deleted Content added
Undid revision 1240199590 by BrandonXLF (talk)
 
No edit summary
 
Line 1: Line 1:
local p = {}
local p = {}
local yn = require('Module:Yesno')
local getArgs = require('Module:Arguments').getArgs
-- simple module that takes in an input and displays the input and output of a wikitext
-- helper function which gets all the locations of all the matches of a ustring
function p._getAllMatchIndices(text, pattern)
local output = {}
local i = 0
while i ~= nil do
i = mw.ustring.find(text, pattern, i + 1)
if i ~= nil then table.insert(output, i) end
end
return output
end


-- replaces all usages of \[, \], \<, \> \\, \{, and \} with [, ], <, >, \, {, and }
--creates a frame object that cannot access any of the parent's args
-- also replaces line breaks, carriage returns, and tabs with their appropriate character
--unless a table containing a list keys of not to inherit is provided
function disinherit(frame, onlyTheseKeys)
function p._escapeAllCharacters(text)
local parent = frame:getParent() or frame
local indices = p._getAllMatchIndices(text, "\\")
local orphan = parent:newChild{}
local splitText = mw.text.split(text, '')
local skip = false
orphan.getParent = parent.getParent --returns nil
for k,v in ipairs(indices) do
orphan.args = {}
if onlyTheseKeys then
if not skip then
splitText[v] = ''
local family = {parent, frame}
for f = 1, 2 do
local nc = splitText[v + 1]
splitText[v + 1] = (
for k, v in pairs(family[f] and family[f].args or {}) do
nc == "e" and '=' or
orphan.args[k] = orphan.args[k] or v
nc == "p" and '|' or
nc == '[' and mw.getCurrentFrame():preprocess('<nowiki>[</nowiki>') or
nc == ']' and mw.getCurrentFrame():preprocess('<nowiki>]</nowiki>') or
nc == '{' and mw.getCurrentFrame():preprocess('<nowiki>{</nowiki>') or
nc == '}' and mw.getCurrentFrame():preprocess('<nowiki>}</nowiki>') or
nc == '<' and mw.getCurrentFrame():preprocess('<nowiki><</nowiki>') or
nc == '>' and mw.getCurrentFrame():preprocess('<nowiki>></nowiki>') or
nc == '&' and mw.getCurrentFrame():preprocess('<nowiki>&amp;</nowiki>') or
splitText[v + 1]
)
mw.log(splitText[v + 1])
if nc == '\\' then
skip = true
end
end
else
skip = false
end
end
end
parent.args = mw.clone(orphan.args)
return table.concat(splitText)
setmetatable(orphan.args, nil)
end
for _, k in ipairs(onlyTheseKeys) do

rawset(orphan.args, k, nil)
function p._escapeHTMLCharCodes(str)
local function replaceHTMLCharCodes(entity)
mw.log(entity)
local charCode = mw.ustring.match(entity, "%d+") and tonumber(mw.ustring.match(entity, "%d+")) or mw.ustring.match(entity, "%w+;")
mw.log(charCode)
if type(charCode) == 'number' then
return mw.ustring.char(charCode)
else
local HTMLCharCodes = {
["amp;"] = "&",
["gt;"] = ">",
["lt;"] = "<"
}
local replacementChar = HTMLCharCodes[charCode] or entity
return replacementChar
end
end
end
end
return mw.ustring.gsub(str, "%&%S-;", replaceHTMLCharCodes)
return orphan, parent
end
end


function getSeparator(args, default)
function p._removeAllLinks(text)
-- find all [ and ] characters and remove them
local br = tonumber(args.br) and ('<br>'):rep(args.br) or args.br
local sep = args.sep or br or default
local splitText = mw.text.split(text, '')
local numberOfBrackets = 0
return #sep > 0 and ' ' .. sep .. ' ' or sep
local endCharacter = false
for k,v in ipairs(splitText) do
if splitText[k] == '[' then
numberOfBrackets = numberOfBrackets + 1
endCharacter = false
if numberOfBrackets > 2 then numberOfBrackets = 2 else splitText[k] = '' end
elseif splitText[k] == ']' then
numberOfBrackets = numberOfBrackets - 1
endCharacter = false
if numberOfBrackets < 0 then numberOfBrackets = 0 else splitText[k] = '' end
else
if numberOfBrackets == 2 then
if not endCharacter then
endCharacter = splitText[k] == '|'
splitText[k] = ''
end
elseif numberOfBrackets == 1 then
if not endCharacter then
endCharacter = splitText[k] == ' '
splitText[k] = ''
end
end
end
end
return table.concat(splitText)
end
end


function p.get(frame, arg, passArgs)
function p._removeXML(text)
-- finds all xml tags and remove them
local orphan, frame = disinherit(frame, passArgs and {arg or 1})
local code = frame.args[arg or 1] or ''
local splitText = mw.text.split(text, '')
local numberOfBrackets = 0
if code:match'UNIQ%-%-nowiki' then
local numberOfDoubleQuotes = 0
code = mw.text.unstripNoWiki(code)
local numberOfSingleQuotes = 0
:gsub('&lt;', '<')
for k,v in ipairs(splitText) do
:gsub('&gt;', '>')
if splitText[k] == '<' then
:gsub('&quot;', '"')
numberOfBrackets = numberOfBrackets + 1
-- Replace `&#125;%-` with `}-` because of some server quirk leading to
if numberOfBrackets > 1 then numberOfBrackets = 1 else splitText[k] = '' end
-- =mw.text.unstripNoWiki(mw.getCurrentFrame():preprocess('<nowiki>}-</nowiki>'))
elseif splitText[k] == '>' then
-- outputting `&#125;-` instead of `}-`, while it's ok with `<nowiki>} -</nowiki>`
numberOfBrackets = numberOfBrackets - 1
:gsub('&#125;%-', '}-')
if numberOfBrackets < 0 then numberOfBrackets = 0 else splitText[k] = '' end
-- The same with `-&#123;`
else
:gsub('%-&#123;', '-{')
if numberOfBrackets == 1 then
splitText[k] = ''
end
end
end
end
return table.concat(splitText)
local kill_categories = frame.args.demo_kill_categories or frame.args.nocat
return {
source = code,
output = orphan:preprocess(code):gsub(kill_categories and '%[%[Category.-%]%]' or '', ''),
frame = frame
}
end
end


-- from Wikipedia
function p.main(frame, demoTable)
local function makeInvokeFunc(funcName)
local show = demoTable or p.get(frame)
local args = show.frame.args
return function (frame)
local args = getArgs(frame, {
if show[args.result_arg] then
valueFunc = function (key, value)
return show[args.result_arg]
if type(value) == 'string' then
value = value:match('^%s*(.-)%s*$') -- Remove whitespace.
if key == 'heading' or value ~= '' then
return value
else
return nil
end
else
return value
end
end
})
return p[funcName](args)
end
end
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


p.main = makeInvokeFunc("_main")
-- Alternate function to return an inline result
function p.inline(frame, demoTable)
function p._main(args)
local show = demoTable or p.get(frame)
local nowiki = yn(args['nowiki']) or false
local args = show.frame.args
local format = args['format'] or 'block'
local code = p._code(args)
if show[args.result_arg] then
local result = p._result(args)
return show[args.result_arg]
if format == 'inline' then
return 'Using this code: ' .. code .. ' yields: ' .. result
else
return '<dl><dt>Using this code:</dt><dd>'
.. code
.. '</dd><dt>yields: </dt><dd>'
.. result
.. '</dd></dl>'--output the result
end
end
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


p.inline = makeInvokeFunc("_inline")
--passing of args into other module without preprocessing
function p.module(frame)
function p._inline(args)
args['format'] = 'inline'
local orphan, frame = disinherit(frame, {
return p._main(args)
'demo_template',
end
'demo_module',

'demo_module_func',
p.block = makeInvokeFunc("_block")
'demo_main',
function p._inline(args)
'demo_sep',
args['format'] = 'block'
'demo_br',
return p._main(args)
'demo_result_arg',
end
'demo_kill_categories',

'nocat'
p.code = makeInvokeFunc("_code")
})
function p._code(args)
local template = frame.args.demo_template and 'Template:'..frame.args.demo_template
local demoFunc = frame.args.demo_module_func or 'main\n'
local nowiki = yn(args['nowiki']) or false
local text = p._raw(args)
local demoModule = require('Module:' .. frame.args.demo_module)[demoFunc:match('^%s*(.-)%s*$')]
local format = args['format'] or 'block'
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
local syntaxhighlight = yn(args["syntaxhighlight"]) or true
if demoModule then
if not syntaxhighlight then
local code = format == 'inline'
local named = {insert = function(self, ...) table.insert(self, ...) return self end}
and mw.getCurrentFrame():preprocess("<code>" .. text .. "</code>")
local source = {insert = named.insert, '{{', frame.args.demo_template or frame.args.demo_module, '\n'}
or mw.getCurrentFrame():preprocess("<code style=\"display:inline-block;\">" .. text .. "</code>")
if not template then
return code
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 = table.concat(source), "<>'|=~",
output = tostring(demoModule(orphan)):gsub(kill_categories and '%[%[Category.-%]%]' or '', ''),
frame = frame
})
else
else
local code = format == "inline"
return "ERROR: Invalid module function: "..demoFunc
and mw.getCurrentFrame():preprocess("<syntaxhighlight inline lang=\"wikitext\">" .. text .. "</syntaxhighlight>")
or mw.getCurrentFrame():preprocess("<syntaxhighlight lang=\"wikitext\">" .. text .. "</syntaxhighlight>")
return code
end
end
end
end


p.raw = makeInvokeFunc("_raw")
function p._raw(args)
local nowiki = yn(args['nowiki']) or false
local syntaxhighlight = yn(args["syntaxhighlight"]) or false
local text = (nowiki or syntaxhighlight) and args[1] or p._escapeAllCharacters(args[1])
mw.log(text)
return text
end

p.result = makeInvokeFunc("_result")
function p._result(args)
local nowiki = yn(args['nowiki']) or false
local text = p._raw(args)
mw.log(p._removeXML(
p._removeAllLinks(text)
))
local result = (yn(args['nowiki']) or yn(args['syntaxhighlight']))
and mw.getCurrentFrame():preprocess(mw.text.unstripNoWiki(text))
or mw.getCurrentFrame():preprocess(
p._escapeHTMLCharCodes(
mw.text.unstripNoWiki(
p._removeXML(
p._removeAllLinks(text)
)
)
)
)
or ''
mw.log(result)
return result
end
return p
return p
Retrieved from "https://en.wikipedia.org/wiki/Special:ComparePages"