Module: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('Taxon identifiers by parameter name')
			:done()
		:tag('tr')
			:tag('th')
				:wikitext('Parameter')
			:tag('th')
				:attr('data-sort-type', 'number')
				:css('white-space', 'nowrap')
				:wikitext('Wikidata ID')
			:tag('th')
				:wikitext('Authority')
			:tag('th')
				:wikitext('Description')
				
				
				
				
	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' .. 
					 '! Parameter !! Wikidata ID !! Database !! Examples !! datatype !! formatterURL (or alternative) and examples'
	
	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 = "No formatter URL (P1630)."
					if datatype == "url" then url = url .. " The id of the external database is the 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/>website: ' .. officialWebsite.mainsnak.datavalue.value
						end
					else
						url = url .. ' or official website (P856) of wikidata item of this property (P1629)'
						-- 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/>use third party url: ' .. thirdPartyURL
						else
							url = url .. ' or third party formatter 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 "count exceeded" 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 .. "No example"
		 end
		else
			examples = examples .. "No examples statements"
		end
	end

 return examples, links
 end
 return p