Moduł:Wikidane/format/quantity

Dedykowana uniwersalna wtyczka formatująca wartość cechy z wartością ilościową z opcjonalną jednostką.

Wtyczka obsługuje parametr format, w którym można wskazać identyfikator Wikidanych (Qnnnnn) określający jednostkę miary w jakiej ma być zaprezentowany wynik. Jeśli jest pusty to wyświetlana jest aktualna wartość wraz z jednostką.

Zobacz też

• Moduł:Wikidane/format

---

Na stronie Moduł:Wikidane/format/quantity wykorzystano treści ze strony Moduł:Wikidane/format/quantity w polskiej Wikipedii (link do wersji).
Jej autorzy wymienieni są w historii edycji. Prawa autorskie: na licencji Creative Commons CC-BY-SA.

---

local i18n = mw.loadData("Moduł:Wikidane/data").quantityFormats
local units = mw.loadData("Moduł:Wikidane/data").quantityUnits

local function selectRoundCoefficients(value)
	local num = math.abs(value)
	if num > i18n.maximumAmount then
		return false, "", math.floor(num * i18n.maximumVarFactor)
	end

	for i, v in ipairs(i18n) do
		if num > v.amount then
			return v.factor, v.suffix, v.minvar
		end
	end

	return false, "", 0
end

local function formatVar(snak)
	local amount = tonumber(snak.datavalue.value.amount)
	local upperVar = snak.datavalue.value.upperBound and (tonumber(snak.datavalue.value.upperBound) - amount) or 0
	local lowerVar = snak.datavalue.value.lowerBound and (amount - tonumber(snak.datavalue.value.lowerBound)) or 0
	local lang = mw.getContentLanguage()
	if (upperVar == 0) and (lowerVar == 0) then
		return lang:formatNum(amount), amount
	elseif math.abs(upperVar - lowerVar) < ((upperVar + lowerVar) / 1000) then
		local var = math.max(upperVar, lowerVar)
		var = string.format("%f", var)
		if string.match(var, "%.") then
			var, _ = string.gsub(var, "%.", ",")
			var, _ = string.gsub(var, "0+$", "")
			var, _ = string.gsub(var, ",$", "")
		end
		
		return string.format(i18n.variance, lang:formatNum(amount), var), amount
	else
		return string.format(i18n.between, lang:formatNum(tonumber(snak.datavalue.value.lowerBound)), lang:formatNum(tonumber(snak.datavalue.value.upperBound))), tonumber(snak.datavalue.value.upperBound)
	end		
end

local function formatText(snak)
	local amount = tonumber(snak.datavalue.value.amount)
	local upperVar = snak.datavalue.value.upperBound and (tonumber(snak.datavalue.value.upperBound) - amount) or 0
	local lowerVar = snak.datavalue.value.lowerBound and (amount - tonumber(snak.datavalue.value.lowerBound)) or 0

	local div = false
	local suffix = ""
	local var = 0
	if (upperVar ~= 0) or (lowerVar ~= 0) then
		div, suffix, var = selectRoundCoefficients(amount)
	end
	
	local lang = mw.getContentLanguage()
	if (div == 1) or not div then
		if (upperVar == 0) and (lowerVar == 0) then
			return lang:formatNum(amount), amount
		elseif math.max(upperVar, lowerVar) <= var then
			return string.format(i18n.around, lang:formatNum(amount)), amount
		elseif upperVar == lowerVar then
			return string.format(i18n.variance, lang:formatNum(amount), lang:formatNum(upperVar)), amount
		else
			return string.format(i18n.between, lang:formatNum(tonumber(snak.datavalue.value.lowerBound)), lang:formatNum(tonumber(snak.datavalue.value.upperBound))), tonumber(snak.datavalue.value.upperBound)
		end		
	elseif div then
		if math.max(upperVar, lowerVar) <= var then
			local atxt = lang:formatNum(tonumber(string.format("%.2f", amount / div)))..suffix
			return string.format(i18n.around, atxt), amount / div
		elseif upperVar == lowerVar then
			local atxt = lang:formatNum(tonumber(string.format("%.2f", amount / div)))..suffix
			local vtxt = lang:formatNum(tonumber(string.format("%.2f", upperVar / div)))..suffix
			return string.format(i18n.variance, atxt, vtxt), amount / div
		else
			local ltxt = lang:formatNum(tonumber(string.format("%.2f", tonumber(snak.datavalue.value.lowerBound) / div)))..suffix
			local utxt = lang:formatNum(tonumber(string.format("%.2f", tonumber(snak.datavalue.value.upperBound) / div)))..suffix
			return string.format(i18n.between, ltxt, utxt), tonumber(snak.datavalue.value.lowerBound) / div
		end
	end
end

local function formatUnit(unitEntityId, options, value)
	local quantityUnits = units[unitEntityId]
	if type(quantityUnits) == "table" then
		return mw.getContentLanguage():convertPlural(value, quantityUnits)
	end
	
	local symbol = false
	local unitSymbols = mw.wikibase.getBestStatements(unitEntityId, "P5061")
	for _, v in ipairs(unitSymbols) do
		if (v.mainsnak.snaktype == "value") and (v.mainsnak.datatype == "monolingualtext") and (v.mainsnak.datavalue.value.language == "pl") then
			symbol = v.mainsnak.datavalue.value.text
			break
		end
	end
	
	if not symbol then
		for _, v in ipairs(unitSymbols) do
			if (v.mainsnak.snaktype == "value") and (v.mainsnak.datatype == "monolingualtext") and (v.mainsnak.datavalue.value.language == "en") then
				symbol = v.mainsnak.datavalue.value.text
				break
			end
		end
	end
	
	if not symbol then
		for _, s in ipairs(mw.wikibase.getBestStatements(unitEntityId, "P487")) do
			if (s.mainsnak.snaktype == "value") and (s.mainsnak.datatype == "string") and (s.mainsnak.datavalue.type == "string") then
				symbol = s.mainsnak.datavalue.value
				break
			end
		end
	end

	if not symbol then
		symbol = mw.wikibase.getLabel(unitEntityId)
	end
	
	local sitelink = options.linkItem and mw.wikibase.getSitelink(unitEntityId)
	if symbol and sitelink then
		return "[["..sitelink.."|"..symbol.."]]"
	elseif symbol then
		return symbol
	else
		return unitEntityId
	end
end

local autoUnitConverter = {
	-- temperatura
	Q42289   = function(value) return "Q25267", (value - 32) * 5/9 end, -- stopień Fahrenheita [°C]
	Q223061  = function(value) return "Q25267", value * 5/4 end, -- skala Réaumura [°C]
	Q488013  = function(value) return "Q25267", (value - 7.5) * 40/21 end, -- skala Rømera [°C]
	Q839449  = function(value) return "Q25267", 100 - value * 2/3 end, -- skala Delisle [°C]
	Q1133606 = function(value) return "Q25267", value * 100/33 end, -- Skala Newtona [°C]
	-- odległość
	Q3710    = function(value) return "Q11573", value * 0.3048006 end, -- stopa angielska [m]
	Q253276  = function(value) return "Q828224", value * 1.609344 end, -- mila [km]
	Q482798  = function(value) return "Q11573", value * 0.9144 end, -- jard [m]
	Q218593  = function(value) return "Q174728", value * 2.54 end, -- cal [cm]
	-- masa
	Q48013   = function(value) return "Q41803", value * 28.34952 end, -- uncja [g]
	Q100995  = function(value) return "Q11570", value * 0.4535923 end, -- funt [kg]
	-- prędkość
	Q748716  = function(value) return "Q182429", value * 0.3048006 end, -- stopy na sekundę [m/s]
	Q22673229= function(value) return "Q21014455", value * 0.3048006 end, -- stopy na minutę [m/min]
	Q6014364 = function(value) return "Q18413919", value * 2.54 end, -- cale na sekundę [cm/s]
	Q211256  = function(value) return "Q180154", value * 1.609344 end, -- mila na godzinę [km/h]
}

local function round(value)
	if not tonumber(value) or (value == 0) then
		return value
	end
	
	local abs = math.abs(value)
	local fix = value >= 0 and 0.5 or -0.5
	if abs >= 1000 then
		return math.floor(value + fix)
	elseif abs >= 100 then
		return math.floor(10*value + fix) / 10
	elseif abs >= 10 then
		return math.floor(100*value + fix) / 100
	elseif abs >= 1 then
		return math.floor(1000*value + fix) / 1000
	elseif abs >= 0.1 then
		return math.floor(10000*value + fix) / 10000
	else
		return value
	end
end

return {

scope = "snak",

options = {
	default = {
		linkItem = false,
	},
},

format = function(snak, options)
	local value, last
	if options.format == "tekst" then
		value, last = formatText(snak)
	else
		value, last = formatVar(snak)
	end

	if snak.datavalue.value.unit == "1" then
		return value
	end
	
	local unitEntityId = string.match(snak.datavalue.value.unit, "^http://www%.wikidata%.org/entity/(Q%d+)$")
	if not unitEntityId then
		mw.log("unrecognized unit: "..snak.datavalue.value.unit)
		return value.." ?"
	end
	
	local unit = formatUnit(unitEntityId, options, last)
	
	local builder = mw.html.create()
	
	local converter = autoUnitConverter[unitEntityId]
	if converter then
		local unitId2, amount2 = converter(snak.datavalue.value.amount)
		local _, upperBound = snak.datavalue.value.upperBound and converter(snak.datavalue.value.upperBound) or nil
		local _, lowerBound = snak.datavalue.value.upperBound and converter(snak.datavalue.value.lowerBound) or nil
		local v2, l2 = formatText( { datavalue = { value = { amount = round(amount2), upperBount = round(upperBound), lowerBound = round(lowerBound) } } } )
		local u2 = formatUnit(unitId2, options, last)
		
		builder:tag("span")
			:addClass("wd-auto-converted")
			:attr("title", value.." "..unit)
			:wikitext(v2, " ", u2)
	else
		builder:wikitext(value, " ", unit or "!")
	end

	return tostring(builder)
end,

}