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

local TemplatePar = { serial = "2023-03-20",

suite = "TemplatePar",

item = 15393417,

globals = { DateTime = 20652535,

FileMedia = 24765326,

Multilingual = 47541920,

TemplUtl = 52364930,

URLutil = 10859193 } }

--[=[

* duplicates

* failsafe()

local Local = { frame = false }

local Failsafe = TemplatePar

local GlobalMod = Local

Local.messagePrefix = "lua-module-TemplatePar-"

Local.L10nDef = {}

Local.L10nDef.en = {

badPattern = "#invoke:TemplatePar pattern syntax error",

dupOpt = "#invoke:TemplatePar repeated optional parameter",

dupRule = "#invoke:TemplatePar conflict key/pattern",

empty = "Error in template * undefined value for mandatory",

invalid = "Error in template * invalid parameter",

invalidPar = "#invoke:TemplatePar invalid parameter",

minmax = "#invoke:TemplatePar min > max",

missing = "#invoke:TemplatePar missing library",

multiSpell = "Error in template * multiple spelling of parameter",

noMSGnoCAT = "#invoke:TemplatePar neither message nor category",

noname = "#invoke:TemplatePar missing parameter name",

notFound = "Error in template * missing page",

tooLong = "Error in template * parameter too long",

tooShort = "Error in template * parameter too short",

unavailable = "Error in template * parameter name missing",

undefined = "Error in template * mandatory parameter missing",

unknown = "Error in template * unknown parameter name",

unknownRule = "#invoke:TemplatePar unknown rule"

Local.patterns = {

[ "ASCII" ] = "^[ -~]*$",

[ "ASCII+" ] = "^[ -~]+$",

[ "ASCII+1" ] = "^[!-~]+$",

[ "n" ] = "^[%-]?[0-9]*$",

[ "n>0" ] = "^[0-9]*[1-9][0-9]*$",

[ "N+" ] = "^[%-]?[1-9][0-9]*$",

[ "N>0" ] = "^[1-9][0-9]*$",

[ "x" ] = "^[0-9A-Fa-f]*$",

[ "x+" ] = "^[0-9A-Fa-f]+$",

[ "X" ] = "^[0-9A-F]*$",

[ "X+" ] = "^[0-9A-F]+$",

[ "0,0" ] = "^[%-]?[0-9]*,?[0-9]*$",

[ "0,0+" ] = "^[%-]?[0-9]+,[0-9]+$",

[ "0,0+?" ] = "^[%-]?[0-9]+,?[0-9]*$",

[ "0.0" ] = "^[%-]?[0-9]*[%.]?[0-9]*$",

[ "0.0+" ] = "^[%-]?[0-9]+%.[0-9]+$",

[ "0.0+?" ] = "^[%-]?[0-9]+[%.]?[0-9]*$",

[ ".0+" ] = "^[%-]?[0-9]*[%.]?[0-9]+$",

[ "ID" ] = "^[A-Za-z]?[A-Za-z_0-9]*$",

[ "ID+" ] = "^[A-Za-z][A-Za-z_0-9]*$",

[ "ABC" ] = "^[A-Z]*$",

[ "ABC+" ] = "^[A-Z]+$",

[ "Abc" ] = "^[A-Z]*[a-z]*$",

[ "Abc+" ] = "^[A-Z][a-z]+$",

[ "abc" ] = "^[a-z]*$",

[ "abc+" ] = "^[a-z]+$",

[ "aBc+" ] = "^[a-z]+[A-Z][A-Za-z]*$",

[ "w" ] = "^%S*$",

[ "w+" ] = "^%S+$",

[ "base64" ] = "^[A-Za-z0-9%+/]*$",

[ "base64+" ] = "^[A-Za-z0-9%+/]+$",

[ "aa" ] = "[%a%a].*[%a%a]",

[ "pagename" ] = string.format( "^[^#<>%%[%%]|{}%c-%c%c]+$",

1, 31, 127 ),

[ "ref" ] = string.format( "%c'%c`UNIQ%s%sref%s%s%sQINU`%c'%c",

127, 34, "%-", "%-", "%-", "%x+",

"%-", 34, 127 ),

[ "+" ] = "%S"

Local.boolean = { ["1"] = true,

["true"] = true,

y = true,

yes = true,

on = true,

["0"] = true,

["false"] = true,

["-"] = true,

n = true,

no = true,

off = true }

Local.patternCJK = false

local foreignModule = function ( access, advanced, append, alt, alert )

-- Fetch global module

-- Precondition:

-- access -- string, with name of base module

-- advanced -- true, for require(); else mw.loadData()

-- append -- string, with subpage part, if any; or false

-- alt -- number, of wikidata item of root; or false

-- alert -- true, for throwing error on data problem

-- Postcondition:

-- Returns whatever, probably table

-- 2020-01-01

local storage = access

local finer = function ()

if append then

storage = string.format( "%s/%s",

storage,

append )

end

end

local fun, lucky, r, suited

if advanced then

fun = require

else

fun = mw.loadData

end

GlobalMod.globalModules = GlobalMod.globalModules or { }

suited = GlobalMod.globalModules[ access ]

if not suited then

finer()

lucky, r = pcall( fun, "Module:" .. storage )

end

if not lucky then

if not suited and

type( alt ) == "number" and

alt > 0 then

suited = string.format( "Q%d", alt )

suited = mw.wikibase.getSitelink( suited )

GlobalMod.globalModules[ access ] = suited or true

end

if type( suited ) == "string" then

storage = suited

finer()

lucky, r = pcall( fun, storage )

end

if not lucky and alert then

error( "Missing or invalid page: " .. storage )

end

end

return r

end -- foreignModule()

local function Foreign( access )

-- Access standardized library

-- Precondition:

-- access -- string, with name of base module

-- Postcondition:

-- Return library table, or not

-- Uses:

local r

if Local[ access ] then

r = Local[ access ]

else

local bib = foreignModule( access,

true,

false,

TemplatePar.globals[ access ],

false )

if type( bib ) == "table" and

type( bib[ access ] ) == "function" then

bib = bib[ access ]()

if type( bib ) == "table" then

r = bib

Local[ access ] = bib

end

end

end

return r

end -- Foreign()

local function containsCJK( analyse )

-- Is any CJK character present?

-- Precondition:

-- analyse -- string

-- Postcondition:

-- Return false iff no CJK present

-- Uses:

-- >< Local.patternCJK

-- mw.ustring.char()

-- mw.ustring.match()

local r = false

if not Local.patternCJK then

Local.patternCJK = mw.ustring.char( 91,

13312, 45, 40959,

131072, 45, 178207,

93 )

end

if mw.ustring.match( analyse, Local.patternCJK ) then

r = true

end

return r

-- Check string as possible file name or other source page

-- Precondition:

-- accept -- string; requirement

-- file

-- file+

-- file:

-- file:+

-- image

-- image+

-- image:

-- image:+

-- attempt -- string; to be tested

-- Postcondition:

-- Return error keyword, or false

-- Uses:

-- Module:FileMedia

-- Foreign()

-- FileMedia.isFile()

-- FileMedia.isType()

local r

if attempt and attempt ~= "" then

local FileMedia = Foreign( "FileMedia" )

if FileMedia and type( FileMedia.isFile ) == "function"

and type( FileMedia.isType ) == "function" then

local s, live = accept:match( "^([a-z]+)(:?)%+?$" )

if live then

if FileMedia.isType( attempt, s ) then

if FileMedia.isFile( attempt ) then

r = false

else

r = "notFound"

end

else

r = "invalid"

end

elseif FileMedia.isType( attempt, s ) then

r = false

else

r = "invalid"

end

else

r = "missing"

end

elseif accept:match( "%+$" ) then

r = "empty"

else

r = false

end

return r

-- Retrieve localized message string in content language

-- Precondition:

-- say -- string; message ID

-- Postcondition:

-- Return some message string

-- Uses:

-- > Local.messagePrefix

-- > Local.L10nDef

-- mw.message.new()

-- mw.language.getContentLanguage()

-- Module:Multilingual

-- Foreign()

-- TemplatePar.framing()

-- Multilingual.tabData()

local m = mw.message.new( Local.messagePrefix .. say )

local r = false

if m:isBlank() then

local c = mw.language.getContentLanguage():getCode()

local l10n = Local.L10nDef[ c ]

if l10n then

r = l10n[ say ]

else

local MultiL = Foreign( "Multilingual" )

if MultiL and type( MultiL.tabData ) == "function" then

local lang

r, lang = MultiL.tabData( "I18n/Module:TemplatePar",

say,

false,

TemplatePar.framing() )

end

end

if not r then

r = Local.L10nDef.en[ say ]

end

else

m:inLanguage( c )

r = m:plain()

end

if not r then

r = string.format( "(((%s)))", say )

end

return r

local function faculty( accept, attempt )

-- Check string as possible boolean

-- Precondition:

-- accept -- string; requirement

-- boolean

-- boolean+

-- attempt -- string; to be tested

-- Postcondition:

-- Return error keyword, or false

-- Uses:

-- Module:TemplUtl

-- Foreign()

-- TemplUtl.faculty()

local r

r = mw.text.trim( attempt ):lower()

if r == "" then

if accept == "boolean+" then

r = "empty"

else

r = false

end

elseif Local.boolean[ r ] or r:match( "^[01%-]+$" ) then

r = false

else

local TemplUtl = Foreign( "TemplUtl" )

if TemplUtl and type( TemplUtl.faculty ) == "function" then

r = TemplUtl.faculty( r, "-" )

if r == "-" then

r = "invalid"

else

r = false

end

else

r = "invalid"

end

end

return r

end -- faculty()

-- Submit localized error message

-- Precondition:

-- spec -- string; message ID

-- suspect -- string or nil; additional information

-- options -- table or nil; optional details

-- options.template

-- Postcondition:

-- Return string

-- Uses:

-- factory()

local r = factory( spec )

if type( options ) == "table" then

if type( options.template ) == "string" then

if #options.template > 0 then

r = string.format( "%s (%s)", r, options.template )

end

end

end

if suspect then

r = string.format( "%s: %s", r, suspect )

end

return r

local function fair( story, scan )

-- Test for match (possibly user-defined with syntax error)

-- Precondition:

-- story -- string; parameter value

-- scan -- string; pattern

-- Postcondition:

-- Return nil, if not matching, else non-nil

-- Uses:

-- mw.ustring.match()

return mw.ustring.match( story, scan )

end -- fair()

local function familiar( accept, attempt )

-- Check string as possible language name or list

-- Precondition:

-- accept -- string; requirement

-- lang

-- langs

-- langW

-- langsW

-- lang+

-- langs+

-- langW+

-- langsW+

-- attempt -- string; to be tested

-- Postcondition:

-- Return error keyword, or false

-- Uses:

-- Module:Multilingual

-- Foreign()

-- Multilingual.isLang()

local r

if attempt and attempt ~= "" then

local MultiL = Foreign( "Multilingual" )

if MultiL and type( MultiL.isLang ) == "function" then

local lazy = accept:find( "W", 1, true )

if accept:find( "s", 1, true ) then

local group = mw.text.split( attempt, "%s+" )

r = false

for i = 1, #group do

if not MultiL.isLang( group[ i ], lazy ) then

r = "invalid"

break -- for i

end

end -- for i

elseif MultiL.isLang( attempt, lazy ) then

r = false

else

r = "invalid"

end

else

r = "missing"

end

elseif accept:find( "+", 1, true ) then

r = "empty"

else

r = false

end

return r

end -- familiar()

local function far( accept, attempt )

-- Check string as possible URL

-- Precondition:

-- accept -- string; requirement

-- url

-- url+

-- attempt -- string; to be tested

-- Postcondition:

-- Return error keyword, or false

-- Uses:

-- Module:URLutil

-- Foreign()

-- URLutil.isWebURL()

local r

if attempt and attempt ~= "" then

local URLutil = Foreign( "URLutil" )

if URLutil and type( URLutil.isWebURL ) == "function" then

if URLutil.isWebURL( attempt ) then

r = false

else

r = "invalid"

end

else

r = "missing"

end

elseif accept:find( "+", 1, true ) then

r = "empty"

else

r = false

end

return r

end -- far()

local function fast( accept, attempt )

-- Check string as possible date or time

-- Precondition:

-- accept -- string; requirement

-- datetime

-- datetime+

-- datetime/y

-- datetime/y+

-- datetime/ym

-- datetime/ym+

-- datetime/ymd

-- datetime/ymd+

-- attempt -- string; to be tested

-- Postcondition:

-- Return error keyword, or false

-- Uses:

-- Module:DateTime

-- Foreign()

-- DateTime.DateTime()

local r

r = mw.text.trim( attempt )

if r == "" then

if accept:find( "+", 1, true ) then

r = "empty"

else

r = false

end

else

local DateTime = Foreign( "DateTime" )

if type( DateTime ) == "table" then

local d = DateTime( attempt )

if type( d ) == "table" then

if accept:find( "/", 1, true ) then

r = "invalid"

if accept:sub( 1, 10 ) == "datetime/y" then

if d.year then

r = false

if accept:sub( 1, 11 ) == "datetime/ym" then

if d.month then

if accept:sub( 1, 12 )

== "datetime/ymd" then

if not d.dom then

r = "invalid"

end

end

else

r = "invalid"

end

end

end

end

else

r = false

end

else

r = "invalid"

end

else

r = "invalid"

end

end

return r

end -- fast()

-- Add key to collection string and insert separator

-- Precondition:

-- store -- string or nil or false; collection string

-- key -- string or number; to be appended

-- Postcondition:

-- Return string; extended

local r

local s

if type( key ) == "number" then

s = tostring( key )

else

s = key

end

if store then

r = string.format( "%s; %s", store, s )

else

r = s

end

return r

-- Check content of a value

-- Precondition:

-- analyze -- string to be analyzed

-- options -- table or nil; optional details

-- options.pattern

-- options.key

-- options.say

-- abbr -- true: abbreviated error message

-- Postcondition:

-- Return string with error message as configured;

-- false if valid or no answer permitted

-- Uses:

-- > Local.patterns

-- failure()

-- mw.text.trim()

-- faculty()

-- fast()

-- facility()

-- familiar()

-- far()

-- fair()

-- containsCJK()

local r = false

local s = false

local show = nil

local scan = false

local stuff = mw.text.trim( analyze )

if type( options.pattern ) == "string" then

if options.key then

r = failure( "dupRule", false, options )

else

scan = options.pattern

end

else

if type( options.key ) == "string" then

s = mw.text.trim( options.key )

else

s = "+"

end

if s ~= "*" then

scan = Local.patterns[ s ]

end

if type( scan ) == "string" then

if s == "n" or s == "0,0" or s == "0.0" then

if not stuff:match( "[0-9]" ) and

not stuff:match( "^%s*$" ) then

scan = false

if options.say then

show = string.format( "&quot;%s&quot;", options.say )

end

if abbr then

r = show

else

r = failure( "invalid", show, options )

end

end

end

elseif s ~= "*" then

local op, n, plus = s:match( "([<!=>]=?)([-0-9][%S]*)(+?)" )

if op then

n = tonumber( n )

if n then

local i = tonumber( stuff )

if i then

if op == "<" then

i = ( i < n )

elseif op == "<=" then

i = ( i <= n )

elseif op == ">" then

i = ( i > n )

elseif op == ">=" then

i = ( i >= n )

elseif op == "==" then

i = ( i == n )

elseif op == "!=" then

i = ( i ~= n )

else

n = false

end

end

if not i then

r = "invalid"

end

elseif plus then

r = "undefined"

end

elseif s:match( "^boolean%+?$" ) then

r = faculty( s, stuff )

n = true

elseif s:match( "^datetime/?y?m?d?%+?$" ) then

r = fast( s, stuff )

n = true

elseif s:match( "^image%+?:?$" ) or

s:match( "^file%+?:?$" ) then

r = facility( s, stuff )

n = true

elseif s:match( "langs?W?%+?" ) then

r = familiar( s, stuff )

n = true

elseif s:match( "url%+?" ) then

r = far( s, stuff )

n = true

end

-- datetime+

-- iso8631+

-- line+

if not n and not r then

r = "unknownRule"

end

if r then

if options.say then

show = string.format( "&quot;%s&quot; %s", options.say, s )

else

show = s

end

if abbr then

r = show

else

r = failure( r, show, options )

end

end

end

end

if scan then

local legal, got = pcall( fair, stuff, scan )

if legal then

if not got then

if s == "aa" then

got = containsCJK( stuff )

end

if not got then

if options.say then

show = string.format( "&quot;%s&quot;", options.say )

end

if abbr then

r = show

else

r = failure( "invalid", show, options )

end

end

end

else

r = failure( "badPattern",

string.format( "%s *** %s", scan, got ),

options )

end

end

return r

-- Find needle in haystack map

-- Precondition:

-- haystack -- table; map of key values

-- needle -- any; identifier

-- Postcondition:

-- Return true iff found

local k, v, r

for k, v in pairs( haystack ) do

if k == needle then

r = true

end

end -- for k, v

return r or false

-- Return regular table with all parameters

-- Precondition:

-- light -- true: template transclusion; false: #invoke

-- options -- table; optional details

-- options.low

-- Postcondition:

-- Return table; whitespace-only values as false

-- Uses:

-- TemplatePar.downcase()

-- TemplatePar.framing()

-- frame:getParent()

local g, k, v

local r = { }

if options.low then

g = TemplatePar.downcase( options )

else

g = TemplatePar.framing()

if light then

g = g:getParent()

end

g = g.args

end

if type( g ) == "table" then

r = { }

for k, v in pairs( g ) do

if type( v ) == "string" then

if v:match( "^%s*$" ) then

v = false

end

else

v = false

end

if type( k ) == "number" then

k = tostring( k )

end

r[ k ] = v

end -- for k, v

else

r = g

end

return r

-- Extend options by rule from #invoke strings

-- Precondition:

-- append -- string or nil; requested rule

-- options -- table; details

-- ++ .key

-- ++ .pattern

-- Postcondition:

-- Return sequence table

local r = options

if type( append ) == "string" then

local story = mw.text.trim( append )

local sub = story:match( "^/(.*%S)/$" )

if type( sub ) == "string" then

sub = sub:gsub( "%%!", "|" )

:gsub( "%%%(%(", "{{" )

:gsub( "%%%)%)", "}}" )

:gsub( "\\n", string.char( 10 ) )

options.pattern = sub

options.key = nil

else

options.key = story

options.pattern = nil

end

end

return r

-- Split requirement string separated by '='

-- Precondition:

-- specified -- string or nil; requested parameter set

-- Postcondition:

-- Return sequence table

-- Uses:

-- mw.text.split()

local r

if specified then

local i, s

r = mw.text.split( specified, "%s*=%s*" )

for i = #r, 1, -1 do

s = r[ i ]

if #s == 0 then

table.remove( r, i )

end

end -- for i, -1

else

r = { }

end

return r

local function finalize( submit, options )

-- Finalize message

-- Precondition:

-- submit -- string or false or nil; non-empty error message

-- options -- table or nil; optional details

-- options.format

-- options.preview

-- options.cat

-- options.template

-- Postcondition:

-- Return string or false

-- Uses:

-- TemplatePar.framing()

-- factory()

local r = false

if submit then

local lazy = false

local learn = false

local show = false

local opt, s

if type( options ) == "table" then

opt = options

show = opt.format

lazy = ( show == "" or show == "0" or show == "-" )

s = opt.preview

if type( s ) == "string" and

s ~= "" and s ~= "0" and s ~= "-" then

local sniffer = "{{REVISIONID}}"

if lazy then

show = ""

lazy = false

end

if TemplatePar.framing():preprocess( sniffer ) == "" then

if s == "1" then

show = "*"

else

show = s

end

learn = true

end

end

else

opt = { }

end

if lazy then

if not opt.cat then

r = string.format( "%s %s",

submit, factory( "noMSGnoCAT" ) )

end

else

r = submit

end

if r and not lazy then

local i

if not show or show == "*" then

local e = mw.html.create( "span" )

:attr( "class", "error" )

:wikitext( "@@@" )

if learn then

local max = 1000000000

local id = math.floor( os.clock() * max )

local sign = string.format( "error_%d", id )

local btn = mw.html.create( "span" )

local top = mw.html.create( "div" )

e:attr( "id", sign )

btn:css( { ["background"] = "#FFFF00",

["border"] = "#FF0000 3px solid",

["font-weight"] = "bold",

["padding"] = "2px",

["text-decoration"] = "none" } )

:wikitext( "&gt;&gt;&gt;" )

sign = string.format( "[[#%s|%s]]",

sign, tostring( btn ) )

top:wikitext( sign, "&#160;", submit )

mw.addWarning( tostring( top ) )

end

show = tostring( e )

end

i = show:find( "@@@", 1, true )

if i then

-- No gsub() since r might contain "%3" (e.g. URL)

r = string.format( "%s%s%s",

show:sub( 1, i - 1 ),

r,

show:sub( i + 3 ) )

else

r = show

end

end

if learn and r then

-- r = fatal( r )

end

s = opt.cat

if type( s ) == "string" then

local link

if opt.errNS then

local ns = mw.title.getCurrentTitle().namespace

local st = type( opt.errNS )

if st == "string" then

local space = string.format( ".*%%s%d%%s.*", ns )

local spaces = string.format( " %s ", opt.errNS )

if spaces:match( space ) then

link = true

end

elseif st == "table" then

for i = 1, #opt.errNS do

if opt.errNS[ i ] == ns then

link = true

break -- for i

end

end -- for i

end

else

link = true

end

if link then

local cats, i

if not r then

r = ""

end

if s:find( "@@@" ) then

if type( opt.template ) == "string" then

s = s:gsub( "@@@", opt.template )

end

end

cats = mw.text.split( s, "%s*#%s*" )

for i = 1, #cats do