Module:Coordinates : Différence entre versions

De Wikonsult
Sauter à la navigation Sauter à la recherche
(Recopie du code de https://en.wikipedia.org/w/index.php?title=Module:Coordinates&action=edit)
(Copier-coller de wikipedia)
 
Ligne 1 : Ligne 1 :
−
--[[
+
local math_mod = require( "Module:Math" )
−
This module is intended to replace the functionality of {{Coord}} and related
 
−
templates.  It provides several methods, including
 
  
−
{{#invoke:Coordinates | coord }} : General function formatting and displaying
+
local p = {}
−
coordinate values.
 
  
−
{{#invoke:Coordinates | dec2dms }} : Simple function for converting decimal
+
--Chargement de la liste En/Au/Aux/A
−
degree values to DMS format.
+
local gdata
 +
local success, resultat = pcall (mw.loadData, "Module:Drapeau/Data" )
 +
if success then
 +
gdata = resultat
 +
else
 +
-- Banque de données à minima en cas de bogue dans le Module:Langue/Data
 +
gdata={}
 +
gdata.data={};
 +
gdata.data[142]={qid="Q142", label="France", genre="fs"}
 +
end
  
−
{{#invoke:Coordinates | dms2dec }} : Simple function for converting DMS format
+
local i18n = {
−
to decimal degree format.
+
N = 'N',
 +
Nlong = 'nord',
 +
W = 'O',
 +
Wlong = 'ouest',
 +
E = 'E',
 +
Elong = 'est',
 +
S = 'S',
 +
Slong = 'sud',
 +
degrees = '° ',
 +
minutes = '′ ',
 +
seconds = '″ ',
 +
geohackurl = 'http://tools.wmflabs.org/geohack/geohack.php?language=fr',
 +
tooltip = 'Cartes, vues aériennes, etc.',
 +
errorcat = 'Page avec des balises de coordonnées mal formées',
 +
sameaswikidata = 'Page avec coordonnées similaires sur Wikidata',
 +
notaswikidata = 'Page avec coordonnées différentes sur Wikidata',
 +
nowikidata = 'Page sans coordonnées Wikidata',
 +
throughwikidata = 'Page géolocalisée par Wikidata',
 +
invalidFormat = 'format invalide',                                          -- 'invalid coordinate format',
 +
invalidNSEW = 'orientation invalide, devrait être "N", "S", "E" or "W"',    -- 'invalid direction should be "N", "S", "E" or "W"',
 +
invalidNS = 'orientation de latitude invalide, devrait être "N" ou "S"',    -- 'could not find latitude direction (should be N or S)',
 +
invalidEW = 'orientation de longitude invalide, devrait être "E" ou "W"',  -- 'could not find longitude direction (should be W or E) ',
 +
noCardinalDirection = 'orientation cardinale non trouvée',                  -- 'no cardinal direction found in coordinates',
 +
invalidDirection = 'direction invalide',                                    -- 'invalid direction',
 +
latitude90 = 'latitude > 90',
 +
longitude360 = 'longitude > 360',
 +
minSec60 = 'minutes ou secondes > 60',
 +
negativeCoode = 'en format dms les degrés doivent être positifs',          -- 'dms coordinates should be positive',
 +
dmIntergers = 'degrés et minutes doivent être des nombres entiers',        -- 'degrees and minutes should be integers',
 +
tooManyParam = 'trop de paramètres pour la latitude ou la longitude',      -- 'too many parameters for coordinates',
 +
coordMissing = 'latitude ou longitude absente',                            -- 'latitude or longitude missing',
 +
invalidGlobe = 'globe invalide : ',                                        -- 'invalid globe:',
 +
}
 +
local coordParse = {
 +
NORTH = 'N',
 +
NORD = 'N',
 +
EAST = 'E',
 +
EST = 'E',
 +
WEST = 'W',
 +
O = 'W',
 +
OUEST = 'W',
 +
SOUTH = 'S',
 +
SUD = 'S',
 +
}
  
−
{{#invoke:Coordinates | link }} : Export the link used to reach the tools
+
--Aide:Fonction_genre
 +
local genre = {
 +
ms =    {le="le ",  du="du ",    de="du ",  au="au ",  en="au "},
 +
msa =  {le="l'",  du="de l'",  de="d'",  au="à l'", en="en "},
 +
msi =  {le="",    du="de ",    de="de ",  au="à ",  en="à "},
 +
msia =  {le="",    du="d'",    de="d'",  au="à ",  en="à "},
 +
msiae = {le="",    du="d'",    de="d'",  au="à ",  en="en "},
 +
fs =    {le="la ",  du="de la ", de="de ",  au="à la ",en="en "},
 +
fsa =  {le="l'",  du="de l'",  de="d'",  au="à l'", en="en "},
 +
fsi =  {le="",    du="de ",    de="de ",  au="à ",  en="à "},
 +
fsia =  {le="",    du="d'",    de="d'",  au="à ",  en="à "},
 +
mp =    {le="les ", du="des ",  de="des ", au="aux ", en="aux "},
 +
fp =    {le="les ", du="des ",  de="des ", au="aux ", en="aux "}
 +
}
  
−
]]
+
local globedata = {
 +
--[[ notes:
 +
radius in kilometers (especially imprecise for non spheric bodies)
 +
defaultdisplay is currently disabled, activate it ?
 +
]]--
 +
ariel = {radius = 580, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
callisto =  {radius = 2410, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
ceres =  {radius = 470, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
charon =  {radius = 1214, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
deimos =  {radius = 7, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
dione =  {radius = 560, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
enceladus =  {radius = 255, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
ganymede =  {radius = 2634, defaultdisplay = 'dec west', trackingcat = 'sur Ganymède'},
 +
earth = {radius = 6371, defaultdisplay = 'dms', trackingcat = 'sur Terre'},
 +
europa =  {radius = 1561, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
hyperion =  {radius = 140, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
iapetus =  {radius = 725, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
['io'] =  {radius = 1322, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
jupiter =  {radius = 68911, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
mars =  {radius = 3389.5, defaultdisplay = 'dec east', trackingcat =  'sur Mars' },
 +
mercury =  {radius = 2439.7, defaultdisplay = 'dec west', trackingcat = 'sur Mercure'},
 +
mimas =  {radius = 197, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
miranda =  {radius = 335, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
moon =  {radius = 1736, defaultdisplay = 'dec', trackingcat = 'sur la Lune'},
 +
neptune =  {radius = 24553, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
oberon =  {radius = 761, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
phoebe =  {radius = 110, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
phobos =  {radius = 11, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
pluto =  {radius = 1185, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
rhea =  {radius = 765, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
saturn =  {radius = 58232, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
titan =  {radius = 2575.5, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
tethys =  {radius = 530, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
 +
titania =  {radius = 394, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
triton = {radius = 1353, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
umbriel =  {radius = 584, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
uranus =  {radius = 25266, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
 +
venus =  {radius = 6051.8, defaultdisplay = 'dec east', trackingcat = 'sur Vénus'},
 +
vesta =  {radius = 260, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'}
 +
}
 +
globedata[''] = globedata.earth
  
−
require('Module:No globals')
+
local wikidatathreshold = 10 -- si la distance entre coordonnées Wikipédia et Wikidata dépasse se seuil (en kilomètes), une catégorie de maintenance est ajoutée
 +
local lang = mw.language.getContentLanguage()
 +
local default_zoom = 13
  
−
local math_mod = require("Module:Math")
+
local function makecat(cat, sortkey)
−
local coordinates = {};
+
if type( sortkey ) == 'string' then
 +
return '[[Category:' .. cat .. '|' .. sortkey .. ']]'
 +
else
 +
return '[[Category:' .. cat .. ']]'
 +
end
 +
end
  
−
local current_page = mw.title.getCurrentTitle()
+
----------------------------------------
−
local page_name = mw.uri.encode( current_page.prefixedText, 'WIKI' );
+
--Error handling
−
local coord_link = '//tools.wmflabs.org/geohack/geohack.php?pagename=' .. page_name .. '&params='
+
--[[ Notes:
 +
when errors occure a new error message is concatenated to errorstring
 +
an error message contains an error category with a sortkey
 +
For major errors, it can also display an error message (the error message will the usually be returned and the function terminated)
 +
More minor errors do only add a category, so that readers are not bothered with error texts
 +
sortkeys:
 +
* A: invalid latitude, longitude or direction
 +
* B: invalid globe
 +
* C: something wrong with other parameters
 +
* D: more than one primary coord
 +
]]--
  
−
--[[ Helper function, replacement for {{coord/display/title}} ]]
+
local errorstring = ''
−
local function displaytitle(s, notes)
+
 
−
local l = "[[Geographic coordinate system|Coordinates]]: " .. s
+
local function makeerror(args)
−
local co = '<span id="coordinates">' .. l .. notes .. '</span>';
+
local errormessage = ''
−
return '<span style="font-size: small;">' .. co .. '</span>';
+
if args.message then
 +
errormessage = '<strong class="error"> Coordonnées : ' .. args.message .. '</strong>'  
 +
end
 +
local errorcat = ''
 +
if mw.title.getCurrentTitle().namespace == 0 then
 +
errorcat = makecat(i18n.errorcat, args.sortkey)
 +
end
 +
errorstring = errormessage .. errorcat -- reinitializes the string to avoid absurdly long messages
 +
return nil
 
end
 
end
  
−
--[[ Helper function, Replacement for {{coord/display/inline}} ]]
+
local function showerrors()
−
local function displayinline(s, notes)
+
return errorstring
−
return s .. notes
 
 
end
 
end
  
−
--[[ Helper function, used in detecting DMS formatting ]]
 
−
local function dmsTest(first, second)
 
−
if type(first) ~= 'string' or type(second) ~= 'string' then
 
−
return nil
 
−
end
 
−
local s = (first .. second):upper()
 
−
return s:find('^[NS][EW]$') or s:find('^[EW][NS]$')
 
−
end
 
  
  
−
--[[ Wrapper function to grab args, see Module:Arguments for this function's documentation. ]]
+
-- Distance computation
−
local function makeInvokeFunc(funcName)
+
function p._distance(a, b, globe) -- calcule la [[distance orthodromique]] en kilomètres entre deux points du globe
−
return function (frame)
+
 
−
local args = require('Module:Arguments').getArgs(frame, {
+
globe = string.lower(globe or 'earth')
−
wrappers = 'Template:Coord'
+
−
})
+
-- check arguments and converts degreees to radians
−
return coordinates[funcName](args, frame)
+
local latA, latB, longA, longB = a.latitude, b.latitude, a.longitude, b.longitude
 +
if (not latA) or (not latB) or (not longA) or (not longB) then return
 +
error('coordinates missing, can\'t compute distance')
 
end
 
end
 +
if type(latA) ~= 'number' or type(latB) ~= 'number' or type(longA) ~= 'number' or type(longB) ~= 'number' then
 +
error('coordinates are not numeric, can\'t compute distance')
 +
end
 +
if not globe or not globedata[globe] then
 +
return error('globe: ' .. globe .. 'is not supported')
 +
end
 +
 +
-- calcul de la distance angulaire en radians
 +
local convratio = math.pi / 180 -- convertit en radians
 +
latA, latB, longA, longB = convratio * latA, convratio * latB, convratio * longA, convratio * longB
 +
local cosangle = math.sin(latA) * math.sin(latB) + math.cos(latA) * math.cos(latB) * math.cos(longB - longA)
 +
if cosangle >= 1 then -- may be above one because of rounding errors
 +
return 0
 +
end
 +
local angle = math.acos(cosangle)
 +
-- calcul de la distance en km
 +
local radius = globedata[globe].radius
 +
return radius * angle
 
end
 
end
  
−
--[[ Helper function, handle optional args. ]]
+
function p.distance(frame)
−
local function optionalArg(arg, supplement)
+
local args = frame.args
−
return arg and arg .. supplement or ''
+
return p._distance(
 +
{latitude = tonumber(args.latitude1), longitude = tonumber(args.longitude1)},
 +
{latitude = tonumber(args.latitude2), longitude = tonumber(args.longitude2)},
 +
args.globe)
 
end
 
end
  
−
--[[
+
local function geoHackUrl(decLat, decLong, globe, displayformat, objectname, extraparams)
−
Formats any error messages generated for display
+
extraparams = extraparams or ''
−
]]
+
local geohacklatitude, geohacklongitude
−
local function errorPrinter(errors)
+
-- format latitude and longitude for the URL
−
local result = ""
+
if tonumber(decLat) < 0 then
−
for i,v in ipairs(errors) do
+
geohacklatitude = tostring(-tonumber(decLat)) .. '_S'
−
local errorHTML = '<strong class="error">Coordinates: ' .. v[2] .. '</strong>'
+
else
−
result = result .. errorHTML .. "<br />"
+
geohacklatitude = decLat .. '_N'
 +
end
 +
if tonumber(decLong) < 0  then
 +
geohacklongitude = tostring(-tonumber(decLong)) .. '_W'
 +
elseif globedata[globe].defaultdisplay == 'dec west' then
 +
geohacklongitude = decLong .. '_W'
 +
else
 +
geohacklongitude = decLong .. '_E'
 
end
 
end
−
return result
+
-- prepares the 'paramss=' parameter
 +
local geohackparams = geohacklatitude .. '_' .. geohacklongitude .. '_' ..extraparams
 +
-- concatenate parameteres for geohack
 +
return i18n.geohackurl ..
 +
"&pagename=" .. mw.uri.encode(mw.title.getCurrentTitle().prefixedText, "WIKI") ..
 +
"&params=" .. geohackparams ..
 +
(objectname and ("&title=" .. mw.uri.encode(objectname)) or "")
 
end
 
end
  
−
--[[
+
--HTML builder for a geohack link
−
Determine the required CSS class to display coordinates
+
local function buildHTML(decLat, decLong, dmsLat, dmsLong, globe, displayformat, displayinline, displaytitle, objectname, extraparams)
−
 
+
-- geohack url
−
Usually geo-nondefault is hidden by CSS, unless a user has overridden this for himself
+
local url = geoHackUrl(decLat, decLong, globe, displayformat, objectname, extraparams)
−
default is the mode as specificied by the user when calling the {{coord}} template
+
−
mode is the display mode (dec or dms) that we will need to determine the css class for
+
-- displayed coordinates
−
]]
+
local displaycoords
−
local function displayDefault(default, mode)
+
if string.sub(displayformat,1,3) == 'dec' then
−
if default == "" then
+
displaycoords = p.displaydec(decLat, decLong, displayformat)
−
default = "dec"
+
else
 +
displaycoords = {
 +
p.displaydmsdimension(dmsLat, displayformat),
 +
p.displaydmsdimension(dmsLong, displayformat),
 +
}
 +
end
 +
 +
-- build coordinate in h-geo / h-card microformat
 +
local globeNode
 +
if globe and globe ~= 'earth' then
 +
globeNode = mw.html.create('data')
 +
:addClass('p-globe')
 +
:attr{ value = globe }
 +
:done()
 +
end
 +
 +
local coordNode = mw.html.create('')
 +
if objectname then
 +
coordNode = mw.html.create('span')
 +
:addClass('h-card')
 +
:tag('data')
 +
:addClass('p-name')
 +
:attr{ value = objectname }
 +
:done()
 
end
 
end
−
 
+
coordNode
−
if default == mode then
+
:tag('span')
−
return "geo-default"
+
:addClass('h-geo')
−
else
+
:addClass('geo-' .. string.sub(displayformat,1,3))
−
return "geo-nondefault"
+
:tag('data')
 +
:addClass('p-latitude')
 +
:attr{ value = decLat }
 +
:wikitext( displaycoords[1] )
 +
:done()
 +
:wikitext(", ")
 +
:tag('data')
 +
:addClass('p-longitude')
 +
:attr{ value = decLong }
 +
:wikitext( displaycoords[2] )
 +
:done()
 +
:node( globeNode )
 +
:done()
 +
 +
-- buid GeoHack link
 +
local root = mw.html.create('span')
 +
:addClass('plainlinks nourlexpansion')
 +
:attr('title', i18n.tooltip)
 +
:wikitext('[' .. url )
 +
:node(coordNode)
 +
:wikitext("]")
 +
:done()
 +
 +
-- format result depending on args["display"] (nil, "inline", "title", "inline,title")
 +
local inlineText = displayinline and tostring(root) or ''
 +
local titleText = ''
 +
if displaytitle then
 +
local htmlTitle = mw.html.create('span')
 +
:attr{ id = 'coordinates' }
 +
:addClass( displayinline and 'noprint' or nil )
 +
:node( root )
 +
local frame = mw.getCurrentFrame()
 +
titleText = frame:extensionTag( 'indicator', tostring(htmlTitle), { name = 'coordinates' } )
 
end
 
end
 +
 +
return inlineText .. titleText
 
end
 
end
  
−
--[[
+
local function zoom( extraparams )
−
specPrinter
+
local zoomParam = extraparams:match( '%f[%w]zoom: ?(%d+)' )
−
 
+
if zoomParam then
−
Output formatter.  Takes the structure generated by either parseDec
+
return zoomParam
−
or parseDMS and formats it for inclusion on Wikipedia.
+
end
−
]]
+
−
local function specPrinter(args, coordinateSpec)
+
local scale = extraparams:match( '%f[%w]scale: ?(%d+)' )
−
local uriComponents = coordinateSpec["param"]
+
if scale then
−
if uriComponents == "" then
+
return math.floor(math.log10( 1 / tonumber( scale ) ) * 3 + 25)
−
-- RETURN error, should never be empty or nil
 
−
return "ERROR param was empty"
 
 
end
 
end
−
if args["name"] then
+
−
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
+
local extraType = extraparams:match( '%f[%w]type: ?(%w+)' )
 +
if extraType then
 +
local zoomType = {
 +
country = 5,
 +
state = 6,
 +
adm1st = 7,
 +
adm2nd = 8,
 +
city = 9,
 +
isle = 10,
 +
mountain = 10,
 +
waterbody = 10,
 +
airport = 12,
 +
landmark = 13,
 +
}
 +
return zoomType[ extraType ]
 
end
 
end
 +
end
  
−
local geodmshtml = '<span class="geo-dms" title="Maps, aerial photos, and other data for this location">'
+
--HTML builder for a geohack link
−
.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '
+
local function buildMaplinkHTML( decLat, decLong, dmsLat, dmsLong, globe, displayformat, displayinline, displaytitle, objectname, extraparams )
−
.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'
+
-- displayed coordinates
−
.. '</span>'
+
local displaycoords
−
 
+
if string.sub(displayformat,1,3) == 'dec' then
−
local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
+
displaycoords = p.displaydec(decLat, decLong, displayformat)
−
local geodeclat
 
−
if lat < 0 then
 
−
-- FIXME this breaks the pre-existing precision
 
−
geodeclat = tostring(coordinateSpec["dec-lat"]):sub(2) .. "°S"
 
 
else
 
else
−
geodeclat = (coordinateSpec["dec-lat"] or 0) .. "°N"
+
displaycoords = {
 +
p.displaydmsdimension(dmsLat, displayformat),
 +
p.displaydmsdimension(dmsLong, displayformat),
 +
}
 +
end
 +
 +
-- JSON for maplink
 +
local jsonParams = {
 +
type = 'Feature',
 +
geometry = {
 +
type ='Point',
 +
coordinates = {
 +
math_mod._round( decLong, 6 ), -- max precision in GeoJSON format
 +
math_mod._round( decLat, 6 )
 +
}
 +
},
 +
properties = {
 +
['marker-color'] = "228b22",
 +
}
 +
}
 +
if objectname then
 +
jsonParams.properties.title = objectname
 +
end
 +
-- ajout de geoshape via externaldata
 +
local geoshape = extraparams:match( '%f[%w]geoshape: ?(Q%d+)' )
 +
if not geoshape and displaytitle and mw.wikibase.getEntity() then
 +
geoshape = mw.wikibase.getEntity().id
 +
end
 +
if geoshape then
 +
jsonParams = {
 +
jsonParams,
 +
{
 +
type = 'ExternalData',
 +
service = 'geoshape',
 +
ids = geoshape,
 +
properties = {
 +
['fill-opacity'] = 0.2
 +
}
 +
}
 +
}
 
end
 
end
  
−
local long = tonumber( coordinateSpec["dec-long"] ) or 0
+
local maplink = mw.getCurrentFrame():extensionTag{
−
local geodeclong
+
name = 'maplink',
−
if long < 0 then
+
content = mw.text.jsonEncode( jsonParams ),
−
-- FIXME does not handle unicode minus
+
args = {
−
geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "°W"
+
text = displaycoords[1] .. ", " .. displaycoords[2],
−
else
+
zoom = zoom( extraparams ) or default_zoom,
−
geodeclong = (coordinateSpec["dec-long"] or 0) .. "°E"
+
latitude = decLat,
 +
longitude = decLong,
 +
}
 +
}
 +
 +
-- format result depending on args["display"] (nil, "inline", "title", "inline,title")
 +
local inlineText = displayinline and maplink or ''
 +
local titleText = ''
 +
if displaytitle then
 +
local htmlTitle = mw.html.create('span')
 +
:attr{ id = 'coordinates' }
 +
:addClass( displayinline and 'noprint' or nil )
 +
:wikitext( maplink )
 +
local frame = mw.getCurrentFrame()
 +
titleText = frame:extensionTag( 'indicator', tostring(htmlTitle), { name = 'coordinates' } )
 
end
 
end
 +
 +
return inlineText .. titleText
 +
end
  
−
local geodechtml = '<span class="geo-dec" title="Maps, aerial photos, and other data for this location">'
+
-- dms specific funcions
−
.. geodeclat .. ' '
 
−
.. geodeclong
 
−
.. '</span>'
 
  
−
local geonumhtml = '<span class="geo">'
+
local function twoDigit( value )
−
.. coordinateSpec["dec-lat"] .. '; '
+
if ( value < 10 ) then
−
.. coordinateSpec["dec-long"]
+
value = '0' .. lang:formatNum( value )
−
.. '</span>'
 
−
 
 
−
local inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms" ) .. '">' .. geodmshtml .. '</span>'
 
−
.. '<span class="geo-multi-punct">&#xfeff; / &#xfeff;</span>'
 
−
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';
 
−
 
 
−
if not args["name"] then
 
−
inner = inner .. geodechtml
 
−
.. '<span style="display:none">&#xfeff; / ' .. geonumhtml .. '</span></span>'
 
 
else
 
else
−
inner = inner .. '<span class="vcard">' .. geodechtml
+
value = lang:formatNum( value )
−
.. '<span style="display:none">&#xfeff; / ' .. geonumhtml .. '</span>'
 
−
.. '<span style="display:none">&#xfeff; (<span class="fn org">'
 
−
.. args["name"] .. '</span>)</span></span></span>'
 
 
end
 
end
−
 
+
return value
−
return '<span class="plainlinks nourlexpansion">' ..
 
−
'[' .. coord_link .. uriComponents .. ' ' .. inner .. ']' .. '</span>'
 
−
end
 
−
 
 
−
--[[ Helper function, convert decimal to degrees ]]
 
−
local function convert_dec2dms_d(coordinate)
 
−
local d = math_mod._round( coordinate, 0 ) .. "°"
 
−
return d .. ""
 
 
end
 
end
  
−
--[[ Helper function, convert decimal to degrees and minutes ]]
+
function p.displaydmsdimension(valuetable, format) -- formate en latitude ou une longitude dms
−
local function convert_dec2dms_dm(coordinate)
+
local str = ''
−
coordinate = math_mod._round( coordinate * 60, 0 );
+
local direction = valuetable.direction
−
local m = coordinate % 60;
+
local degrees, minutes, seconds = '', '', ''
−
coordinate = math.floor( (coordinate - m) / 60 );
+
local dimension
−
local d = coordinate % 360 .."°"
 
  
−
return d .. string.format( "%02d′", m )
+
if format == 'dms long' then
−
end
+
direction = i18n[direction .. 'long']
−
 
 
−
--[[ Helper function, convert decimal to degrees, minutes, and seconds ]]
 
−
local function convert_dec2dms_dms(coordinate)
 
−
coordinate = math_mod._round( coordinate * 60 * 60, 0 );
 
−
local s = coordinate % 60
 
−
coordinate = math.floor( (coordinate - s) / 60 );
 
−
local m = coordinate % 60
 
−
coordinate = math.floor( (coordinate - m) / 60 );
 
−
local d = coordinate % 360 .."°"
 
−
 
 
−
return d .. string.format( "%02d′", m ) .. string.format( "%02d″", s )
 
−
end
 
−
 
 
−
--[[
 
−
Helper function, convert decimal latitude or longitude to
 
−
degrees, minutes, and seconds format based on the specified precision.
 
−
]]
 
−
local function convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
 
−
local coord = tonumber(coordinate)
 
−
local postfix
 
−
if coord >= 0 then
 
−
postfix = firstPostfix
 
 
else
 
else
−
postfix = secondPostfix
+
direction = i18n[direction]
−
end
 
−
 
 
−
precision = precision:lower();
 
−
if precision == "dms" then
 
−
return convert_dec2dms_dms( math.abs( coord ) ) .. postfix;
 
−
elseif precision == "dm" then
 
−
return convert_dec2dms_dm( math.abs( coord ) ) .. postfix;
 
−
elseif precision == "d" then
 
−
return convert_dec2dms_d( math.abs( coord ) ) .. postfix;
 
 
end
 
end
−
end
+
degrees = lang:formatNum( valuetable.degrees ) .. i18n.degrees
−
 
+
−
--[[
+
if valuetable.minutes then
−
Convert DMS format into a N or E decimal coordinate
+
minutes = twoDigit( valuetable.minutes ) .. i18n.minutes
−
]]
 
−
local function convert_dms2dec(direction, degrees_str, minutes_str, seconds_str)
 
−
local degrees = tonumber(degrees_str)
 
−
local minutes = tonumber(minutes_str) or 0
 
−
local seconds = tonumber(seconds_str) or 0
 
−
 
 
−
local factor = 1
 
−
if direction == "S" or direction == "W" then
 
−
factor = -1
 
 
end
 
end
−
 
+
if valuetable.seconds then
−
local precision = 0
+
seconds = twoDigit( valuetable.seconds ) .. i18n.seconds
−
if seconds_str then
 
−
precision = 5 + math.max( math_mod._precision(seconds_str), 0 );
 
−
elseif minutes_str and minutes_str ~= '' then
 
−
precision = 3 + math.max( math_mod._precision(minutes_str), 0 );
 
−
else
 
−
precision = math.max( math_mod._precision(degrees_str), 0 );
 
 
end
 
end
−
 
+
return degrees .. minutes .. seconds .. direction
−
local decimal = factor * (degrees+(minutes+seconds/60)/60)
 
−
return string.format( "%." .. precision .. "f", decimal ) -- not tonumber since this whole thing is string based.
 
 
end
 
end
  
−
--[[
+
local function validdms(coordtable)
−
Checks input values to for out of range errors.
+
local direction = coordtable.direction
−
]]
+
local degrees = coordtable.degrees or 0
−
local function validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, source, strong )
+
local minutes = coordtable.minutes or 0
−
local errors = {};
+
local seconds = coordtable.seconds or 0
−
lat_d = tonumber( lat_d ) or 0;
+
local dimension = coordtable.dimension
−
lat_m = tonumber( lat_m ) or 0;
+
if not dimension then
−
lat_s = tonumber( lat_s ) or 0;
+
if direction == 'N' or direction == 'S' then
−
long_d = tonumber( long_d ) or 0;
+
dimension = 'latitude'
−
long_m = tonumber( long_m ) or 0;
+
elseif direction == 'E' or direction == 'W' then
−
long_s = tonumber( long_s ) or 0;
+
dimension = 'longitude'
−
 
+
else
−
if strong then
+
makeerror({message = i18n.invalidNSEW, sortkey = 'A'})
−
if lat_d < 0 then
+
return false
−
table.insert(errors, {source, "latitude degrees < 0 with hemisphere flag"})
 
 
end
 
end
−
if long_d < 0 then
 
−
table.insert(errors, {source, "longitude degrees < 0 with hemisphere flag"})
 
−
end
 
−
--[[
 
−
#coordinates is inconsistent about whether this is an error.  If globe: is
 
−
specified, it won't error on this condition, but otherwise it will.
 
−
 
−
For not simply disable this check.
 
−
 
−
if long_d > 180 then
 
−
table.insert(errors, {source, "longitude degrees > 180 with hemisphere flag"})
 
−
end
 
−
]]
 
 
end
 
end
  
−
if lat_d > 90 then
+
if type(degrees) ~= 'number' or type(minutes) ~= 'number' or type(seconds) ~= 'number' then
−
table.insert(errors, {source, "latitude degrees > 90"})
+
makeerror({message = i18n.invalidFormat, sortkey = 'A'})
 +
return false
 
end
 
end
−
if lat_d < -90 then
+
−
table.insert(errors, {source, "latitude degrees < -90"})
+
if dimension == 'latitude' and direction ~= 'N' and direction ~= 'S' then
 +
makeerror({message = i18n.invalidNS, sortkey = 'A'})
 +
return false
 
end
 
end
−
if lat_m >= 60 then
+
if dimension == 'longitude' and direction ~= 'W' and direction ~= 'E' then
−
table.insert(errors, {source, "latitude minutes >= 60"})
+
makeerror({message = i18n.invalidEW, sortkey = 'A'})
 +
return false
 
end
 
end
−
if lat_m < 0 then
+
−
table.insert(errors, {source, "latitude minutes < 0"})
+
if dimension == 'latitude' and degrees > 90 then
 +
makeerror({message = i18n.latitude90, sortkey = 'A'})
 +
return false
 
end
 
end
−
if lat_s >= 60 then
+
−
table.insert(errors, {source, "latitude seconds >= 60"})
+
if dimension == 'longitude' and degrees > 360 then
 +
makeerror({message = i18n.longitude360, sortkey = 'A'})
 +
return false
 
end
 
end
−
if lat_s < 0 then
+
−
table.insert(errors, {source, "latitude seconds < 0"})
+
if degrees < 0 or minutes < 0 or seconds < 0 then
 +
makeerror({message = i18n.negativeCoode, sortkey = 'A'})
 +
return false
 
end
 
end
−
if long_d >= 360 then
+
−
table.insert(errors, {source, "longitude degrees >= 360"})
+
if minutes > 60 or seconds > 60 then
 +
makeerror({message = i18n.minSec60, sortkey = 'A'})
 +
return false
 +
end
 +
if (math.floor(degrees) ~= degrees and minutes ~= 0) or (math.floor(minutes) ~= minutes and seconds ~= 0) then
 +
makeerror({message = i18n.dmIntergers, sortkey = 'A'})
 +
return false
 
end
 
end
−
if long_d <= -360 then
+
return true
−
table.insert(errors, {source, "longitude degrees <= -360"})
+
end
 +
 
 +
local function builddmsdimension(degrees, minutes, seconds, direction, dimension)
 +
-- no error checking, done in function validdms
 +
local dimensionobject = {}
 +
 +
-- direction and dimension (= latitude or longitude)
 +
dimensionobject.direction = direction
 +
if dimension then
 +
dimensionobject.dimension = dimension
 +
elseif direction == 'N' or direction == 'S' then
 +
dimensionobject.dimension = 'latitude'
 +
elseif direction == 'E' or direction == 'W' then
 +
dimensionobject.dimension = 'longitude'
 
end
 
end
−
if long_m >= 60 then
+
−
table.insert(errors, {source, "longitude minutes >= 60"})
+
-- degrees, minutes, seconds
 +
dimensionobject.degrees = tonumber(degrees)
 +
dimensionobject.minutes = tonumber(minutes)
 +
dimensionobject.seconds = tonumber(seconds)
 +
if degrees and not dimensionobject.degrees then dimensionobject.degrees = 'error' end
 +
if minutes and not dimensionobject.minutes then dimensionobject.minutes = 'error' end
 +
if seconds and not dimensionobject.seconds then dimensionobject.seconds = 'error' end
 +
return dimensionobject
 +
end
 +
 
 +
function p._parsedmsstring( str, dimension ) -- prend une séquence et donne des noms aux paramètres
 +
-- output table: { latitude=, longitude = , direction =  }
 +
if type( str ) ~= 'string' then
 +
return nil
 
end
 
end
−
if long_m < 0 then
+
str = mw.ustring.gsub( mw.ustring.upper( str ), '%a+', coordParse )
−
table.insert(errors, {source, "longitude minutes < 0"})
+
if not tonumber( str ) and not str:find( '/' ) and str:find( '°' ) then
 +
local str2 = mw.ustring.gsub( str, '[°″′\"\'\194\160 ]+', '/' )
 +
-- avoid cases were there is degree ans seconds but no minutes
 +
if not mw.ustring.find( str, '[″"]' ) or mw.ustring.find( str, '%d[′\'][ \194\160%d]' ) then
 +
str = str2
 +
end
 
end
 
end
−
if long_s >= 60 then
+
if not tonumber(str) and not string.find(str, '/') then
−
table.insert(errors, {source, "longitude seconds >= 60"})
+
makeerror({message = i18n.invalidFormat, sortkey= 'A'})
 +
return nil
 
end
 
end
−
if long_s < 0 then
+
args = mw.text.split(str, '/', true)
−
table.insert(errors, {source, "longitude seconds < 0"})
+
if #args > 4 then
 +
makeerror({message = i18n.tooManyParam, sortkey= 'A' })
 +
end
 +
local direction = mw.text.trim(args[#args])
 +
table.remove(args)
 +
local degrees, minutes, seconds = args[1], args[2], args[3]
 +
local dimensionobject = builddmsdimension(degrees, minutes, seconds, direction, dimension)
 +
if validdms(dimensionobject) then
 +
return dimensionobject
 +
else
 +
return nil
 
end
 
end
 +
end
  
−
return errors;
+
--- decimal specific functions
 +
function p.displaydec(latitude, longitude, format)
 +
lat = lang:formatNum( latitude )
 +
long = lang:formatNum( longitude )
 +
 +
if format == 'dec west' or  format == 'dec east' then
 +
local symbolNS, symbolEW = i18n.N, i18n.E
 +
if latitude < 0 then
 +
symbolNS = i18n.S
 +
lat = lat:sub( 2 )
 +
end
 +
if format == 'dec west' then
 +
symbolEW = i18n.W
 +
end
 +
if longitude < 0 then
 +
long = lang:formatNum( 360 + longitude )
 +
end
 +
 +
return { lat .. i18n.degrees .. symbolNS,  long ..  i18n.degrees .. symbolEW }
 +
 +
else
 +
return { lat, long }
 +
end
 
end
 
end
  
−
--[[
 
−
parseDec
 
  
−
Transforms decimal format latitude and longitude into the
+
local function parsedec(dec, coordtype, globe) -- coordtype = latitude or longitude
−
structure to be used in displaying coordinates
+
dec = mw.text.trim(dec)
−
]]
+
if not dec then
−
local function parseDec( lat, long, format )
+
return nil
−
local coordinateSpec = {}
+
end
−
local errors = {}
+
if coordtype ~= 'latitude' and coordtype ~= 'longitude' then
 +
makeerror({'invalid coord type', sortkey = "A"})
 +
return nil
 +
end
 +
local numdec = tonumber(dec) -- numeric value, kept separated as it looses significant zeros
 +
if not numdec then -- tries the decimal + direction format
 +
dec = mw.ustring.gsub( mw.ustring.upper( dec ), '%a+', coordParse )
 +
local direction = mw.ustring.sub(dec, mw.ustring.len(dec), mw.ustring.len(dec))
 +
dec = mw.ustring.sub(dec, 1, mw.ustring.len(dec)-2) -- removes the /N at the end
 +
if not dec or not tonumber(dec) then
 +
return nil
 +
end
 +
if direction == 'N' or direction == 'E' or direction == 'W' and globedata[globe].defaultdisplay == 'dec west' then
 +
numdec = tonumber( dec )
 +
elseif direction == 'W' or direction == 'S' then
 +
dec = '-' .. dec
 +
numdec = tonumber( dec )
 +
else
 +
if coordtype == 'latitude' then
 +
makeerror({message = i18n.invalidNS, sortkey = 'A'})
 +
else
 +
makeerror({message = i18n.invalidEW, sortkey = 'A'})
 +
end
 +
return nil
 +
end
 +
end
  
−
if not long then
+
if coordtype == 'latitude' and math.abs(numdec) > 90 then
−
return nil, {{"parseDec", "Missing longitude"}}
+
makeerror({message = i18n.latitude90 , sortkey = 'A'})
−
elseif not tonumber(long) then
+
return nil
−
return nil, {{"parseDec", "Longitude could not be parsed as a number: " .. long}}
+
end
 +
if coordtype == 'longitude' and math.abs(numdec) > 360 then
 +
makeerror({message = i18n.longitude360 , sortkey = 'A'})
 +
return nil
 
end
 
end
 +
return dec
 +
end
  
−
errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );
+
-- dms/dec conversion functions
−
coordinateSpec["dec-lat"]  = lat;
+
local function convertprecision(precision) -- converts a decimal precision like "2" into "dm"
−
coordinateSpec["dec-long"] = long;
+
if precision >= 3 then
−
 
+
return 'dms'
−
local mode = coordinates.determineMode( lat, long );
+
elseif precision >=1 then
−
coordinateSpec["dms-lat"]  = convert_dec2dms( lat, "N", "S", mode)  -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
+
return 'dm'
−
coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "W", mode)  -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
 
−
 
 
−
if format then
 
−
coordinateSpec.default = format
 
 
else
 
else
−
coordinateSpec.default = "dec"
+
return 'd'
 
end
 
end
 +
end
  
−
return coordinateSpec, errors
+
local function determinedmsprec(decs) -- returns the most precision for a dec2dms conversion, depending on the most precise value in the decs table
 +
local precision = 0
 +
for d, val in ipairs(decs) do
 +
precision = math.max(precision, math_mod._precision(val))
 +
end
 +
return convertprecision(precision)
 
end
 
end
  
−
--[[
+
local function dec2dms_d(dec)
−
parseDMS
+
local degrees = math_mod._round( dec, 0 )
 +
return degrees
 +
end
  
−
Transforms degrees, minutes, seconds format latitude and longitude
+
local function dec2dms_dm(dec)
−
into the a structure to be used in displaying coordinates
+
dec = math_mod._round( dec * 60, 0 )
−
]]
+
local minutes = dec % 60
−
local function parseDMS( lat_d, lat_m, lat_s, lat_f, long_d, long_m, long_s, long_f, format )
+
dec = math.floor( (dec - minutes) / 60 )
−
local coordinateSpec, errors, backward = {}, {}
+
local degrees = dec % 360
 +
return degrees, minutes
 +
end
  
−
lat_f = lat_f:upper();
+
local function dec2dms_dms(dec)
−
long_f = long_f:upper();
+
dec = math_mod._round( dec * 60 * 60, 0 )
 +
local seconds = dec % 60
 +
dec = math.floor( (dec - seconds) / 60 )
 +
local minutes = dec % 60
 +
dec = math.floor( (dec - minutes) / 60 )
 +
local degrees = dec % 360
 +
return degrees, minutes, seconds
 +
end
  
−
-- Check if specified backward
+
function p._dec2dms(dec, coordtype, precision, globe) -- coordtype: latitude or longitude
−
if lat_f == 'E' or lat_f == 'W' then
+
local degrees, minutes, seconds
−
lat_d, long_d, lat_m, long_m, lat_s, long_s, lat_f, long_f, backward = long_d, lat_d, long_m, lat_m, long_s, lat_s, long_f, lat_f, true;
+
 +
-- vérification du globe
 +
if not ( globe and globedata[ globe ] ) then
 +
globe = 'earth'
 +
end
 +
 +
-- precision
 +
if not precision or precision == '' then
 +
precision = determinedmsprec({dec})
 
end
 
end
−
 
+
if precision ~= 'd' and precision ~= 'dm' and precision ~= 'dms' then
−
errors = validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, 'parseDMS', true );
+
return makeerror({sortkey = 'C'})
−
if not long_d then
 
−
return nil, {{"parseDMS", "Missing longitude" }}
 
−
elseif not tonumber(long_d) then
 
−
return nil, {{"parseDMS", "Longitude could not be parsed as a number:" .. long_d }}
 
 
end
 
end
−
 
+
local dec = tonumber(dec)
−
if not lat_m and not lat_s and not long_m and not long_s and #errors == 0 then
+
−
if math_mod._precision( lat_d ) > 0 or math_mod._precision( long_d ) > 0 then
+
-- direction
−
if lat_f:upper() == 'S' then
+
local direction
−
lat_d = '-' .. lat_d;
+
if coordtype == 'latitude' then  
−
end
+
if dec < 0 then
−
if long_f:upper() == 'W' then
+
direction = 'S'
−
long_d = '-' .. long_d;
+
else
−
end
+
direction = 'N'
−
 
+
end
−
return parseDec( lat_d, long_d, format );
+
elseif coordtype == 'longitude' then
 +
if dec < 0 or globedata[globe].defaultdisplay == 'dec west' then
 +
direction = 'W'
 +
else
 +
direction = 'E'
 
end
 
end
 
end
 
end
−
 
+
−
coordinateSpec["dms-lat"]  = lat_d.."°"..optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. lat_f
+
-- conversion
−
coordinateSpec["dms-long"] = long_d.."°"..optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. long_f
+
dec = math.abs(dec) -- les coordonnées en dms sont toujours positives
−
coordinateSpec["dec-lat"]  = convert_dms2dec(lat_f, lat_d, lat_m, lat_s) -- {{coord/dms2dec|{{{4}}}|{{{1}}}|0{{{2}}}|0{{{3}}}}}
+
if precision == 'dms' then
−
coordinateSpec["dec-long"] = convert_dms2dec(long_f, long_d, long_m, long_s) -- {{coord/dms2dec|{{{8}}}|{{{5}}}|0{{{6}}}|0{{{7}}}}}
+
degrees, minutes, seconds = dec2dms_dms(dec)
−
 
+
elseif precision == 'dm' then
−
if format then
+
degrees, minutes = dec2dms_dm(dec)
−
coordinateSpec.default = format
 
 
else
 
else
−
coordinateSpec.default = "dms"
+
degrees = dec2dms_d(dec)
 
end
 
end
−
 
+
return builddmsdimension(degrees, minutes, seconds, direction)
−
return coordinateSpec, errors, backward
 
 
end
 
end
  
−
--[[
+
function p.dec2dms(frame) -- legacy function somewhat cumbersome syntax
−
Check the input arguments for coord to determine the kind of data being provided
+
args = frame.args
−
and then make the necessary processing.
+
local dec = args[1]
−
]]
+
if not tonumber(dec) then
−
local function formatTest(args)
+
makeerror({message = i18n.invalidFormat, sortkey = 'A'})
−
local result, errors
+
return showerrors()
−
local backward, primary = false, false
+
end
−
 
+
local dirpositive = string.lower(args[2] or '')
−
local function getParam(args, lim)
+
local dirnegative = string.lower(args[3] or '')
−
local ret = {}
+
local precision = string.lower(args[4] or '')
−
for i = 1, lim do
+
local displayformat, coordtype
−
ret[i] = args[i] or ''
+
−
end
+
if dirpositive == 'n' or dirpositive == 'nord' then
−
return table.concat(ret, '_')
+
coordtype = 'latitude'
 +
else
 +
coordtype = 'longitude'
 +
end
 +
if dirpositive == 'nord' or dirpositive == 'est' or dirnegative == 'ouest' or dirnegative == 'sud' then
 +
displayformat = 'dms long'
 
end
 
end
−
 
+
local coordobject = p._dec2dms(dec, coordtype, precision)
−
if not args[1] then
+
if coordobject then
−
-- no lat logic
+
return p.displaydmsdimension(coordobject, displayformat) .. showerrors()
−
return errorPrinter( {{"formatTest", "Missing latitude"}} )
 
−
elseif not tonumber(args[1]) then
 
−
-- bad lat logic
 
−
return errorPrinter( {{"formatTest", "Unable to parse latitude as a number:" .. args[1]}} )
 
−
elseif not args[4] and not args[5] and not args[6] then
 
−
-- dec logic
 
−
result, errors = parseDec(args[1], args[2], args.format)
 
−
if not result then
 
−
return errorPrinter(errors);
 
−
end
 
−
-- formatting for geohack: geohack expects D_N_D_E notation or D;D notation
 
−
-- wikiminiatlas doesn't support D;D notation
 
−
-- #coordinates parserfunction doesn't support negative decimals with NSWE
 
−
result.param = table.concat({
 
−
math.abs(tonumber(args[1])),
 
−
((tonumber(args[1]) or 0) < 0) and 'S' or 'N',
 
−
math.abs(tonumber(args[2])),
 
−
((tonumber(args[2]) or 0) < 0) and 'W' or 'E',
 
−
args[3] or ''}, '_')
 
−
elseif dmsTest(args[4], args[8]) then
 
−
-- dms logic
 
−
result, errors, backward = parseDMS(args[1], args[2], args[3], args[4],
 
−
args[5], args[6], args[7], args[8], args.format)
 
−
if args[10] then
 
−
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
 
−
end
 
−
if not result then
 
−
return errorPrinter(errors)
 
−
end
 
−
result.param = getParam(args, 9)
 
−
elseif dmsTest(args[3], args[6]) then
 
−
-- dm logic
 
−
result, errors, backward = parseDMS(args[1], args[2], nil, args[3],
 
−
args[4], args[5], nil, args[6], args['format'])
 
−
if args[8] then
 
−
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
 
−
end
 
−
if not result then
 
−
return errorPrinter(errors)
 
−
end
 
−
result.param = getParam(args, 7)
 
−
elseif dmsTest(args[2], args[4]) then
 
−
-- d logic
 
−
result, errors, backward = parseDMS(args[1], nil, nil, args[2],
 
−
args[3], nil, nil, args[4], args.format)
 
−
if args[6] then
 
−
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
 
−
end
 
−
if not result then
 
−
return errorPrinter(errors)
 
−
end
 
−
result.param = getParam(args, 5)
 
 
else
 
else
−
-- Error
+
return showerrors()
−
return errorPrinter({{"formatTest", "Unknown argument format"}})
 
 
end
 
end
−
result.name = args.name
+
end
  
−
local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type'}
+
 
−
for _, v in ipairs(extra_param) do
+
function p._dms2dec(dmsobject) -- transforme une table degré minute secondes en nombre décimal
−
if args[v] then
+
local direction, degrees, minutes, seconds = dmsobject.direction, dmsobject.degrees, dmsobject.minutes, dmsobject.seconds
−
table.insert(errors, {'formatTest', 'Parameter: "' .. v .. '=" should be "' .. v .. ':"' })
+
local factor = 0
−
end
+
local precision = 0
 +
if not minutes then minutes = 0 end
 +
if not seconds then seconds = 0 end
 +
 +
if direction == "N" or direction == "E" then
 +
factor = 1
 +
elseif direction == "W" or direction == "S" then
 +
factor = -1
 +
elseif not direction then  
 +
makeerror({message = i18n.noCardinalDirection, sortkey = 'A'})
 +
return nil
 +
else
 +
makeerror({message = i18n.invalidDirection, sortkey = 'A'})
 +
return nil
 
end
 
end
−
 
+
−
local ret = specPrinter(args, result)
+
if dmsobject.seconds then -- vérifie la précision des données initiales
−
if #errors > 0 then
+
precision = 5 + math.max( math_mod._precision(tostring(seconds), 0 ) ) -- passage par des strings assez tarabiscoté ?
−
ret = ret .. ' ' .. errorPrinter(errors) .. '[[Category:Pages with malformed coordinate tags]]'
+
elseif dmsobject.minutes then
 +
precision = 3 + math.max( math_mod._precision(tostring(minutes), 0 ) )
 +
else
 +
precision = math.max( math_mod._precision(tostring(degrees), 0 ) )
 
end
 
end
−
return ret, backward
+
 +
local decimal = factor * (degrees+(minutes+seconds/60)/60)
 +
return math_mod._round(decimal, precision)
 
end
 
end
  
−
--[[
+
function p.dms2dec(frame) -- legacy function, somewhat bizarre syntax
−
Generate Wikidata tracking categories.
+
local args = frame.args
−
]]
+
if tonumber(args[1]) then
−
local function makeWikidataCategories(qid)
+
return args[1] -- coordonnées déjà en décimal
−
local ret
+
elseif not args[2] then
−
if mw.wikibase and current_page.namespace == 0 then
+
local dmsobject = p._parsedmsstring(args[1])
−
local entity = qid and mw.wikibase.getEntityObject(qid) or mw.wikibase.getEntityObject()
+
if dmsobject then
−
if entity and entity.claims and entity.claims.P625 and entity.claims.P625[1] then
+
return p._dms2dec(dmsobject) -- coordonnées sous la fore 23/22/N
−
local snaktype = entity.claims.P625[1].mainsnak.snaktype
+
else
−
if snaktype == 'value' then
+
local coordType
−
-- coordinates exist both here and on Wikidata, and can be compared.
+
if args[1]:match( '[NS]' ) then
−
ret = 'Coordinates on Wikidata'
+
coordType = 'latitude'
−
elseif snaktype == 'somevalue' then
+
elseif args[1]:match( '[EWO]') then
−
ret = 'Coordinates on Wikidata set to unknown value'
+
coordType = 'longitude'
−
elseif snaktype == 'novalue' then
 
−
ret = 'Coordinates on Wikidata set to no value'
 
 
end
 
end
−
else
+
if coordType then
−
-- We have to either import the coordinates to Wikidata or remove them here.
+
local result = parsedec( args[1],  coordType, args.globe or 'earth' )
−
ret = 'Coordinates not on Wikidata'
+
if result then
 +
return result
 +
end
 +
end
 +
return showerrors()
 
end
 
end
 +
else
 +
return p._dms2dec({direction = args[1], degrees = tonumber(args[2]), minutes = tonumber(args[3]), seconds = tonumber(args[4])})
 
end
 
end
−
if ret then
+
end
−
return string.format('[[Category:%s]]', ret)
+
 
 +
-- Wikidata
 +
local function convertwikidataprecision(precision) -- converts a decima like "0.1" into "dm"
 +
if precision < 0.016 then
 +
return 'dms'
 +
elseif precision < 1 then
 +
return 'dm'
 
else
 
else
−
return ''
+
return 'd'
 
end
 
end
 
end
 
end
  
−
--[[
+
local function wikidatacoords(query)
−
link
+
query = query or {property = 'p625'}
−
 
+
query.formatting = 'raw'
−
Simple function to export the coordinates link for other uses.
+
local wd = require('Module:Wikidata')
−
 
+
local claim = wd.getClaims(query)
−
Usage:
+
if claim and claim[1] then -- redundant but more robust in case of a change in the code of Module:Wikidata
−
{{#invoke:Coordinates | link }}
+
local coords = wd.formatSnak(claim[1].mainsnak) -- todo: check for special values
−
 
+
-- Wikidata does not handle correctly +West longitudes
−
]]
+
if globedata[ coords.globe ] and globedata[ coords.globe ].defaultdisplay == 'dec west' then
−
function coordinates.link(frame)
+
coords.longitude = math.abs( coords.longitude )
−
return coord_link;
+
end
 +
return coords.latitude, coords.longitude, coords.globe or 'earth', convertwikidataprecision(coords.precision or .001)
 +
end
 +
return nil
 
end
 
end
  
−
--[[
 
−
dec2dms
 
  
−
Wrapper to allow templates to call dec2dms directly.
+
local function wikidatacat(globe)
 +
--catbase= Article géolocalisé sur Terre
 +
local entitycat = mw.wikibase.getEntity()
 +
 +
local basecat = 'Article géolocalisé'
 +
local finalcat = {}
 +
--BADGES
 +
if entitycat then
 +
--BADGES
 +
  for i, badgeId in ipairs( entitycat.sitelinks['frwiki'].badges ) do
 +
if badgeId == 'Q17437796'  then
 +
basecat=string.gsub(basecat, "Article géolocalisé", "Article de qualité géolocalisé")
 +
end
 +
if badgeId == 'Q17437798'  then
 +
basecat=string.gsub(basecat, "Article géolocalisé", "Bon article géolocalisé")
 +
end
 +
end
 +
end
  
−
Usage:
+
if globe == 'earth'  then
−
{{#invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |
+
if entitycat and entitycat.claims  then
−
negative_suffix | precision }}
+
local country=entitycat.claims['P17']
−
 
+
if not country then
−
decimal_coordinate is converted to DMS format. If positive, the positive_suffix
+
--pas pays à récupérer
−
is appended (typical N or E), if negative, the negative suffix is appended. The
+
basecat=basecat .. ' sur Terre'
−
specified precision is one of 'D', 'DM', or 'DMS' to specify the level of detail
+
table.insert(finalcat,basecat)
−
to use.
+
else
−
]]
+
--parfois plusieurs pays
−
coordinates.dec2dms = makeInvokeFunc('_dec2dms')
+
for i, paysId in ipairs( country ) do
−
function coordinates._dec2dms(args)
+
--on fait confiance au label wikidata
−
local coordinate = args[1]
+
local gdataone,qid
−
local firstPostfix = args[2] or ''
+
−
local secondPostfix = args[3] or ''
+
if paysId.mainsnak.snaktype == 'value' then
−
local precision = args[4] or ''
+
qid=paysId.mainsnak.datavalue.value['numeric-id']
−
 
+
gdataone=gdata.data[qid]
−
return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
+
else
−
end
+
--Bir Tawil n'a pas de pays connu
−
 
+
qid='?'
−
--[[
+
end
−
Helper function to determine whether to use D, DM, or DMS
+
if gdataone ~= nil then
−
format depending on the precision of the decimal input.
+
local prep=genre[gdataone['genre']]['en'] or 'en '
−
]]
+
local thecat=basecat .. ' '..prep ..mw.wikibase.label( 'Q'.. qid)
−
function coordinates.determineMode( value1, value2 )
+
if mw.title.new('category:'..thecat).exists then
−
local precision = math.max( math_mod._precision( value1 ), math_mod._precision( value2 ) );
+
table.insert(finalcat,thecat)
−
if precision <= 0 then
+
else
−
return 'd'
+
--Dommage!
−
elseif precision <= 2 then
+
mw.log(thecat .. ' à créer')
−
return 'dm';
+
end
 +
else
 +
--pas d'id?
 +
mw.log(qid .. ' à paramétrer')
 +
end
 +
end
 +
if #finalcat == 0 then
 +
--pas pays à récupérer
 +
basecat=basecat .. ' sur Terre'
 +
table.insert(finalcat,basecat)
 +
end
 +
end
 +
else
 +
--pas wikidata
 +
basecat=basecat .. ' sur Terre'
 +
table.insert(finalcat,basecat)
 +
end
 +
elseif globedata[globe] then
 +
basecat=basecat .. ' ' .. globedata[globe].trackingcat
 +
table.insert(finalcat,basecat)
 
else
 
else
−
return 'dms';
+
basecat=basecat .. ' extraterrestre'
 +
table.insert(finalcat,basecat)
 
end
 
end
 +
return finalcat
 
end
 
end
  
−
--[[
+
-- main function for displaying coordinates
−
dms2dec
+
function p._coord(args)
  
−
Wrapper to allow templates to call dms2dec directly.
+
-- I declare variable
 +
local displayformat = args.format -- string: one of: 'dms', 'dms long', 'dec', 'dec east' and 'dec west'
 +
local displayplace = string.lower(args.display or 'inline') --string: one of 'inline', 'title' or 'inline,title'
 +
local objectname = (args.name ~= '') and args.name -- string: name of the title displayed in geohack
 +
local notes = (' ' and args.notes) or '' -- string: notes to de displayed after coordinates
 +
local wikidata = args.wikidata -- string: set to "true" if needed
 +
local wikidataquery = args.wikidataquery -- table: see [[Module:Wikidata]] see function wikidatacoords
 +
local dmslatitude, dmslongitude -- table (when created)
 +
local extraparams = args.extraparams or '' -- string (legacy, corresponds to geohackparams)
 +
local trackingstring = '' -- tracking cats except error cats (already in errorstring)
 +
local rawlat, rawlong = args.latitude, args.longitude
 +
if rawlat == '' then rawlat = nil end
 +
if rawlong == '' then rawlong = nil end
 +
local globe = string.lower( args.globe or extraparams:match('globe:(%a+)') or '' ) -- string: see the globedata table for accepted values
 +
local latitude, longitude, precision, dmslatitude, dmslongitude -- latitude and longitude in decimal / dmslatitude and dmslongitude: tables withdms coords
 +
local maplink = true -- use maplink whenever it is possible
 +
 +
-- II extract coordinates from Wikitext
 +
if (rawlat or rawlong) then
 +
if (not rawlat) or (not rawlong) then -- if latitude is provided so should be longitude
 +
makeerror({message = i18n.coordMissing, sortkey = 'A'})
 +
return showerrors()
 +
end
 +
latitude = parsedec(rawlat, 'latitude', globe)
  
−
Usage:
+
if latitude then -- if latitude is decimal
−
{{#invoke:Coordinates | dms2dec | direction_flag | degrees |
+
longitude = parsedec(rawlong, 'longitude', globe) -- so should be longitude
−
minutes | seconds }}
+
precision = determinedmsprec({latitude, longitude}) -- before conversion from string to number for trailing zeros
 +
if not latitude or not longitude then
 +
if errorstring == '' then
 +
makeerror({message = i18n.invalidFormat, sortkey = 'A'})
 +
end
 +
return showerrors()
 +
end
 +
dmslatitude, dmslongitude = p._dec2dms(latitude, 'latitude', precision), p._dec2dms(longitude, 'longitude', precision, globe)
 +
latitude, longitude = tonumber(latitude), tonumber(longitude)
 +
else -- if latitude is not decimal try to parse it as a dms string
 +
dmslatitude, dmslongitude = p._parsedmsstring(args.latitude, 'latitude'), p._parsedmsstring(args.longitude, 'longitude')
 +
if not dmslatitude or not dmslongitude then
 +
return showerrors()
 +
end
 +
latitude, longitude = p._dms2dec(dmslatitude), p._dms2dec(dmslongitude)
 +
end
 +
end
  
−
Converts DMS values specified as degrees, minutes, seconds too decimal format.
+
-- III extract coordinate data from Wikidata and compare them to local data
−
direction_flag is one of N, S, E, W, and determines whether the output is
+
local wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision
−
positive (i.e. N and E) or negative (i.e. S and W).
+
if wikidata == 'true' then
−
]]
+
wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision = wikidatacoords(wikidataquery)
−
coordinates.dms2dec = makeInvokeFunc('_dms2dec')
+
−
function coordinates._dms2dec(args)
+
if wikidatalatitude and latitude and longitude then
−
local direction = args[1]
+
local maxdistance = tonumber(args.maxdistance) or wikidatathreshold
−
local degrees = args[2]
+
if p._distance({latitude = latitude, longitude= longitude}, {latitude = wikidatalatitude, longitude= wikidatalongitude}, wikidataglobe) <  maxdistance then
−
local minutes = args[3]
+
trackingstring = trackingstring .. makecat(i18n.sameaswikidata)
−
local seconds = args[4]
+
else
−
 
+
trackingstring = trackingstring .. makecat(i18n.notaswikidata)
−
return convert_dms2dec(direction, degrees, minutes, seconds)
+
end
−
end
+
end
−
 
+
if wikidatalatitude and not latitude then
−
--[[
+
latitude, longitude, globe, precision = wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision
−
coord
+
dmslatitude, dmslongitude = p._dec2dms(latitude, 'latitude', precision), p._dec2dms(longitude, 'longitude', precision, globe)
−
 
+
trackingstring = trackingstring .. makecat(i18n.throughwikidata)
−
Main entry point for Lua function to replace {{coord}}
+
end
−
 
+
−
Usage:
+
if latitude and not wikidatalatitude then
−
{{#invoke:Coordinates | coord }}
+
if mw.title.getCurrentTitle().namespace == 0 then
−
{{#invoke:Coordinates | coord | lat | long }}
+
trackingstring = trackingstring .. makecat(i18n.nowikidata)
−
{{#invoke:Coordinates | coord | lat | lat_flag | long | long_flag }}
 
−
...
 
−
 
 
−
Refer to {{coord}} documentation page for many additional parameters and
 
−
configuration options.
 
−
 
 
−
Note: This function provides the visual display elements of {{coord}}.  In
 
−
order to load coordinates into the database, the {{#coordinates:}} parser
 
−
function must also be called, this is done automatically in the Lua
 
−
version of {{coord}}.
 
−
]]
 
−
coordinates.coord = makeInvokeFunc('_coord')
 
−
function coordinates._coord(args)
 
−
if not tonumber(args[1]) and not args[2] then
 
−
args[3] = args[1]; args[1] = nil
 
−
local entity = mw.wikibase.getEntityObject(args.qid)
 
−
if entity
 
−
and entity.claims
 
−
and entity.claims.P625
 
−
and entity.claims.P625[1].mainsnak.snaktype == 'value'
 
−
then
 
−
local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
 
−
args[1] = entity.claims.P625[1].mainsnak.datavalue.value.latitude
 
−
args[2] = entity.claims.P625[1].mainsnak.datavalue.value.longitude
 
−
if precision then
 
−
precision = -math_mod._round(math.log(precision)/math.log(10),0)
 
−
args[1] = math_mod._round(args[1],precision)
 
−
args[2] = math_mod._round(args[2],precision)
 
 
end
 
end
 
end
 
end
 
end
 
end
  
−
local contents, backward = formatTest(args)
 
−
local Notes = args.notes or ''
 
−
local Display = args.display and args.display:lower() or 'inline'
 
  
−
local function isInline(s)
+
-- exit if stil no latitude or no longitude
−
-- Finds whether coordinates are displayed inline.
+
if not latitude and not longitude then
−
return s:find('inline') ~= nil or s == 'i' or s == 'it' or s == 'ti'
+
return nil -- ne rien ajouter ici pour que l'appel à cette fonction retourne bien nil en l'absence de données
 +
end
 +
 
 +
-- IV best guesses for missing parameters
 +
 +
--- globe
 +
if globe == '' then
 +
globe = 'earth'
 
end
 
end
−
local function isInTitle(s)
+
if not globedata[globe] then
−
-- Finds whether coordinates are displayed in the title.
+
makeerror({message = i18n.invalidGlobe .. globe})
−
return s:find('title') ~= nil or s == 't' or s == 'it' or s == 'ti'
+
globe = 'earth'
 
end
 
end
−
 
+
if globe ~= 'earth' then
−
local function coord_wrapper(in_args)
+
extraparams = extraparams .. '_globe:' .. globe -- pas de problème si le globe est en double
−
-- Calls the parser function {{#coordinates:}}.
+
maplink = false
−
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args) or ''
 
 
end
 
end
−
 
+
−
local text = ''
+
--- diplayformat
−
if isInline(Display) then
+
if not displayformat or displayformat == '' then
−
text = text .. displayinline(contents, Notes)
+
displayformat = globedata[globe].defaultdisplay
 
end
 
end
−
if isInTitle(Display) then
+
−
text = text
+
-- displayinline/displaytitle
−
.. displaytitle(contents, Notes)
+
local displayinline =  string.find(displayplace, 'inline')  
−
.. makeWikidataCategories(args.qid)
+
local displaytitle = string.find(displayplace, 'title')  
 +
if not displayinline and not displaytitle then
 +
displayinline = true
 +
if displayplace ~= '' then
 +
makeerror({sortkey = 'C'}) --error if display not empty, but not not a major error, continue
 +
end
 
end
 
end
−
if not args.nosave then
+
if displaytitle and mw.title.getCurrentTitle().namespace == 0 then
−
local page_title, count = mw.title.getCurrentTitle(), 1
+
--local cattoappend=globedata[globe].trackingcat
−
if backward then
+
--Récupération des badges
−
local tmp = {}
+
local cats=wikidatacat(globe)
−
while not string.find((args[count-1] or ''), '[EW]') do tmp[count] = (args[count] or ''); count = count+1 end
+
for i, cat in ipairs( cats ) do
−
tmp.count = count; count = 2*(count-1)
+
trackingstring = trackingstring .. makecat(cat)
−
while count >= tmp.count do table.insert(tmp, 1, (args[count] or '')); count = count-1 end
 
−
for i, v in ipairs(tmp) do args[i] = v end
 
−
else
 
−
while count <= 9 do args[count] = (args[count] or ''); count = count+1 end
 
 
end
 
end
−
if isInTitle(Display) and not page_title.isTalkPage and page_title.subpageText ~= 'doc' and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end
+
−
args.notes, args.format, args.display = nil
 
−
text = text .. coord_wrapper(args)
 
 
end
 
end
−
return text
+
−
end
+
-- V geodata
 +
local geodata = ''
 +
if latitude and longitude then
 +
local latstring, longstring = tostring(latitude), tostring(longitude)
 +
local primary = ''
  
−
--[[
+
local frame = mw.getCurrentFrame()
−
coord2text
+
local geodataparams = {[1] = latstring, [2] = longstring, [3] = extraparams }
−
 
+
if displaytitle then
−
Extracts a single value from a transclusion of {{Coord}}.
+
geodataparams[4] = 'primary'
−
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.
+
end
−
 
+
if objectname then
−
Usage:
+
geodataparams.name = objectname
−
 
+
end
−
    {{#invoke:Coordinates | coord2text | {{Coord}} | parameter }}
+
geodata = frame:callParserFunction('#coordinates', geodataparams )
−
 
+
if string.find(geodata, 'error') then -- the only error that has not been caught yet is primary key
−
Valid values for the second parameter are: lat (signed integer), long (signed integer), type, scale, dim, region, globe, source
+
geodata = ''
−
 
+
makeerror({sortkey='D'})
−
]]
 
−
function coordinates.coord2text(frame)
 
−
if frame.args[1] == '' or frame.args[2] == '' or not frame.args[2] then return nil end
 
−
frame.args[2] = mw.text.trim(frame.args[2])
 
−
if frame.args[2] == 'lat' or frame.args[2] == 'long' then
 
−
local result, negative = mw.text.split((mw.ustring.match(frame.args[1],'[%.%d]+°[NS] [%.%d]+°[EW]') or ''), ' ')
 
−
if frame.args[2] == 'lat' then
 
−
result, negative = result[1], 'S'
 
−
else
 
−
result, negative = result[2], 'W'
 
 
end
 
end
−
result = mw.text.split(result, '°')
+
end
−
if result[2] == negative then result[1] = '-'..result[1] end
+
-- VI final output
−
return result[1]
+
local mainstring = ''
 +
if maplink then
 +
mainstring = buildMaplinkHTML(latitude, longitude, dmslatitude, dmslongitude, globe, displayformat, displayinline, displaytitle, objectname,extraparams )
 
else
 
else
−
return mw.ustring.match(frame.args[1], 'params=.-_'..frame.args[2]..':(.-)[ _]')
+
mainstring = buildHTML(latitude, longitude, dmslatitude, dmslongitude, globe, displayformat, displayinline, displaytitle, objectname,extraparams )
 
end
 
end
 +
 +
return mainstring .. notes .. trackingstring .. geodata .. showerrors()
 
end
 
end
  
−
--[[
+
function p.coord(frame) -- parrses the strange parameters of Template:Coord before sending them to p.coord
−
coordinsert
+
local args = frame.args
 +
local numericargs = {}
 +
for i, j in ipairs(args) do
 +
args[i] = mw.text.trim(j)
 +
if type(i) == 'number' and args[i] ~= '' then
 +
table.insert(numericargs, args[i])
 +
end
 +
end
  
−
Injects some text into the Geohack link of a transclusion of {{Coord}} (if that text isn't already in the transclusion). Outputs the modified transclusion of {{Coord}}.
+
if #numericargs %2 == 1 then -- if the number of args is odd, the last one provides formatting parameters
−
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.
+
args.extraparams = numericargs[#numericargs]
 +
if #numericargs == 1 and tonumber(numericargs[1]) then
 +
makeerror({message = i18n.coordMissing, sortkey = 'A'})
 +
return showerrors()
 +
end
 +
table.remove(numericargs)
 +
end
 +
for i, j in ipairs(numericargs) do
 +
if i <= (#numericargs / 2) then
 +
if not args.latitude then
 +
args.latitude = j
 +
else
 +
args.latitude = args.latitude .. '/' .. j
 +
end
 +
else
 +
if not args.longitude then
 +
args.longitude = j
 +
else
 +
args.longitude = args.longitude .. '/' .. j
 +
end
 +
end
 +
end
  
−
Usage:
+
if string.find(args.latitude or '', 'E') or string.find(args.latitude or '', 'W') then
 +
args.latitude, args.longitude = args.longitude, args.latitude
 +
end
 +
return p._coord(args)
 +
end
  
−
    {{#invoke:Coordinates | coordinsert | {{Coord}} | parameter:value | parameter:value | … }}
+
function p.Coord(frame)
−
 
+
return p.coord(frame)
−
Do not make Geohack unhappy by inserting something which isn't mentioned in the {{Coord}} documentation.
+
end
  
−
]]
+
function p.latitude(frame) -- helper function pour infobox, à déprécier
−
function coordinates.coordinsert(frame)
+
local args = frame.args
−
for i, v in ipairs(frame.args) do
+
local latitude  = frame.args[1]
−
if i ~= 1 then
+
if latitude and mw.text.trim(latitude) ~= '' then
−
if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or '')) then
+
return latitude
−
frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ')
+
elseif frame.args['wikidata'] == 'true' then
−
end
+
local lat, long = wikidatacoords()
−
end
+
return lat
 
end
 
end
−
if frame.args.name then
+
end
−
if not mw.ustring.find(frame.args[1], '<span class="vcard">') then
+
function p.longitude(frame) -- helper function pour infobox, à déprécier
−
local namestr = frame.args.name
+
local args = frame.args
−
frame.args[1] = mw.ustring.gsub(frame.args[1],
+
local longitude = frame.args[1]
−
'(<span class="geo%-default">)(<span[^<>]*>[^<>]*</span><span[^<>]*>[^<>]*<span[^<>]*>[^<>]*</span></span>)(</span>)',
+
if longitude and mw.text.trim(longitude) ~= '' then
−
'%1<span class="vcard">%2<span style="display:none">&#xfeff; (<span class="fn org">' .. namestr .. '</span>)</span></span>%3')
+
return longitude
−
frame.args[1] = mw.ustring.gsub(frame.args[1], '(&params=[^&"<>%[%] ]*) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ')
+
elseif frame.args['wikidata'] == 'true' then
−
end
+
local lat, long = wikidatacoords()
 +
return long
 
end
 
end
−
return frame.args[1]
 
 
end
 
end
  
−
return coordinates
+
 
 +
return p

Version actuelle datée du 7 août 2020 à 18:21

Utilisation

Fonctions exportables :

  • coordinates.coord(frame) – Fonction qui permet insérer des coordonnées géographiques dans un article ; il insère en même temps un lien vers l’outil « GeoHack », qui donne accès à de nombreux outils de vues satellites, cartes, etc. comme Google Maps par exemple.
  • p.dec2dms(frame) – Fonction permettant de convertir des coordonnées exprimées dans le système décimal dans le système sexagésimal
  • p.dms2dec(frame) – Fonction permettant de convertir des coordonnées dans l'autre sens (du système sexagésimal dans le système décimal)
  • p.latitude(frame) – récupère la latitude de coordonnées (locale ou stockées sur Wikidata). Surtout utile pour les infoboîtes
  • p.longitude(frame) – récupère la longitude de coordonnées (locale ou stockées sur Wikidata). Surtout utile pour les infoboîtes
  • p.distance(frame) – calcule la distance entre deux points dont on précise les latitudes et longitudes.
  • p._coord(args) – similaire à p.coord, mais à utiliser depuis un autre module Lua
  • p._dms2dec(dmsobject) – similaire à p.dms2dec, mais à utiliser depuis un autre module Lua
  • p._dec2dms(coordtype, precision) – similaire à p.dec2dms, mais à utiliser depuis un autre module Lua
  • p._distance(a, b, globe) – calcule la distance entre deux points dont on précise les latitudes et longitudes
  • p._parsedmsstring(str, dimension) - créé une table dms à partir d'une chaîne de type "48/22/16/W".


fonctions internes

  • makeerror - gestion des erreurs
  • makeerror - buildHTML (construit le HTML pour la fonction p.coord()
  • displaydmsdimension - transforme une table dms contenant degrees, minutes, seconds, directions et coordtype (=latitude ou longitude) en une chaîne du type 48° 29' 32 " N
  • validdms - vérifie qu'une table dms est valide (direction valides et coordtype valide, valeurs autorisées pour les dégrés, minutes et secondes)
  • builddmsdimension - crée une table dms
  • displaydec - transforme une latitude et une longitude décimal en chaîne du type "34.294, 12.321"
  • parsedec - analyse et valide des coordonnées décimales
  • convertprcision - transforme la précision trouvée par module:Math.precision en "d", "dm" ou "dms"
  • convertwikidataprecision - transforme la précision indiquée par les données Wikidata en "d", "dm" ou "dms"
  • determinedmsprec - calcule le degré de précision le plus adaptées pour des coordonnées décimales données
  • dec2dms_d - convertit une coordonnées décimale en coordonnées dms de niveau de précision degré
  • dec2dms_dm - convertit une coordonnées décimale en coordonnées dms de niveau de précision minute
  • dec2dms_dms - convertit une coordonnées décimale en coordonnées dms de niveau de précision seconde
  • wikidatacoords - récupère des coordonnées sur Wikidata

variables internes

  • globedata : table des planètes prises en charge par geohack, en indiquant le rayon (pour calculer les distances), la catégorie de maintenance, et le format d'affichage des coordonnées par défaut
  • wikidatathreshold : distance maximum par défaut entre les coordonnées données sur Wikipédia et celles de Wikidata. Au-delà du seuil, la page est catégorisée dans Catégorie:Page avec coordonnées différentes sur Wikidata

Modules externes et autres éléments dont ce module a besoin pour fonctionner :

Exemples basiques

Il existe deux moyens pour renseigner dans un article des coordonnées

  1. À partir des coordonnées décimales
    • {{#Invoke:Coordinates | coord |43.651234|-79.383333}} : Erreur Lua : callParserFunction: function "#coordinates" was not found
      la latitude(43.651234) et la longitude (-79.383333) de Toronto sont renseignés sous formes décimale
  2. À partir des coordonnées sexagésimales
    • {{#Invoke:Coordinates | coord |43|29|4|N|79|23|0|W}} : Erreur Lua : callParserFunction: function "#coordinates" was not found
      la latitude(43/29/4/N) et la longitude (79/23/0/W) de Toronto sont renseignés sous forme d'un quadruplet Heure/Minute/Seconde/Sens représentant le calcul sous forme de minutes d'arc.
    • {{#Invoke:Coordinates | coord |43/29/4/N|79/23/0/W}} : Erreur Lua : callParserFunction: function "#coordinates" was not found
      la latitude(43/29/4/N) et la longitude (79/23/0/W) de Toronto sont renseignés directement
  3. À partir des coordonnées géographiques issu de Wikidata seulement pour les coordonnées principale d'un article
    • {{#Invoke:Coordinates | coord }}

Le format de sortie est par défaut le format d'entrée mais on peut le changer en passant un argument supplémentaire sous la forme |format=xxx

  1. dms pour un affichage degrée/minute/seconde
    • {{#Invoke:Coordinates | coord |43.651234|-79.383333|format=dms}} : Erreur Lua : callParserFunction: function "#coordinates" was not found
  2. dms long pour un affichage degrée/minute/seconde avec l'orientation en toute lettres
    • {{#Invoke:Coordinates | coord |43.651234|-79.383333|format=dms long}} : Erreur Lua : callParserFunction: function "#coordinates" was not found
  3. dec pour un affichage degrée/minute/seconde
    • {{#Invoke:Coordinates | coord |43|29|4|N|79|23|0|W|format=dec}} : Erreur Lua : callParserFunction: function "#coordinates" was not found

Options de la fonction p.coord

Option de la fonction p.coord (utilisable depuis Lua)

  • latitude =
  • longitude =
  • globe = (voir la table globedata pour la liste
  • format = format d'affichage : dms, dec, dms long (affiche la direction en entier), dec east (calcule la latitude dans la direction Est et l'affiche, dms west calcule la longitude dans la direction Ouest et l'affiche
  • displaytitle = mettre sur "true" si l'on veut afficher les coordonnées dans le titre
  • formattitle = si l'on souhaite un format particulier pour les coordonnées de titre
  • wikidata = mettre sur "true" lorsque l'on souhaite récupérer les coordonnées Wikidata
  • wikidataquery = pour effectuer une requête Wikidata personnalisée (voir Module:Wikidata)

Exemples détaillés

Entrée en écriture décimale

Code Résultat Résultat
|format=dec		 Résultat
|format=dms		 Résultat
|format=dms long		 Notes
{{#invoke:Coordinates|coord|43.651234|-79.383333}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, entrée en écriture décimale
{{#invoke:Coordinates|coord|-33.856111|151.1925}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Sydney, entrée en écriture décimale
{{#invoke:Coordinates|coord|43.65|-79.38}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, avec moins de précision
{{#invoke:Coordinates|coord|43.6500|-79.3800}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto,avec des zéros supplémentaires
{{#invoke:Coordinates|coord|43.651234|N|79.383333|W}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, écriture N/W plutôt que +/-

Entrée en écriture sexagésimale

Code Résultat Résultat
|format=dec		 Résultat
|format=dms		 Résultat
|format=dms long		 Notes
{{#invoke:Coordinates|coord|43|29|N|79|23|W}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, avec degrés et minutes
{{#invoke:Coordinates|coord|43|29|4|N|79|23|0|W}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, avec degrés, minutes et secondes
{{#invoke:Coordinates|coord|43|29|4.5|N|79|23|0.5|W}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, avec degrés, minutes, secondes et fractions de secondes
{{#invoke:Coordinates|coord|43/29/N|79/23/W}} Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto avec les coordonnées en un seul champ séparé par le symbole /

Paramètres de format pour {{GeoTemplate}}

Pour la liste exhaustive : GeoTemplate/Utilisation.

Ici, c'est le lien qui est modifié : il faut cliquer dessus pour voir les différences

Code Résultat Notes
{{#invoke:Coordinates|coord|43.65|-79.38}} Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, appel basique
{{#invoke:Coordinates|coord|43.65|-79.38|scale:3000000}} Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, avec une échelle au pays
scale:N avec N un nombre sans espace (par défaut 300000)
{{#invoke:Coordinates|coord|40.6892|-74.0445|dim:100}} Erreur Lua : callParserFunction: function "#coordinates" was not found Statue de la Liberté avec un diamètre de 100 m
autre moyen pour afficher une échelle adaptée.
{{#invoke:Coordinates|coord|43.65|-79.38|type:city}} Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, en mentionnant comme type de structure une ville de grande taille
scale:N avec N un nombre sans espace (par défaut 300000)
{{#invoke:Coordinates|coord|43.65|-79.38|region:CA_type:city}} Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, en mentionnant deux paramètres.
{{#invoke:Coordinates|coord|43.65|-79.38|region:CA}} Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, en mentionnant le Canada comme pays
utile pour sélectionner des fonds cartographiques appropriés à la région.
{{#invoke:Coordinates|coord|9.7|-20.0|globe:moon}} Erreur Lua : callParserFunction: function "#coordinates" was not found cratère Copernic sur la Lune
utile pour sélectionner des fonds cartographiques appropriés à la région.
{{#invoke:Coordinates|coord|43.65|-79.38|name=Toronto}} Erreur Lua : callParserFunction: function "#coordinates" was not found Toronto, en présisant non pas le titre de la page mais le nom de l'article
utile pour des pages avec homonymies.

Affichage dans la barre de titre

Il est possible de renseigner les coordonnées en haut de la page en précisant l'argument |display=

  • {{#invoke:Coordinates|coord|43.65|-79.38|display=inline}} : Affiche uniquement les coordonnées dans le corps du texte
    C'est le comportement par défaut
  • {{#invoke:Coordinates|coord|43.65|-79.38|display=title}} : Affiche uniquement les coordonnées dans la barre de titre
  • {{#invoke:Coordinates|coord|43.65|-79.38|display=inline,title}} : Affiche les coordonnées dans le corps du texte et dans la barre de titre

Ce modèle « catégorise » la page qui l’emploie dans la catégorie article géolocalisé.

Pour un affichage différent entre les coordonnées dans le texte et celui dans le titre, on peut utiliser l'argument |formatitle

  • {{#invoke:Coordinates|coord|43.65|-79.38|display=inline,title|format=dec|formatitle=dms}} : Affiche les coordonnées dans le corps du texte en décimal et dans la barre de titre au format sexagésimal

Gestion des erreurs

Si les paramètres sont mal renseignés ou incorrects, une balise est affiché à coté des coordonnées précisant le type d'erreur.

Exemple d'appel erronés
  • {{#invoke:Coordinates|coord|2843.65|-79.38}} : Coordonnées : orientation de longitude invalide, devrait être "E" ou "W"

Ce modèle « catégorise » la page qui l’emploie dans la catégorie Page avec des balises de coordonnées mal formées.

Utilisation des sous-fonctions

Conversion décimal vers sexagésimal

Permet de convertir une des deux coordonnées (latitude ou longitude) d'un système vers l'autre

{{#Invoke:Coordinates | dec2dms | donnée | direction positive | direction négative | précision}}

  • donnée : le nombre décimal
  • direction positive : la direction (N pour la latitude / E pour la longitude)
  • direction négative : la direction (S pour la latitude / O pour la longitude)
  • précision : D , DM ou DMS
Exemple
  • {{#invoke:Coordinates|dec2dms|43.651234|N|S|DMS}} : 43° 39′ 04″ N
  • {{#invoke:Coordinates|dec2dms|43.651234|Nord|Sud|DM}} : 43° 39′ N

Conversion sexagésimal vers décimal

Permet de convertir une des deux coordonnées (latitude ou longitude) d'un système vers l'autre

{{#Invoke:Coordinates | dms2dec | direction | degrés | minutes | secondes}}

  • direction : la direction (N/S/E/O)
  • degrés ,minutes ,secondes : la donnée exprimés sous forme de mesure d'arc
Exemple
  • {{#invoke:Coordinates|dms2dec|N|43|29|4}} : 43.48444
  • {{#invoke:Coordinates|dms2dec|N|43|29}} : 43.483


{{#Invoke:Coordinates | dms2dec | direction | degrés | minutes | secondes}}

Exemple
  • {{#invoke:Coordinates|dms2dec|43/29/4/N}} : 43.48444
  • {{#invoke:Coordinates|dms2dec|43/29/N}} : 43.483

Voir aussi

local math_mod = require( "Module:Math" )

local p = {}

--Chargement de la liste En/Au/Aux/A
local gdata
local success, resultat = pcall (mw.loadData, "Module:Drapeau/Data" )
if success then
	gdata = resultat
else
	-- Banque de données à minima en cas de bogue dans le Module:Langue/Data
	gdata={}
	gdata.data={};
	gdata.data[142]={qid="Q142", label="France", genre="fs"}
end

local i18n = {
	N = 'N',
	Nlong = 'nord',
	W = 'O',
	Wlong = 'ouest',
	E = 'E',
	Elong = 'est',
	S = 'S',
	Slong = 'sud',
	degrees = '° ',
	minutes = '′ ',
	seconds = '″ ',
	geohackurl = 'http://tools.wmflabs.org/geohack/geohack.php?language=fr',
	tooltip = 'Cartes, vues aériennes, etc.',
	errorcat = 'Page avec des balises de coordonnées mal formées',
	sameaswikidata = 'Page avec coordonnées similaires sur Wikidata',
	notaswikidata = 'Page avec coordonnées différentes sur Wikidata',
	nowikidata = 'Page sans coordonnées Wikidata',
	throughwikidata = 'Page géolocalisée par Wikidata',
	invalidFormat = 'format invalide',                                          -- 'invalid coordinate format',
	invalidNSEW = 'orientation invalide, devrait être "N", "S", "E" or "W"',    -- 'invalid direction should be "N", "S", "E" or "W"',
	invalidNS = 'orientation de latitude invalide, devrait être "N" ou "S"',    -- 'could not find latitude direction (should be N or S)',
	invalidEW = 'orientation de longitude invalide, devrait être "E" ou "W"',   -- 'could not find longitude direction (should be W or E) ',
	noCardinalDirection = 'orientation cardinale non trouvée',                  -- 'no cardinal direction found in coordinates',
	invalidDirection = 'direction invalide',                                    -- 'invalid direction',
	latitude90 = 'latitude > 90',
	longitude360 = 'longitude > 360',
	minSec60 = 'minutes ou secondes > 60',
	negativeCoode = 'en format dms les degrés doivent être positifs',           -- 'dms coordinates should be positive',
	dmIntergers = 'degrés et minutes doivent être des nombres entiers',         -- 'degrees and minutes should be integers',
	tooManyParam = 'trop de paramètres pour la latitude ou la longitude',       -- 'too many parameters for coordinates',
	coordMissing = 'latitude ou longitude absente',                             -- 'latitude or longitude missing',
	invalidGlobe = 'globe invalide : ',                                         -- 'invalid globe:',
}
local coordParse = {
	NORTH = 'N',
	NORD = 'N',
	EAST = 'E',
	EST = 'E',
	WEST = 'W',
	O = 'W',
	OUEST = 'W',
	SOUTH = 'S',
	SUD = 'S',
}

--Aide:Fonction_genre
local genre = {
	ms =    {le="le ",  du="du ",    de="du ",  au="au ",  en="au "},
	msa =   {le="l'",   du="de l'",  de="d'",   au="à l'", en="en "},
	msi =   {le="",     du="de ",    de="de ",  au="à ",   en="à "},
	msia =  {le="",     du="d'",     de="d'",   au="à ",   en="à "},
	msiae = {le="",     du="d'",     de="d'",   au="à ",   en="en "},
	fs =    {le="la ",  du="de la ", de="de ",  au="à la ",en="en "},
	fsa =   {le="l'",   du="de l'",  de="d'",   au="à l'", en="en "},
	fsi =   {le="",     du="de ",    de="de ",  au="à ",   en="à "},
	fsia =  {le="",     du="d'",     de="d'",   au="à ",   en="à "},
	mp =    {le="les ", du="des ",   de="des ", au="aux ", en="aux "},
	fp =    {le="les ", du="des ",   de="des ", au="aux ", en="aux "}
}

local globedata = 	{
	--[[ notes:
		radius in kilometers (especially imprecise for non spheric bodies)
		defaultdisplay is currently disabled, activate it ?
	]]-- 
	ariel = {radius = 580, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	callisto =  {radius = 2410, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	ceres =  {radius = 470, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	charon =  {radius = 1214, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	deimos =  {radius = 7, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	dione =  {radius = 560, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	enceladus =  {radius = 255, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	ganymede =  {radius = 2634, defaultdisplay = 'dec west', trackingcat = 'sur Ganymède'},
	earth = {radius = 6371, defaultdisplay = 'dms', trackingcat = 'sur Terre'},
	europa =  {radius = 1561, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	hyperion =  {radius = 140, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	iapetus =  {radius = 725, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	['io'] =  {radius = 1322, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	jupiter =  {radius = 68911, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	mars =  {radius = 3389.5, defaultdisplay = 'dec east', trackingcat =  'sur Mars' },
	mercury =  {radius = 2439.7, defaultdisplay = 'dec west', trackingcat = 'sur Mercure'},
	mimas =  {radius = 197, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	miranda =  {radius = 335, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	moon =  {radius = 1736, defaultdisplay = 'dec', trackingcat = 'sur la Lune'},
	neptune =  {radius = 24553, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	oberon =  {radius = 761, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	phoebe =  {radius = 110, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	phobos =  {radius = 11, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	pluto =  {radius = 1185, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	rhea =  {radius = 765, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	saturn =  {radius = 58232, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	titan =  {radius = 2575.5, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	tethys =  {radius = 530, defaultdisplay = 'dec west', trackingcat = 'extraterrestre'},
	titania =  {radius = 394, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	triton = {radius = 1353, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	umbriel =  {radius = 584, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	uranus =  {radius = 25266, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'},
	venus =  {radius = 6051.8, defaultdisplay = 'dec east', trackingcat = 'sur Vénus'},
	vesta =  {radius = 260, defaultdisplay = 'dec east', trackingcat = 'extraterrestre'}
}
globedata[''] = globedata.earth

local wikidatathreshold = 10 -- si la distance entre coordonnées Wikipédia et Wikidata dépasse se seuil (en kilomètes), une catégorie de maintenance est ajoutée
local lang = mw.language.getContentLanguage()
local default_zoom = 13

local function makecat(cat, sortkey)
	if type( sortkey ) == 'string' then
		return '[[Category:' .. cat .. '|' .. sortkey .. ']]'
	else
		return '[[Category:' .. cat .. ']]'
	end
end

----------------------------------------
--Error handling
	--[[ Notes:
	when errors occure a new error message is concatenated to errorstring
	an error message contains an error category with a sortkey
	For major errors, it can also display an error message (the error message will the usually be returned and the function terminated)
	More minor errors do only add a category, so that readers are not bothered with error texts
	sortkeys:
		* A: invalid latitude, longitude or direction
		* B: invalid globe
		* C: something wrong with other parameters
		* D: more than one primary coord
	]]--

local errorstring = ''

local function makeerror(args)
	local errormessage = ''
	if args.message then 
		errormessage = '<strong class="error"> Coordonnées : ' .. args.message .. '</strong>' 
	end
	local errorcat = ''
	if mw.title.getCurrentTitle().namespace == 0 then 
		errorcat = makecat(i18n.errorcat, args.sortkey)
	end
	errorstring = errormessage .. errorcat -- reinitializes the string to avoid absurdly long messages
	return nil
end

local function showerrors()
	return errorstring
end



-- Distance computation
function p._distance(a, b, globe) -- calcule la [[distance orthodromique]] en kilomètres entre deux points du globe

	globe = string.lower(globe or 'earth')
	
	-- check arguments and converts degreees to radians
	local latA, latB, longA, longB = a.latitude, b.latitude, a.longitude, b.longitude
	if (not latA) or (not latB) or (not longA) or (not longB) then return
		error('coordinates missing, can\'t compute distance')
	end
	if type(latA) ~= 'number' or type(latB) ~= 'number' or type(longA) ~= 'number' or type(longB) ~= 'number' then
		error('coordinates are not numeric, can\'t compute distance')
	end
		if not globe or not globedata[globe] then
		return error('globe: ' .. globe .. 'is not supported')
	end
	
	-- calcul de la distance angulaire en radians
	local convratio = math.pi / 180 -- convertit en radians
	latA, latB, longA, longB = convratio * latA, convratio * latB, convratio * longA, convratio * longB
	local cosangle = math.sin(latA) * math.sin(latB) + math.cos(latA) * math.cos(latB) * math.cos(longB - longA)
	if cosangle >= 1 then -- may be above one because of rounding errors
		return 0
	end
	local angle = math.acos(cosangle)
	-- calcul de la distance en km
	local radius = globedata[globe].radius
	return radius * angle
end

function p.distance(frame)
	local args = frame.args
	return p._distance(
		{latitude = tonumber(args.latitude1), longitude = tonumber(args.longitude1)}, 
		{latitude = tonumber(args.latitude2), longitude = tonumber(args.longitude2)},
		args.globe)
end

local function geoHackUrl(decLat, decLong, globe, displayformat, objectname, extraparams)
	extraparams = extraparams or ''
	local geohacklatitude, geohacklongitude
	-- format latitude and longitude for the URL
	if tonumber(decLat) < 0 then
		geohacklatitude = tostring(-tonumber(decLat)) .. '_S'
	else 
		geohacklatitude = decLat .. '_N'
	end
	if tonumber(decLong) < 0  then
		geohacklongitude = tostring(-tonumber(decLong)) .. '_W'
	elseif globedata[globe].defaultdisplay == 'dec west' then
		geohacklongitude = decLong .. '_W'
	else
		geohacklongitude = decLong .. '_E'
	end
	-- prepares the 'paramss=' parameter
	local geohackparams = geohacklatitude .. '_' .. geohacklongitude .. '_' ..extraparams
	-- concatenate parameteres for geohack
	return i18n.geohackurl .. 
		"&pagename=" .. mw.uri.encode(mw.title.getCurrentTitle().prefixedText, "WIKI") ..
		"&params=" .. geohackparams ..
		(objectname and ("&title=" .. mw.uri.encode(objectname)) or "")
end

--HTML builder for a geohack link
local function buildHTML(decLat, decLong, dmsLat, dmsLong, globe, displayformat, displayinline, displaytitle, objectname, extraparams)
	-- geohack url
	local url = geoHackUrl(decLat, decLong, globe, displayformat, objectname, extraparams)
	
	-- displayed coordinates
	local displaycoords
	if string.sub(displayformat,1,3) == 'dec' then
		displaycoords = p.displaydec(decLat, decLong, displayformat)
	else
		displaycoords = {
			p.displaydmsdimension(dmsLat, displayformat),
			p.displaydmsdimension(dmsLong, displayformat),
		}
	end
	
	-- build coordinate in h-geo / h-card microformat
	local globeNode
	if globe and globe ~= 'earth' then
		globeNode = mw.html.create('data')
			:addClass('p-globe')
			:attr{ value = globe }
			:done()
	end
	
	local coordNode = mw.html.create('')
	if objectname then
		coordNode = mw.html.create('span')
			:addClass('h-card')
			:tag('data')
				:addClass('p-name')
				:attr{ value = objectname }
				:done()
	end
	coordNode
		:tag('span')
			:addClass('h-geo')
			:addClass('geo-' .. string.sub(displayformat,1,3)) 
			:tag('data')
				:addClass('p-latitude')
				:attr{ value = decLat }
				:wikitext( displaycoords[1] )
				:done()
			:wikitext(", ")
			:tag('data')
				:addClass('p-longitude')
				:attr{ value = decLong }
				:wikitext( displaycoords[2] )
				:done()
			:node( globeNode )
			:done()
	
	-- buid GeoHack link
	local root = mw.html.create('span')
		:addClass('plainlinks nourlexpansion')
		:attr('title', i18n.tooltip)
		:wikitext('[' .. url )
		:node(coordNode)
		:wikitext("]")
		:done()
	
	-- format result depending on args["display"] (nil, "inline", "title", "inline,title")
	local inlineText = displayinline and tostring(root) or ''
	local titleText = ''
	if displaytitle then
		local htmlTitle = mw.html.create('span')
			:attr{ id = 'coordinates' }
			:addClass( displayinline and 'noprint' or nil )
			:node( root )
		local frame = mw.getCurrentFrame()
		titleText = frame:extensionTag( 'indicator', tostring(htmlTitle), { name = 'coordinates' }	)
	end
	
	return inlineText .. titleText
end

local function zoom( extraparams )
	local zoomParam = extraparams:match( '%f[%w]zoom: ?(%d+)' )
	if zoomParam then
		return zoomParam
	end
	
	local scale = extraparams:match( '%f[%w]scale: ?(%d+)' )
	if scale then
		return math.floor(math.log10( 1 / tonumber( scale ) ) * 3 + 25)
	end
	
	local extraType = extraparams:match( '%f[%w]type: ?(%w+)' )
	if extraType then
		local zoomType = {
			country = 5,
			state = 6,
			adm1st = 7,
			adm2nd = 8,
			city = 9,
			isle = 10,
			mountain = 10,
			waterbody = 10,
			airport = 12,
			landmark = 13,
		}
		return zoomType[ extraType ]
	end
end

--HTML builder for a geohack link
local function buildMaplinkHTML( decLat, decLong, dmsLat, dmsLong, globe, displayformat, displayinline, displaytitle, objectname, extraparams )
	-- displayed coordinates
	local displaycoords
	if string.sub(displayformat,1,3) == 'dec' then
		displaycoords = p.displaydec(decLat, decLong, displayformat)
	else
		displaycoords = {
			p.displaydmsdimension(dmsLat, displayformat),
			p.displaydmsdimension(dmsLong, displayformat),
		}
	end
	
	-- JSON for maplink
	local jsonParams = {
		type = 'Feature',
		geometry = { 
			type ='Point',
			coordinates = { 
				math_mod._round( decLong, 6 ), -- max precision in GeoJSON format
				math_mod._round( decLat, 6 )
			}
		},
		properties = {
			['marker-color'] = "228b22",
		}
	}
	if objectname then
		jsonParams.properties.title = objectname
	end
	-- ajout de geoshape via externaldata
	local geoshape = extraparams:match( '%f[%w]geoshape: ?(Q%d+)' )
	if not geoshape and displaytitle and mw.wikibase.getEntity() then
		geoshape = mw.wikibase.getEntity().id
	end
	if geoshape then
		jsonParams = {
			jsonParams,
			{
				type = 'ExternalData',
				service = 'geoshape',
				ids = geoshape,
				properties = {
					['fill-opacity'] = 0.2
				}
			}
		}
	end

	local maplink = mw.getCurrentFrame():extensionTag{
		name = 'maplink',
		content = mw.text.jsonEncode( jsonParams ),
		args = { 
			text = displaycoords[1] .. ", " .. displaycoords[2],
			zoom = zoom( extraparams ) or default_zoom,
			latitude = decLat,
			longitude = decLong,
		}
	}
	
	-- format result depending on args["display"] (nil, "inline", "title", "inline,title")
	local inlineText = displayinline and maplink or ''
	local titleText = ''
	if displaytitle then
		local htmlTitle = mw.html.create('span')
			:attr{ id = 'coordinates' }
			:addClass( displayinline and 'noprint' or nil )
			:wikitext( maplink )
		local frame = mw.getCurrentFrame()
		titleText = frame:extensionTag( 'indicator', tostring(htmlTitle), { name = 'coordinates' }	)
	end
	
	return inlineText .. titleText
end

-- dms specific funcions

local function twoDigit( value )
	if ( value < 10 ) then
		value = '0' .. lang:formatNum( value )
	else
		value = lang:formatNum( value )
	end
	return value
end

function p.displaydmsdimension(valuetable, format) -- formate en latitude ou une longitude dms
	local str = ''
	local direction = valuetable.direction
	local degrees, minutes, seconds = '', '', ''
	local dimension

	if format == 'dms long' then
		direction = i18n[direction .. 'long']
	else
		direction = i18n[direction]
	end
	degrees = lang:formatNum( valuetable.degrees ) .. i18n.degrees
	
	if valuetable.minutes then
		minutes = twoDigit( valuetable.minutes ) .. i18n.minutes
	end
	if valuetable.seconds then
		seconds = twoDigit( valuetable.seconds ) .. i18n.seconds
	end
	return degrees .. minutes .. seconds .. direction
end

local function validdms(coordtable)
	local direction = coordtable.direction
	local degrees = coordtable.degrees or 0
	local minutes = coordtable.minutes or 0
	local seconds = coordtable.seconds or 0
	local dimension = coordtable.dimension
	if not dimension then
		if direction == 'N' or direction == 'S' then
			dimension = 'latitude'
		elseif direction == 'E' or direction == 'W' then 
			dimension = 'longitude'
		else
			makeerror({message = i18n.invalidNSEW, sortkey = 'A'})
			return false
		end
	end

	if type(degrees) ~= 'number' or type(minutes) ~= 'number' or type(seconds) ~= 'number' then
		makeerror({message = i18n.invalidFormat, sortkey = 'A'})
		return false
	end
	
	if dimension == 'latitude' and direction ~= 'N' and direction ~= 'S' then
		makeerror({message = i18n.invalidNS, sortkey = 'A'})
		return false
	end
	if dimension == 'longitude' and direction ~= 'W' and direction ~= 'E' then
		makeerror({message = i18n.invalidEW, sortkey = 'A'})
		return false
	end
	
	if dimension == 'latitude' and degrees > 90 then
		makeerror({message = i18n.latitude90, sortkey = 'A'})
		return false
	end
	
	if dimension == 'longitude' and degrees > 360 then
		makeerror({message = i18n.longitude360, sortkey = 'A'})
		return false
	end
	
	if degrees < 0 or minutes < 0 or seconds < 0 then
		makeerror({message = i18n.negativeCoode, sortkey = 'A'})
		return false
	end
	
	if minutes > 60 or seconds > 60 then
		makeerror({message = i18n.minSec60, sortkey = 'A'})
		return false
	end	
	if (math.floor(degrees) ~= degrees and minutes ~= 0) or (math.floor(minutes) ~= minutes and seconds ~= 0) then
		makeerror({message = i18n.dmIntergers, sortkey = 'A'})
		return false
	end
	return true
end

local function builddmsdimension(degrees, minutes, seconds, direction, dimension)
	-- no error checking, done in function validdms
	local dimensionobject = {}
	
	-- direction and dimension (= latitude or longitude)
	dimensionobject.direction = direction
	if dimension then
		dimensionobject.dimension = dimension
	elseif direction == 'N' or direction == 'S' then
		dimensionobject.dimension = 'latitude'
	elseif direction == 'E' or direction == 'W' then
		dimensionobject.dimension = 'longitude'
	end
	
	-- degrees, minutes, seconds
	dimensionobject.degrees = tonumber(degrees)
	dimensionobject.minutes = tonumber(minutes)
	dimensionobject.seconds = tonumber(seconds)
	if degrees and not dimensionobject.degrees then dimensionobject.degrees = 'error' end
	if minutes and not dimensionobject.minutes then dimensionobject.minutes = 'error' end
	if seconds and not dimensionobject.seconds then dimensionobject.seconds = 'error' end
	return dimensionobject
end

function p._parsedmsstring( str, dimension ) -- prend une séquence et donne des noms aux paramètres 
	-- output table: { latitude=, longitude = , direction =  }
	if type( str ) ~= 'string' then
		return nil
	end
	str = mw.ustring.gsub( mw.ustring.upper( str ), '%a+', coordParse )
	if not tonumber( str ) and not str:find( '/' ) and str:find( '°' ) then
		local str2 = mw.ustring.gsub( str, '[°″′\"\'\194\160 ]+', '/' )
		-- avoid cases were there is degree ans seconds but no minutes
		if not mw.ustring.find( str, '[″"]' ) or mw.ustring.find( str, '%d[′\'][ \194\160%d]' ) then
			str = str2
		end
	end
	if not tonumber(str) and not string.find(str, '/') then
		makeerror({message = i18n.invalidFormat, sortkey= 'A'})
		return nil
	end
	args = mw.text.split(str, '/', true)
	if #args > 4 then
		makeerror({message = i18n.tooManyParam, sortkey= 'A' })
	end	
	local direction = mw.text.trim(args[#args])
	table.remove(args)
	local degrees, minutes, seconds = args[1], args[2], args[3]
	local dimensionobject = builddmsdimension(degrees, minutes, seconds, direction, dimension)
	if validdms(dimensionobject) then
		return dimensionobject
	else
		return nil
	end
end

--- decimal specific functions
function p.displaydec(latitude, longitude, format)
	lat = lang:formatNum( latitude )
	long = lang:formatNum( longitude )
	
	if format == 'dec west' or  format == 'dec east' then
		local symbolNS, symbolEW = i18n.N, i18n.E
		if latitude < 0 then 
			symbolNS = i18n.S
			lat = lat:sub( 2 )
		end
		if format == 'dec west' then
			symbolEW = i18n.W
		end
		if longitude < 0 then 
			long = lang:formatNum( 360 + longitude )
		end
		
		return { lat .. i18n.degrees .. symbolNS,  long ..  i18n.degrees .. symbolEW }
		
	else 
		return { lat, long }
	end
end


local function parsedec(dec, coordtype, globe) -- coordtype = latitude or longitude
	dec = mw.text.trim(dec)
	if not dec then
		return nil
	end
	if coordtype ~= 'latitude' and coordtype ~= 'longitude' then
		makeerror({'invalid coord type', sortkey = "A"})
		return nil
	end
	local numdec = tonumber(dec) -- numeric value, kept separated as it looses significant zeros
	if not numdec then -- tries the decimal + direction format
		dec = mw.ustring.gsub( mw.ustring.upper( dec ), '%a+', coordParse )
		local direction = mw.ustring.sub(dec, mw.ustring.len(dec), mw.ustring.len(dec))
		dec = mw.ustring.sub(dec, 1, mw.ustring.len(dec)-2) -- removes the /N at the end
		if not dec or not tonumber(dec) then
			return nil
		end
		if direction == 'N' or direction == 'E' or direction == 'W' and globedata[globe].defaultdisplay == 'dec west' then
			numdec = tonumber( dec )
		elseif direction == 'W' or direction == 'S' then
			dec = '-' .. dec
			numdec = tonumber( dec )
		else
			if coordtype == 'latitude' then
				makeerror({message = i18n.invalidNS, sortkey = 'A'})
			else
				makeerror({message = i18n.invalidEW, sortkey = 'A'})
			end
			return nil
		end
	end

	if coordtype == 'latitude' and math.abs(numdec) > 90 then
		makeerror({message = i18n.latitude90 , sortkey = 'A'})
		return nil
	end
	if coordtype == 'longitude' and math.abs(numdec) > 360 then
		makeerror({message = i18n.longitude360 , sortkey = 'A'})
		return nil
	end
	return dec
end

-- dms/dec conversion functions
local function convertprecision(precision) -- converts a decimal precision like "2" into "dm"
	if precision >= 3 then
		return 'dms'
	elseif precision >=1 then
		return 'dm'
	else
		return 'd'
	end
end

local function determinedmsprec(decs) -- returns the most precision for a dec2dms conversion, depending on the most precise value in the decs table
	local precision = 0
	for d, val in ipairs(decs) do
		precision = math.max(precision, math_mod._precision(val))
	end
	return convertprecision(precision)
end

local function dec2dms_d(dec)
	local degrees = math_mod._round( dec, 0 )
	return degrees
end

local function dec2dms_dm(dec)
	dec = math_mod._round( dec * 60, 0 )
	local minutes = dec % 60
	dec = math.floor( (dec - minutes) / 60 )
	local degrees = dec % 360
	return degrees, minutes
end 

local function dec2dms_dms(dec)
	dec = math_mod._round( dec * 60 * 60, 0 )
	local seconds = dec % 60
	dec = math.floor( (dec - seconds) / 60 )
	local minutes = dec % 60
	dec = math.floor( (dec - minutes) / 60 )
	local degrees = dec % 360
	return degrees, minutes, seconds
end

function p._dec2dms(dec, coordtype, precision, globe) -- coordtype: latitude or longitude
	local degrees, minutes, seconds
	
	-- vérification du globe
	if not ( globe and globedata[ globe ] ) then
		globe = 'earth'
	end
	
	-- precision
	if not precision or precision == '' then
		precision = determinedmsprec({dec})
	end
	if precision ~= 'd' and precision ~= 'dm' and precision ~= 'dms' then
		return makeerror({sortkey = 'C'})
	end
	local dec = tonumber(dec)
	
	-- direction 
	local direction
	if coordtype == 'latitude' then 
		if dec < 0 then
			direction = 'S'
		else 
			direction = 'N'
		end
	elseif coordtype == 'longitude' then
		if dec < 0 or globedata[globe].defaultdisplay == 'dec west' then
			direction = 'W'
		else 
			direction = 'E'
		end
	end
	
	-- conversion
	dec = math.abs(dec) -- les coordonnées en dms sont toujours positives
	if precision == 'dms' then 
		degrees, minutes, seconds = dec2dms_dms(dec)
	elseif precision == 'dm' then
		degrees, minutes = dec2dms_dm(dec)
	else
		degrees = dec2dms_d(dec)
	end
	return builddmsdimension(degrees, minutes, seconds, direction)
end

function p.dec2dms(frame) -- legacy function somewhat cumbersome syntax
	args = frame.args
	local dec = args[1] 
	if not tonumber(dec) then
		makeerror({message = i18n.invalidFormat, sortkey = 'A'})
		return showerrors()
	end
	local dirpositive = string.lower(args[2] or '')
	local dirnegative = string.lower(args[3] or '')
	local precision = string.lower(args[4] or '')
	local displayformat, coordtype
	
	if dirpositive == 'n' or dirpositive == 'nord' then
		coordtype = 'latitude'
	else 
		coordtype = 'longitude'
	end
	if dirpositive == 'nord' or dirpositive == 'est' or dirnegative == 'ouest' or dirnegative == 'sud' then
		displayformat = 'dms long'
	end
	local coordobject = p._dec2dms(dec, coordtype, precision)
	if coordobject then
		return p.displaydmsdimension(coordobject, displayformat) .. showerrors()
	else
		return showerrors()
	end
end


function p._dms2dec(dmsobject) -- transforme une table degré minute secondes en nombre décimal
	local direction, degrees, minutes, seconds = dmsobject.direction, dmsobject.degrees, dmsobject.minutes, dmsobject.seconds
	local factor = 0
	local precision = 0
	if not minutes then minutes = 0 end
	if not seconds then seconds = 0 end
	
	if direction == "N" or direction == "E" then
		factor = 1
	elseif direction == "W" or direction == "S" then
		factor = -1
	elseif not direction then 
		makeerror({message = i18n.noCardinalDirection, sortkey = 'A'})
		return nil
	else
		makeerror({message = i18n.invalidDirection, sortkey = 'A'})
		return nil
	end
	
	if dmsobject.seconds then -- vérifie la précision des données initiales
		precision = 5 + math.max( math_mod._precision(tostring(seconds), 0 ) ) -- passage par des strings assez tarabiscoté ?
	elseif dmsobject.minutes then
		precision = 3 + math.max( math_mod._precision(tostring(minutes), 0 ) )
	else
		precision = math.max( math_mod._precision(tostring(degrees), 0 ) )
	end
	
	local decimal = factor * (degrees+(minutes+seconds/60)/60)
	return math_mod._round(decimal, precision)
end

function p.dms2dec(frame) -- legacy function, somewhat bizarre syntax
	local args = frame.args
	if tonumber(args[1]) then 
		return args[1] -- coordonnées déjà en décimal
	elseif not args[2] then
		local dmsobject = p._parsedmsstring(args[1])
		if dmsobject then
			return p._dms2dec(dmsobject) -- coordonnées sous la fore 23/22/N
		else
			local coordType
			if args[1]:match( '[NS]' ) then
				coordType = 'latitude'
			elseif args[1]:match( '[EWO]') then
				coordType = 'longitude'
			end
			if coordType then
				local result = parsedec( args[1],  coordType, args.globe or 'earth' )
				if result then
					return result
				end
			end
			return showerrors()
		end
	else 
		return p._dms2dec({direction = args[1], degrees = tonumber(args[2]), minutes = tonumber(args[3]), seconds = tonumber(args[4])})
	end
end

-- Wikidata
local function convertwikidataprecision(precision) -- converts a decima like "0.1" into "dm"
	if precision < 0.016 then
		return 'dms'
	elseif precision < 1 then
		return 'dm'
	else
		return 'd'
	end
end

local function wikidatacoords(query)
	query = query or {property = 'p625'}
	query.formatting = 'raw'
	local wd = require('Module:Wikidata')
	local claim = wd.getClaims(query)
	if claim and claim[1] then -- redundant but more robust in case of a change in the code of Module:Wikidata
		local coords = wd.formatSnak(claim[1].mainsnak) -- todo: check for special values
		-- Wikidata does not handle correctly +West longitudes
		if globedata[ coords.globe ] and globedata[ coords.globe ].defaultdisplay == 'dec west' then
			coords.longitude = math.abs( coords.longitude )
		end
		return coords.latitude, coords.longitude, coords.globe or 'earth', convertwikidataprecision(coords.precision or .001)
	end
	return nil
end


local function wikidatacat(globe)
	--catbase= Article géolocalisé sur Terre
	local entitycat = mw.wikibase.getEntity()
	
	local basecat = 'Article géolocalisé'
	local finalcat = {}
	--BADGES
	if entitycat then
		--BADGES
	   	for i, badgeId in ipairs( entitycat.sitelinks['frwiki'].badges ) do
			if badgeId == 'Q17437796'  then
				basecat=string.gsub(basecat, "Article géolocalisé", "Article de qualité géolocalisé")
			end
			if badgeId == 'Q17437798'  then
				basecat=string.gsub(basecat, "Article géolocalisé", "Bon article géolocalisé")
			end
		end
	end

	if globe == 'earth'  then
		if entitycat and entitycat.claims  then
			local country=entitycat.claims['P17']
			if not country then
				--pas pays à récupérer
				basecat=basecat .. ' sur Terre'
				table.insert(finalcat,basecat)
			else
				--parfois plusieurs pays
				for i, paysId in ipairs( country ) do
					--on fait confiance au label wikidata
					local gdataone,qid
					
					if paysId.mainsnak.snaktype == 'value' then
						qid=paysId.mainsnak.datavalue.value['numeric-id']
						gdataone=gdata.data[qid]
					else
						--Bir Tawil n'a pas de pays connu
						qid='?'
					end
					if gdataone ~= nil then
						local prep=genre[gdataone['genre']]['en'] or 'en '
						local thecat=basecat .. ' '..prep ..mw.wikibase.label( 'Q'.. qid)
						if mw.title.new('category:'..thecat).exists then
							table.insert(finalcat,thecat)
						else
							--Dommage!
							mw.log(thecat .. ' à créer')
						end
					else
						--pas d'id?
						mw.log(qid .. ' à paramétrer')
					end
				end
				if #finalcat == 0 then
					--pas pays à récupérer
					basecat=basecat .. ' sur Terre'
					table.insert(finalcat,basecat)
				end
			end
		else
			--pas wikidata
			basecat=basecat .. ' sur Terre'
			table.insert(finalcat,basecat)
		end
	elseif globedata[globe] then
		basecat=basecat .. ' ' .. globedata[globe].trackingcat
		table.insert(finalcat,basecat)
	else
		basecat=basecat .. ' extraterrestre'
		table.insert(finalcat,basecat)
	end
	return finalcat
end

 -- main function for displaying coordinates
function p._coord(args)

	-- I declare variable	
	local displayformat = args.format -- string: one of: 'dms', 'dms long', 'dec', 'dec east' and 'dec west'
	local displayplace = string.lower(args.display or 'inline') --string: one of 'inline', 'title' or 'inline,title' 
	local objectname = (args.name ~= '') and args.name -- string: name of the title displayed in geohack
	local notes = (' ' and args.notes) or '' -- string: notes to de displayed after coordinates
	local wikidata = args.wikidata -- string: set to "true" if needed
	local wikidataquery = args.wikidataquery -- table: see [[Module:Wikidata]] see function wikidatacoords
	local dmslatitude, dmslongitude -- table (when created)	
	local extraparams = args.extraparams or '' -- string (legacy, corresponds to geohackparams)
 	local trackingstring = '' -- tracking cats except error cats (already in errorstring)
 	local rawlat, rawlong = args.latitude, args.longitude
 	if rawlat == '' then rawlat = nil end
 	if rawlong == '' then rawlong = nil end
 	local globe = string.lower( args.globe or extraparams:match('globe:(%a+)') or '' ) -- string: see the globedata table for accepted values
	local latitude, longitude, precision, dmslatitude, dmslongitude -- latitude and longitude in decimal / dmslatitude and dmslongitude: tables withdms coords
	local maplink = true -- use maplink whenever it is possible
	
	-- II extract coordinates from Wikitext
	if (rawlat or rawlong) then
		if (not rawlat) or (not rawlong) then -- if latitude is provided so should be longitude
			makeerror({message = i18n.coordMissing, sortkey = 'A'})
			return showerrors()
		end
		latitude = parsedec(rawlat, 'latitude', globe)

		if latitude then -- if latitude is decimal
			longitude = parsedec(rawlong, 'longitude', globe) -- so should be longitude
			precision = determinedmsprec({latitude, longitude}) -- before conversion from string to number for trailing zeros
			if not latitude or not longitude then
				if errorstring == '' then
					makeerror({message = i18n.invalidFormat, sortkey = 'A'})
				end
				return showerrors()
			end
			dmslatitude, dmslongitude = p._dec2dms(latitude, 'latitude', precision), p._dec2dms(longitude, 'longitude', precision, globe)
			latitude, longitude = tonumber(latitude), tonumber(longitude)
		else -- if latitude is not decimal try to parse it as a dms string
			dmslatitude, dmslongitude = p._parsedmsstring(args.latitude, 'latitude'), p._parsedmsstring(args.longitude, 'longitude')
			if not dmslatitude or not dmslongitude then
				return showerrors()
			end
			latitude, longitude = p._dms2dec(dmslatitude), p._dms2dec(dmslongitude)
		end
	end

	-- III extract coordinate data from Wikidata and compare them to local data
	local wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision
	if wikidata == 'true' then
		wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision = wikidatacoords(wikidataquery)
		
		if wikidatalatitude and latitude and longitude then
			local maxdistance = tonumber(args.maxdistance) or wikidatathreshold
			if p._distance({latitude = latitude, longitude= longitude}, {latitude = wikidatalatitude, longitude= wikidatalongitude}, wikidataglobe) <  maxdistance then
				trackingstring = trackingstring .. makecat(i18n.sameaswikidata)
					else
				trackingstring = trackingstring .. makecat(i18n.notaswikidata)
			end
		end
		if wikidatalatitude and not latitude then
			latitude, longitude, globe, precision = wikidatalatitude, wikidatalongitude, wikidataglobe, wikidataprecision
			dmslatitude, dmslongitude = p._dec2dms(latitude, 'latitude', precision), p._dec2dms(longitude, 'longitude', precision, globe)
			trackingstring = trackingstring .. makecat(i18n.throughwikidata)
		end
		
		if latitude and not wikidatalatitude then
			if mw.title.getCurrentTitle().namespace == 0 then
				trackingstring = trackingstring .. makecat(i18n.nowikidata)
			end
		end
	end


	-- exit if stil no latitude or no longitude
	if not latitude and not longitude then
		return nil -- ne rien ajouter ici pour que l'appel à cette fonction retourne bien nil en l'absence de données
	end

	-- IV best guesses for missing parameters
	
	--- globe
	if globe == '' then
		globe = 'earth'
	end
	if not globedata[globe] then
		makeerror({message = i18n.invalidGlobe .. globe})
		globe = 'earth'
	end
	if globe ~= 'earth' then
		extraparams = extraparams .. '_globe:' .. globe -- pas de problème si le globe est en double
		maplink = false
	end
	
	--- diplayformat
	if not displayformat or displayformat == '' then
		displayformat = globedata[globe].defaultdisplay
	end
	
	-- displayinline/displaytitle
	local displayinline =  string.find(displayplace, 'inline') 
	local displaytitle = string.find(displayplace, 'title') 
	if not displayinline and not displaytitle then
		displayinline = true
		if displayplace ~= '' then 
			makeerror({sortkey = 'C'}) --error if display not empty, but not not a major error, continue
		end
	end
	if displaytitle and mw.title.getCurrentTitle().namespace == 0 then
		--local cattoappend=globedata[globe].trackingcat
		--Récupération des badges
		local cats=wikidatacat(globe)
		for i, cat in ipairs( cats ) do
			trackingstring = trackingstring .. makecat(cat)
		end
	
	end
	
-- V geodata
	local geodata = ''
	if latitude and longitude then
		local latstring, longstring = tostring(latitude), tostring(longitude)
		local primary = ''

		local frame = mw.getCurrentFrame()
		local geodataparams = {[1] = latstring, [2] = longstring, [3] = extraparams }
		if displaytitle then
			geodataparams[4] = 'primary'
		end
		if objectname then
			geodataparams.name = objectname
		end
		geodata = frame:callParserFunction('#coordinates', geodataparams )
		if string.find(geodata, 'error') then -- the only error that has not been caught yet is primary key
			geodata = ''
			makeerror({sortkey='D'})
		end
	end
-- VI final output
	local mainstring = ''
	if maplink then
		mainstring = buildMaplinkHTML(latitude, longitude, dmslatitude, dmslongitude, globe, displayformat, displayinline, displaytitle, objectname,extraparams )
	else
		mainstring = buildHTML(latitude, longitude, dmslatitude, dmslongitude, globe, displayformat, displayinline, displaytitle, objectname,extraparams )
	end
	
	return mainstring .. notes .. trackingstring .. geodata .. showerrors()
end

function p.coord(frame) -- parrses the strange parameters of Template:Coord before sending them to p.coord
	local args = frame.args
	local numericargs = {}
	for i, j in ipairs(args) do
		args[i] = mw.text.trim(j)
		if type(i) == 'number' and args[i] ~= '' then
			table.insert(numericargs, args[i])
		end
	end

	if #numericargs %2 == 1 then -- if the number of args is odd, the last one provides formatting parameters
		args.extraparams = numericargs[#numericargs]
		if #numericargs == 1 and tonumber(numericargs[1]) then
			makeerror({message = i18n.coordMissing, sortkey = 'A'})
			return showerrors()
		end
		table.remove(numericargs)
	end
	for i, j in ipairs(numericargs) do
		if i <= (#numericargs / 2) then
			if not args.latitude then
				args.latitude = j
			else
				args.latitude =	args.latitude .. '/' .. j
			end
		else
			if not args.longitude then
				args.longitude = j
			else
				args.longitude = args.longitude .. '/' .. j
			end
		end
	end

	if string.find(args.latitude or '', 'E') or string.find(args.latitude or '', 'W') then
		args.latitude, args.longitude = args.longitude, args.latitude
	end
	return p._coord(args)
end

function p.Coord(frame)
	return p.coord(frame)
end

function p.latitude(frame) -- helper function pour infobox, à déprécier
	local args = frame.args
	local latitude  = frame.args[1]
	if latitude and mw.text.trim(latitude) ~= '' then
		return latitude
	elseif frame.args['wikidata'] == 'true' then
		local lat, long = wikidatacoords()
		return lat
	end
end
function p.longitude(frame) -- helper function pour infobox, à déprécier
	local args = frame.args
	local longitude = frame.args[1]
	if longitude and mw.text.trim(longitude) ~= '' then
		return longitude
	elseif frame.args['wikidata'] == 'true' then
		local lat, long = wikidatacoords()
		return long
	end
end


return p
Récupérée de « https://www.wikonsult.org/index.php?title=Module:Coordinates&oldid=6448 »