Hoppa till innehållet

Modul:Ortsfakta

Från Wikipedia

Dokumentation [visa] [redigera] [historik] [rensa sidcachen]


p = {}

local wikidata = require('Modul:Wikidata2').formatStatementsFromLua
local aux = require('Modul:Ortsfakta/Aux').aux

function lankod2lan(lankod)
local lan = ''
if lankod == '01' then lan = 'Stockholm'
	elseif lankod == '03' then lan = 'Uppsala'
	elseif lankod == '04' then lan = 'Södermanland'
	elseif lankod == '05' then lan = 'Östergötland'
	elseif lankod == '06' then lan = 'Jönköping'
	elseif lankod == '07' then lan = 'Kronoberg'
	elseif lankod == '08' then lan = 'Kalmar'
	elseif lankod == '09' then lan = 'Gotland'
	elseif lankod == '10' then lan = 'Blekinge'	
    elseif lankod == '12' then lan = 'Skåne'
    elseif lankod == '13' then lan = 'Halland'
	elseif lankod == '14' then lan = 'Västra Götaland'
	elseif lankod == '17' then lan = 'Värmland'
	elseif lankod == '18' then lan = 'Örebro'
	elseif lankod == '19' then lan = 'Västmanland'
	elseif lankod == '20' then lan = 'Dalarna'
	elseif lankod == '21' then lan = 'Gävleborg'
	elseif lankod == '22' then lan = 'Västernorrland'
	elseif lankod == '23' then lan = 'Jämtland'
	elseif lankod == '24' then lan = 'Västerbotten'
	elseif lankod == '25' then lan = 'Norrbotten'
	else lan = ''
end
return lan
end

function lankod(frame) -- hämtar länskod från i första hand det län och i andra hand den kommun som objektet ingår i
	local           INOM_ADMINISTRATIVT_OMRADE = 'P131'
	local INOM_NUVARANDE_ADMINISTRATIVT_OMRADE = 'P3842'
	local                         SVERIGES_LAN = 'Q200547'
	local                    SVERIGES_KOMMUNER = 'Q127448'
	local                              LANSKOD = 'P507'
	local                  KOMMUNKOD_I_SVERIGE = 'P525'
	local t = {}

	t = wikidata({entityId=frame.args.item, property=INOM_NUVARANDE_ADMINISTRATIVT_OMRADE,noref='ja',nolink='ja',getonly=SVERIGES_LAN,raw='ja'}) -- hämta län som objektet ingår i 
	if t and t[1] then 
    	return wikidata({property=LANSKOD,noref='ja',nolink='ja',entityId=t[1].item}) -- returnera länskoden 
	end
	t = wikidata({entityId=frame.args.item, property=INOM_NUVARANDE_ADMINISTRATIVT_OMRADE,noref='ja',nolink='ja',getonly=SVERIGES_KOMMUNER,raw='ja'}) -- hämta kommun om län ej var angivet
	if t and t[1] then
		k = wikidata({property=KOMMUNKOD_I_SVERIGE,noref='ja',nolink='ja',entityId=t[1].item,avoidqualifier='P582'})
		if k then 
			return mw.ustring.sub(k,1,2) -- returnera de två första siffrorna i kommunkoden	
		end
	end	
	
	t = wikidata({entityId=frame.args.item, property=INOM_ADMINISTRATIVT_OMRADE,noref='ja',nolink='ja',getonly=SVERIGES_LAN,raw='ja'}) -- hämta län som objektet ingår i 
	if t and t[1] then 
    	return wikidata({property=LANSKOD,noref='ja',nolink='ja',entityId=t[1].item}) -- returnera länskoden 
	end
	t = wikidata({entityId=frame.args.item, property=INOM_ADMINISTRATIVT_OMRADE,noref='ja',nolink='ja',getonly=SVERIGES_KOMMUNER,raw='ja'}) -- hämta kommun om län ej var angivet
	if t and t[1] then
		k = wikidata({property=KOMMUNKOD_I_SVERIGE,noref='ja',nolink='ja',entityId=t[1].item,avoidqualifier='P582'})
		if k then
			return mw.ustring.sub(k,1,2) -- returnera de två första siffrorna i kommunkoden	
		end
	end
	return ''
 end

function p.positionskartnamn(frame) -- kartbild för länet som objektet tillhör. används av till exempel mallen "Ortsfakta Sverige WD"
   return mw.getCurrentFrame():preprocess('{{Kartposition Sverige '..lankod2lan(lankod(frame))..'|bild}}')
end 

function p.positionskarta(frame) -- kartlokalisering (Geolocator) för länet som objektet tillhör. används av till exempel mallen "Ortsfakta Sverige WD"
	return lankod2lan(lankod(frame))
end

function rat(data, precision)
	local s = {}
	if not data then 
		return s
	end
	s.lat_dec = math.abs(data.latitude)
	s.long_dec = math.abs(data.longitude)
	if data.latitude > 0 then
		s.lat_NS = 'N'
	else
		s.lat_NS = 'S'
	end
	if data.longitude > 0 then
		s.long_EW = 'E'
	else
		s.long_EW = 'W'
	end
	local frac = 0
	local prec = data.precision
	if precision == 'grad' then
		prec = 1
	end
	if precision == 'minut' then
		prec = 0.016666666666667
	end	
	if precision == 'sekund' then
	   	prec = 0.00027777777777778
	end
	if prec < (data.precision or 0) then
	-- TODO, här kan man varna för att den begärda precisionen är "finare" än precisionen som finns i Wikidata	
	-- TODO2, hur bäst ta hänsyn till siffror utan precision?
	end
	
	if prec == 1 then
		s.lat_g, frac = math.modf(math.abs(data.latitude) + 0.5)
		s.long_g, frac = math.modf(math.abs(data.longitude) + 0.5)
	else 
		if prec == 0.016666666666667 then
			s.lat_g, frac = math.modf(math.abs(data.latitude))
			s.lat_m, frac = math.modf(frac * 60 + 0.5)
			if s.lat_m>=60 then
			   s.lat_m = 0
			   s.lat_g = s.lat_g + 1
			end 
			s.long_g, frac = math.modf(math.abs(data.longitude))
			s.long_m, frac = math.modf(frac * 60 + 0.5)
			if s.long_m>=60 then
			   s.long_m = 0
			   s.long_g = s.long_g + 1
			end
		else 
			if prec == 0.00027777777777778 then
				s.lat_g, frac = math.modf(math.abs(data.latitude))
				s.lat_m, frac = math.modf(frac * 60)
				s.lat_s, frac = math.modf(frac * 60 + 0.5)
				if s.lat_s >= 60 then
					s.lat_s = 0
					s.lat_m = s.lat_m + 1
				end
				if s.lat_m >= 60 then
					s.lat_m = 0
					s.lat_g = s.lat_g + 1
				end
				s.long_g, frac = math.modf(math.abs(data.longitude))
				s.long_m, frac = math.modf(frac * 60)
				s.long_s, frac = math.modf(frac * 60 + 0.5)
				if s.long_s >= 60 then
					s.long_s = 0
					s.long_m = s.long_m + 1
				end
			    if s.long_m >= 60 then
			    	s.long_m = 0
			    	s.long_g = s.long_g + 1
			    end
			else
				if prec == 0.000027777777777778 then
					s.lat_g, frac = math.modf(math.abs(data.latitude))
					s.lat_m, frac = math.modf(frac * 60)
					s.lat_s, frac = math.modf(frac * 600 + 0.5)/10
					if s.lat_s >= 60 then
						s.lat_s = 0
						s.lat_m = s.lat_m + 1
					end
					if s.lat_m >= 60 then
						s.lat_m = 0 
						s.lat_g = s.lat_g + 1 
					end
					s.long_g, frac = math.modf(math.abs(data.longitude))
					s.long_m, frac = math.modf(frac * 60)
					s.long_s, frac = math.modf(frac * 600 + 0.5)/10
					if s.long_s >= 60 then
						s.long_s = 0
						s.long_m = s.long_m + 1
					end
					if s.long_m >= 60 then
						s.long_m = 0
						s.long_g = s.long_g + 1
					end
				else
					s.lat_g = math.abs(data.latitude)
					s.long_g = math.abs(data.longitude)
				end
			end
		end
	end
	return s
end

function p.data(frame)
	return data(frame.args)
end

function data(args)
	if args[1] == 'ref' then
		if not args.index then
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518'})
			if data then
				return data[1].ref
			else
				return nil
			end
		else
			local vilken = wikidata({entityId = args.item, property = args.rangeproperty, noref='true', avoidqualifier='P582', getonly=args.typ, claimindex=args.index, raw ='true'})
			if not vilken or #vilken == 0 then
				return nil
			end
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', preferqualifier ='P518', rank = 'valid', preferqualifiervalue = vilken[1].item, modifyqualifiertime = 'Y'})
			if not data or #data == 0 then
				return nil
			end
			return data[1].ref
		end
	end
	if args[1] == 'year' then
		if not args.index then
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518', noref='true', modifyqualifiertime = 'Y'})
			if data then
				return data[1].datum
			else
				return nil
			end
		else
			local vilken = wikidata({entityId = args.item, property = args.rangeproperty, noref='true', avoidqualifier='P582', getonly=args.typ, claimindex=args.index, raw =' true'})
			if not vilken or #vilken == 0 then
				return nil
			end
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', preferqualifier ='P518', noref='true', rank = 'valid', preferqualifiervalue = vilken[1].item, modifyqualifiertime = 'Y'})
			if not data or #data == 0 then
				return nil
			end
			return data[1].datum
		end
	end
	if args[1] == 'number' then
		if not args.index then
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518', noref='true'})
			if not data then 
				return nil
			end
			local data2 = tostring(data[1].amount)
			if string.sub(data2, 1, 1) == '+' then
				return string.sub(data2, 2)
			else
				return data2
			end
		else
			local vilken = wikidata({entityId = args.item, property = args.rangeproperty, noref='true', avoidqualifier='P582', getonly=args.typ, claimindex=args.index, raw =' true'})
			if not vilken or #vilken == 0 then
				return nil
			end
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', preferqualifier ='P518', noref='true', rank = 'valid', preferqualifiervalue = vilken[1].item})
			if not data or #data == 0 then
				return nil
			end
			local data2 = tostring(data[1].amount)
			if string.sub(data2, 1, 1) == '+' then
				return string.sub(data2, 2)
			else
				return data2
			end
		end
	end
	if args[1] == 'unit' then
		if not args.index then
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', avoidqualifier='P518', noref='true'})
			if data and #data > 0 then
				return data[1].unit
			else
				return nil
			end
		else
			local vilken = wikidata({entityId = args.item, property = args.rangeproperty, noref='true', avoidqualifier='P582', getonly=args.typ, claimindex=args.index, raw =' true'})
			if not vilken or #vilken == 0 then
				return nil
			end
			local data = wikidata({entityId = args.item, property = args.property, sortbytime = 'chronological', enbarten = 'yes', raw = 'true', preferqualifier ='P518', noref='true', rank = 'valid', preferqualifiervalue = vilken[1].item})
			if not data or #data == 0 then
				return nil
			end
			return data[1].unit
		end
	end
	if args[1] == 'plats' then
		local vilken = wikidata({entityId = args.item, property = args.rangeproperty, noref='true', avoidqualifier='P582', getonly=args.typ, claimindex=args.index, raw =' true', nolink = 'true'})
		if vilken and #vilken > 0 then
			return vilken[1].value
		end
	end
	if args[1] == 'kommun' then
		if tonumber(args.limit) and tonumber(args.limit) > 0 then
			if (wikidata({entityId = args.item, property = args.property, noref='true', avoidqualifier='P582', getonly=args.typ, numberofclaims = 'true'}) or 0) > tonumber(args.limit) then
				return nil
			end
		end
		local s = {}
		local data = wikidata({entityId = args.item, property = args.property, noref='true', avoidqualifier='P582', getonly=args.typ, claimindex=args.index})
		return data
	end
	if args[1] == 'bild' then
		local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'en'})
		if data and #data >0 then 
			data = data[1]
			if data then 
				return data.value
			end
		end

	end
	if args[1] == 'bild2' then
		local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'en'})
		if #data > 1 then 
			data = data[2]
			if data then 
				return data.value
			end
		end

	end
	if args[1] == 'bildtext' then
		local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
		if #data > 0 then
			data = data[1]
			if data then
				return data.bildtext
			end
		end
	
	end
	if args[1] == 'bildtext2' then
		local data = wikidata({entityId = args.item, property = 'P18', raw = 'true', noref='true', enbarten = 'true', langpref = 'sv'})
		if #data > 1 then
			data = data[2]
			if data then
				return data.bildtext
			end
		end
	
	end
	return nil
end

function p.data2(frame)
	local args = frame.args
	local q = data(args)
	local index = tonumber(args.index)
	if q and q ~= '' then
		return q
	end
	local qw = wikidata({entityId = args.item, property = 'P527', raw = true, claimindex = args.turindex, raw = 'true', nolink = 'true'})
	local s = {}
	local s2 = ''
	if qw and #qw > 0 then
		for i, j in pairs( qw ) do
			args.item = j.item
			local s1 = 1
			repeat
				args.index = tostring(s1)
				s1 = s1 + 1
				local a = data(args)
				if a and a ~= '' then
					local f = false
					for i2, j2 in pairs(s) do
						if a == j2 then
							f = true
						end
					end
					if not f then
						table.insert(s, a)
					end
				end
			until not a or a == ''
		end
		return s[index]
	end
end
	
		
function p.coord(frame)
	local args = frame.args
	local data = wikidata({entityId = args.item, property = 'P625', raw = 'true', noref='true', enbarten = 'true', nogeodataparser = 'true'})
	if not data or #data == 0 then 
		return nil
	end
	local s = rat(data[1], args.precision or '')
	local a = s.lat_g .. '°'
	if s.lat_m then 
		a = a .. s.lat_m .. '′'
	end
	if s.lat_s then
		a = a .. s.lat_s .. '″'
	end
	a = a .. s.lat_NS
	local a = a .. ',' .. s.long_g .. '°'
	if s.long_m then 
		a = a .. s.long_m .. '′'
	end
	if s.long_s then
		a = a .. s.long_s .. '″'
	end
	a = a .. s.long_EW
	if not args[1] then 
		return a
	end
	return s[args[1]]
end

function auto(args)
	local f = tonumber(data({ 'number', item = args.item, property = 'P1082', index = args.index, typ = args.typ, rangeproperty = args.rangeproperty}))
	local a = tonumber(data({ 'number', item = args.item, property = 'P2046', index = args.index, typ = args.typ, rangeproperty = args.rangeproperty}))
	if not f or not a then 
		return nil
	end
	if a == 0 then 
		return 'NaN'
	end
	local b = f/a
	if b > 100 then
		return math.modf(b+0.5)
	else 
		if b > 10 then
			return math.modf(b*10 + 0.5)/10
		else
			if b < 0.1 then
				return math.modf(b*10000 + 0.5)/10000
			else
				if b < 1 then
					return math.modf(b*1000 + 0.5)/1000
				end
			end
		end
	end		
	return math.modf(b*100 + 0.5)/100	
end

function p.auto(frame)
	local args = frame.args
	return auto(args)
end

function lan(args)
	local s = {}
	local data = wikidata({entityId = args.item, property = args.property, noref='true', avoidqualifier='P582', getonly=args.typ, raw = 'true'})
	if not data then
		return nil
	end
	for i, j in pairs(data) do
		local data2 = {}
		data2 = wikidata({entityId = j.item, property = args.property, noref='true', avoidqualifier='P582', getonly=args.typ2, raw = 'true', nolink = args.nolink})
		for i2, j2 in pairs(data2) do
			local traff = false
			for i3, j3 in pairs(s) do
				if j3 == j2.value then
					traff = true
				end
			end
			if not traff then
				table.insert(s, j2.value)
			end
		end
	end
	if args.index and tonumber(args.index) and tonumber(args.index) <= #s then
		return s[tonumber(args.index)]
	else
		return nil
	end
end

function p.lan(frame)
	local args = frame.args
	return lan(args)
end

function p.bestar(frame)
 	local args = frame.args
 	if args[1] == 'plats2' then
 		local qw = wikidata({entityId = args.item, property = 'P527', raw = true, claimindex = args.turindex, raw = 'true', nolink = 'true'})
 		return aux(qw[1].item, qw[1].value) or '-'
 	elseif args[1] == 'auto' then
 		local qw = wikidata({entityId = args.item, property = 'P527', raw = true, claimindex = args.turindex, raw = 'true'})
 		if not qw or #qw == 0 then 
 			return nil
 		end
 		return auto({item = qw[1].item})
 	elseif args[1] == 'annat' then
 		local qw = wikidata({entityId = args.item, property = 'P527', raw = true, claimindex = args.turindex, raw = 'true'})
 		if not qw or #qw == 0 then 
 			return nil
 		end
		return wikidata({entityId = qw[1].item, property = args.property})
 	else
		local qw = wikidata({entityId = args.item, property = 'P527', raw = true, claimindex = args.turindex, raw = 'true'})
		if not qw or #qw == 0 then
			return nil
		end
		return data({ args[1], item = qw[1].item, property = args.property})
	end
end

function p.autom(frame)
	local args = frame.args
	local f = tonumber(data({ 'number', item = args.item, property = 'P1082', index = args.index, typ = args.typ, rangeproperty = args.rangeproperty}))
	local a = tonumber(data({ 'number', item = args.item, property = 'P2046', index = args.index, typ = args.typ, rangeproperty = args.rangeproperty}))
	if not f or not a then 
		return nil
	end
	if a == 0 then 
		return 'NaN'
	end
	local b = f/a
	if b > 100 then
		return math.modf(b+0.5)
	else 
		if b > 10 then
			return math.modf(b*10 + 0.5)/10
		else
			if b < 0.1 then
				return math.modf(b*10000 + 0.5)/10000
			else
				if b < 1 then
					return math.modf(b*1000 + 0.5)/1000
				end
			end
		end
	end		
	return math.modf(b*100 + 0.5)/100	
end

function p.label(frame)
	local l = frame.args.label
	local qid = frame.args.item
	if not l or l == '' then
		if not qid or qid == '' then
			l = mw.wikibase.label()
		else
			l = mw.wikibase.label(qid)
		end
	end
	if not l then
		l = mw.title.getCurrentTitle().text
	end
	return l
end

function p.rat(data, precision)
	return rat(data, precision)
end

return p