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

(Difference between pages)
Jump to navigation Jump to search
Page 1
Page 2
imported>Lemondoge
imported>Leyo
update from global upstream version, as requested by the developer; pre-view tested
 
imported>Lemondoge
mild simplifications, replace quintuple spaces with tabs
 
Line 1: Line 1:
local TemplatePar = { serial  = "2023-03-20",
--[=[ TemplatePar 2015-02-14
                      suite  = "TemplatePar",
                      item    = 15393417,
                      globals = { DateTime    = 20652535,
                                  FileMedia    = 24765326,
                                  Multilingual = 47541920,
                                  TemplUtl    = 52364930,
                                  URLutil      = 10859193 } }
--[=[
Template parameter utility
Template parameter utility
* assert
* assert
Line 14: Line 6:
* countNotEmpty
* countNotEmpty
* downcase()
* downcase()
* duplicates
* match
* match
* valid
* valid
* verify()
* verify()
* TemplatePar()
* TemplatePar()
* failsafe()
]=]
]=]
local Local    = { frame = false }
local Failsafe  = TemplatePar
local GlobalMod = Local






-- Module globals
-- Module globals
Local.messagePrefix = "lua-module-TemplatePar-"
local TemplatePar = { }
Local.L10nDef = {}
local MessagePrefix = "lua-module-TemplatePar-"
Local.L10nDef.en = {
local L10nDef = {}
    badPattern  = "#invoke:TemplatePar pattern syntax error",
L10nDef.en = {
    dupOpt     = "#invoke:TemplatePar repeated optional parameter",
badPattern  = "#invoke:TemplatePar pattern syntax error",
    dupRule     = "#invoke:TemplatePar conflict key/pattern",
dupOpt   = "#invoke:TemplatePar repeated optional parameter",
    empty       = "Error in template * undefined value for mandatory",
dupRule = "#invoke:TemplatePar conflict key/pattern",
    invalid     = "Error in template * invalid parameter",
empty   = "Error in template * undefined value for mandatory",
    invalidPar  = "#invoke:TemplatePar invalid parameter",
invalid = "Error in template * invalid parameter",
    minmax     = "#invoke:TemplatePar min > max",
invalidPar  = "#invoke:TemplatePar invalid parameter",
    missing     = "#invoke:TemplatePar missing library",
minmax   = "#invoke:TemplatePar min > max",
    multiSpell  = "Error in template * multiple spelling of parameter",
missing = "#invoke:TemplatePar missing library",
    noMSGnoCAT  = "#invoke:TemplatePar neither message nor category",
multiSpell  = "Error in template * multiple spelling of parameter",
    noname     = "#invoke:TemplatePar missing parameter name",
noMSGnoCAT  = "#invoke:TemplatePar neither message nor category",
    notFound   = "Error in template * missing page",
noname   = "#invoke:TemplatePar missing parameter name",
    tooLong     = "Error in template * parameter too long",
notFound = "Error in template * missing page",
    tooShort   = "Error in template * parameter too short",
tooLong = "Error in template * parameter too long",
    unavailable = "Error in template * parameter name missing",
tooShort = "Error in template * parameter too short",
    undefined  = "Error in template * mandatory parameter missing",
undefined  = "Error in template * mandatory parameter missing",
    unknown     = "Error in template * unknown parameter name",
unknown = "Error in template * unknown parameter name",
    unknownRule = "#invoke:TemplatePar unknown rule"
unknownRule = "#invoke:TemplatePar unknown rule"
}
L10nDef.de  = {
badPattern  = "#invoke:TemplatePar Syntaxfehler des pattern",
dupOpt   = "#invoke:TemplatePar Optionsparameter wiederholt",
dupRule = "#invoke:TemplatePar Konflikt key/pattern",
empty   = "Fehler bei Vorlage * Pflichtparameter ohne Wert",
invalid = "Fehler bei Vorlage * Parameter ungültig",
invalidPar  = "#invoke:TemplatePar Ungültiger Parameter",
minmax   = "#invoke:TemplatePar min > max",
multiSpell  = "Fehler bei Vorlage * Mehrere Parameter-Schreibweisen",
noMSGnoCAT  = "#invoke:TemplatePar weder Meldung noch Kategorie",
noname   = "#invoke:TemplatePar Parameter nicht angegeben",
notFound = "Fehler bei Vorlage * Seite fehlt",
tooLong = "Fehler bei Vorlage * Parameter zu lang",
tooShort = "Fehler bei Vorlage * Parameter zu kurz",
undefined  = "Fehler bei Vorlage * Pflichtparameter fehlt",
unknown = "Fehler bei Vorlage * Parametername unbekannt",
unknownRule = "#invoke:TemplatePar Unbekannte Regel"
}
}
Local.patterns = {
local Patterns = {
    [ "ASCII" ]   = "^[ -~]*$",
[ "ASCII" ] = "^[ -~]*$",
    [ "ASCII+" ]  = "^[ -~]+$",
[ "ASCII+" ]  = "^[ -~]+$",
    [ "ASCII+1" ]  = "^[!-~]+$",
[ "ASCII+1" ]  = "^[!-~]+$",
    [ "n" ]       = "^[%-]?[0-9]*$",
[ "n" ] = "^[%-]?[0-9]*$",
    [ "n>0" ]     = "^[0-9]*[1-9][0-9]*$",
[ "n>0" ]   = "^[0-9]*[1-9][0-9]*$",
    [ "N+" ]       = "^[%-]?[1-9][0-9]*$",
[ "N+" ]   = "^[%-]?[1-9][0-9]*$",
    [ "N>0" ]     = "^[1-9][0-9]*$",
[ "N>0" ]   = "^[1-9][0-9]*$",
    [ "x" ]       = "^[0-9A-Fa-f]*$",
[ "x" ] = "^[0-9A-Fa-f]*$",
    [ "x+" ]       = "^[0-9A-Fa-f]+$",
[ "x+" ]   = "^[0-9A-Fa-f]+$",
    [ "X" ]       = "^[0-9A-F]*$",
[ "X" ] = "^[0-9A-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" ]     = "^[%-]?[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]+$",
[ ".0+" ]   = "^[%-]?[0-9]*[%.]?[0-9]+$",
    [ "ID" ]       = "^[A-Za-z]?[A-Za-z_0-9]*$",
[ "ID" ]   = "^[A-Za-z]?[A-Za-z_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]+$",
[ "ABC+" ] = "^[A-Z]+$",
    [ "Abc" ]     = "^[A-Z]*[a-z]*$",
[ "Abc" ]   = "^[A-Z]*[a-z]*$",
    [ "Abc+" ]     = "^[A-Z][a-z]+$",
[ "Abc+" ] = "^[A-Z][a-z]+$",
    [ "abc" ]     = "^[a-z]*$",
[ "abc" ]   = "^[a-z]*$",
    [ "abc+" ]     = "^[a-z]+$",
[ "abc+" ] = "^[a-z]+$",
    [ "aBc+" ]     = "^[a-z]+[A-Z][A-Za-z]*$",
[ "aBc+" ] = "^[a-z]+[A-Z][A-Za-z]*$",
    [ "w" ]       = "^%S*$",
[ "w" ] = "^%S*$",
    [ "w+" ]       = "^%S+$",
[ "w+" ]   = "^%S+$",
    [ "base64" ]  = "^[A-Za-z0-9%+/]*$",
[ "base64" ]  = "^[A-Za-z0-9%+/]*$",
    [ "base64+" ]  = "^[A-Za-z0-9%+/]+$",
[ "base64+" ]  = "^[A-Za-z0-9%+/]+$",
    [ "aa" ]       = "[%a%a].*[%a%a]",
[ "aa" ]   = "[%a%a].*[%a%a]",
    [ "pagename" ] = string.format( "^[^#<>%%[%%]|{}%c-%c%c]+$",
[ "pagename" ] = string.format( "^[^#<>%%[%%]|{}%c-%c%c]+$",
                                    1, 31, 127 ),
1, 31, 127 ),
    [ "ref" ]      = string.format( "%c'%c`UNIQ%s%sref%s%s%sQINU`%c'%c",
[ "+" ] = "%S"
                                    127, 34, "%-", "%-", "%-", "%x+",
                                    "%-", 34, 127 ),
    [ "+" ]       = "%S"
}
}
Local.boolean = { ["1"]    = true,
local patternCJK = false
                  ["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 )
local function containsCJK( s )
    -- Is any CJK character present?
-- Is any CJK character present?
    -- Precondition:
-- Precondition:
    --     analyse -- string
-- s -- string
    -- Postcondition:
-- Postcondition:
    --     Return false iff no CJK present
-- Return false iff no CJK present
    -- Uses:
-- Uses:
    --     >< Local.patternCJK
-- >< patternCJK
    --     mw.ustring.char()
-- mw.ustring.char()
    --     mw.ustring.match()
-- mw.ustring.match()
    local r = false
local r = false
    if not Local.patternCJK then
patternCJK = patternCJK or mw.ustring.char(91,
        Local.patternCJK = mw.ustring.char( 91,
  13312, 45,  40959,
                                      13312, 45,  40959,
  131072, 45, 178207,
                                      131072, 45, 178207,
  93 )
                                      93 )
if mw.ustring.match( s, patternCJK ) then
    end
r = true
    if mw.ustring.match( analyse, Local.patternCJK ) then
end
        r = true
return r
    end
    return r
end -- containsCJK()
end -- containsCJK()


Line 216: Line 120:


local function facility( accept, attempt )
local function facility( accept, attempt )
    -- Check string as possible file name or other source page
-- Check string as possible file name or other source page
    -- Precondition:
-- Precondition:
    --     accept  -- string; requirement
-- accept  -- string; requirement
    --                         file
-- file
    --                         file+
-- file+
    --                         file:
-- file:
    --                         file:+
-- file:+
    --                         image
-- image
    --                         image+
-- image+
    --                         image:
-- image:
    --                         image:+
-- image:+
    --     attempt  -- string; to be tested
-- attempt  -- string; to be tested
    -- Postcondition:
-- Postcondition:
    --     Return error keyword, or false
-- Return error keyword, or false
    -- Uses:
-- Uses:
    --     Module:FileMedia
-- Module:FileMedia
    --     Foreign()
-- FileMedia.isType()
    --    FileMedia.isFile()
local r
    --    FileMedia.isType()
if attempt and attempt ~= "" then
    local r
local lucky, FileMedia = pcall( require, "Module:FileMedia" )
    if attempt and attempt ~= "" then
if type( FileMedia ) == "table" then
        local FileMedia = Foreign( "FileMedia" )
FileMedia = FileMedia.FileMedia()
        if FileMedia  and  type( FileMedia.isFile ) == "function"
local s, live = accept:match( "^([a-z]+)(:?)%+?$" )
                      and  type( FileMedia.isType ) == "function" then
if live then
            local s, live = accept:match( "^([a-z]+)(:?)%+?$" )
if FileMedia.isType( attempt, s ) then
            if live then
if FileMedia.isFile( attempt ) then
                if FileMedia.isType( attempt, s ) then
r = false
                    if FileMedia.isFile( attempt ) then
else
                        r = false
r = "notFound"
                    else
end
                        r = "notFound"
else
                    end
r = "invalid"
                else
end
                    r = "invalid"
elseif FileMedia.isType( attempt, s ) then
                end
r = false
            elseif FileMedia.isType( attempt, s ) then
else
                r = false
r = "invalid"
            else
end
                r = "invalid"
else
            end
r = "missing"
        else
end
            r = "missing"
elseif accept:match( "%+$" ) then
        end
r = "empty"
    elseif accept:match( "%+$" ) then
else
        r = "empty"
r = false
    else
end
        r = false
return r
    end
    return r
end -- facility()
end -- facility()


Line 270: Line 172:


local function factory( say )
local function factory( say )
    -- Retrieve localized message string in content language
-- Retrieve localized message string in content language
    -- Precondition:
-- Precondition:
    --     say  -- string; message ID
-- say  -- string; message ID
    -- Postcondition:
-- Postcondition:
    --     Return some message string
-- Return some message string
    -- Uses:
-- Uses:
    --     >  Local.messagePrefix
-- >  MessagePrefix
    --     >  Local.L10nDef
-- >  L10nDef
    --     mw.message.new()
-- mw.language.getContentLanguage()
    --     mw.language.getContentLanguage()
-- mw.message.new()
    --    Module:Multilingual
local c = mw.language.getContentLanguage():getCode()
    --    Foreign()
local m = mw.message.new( MessagePrefix .. say )
    --    TemplatePar.framing()
local r = false
    --    Multilingual.tabData()
if m:isBlank() then
    local m = mw.message.new( Local.messagePrefix .. say )
local l10n = L10nDef[ c ] or L10nDef[ "en" ]
    local r = false
r = l10n[ say ]
    if m:isBlank() then
else
        local c = mw.language.getContentLanguage():getCode()
m:inLanguage( c )
        local l10n = Local.L10nDef[ c ]
r = m:plain()
        if l10n then
end
            r = l10n[ say ]
r = r or string.format( "(((%s)))", say )
        else
return r
            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
end -- factory()
end -- factory()






local function faculty( accept, attempt )
local function failsafe( story, scan )
    -- Check string as possible boolean
-- Test for match (possibly user-defined with syntax error)
    -- Precondition:
-- Precondition:
    --     accept  -- string; requirement
-- story  -- string; parameter value
    --                         boolean
-- scan  -- string; pattern
    --                        boolean+
-- Postcondition:
    --    attempt -- string; to be tested
-- Return nil, if not matching, else non-nil
    -- Postcondition:
-- Uses:
    --     Return error keyword, or false
-- mw.ustring.match()
    -- Uses:
return mw.ustring.match( story, scan )
    --     Module:TemplUtl
end -- failsafe()
    --    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()






local function failure( spec, suspect, options )
local function failure( spec, suspect, options )
    -- Submit localized error message
-- Submit localized error message
    -- Precondition:
-- Precondition:
    --     spec     -- string; message ID
-- spec -- string; message ID
    --     suspect  -- string or nil; additional information
-- suspect  -- string or nil; additional information
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    --                 options.template
-- options.template
    -- Postcondition:
-- Postcondition:
    --     Return string
-- Return string
    -- Uses:
-- Uses:
    --     factory()
-- factory()
    local r = factory( spec )
local r = factory( spec )
    if type( options ) == "table" then
if type( options ) == "table" then
        if type( options.template ) == "string" then
if type( options.template ) == "string" then
            if #options.template > 0 then
if #options.template > 0 then
                r = string.format( "%s (%s)", r, options.template )
r = string.format( "%s (%s)", r, options.template )
            end
end
        end
end
    end
end
    if suspect then
if suspect then
        r = string.format( "%s: %s", r, suspect )
r = string.format( "%s: %s", r, suspect )
    end
end
    return r
return r
end -- failure()
end -- failure()
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()






local function fault( store, key )
local function fault( store, key )
    -- Add key to collection string and insert separator
-- Add key to collection string and insert separator
    -- Precondition:
-- Precondition:
    --     store  -- string or nil or false; collection string
-- store  -- string or nil or false; collection string
    --     key   -- string or number; to be appended
-- key -- string or number; to be appended
    -- Postcondition:
-- Postcondition:
    --     Return string; extended
-- Return string; extended
    local r
local r
    local s
local s
    if type( key ) == "number" then
if type( key ) == "number" then
        s = tostring( key )
s = tostring( key )
    else
else
        s = key
s = key
    end
end
    if store then
if store then
        r = string.format( "%s; %s", store, s )
r = string.format( "%s; %s", store, s )
    else
else
        r = s
r = s
    end
end
    return r
return r
end -- fault()
end -- fault()


Line 575: Line 264:


local function feasible( analyze, options, abbr )
local function feasible( analyze, options, abbr )
    -- Check content of a value
-- Check content of a value
    -- Precondition:
-- Precondition:
    --     analyze  -- string to be analyzed
-- analyze  -- string to be analyzed
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    --                 options.pattern
-- options.pattern
    --                 options.key
-- options.key
    --                 options.say
-- options.say
    --     abbr     -- true: abbreviated error message
-- abbr -- true: abbreviated error message
    -- Postcondition:
-- Postcondition:
    --     Return string with error message as configured;
-- Return string with error message as configured;
    --           false if valid or no answer permitted
-- false if valid or no answer permitted
    -- Uses:
-- Uses:
    --     >  Local.patterns
-- >  Patterns
    --     failure()
-- failure()
    --     mw.text.trim()
-- mw.text.trim()
    --     faculty()
-- facility()
    --    fast()
-- failsafe()
    --    facility()
-- containsCJK()
    --     familiar()
local r = false
    --     far()
local s = false
    --    fair()
local show = nil
    --    containsCJK()
local scan = false
    local r     = false
if type( options.pattern ) == "string" then
    local s     = false
if options.key then
    local show = nil
r = failure( "dupRule", false, options )
    local scan = false
else
    local stuff = mw.text.trim( analyze )
scan = options.pattern
    if type( options.pattern ) == "string" then
end
        if options.key then
else
            r = failure( "dupRule", false, options )
if type( options.key ) == "string" then
        else
s = mw.text.trim( options.key )
            scan = options.pattern
else
        end
s = "+"
    else
end
        if type( options.key ) == "string" then
if s ~= "*" then
            s = mw.text.trim( options.key )
scan = Patterns[ s ]
        else
end
            s = "+"
if type( scan ) == "string" then
        end
if s == "n" or s == "0,0" or s == "0.0" then
        if s ~= "*" then
if not analyze:match( "[0-9]" )  and
            scan = Local.patterns[ s ]
  not analyze:match( "^%s*$" ) then
        end
scan = false
        if type( scan ) == "string" then
if options.say then
            if s == "n" or s == "0,0" or s == "0.0" then
show = string.format( "'%s'", options.say )
                if not stuff:match( "[0-9]" )  and
end
                  not stuff:match( "^%s*$" ) then
if abbr then
                    scan = false
r = show
                    if options.say then
else
                        show = string.format( "&quot;%s&quot;", options.say )
r = failure( "invalid", show, options )
                    end
end
                    if abbr then
end
                        r = show
end
                    else
elseif s ~= "*" then
                        r = failure( "invalid", show, options )
local op, n, plus = s:match( "([<!=>]=?)([-0-9][%S]*)(+?)" )
                    end
if op then
                end
n = tonumber( n )
            end
if n then
        elseif s ~= "*" then
local i = tonumber( analyze )
            local op, n, plus = s:match( "([<!=>]=?)([-0-9][%S]*)(+?)" )
if i then
            if op then
if op == "<" then
                n = tonumber( n )
i = ( i < n )
                if n then
elseif op == "<=" then
                    local i = tonumber( stuff )
i = ( i <= n )
                    if i then
elseif op == ">" then
                        if op == "<" then
i = ( i > n )
                            i = ( i < n )
elseif op == ">=" then
                        elseif op == "<=" then
i = ( i >= n )
                            i = ( i <= n )
elseif op == "==" then
                        elseif op == ">" then
i = ( i == n )
                            i = ( i > n )
elseif op == "!=" then
                        elseif op == ">=" then
i = ( i ~= n )
                            i = ( i >= n )
else
                        elseif op == "==" then
n = false
                            i = ( i == n )
end
                        elseif op == "!=" then
end
                            i = ( i ~= n )
if not i then
                        else
r = "invalid"
                            n = false
end
                        end
elseif plus then
                    end
r = "undefined"
                    if not i then
end
                        r = "invalid"
elseif s:match( "^image%+?:?$" )  or
                    end
  s:match( "^file%+?:?$" ) then
                elseif plus then
r = facility( s, analyze )
                    r = "undefined"
n = true
                end
elseif s:match( "langW?%+?" ) then
            elseif s:match( "^boolean%+?$" ) then
n = "lang"
                r = faculty( s, stuff )
-- lang lang+
                n = true
-- langW langW+
            elseif s:match( "^datetime/?y?m?d?%+?$" ) then
end
                r = fast( s, stuff )
if not n and not r then
                n = true
r = "unknownRule"
            elseif s:match( "^image%+?:?$" )  or
end
                  s:match( "^file%+?:?$" ) then
if r then
                r = facility( s, stuff )
if options.say then
                n = true
show = string.format( "'%s' %s", options.say, s )
            elseif s:match( "langs?W?%+?" ) then
else
                r = familiar( s, stuff )
show = s
                n = true
end
            elseif s:match( "url%+?" ) then
if abbr then
                r = far( s, stuff )
r = show
                n = true
else
            end
r = failure( r, show, options )
-- datetime+
end
-- iso8631+
end
-- line+
end
            if not n and not r then
end
                r = "unknownRule"
if scan then
            end
local legal, got = pcall( failsafe, analyze, scan )
            if r then
if legal then
                if options.say then
if not got then
                    show = string.format( "&quot;%s&quot; %s", options.say, s )
if s == "aa" then
                else
got = containsCJK( analyze )
                    show = s
end
                end
if not got then
                if abbr then
if options.say then
                    r = show
show = string.format( "'%s'", options.say )
                else
end
                    r = failure( r, show, options )
if abbr then
                end
r = show
            end
else
        end
r = failure( "invalid", show, options )
    end
end
    if scan then
end
        local legal, got = pcall( fair, stuff, scan )
end
        if legal then
else
            if not got then
r = failure( "badPattern",
                if s == "aa" then
string.format( "%s *** %s", scan, got ),
                    got = containsCJK( stuff )
options )
                end
end
                if not got then
end
                    if options.say then
return r
                        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
end -- feasible()
end -- feasible()


Line 728: Line 401:


local function fed( haystack, needle )
local function fed( haystack, needle )
    -- Find needle in haystack map
-- Find needle in haystack map
    -- Precondition:
-- Precondition:
    --     haystack  -- table; map of key values
-- haystack  -- table; map of key values
    --     needle   -- any; identifier
-- needle -- any; identifier
    -- Postcondition:
-- Postcondition:
    --     Return true iff found
-- Return true iff found
    local k, v, r
local k, v
    for k, v in pairs( haystack ) do
for k, v in pairs( haystack ) do
        if k == needle then
if k == needle then
            r = true
return true
        end
end
    end -- for k, v
end -- for k, v
    return r or false
return false
end -- fed()
end -- fed()


Line 746: Line 419:


local function fetch( light, options )
local function fetch( light, options )
    -- Return regular table with all parameters
-- Return regular table with all parameters
    -- Precondition:
-- Precondition:
    --     light   -- true: template transclusion;  false: #invoke
-- light -- true: template transclusion;  false: #invoke
    --     options  -- table; optional details
-- options  -- table; optional details
    --                 options.low
-- options.low
    -- Postcondition:
-- Postcondition:
    --     Return table; whitespace-only values as false
-- Return table; whitespace-only values as false
    -- Uses:
-- Uses:
    --     TemplatePar.downcase()
-- TemplatePar.downcase()
    --     TemplatePar.framing()
-- mw.getCurrentFrame()
    --     frame:getParent()
-- frame:getParent()
    local g, k, v
local g, k, v
    local r = { }
local r = { }
    if options.low then
if options.low then
        g = TemplatePar.downcase( options )
g = TemplatePar.downcase( options )
    else
else
        g = TemplatePar.framing()
g = mw.getCurrentFrame()
        if light then
if light then
            g = g:getParent()
g = g:getParent()
        end
end
        g = g.args
g = g.args
    end
end
    if type( g ) == "table"  then
if type( g ) == "table"  then
        r = { }
r = { }
        for k, v in pairs( g ) do
for k, v in pairs( g ) do
            if type( v ) == "string" then
if type( v ) == "string" then
                if v:match( "^%s*$" ) then
if v:match( "^%s*$" ) then
                    v = false
v = false
                end
end
            else
else
                v = false
v = false
            end
end
            if type( k ) == "number" then
if type( k ) == "number" then
                k = tostring( k )
k = tostring( k )
            end
end
            r[ k ] = v
r[ k ] = v
        end -- for k, v
end -- for k, v
    else
else
        r = g
r = g
    end
end
    return r
return r
end -- fetch()
end -- fetch()


Line 792: Line 465:


local function figure( append, options )
local function figure( append, options )
    -- Extend options by rule from #invoke strings
-- Extend options by rule from #invoke strings
    -- Precondition:
-- Precondition:
    --     append  -- string or nil; requested rule
-- append  -- string or nil; requested rule
    --     options  --  table; details
-- options  --  table; details
    --                 ++ .key
--   ++ .key
    --                 ++ .pattern
--   ++ .pattern
    -- Postcondition:
-- Postcondition:
    --     Return sequence table
-- Return sequence table
    local r = options
local r = options
    if type( append ) == "string" then
if type( append ) == "string" then
        local story = mw.text.trim( append )
local story = mw.text.trim( append )
        local sub  = story:match( "^/(.*%S)/$" )
local sub  = story:match( "^/(.*%S)/$" )
        if type( sub ) == "string" then
if type( sub ) == "string" then
            sub             = sub:gsub( "%%!", "|" )
sub = sub:gsub( "%%!", "|" )
                                :gsub( "%%%(%(", "{{" )
sub = sub:gsub( "%%%(%(", "{{" )
                                :gsub( "%%%)%)", "}}" )
sub = sub:gsub( "%%%)%)", "}}" )
                                :gsub( "\\n", string.char( 10 ) )
options.pattern = sub
            options.pattern = sub
options.key = nil
            options.key     = nil
else
        else
options.key = story
            options.key     = story
options.pattern = nil
            options.pattern = nil
end
        end
end
    end
return r
    return r
end -- figure()
end -- figure()


Line 822: Line 494:


local function fill( specified )
local function fill( specified )
    -- Split requirement string separated by '='
-- Split requirement string separated by '='
    -- Precondition:
-- Precondition:
    --     specified  -- string or nil; requested parameter set
-- specified  -- string or nil; requested parameter set
    -- Postcondition:
-- Postcondition:
    --     Return sequence table
-- Return sequence table
    -- Uses:
-- Uses:
    --     mw.text.split()
-- mw.text.split()
    local r
local r
    if specified then
if specified then
        local i, s
local i, s
        r = mw.text.split( specified, "%s*=%s*" )
r = mw.text.split( specified, "%s*=%s*" )
        for i = #r, 1, -1 do
for i = #r, 1, -1 do
            s = r[ i ]
s = r[ i ]
            if #s == 0 then
if #s == 0 then
                table.remove( r, i )
table.remove( r, i )
            end
end
        end -- for i, -1
end -- for i, -1
    else
else
        r = { }
r = { }
    end
end
    return r
return r
end -- fill()
end -- fill()






local function finalize( submit, options )
local function finalize( submit, options, frame )
    -- Finalize message
-- Finalize message
    -- Precondition:
-- Precondition:
    --     submit  -- string or false or nil; non-empty error message
-- submit  -- string or false or nil; non-empty error message
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    --                 options.format
-- options.format
    --                 options.preview
-- options.preview
    --                 options.cat
-- options.cat
    --                 options.template
-- options.template
    -- Postcondition:
-- frame -- object, or false
    --     Return string or false
-- Postcondition:
    -- Uses:
-- Return string or false
    --     TemplatePar.framing()
-- Uses:
    --    factory()
-- factory()
    local r = false
local r = false
    if submit then
if submit then
        local lazy  = false
local opt, s
        local learn = false
local lazy = false
        local show = false
local show = false
        local opt, s
if type( options ) == "table" then
        if type( options ) == "table" then
opt  = options
            opt  = options
show = opt.format
            show = opt.format
lazy = ( show == ""  or  show == "0"  or  show == "-" )
            lazy = ( show == ""  or  show == "0"  or  show == "-" )
s = opt.preview
            s   = opt.preview
if type( s ) == "string"  and
            if type( s ) == "string"  and
s ~= ""  and  s ~= "0"  and  s ~= "-" then
              s ~= ""  and  s ~= "0"  and  s ~= "-" then
if lazy then
                local sniffer = "{{REVISIONID}}"
show = ""
                if lazy then
lazy = false
                    show = ""
end
                    lazy = false
frame = frame or mw.getCurrentFrame()
                end
if frame:preprocess( "{{REVISIONID}}" ) == "" then
                if TemplatePar.framing():preprocess( sniffer ) == "" then
if s == "1" then
                    if s == "1" then
show = "*"
                        show = "*"
else
                    else
show = s
                        show = s
end
                    end
end
                    learn = true
end
                end
else
            end
opt = { }
        else
end
            opt = { }
if lazy then
        end
if not opt.cat then
        if lazy then
r = string.format( "%s %s",
            if not opt.cat then
  submit,  factory( "noMSGnoCAT" ) )
                r = string.format( "%s %s",
end
                                  submit,  factory( "noMSGnoCAT" ) )
else
            end
r = submit
        else
end
            r = submit
if r  and  not lazy then
        end
local i
        if r  and  not lazy then
if not show  or  show == "*" then
            local i
show = "<span class=\"error\">@@@</span>"
            if not show  or  show == "*" then
end
                local e = mw.html.create( "span" )
i = show:find( "@@@", 1, true )
                                :attr( "class", "error" )
if i then
                                :wikitext( "@@@" )
-- No gsub() since r might contain "%3" (e.g. URL)
                if learn then
r = string.format( "%s%s%s",
                    local max  = 1000000000
  show:sub( 1,  i - 1 ),
                    local id  = math.floor( os.clock() * max )
  r,
                    local sign = string.format( "error_%d", id )
  show:sub( i + 3 ) )
                    local btn  = mw.html.create( "span" )
else
                    local top  = mw.html.create( "div" )
r = show
                    e:attr( "id", sign )
end
                    btn:css( { ["background"]      = "#FFFF00",
end
                              ["border"]          = "#FF0000 3px solid",
s = opt.cat
                              ["font-weight"]    = "bold",
if type( s ) == "string" then
                              ["padding"]        = "2px",
if opt.errNS then
                              ["text-decoration"] = "none" } )
local ns = mw.title.getCurrentTitle().namespace
                      :wikitext( "&gt;&gt;&gt;" )
local st = type( opt.errNS )
                    sign = string.format( "[[#%s|%s]]",
if st == "string" then
                                          sign,  tostring( btn ) )
local space  = string.format( ".*%%s%d%%s.*", ns )
                    top:wikitext( sign, "&#160;", submit )
local spaces = string.format( " %s ", opt.errNS )
                    mw.addWarning( tostring( top ) )
if spaces:match( space ) then
                end
opt.errNS = false
                show = tostring( e )
end
            end
elseif st == "table" then
            i = show:find( "@@@", 1, true )
for i = 1, #opt.errNS do
            if i then
if opt.errNS[ i ] == ns then
                -- No gsub() since r might contain "%3" (e.g. URL)
opt.errNS = false
                r = string.format( "%s%s%s",
break -- for i
                                  show:sub( 1,  i - 1 ),
end
                                  r,
end -- for i
                                  show:sub( i + 3 ) )
end
            else
end
                r = show
if opt.errNS then
            end
r = ""
        end
else
        if learn and r then
r = r or ""
            -- r = fatal( r )
if s:find( "@@@" ) then
        end
if type( opt.template ) == "string" then
        s = opt.cat
s = s:gsub( "@@@", opt.template )
        if type( s ) == "string" then
end
            local link
end
            if opt.errNS then
local i
                local ns = mw.title.getCurrentTitle().namespace
local cats = mw.text.split( s, "%s*#%s*" )
                local st = type( opt.errNS )
for i = 1, #cats do
                if st == "string" then
s = mw.text.trim( cats[ i ] )
                    local space  = string.format( ".*%%s%d%%s.*", ns )
if #s > 0 then
                    local spaces = string.format( " %s ", opt.errNS )
r = string.format( "%s[[Category:%s]]", r, s )
                    if spaces:match( space ) then
end
                        link = true
end -- for i
                    end
end
                elseif st == "table" then
end
                    for i = 1, #opt.errNS do
end
                        if opt.errNS[ i ] == ns then
return r
                            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
                    s = mw.text.trim( cats[ i ] )
                    if #s > 0 then
                        r = string.format( "%s[[Category:%s]]", r, s )
                    end
                end -- for i
            end
        end
    end
    return r
end -- finalize()
end -- finalize()


Line 988: Line 631:


local function finder( haystack, needle )
local function finder( haystack, needle )
    -- Find needle in haystack sequence
-- Find needle in haystack sequence
    -- Precondition:
-- Precondition:
    --     haystack  -- table; sequence of key names, downcased if low
-- haystack  -- table; sequence of key names, downcased if low
    --     needle   -- any; key name
-- needle -- any; key name
    -- Postcondition:
-- Postcondition:
    --     Return true iff found
-- Return true iff found
    local i
local i
    for i = 1, #haystack do
for i = 1, #haystack do
        if haystack[ i ] == needle then
if haystack[ i ] == needle then
            return true
return true
        end
end
    end -- for i
end -- for i
    return false
return false
end -- finder()
end -- finder()


Line 1,006: Line 649:


local function fix( valid, duty, got, options )
local function fix( valid, duty, got, options )
    -- Perform parameter analysis
-- Perform parameter analysis
    -- Precondition:
-- Precondition:
    --     valid   -- table; unique sequence of known parameters
-- valid -- table; unique sequence of known parameters
    --     duty     -- table; sequence of mandatory parameters
-- duty -- table; sequence of mandatory parameters
    --     got     -- table; sequence of current parameters
-- got   -- table; sequence of current parameters
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    -- Postcondition:
-- Postcondition:
    --     Return string as configured; empty if valid
-- Return string as configured; empty if valid
    -- Uses:
-- Uses:
    --     finder()
-- finder()
    --     fault()
-- fault()
    --     failure()
-- failure()
    --     fed()
-- fed()
    local r = false
local k, v
    local lack
local r = false
    for k, v in pairs( got ) do
for k, v in pairs( got ) do
        if k == "" then
if not finder( valid, k ) then
            lack = true
r = fault( r, k )
            break    -- for k, v
end
        elseif not finder( valid, k ) then
end -- for k, v
            r = fault( r, k )
if r then
        end
r = failure( "unknown",
    end -- for k, v
string.format( "'%s'", r ),
    if lack then
options )
        r = failure( "unavailable", false, options )
else -- all names valid
    elseif r then
local i, s
        r = failure( "unknown",
for i = 1, #duty do
                    string.format( "&quot;%s&quot;", r ),
s = duty[ i ]
                    options )
if not fed( got, s ) then
    else -- all names valid
r = fault( r, s )
        local i, s
end
        for i = 1, #duty do
end -- for i
            s = duty[ i ]
if r then
            if not fed( got, s ) then
r = failure( "undefined", r, options )
                r = fault( r, s )
else -- all mandatory present
            end
for i = 1, #duty do
        end -- for i
s = duty[ i ]
        if r then
if not got[ s ] then
            r = failure( "undefined", r, options )
r = fault( r, s )
        else -- all mandatory present
end
            for i = 1, #duty do
end -- for i
                s = duty[ i ]
if r then
                if not got[ s ] then
r = failure( "empty", r, options )
                    r = fault( r, s )
end
                end
end
            end -- for i
end
            if r then
return r
                r = failure( "empty", r, options )
            end
        end
    end
    return r
end -- fix()
end -- fix()


Line 1,063: Line 701:


local function flat( collection, options )
local function flat( collection, options )
    -- Return all table elements with downcased string
-- Return all table elements with downcased string
    -- Precondition:
-- Precondition:
    --     collection  -- table; k=v pairs
-- collection  -- table; k=v pairs
    --     options     -- table or nil; optional messaging details
-- options -- table or nil; optional messaging details
    -- Postcondition:
-- Postcondition:
    --     Return table, may be empty; or string with error message.
-- Return table, may be empty; or string with error message.
    -- Uses:
-- Uses:
    --     mw.ustring.lower()
-- mw.ustring.lower()
    --     fault()
-- fault()
    --     failure()
-- failure()
    local k, v
local k, v
    local r = { }
local r = { }
    local e = false
local e = false
    for k, v in pairs( collection ) do
for k, v in pairs( collection ) do
        if type ( k ) == "string" then
if type ( k ) == "string" then
            k = mw.ustring.lower( k )
k = mw.ustring.lower( k )
            if r[ k ] then
if r[ k ] then
                e = fault( e, k )
e = fault( e, k )
            end
end
        end
end
        r[ k ] = v
r[ k ] = v
    end -- for k, v
end -- for k, v
    if e then
if e then
        r = failure( "multiSpell", e, options )
r = failure( "multiSpell", e, options )
    end
end
    return r
return r
end -- flat()
end -- flat()


Line 1,094: Line 732:


local function fold( options )
local function fold( options )
    -- Merge two tables, create new sequence if both not empty
-- Merge two tables, create new sequence if both not empty
    -- Precondition:
-- Precondition:
    --     options  -- table; details
-- options  -- table; details
    --                 options.mandatory  sequence to keep unchanged
-- options.mandatory  sequence to keep unchanged
    --                 options.optional   sequence to be appended
-- options.optional sequence to be appended
    --                 options.low         downcased expected
-- options.low downcased expected
    -- Postcondition:
-- Postcondition:
    --     Return merged table, or message string if error
-- Return merged table, or message string if error
    -- Uses:
-- Uses:
    --     finder()
-- finder()
    --     fault()
-- fault()
    --     failure()
-- failure()
    --     flat()
-- flat()
    local i, e, r, s
local i, e, r, s
    local base  = options.mandatory
local base  = options.mandatory
    local extend = options.optional
local extend = options.optional
    if #base == 0 then
if #base == 0 then
        if #extend == 0 then
if #extend == 0 then
            r = { }
r = { }
        else
else
            r = extend
r = extend
        end
end
    else
else
        if #extend == 0 then
if #extend == 0 then
            r = base
r = base
        else
else
            e = false
e = false
            for i = 1, #extend do
for i = 1, #extend do
                s = extend[ i ]
s = extend[ i ]
                if finder( base, s ) then
if finder( base, s ) then
                    e = fault( e, s )
e = fault( e, s )
                end
end
            end -- for i
end -- for i
            if e then
if e then
                r = failure( "dupOpt", e, options )
r = failure( "dupOpt", e, options )
            else
else
                r = { }
r = { }
                for i = 1, #base do
for i = 1, #base do
                    table.insert( r, base[ i ] )
table.insert( r, base[ i ] )
                end -- for i
end -- for i
                for i = 1, #extend do
for i = 1, #extend do
                    table.insert( r, extend[ i ] )
table.insert( r, extend[ i ] )
                end -- for i
end -- for i
            end
end
        end
end
    end
end
    if options.low  and  type( r ) == "table" then
if options.low  and  type( r ) == "table" then
        r = flat( r, options )
r = flat( r, options )
    end
end
    return r
return r
end -- fold()
end -- fold()


Line 1,149: Line 787:


local function form( light, options, frame )
local function form( light, options, frame )
    -- Run parameter analysis on current environment
-- Run parameter analysis on current environment
    -- Precondition:
-- Precondition:
    --     light   -- true: template transclusion;  false: #invoke
-- light -- true: template transclusion;  false: #invoke
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    --                 options.mandatory
-- options.mandatory
    --                 options.optional
-- options.optional
    --     frame   -- object; #invoke environment, or false
-- frame -- object, or false
    -- Postcondition:
-- Postcondition:
    --     Return string with error message as configured;
-- Return string with error message as configured;
    --           false if valid
-- false if valid
    -- Uses:
-- Uses:
    --     TemplatePar.framing()
-- fold()
    --    fold()
-- fetch()
    --     fetch()
-- fix()
    --     fix()
-- finalize()
    --     finalize()
local duty, r
    local duty, r
if type( options ) == "table" then
    if frame then
if type( options.mandatory ) ~= "table" then
        TemplatePar.framing( frame )
options.mandatory = { }
    end
end
    if type( options ) == "table" then
duty = options.mandatory
        if type( options.mandatory ) ~= "table" then
if type( options.optional ) ~= "table" then
            options.mandatory = { }
options.optional = { }
        end
end
        duty = options.mandatory
r = fold( options )
        if type( options.optional ) ~= "table" then
else
            options.optional = { }
options = { }
        end
duty = { }
        r = fold( options )
r   = { }
    else
end
        options = { }
if type( r ) == "table" then
        duty   = { }
local got = fetch( light, options )
        r       = { }
if type( got ) == "table" then
    end
r = fix( r, duty, got, options )
    if type( r ) == "table" then
else
        local got = fetch( light, options )
r = got
        if type( got ) == "table" then
end
            r = fix( r, duty, got, options )
end
        else
return finalize( r, options, frame )
            r = got
        end
    end
    return finalize( r, options )
end -- form()
end -- form()


Line 1,197: Line 831:


local function format( analyze, options )
local function format( analyze, options )
    -- Check validity of a value
-- Check validity of a value
    -- Precondition:
-- Precondition:
    --     analyze  -- string to be analyzed
-- analyze  -- string to be analyzed
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    --                 options.say
-- options.say
    --                 options.min
-- options.min
    --                 options.max
-- options.max
    -- Postcondition:
-- Postcondition:
    --     Return string with error message as configured;
-- Return string with error message as configured;
    --           false if valid or no answer permitted
-- false if valid or no answer permitted
    -- Uses:
-- Uses:
    --     feasible()
-- feasible()
    --     failure()
-- failure()
    local r = feasible( analyze, options, false )
local r = feasible( analyze, options, false )
    local show
local show
    if options.min  and  not r then
if options.min  and  not r then
        if type( options.min ) == "number" then
if type( options.min ) == "number" then
            if type( options.max ) == "number" then
if type( options.max ) == "number" then
                if options.max < options.min then
if options.max < options.min then
                    r = failure( "minmax",
r = failure( "minmax",
                                string.format( "%d > %d",
string.format( "%d > %d",
                                                options.min,
options.min,
                                                options.max ),
options.max ),
                                options )
options )
                end
end
            end
end
            if #analyze < options.min  and  not r then
if #analyze < options.min  and  not r then
                show = " <" .. options.min
show = " <" .. options.min
                if options.say then
if options.say then
                    show = string.format( "%s &quot;%s&quot;", show, options.say )
show = string.format( "%s '%s'", show, options.say )
                end
end
                r = failure( "tooShort", show, options )
r = failure( "tooShort", show, options )
            end
end
        else
else
            r = failure( "invalidPar", "min", options )
r = failure( "invalidPar", "min", options )
        end
end
    end
end
    if options.max  and  not r then
if options.max  and  not r then
        if type( options.max ) == "number" then
if type( options.max ) == "number" then
            if #analyze > options.max then
if #analyze > options.max then
                show = " >" .. options.max
show = " >" .. options.max
                if options.say then
if options.say then
                    show = string.format( "%s &quot;%s&quot;", show, options.say )
show = string.format( "%s '%s'", show, options.say )
                end
end
                r = failure( "tooLong", show, options )
r = failure( "tooLong", show, options )
            end
end
        else
else
            r = failure( "invalidPar", "max", options )
r = failure( "invalidPar", "max", options )
        end
end
    end
end
    return r
return r
end -- format()
end -- format()


Line 1,253: Line 887:


local function formatted( assignment, access, options )
local function formatted( assignment, access, options )
    -- Check validity of one particular parameter in a collection
-- Check validity of one particular parameter in a collection
    -- Precondition:
-- Precondition:
    --     assignment  -- collection
-- assignment  -- collection
    --     access     -- id of parameter in collection
-- access   -- id of parameter in collection
    --     options     -- table or nil; optional details
-- options -- table or nil; optional details
    -- Postcondition:
-- Postcondition:
    --     Return string with error message as configured;
-- Return string with error message as configured;
    --           false if valid or no answer permitted
-- false if valid or no answer permitted
    -- Uses:
-- Uses:
    --     mw.text.trim()
-- mw.text.trim()  
    --     format()
-- format()
    --     failure()
-- failure()
    local r = false
local r = false
    if type( assignment ) == "table" then
if type( assignment ) == "table" then
        local story = assignment.args[ access ] or ""
local story = assignment.args[ access ] or ""
        if type( access ) == "number" then
if type( access ) == "number" then
            story = mw.text.trim( story )
story = mw.text.trim( story )  
        end
end
        if type( options ) ~= "table" then
if type( options ) ~= "table" then
            options = { }
options = { }
        end
end
        options.say = access
options.say = access
        r = format( story, options )
r = format( story, options )
    end
end
    return r
return r
end -- formatted()
end -- formatted()


Line 1,283: Line 917:


local function furnish( frame, action )
local function furnish( frame, action )
    -- Prepare #invoke evaluation of .assert() or .valid()
-- Prepare #invoke evaluation of .assert() or .valid()
    -- Precondition:
-- Precondition:
    --     frame   -- object; #invoke environment
-- frame -- object; #invoke environment
    --     action  -- "assert" or "valid"
-- action  -- "assert" or "valid"
    -- Postcondition:
-- Postcondition:
    --     Return string with error message or ""
-- Return string with error message or ""
    -- Uses:
-- Uses:
    --     form()
-- form()
    --     failure()
-- failure()
    --     finalize()
-- finalize()
    --     TemplatePar.valid()
-- TemplatePar.valid()
    --     TemplatePar.assert()
-- TemplatePar.assert()
    local options = { mandatory = { "1" },
local options = { mandatory = { "1" },
                      optional  = { "2",
  optional  = { "2",
                                    "cat",
"cat",
                                    "errNS",
"errNS",
                                    "low",
"low",
                                    "max",
"max",
                                    "min",
"min",
                                    "format",
"format",
                                    "preview",
"preview",
                                    "template" },
"template" },
                      template  = string.format( "&#35;invoke:%s|%s|",
  template  = string.format( "&#35;invoke:%s|%s|",
                                                "TemplatePar",
"TemplatePar",
                                                action )
action )
                    }
}
    local r       = form( false, options, frame )
local r   = form( false, options, frame )
    if not r then
if not r then
        local s
local s
        options = { cat     = frame.args.cat,
options = { cat   = frame.args.cat,
                    errNS   = frame.args.errNS,
errNS = frame.args.errNS,
                    low     = frame.args.low,
low   = frame.args.low,
                    format  = frame.args.format,
format  = frame.args.format,
                    preview  = frame.args.preview,
preview  = frame.args.preview,
                    template = frame.args.template
template = frame.args.template
                  }
  }
        options = figure( frame.args[ 2 ], options )
options = figure( frame.args[ 2 ], options )
        if type( frame.args.min ) == "string" then
if type( frame.args.min ) == "string" then
            s = frame.args.min:match( "^%s*([0-9]+)%s*$" )
s = frame.args.min:match( "^%s*([0-9]+)%s*$" )
            if s then
if s then
                options.min = tonumber( s )
options.min = tonumber( s )
            else
else
                r = failure( "invalidPar",
r = failure( "invalidPar",
                            "min=" .. frame.args.min,
"min=" .. frame.args.min,
                            options )
options )
            end
end
        end
end
        if type( frame.args.max ) == "string" then
if type( frame.args.max ) == "string" then
            s = frame.args.max:match( "^%s*([1-9][0-9]*)%s*$" )
s = frame.args.max:match( "^%s*([1-9][0-9]*)%s*$" )
            if s then
if s then
                options.max = tonumber( s )
options.max = tonumber( s )
            else
else
                r = failure( "invalidPar",
r = failure( "invalidPar",
                            "max=" .. frame.args.max,
"max=" .. frame.args.max,
                            options )
options )
            end
end
        end
end
        if r then
if r then
            r = finalize( r, options )
r = finalize( r, options, frame )
        else
else
            s = frame.args[ 1 ] or ""
s = frame.args[ 1 ] or ""
            r = tonumber( s )
r = tonumber( s )
            if ( r ) then
if ( r ) then
                s = r
s = r
            end
end
            if action == "valid" then
if action == "valid" then
                r = TemplatePar.valid( s, options )
r = TemplatePar.valid( s, options, frame )
            elseif action == "assert" then
elseif action == "assert" then
                r = TemplatePar.assert( s, "", options )
r = TemplatePar.assert( s, "", options )
            end
end
        end
end
    end
end
    return r or ""
return r or ""
end -- furnish()
end -- furnish()


Line 1,361: Line 995:


TemplatePar.assert = function ( analyze, append, options )
TemplatePar.assert = function ( analyze, append, options )
    -- Perform parameter analysis on a single string
-- Perform parameter analysis on a single string
    -- Precondition:
-- Precondition:
    --     analyze  -- string to be analyzed
-- analyze  -- string to be analyzed
    --     append  -- string: append error message, prepending <br />
-- append  -- string: append error message, prepending <br />
    --                 false or nil: throw error with message
-- false or nil: throw error with message
    --     options  -- table; optional details
-- options  -- table; optional details
    -- Postcondition:
-- Postcondition:
    --     Return string with error message as configured;
-- Return string with error message as configured;
    --           false if valid
-- false if valid
    -- Uses:
-- Uses:
    --     format()
-- format()
    local r = format( analyze, options )
local r = format( analyze, options )
    if ( r ) then
if ( r ) then
        if ( type( append ) == "string" ) then
if ( type( append ) == "string" ) then
            if ( append ~= "" ) then
if ( append ~= "" ) then
                r = string.format( "%s<br /> %s", append, r )
r = string.format( "%s<br />%s", append, r )
            end
end
        else
else
            error( r, 0 )
error( r, 0 )
        end
end
    end
end
    return r
return r
end -- TemplatePar.assert()
end -- TemplatePar.assert()


Line 1,388: Line 1,022:


TemplatePar.check = function ( options )
TemplatePar.check = function ( options )
    -- Run parameter analysis on current template environment
-- Run parameter analysis on current template environment
    -- Precondition:
-- Precondition:
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    --                 options.mandatory
-- options.mandatory
    --                 options.optional
-- options.optional
    -- Postcondition:
-- Postcondition:
    --     Return string with error message as configured;
-- Return string with error message as configured;
    --           false if valid
-- false if valid
    -- Uses:
-- Uses:
    --     form()
-- form()
    return form( true, options, false )
return form( true, options, false )
end -- TemplatePar.check()
end -- TemplatePar.check()


Line 1,404: Line 1,038:


TemplatePar.count = function ()
TemplatePar.count = function ()
    -- Return number of template parameters
-- Return number of template parameters
    -- Postcondition:
-- Postcondition:
    --     Return number, starting at 0
-- Return number, starting at 0
    -- Uses:
-- Uses:
    --     mw.getCurrentFrame()
-- mw.getCurrentFrame()
    --     frame:getParent()
-- frame:getParent()
    local k, v
local k, v
    local r = 0
local r = 0
    local t = mw.getCurrentFrame():getParent()
local t = mw.getCurrentFrame():getParent()
    local o = t.args
local o = t.args
    for k, v in pairs( o ) do
for k, v in pairs( o ) do
        r = r + 1
r = r + 1
    end -- for k, v
end -- for k, v
    return r
return r
end -- TemplatePar.count()
end -- TemplatePar.count()


Line 1,423: Line 1,057:


TemplatePar.countNotEmpty = function ()
TemplatePar.countNotEmpty = function ()
    -- Return number of template parameters with more than whitespace
-- Return number of template parameters with more than whitespace
    -- Postcondition:
-- Postcondition:
    --     Return number, starting at 0
-- Return number, starting at 0
    -- Uses:
-- Uses:
    --     mw.getCurrentFrame()
-- mw.getCurrentFrame()
    --     frame:getParent()
-- frame:getParent()
    local k, v
local k, v
    local r = 0
local r = 0
    local t = mw.getCurrentFrame():getParent()
local t = mw.getCurrentFrame():getParent()
    local o = t.args
local o = t.args
    for k, v in pairs( o ) do
for k, v in pairs( o ) do
        if not v:match( "^%s*$" ) then
if not v:match( "^%s*$" ) then
            r = r + 1
r = r + 1
        end
end
    end -- for k, v
end -- for k, v
    return r
return r
end -- TemplatePar.countNotEmpty()
end -- TemplatePar.countNotEmpty()


Line 1,444: Line 1,078:


TemplatePar.downcase = function ( options )
TemplatePar.downcase = function ( options )
    -- Return all template parameters with downcased name
-- Return all template parameters with downcased name
    -- Precondition:
-- Precondition:
    --     options  -- table or nil; optional messaging details
-- options  -- table or nil; optional messaging details
    -- Postcondition:
-- Postcondition:
    --     Return table, may be empty; or string with error message.
-- Return table, may be empty; or string with error message.
    -- Uses:
-- Uses:
    --     mw.getCurrentFrame()
-- mw.getCurrentFrame()
    --     frame:getParent()
-- frame:getParent()
    --     flat()
-- flat()
    local t = mw.getCurrentFrame():getParent()
local t = mw.getCurrentFrame():getParent()
    return flat( t.args, options )
return flat( t.args, options )
end -- TemplatePar.downcase()
end -- TemplatePar.downcase()






TemplatePar.valid = function ( access, options )
TemplatePar.valid = function ( access, options, frame )
    -- Check validity of one particular template parameter
-- Check validity of one particular template parameter
    -- Precondition:
-- Precondition:
    --     access  -- id of parameter in template transclusion
-- access  -- id of parameter in template transclusion
    --                 string or number
-- string or number
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    -- Postcondition:
-- frame -- object; #invoke environment
    --     Return string with error message as configured;
-- Postcondition:
    --           false if valid or no answer permitted
-- Return string with error message as configured;
    -- Uses:
-- false if valid or no answer permitted
    --     mw.text.trim()
-- Uses:
    --     TemplatePar.downcase()
-- mw.text.trim()
    --     TemplatePar.framing()
-- TemplatePar.downcase()
    --    frame:getParent()
-- frame:getParent()
    --     formatted()
-- formatted()
    --     failure()
-- failure()
    --     finalize()
-- finalize()
    local r = type( access )
local r = type( access )
    if r == "string" then
if r == "string" then
        r = mw.text.trim( access )
r = mw.text.trim( access )
        if #r == 0 then
if #r == 0 then
            r = false
r = false
        end
end
    elseif r == "number" then
elseif r == "number" then
        r = access
r = access
    else
else
        r = false
r = false
    end
end
    if r then
if r then
        local params
local params
        if type( options ) ~= "table" then
if type( options ) ~= "table" then
            options = { }
options = { }
        end
end
        if options.low then
if options.low then
            params = TemplatePar.downcase( options )
params = TemplatePar.downcase( options )
        else
else
            params = TemplatePar.framing():getParent()
params = frame:getParent()
        end
end
        r = formatted( params, access, options )
r = formatted( params, access, options )
    else
else
        r = failure( "noname", false, options )
r = failure( "noname", false, options )
    end
end
    return finalize( r, options )
return finalize( r, options, frame )
end -- TemplatePar.valid()
end -- TemplatePar.valid()


Line 1,507: Line 1,141:


TemplatePar.verify = function ( options )
TemplatePar.verify = function ( options )
    -- Perform #invoke parameter analysis
-- Perform #invoke parameter analysis
    -- Precondition:
-- Precondition:
    --     options  -- table or nil; optional details
-- options  -- table or nil; optional details
    -- Postcondition:
-- Postcondition:
    --     Return string with error message as configured;
-- Return string with error message as configured;
    --           false if valid
-- false if valid
    -- Uses:
-- Uses:
    --     form()
-- form()
    return form( false, options, false )
return form( false, options, false )
end -- TemplatePar.verify()
end -- TemplatePar.verify()
TemplatePar.framing = function( frame )
    -- Ensure availability of frame object
    -- Precondition:
    --    frame  -- object; #invoke environment, or false
    -- Postcondition:
    --    Return frame object
    -- Uses:
    --    >< Local.frame
    if not Local.frame then
        if type( frame ) == "table"  and
          type( frame.args ) == "table"  and
          type( frame.getParent ) == "function"  and
          type( frame:getParent() ) == "table"  and
          type( frame:getParent().getParent ) == "function"  and
          type( frame:getParent():getParent() ) == "nil" then
            Local.frame = frame
        else
            Local.frame = mw.getCurrentFrame()
        end
    end
    return Local.frame
end -- TemplatePar.framing()
Failsafe.failsafe = function ( atleast )
    -- Retrieve versioning and check for compliance
    -- Precondition:
    --    atleast  -- string, with required version
    --                        or wikidata|item|~|@ or false
    -- Postcondition:
    --    Returns  string  -- with queried version/item, also if problem
    --              false  -- if appropriate
    -- 2020-08-17
    local since = atleast
    local last    = ( since == "~" )
    local linked  = ( since == "@" )
    local link    = ( since == "item" )
    local r
    if last  or  link  or  linked  or  since == "wikidata" then
        local item = Failsafe.item
        since = false
        if type( item ) == "number"  and  item > 0 then
            local suited = string.format( "Q%d", item )
            if link then
                r = suited
            else
                local entity = mw.wikibase.getEntity( suited )
                if type( entity ) == "table" then
                    local seek = Failsafe.serialProperty or "P348"
                    local vsn  = entity:formatPropertyValues( seek )
                    if type( vsn ) == "table"  and
                      type( vsn.value ) == "string"  and
                      vsn.value ~= "" then
                        if last  and  vsn.value == Failsafe.serial then
                            r = false
                        elseif linked then
                            if mw.title.getCurrentTitle().prefixedText
                              ==  mw.wikibase.getSitelink( suited ) then
                                r = false
                            else
                                r = suited
                            end
                        else
                            r = vsn.value
                        end
                    end
                end
            end
        end
    end
    if type( r ) == "nil" then
        if not since  or  since <= Failsafe.serial then
            r = Failsafe.serial
        else
            r = false
        end
    end
    return r
end -- Failsafe.failsafe()




Line 1,609: Line 1,160:


function p.assert( frame )
function p.assert( frame )
    -- Perform parameter analysis on some single string
-- Perform parameter analysis on some single string
    -- Precondition:
-- Precondition:
    --     frame  -- object; #invoke environment
-- frame  -- object; #invoke environment
    -- Postcondition:
-- Postcondition:
    --     Return string with error message or ""
-- Return string with error message or ""
    -- Uses:
-- Uses:
    --     furnish()
-- furnish()
    return furnish( frame, "assert" )
return furnish( frame, "assert" )
end -- p.assert()
end -- .assert()






function p.check( frame )
function p.check( frame )
    -- Check validity of template parameters
-- Check validity of template parameters
    -- Precondition:
-- Precondition:
    --     frame  -- object; #invoke environment
-- frame  -- object; #invoke environment
    -- Postcondition:
-- Postcondition:
    --     Return string with error message or ""
-- Return string with error message or ""
    -- Uses:
-- Uses:
    --     form()
-- form()
    --     fill()
-- fill()
    local options = { optional  = { "all",
local options = { optional  = { "all",
                                    "opt",
"opt",
                                    "cat",
"cat",
                                    "errNS",
"errNS",
                                    "low",
"low",
                                    "format",
"format",
                                    "preview",
"preview",
                                    "template" },
"template" },
                      template  = "&#35;invoke:TemplatePar|check|"
  template  = "&#35;invoke:TemplatePar|check|"
                    }
}
    local r = form( false, options, frame )
local r = form( false, options, frame )
    if not r then
if not r then
        options = { mandatory = fill( frame.args.all ),
options = { mandatory = fill( frame.args.all ),
                    optional  = fill( frame.args.opt ),
optional  = fill( frame.args.opt ),
                    cat       = frame.args.cat,
cat   = frame.args.cat,
                    errNS     = frame.args.errNS,
errNS = frame.args.errNS,
                    low       = frame.args.low,
low   = frame.args.low,
                    format   = frame.args.format,
format = frame.args.format,
                    preview  = frame.args.preview,
preview  = frame.args.preview,
                    template  = frame.args.template
template  = frame.args.template
                  }
  }
        r       = form( true, options, frame )
r   = form( true, options, frame )
    end
end
    return r or ""
return r or ""
end -- p.check()
end -- .check()






function p.count( frame )
function p.count( frame )
    -- Count number of template parameters
-- Count number of template parameters
    -- Postcondition:
-- Postcondition:
    --     Return string with digits including "0"
-- Return string with digits including "0"
    -- Uses:
-- Uses:
    --     TemplatePar.count()
-- TemplatePar.count()
    return tostring( TemplatePar.count() )
return tostring( TemplatePar.count() )
end -- p.count()
end -- .count()






function p.countNotEmpty( frame )
function p.countNotEmpty( frame )
    -- Count number of template parameters which are not empty
-- Count number of template parameters which are not empty
    -- Postcondition:
-- Postcondition:
    --     Return string with digits including "0"
-- Return string with digits including "0"
    -- Uses:
-- Uses:
    --     TemplatePar.countNotEmpty()
-- TemplatePar.countNotEmpty()
    return tostring( TemplatePar.countNotEmpty() )
return tostring( TemplatePar.countNotEmpty() )
end -- p.countNotEmpty()
end -- .countNotEmpty()






function p.match( frame )
function p.match( frame )
    -- Combined analysis of parameters and their values
-- Combined analysis of parameters and their values
    -- Precondition:
-- Postcondition:
    --     frame -- object; #invoke environment
-- Return string with error message or ""
    -- Postcondition:
-- Uses:
    --    Return string with error message or ""
-- mw.text.trim()
    -- Uses:
-- mw.ustring.lower()
    --     TemplatePar.framing()
-- failure()
    --    mw.text.trim()
-- form()
    --     mw.ustring.lower()
-- TemplatePar.downcase()
    --     failure()
-- figure()
    --     form()
-- feasible()
    --     TemplatePar.downcase()
-- fault()
    --     figure()
-- finalize()
    --     feasible()
local r = false
    --     fault()
local options = { cat   = frame.args.cat,
    --     finalize()
  errNS = frame.args.errNS,
    local r = false
  low   = frame.args.low,
    local options = { cat     = frame.args.cat,
  format  = frame.args.format,
                      errNS   = frame.args.errNS,
  preview  = frame.args.preview,
                      low     = frame.args.low,
  template = frame.args.template
                      format  = frame.args.format,
}
                      preview  = frame.args.preview,
local k, v, s
                      template = frame.args.template
local params = { }
                    }
for k, v in pairs( frame.args ) do
    local k, v, s
if type( k ) == "number" then
    local params = { }
s, v = v:match( "^ *([^=]+) *= *(%S.*%S*) *$" )
    TemplatePar.framing( frame )
if s then
    for k, v in pairs( frame.args ) do
s = mw.text.trim( s )
        if type( k ) == "number" then
if s == "" then
            s, v = v:match( "^ *([^=]+) *= *(%S.*%S*) *$" )
s = false
            if s then
end
                s = mw.text.trim( s )
end
                if s == "" then
if s then
                    s = false
if options.low then
                end
s = mw.ustring.lower( s )
            end
end
            if s then
if params[ s ] then
                if options.low then
s = params[ s ]
                    s = mw.ustring.lower( s )
s[ #s + 1 ] = v
                end
else
                if params[ s ] then
params[ s ] = { v }
                    s = params[ s ]
end
                    s[ #s + 1 ] = v
else
                else
r = failure( "invalidPar",  tostring( k ),  options )
                    params[ s ] = { v }
break -- for k, v
                end
end
            else
end
                r = failure( "invalidPar",  tostring( k ),  options )
end -- for k, v
                break -- for k, v
if not r then
            end
s = { }
        end
for k, v in pairs( params ) do
    end -- for k, v
s[ #s + 1 ] = k
    if not r then
end -- for k, v
        s = { }
options.optional = s
        for k, v in pairs( params ) do
r = form( true, options, frame )
            s[ #s + 1 ] = k
end
        end -- for k, v
if not r then
        options.optional = s
local errMiss, errValues, lack, rule
        r = form( true, options, frame )
local targs = frame:getParent().args
    end
options.optional = nil
    if not r then
if options.low then
        local errMiss, errValues, lack, rule
targs = TemplatePar.downcase()
        local targs = frame:getParent().args
else
        options.optional = nil
targs = frame:getParent().args
        if options.low then
end
            targs = TemplatePar.downcase()
errMiss  = false
        else
errValues = false
            targs = frame:getParent().args
for k, v in pairs( params ) do
        end
options.say = k
        errMiss  = false
errValue = false
        errValues = false
s = targs[ k ]
        for k, v in pairs( params ) do
if s then
            options.say = k
if s == "" then
            s           = targs[ k ]
lack = true
            if s then
else
                if s == "" then
lack = false
                    lack = true
end
                else
else
                    lack = false
s = ""
                end
lack = true
            else
end
                s   = ""
for r, rule in pairs( v ) do
                lack = true
options = figure( rule, options )
            end
r   = feasible( s, options, true )
            for r, rule in pairs( v ) do
if r then
                options = figure( rule, options )
if lack then
                r       = feasible( s, options, true )
if errMiss then
                if r then
errMiss = string.format( "%s, '%s'",
                    if lack then
errMiss, k )
                        if errMiss then
else
                            s      = "%s, &quot;%s&quot;"
errMiss = string.format( "'%s'", k )
                            errMiss = string.format( s, errMiss, k )
end
                        else
elseif not errMiss then
                            errMiss = string.format( "&quot;%s&quot;",
errValues = fault( errValues, r )
                                                    k )
end
                        end
break -- for r, rule
                    elseif not errMiss then
end
                        errValues = fault( errValues, r )
end -- for s, rule
                    end
end -- for k, v
                    break -- for r, rule
r = ( errMiss or errValues )
                end
if r then
            end -- for s, rule
if errMiss then
        end -- for k, v
r = failure( "undefined", errMiss, options )
        r = ( errMiss or errValues )
else
        if r then
r = failure( "invalid", errValues, options )
            if errMiss then
end
                r = failure( "undefined", errMiss, options )
r = finalize( r, options, frame )
            else
end
                r = failure( "invalid", errValues, options )
end
            end
return r or ""
            r = finalize( r, options )
end -- .match()
        end
    end
    return r or ""
end -- p.match()






function p.valid( frame )
function p.valid( frame )
    -- Check validity of one particular template parameter
-- Check validity of one particular template parameter
    -- Precondition:
-- Precondition:
    --     frame  -- object; #invoke environment
-- frame  -- object; #invoke environment
    -- Postcondition:
-- Postcondition:
    --     Return string with error message or ""
-- Return string with error message or ""
    -- Uses:
-- Uses:
    --     furnish()
-- furnish()
    return furnish( frame, "valid" )
return furnish( frame, "valid" )
end -- p.valid()
end -- .valid()
 
 
 
p.failsafe = function ( frame )
    -- Versioning interface
    local s = type( frame )
    local since
    if s == "table" then
        since = frame.args[ 1 ]
    elseif s == "string" then
        since = frame
    end
    if since then
        since = mw.text.trim( since )
        if since == "" then
            since = false
        end
    end
    return Failsafe.failsafe( since )  or  ""
end -- p.failsafe






function p.TemplatePar()
function p.TemplatePar()
    -- Retrieve function access for modules
-- Retrieve function access for modules
    -- Postcondition:
-- Postcondition:
    --     Return table with functions
-- Return table with functions
    return TemplatePar
return TemplatePar
end -- p.TemplatePar()
end -- .TemplatePar()
 




setmetatable( p,  { __call = function ( func, ... )
                                setmetatable( p, nil )
                                return Failsafe
                            end } )


return p
return p
Retrieved from "http://70.231.62.181/index.php/Special:ComparePages"