Module:Subject bar

 require('strict')

 localgetArgs=require('Module:Arguments').getArgs
 localyesNo=require('Module:Yesno')

 -- Determine whether we're being called from a sandbox
 localisSandbox=mw.getCurrentFrame():getTitle():find('sandbox',1,true)
 localsandbox=isSandboxand'/sandbox'or''

 localp={}

 localsisters={'commons','species','voy','n','wikt','b','q','s','v','iw','iw1','iw2','d','f'}

 localfunctionfindNumericArgs(key,args)
 localpattern="^"..key.."_?(%d+)$"-- pattern to match
 localvalues={}
 fork,vinpairs(args)do--- loop through all arguments
 localord=tonumber(mw.ustring.match(k,pattern))--- if "foo_?%d+", extract number
 ifordthen
 values[ord]=v
 end
 end
 ifargs[key]~=nilthen
 values[1]=args[key]
 end
 localcompressSparseArray=require('Module:TableTools').compressSparseArray
 values=compressSparseArray(values)--- squeeze out gaps/nils in values, keep ordering
 returnvalues
 end

 functionp._main(args)
 localresult=""

 localhasPortal=false
 forkey,_inpairs(args)do
 ifmw.ustring.sub(key,1,6)=='portal'ortonumber(key)then
 hasPortal=true
 break
 end
 end

 localhasSister=yesNo(args.auto,true)oryesNo(args.author,true)oryesNo(args.cookbook,true)
 for_,sisterinipairs(sisters)do
 ifhasSisterthen
 break
 end
 ifyesNo(args[sister],true)oryesNo(args[sister..'-search'],true)then
 hasSister=true
 end
 end

 ifhasPortalthen
 localportalList=findNumericArgs("portal",args)
 for_,positionalinipairs(args)do
 table.insert(portalList,positional)
 end
 localportalBar=require('Module:Portal bar'..sandbox)._main
 result=result..portalBar(portalList,{tracking=args.tracking,qid=args.qid})
 end

 ifhasSisterthen
 localsisterArgs={auto=1,bar=1,trackSingle=nothasPortal}
 sisterArgs[1]=args.search
 for_,kinipairs({'author','commonscat','cookbook','display','tracking','qid'})do
 sisterArgs[k]=args[k]
 end
 for_,tinipairs(sisters)do
 sisterArgs[t]=args[t..'-search']orargs[t]
 end
 localsisterBar=require('Module:Sister project links'..sandbox)._main
 result=result..sisterBar(sisterArgs)
 end

 returnresult
 end

 functionp.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.
 localargs=getArgs(frame)
 returnp._main(args)
 end

 returnp