Module:Subject bar

require('strict')local getArgs = require('Module:Arguments').getArgslocal yesNo = require('Module:Yesno')-- Determine whether we're being called from a sandboxlocal isSandbox = mw.getCurrentFrame():getTitle():find('sandbox', 1, true)local sandbox = isSandbox and '/sandbox' or ''local p = {}local sisters = {'commons','species','voy','n','wikt','b','q','s','v','iw','iw1','iw2','d'}local function findNumericArgs(key, args)local pattern = "^"..key.."_?(%d+)$"  -- pattern to matchlocal values = {}for k, v in pairs(args) do  --- loop through all argumentslocal ord = tonumber(mw.ustring.match(k,pattern)) --- if "foo_?%d+", extract numberif ord thenvalues[ord] = vendendif args[key] ~= nil thenvalues[1] = args[key]endlocal compressSparseArray = require('Module:TableTools').compressSparseArrayvalues = compressSparseArray(values)  --- squeeze out gaps/nils in values, keep orderingreturn valuesendfunction p._main(args)local result = ""local hasPortal = falsefor key, _ in pairs(args) doif mw.ustring.sub(key,1,6) == 'portal' or tonumber(key) thenhasPortal = truebreakendendlocal hasSister = yesNo(args.auto,true) or yesNo(args.author,true) or yesNo(args.cookbook,true)for _, sister in ipairs(sisters) doif hasSister thenbreakendif yesNo(args[sister],true) or yesNo(args[sister..'-search'],true) thenhasSister = trueendendif hasPortal thenlocal portalList = findNumericArgs("portal",args)for _, positional in ipairs(args) dotable.insert(portalList, positional)endlocal portalBar = require('Module:Portal bar'..sandbox)._mainresult = result..portalBar(portalList, {tracking=args.tracking, qid=args.qid})endif hasSister thenlocal sisterArgs = {auto=1, bar=1, trackSingle=not hasPortal}sisterArgs[1] = args.searchfor _, k in ipairs({'author','commonscat','cookbook','display','tracking','qid'}) dosisterArgs[k] = args[k]end    for _, t in ipairs(sisters) do    sisterArgs[t] = args[t..'-search'] or args[t]    end    local sisterBar = require('Module:Sister project links'..sandbox)._mainresult = result..sisterBar(sisterArgs)endreturn resultendfunction p.main(frame)    -- If called via #invoke, use the args passed into the invoking template,    -- or the args passed to #invoke if any exist. Otherwise assume args are    -- being passed directly in from the debug console or from another Lua module.    local args = getArgs(frame)    return p._main(args)endreturn p