Módulo:RaDec
A documentação para este módulo pode ser criada na página Módulo:RaDec/doc
--[[
* Módulo para processar um ponto de ascensão reta ou declinação
*
* Imported from https://it.wikipedia.org/w/index.php?title=Modulo:RaDec&oldid=83380991
]]--
require('strict')
local getArgs = require('Module:Arguments').getArgs
local p = {}
-- Funzione di utilità per altri moduli:
-- parsifica il testo generato dal Template:RA (ascensione retta) e
-- restituisce una table con chiavi 'h', 'm' e 's' di tipo number.
function p.parseRA(text)
local h, m, s
text = mw.text.trim(mw.text.unstrip(text)):gsub('−', '-'):gsub(',', '.')
h, m, s = text:match('^(%d+)<sup>h</sup> (%d+)<sup>m</sup> ([%d%.]+)<sup>s</sup>$')
if not h then
h, m = text:match('^(%d+)<sup>h</sup> (%d+)<sup>m</sup> :$')
s = 0
end
if not h then
h = text:match('^(%d+)<sup>h</sup> :$')
m, s = 0, 0
end
h, m, s = tonumber(h), tonumber(m), tonumber(s)
return (h and m and s) and { h = h, m = m, s = s } or nil
end
-- Funzione di utilità per altri moduli:
-- parsifica il testo generato dal Template:DEC (declinazione) e
-- restituisce una table con chiavi 'd', 'm' e 's' di tipo number.
function p.parseDEC(text)
local d, m, s
text = mw.text.trim(mw.text.unstrip(text)):gsub('−', '-'):gsub(',', '.')
d, m, s = text:match('^([+-]?%d+)° (%d+)′ ([%d%.]+)″$')
if not d then
d, m = text:match('^([+-]?%d+)° (%d+)′ :$')
s = 0
end
if not d then
d = text:match('^([+-]?%d+)° :$')
m, s = 0, 0
end
d, m, s = tonumber(d), tonumber(m), tonumber(s)
return (d and m and s) and { d = d, m = m, s = s } or nil
end
-- Entry-point per il template {{RA}}
function p.RA(frame)
local args = getArgs(frame, { parentOnly = true })
local h, m, s = args[1] and (args[1] .. '<sup>h</sup> ') or '', args[2] or ':', args[3] or ':'
m = m .. (m == ':' and '' or '<sup>m</sup> ')
s = s .. (s == ':' and '' or '<sup>s</sup>')
return h .. m .. (m == ':' and '' or s)
end
-- Entry-point per il template {{DEC}}
function p.DEC(frame)
local args = getArgs(frame, { parentOnly = true })
local d, m, s = args[1] and (args[1] .. '° ') or '', args[2] or ':', args[3] or ':'
m = m .. (m == ':' and '' or '′ ')
s = s .. (s == ':' and '' or '″')
return d .. m .. (m == ':' and '' or s)
end
return p