Mô đun:Coordinates/sandbox

--
Mô đun này hỗ trợ 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("Mô đun: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()

-- Hàm hỗ trợ thay thế
local function displaytitle(s, notes)
local l = "Tọa độ: " .. s
local co = .. l .. notes .. ;
return .. co .. ;
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 = (first .. second):upper()
return s:find('^[NS][EW]$') or s:find('^[EW][NS]$')
end

-- Wrapper function to grab args, see Mô đun:Arguments for this function's documentation.
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

-- 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 .
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

return ..
'[' .. 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
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
ret[i] = args[i] or
end
return table.concat(ret, '_')
end

if not args[1] then
-- no lat logic
return errorPrinter( )
elseif 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], 'N', args[2] 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 string.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 <= 9 do args[count] = (args[count] or ); count = count+1 end
end
if isInTitle(Display) and not page_title.isTalkPage and page_title.subpageText ~= 'doc' and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end
args.notes, args.format, args.display = nil
text = text .. coord_wrapper(args)
end
return text
end

-- parameter }}

Valid values for the second parameter are: lat (signed integer), long (signed integer), type, scale, dim, region, globe, source

function coordinates.coord2text(frame)
if frame.args[1] or frame.args[2] or not frame.args[2] then return nil end
frame.args[2] = mw.text.trim(frame.args[2])
if frame.args[2] 'lat' or frame.args[2] 'long' then
local result, negative = mw.text.split((mw.ustring.match(frame.args[1],'[%.%d]+°[NS] [%.%d]+°[EW]') or ), ' ')
if frame.args[2] == 'lat' then
result, negative = result[1], 'S'
else
result, negative = result[2], 'W'
end
result = mw.text.split(result, '°')
if result[2] == negative then result[1] = '-'..result[1] end
return result[1]
else
return mw.ustring.match(frame.args[1], 'params=.-_'..frame.args[2]..':(.-)[ _]')
end
end

-- parameter:value | parameter:value | … }}

Do not make Geohack unhappy by inserting something which isn't mentioned in the documentation.

function coordinates.coordinsert(frame)
for i, v in ipairs(frame.args) do
if i ~= 1 then
if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or )) then frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ') end
end
end
return frame.args[1]
end

return coordinates