Módulo:Taxonbar/candidate

Documentação do módulo[ver] [editar] [histórico] [purgar]

Sobre

Esta predefinição está desenhada para ser utilizada de {{Info/Taxonomia/core}} ou em outras predefinições relacionadas, e segue páginas que podem ser candidatos para uma barra {{Taxonbar}} ou {{Controle de autoridade}}.

Se nenhuma barra {{Taxonbar}} ou {{Controle de autoridade}} existe na página transcluída, a página Wikidata do elemento é verificada se tem os valores instância de (P31)/subclasse de (P279), e uma lista de propriedades não aceitáveis.

Se for encontrada uma instância/subclasse aceitável, então a página é categorizada como:

• Categoria:!Artigos com caixa taxonómica sem barra táxon (71)

Se não for encontrada uma instância/subclasse aceitável, então a página é categorizada como:

• Categoria:!Artigos com caixa taxonómica possivelmente sem barra táxon (8)

Se nenhum elemento aceitável e pelo menos 1 elemento não aceitável for encontrado, então a página não é colocada em nenhuma categoria de manutenção.

Uso

{{Taxonbar/candidate}}

local p = {}

function p.check(frame)
    local taxonbarExists = require('Module:Taxonbar/exists').check
    if taxonbarExists(frame) then
        return ''
    else
        local resolveEntity = require( 'Module:ResolveEntityId' )
        local currentTitle = mw.title.getCurrentTitle()
        local currentItem = nil
        local categories = {
            '[[Categoria:!Artigos com caixa taxonómica possivelmente sem barra táxon]]' --unset if acceptable or unacceptable found
        }
        
        --preliminary exclusion criteria
        if string.match( currentTitle.text, '^Lista de ') then
            return ''
        end
        
        --find Wikidata item
        if currentTitle.namespace == 0 then --mainspace
            local currentEntityId = mw.wikibase.getEntityIdForCurrentPage()
            if resolveEntity._id(currentEntityId) then
                currentItem = mw.wikibase.getEntity(currentEntityId)
            else --currentEntityId == nil/unresolvable
                return categories[1]
            end
        else
            return ''
        end
        
        if currentItem then --currentItem should not be nil here, but check just in case
            --determine if {{Taxonbar}} is *possibly* missing, or *definitely* missing
            local acceptableInstanceOf_All = { --copied from [[Module:Taxonbar]]
                ['Q16521'] = 'taxon',                      --strict
                ['Q310890'] = 'monotypic taxon',           --strict
                ['Q2568288'] = 'ichnotaxon',               --strict
                ['Q23038290'] = 'fossil taxon',            --strict
                ['Q47487597'] = 'monotypic fossil taxon',  --strict
                ['Q42621'] = 'hybrid',                     --lax
                ['Q235536'] = 'incertae sedis',            --lax
                ['Q713623'] = 'clade',                     --lax
                ['Q848328'] = 'serotype',                  --lax
                ['Q857968'] = 'candidatus',                --lax
                ['Q17487588'] = 'unavailable combination', --lax
            }
            local unacceptableInstanceOf = {
                ['Q913170'] = 'trivial name',
                ['Q55983715'] = 'group of organisms known by one particular common name',
                ['Q937228'] = 'property',
                ['Q14712'] = 'drupe',
                ['Q163233'] = 'compound drupe',
                ['Q747463'] = 'compound fruit',
            }
            
            local acceptableCount = 0
            local unacceptableCount = 0
            for _, instanceOfState in pairs ( currentItem:getBestStatements('P31') ) do --instance of
                local instanceOf = instanceOfState.mainsnak.datavalue.value.id
                if acceptableInstanceOf_All[instanceOf] then
                    acceptableCount = acceptableCount + 1
                elseif unacceptableInstanceOf[instanceOf] then
                    unacceptableCount = unacceptableCount + 1
                end
            end
            for _, subclassOfState in pairs ( currentItem:getBestStatements('P279') ) do --subclass of
                local subclassOf = subclassOfState.mainsnak.datavalue.value.id
                if acceptableInstanceOf_All[subclassOf] then
                    acceptableCount = acceptableCount + 1
                elseif unacceptableInstanceOf[subclassOf] then
                    unacceptableCount = unacceptableCount + 1
                end
            end
            
            if acceptableCount > 0 then
                categories[1] = ''
                categories[2] = '[[Categoria:!Artigos com caixa taxonómica sem barra táxon]]'
            elseif unacceptableCount > 0 then
                categories[1] = ''
                categories[2] = ''
            end
            
            return table.concat(categories)
            
        else
            return ''
        end
    end
end

return p