Exibir código-fonte para Módulo:WikidataCheck

local p = {}

function p.wikidatacheck(frame)
	local pframe = frame:getParent()
	local config = frame.args -- os argumentos passados PELA predefinição, no wikitexto da própria predefinição
	local args = pframe.args -- os argumentos passados PARA a predefinição, no wikitexto que transclui a predefinição
	local property = config.property
	local value = config.value or ""
	local catbase = config.category
	local namespaces = config.namespaces
	local nocatsame = config.nocatsame or ""
	local ignorecase = config.ignorecase or ""
	local qid = config.qid or ""
	local onlysourced = (config.onlysourced == 'yes') or false
	local ok = false -- marcação de uma só forma para verificar se está em um bom namespace
	local ns = mw.title.getCurrentTitle().namespace
	
	for v in mw.text.gsplit( namespaces, ",", true) do
		if tonumber(v) == ns then
			ok = true
		end
	end
	if not ok then -- não está em um dos namespaces aprovados
		return ""
	end
	local entity
	if qid == "" then
		entity = mw.wikibase.getEntityObject()
	else
		entity = mw.wikibase.getEntityObject(qid)
	end
	if not entity then -- sem item do Wikidata
		return "[[Categoria:!" .. catbase .. " que não está no Wikidata]]"
	end
	if value == "" then
		return nil -- Using Wikidata
	end
	local claims = entity.claims or {}
	local hasProp = claims[property]
	if not hasProp then -- nenhuma reivindicação sobre essa propriedade
		return "[[Categoria:!" .. catbase .. " que não está no Wikidata]]" -- ruim. Os bots precisam adicionar a propriedade
	end
	if ignorecase ~= "" then
		value = string.lower( value )
	end
	for i, v in ipairs(hasProp) do -- agora, vamos tentar iterar sobre todos os valores possíveis?
		propValue = (v.mainsnak.datavalue or {}).value
		if ignorecase ~= "" then
			propValue = string.lower( propValue )
		end
		local sourced = false -- verificar referências externas ao estilo Módulo:WikidataIB apenas com fontes
		if v.references then
			for j, vr in ipairs(v.references) do
				local ref = mw.wikibase.renderSnaks(vr.snaks)
				if not ref:find("Wiki") then
					sourced = true
					break
				end
			end
		end
		if propValue == value and (not onlysourced or sourced) then
			if nocatsame == "" then
				return "[[Categoria:!" .. catbase .. " igual ao Wikidata]]" -- yay!
			else
				return nil -- se não houver categoria, a categoria "igual a" não será adicionada
			end
		end
	end
	return "[[Categoria:!" .. catbase .. " diferente do Wikidata]]" -- necessita de revisão humana :(
end

return p