Sneedmaster: naimportována 1 revize

2026-02-21T21:01:22Z

naimportována 1 revize

← Starší verze		Verze z 21. 2. 2026, 21:01
(Žádný rozdíl)

wp>MatSuBot: využití zabudované funkcionality místo modulu

2025-05-01T14:39:25Z

využití zabudované funkcionality místo modulu

Nová stránka

require 'strict'

local p = {}

local getArgs = require( 'Modul:Arguments' ).getArgs

local function makeCategory( category )
if mw.title.getCurrentTitle().namespace == 0 then
local Kategorie = require 'Modul:Kategorie'
return Kategorie.makeCategory(
category,
mw.title.getCurrentTitle().namespace,
mw.title.getCurrentTitle().text
)
else
return ''
end
end

-- @author [[Wikipedista:Oashi]]
local function makeDiffCategory( range )
local unit = 'm'
if range >= 1000 then
unit = 'km'
range = math.floor( range / 1000 )
end
local category_pattern = 'Údržba:Souřadnice z Wikidat se liší o více než %d %s'
return makeCategory( mw.ustring.format( category_pattern, range, unit ) )
end

-- @author [[Wikipedista:Oashi]]
local function validateRange( range )
if range < 0 then
return false, '' --TODO: chyba
end
if range < 0.1 then
return true, ''
end
local metre = math.min( range, 999 ) * 1000
local magn, fract = math.modf( math.log10( metre ) )
for _, num in ipairs{ 5, 2 } do
if 10 ^ fract > num then
return false, makeDiffCategory( num * ( 10 ^ magn ) )
end
end
return false, makeDiffCategory( 10 ^ magn )
end

local function getFirstKey( args, ... )
for _, key in ipairs{ ... } do
if args[key] then
return tonumber( args[key] )
end
end
return nil
end

function p.main( frame )
local args = getArgs( frame, {
parentOnly = true,
readOnly = true,
removeBlanks = true,
} )
local lat = getFirstKey( args, 'zeměpisná šířka', 'šířka', 'latitude', 'lat', 1 )
local long = getFirstKey( args, 'zeměpisná délka', 'délka', 'longitude', 'long', 'lon', 2 )
local Wikidata = require 'Modul:Wikidata'
local WD_coord = Wikidata.getRawValueFromLua{ property = 'P625', id = args.id, of = args.of }
local _, category = p.validate( lat, long, WD_coord, args.kategorie )
return category
end

function p.validate( lat, long, WD_coord, missing_cat )
if not (lat or long) then
if not WD_coord then
return false, makeCategory( missing_cat or 'Údržba:Články objektů bez souřadnic' )
else
return true, ''
end
end
if not (lat and long) then
return false, makeCategory( 'Údržba:Články s chybným vložením souřadnic' )
end
if not WD_coord then
return false, makeCategory( 'Údržba:Bez souřadnic na Wikidatech' )
end
local bool, category = validateRange( p.range( lat, long, WD_coord.latitude, WD_coord.longitude ) )
return bool, category .. makeCategory( 'Monitoring:Články s výpočty' )
end

-- @see [[Ortodroma#Délky ortodromy]]
function p.range( lat1, long1, lat2, long2 )
local radius = 6372.795
local cosValue = math.sin( math.rad( lat1 ) ) * math.sin( math.rad( lat2 ) )
+ math.cos( math.rad( lat1 ) ) * math.cos( math.rad( lat2 ) ) * math.cos( math.rad( long2 - long1 ) )
if cosValue > 1 then return 0 end
if cosValue < -1 then return radius * math.pi end
return radius * math.acos( cosValue )
end

return p

Modul:Validuj souřadnice - Historie editací

Sneedmaster: naimportována 1 revize

wp>MatSuBot: využití zabudované funkcionality místo modulu