Wikipedia

Modulo:Infobox nave: differenze tra le versioni

Naviga nella cronologia in modo interattivo
← Differenza precedente
Contenuto cancellato Contenuto aggiunto
Moroboshi (discussione | contributi)
75 152 modifiche
r
arrotondamento eccessivo
 
(17 versioni intermedie di 2 utenti non mostrate)
Riga 1:
local p = {}
local getArgs = require('Module:Arguments').getArgs
local error_flag = false
 
---============================================================
-- Save argument in table
---============================================================
local function dump(t, ...)
local args = {...}
Line 15 ⟶ 19:
local pow = idp or 0
if idp then
local mult = 10^idppow
local adder = (num >= 0 and 0.5) or -0.5
return math.floor(num * mult + adder) / mult
Line 23 ⟶ 27:
 
---============================================================
-- arrotonda in base all'ordine di grandezza: 11111->11110, 1111->1111, 111->111,1
-- Autorounding based on the magnitude of value
---============================================================
local function round_auto(num)
local base = - math.floor(math.log10(math.abs(num))-1) + 3
if base < -3 then base = -3 end
return round(num, base)
end
Line 44 ⟶ 49:
end
 
---============================================================
local function get_value(s)
-- Convert string to number ("," are considered as ".")
---============================================================
local function get_value(txt)
local s = txt
if s then
s = s:gsub("%.(%d%d%d)", "%1" )
local try_convert = s:gsub(",", ".")
return tonumber(try_convert)
end
end
 
 
---============================================================
-- Format speeda andnumber convertas fromstring knotsreplacin to"." km/hwith (or"," and viceversa)adding
-- no breaking space as separator between thousands
---============================================================
function p.speed(frame)
local args = getArgs(frame)
local spd_kn = args[1]
local spd_kmh = args[2]
local spd_type = args[3]
if spd_kmh == nil and spd_kn == nil then
return ''
elseif spd_kmh ==nil and spd_kn ~= nil then
local kn = tonumber(spd_kn)
if kn then
spd_kmh = sep_thousand(tostring(round_auto(1.852*kn)))
end
else
local kmh = tonumber(spd_kmh)
if kmh then
spd_kn = sep_thousand(tostring(round_auto(kmh/1.852)))
end
end
local out_kn = spd_kn and (spd_kn .. "&nbsp;[[Nodo (unità di misura)|nodi]]")
local out_kmh = spd_kmh and (spd_kmh .. "&nbsp;[[Chilometro orario|km/h]]" )
local out
local out = (spd_type and spd_type .. ":&nbsp;") or ''
if out_kn and out_kmh then
out = out .. out_kn .. " (" .. out_kmh .. ")"
elseif out_kn then
out = out .. out_kn
else
out = out .. out_kmh or ''
end
return out
end
 
local function format_value(value)
if value then
Line 96 ⟶ 73:
end
 
---============================================================
local function format_m(m1_raw, m2_raw, factor, measure_type, m1_unit, m2_unit, check_error)
-- Return formatted error message and set error_flag to true
---============================================================
local function add_error(ignore_error, msg)
if ignore_error then return '' end
error_flag = true
return '<sup class="error" style="font-size:small;">' .. msg .. '</sup>'
end
 
local function format_m(m1_raw, m2_raw, factor, ignore_error)
if not (m1_raw or m2_raw) then
return
Line 112 ⟶ 98:
m1_formatted = format_value(tostring(m1_value))
elseif m1_raw then
m1_formatted = m1_raw --.. (check_error andadd_error(ignore_error, error_message"Richiesto orun ''numero")
end
if m2_value then
m2_formatted = format_value(tostring(m2_value))
elseif m2_raw then
m2_formatted = m2_raw --.. add_error(check_errorignore_error, and"Richiesto error_messageun or ''numero")
end
return m1_formatted, m2_formatted
end
 
---============================================================
-- Format speed and convert from knots to km/h (or viceversa)
---============================================================
function p.speed(frame)
local args = getArgs(frame, {frameOnly = true})
local spd_kn = args[1]
local spd_kmh = args[2]
local spd_type = args[3]
if spd_kmh == nil and spd_kn == nil then return '' end
kn_formatted, kmh_formatted = format_m(spd_kn, spd_kmh, 1.852, true)
local out = {}
if spd_type then dump(out, spd_type, ":&nbsp;") end
if kn_formatted then dump(out, kn_formatted, "&nbsp;[[Nodo (unità di misura)|nodi]]") end
if kmh_formatted then
if kn_formatted then dump(out, " (") end
dump(out, kmh_formatted, "&nbsp;[[Chilometro orario|km/h]]")
if kn_formatted then dump(out, ")") end
end
return table.concat(out)
end
 
---============================================================
-- Format range data (knots to km/h and nmi to km, or viceversa)
---============================================================
function p.range(frame)
local args = getArgs(frame)
Line 131 ⟶ 141:
local range_kmh = args[5]
local out = {}
local nmi_formatted, km_formatted = format_m(range_nmi, range_km, 01.539957, "distanza", "miglia marine", "km"852)
local kn_formatted, kmh_formatted = format_m(range_kn, range_kmh, 1.852, "velocità", "nodi", "km/h")
if range_type then dump(out, range_type, ":") end
if nmi_formatted then
dump(out, nmi_formatted, "&nbsp; [[Miglio nautico|miglia]]" )
if kn_formatted then
dump(out, " a ", kn_formatted, "&nbsp;[[nodo (unità di misura)|nodi]]")
Line 140 ⟶ 151:
end
if km_formatted then
if kn_formattednmi_formatted then dump(out, " (") end
dump(out, "km_formatted, ("&nbsp;[[chilometro|km]]" )
end
dump(out, km_formatted, "&nbsp; [[chilometro|km]]" )
if kmh_formatted then
dump(out, " a ", kmh_formatted, "&nbsp;[[chilometro orario|km/h]]")
end
if kn_formatednmi_formatted then dump (out, ")") end
end
dump (out, ")")
-- add category error if necessary
if error_flag then
local current_page = mw.title.getCurrentTitle()
if current_page.namespace == 0 then
dump(out, "[[Categoria:Errori di compilazione del template Infobox nave]]")
end
end
Line 154 ⟶ 168:
end
 
---============================================================
-- Format a generic list of measure
---============================================================
function p.measure(frame)
local args = getArgs(frame, {parentOnly = true})
local parameters = getArgs(frame, {frameOnly = true})
local base_arg = parameters[1]
local base_type = parameters[2] or ''
local um = parameters[3]
um = (um and ('&nbsp;' .. um)) or ''
if not base_arg then return end
local elements = {}
local value_txt = args[base_arg]
if not value_txt then return end
local value = get_value(value_txt)
if value then value_txt = format_value(tostring(value)) end
local value_type = args[base_type]
value_type = (value_type and (value_type .. ": ")) or ''
elements[1] = value_type .. value_txt .. um
local n = 2
while true do
local nchar = tostring(n)
value_txt = args[base_arg .. nchar]
if value_txt then
value = get_value(value_txt)
if value then value_txt = format_value(tostring(value)) end
value_type = args[base_type .. nchar]
value_type = (value_type and (value_type .. ": ")) or ''
elements[#elements+1] = value_type .. value_txt .. um
n = n + 1
else
break
end
end
if #elements == 1 then
return elements[1]
else
return '<UL><LI>' .. mw.text.listToText(elements, '</LI>\n<LI>', '</LI>\n<LI>') .. '</LI>\n</UL>'
end
end
return p
Estratto da "https://it.wikipedia.org/wiki/Modulo:Infobox_nave"