Modulis:Check for unknown parameters

-- This module may be used to compare the arguments passed to the parent-- with a list of arguments, returning a specified result if an argument is-- not on the listlocal p = {}local function isnotempty(s)return s and s:match( '^%s*(.-)%s*$' ) ~= ''endfunction p.check (frame)local args = frame.argslocal pargs = frame:getParent().argslocal ignoreblank = isnotempty(frame.args['ignoreblank'])local checkpos = isnotempty(frame.args['checkpositional'])local knownargs = {}local unknown = 'Found _VALUE_, 'local res = {}local comments = {}local commentstr = ''-- create the list of known args, and the return stringfor k, v in pairs(args) doif type(k) == 'number' thenv = mw.ustring.gsub(v, '^%s*(.-)%s*$', '%1')knownargs[v] = 1elseif (k == 'unknown' and type(v) == 'string') thenunknown = vendendend-- loop over the parent args, and make sure they are on the listfor k,v in pairs(pargs) doif (type(k) == 'string' and knownargs[k] == nil) thenif( (not ignoreblank) or (ignoreblank and isnotempty(v)) ) thenk = mw.ustring.gsub(k, '[^%w\-_ ]', '?')local r = mw.ustring.gsub(unknown, '_VALUE_', k)table.insert(res, r)table.insert(comments, '"' .. k .. '"')endelseif(checkpos and type(k) == 'number' and knownargs[tostring(k)] == nil) thenif( (not ignoreblank) or (ignoreblank and isnotempty(v)) ) thenlocal r = mw.ustring.gsub(unknown, '_VALUE_', k)table.insert(res, r)table.insert(comments, '"' .. k .. '"')endendendif(#comments > 0) thencommentstr = '<!-- Module:Check for unknown parameters results: ' ..table.concat(comments, ', ') .. '-->'endreturn table.concat(res) .. commentstrendreturn p