Module:Taxonbar/candidate

 localp={}

 functionp.check(frame)
 localtaxonbarExists=require('Module:Taxonbar/exists').check
 iftaxonbarExists(frame)==truethen
 return''
 else
 localresolveEntity=require('Module:ResolveEntityId')
 localcurrentTitle=mw.title.getCurrentTitle()
 localcurrentItem=nil
 localcategories={
 '[[Category:Taxobox articles possibly missing a taxonbar]]'--unset if acceptable or unacceptable found
 }

 --preliminary exclusion criteria
 ifstring.match(currentTitle.text,'^List of ')then
 return''
 end

 --find Wikidata item
 ifcurrentTitle.namespace==0then--mainspace
 localcurrentEntityId=mw.wikibase.getEntityIdForCurrentPage()
 ifresolveEntity._id(currentEntityId)then
 currentItem=mw.wikibase.getEntity(currentEntityId)
 else--currentEntityId == nil/unresolvable
 returncategories[1]
 end
 else
 return''
 end

 ifcurrentItemthen--currentItem should not be nil here, but check just in case
 --determine if {{Taxonbar}} is *definitely* missing, *possibly* missing, or not missing at all
 localwhitelist=require('Module:Taxonbar/whitelist').whitelist
 localblacklist=require('Module:Taxonbar/blacklist').blacklist
 localacceptableInstanceOf_All=whitelist{args={'all'}}
 localunacceptableInstanceOf=blacklist{args={}}

 localacceptableCount=0
 localunacceptableCount=0
 for_,instanceOfStateinpairs(currentItem:getBestStatements('P31'))do--instance of
 localinstanceOf=instanceOfState.mainsnak.datavalue.value.id
 ifacceptableInstanceOf_All[instanceOf]then
 acceptableCount=acceptableCount+1
 elseifunacceptableInstanceOf[instanceOf]then
 unacceptableCount=unacceptableCount+1
 end
 end
 for_,subclassOfStateinpairs(currentItem:getBestStatements('P279'))do--subclass of
 localsubclassOf=subclassOfState.mainsnak.datavalue.value.id
 ifacceptableInstanceOf_All[subclassOf]then
 acceptableCount=acceptableCount+1
 elseifunacceptableInstanceOf[subclassOf]then
 unacceptableCount=unacceptableCount+1
 end
 end

 ifacceptableCount>0then
 categories[1]=''
 categories[2]='[[Category:Taxobox articles missing a taxonbar]]'
 elseifunacceptableCount>0then
 categories[1]=''
 categories[2]=''
 end

 returntable.concat(categories)

 else
 return''
 end
 end
 end

 returnp