Module:Unsubst-infobox

 localp={}

 localspecialParams={
 ['$params']='all parameters',
 ['$extra']='extra parameters',
 ['$set1']='parameter set 1',
 ['$set2']='parameter set 2',
 ['$set3']='parameter set 3',
 ['$aliases']='parameter aliases',
 ['$indent']='indent',
 ['$flags']='flags',
 ['$B']='template content',
 ['$template-name']='template invocation name override'
 }

 p['']=function(frame)
 ifnotframe:getParent()then
 error('{{#invoke:Unsubst-infobox|}} makes no sense without a parent frame')
 end
 ifnotframe.args['$B']then
 error('{{#invoke:Unsubst-infobox|}} requires parameter $B (template content)')
 end
 ifnotframe.args['$params']then
 error('{{#invoke:Unsubst-infobox|}} requires parameter $params (parameter list)')
 end

 ifmw.isSubsting()then
 ---- substing
 -- Combine passed args with passed defaults
 localargs={}
 ifstring.find(','..(frame.args['$flags']or'')..',',',%s*override%s*,')then
 fork,vinpairs(frame:getParent().args)do
 args[k]=v
 end
 fork,vinpairs(frame.args)do
 ifnotspecialParams[k]then
 ifv=='__DATE__'then
 v=mw.getContentLanguage():formatDate('F Y')
 end
 args[k]=v
 end
 end
 else
 fork,vinpairs(frame.args)do
 ifnotspecialParams[k]then
 ifv=='__DATE__'then
 v=mw.getContentLanguage():formatDate('F Y')
 end
 args[k]=v
 end
 end
 fork,vinpairs(frame:getParent().args)do
 args[k]=v
 end
 end

 -- Build an equivalent template invocation
 -- First, find the title to use
 localtitleobj=mw.title.new(frame:getParent():getTitle())
 localtitle
 iftitleobj.namespace==10then-- NS_TEMPLATE
 title=titleobj.text
 elseiftitleobj.namespace==0then-- NS_MAIN
 title=':'..titleobj.text
 else
 title=titleobj.prefixedText
 end

 ifframe.args['$template-name']and''~=frame.args['$template-name']then
 title=frame.args['$template-name']-- override whatever the template name is with this name
 end

 -- Remove empty fields
 fork,vinpairs(args)do
 ifv==''thenargs[k]=nilend
 end

 -- Pull information from parameter aliases
 localaliases,extra={},{}
 ifframe.args['$aliases']then
 locallist=mw.text.split(frame.args['$aliases'],'%s*,%s*')
 fork,vinipairs(list)do
 localtmp=mw.text.split(v,'%s*>%s*')
 localalias=(tonumber(mw.ustring.match(tmp[1],'^[1-9][0-9]*$')))ortmp[1]
 aliases[alias]=((tonumber(mw.ustring.match(tmp[2],'^[1-9][0-9]*$')))ortmp[2])
 extra[alias]=true
 end
 end
 fork,vinpairs(aliases)do
 ifargs[k]andnotargs[v]thenargs[v],args[k]=args[k],nilend
 end

 -- Build the invocation body with numbered args first, then named
 localret='{{'..title
 fork,vinipairs(args)do
 ifmw.ustring.find(v,'=',1,true)then
 -- likely something like 1=foo=bar, we need to do it as a named arg
 break
 end
 ret=ret..'|'..v
 args[k]=nil
 end

 -- Pull lists from special parameters
 localdiscard={}
 localparams=mw.text.split(frame.args['$params'],'%s*,%s*')
 fork,vinipairs(params)do
 -- Numbered args don't go here
 ifmw.ustring.match(v,'^[1-9][0-9]*$')then
 table.insert(discard,1,k)
 end
 end
 fork,vinipairs(discard)dotable.remove(params,v)end
 localsets,setparams={{},{},{}},{}
 fork=1,3do
 localv=frame.args['$set'..k]
 ifvthen
 setparams[k]=mw.text.split(v,'%s*,%s*')
 discard={}
 forx,yinipairs(setparams[k])do
 sets[k][setparams[k][x]]=true
 -- Numbered args don't go here
 ifmw.ustring.match(y,'^[1-9][0-9]*$')then
 table.insert(discard,1,x)
 end
 end
 forx,yinipairs(discard)dotable.remove(setparams[k],y)end
 end
 end
 ifframe.args['$extra']then
 localtmp=mw.text.split(frame.args['$extra'],'%s*,%s*')
 fork,vinipairs(tmp)doextra[(tonumber(mw.ustring.match(v,'^[1-9][0-9]*$')))orv]=trueend
 end

 -- Replace parameter list with short version if full version not necessary
 localtmp={}
 fork,vinipairs(sets)do
 ifnext(v)then-- if table v is not empty
 for_,xinipairs(params)do
 ifargs[x]andnotv[x]then
 tmp[k]=true
 break
 end
 end
 ifnottmp[k]thenparams=setparams[k]end
 end
 end

 -- Align parameters correctly and remove extra ones
 localmaxlength=0
 discard={}
 fork,vinipairs(params)do
 if(notextra[v])orargs[v]then
 localtmp=mw.ustring.len(tostring(v))
 iftmp>maxlengththenmaxlength=tmpend
 else
 table.insert(discard,1,k)
 end
 end
 fork,vinipairs(discard)dotable.remove(params,v)end
 localindent=mw.ustring.rep(' ',(tonumber(frame.args['$indent'])or0))
 -- Numbered args after discontinuity continue first
 discard={}
 fork,vinpairs(args)do
 ifmw.ustring.match(k,'^[1-9][0-9]*$')thentable.insert(discard,1,k)end
 end
 fork,vinipairs(discard)dotable.insert(params,1,v)end

 localspace,newline=' ','\n'
 ifnotnext(params)thenspace,newline='',''end

 fork,vinipairs(params)do
 localtmp=space
 ifmw.ustring.match(mw.ustring.sub((args[v]or'')..' ',1,1),'[%*:;#]')thentmp='\n'end
 ret=ret..newline..indent..'|'..space..v..string.rep(' ',(maxlength-mw.ustring.len(v)))..space..'='..tmp..(args[v]or'')
 end

 ret=ret..newline..'}}'

 ret=mw.ustring.gsub(ret,'%s+\n','\n')

 returnret
 else
 -- Not substing
 -- Just return the "body"
 returnframe.args['$B']
 end
 end

 returnp