Difference between revisions of "Module:Infobox road/length"
Jump to navigation
Jump to search
test>Rschen7754 (emergency revert) |
test>Happy5214 (Fixing typo that caused conversion error) |
||
| Line 1: | Line 1: | ||
local p = {} | local p = {} | ||
| + | |||
| + | local math = require "Module:Math" | ||
local function getLengths(args, num) | local function getLengths(args, num) | ||
| − | |||
local precision = math._precision | local precision = math._precision | ||
local round = math._round | local round = math._round | ||
| + | local format = math.precision_format | ||
local lengths = {} | local lengths = {} | ||
local km = args["length_km" .. num] or '' | local km = args["length_km" .. num] or '' | ||
local mi = args["length_mi" .. num] or '' | local mi = args["length_mi" .. num] or '' | ||
| + | local prec = tonumber(args["length_round" .. num]) | ||
if '' == km then | if '' == km then | ||
local n = tonumber(mi) | local n = tonumber(mi) | ||
| − | + | prec = prec or precision(mi) | |
if n then | if n then | ||
| − | + | local data = {args = {tostring(n * 1.609344), tostring(prec)}} | |
| + | lengths.km = format(data) | ||
else | else | ||
| − | lengths.km = 0 | + | lengths.km = '0' |
end | end | ||
else | else | ||
| − | lengths.km = | + | prec = prec or precision(km) |
| + | local data = {args = {km, tostring(prec)}} | ||
| + | lengths.km = format(data) | ||
lengths.orig = "km" | lengths.orig = "km" | ||
lengths.comp = "mi" | lengths.comp = "mi" | ||
| Line 23: | Line 29: | ||
if '' == mi then | if '' == mi then | ||
local n = tonumber(km) | local n = tonumber(km) | ||
| − | + | prec = prec or precision(km) | |
if n then | if n then | ||
| − | + | local data = {args = {tostring(n / 1.609344), tostring(prec)}} | |
| + | lengths.mi = format(data) | ||
else | else | ||
| − | lengths.mi = 0 | + | lengths.mi = '0' |
end | end | ||
else | else | ||
| − | lengths.mi = | + | prec = prec or precision(mi) |
| + | local data = {args = {mi, tostring(prec)}} | ||
| + | lengths.mi = format(data) | ||
lengths.orig = "mi" | lengths.orig = "mi" | ||
lengths.comp = "km" | lengths.comp = "km" | ||
| Line 41: | Line 50: | ||
local notes = args["length_notes" .. num] or '' | local notes = args["length_notes" .. num] or '' | ||
local lengths = getLengths(args, num) | local lengths = getLengths(args, num) | ||
| − | + | ||
local first, second | local first, second | ||
if lengths.orig == "mi" then | if lengths.orig == "mi" then | ||
| − | first = | + | first = lengths.mi |
| − | second = | + | second = lengths.km |
else | else | ||
| − | first = | + | first = lengths.km |
| − | second = | + | second = lengths.mi |
end | end | ||
if first == '0' and second == '0' then | if first == '0' and second == '0' then | ||
Revision as of 06:29, 25 August 2013
Documentation for this module may be created at Module:Infobox road/length/doc
local p = {}
local math = require "Module:Math"
local function getLengths(args, num)
local precision = math._precision
local round = math._round
local format = math.precision_format
local lengths = {}
local km = args["length_km" .. num] or ''
local mi = args["length_mi" .. num] or ''
local prec = tonumber(args["length_round" .. num])
if '' == km then
local n = tonumber(mi)
prec = prec or precision(mi)
if n then
local data = {args = {tostring(n * 1.609344), tostring(prec)}}
lengths.km = format(data)
else
lengths.km = '0'
end
else
prec = prec or precision(km)
local data = {args = {km, tostring(prec)}}
lengths.km = format(data)
lengths.orig = "km"
lengths.comp = "mi"
end
if '' == mi then
local n = tonumber(km)
prec = prec or precision(km)
if n then
local data = {args = {tostring(n / 1.609344), tostring(prec)}}
lengths.mi = format(data)
else
lengths.mi = '0'
end
else
prec = prec or precision(mi)
local data = {args = {mi, tostring(prec)}}
lengths.mi = format(data)
lengths.orig = "mi"
lengths.comp = "km"
end
return lengths
end
function p._length(num, args)
local ref = args["length_ref" .. num] or ''
local notes = args["length_notes" .. num] or ''
local lengths = getLengths(args, num)
local first, second
if lengths.orig == "mi" then
first = lengths.mi
second = lengths.km
else
first = lengths.km
second = lengths.mi
end
if first == '0' and second == '0' then
return
end
local text = {first, " ", lengths.orig, ref, " (", second, " ", lengths.comp, ")", }
if notes ~= '' then
table.insert(text, "<br><small>" .. notes .. "</small>")
end
return table.concat(text)
end
function p.length(frame)
local pframe = frame:getParent()
local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
local args = pframe.args -- the arguments passed TO the template, in the wikitext that transcludes the template
local num = config.num or ''
return p._length(num, args)
end
return p