Module:Coordinates/Bac à sable
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ésimalp.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îtesp.longitude(frame)
– récupère la longitude de coordonnées (locale ou stockées sur Wikidata). Surtout utile pour les infoboîtesp.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 Luap._dms2dec(dmsobject)
– similaire à p.dms2dec, mais à utiliser depuis un autre module Luap._dec2dms(coordtype, precision)
– similaire à p.dec2dms, mais à utiliser depuis un autre module Luap._distance(a, b, globe)
– calcule la distance entre deux points dont on précise les latitudes et longitudesp._parsedmsstring(str, dimension)
- créé une table dms à partir d'une chaîne de type "48/22/16/W".
fonctions internes
makeerror
- gestion des erreursmakeerror
- 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 " Nvaliddms
- 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 dmsdisplaydec
- 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écimalesconvertprcision
- 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éesdec2dms_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 minutedec2dms_dms
- convertit une coordonnées décimale en coordonnées dms de niveau de précision secondewikidatacoords
- 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 :
Module:Math
– Pour gérer les arrondis et la précision.Module:Wikidata
– Pour récupérer les coordonnées sur Wikidata
Exemples basiques
Il existe deux moyens pour renseigner dans un article des coordonnées
- À partir des coordonnées décimales
{{#Invoke:Coordinates | coord |43.651234|-79.383333}}
: 43° 39′ 04″ N, 79° 23′ 00″ O- la latitude(43.651234) et la longitude (-79.383333) de Toronto sont renseignés sous formes décimale
- À partir des coordonnées sexagésimales
{{#Invoke:Coordinates | coord |43|29|4|N|79|23|0|W}}
: 43° 29′ 04″ N, 79° 23′ 00″ O- 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}}
: 43° 29′ 04″ N, 79° 23′ 00″ O- la latitude(43/29/4/N) et la longitude (79/23/0/W) de Toronto sont renseignés directement
- À 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
- dms pour un affichage degrée/minute/seconde
{{#Invoke:Coordinates | coord |43.651234|-79.383333|format=dms}}
: 43° 39′ 04″ N, 79° 23′ 00″ O
- 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}}
: 43° 39′ 04″ nord, 79° 23′ 00″ ouest
- dec pour un affichage degrée décimal signé
{{#Invoke:Coordinates | coord |43|29|4|N|79|23|0|W|format=dec}}
: 43,48444, −79,38333
Options de la fonction p.coord
Options 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) ; ces deux derniers ne sont pas destinés à être utilisés pour des coordonnées terrestres.
- 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)
- geodata = pour activer ou désactiver l'exécution de la parser function #coordinates ; par défaut, activé si c'est une géolocalisation affichée à côté du titre (et si namespace article, catégorie ou portail)
Exemples détaillés
Entrée en écriture décimale
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}} | 43° 29′ N, 79° 23′ O | 43,483, −79,383 | 43° 29′ N, 79° 23′ O | 43° 29′ nord, 79° 23′ ouest | Toronto, avec degrés et minutes |
{{#invoke:Coordinates|coord|43|29|4|N|79|23|0|W}} | 43° 29′ 04″ N, 79° 23′ 00″ O | 43,48444, −79,38333 | 43° 29′ 04″ N, 79° 23′ 00″ O | 43° 29′ 04″ nord, 79° 23′ 00″ ouest | Toronto, avec degrés, minutes et secondes |
{{#invoke:Coordinates|coord|43|29|4.5|N|79|23|0.5|W}} | 43° 29′ 04,5″ N, 79° 23′ 00,5″ O | 43,484583, −79,383472 | 43° 29′ 04,5″ N, 79° 23′ 00,5″ O | 43° 29′ 04,5″ nord, 79° 23′ 00,5″ ouest | Toronto, avec degrés, minutes, secondes et fractions de secondes |
{{#invoke:Coordinates|coord|43/29/N|79/23/W}} | 43° 29′ N, 79° 23′ O | 43,483, −79,383 | 43° 29′ N, 79° 23′ O | 43° 29′ nord, 79° 23′ ouest | Toronto avec les coordonnées en un seul champ séparé par le symbole / |
Paramètres de format pour {{GeoTemplate}}
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}} | 43° 39′ N, 79° 23′ O | Toronto, appel basique |
{{#invoke:Coordinates|coord|43.65|-79.38|scale:3000000}} | 43° 39′ N, 79° 23′ O | 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}} | 40° 41′ 21″ N, 74° 02′ 40″ O | 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}} | 43° 39′ N, 79° 23′ O | 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}} | 43° 39′ N, 79° 23′ O | Toronto, en mentionnant deux paramètres. |
{{#invoke:Coordinates|coord|43.65|-79.38|region:CA}} | 43° 39′ N, 79° 23′ O | 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}} | 9,7, −20 | 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}} | 43° 39′ N, 79° 23′ O | 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 | degrés / minutes / secondes / direction}}
- Exemple
{{#invoke:Coordinates|dms2dec|43/29/4/N}}
: 43.48444{{#invoke:Coordinates|dms2dec|43/29/N}}
: 43.483
Voir aussi
La documentation de ce module est générée par le modèle {{Documentation module}}.
Elle est incluse depuis sa sous-page de documentation. Veuillez placer les catégories sur cette page-là.
Les éditeurs peuvent travailler dans le bac à sable (modifier).
Voir les statistiques d'appel depuis le wikicode sur l'outil wstat et les appels depuis d'autres modules.
--[[
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
coordinate values.
{{#Invoke:Coordinates | dec2dms }} : Simple function for converting decimal
degree values to DMS format.
{{#Invoke:Coordinates | dms2dec }} : Simple function for converting DMS format
to decimal degree format.
]]
math_mod = require( "Module:Math" );
globalFrame = nil
coordinates = {};
--[[ Helper function, replacement for {{coord/display/title}} ]]
function displaytitle (s, notes)
--local l = "[[Geographic coordinate system|Coordinates]]: " .. s
local l = "" .. s
local extracat = ""
if mw.title.getCurrentTitle().nsText == "" then
extracat = "[[Catégorie:Article géolocalisé]]";
end
local co = '<span id="coordinates">' .. l .. notes .. '</span>';
return '<span style="font-size: small;">' .. co .. '</span>' .. extracat;
end
--[[ Helper function, Replacement for {{coord/display/inline}} ]]
function displayinline (s, notes)
return s .. notes
end
--[[ Helper function, used in detecting DMS formatting ]]
local dmsTest = function(first, second)
local concatenated = first:upper() .. second:upper();
return concatenated == "NE" or concatenated == "NO" or concatenated == "NW" or concatenated == "SE" or concatenated == "SO" or concatenated == "SW" or
concatenated == "EN" or concatenated == "ON" or concatenated == "WN" or concatenated == "ES" or concatenated == "OS" or concatenated == "WS"
end
--[[
parseDec
Transforms decimal format latitude and longitude into the a
structure to be used in displaying coordinates
]]
function parseDec( lat, long, format )
local coordinateSpec = {}
local errors = {}
if long == "" or long == nil then
return nil, {{"parseDec", "Missing longitude"}}
end
errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );
coordinateSpec["dec-lat"] = lat;
coordinateSpec["dec-long"] = long;
local mode = coordinates.determineMode( lat, long );
coordinateSpec["dms-lat"] = convert_dec2dms( lat, "N", "S", mode) -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "O", mode) -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dmslong-lat"] = convert_dec2dms( lat, "Nord", "Sud", mode) -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dmslong-long"] = convert_dec2dms( long, "Est", "Ouest", mode) -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
if format ~= "" then
coordinateSpec.default = format
else
coordinateSpec.default = "dec"
end
return coordinateSpec, errors
end
--[[ Helper function, handle optional args. ]]
function optionalArg(arg, suplement)
if arg ~= nil and arg ~= "" then
return arg .. suplement
end
return ""
end
--[[
parseDMS
Transforms degrees, minutes, seconds format latitude and longitude
into the a structure to be used in displaying coordinates
]]
function parseDMS( lat_d, lat_m, lat_s, lat_f, long_d, long_m, long_s, long_f, format )
local coordinateSpec = {}
local errors = {}
lat_f = lat_f:upper();
long_f = string.gsub(long_f:upper(),'W','O');
local lat_flong = 'Nord';
if lat_f == 'S' then
lat_flong = 'Sud';
end
local long_flong = 'Ouest';
if long_f == 'E' then
long_flong = 'Est';
end
-- Check if specified backward
if lat_f == 'E' or lat_f == 'O' or lat_f == 'W' then
local t_d, t_m, t_s, t_f;
t_d = lat_d;
t_m = lat_m;
t_s = lat_s;
t_f = lat_f;
lat_d = long_d;
lat_m = long_m;
lat_s = long_s;
lat_f = long_f;
long_d = t_d;
long_m = t_m;
long_s = t_s;
long_f = t_f;
end
errors = validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, 'parseDMS', true );
if long_d == nil or long_d == "" then
table.insert(errors, {"parseDMS", "Missing longitude" })
end
if lat_m == nil and lat_s == nil and long_m == nil and long_s == nil and #errors == 0 then
if math_mod._precision( lat_d ) > 0 or math_mod._precision( long_d ) > 0 then
if lat_f:upper() == 'S' then
lat_d = '-' .. lat_d;
end
if long_f:upper() == 'O' or long_f:upper() == 'W' then
long_d = '-' .. long_d;
end
return parseDec( lat_d, long_d, format );
end
end
coordinateSpec["dms-lat"] = lat_d.."° "..optionalArg(lat_m,"′ ") .. optionalArg(lat_s,"″ ") .. lat_f
coordinateSpec["dmslong-lat"] = lat_d.."° "..optionalArg(lat_m,"′ ") .. optionalArg(lat_s,"″ ") .. lat_flong
coordinateSpec["dms-long"] = long_d.."° "..optionalArg(long_m,"′ ") .. optionalArg(long_s,"″ ") .. long_f
coordinateSpec["dmslong-long"] = long_d.."° "..optionalArg(long_m,"′ ") .. optionalArg(long_s,"″ ") .. long_flong
coordinateSpec["dec-lat"] = convert_dms2dec(lat_f, lat_d, lat_m, lat_s) -- {{coord/dms2dec|{{{4}}}|{{{1}}}|0{{{2}}}|0{{{3}}}}}
coordinateSpec["dec-long"] = convert_dms2dec(long_f, long_d, long_m, long_s) -- {{coord/dms2dec|{{{8}}}|{{{5}}}|0{{{6}}}|0{{{7}}}}}
if format ~= "" then
coordinateSpec.default = format
else
coordinateSpec.default = "dms"
end
return coordinateSpec, errors
end
--[[
specPrinter
Output formatter. Takes the structure generated by either parseDec
or parseDMS and formats it for inclusion on Wikipedia.
]]
function specPrinter(args, coordinateSpec)
local uriComponents = coordinateSpec["param"]
if uriComponents == "" then
-- RETURN error, should never be empty or nil
return "ERROR param was empty"
end
if args["name"] ~= "" and args["name"] ~= nil then
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
end
local lang=mw.language.getContentLanguage():getCode();
local geodmshtml = '<span class="geo-dms" title="Cartes, vues aériennes et autres données pour cet endroit">'
.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '
.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'
.. '</span>'
local geodmslonghtml = '<span class="geo-dms" title="Cartes, vues aériennes et autres données pour cet endroit">'
.. '<span class="latitude">' .. coordinateSpec["dmslong-lat"] .. '</span> '
.. '<span class="longitude">' ..coordinateSpec["dmslong-long"] .. '</span>'
.. '</span>'
local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
if lat < 0 then
-- FIXME this breaks the pre-existing precision
--geodeclat = coordinateSpec["dec-lat"]:sub(2) .. "°S"
geodeclat = "-" .. coordinateSpec["dec-lat"]:sub(2)
else
--geodeclat = (coordinateSpec["dec-lat"] or 0) .. "°N"
geodeclat = (coordinateSpec["dec-lat"] or 0)
end
local long = tonumber( coordinateSpec["dec-long"] ) or 0
if long < 0 then
-- FIXME does not handle unicode minus
--geodeclong = coordinateSpec["dec-long"]:sub(2) .. "°O"
geodeclong = '-' .. coordinateSpec["dec-long"]:sub(2)
else
--geodeclong = (coordinateSpec["dec-long"] or 0) .. "°E"
geodeclong = (coordinateSpec["dec-long"] or 0)
end
local geodechtml = '<span class="geo-dec" title=Cartes, vues aériennes et autres données pour cet endroit">'
.. geodeclat .. ', '
.. geodeclong
.. '</span>'
local geonumhtml = '<span class="geo">'
.. coordinateSpec["dec-lat"] .. '; '
.. coordinateSpec["dec-long"]
.. '</span>'
local inner;
if coordinateSpec["default"] == "dms" then
inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms" ) .. '">' .. geodmshtml .. '</span>'
.. '<span class="geo-multi-punct"> / </span>'
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';
else
inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms long" ) .. '">' .. geodmslonghtml .. '</span>'
.. '<span class="geo-multi-punct"> / </span>'
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';
end
if args["name"] == "" or args["name"] == nil then
inner = inner .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span></span>'
else
inner = inner .. '<span class="vcard">' .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span>'
.. '<span style="display:none"> (<span class="fn org">'
.. args["name"] .. '</span>)</span></span></span>'
end
return '<span class="plainlinksneverexpand">' .. globalFrame:preprocess(
'[http://toolserver.org/~geohack/geohack.php?pagename={{FULLPAGENAMEE}}&language=' .. lang .. '¶ms=' ..
uriComponents .. ' ' .. inner .. ']') .. '</span>'
end
--[[
Formats any error messages generated for display
]]
function errorPrinter(errors)
local result = ""
for i,v in ipairs(errors) do
local errorHTML = '<strong class="error">Coordinates: ' .. v[2] .. '</strong>'
result = result .. errorHTML .. "<br />"
end
return result
end
--[[
Determine the required CSS class to display coordinates
Usually geo-nondefault is hidden by CSS, unless a user has overridden this for himself
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
]]
function displayDefault(default, mode)
if default == "" then
default = "dec"
end
if default:sub(1,4) == mode:sub(1,4) then
return "geo-default"
else
return "geo-nondefault"
end
end
--[[
Check the input arguments for coord to determine the kind of data being provided
and then make the necessary processing.
]]
function formatTest(args)
local result, errors;
local primary = false;
if args[1] == "" then
-- no lat logic
return errorPrinter( {{"formatTest", "Missing latitude"}} )
elseif args[4] == "" and args[5] == "" and args[6] == "" then
-- dec logic
result, errors = parseDec( args[1], args[2], args['format'] )
if result == nil then
return errorPrinter( errors );
end
result.param = table.concat( {args[1], "_N_", args[2], "_E_", args[3] } );
elseif dmsTest(args[4], args[8]) then
-- dms logic
result, errors = parseDMS( args[1], args[2], args[3], args[4],
args[5], args[6], args[7], args[8], args['format'] )
result.param = table.concat( { args[1], args[2], args[3], args[4], args[5],
args[6], args[7], args[8], args[9] } , '_' );
if args[10] ~= '' then
table.insert( errors, { 'formatTest', 'Extra unexpected parameters' } );
end
elseif dmsTest(args[3], args[6]) then
-- dm logic
result, errors = parseDMS( args[1], args[2], nil, args[3],
args[4], args[5], nil, args[6], args['format'] )
result.param = table.concat( { args[1], args[2], args[3], args[4], args[5],
args[6], args[7] } , '_' );
if args[8] ~= '' then
table.insert( errors, { 'formatTest', 'Extra unexpected parameters' } );
end
elseif dmsTest(args[2], args[4]) then
-- d logic
result, errors = parseDMS( args[1], nil, nil, args[2],
args[3], nil, nil, args[4], args['format'] )
result.param = table.concat( { args[1], args[2], args[3], args[4], args[5] } , '_' );
if args[6] ~= '' then
table.insert( errors, { 'formatTest', 'Extra unexpected parameters' } );
end
else
-- Error
return errorPrinter( {{"formatTest", "Unknown argument format"}} )
end
result.name = args["name"]
local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type', 'scale'}
for _, v in ipairs( extra_param ) do
if (args[v] or '') ~= '' then
table.insert( errors, {'formatTest', 'Parameter: "' .. v .. '=" should be "' .. v .. ':"' } );
end
end
if #errors == 0 then
return specPrinter( args, result )
else
return specPrinter( args, result ) .. " " .. errorPrinter(errors) .. '[[Catégorie:Article posant un problème de coordonnées]]';
end
end
--[[
Helper function, convert decimal latitude or longitude to
degrees, minutes, and seconds format based on the specified precision.
]]
function convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
local coord = tonumber(coordinate) or 0
local postfix
if coord >= 0 then
postfix = firstPostfix
else
postfix = secondPostfix
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
--[[ Helper function, convert decimal to degrees ]]
function convert_dec2dms_d(coordinate)
local d = math_mod._round( coordinate, 0 ) .. "° "
return d .. ""
end
--[[ Helper function, convert decimal to degrees and minutes ]]
function convert_dec2dms_dm(coordinate)
coordinate = math_mod._round( coordinate * 60, 0 );
local m = coordinate % 60;
coordinate = math.floor( (coordinate - m) / 60 );
local d = coordinate % 360 .."° "
return d .. string.format( "%02d′ ", m )
end
--[[ Helper function, convert decimal to degrees, minutes, and seconds ]]
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
--[[
Convert DMS format into a N or E decimal coordinate
]]
function convert_dms2dec(direction, degrees_str, minutes_str, seconds_str)
local degrees = tonumber(degrees_str) or 0
local minutes = tonumber(minutes_str) or 0
local seconds = tonumber(seconds_str) or 0
local factor
if direction == "N" or direction == "E" then
factor = 1
else
factor = -1
end
local precision = 0
if seconds_str ~= nil and seconds_str ~= '' then
precision = 5 + math.max( math_mod._precision(seconds_str), 0 );
elseif minutes_str ~= nil 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
local decimal = factor * (degrees+(minutes+seconds/60)/60)
return string.format( "%." .. precision .. "f", decimal ) -- not tonumber since this whole thing is string based.
end
--[[
Checks input values to for out of range errors.
]]
function validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, source, strong )
local errors = {};
lat_d = tonumber( lat_d ) or 0;
lat_m = tonumber( lat_m ) or 0;
lat_s = tonumber( lat_s ) or 0;
long_d = tonumber( long_d ) or 0;
long_m = tonumber( long_m ) or 0;
long_s = tonumber( long_s ) or 0;
if strong then
if lat_d < 0 then
table.insert(errors, {source, "latitude degrees < 0 with hemisphere flag"})
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
if lat_d > 90 then
table.insert(errors, {source, "latitude degrees > 90"})
end
if lat_d < -90 then
table.insert(errors, {source, "latitude degrees < -90"})
end
if lat_m >= 60 then
table.insert(errors, {source, "latitude minutes >= 60"})
end
if lat_m < 0 then
table.insert(errors, {source, "latitude minutes < 0"})
end
if lat_s >= 60 then
table.insert(errors, {source, "latitude seconds >= 60"})
end
if lat_s < 0 then
table.insert(errors, {source, "latitude seconds < 0"})
end
if long_d >= 360 then
table.insert(errors, {source, "longitude degrees >= 360"})
end
if long_d <= -360 then
table.insert(errors, {source, "longitude degrees <= -360"})
end
if long_m >= 60 then
table.insert(errors, {source, "longitude minutes >= 60"})
end
if long_m < 0 then
table.insert(errors, {source, "longitude minutes < 0"})
end
if long_s >= 60 then
table.insert(errors, {source, "longitude seconds >= 60"})
end
if long_s < 0 then
table.insert(errors, {source, "longitude seconds < 0"})
end
return errors;
end
--[[
dec2dms
Wrapper to allow templates to call dec2dms directly.
Usage:
{{ Invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |
negative_suffix | precision }}
decimal_coordinate is converted to DMS format. If positive, the positive_suffix
is appended (typical N or E), if negative, the negative suffix is appended. The
specified precision is one of 'D', 'DM', or 'DMS' to specify the level of detail
to use.
]]
function coordinates.dec2dms(frame)
globalFrame = frame
local coordinate = frame.args[1]
local firstPostfix = frame.args[2]
local secondPostfix = frame.args[3]
local precision = frame.args[4]
return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
end
--[[
Helper function to determine whether to use D, DM, or DMS
format depending on the precision of the decimal input.
]]
function coordinates.determineMode( value1, value2 )
local precision = math.max( math_mod._precision( value1 ), math_mod._precision( value2 ) );
if precision <= 0 then
return 'd'
elseif precision <= 2 then
return 'dm';
else
return 'dms';
end
end
--[[
dms2dec
Wrapper to allow templates to call dms2dec directly.
Usage:
{{ Invoke:Coordinates | dms2dec | direction_flag | degrees |
minutes | seconds }}
Converts DMS values specified as degrees, minutes, seconds too decimal format.
direction_flag is one of N, S, E, W, and determines whether the output is
positive (i.e. N and E) or negative (i.e. S and W).
]]
function coordinates.dms2dec(frame)
globalFrame = frame
local direction = frame.args[1]
local degrees = frame.args[2]
local minutes = frame.args[3]
local seconds = frame.args[4]
return convert_dms2dec(direction, degrees, minutes, seconds)
end
--[[
coord
Main entry point for Lua function to replace {{coord}}
Usage:
{{ Invoke:Coordinates | coord }}
{{ Invoke:Coordinates | coord | lat | long }}
{{ 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}}.
]]
function coordinates.coord(frame)
globalFrame = frame
local args = frame.args
if args[1] == nil then
local pFrame = frame:getParent();
args = pFrame.args;
for k,v in pairs( frame.args ) do
args[k] = v;
end
end
for i=1,10 do
if args[i] == nil then
args[i] = ""
else
args[i] = args[i]:match( '^%s*(.-)%s*$' ); --remove whitespace
end
end
args['format'] = args['format'] or '';
local contents = formatTest(args)
local Notes = args.notes or ""
local Display = string.lower(args.display or "inline")
if Display == '' then
Display = 'inline';
end
local text = ''
if string.find( Display, 'inline' ) ~= nil or Display == 'i' or
Display == 'it' or Display == 'ti' then
text = displayinline(contents, Notes)
end
if string.find( Display, 'title' ) ~= nil or Display == 't' or
Display == 'it' or Display == 'ti' then
text = text .. displaytitle(contents, Notes)
end
return text
end
function coordinates.Coord(frame)
return coordinates.coord(frame)
end
return coordinates