Mô đun:Coordinates

--[=[
Mô đun này hỗ trợ Bản mẫu:Coord và các bản mẫu liên quan. Nó cung cấp vài
phương thức, nhất là:

: Hàm tổng quát để định dạng và hiển thị các giá
trị tọa độ.

: Hàm đơn giản để chuyển đổi các giá trị thập
phân ra định dạng độ-phút-giây.

: Hàm đơn giản để chuyển đổi định dạng
độ-phút-giây ra định dạng độ thập phân.

: Xuất địa chỉ của các công cụ.

]=]

require('strict')

local math_mod = require("Module:Math")
local coordinates = {};

local current_page = mw.title.getCurrentTitle()
local page_name = mw.uri.encode( current_page.prefixedText, 'WIKI' );
local coord_link = '//tools.wmflabs.org/geohack/geohack.php?language=vi&pagename=' .. page_name .. '&params='

-- Định dạng các số theo quy tắc tiếng Việt (thí dụ 1.234,56).
local lang = mw.getContentLanguage()

-- Chuyển đổi đối số thành các giá trị tiếng Anh.
local function delocalizeArguments(args)
-- Chuyển vị bảng đối số
local transposedArgs = {}
for i, arg in ipairs(args) do
transposedArgs[mw.ustring.upper(arg)] = i
end

if transposedArgs["B"] ~= nil then
args[transposedArgs["B"]] = "N"
end
-- “N” có thể có nghĩa hướng nam trong tiếng Việt hoặc hướng bắc trong tiếng Anh.
if transposedArgs["N"] ~= nil and (transposedArgs["Đ"] ~= nil or transposedArgs["T"] ~= nil) then
args[transposedArgs["N"]] = "S"
end
if transposedArgs["Đ"] ~= nil then
args[transposedArgs["Đ"]] = "E"
end
if transposedArgs["T"] ~= nil then
args[transposedArgs["T"]] = "W"
end
end

-- Hàm hỗ trợ thay thế
local function displaytitle(s, notes)
local htmlTitle = .. s .. notes .. ;
return mw.getCurrentFrame():extensionTag('indicator', tostring(htmlTitle), { name = 'coordinates' })
end

-- Hàm hỗ trợ thay thế
local function displayinline(s, notes)
return s .. notes
end

-- Hàm hỗ trợ được sử dụng để nhận ra định dạng độ-phút-giây.
local function dmsTest(first, second)
if type(first) ~= 'string' or type(second) ~= 'string' then
return nil
end
local s = mw.ustring.upper(first .. second)
if s "NE" or s "NW" or s "SE" or s "SW" or
s "EN" or s "WN" or s "ES" or s "WS" or
s "BĐ" or s "BT" or s "NĐ" or s "TN" or
s "ĐB" or s "TB" or s "ĐN" or s "NT" then
return true
end
return false
end

-- Hàm bọc để lấy các tham số; xem tài liệu của hàm này tại Mô đun:Arguments.
local function makeInvokeFunc(funcName)
return function (frame)
local args = require('Mô đun:Arguments').getArgs(frame, {
wrappers = 'Bản mẫu:Tọa độ'
})
return coordinates[funcName](args, frame)
end
end

-- Hàm hỗ trợ để xử lý các đối số tùy chọn.
local function optionalArg(arg, suplement)
if arg ~= nil and arg ~= "" then
return arg .. suplement
end
end

-- Helper function, handle optional args.
local function optionalArg(arg, supplement)
return arg and arg .. supplement or
end

--
Định dạng những thông báo lỗi cần hiển thị.

local function errorPrinter(errors)
local result = ""
for i,v in ipairs(errors) do
local errorHTML = 'Tọa độ: ' .. v[2] ..
result = result .. errorHTML .. ""
end
return result
end

--[=[
Tính lớp CSS cần để hiển thị tọa độ.

Bảng kiểu CSS thường ẩn geo-nondefault, trừ khi một nguời dùng đã ghi đè thiết lập này.
default là chế độ do nguời dùng định rõ khi nhúng Bản mẫu:coord.
mode là chế độ hiển thị (dec hoặc dms) dùng để tính lớp CSS.
]=]
local function displayDefault(default, mode)
if default == "" then
default = "dec"
end

if default == mode then
return "geo-default"
else
return "geo-nondefault"
end
end

--
specPrinter

Hàm định dạng giá trị cho ra. Lấy cấu trúc do parseDec hoặc parseDMS tạo ra và
định dạng nó để nhúng vào Wikipedia.

local function specPrinter(args, coordinateSpec)
local uriComponents = coordinateSpec["param"]
if uriComponents == "" then
-- RETURN error, should never be empty or nil
return "LỖI tham số trống"
end
if args["name"] then
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
end

local geodmshtml =
.. .. coordinateSpec["dms-lat"] .. ' '
.. ..coordinateSpec["dms-long"] ..
..

local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
local geodeclat
if lat '
.. geodeclat .. ' '
.. geodeclong
..

local geonumhtml =
.. coordinateSpec["dec-lat"] .. '; '
.. coordinateSpec["dec-long"]
..

local inner = .. geodmshtml ..
.. '&xfeff; / &xfeff;'
.. ;

if not args["name"] then
inner = inner .. geodechtml
.. '&xfeff; / ' .. geonumhtml ..
else
inner = inner .. .. geodechtml
.. '&xfeff; / ' .. geonumhtml ..
.. '&xfeff; ('
.. args["name"] .. ')'
end

local stylesheetLink = 'Module:Coordinates/styles.css'
return mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = stylesheetLink }
} .. '[' .. coord_link .. uriComponents ..
' ' .. inner .. ']'
end

-- Hàm hỗ trợ chuyển đổi số thập phân thành độ.
local function convert_dec2dms_d(coordinate)
local d = math_mod._round( coordinate, 0 ) .. "°"
return d .. ""
end

-- Hàm hỗ trợ chuyển đổi số thập phân thành độ và phút.
local 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

-- Hàm hỗ trợ chuyển đổi số thập phân thành độ, phút, và giây.
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

--
Hàm hỗ trợ chuyển đổi vĩ độ hoặc kinh độ thập phân thành định dạng độ-phút-giây
theo độ chính xác được định rõ.

local function convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
local coord = tonumber(coordinate)
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

--
Chuyển đổi định dạng độ-phút-giây thành tọa độ thập phân B hay Đ.

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
direction = mw.ustring.gsub(direction, '^ (.-) $', '%1');
if direction "S" or direction "W" then
factor = -1
end

local precision = 0
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

local decimal = factor (degrees+(minutes+seconds/60)/60)
return string.format( "%." .. precision .. "f", decimal ) -- not tonumber since this whole thing is string based.
end

--
Kiểm tra các giá trị cho vào để nhận ra lỗi không đúng phạm vi.

local 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 180 then
table.insert(errors, {source, "longitude degrees > 180 with hemisphere flag"})
end
]]
end

if lat_d > 90 then
table.insert(errors, {source, "vĩ độ > 90"})
end
if lat_d = 60 then
table.insert(errors, {source, "vĩ phút >= 60"})
end
if lat_m = 60 then
table.insert(errors, {source, "vĩ giây >= 60"})
end
if lat_s = 360 then
table.insert(errors, {source, "kinh độ >= 360"})
end
if long_d = 60 then
table.insert(errors, {source, "kinh phút >= 60"})
end
if long_m = 60 then
table.insert(errors, {source, "kinh giây >= 60"})
end
if long_s 0 or math_mod._precision( long_d ) > 0 then
if lat_f:upper() == 'S' then
lat_d = '-' .. lat_d;
end
if long_f:upper() == 'W' then
long_d = '-' .. long_d;
end

return parseDec( lat_d, long_d, format );
end
end

-- Việt hóa các chữ bán cầu.
local vietFlags = {N = "B", S = "N", W = "T", E = "Đ"}
local viet_lat_f = vietFlags[lat_f:upper()] or lat_f
local viet_long_f = vietFlags[long_f:upper()] or long_f

-- Định dạng các số thập phân.
if tonumber(lat_s) then lat_s = lang:formatNum(tonumber(lat_s)) end
if tonumber(long_s) then long_s = lang:formatNum(tonumber(long_s)) end

coordinateSpec["dms-lat"] = lat_d.."°"..optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. viet_lat_f
coordinateSpec["dms-long"] = long_d.."°"..optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. viet_long_f
coordinateSpec["dec-lat"] = convert_dms2dec(lat_f, lat_d, lat_m, lat_s) -- }|}|0}|0}}}
coordinateSpec["dec-long"] = convert_dms2dec(long_f, long_d, long_m, long_s) -- }|}|0}|0}}}

if format then
coordinateSpec.default = format
else
coordinateSpec.default = "dms"
end

return coordinateSpec, errors, backward
end

--
Kiểm tra các đối số cho vào để nhận ra kiểu dữ liệu được cung cấp và xử lý đúng
cách.

local function formatTest(args)
local result, errors
local backward, primary = false, false

local function getParam(args, lim)
local ret = {}
for i = 1, lim do
if args[i] == nil then
ret[i] =
else
ret[i] = mw.ustring.match(args[i], '^%s(.-)%s$' ); --remove whitespace

-- Biến đổi thành định dạng số tiếng Anh.
-- CHO RẰNG: Các giá trị số không bao giờ tới 1.000.
ret[i] = ret[i]:gsub(",", ".", 1)
end
end
return table.concat(ret, '_')
end

if not args[1] then
-- no lat logic
return errorPrinter( )
end

args[1] = args[1]:gsub(",", ".", 1)
if not tonumber(args[1]) then
-- bad lat logic
return errorPrinter( )
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
result.param = table.concat({args[1]:gsub(",", ".", 1), 'N', args[2]:gsub(",", ".", 1) 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', 'Tham số dư'})
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', 'Tham số dư'})
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', 'Tham số dư'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 5)
else
-- Error
return errorPrinter()
end
result.name = args.name

local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type'}
for _, v in ipairs(extra_param) do
if args[v] then
table.insert(errors, {'formatTest', 'Tham số: “' .. v .. '=” cần phải là “' .. v .. ':”' })
end
end

local ret = specPrinter(args, result)
if errors > 0 then
ret = ret .. ' ' .. errorPrinter(errors) ..
end
return ret, backward
end

--
Xếp vào các thể loại theo dõi Wikidata.

local function makeWikidataCategories()
local ret
if mw.wikibase and current_page.namespace == 0 then
local entity = mw.wikibase.getEntityObject()
if entity and entity.claims and entity.claims.P625 and entity.claims.P625[1] then
local snaktype = entity.claims.P625[1].mainsnak.snaktype
if snaktype == 'value' then
-- coordinates exist both here and on Wikidata, and can be compared.
ret = 'Tọa độ trên Wikidata'
elseif snaktype == 'somevalue' then
ret = 'Tọa độ trên Wikidata có giá trị không rõ'
elseif snaktype == 'novalue' then
ret = 'Tọa độ trên Wikidata không có giá trị'
end
else
-- We have to either import the coordinates to Wikidata or remove them here.
ret = 'Tọa độ không có sẵn trên Wikidata'
end
end
if ret then
return mw.ustring.format(, ret)
else
return
end
end

--
link

Hàm đơn giản xuất địa chỉ tọa độ cho những mục đích khác.

Cách sử dụng:



function coordinates.link(frame)
return coord_link;
end

--
dec2dms

Hàm bọc cho phép các bản mẫu gọi dec2dms trực tiếp.

Cách sử dụng:


decimal_coordinate được chuyển đổi thành định dạng độ-phút-giây. Nếu là số
dương, hậu tố cho số dương được bổ sung (thường là N hay E); nếu là số dương,
hậu tố cho số dương được bổ sung. Độ chính xác định rõ mức chi tiết là một trong
“D”, “DM”, hay “DMS”.

coordinates.dec2dms = makeInvokeFunc('_dec2dms')
function coordinates._dec2dms(args)
local coordinate = args[1]
local firstPostfix = args[2] or
local secondPostfix = args[3] or
local precision = args[4] or

return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
end

--
Hàm hỗ trợ quyết định sử dụng định dạng độ, độ-phút, hay độ-phút-giây, tùy độ
chính xác của giá trị thập phân cho vào.

function coordinates.determineMode( value1, value2 )
local precision = math.max( math_mod._precision( value1 ), math_mod._precision( value2 ) );
if precision = 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 ') then
local namestr = frame.args.name
frame.args[1] = mw.ustring.gsub(frame.args[1],
'()(]>[^<>]]>[^<>]]>[^<>])()',
'%1%2&xfeff; (' .. namestr .. ')%3')
frame.args[1] = mw.ustring.gsub(frame.args[1], '(&params=[^&"<>%[%] ]) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ')
end
end
return frame.args[1]
end

return coordinates