跳转到内容

模組:Taxonbar/confdoc

维基百科，自由的百科全书

require('strict')

local conf = require( "Module:Taxonbar/conf" ) -- configuration module

local p = {}
	
function p.confdoc( frame )
	local wikitable = mw.html.create('table')
	wikitable:addClass('wikitable sortable')
		:tag('caption')
			:wikitext('按参数名称排列的分类单元识别码')
			:done()
		:tag('tr')
			:tag('th')
				:wikitext('参数')
			:tag('th')
				:attr('data-sort-type', 'number')
				:css('white-space', 'nowrap')
				:wikitext('维基数据ID')
			:tag('th')
				:wikitext('数据库')
			:tag('th')
				:wikitext('说明')
				
				
				
				
	local format = string.format
	
	for _, db in pairs( conf.databases ) do
		local prop = db[3]
		if type(prop) == 'number' and prop > 0 then
			local param = mw.ustring.lower(db[1])
			local row = mw.html.create('tr')
			row
				:tag('td')
					:wikitext(param)
				:tag('td')
					:attr('data-sort-value', prop)
					:wikitext(format('[[d:Property:P%d|P%d]]', prop, prop))
				-- {{#statements:P1629|from=P{{{1|}}}}}
				:tag('td')
					:wikitext(frame:callParserFunction{
						name = '#statements:P1629',
						args = { from = 'P' .. prop }
					})
				:tag('td')
					:wikitext(mw.wikibase.getDescription('P' .. prop))
			wikitable:node(row)
		end
	end
	
	return wikitable
end
--[[ p.wikidataInfo( frame )
    -function to show formatURL and id for taxonomic databases
]]
local COUNTER_MAX = 390
local counter = 0    --expensive parser function counter

function p.wikidataInfo( frame )
	counter = frame.args['counter']  or COUNTER_MAX  -- prevent too many expensive calls
	local start = frame.args['start'] or "a"
	local finish = frame.args['finish'] or "zzz"
	
	local wikitable = '{| class="wikitable sortable"\n' .. 
					  '|-\n' .. 
					  '! 参数 !! 维基数据ID !! 数据库 !! 示例 !! 数据类型 !! 格式化URL（或等效字符串）及示例'
	
	for _, db in pairs( conf.databases ) do
		local param = mw.ustring.lower(db[1])
		local link = db[2]
		local prop = db[3]
		local id = 'id'
		local url = 'url'
		local datatype = ""
		local examples = ""
		local links = ""
		local formatterURL = ""
		
		if type(prop) == 'number' and prop > 0 and param > start and param < finish then
			local item = mw.wikibase.getEntity('P'..prop)  --('P5354')
			counter = counter - 1
			
			if item and item ~= "" then
				datatype = item.datatype
				local statements = item:getBestStatements('P1630')[1] 
				if statements and statements.mainsnak and statements.mainsnak.datavalue and statements.mainsnak.datavalue.value then
					formatterURL = statements.mainsnak.datavalue.value
					url = formatterURL
				else
					url = "无格式化URL（P1630）。"
					if datatype == "url" then url = url .. "外部数据库的ID即为URL。" end
					local subjectItem = item:getBestStatements('P1629')[1]
					if subjectItem then
						local officialWebsite = mw.wikibase.getEntity(subjectItem.mainsnak.datavalue.value.id):getBestStatements('P856')[1]
						counter = counter - 1
						if officialWebsite then	
							url = url .. '<br/>网站：' ..  officialWebsite.mainsnak.datavalue.value
						end
					else
						url = url .. '或该属性（P1629）的官方网站（P856）'
						-- use third-party formatter URL. e.g for  Euring number (P3459) 
						local statements = item:getBestStatements('P3459')[1] 
						if statements and statements.mainsnak and statements.mainsnak.datavalue and statements.mainsnak.datavalue.value then
				   			local thirdPartyURL = statements.mainsnak.datavalue.value
							url = url ..'<br/>使用第三方URL：' .. thirdPartyURL
						else
							url = url .. '或第三方格式化URL（P3459）'
						end
					end
				end
                examples, links =  p.getExamples( item, prop, formatterURL, datatype )
			end

		
			wikitable = wikitable .. '\n' .. '|-' 
					    .. '\n|' .. param 
					    .. '\n|' .. '[[:d:Property:P' .. prop .. '|P' .. prop .. ']]' 
					    .. '\n|' .. link
					    .. '\n|' .. examples
					    .. '\n|' .. datatype
					    .. '\n|' .. url  .. '\n{{smalldiv|1=' .. links  .. '}}'
		end
	end
	
	return wikitable .. '\n|}'
end

function p.getExamples( propItem , prop, formatterURL, datatype)
	
	
	if counter < 0 then return "超出计数" end
	
	local examples	= ""	
	local links	= ""	
	local exampleStatements = propItem:getBestStatements('P1855')
	local nExamples = 0
	
	--local statement = statements[1]
	for _, statement in pairs( exampleStatements ) do
		
		if nExamples == 3 then break end -- don't show more than 3 examples
			
		if statement.mainsnak and statement.mainsnak.datavalue and statement.mainsnak.datavalue.value then
			local examplesValue = statement.mainsnak.datavalue.value
			if examplesValue and examplesValue.id then
				local exampleID = examplesValue.id
				--examples = examples .. '\n*[[:d:' .. exampleID  .. '|' .. exampleID ..']] '
				local label = mw.wikibase.getLabel( exampleID )
				examples = examples .. '\n*[[' .. label .. ']] ([[:d:' .. exampleID  .. '|' .. exampleID ..']])'

                -- get information form qualifiers
                if statement.qualifiers then
                   local qualifiers = statement['qualifiers']  
                   local value = qualifiers['P'..prop][1] --['datavalue']['value']
                   --mw.addWarning (mw.wikibase.formatValues( qualifiers ))
                   --mw.addWarning (mw.wikibase.renderSnaks( qualifiers ))
                   -- mw.addWarning (mw.wikibase.formatValue( value ))
                   --mw.addWarning ( mw.wikibase.renderSnak( value ))
                   local id = mw.wikibase.renderSnak( value )
                   examples = examples .. '<br/><small>id=<code>' .. id .. '</code></small>'
                   local link = formatterURL:gsub('$1', id)
                   if (datatype == "url") then link = id end
                   links = links .. '\n*' .. link .. ''
                end


--[==[		    -- this method is expensive as it calls getEntity

		        local item = mw.wikibase.getEntity(exampleID)
		        counter = counter - 1
		        nExamples = nExamples + 1
		        
		        
		        if item and item ~= "" then
					--datatype = item.datatype
					local statements = item:getBestStatements('P225')[1] -- taxon name
					if statements and statements.mainsnak and statements.mainsnak.datavalue and statements.mainsnak.datavalue.value then
						local taxon = statements.mainsnak.datavalue.value
						examples = examples .. ' [[' .. taxon .. ']]'
					end
					local statements = item:getBestStatements('P'..prop)[1] -- the databas property
					if statements and statements.mainsnak and statements.mainsnak.datavalue and statements.mainsnak.datavalue.value then
						local id = statements.mainsnak.datavalue.value
						local link = formatterURL:gsub('$1', id)
						if (datatype == "url") then link = id end
						examples = examples .. ' (' .. id .. ')'  
						links = links .. '\n*' .. link .. ''
					end
		end
]==]
		    else
		    	examples = examples .. "无示例"
		    end
		else
			examples = examples .. "无示例陈述"
		end
	end

    return examples, links
end
return p
检索自“https://zh.wikipedia.org/w/index.php?title=Module:Taxonbar/confdoc&oldid=76229062”