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
		transposedArgsmw.ustring.upper(arg) = i
	end
	
	if transposedArgs"B" ~= nil then
		argstransposedArgs"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
		argstransposedArgs"N" = "S"
	end
	if transposedArgs"Đ" ~= nil then
		argstransposedArgs"Đ" = "E"
	end
	if transposedArgs"T" ~= nil then
		argstransposedArgs"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 coordinatesfuncName(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 độ: ' .. v2 .. 
		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 .. 
				.. '﻿ / ﻿'
				.. ;
	if not args"name" then
		inner = inner .. geodechtml 
				.. '﻿ / ' .. geonumhtml .. 
	else
		inner = inner ..  .. geodechtml 
				.. '﻿ / ' .. geonumhtml .. 
				.. '﻿ ('
				.. 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 = vietFlagslat_f:upper() or lat_f
	local viet_long_f = vietFlagslong_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) -- 
	coordinateSpec"dec-long" = convert_dms2dec(long_f, long_d, long_m, long_s) -- 
	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 argsi == nil then
				reti = 
			else
				reti = mw.ustring.match(argsi, '^%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.
				reti = reti:gsub(",", ".", 1)
			end
		end
		return table.concat(ret, '_')
	end
	
	if not args1 then
		-- no lat logic
		return errorPrinter(  )
	end
	
	args1 = args1:gsub(",", ".", 1)
	if not tonumber(args1) then
		-- bad lat logic
		return errorPrinter(  )
	elseif not args4 and not args5 and not args6 then
		-- dec logic
		result, errors = parseDec(args1, args2, args.format)
		if not result then
			return errorPrinter(errors);
		end
		result.param = table.concat({args1:gsub(",", ".", 1), 'N', args2:gsub(",", ".", 1) or , 'E', args3 or }, '_')
	elseif dmsTest(args4, args8) then
		-- dms logic
		result, errors, backward = parseDMS(args1, args2, args3, args4, 
			args5, args6, args7, args8, args.format)
		if args10 then
			table.insert(errors, {'formatTest', 'Tham số dư'})
		end
		if not result then
			return errorPrinter(errors)
		end
		result.param = getParam(args, 9)
	elseif dmsTest(args3, args6) then
		-- dm logic
		result, errors, backward = parseDMS(args1, args2, nil, args3, 
			args4, args5, nil, args6, args'format')
		if args8 then
			table.insert(errors, {'formatTest', 'Tham số dư'})
		end
		if not result then
			return errorPrinter(errors)
		end
		result.param = getParam(args, 7)
	elseif dmsTest(args2, args4) then
		-- d logic
		result, errors, backward = parseDMS(args1, nil, nil, args2, 
			args3, nil, nil, args4, args.format)
		if args6 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 argsv 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) .. 'Thể loại:Trang có thẻ tọa độ hỏng'
	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.P6251 then
			local snaktype = entity.claims.P6251.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('Thể loại:%s', 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:
	 link 
	
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 = args1
	local firstPostfix = args2 or 
	local secondPostfix = args3 or 
	local precision = args4 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, (argscount or )); count = count-1 end
			for i, v in ipairs(tmp) do argsi = v end
		else
			while count ') then
			local namestr = frame.args.name
			frame.args1 = mw.ustring.gsub(frame.args1, 
				'()(*>^**>^**>^*)()', 
				'%1%2﻿ (' .. namestr .. ')%3')
			frame.args1 = mw.ustring.gsub(frame.args1, '(&params=^&"%% *) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ')
		end
	end
	return frame.args1
end
return coordinates