Login
Login

Module:Sandbox/Tom.Reding/sandbox

--use "local arg1 = frame.args[1]" for sandboxing via #invoke

--use "local args = frame:getParent().args" for sandboxing via template

local p = {}

function p.doc( frame )

local auto = frame.args[1] or ''

local base = mw.title.getCurrentTitle().baseText

local n = '\n'

local code =

"{{Redirect category shell|"..n..

"{{"..base.."}}"..n..

"{{R printworthy}}"..n..

"}}"..n..

""..n..

"{{Redirect category shell|"..n..

"{{"..base.."}}"..n..

"{{R unprintworthy}}"..n..

"}}"

local args = { ['lang'] = 'wikitext',

['code'] = code }

return frame:expandTemplate{ title = 'Syntaxhighlight', args = args }

end

function p.amdb( frame )

local args_module = require('Module:Arguments')

local args = args_module.getArgs(frame, {frameOnly = true})

return (args[1] or 'no1')..'&'..(args['blah'] or 'noblah')

end

function p.yndb( frame )

local yesno = require('Module:Yesno')

return yesno(frame.args[1], true)

end

function p.sc( frame )

local special_chars = '([%%%(%)%.%+%-%*%?%[%]%^%$])'

local esc = frame.args[1]:gsub(special_chars, '%%%1') -- escape each special character

return esc

end

function p.template_outside_shell( frame )

local banner_name = mw.text.trim(frame.args[1]) -- name of template to look for, e.g. WikiProject Finland

local banner_name_u = mw.text.trim(frame.args[1]) -- name of template to look for, e.g. WikiProject Finland

local banner_name_s = mw.text.trim(frame.args[1]) -- name of template to look for, e.g. WikiProject Finland

local WPBSredirects = mw.loadData('Module:WikiProject banner/config').banner_shell.redirects -- load the current set of redirects to Template:WikiProjct banner shell

local page_content = mw.title.getCurrentTitle():getContent() -- get content of current page

local content_without_shell

for capture in mw.ustring.gmatch(page_content, '%b{}') do -- look for possible templates on page

for _, redirect in ipairs(WPBSredirects) do

if mw.ustring.find(capture, '^{{%s*' .. redirect .. '%s*[|}].*}}$') then -- found a banner shell

local capture_u = capture

local capture_s = capture

-- loop test

--local special_chars = {'%', '(', ')', '.', '+', '-', '*', '?', '[', ']', '^', '$'}

--for _, chr in ipairs(special_chars) do -- escape each special character

-- banner_name_u = mw.ustring.gsub(banner_name_u, '%'..chr, '%%'..chr)

-- banner_name_s = string.gsub(banner_name_s, '%'..chr, '%%'..chr)

-- capture = capture:gsub('%'..chr, '%%'..chr) --returns '%�' when encountering "listas=100%"

-- capture_u = mw.ustring.gsub(capture_u, '%'..chr, '%%'..chr) --returns '%%'

-- capture_s = string.gsub(capture_s, '%'..chr, '%%'..chr) --returns '%�'

--end

-- [set] test

local special_chars = '([%%%(%)%.%+%-%*%?%[%]%^%$])'

banner_name = banner_name:gsub(special_chars, '%%%1') -- escape each special character

capture = capture:gsub(special_chars, '%%%1') --returns '%%' hen encountering "listas=100%"

capture_u = mw.ustring.gsub(capture_u, special_chars, '%%%1') --returns '%%'

capture_s = string.gsub(capture_s, special_chars, '%%%1') --returns '%%'

content_without_shell = mw.ustring.gsub(page_content, capture, '') -- remove banner shell content from page content

if (true) then return '----\n'..banner_name..'\n==:gsub==\n'..capture..'\n==ustring==\n'..capture_u..'\n==string==\n'..capture_s..'\n==orig==\n'..content_without_shell end

break -- ideally want to break out from both for loops now

end

end

if content_without_shell then break end

end

local template_outside_shell

if content_without_shell then -- banner shell was found

if mw.ustring.find(content_without_shell, '{{%s*' .. banner_name .. '%s*[|}]') then -- found banner template outside of the shell

template_outside_shell = true

else -- banner template must be inside the shell

template_outside_shell = false

end

else -- no banner shell on page

template_outside_shell = 'no banner shell on page'

end

return template_outside_shell

end

function p.blind_epfc_test( frame )

mw.incrementExpensiveFunctionCount()

--return mw.getExpensiveFunctionCount() --returns nil

--return mw.ExpensiveFunctionCount() --returns nil

return mw.expensiveFunctionCount() --returns nil

end

function p.select_test( frame ) --not for table counting

local t = { 1, 2, 3 }

local c = table.concat(t, ',')

local c2 = table.concat(t, ', ')

--local s = select( '#', c )

--return s --returns 1

--local s = select( '#', t )

--return s --returns 1

local s = select( '#', c2 )

return s --returns 1

end

function p.get_info( frame )

local pn = frame.args[1]

local wp = p.getSd( frame )

local wd = p.getWdSd( frame )

local dab_dne = 'dab_dne'

local pn_dab = pn..' (disambiguation)'

local pn_dab_result = dab_dne

local pn_dab_content = mw.title.new(pn_dab):getContent() or nil

if pn_dab_content then pn_dab_result = ''..pn_dab..'' end

local info = '# '..pn..' - '..pn_dab_result..' - '..wp..'; '..wd

if wp == 'wp_sd_dne' and

wd == 'wd_sd_dne'

then

local R = p.isR( frame )

if R then

local R_content = mw.title.new(pn):getContent() or ''

local R_target = mw.ustring.match(R_content, '^%s*#[Rr][Ee][Dd][Ii][Rr][Ee][Cc][Tt]%s*%[%[(.-)%]%]') or ''

if R_target ~= '' then

local R_pn = R_target

frame.args[1] = R_pn

local R_wp = p.getSd( frame )

local R_wd = p.getWdSd( frame )

local R_pn_dab = R_pn..' (disambiguation)'

local R_pn_dab_result = dab_dne

local R_pn_dab_content = mw.title.new(R_pn_dab):getContent() or nil

if R_pn_dab_content then R_pn_dab_result = ''..R_pn_dab..'' end

local R_info = '## '..R_pn..' - '..R_pn_dab_result..' - '..R_wp..'; '..R_wd

return info..'\n'..R_info

else

return info..' (malformed #R)'

end

end

end

return info

end

function p.getWdSd( frame )

local pn = frame.args[1]

local args = { ['1'] = 'description',

['page'] = pn }

local sd = frame:expandTemplate{ title = 'Wikidata', args = args }

if sd == '' then sd = 'wd_sd_dne' end

return mw.text.trim(sd)

end

function p.getSd( frame )

local pn = frame.args[1]

local content = mw.title.new(pn):getContent() or ''

local sd = mw.ustring.match(content, '{{%s*[Ss]hort ?[dD]escription%s*%|(.-)}}') or

mw.ustring.match(content, '{{%s*[Ss]hort ?desc%s*%|(.-)}}') or

mw.ustring.match(content, '{{%s*[Dd]es%s*%|(.-)}}') or

'wp_sd_dne'

return mw.text.trim(sd)

end

function p.sizeof( frame )

local out = ''

for _, pn in pairs( frame.args ) do

local content = mw.title.new(pn):getContent() or ''

out = out..'#'..#content..' '..pn..'\n'

end

return out

end

function p.blt( frame )

local myBlacklist = require( 'Module:Taxonbar/blacklist' ).blacklist{ args = {} }

local selfdocout = 'myVariable = {\n'

for k, q in pairs( myBlacklist ) do

selfdocout = selfdocout..'\t\''..k..'\' = '..q..',\n'

end

selfdocout = selfdocout..'}'

local args = { ['lang'] = 'lua',

['code'] = selfdocout }

out = frame:expandTemplate{ title = 'Syntaxhighlight', args = args }

return out

end

function p.isR( frame )

local pn = frame.args[1]

local title = mw.title.new( pn )

return title.isRedirect

end

function p.argt( frame )

local list = 'strict'

local doc = 'doc'

local strict = p.whitelist( frame, list, doc )

local tstrict = p.whitelist( frame, list )

return 'doc:\n\n'..strict..'\n\ntable[Q16521]:'..tstrict[Q16521]

end

function p.expandTemplate(frame)

local Q = 'Q16521'

local Q_expanded = frame:expandTemplate{ title = 'Q', args = { Q } }

return Q_expanded

end

function p.whitelist( frame )

local listType = frame.args[1]

local documentation = frame.args[2]

local acceptableInstanceOf_Strict = {

['Q16521'] = 'taxon',

['Q310890'] = 'monotypic taxon',

['Q98961713'] = 'extinct taxon',

['Q2568288'] = 'ichnotaxon',

['Q23038290'] = 'fossil taxon',

['Q47487597'] = 'monotypic fossil taxon',

['Q58051350'] = 'paraphyletic group', --subclass of taxon

['Q59278506'] = 'ootaxon',

}

local acceptableInstanceOf_Lax = {

['Q42621'] = 'hybrid',

['Q235536'] = 'incertae sedis',

['Q713623'] = 'clade',

['Q848328'] = 'serotype',

['Q857968'] = 'candidatus',

['Q17487588'] = 'unavailable combination',

}

local acceptableInstanceOf_All = {} --create IFF requested

if listType == 'all' then

for k, v in pairs( acceptableInstanceOf_Strict ) do

acceptableInstanceOf_All[k] = v

end

for k, v in pairs( acceptableInstanceOf_Lax ) do

acceptableInstanceOf_All[k] = v

end

end

if (documentation == nil) or --module-use only; order & format irrelevant

(documentation and documentation == '') then

local out = {}

if listType == 'strict' then out = acceptableInstanceOf_Strict['Q16521']

elseif listType == 'lax' then out = acceptableInstanceOf_Lax['Q42621']

elseif listType == 'all' then out = acceptableInstanceOf_All['Q17487588']

end

return out

else

local displayOrder_Strict = {

'Q16521', --taxon

'Q310890', --monotypic taxon

'Q47487597', --monotypic fossil taxon

'Q2568288', --ichnotaxon

'Q23038290', --fossil taxon

'Q59278506', --ootaxon

'Q98961713', --extinct taxon

'Q58051350', --paraphyletic group

}

local displayOrder_Lax = {

'Q42621', --hybrid

'Q235536', --incertae sedis

'Q713623', --clade

'Q848328', --serotype

'Q857968', --candidatus

'Q17487588', --unavailable combination

}

local displayOrder_All = {} --create IFF requested

if listType == 'all' then

--concatenate strict + lax display order tables

local i = 0

for _, v in pairs( displayOrder_Strict ) do

i = i + 1

displayOrder_All[i] = v

end

for _, v in pairs( displayOrder_Lax ) do

i = i + 1

displayOrder_All[i] = v

end

end

local outOrder = {}

if listType == 'strict' then outOrder = displayOrder_Strict

elseif listType == 'lax' then outOrder = displayOrder_Lax

elseif listType == 'all' then outOrder = displayOrder_All

end

local out = ''

for _, q in pairs( outOrder ) do

local Q = frame:expandTemplate{ title = 'Q', args = { q } }

out = out..'# '..Q..'\n'

end

return out

end

end

function p.trr_test(frame)

local getRegex = require('Module:Template redirect regex').main

local tregex = getRegex(nil)

return tregex or 'nil'

end

function p.string_match(frame)

local r = "2008–09 in Scottish women's football"

local regex_hyph = '%d%d%d%d[–-]%d+'

-- if string.match(r, regex_hyph) then --returns 'false'!

-- if mw.ustring.match(r, regex_hyph) then --returns 'true'

if string.match(r, 'ball$') then --returns 'true'

return 'true'

else

return 'false'

end

end

function p.avoidself(frame)

local currtitle = mw.title.getCurrentTitle()

local testcases = string.match(currtitle.subpageText, '^testcases')

local avoidself = (currtitle.text ~= 'Navseasoncats' and

not string.match(currtitle.text, 'Navseasoncats with') and

not string.match(currtitle.text, 'Navseasoncats.*/doc') and

not string.match(currtitle.text, 'Navseasoncats.*/sandbox') and

currtitle.nsText:gsub('_', ' ') ~= 'User talk' and -- phab:T369784

(currtitle.nsText ~= 'Template' or testcases)) --avoid nested transclusion errors (i.e. {{Infilmdecade}})

return 'text: '..currtitle.text..

'
nsText: "'..currtitle.nsText..'"'..

'
testcases: '..(testcases or 'nil')..

'
avoidself: '..tostring(avoidself)

end

function p.ttest(frame) --#t

local t0 = {} --0

local t1 = { [0] = 1 } --0

local t2 = { [1] = 1 } --1

local t31 = { [0] = 1, [1] = 1, [2] = 1 } --2

local t32 = { [2] = 1, [3] = 1, [4] = 1 } --0

local t33 = { [3] = 1, [4] = 1, [5] = 1 } --0

local tneg = { [-1]=1, [0] = 1, [1] = 1 } --1

--output

return '#t0: ' ..#t0.. --0

'
#t1: ' ..#t1.. --0

'
#t2: ' ..#t2.. --1

'
#t31: '..#t31.. --2

'
#t32: '..#t32.. --0

'
#t33: '..#t33.. --0

'
#tneg: '..#tneg.. --1

'
mw.log'..(mw.log( #t31 ) or '')

end

function p.indexcalctest(frame)

local t = {}

t[1+3] = 5

return t[4] or 'nil' --returns 5 as expected

end

function p.fort(frame)

local i = 0

for i=1, 10 do

i = i + 1

end

return i --returns '0' as expected

end

function p.whilet(frame)

local i = 0

while i < 10 do

i = i + 1

end

return i --returns '10' as expected

end

function p.ifevaluationtest(frame)

local cat1 = '2010s awards'

local cat2 = '2020s awards'

if mw.title.new(cat1, 'Category').exists and

mw.title.new(cat2, 'Category').exists

then

return 1

end

return 0

end

function p.zerotest(frame)

local neg = -0 --displays '-0' as expected

local nneg = tonumber('-0') --displays '-0' as expected

local pos = 0 --displays '-0' NOT as expected

local ppos = tonumber('0') --displays '0'

local pppos = tonumber('+0') --displays '0' as expected

local s = tostring(pos) --displays '-0' NOT as expected

local ss = tostring(ppos) --displays '0'

local t = (neg < 0) --false

local tt = (s == '-0') --true

local u = (neg == 0) --true

local v = (neg == -0) --true

return tostring(nneg)..' '..pppos..' '..s..' '..tostring(tt)..' '..tostring(v) --returns '-0 0 -0 true true'

end

function p.test(frame)

return frame:callParserFunction{ name = '#time', args = { 'j F Y' } }

end

function p.iffalsetest(frame)

local f = false

if f then

return 'f'

else

return 'endd' --debugger thinks "'end'" == "end"...

end --returns endd, as expected

end

function p.fortest(frame)

local out = ''

for gs = 0, 5 do

out = out..gs

end

return out --returns 012345

end

function p.regex_group_test(frame)

local R = 'asdfasdf 2020–'

local y, hyph, ending = mw.ustring.match(R, '^.-(%d+)([–-])(.*)$')

return (y or 'nil')..', '..(hyph or 'nil')..', '..(ending or 'nil') --returns '2020, –,' as expected

end

function p.empty_regex_group_test(frame)

local text = '2020–'

-- return (mw.ustring.match(text, '%d+([–-])$') or 'nil') --returns –

-- return (mw.ustring.match(text, '%d+[–-]()$') or 'nil') --returns 6

-- return (mw.ustring.match(text, '%d+[–-]($)') or 'nil') --returns nil

return (mw.ustring.match(text, '%d+[–-](.*)$') or 'nil') --returns '' as expected

end

function p.regex_gsub_test(frame)

local cat1 = '2006 Super 14 season'

local base1 = '"'..mw.ustring.gsub(cat1, '%d+[–-]?%d?%d?%d?%d?', '')..'"' --returns " Super season"

local base1_1 = '"'..mw.ustring.gsub(cat1, '%d+[–-]?%d?%d?%d?%d?', '', 1)..'"' --returns " Super 14 season"

local cat2 = '14 Super 2006 season'

local base2 = '"'..mw.ustring.gsub(cat2, '%d+[–-]?%d?%d?%d?%d?', '')..'"' --returns " Super season"

local base2_2 = '"'..mw.ustring.gsub(cat2, '%d+[–-]?%d?%d?%d?%d?', '', 1)..'"' --returns " Super 2006 season"

local base2_3 = '"'..mw.ustring.gsub(cat2, '%d%d?%d?%d?[–-]?%d?%d?%d?%d?', '')..'"' --returns " Super season"

local base2_4 = '"'..mw.ustring.gsub(cat2, '%d%d?%d?%d?[–-]?%d?%d?%d?%d?', '', 1)..'"' --returns " Super 2006 season"

return base2_4

end

function p.regex_gsub_test2(frame)

--return (mw.ustring.gsub('123', '%d', '$1')[1] or 'n')..(mw.ustring.gsub('123', '%d', '')[2] or 'o')..(mw.ustring.gsub('123', '%d', '0') or 'p') --returns no000

--local one, two = mw.ustring.gsub('123', '%d', '')

--return (one or '1')..(two or '2') --returns 3

--return (two or '2') --returns 3

local one, two = mw.ustring.gsub('123', '%D', '')

return (two or '?') --returns 0

end

function p.match_or_match_test(frame)

local text = '2020–'

-- local y, hyph = mw.ustring.match(text, '(%d+)([–-])present$') or mw.ustring.match(text, '(%d+)([–-])$')

-- return (y or 'nil')..' & '..(hyph or 'nil') --returns 2020 & nil (NOT as expected)

-- local y, hyph = mw.ustring.match(text, '(%d+)([–-])$') or mw.ustring.match(text, '(%d+)([–-])present$')

-- return (y or 'nil')..' & '..(hyph or 'nil') --returns 2020 & nil (NOT as expected)

-- local y, hyph = mw.ustring.match(text, '(%d+)([–-])$')

-- return (y or 'nil')..' & '..(hyph or 'nil') --returns 2020 & – (as expected)

local y, hyph = mw.ustring.match(text, '(%d+)([–-])present$')

return (y or 'nil')..' & '..(hyph or 'nil') --returns nil & nil (as expected)

end

function p.mw_title_new_exists_wstest(frame)

local cat = 'UK MPs 2015–2017 '..' '

return tostring(mw.title.new( cat, 'Category' ).exists) --returns true (as expected)

end

function p.tonumber_test(frame)

local cat = 'Wikipedia articles with VIAF identifiers' --800,000 something

local lang = mw.getContentLanguage()

local count = mw.site.stats.pagesInCategory(cat, 'pages') --800000

local count_lang = lang:formatNum( count ) --800,000

-- return (count or 'nil')..', '..(tonumber(count or '-1') or '-2') --returns 880843, 880843 as expected

-- return (count_lang or 'nil')..', '..(tonumber(count_lang or '-1') or '-2') --returns 881,195, -2 --use lang:parseFormattedNumber() instead

return (count_lang or 'nil')..', '..(lang:parseFormattedNumber(count_lang or '-1') or '-2') --returns 880,358, 880358

end

function p.lastedit_test(frame)

return mw.title.new( 'Special:Contributions/Tom.Reding', 'Special' ):getContent() or 'nil'

end

function p.split_test(frame)

-- return table.concat( mw.text.split('test-1 two-', ' '), ',' ) or 'nil' --returns test-1,two-

-- return table.concat( mw.text.split('test-1 two-', '%s'), ',' ) or 'nil' --returns test-1,two-

-- return table.concat( mw.text.split('test-1 two-', '-'), ',' ) or 'nil' --returns test,1 two,

-- return table.concat( mw.text.split('test-1 two-', ' %-'), ',' ) or 'nil' --returns test-1 two-

-- return table.concat( mw.text.split('test-1 two-', ' -'), ',' ) or 'nil' --returns t,e,s,t,-,1, ,t,w,o,-

-- return table.concat( mw.text.split('test-1 two-', '- '), ',' ) or 'nil' --returns test-1 two-

-- return table.concat( mw.text.split('test-1 two-', '%s%-'), ',' ) or 'nil' --returns test-1 two-

return table.concat( mw.text.split('test-1 two-', '[%s%-]'), ',' ) or 'nil' --returns test,1,two,

end

function p.regex_greed_and_nested_groups_test(frame)

local t = '{{category redirect | {{title year}}s in New Spain }}'

local r = '{{category redirect%s*|%s*([^{}]*{{([^{|}]+)}}[^{}]-)%s*}}'

local g1, g2 = mw.ustring.match(t, r)

return '"'..g1..'" "'..g2..'"' --returns "{{title year}}s in New Spain" "title year" as expected

end

function p.redirectTarget_test(frame)

-- local title = mw.title.new( '1670s in Mexico', 'Category' ) --#R --returns false

-- local title2 = mw.title.new( '1670s in New Spain', 'Category' ) --#R target --returns false

-- local title = mw.title.makeTitle( 'Category', '1670s in Mexico' ) --#R --returns false

-- local title2 = mw.title.makeTitle( 'Category', '1670s in New Spain' ) --#R target --returns false

local title = mw.title.new( 'EL 61' ) --#R --returns "Haumea"

local title2 = mw.title.new( 'Haumea' ) --#R target --returns "false"

local rtitle = title.redirectTarget --only works in mainspace; ignorant of {{category redirect}}s

local rtitle2 = title2.redirectTarget --only works in mainspace; ignorant of {{category redirect}}s

if type(rtitle) == 'boolean' then

return tostring(rtitle)..' '..tostring(rtitle)

else

return '"'..title.redirectTarget.baseText..'" "'..tostring(rtitle2)..'"'

end

end

function p.frame_newChild_test(frame)

local t = 'Category:1670s in Mexico'

local child = frame:newChild{ title = t, args = {} }

-- return '"'..child:getTitle()..'"' --returns "Category:1670s in Mexico" as expected

-- return '"'..child:expandTemplate{ title = 'title year', args = {} }..'"' --returns "" NOT as expected...

-- return '"'..child:expandTemplate{ title = 'title year', args = { page = t } }..'"' --returns "1670" as expected

return '"'..frame:expandTemplate{ title = 'title year', args = { page = t } }..'"' --returns "1670" as expected

end

function p.ns_test(frame)

local title = mw.title.getCurrentTitle()

local namespace = title.namespace

return namespace

end

return p