Module:Science redirect

 localconf=require("Module:Science redirect/conf")

 localp={}

 functionp.R(frame)
 localtemplate=mw.ustring.gsub(frame.args[1],' ','_')
 ifconf.templates[template]then
 returnp._main(frame,'R_'..template,conf.templates[template].name,conf.templates[template].from,conf.templates[template].to,conf.templates[template].category,conf.templates[template].info,conf.templates[template].removeA)
 elseiftemplatethen
 return'<span class="error">The template '..template..'is not valid.</span>\n'
 else
 return'<span class="error">No template specified</span>\n'
 end
 end

 functionp.list(frame)
 localoutstr=""
 localocats={}

 fork,vinpairs(conf.cats)do
 if(v[2])then
 ocats[v[2]]=v[1]
 end
 end

 fork,vinpairs(ocats)do
 localh=mw.ustring.match(v,".*%s(.*)")
 localcatTitle=mw.title.new((h.." redirects"),14):getContent()and(h.." redirects")or(k.." redirects")
 outstr=outstr.."\n=== "..frame:expandTemplate{title='cl',args={catTitle,(mw.language.getContentLanguage():ucfirst(catTitle)),count="yes"}}.." ===\n"
 forkk,vvinpairs(conf.templates)do
 outstr=outstr.."*"..frame:expandTemplate{title='cl',args={("Redirects "..vv.category.." of "..k),count="yes"}}.."\n"
 end
 end

 returnoutstr
 end

 functionp._main(frame,id,name,from,to,category,info,removeA)
 --initialize variables
 localargs=frame:getParent().args
 localsingleNoun,pluralNoun='',''
 localoutStr=''

 --Check for known parameter 1
 localcat=mw.ustring.match(mw.ustring.lower(args[1]or'none'),'^(.-)s?$')
 ifconf.cats[cat]thensingleNoun,pluralNoun=conf.cats[cat][1],conf.cats[cat][2]else
 singleNoun,pluralNoun='an organism'
 outStr='[[Category:Redirects '..category..' using unknown values for parameter 1]]'
 end

 --strip article from singleNoun if removeA is true
 ifremoveA==truethen
 ifsingleNoun=='an organism'thensingleNoun=''elsesingleNoun=(mw.ustring.match(singleNoun,'^an? (.*)$')orsingleNoun)end
 end

 --support alternative indications for printworthy
 ifargs[2]=='unprintworthy'orargs['unprintworthy']=='true'thenargs['printworthy']='no'end

 --build template arguments
 localmain_category='Redirects '..category
 ifpluralNounthenmain_category=main_category..' of '..pluralNounend
 localoutArgs={
 id=id,
 name=mw.ustring.gsub(name,'1ドル',singleNoun),
 from=mw.ustring.gsub(mw.ustring.gsub(from,'1ドル',singleNoun),'2ドル',(pluralNounor'organisms')),
 to=mw.ustring.gsub(mw.ustring.gsub(to,'1ドル',singleNoun),'2ドル',(pluralNounor'organisms')),
 ['main category']=main_category,
 printworthy=(args['printworthy']or'yes'),
 info=info,
 }

 --build output string
 ifframe.args['debug']=='true'then
 localdebugStr='{{Redirect template<br />\n'
 fork,vinpairs(outArgs)do
 debugStr=debugStr..'| '..k..' = '..v..'<br />\n'
 end
 outStr=debugStr..'}}'..frame:extensionTag{name='nowiki',content=outStr}
 else
 outStr=frame:expandTemplate{title='Redirect template',args=outArgs}..outStr
 end

 returnoutStr
 end

 returnp