Mô đun:Location map

require('strict')
local p = {}
local argByViArg = {
	khung = "border",
	"chú thích" = "caption",
	"nhãn" = "label",
	"trôi" = "float",
	"rộng" = "width",
	"rộng mặc định" = "default_width",
	"địa hình nổi" = "relief",
	"BD thay thế" = "AlternativeMap",
	"hình phủ" = "overlay_image",
	"kích thước nhãn" = "label_size",
	"rộng nhãn" = "label_width",
	"điểm" = "mark",
	"kích thước điểm" = "marksize",
	"vị trí" = "position",
	"màu nền" = "background",
	"liên kết" = "link",
	"vĩ" = "lat_dir",
	"vĩ độ" = "lat_deg",
	"vĩ phút" = "lat_min",
	"vĩ giây" = "lat_sec",
	"kinh độ" = "lon_deg",
	"kinh phút" = "lon_min",
	"kinh giây" = "lon_sec",
	"kinh" = "lon_dir",
	"toàn vĩ độ" = "lat",
	"toàn kinh độ" = "long",
}
local rawGetArgs = require('Mô đun:Arguments').getArgs
local getArgs = function (frame, options)
	local args = rawGetArgs(frame, options)
	
	if args.lon_dir == "Đ" or args.lon_dir == "đ" or args.lon_dir == "T" or args.lon_dir == "t" then
		if args.lat_dir == "B" or args.lat_dir == "B" then args.lat_dir = "N"
		elseif args.lat_dir == "N" or args.lat_dir == "n" then args.lat_dir = "S"
		end
	end
	if args.lon_dir == "Đ" or args.lon_dir == "đ" then args.lon_dir = "E"
	elseif args.lon_dir == "T" or args.lon_dir == "t" then args.lon_dir = "W"
	end
	
	for viArgName, argName in pairs(argByViArg) do
		if argsviArgName then
			argsargName = argsviArgName
		end
	end
	
	return args
end
local function round(n, decimals)
	local pow = 10^(decimals or 0)
	return math.floor(n * pow + 0.5) / pow
end
function p.getMapParams(map, frame)
	if not map then
		error('Cần định rõ tên của trang định rõ bản đồ định vị để sử dụng', 2)
	end
	local moduletitle = mw.title.new('Mô đun:Location map/data/' .. map)
	if not moduletitle then
		error(string.format('%q không phải là tên hợp lệ của trang định rõ bản đồ định vị', map), 2)
	elseif moduletitle.exists then
		local mapData = mw.loadData('Mô đun:Location map/data/' .. map)
		return function(name, params)
			if name == nil then
				return 'Mô đun:Location map/data/' .. map
			elseif mapDataname == nil then
				return 
			elseif params then
				return mw.message.newRawMessage(tostring(mapDataname), unpack(params)):plain()
			else
				return mapDataname
			end
		end
	elseif mw.title.new('Bản mẫu:Bản đồ định vị ' .. map).exists then
		local cache = {}
		return function(name, params)
			if params then
				return frame:expandTemplate{title = 'Bản đồ định vị ' .. map, args = { name, unpack(params) }}
			else
				if name == nil then
					return 'Bản mẫu:Bản đồ định vị ' .. map
				elseif cachename == nil then
					cachename = frame:expandTemplate{title = 'Bản đồ định vị ' .. map, args = { name }}
				end
				return cachename
			end
		end
	elseif mw.title.new('Bản mẫu:Location map ' .. map).exists then
		local cache = {}
		if type(frame) ~= 'table' or type(frame.expandTemplate) ~= 'function' then
			error('Phải cung cấp khung khi sử dụng bản đồ định vị kiểu cũ')
		end
		return function(name, params)
			if params then
				return frame:expandTemplate{title = 'Location map ' .. map, args = { name, unpack(params) }}
			else
				if name == nil then
					return 'Bản mẫu:Location map ' .. map
				elseif cachename == nil then
					cachename = frame:expandTemplate{title = 'Location map ' .. map, args = { name }}
				end
				return cachename
			end
		end
	else
		error('Không tìm thấy trang định rõ bản đồ định vị. "Mô đun:Location map/data/' .. map .. '", "Bản mẫu:Bản đồ định vị ' .. map .. '", và "Bản mẫu:Location map ' .. map .. '" đều không tồn tại', 2)
	end
end
function p.data(frame, args, map)
	if not args then
		args = getArgs(frame, {frameOnly = true})
	end
	if not map then
		map = p.getMapParams(args1, frame)
	end
	local params = {}
	for k,v in ipairs(args) do
		if k > 2 then
			paramsk-2 = v
		end
	end
	return map(args2, #params ~= 0 and params)
end
local hemisphereMultipliers = {
	"kinh độ" = { W = -1, w = -1, E = 1, e = 1 },
	"vĩ độ" = { S = -1, s = -1, N = 1, n = 1 }
}
local function decdeg(degrees, minutes, seconds, hemisphere, decimal, direction)
	local direction_prefix = mw.ustring.gsub(direction, " độ", "")
	if decimal then
		if degrees then
			error('Không thể đặt cả giá trị thập phân cùng giá trị độ-phút-giây cho ' .. direction, 2)
		elseif minutes then
			error('Chỉ có thể đặt ' .. direction_prefix .. ' phút ở dạng độ-phút-giây', 2)
		elseif seconds then
			error('Chỉ có thể đặt ' .. direction_prefix .. ' giây ở dạng độ-phút-giây', 2)
		elseif hemisphere then
			error('Chỉ có thể đặt bán cầu ở dạng độ-phút-giây cho ' .. direction, 2)
		end
		local retval = tonumber(decimal)
		if retval then
			return retval
		end
		error('Giá trị "' .. decimal .. '" không phải là ' .. direction .. ' hợp lệ', 2)
	elseif seconds and not minutes then
		error('Đã đặt ' .. direction_prefix .. ' giây mà không đặt ' .. direction_prefix .. ' phút', 2)
	elseif not degrees then
		if minutes then
			error('Đã đặt ' .. direction_prefix .. ' phút mà không đặt ' .. direction, 2)
		elseif hemisphere then
			error('Đã đặt bán cầu cho ' .. direction .. ' mà không đặt ' .. direction, 2)
		end
		return nil
	end
	decimal = tonumber(degrees)
	if not decimal then
		error('Giá trị "' .. degrees .. '" độ trong ' .. direction .. ' không phải hợp lệ', 2)
	elseif minutes and not tonumber(minutes) then
		error('Giá trị "' .. minutes .. '" phút trong ' .. direction .. ' không phải hợp lệ', 2)
	elseif seconds and not tonumber(seconds) then
		error('Giá trị "' .. seconds .. '" giây trong ' .. direction .. ' không phải hợp lệ', 2)
	end
	decimal = decimal + (minutes or 0)/60 + (seconds or 0)/3600
	if hemisphere then
		local multiplier = hemisphereMultipliersdirectionhemisphere
		if not multiplier then
			error('Bán cầu "' .. hemisphere .. '" trong ' .. direction .. ' không phải hợp lệ', 2)
		end
		decimal = decimal * multiplier
	end
	return decimal
end
-- Finds a parameter in a transclusion of .
local function coord2text(para,coord)
	local result = mw.text.split(mw.ustring.match(coord, '%s*%-?%.%d+;%s*%-?%.%d+%s*') or ';', ';')
	if para == 'longitude' then result = result2 else result = result1 end
	if not tonumber(result) then return error('Giá trị tọa độ dạng sai', 2) end
	return tonumber(result)
end
-- effectively make removeBlanks false for caption and maplink, and true for everything else
-- if useWikidata is present but blank, convert it to false instead of nil
-- p.top, p.bottom, and their callers need to use this
function p.valueFunc(key, value)
	if value then
		value = mw.text.trim(value)
	end
	if value ~=  or key == 'caption' or key == 'maplink' then
		return value
	elseif key == 'useWikidata' then
		return false
	end
end
local function getContainerImage(args, map)
	if args.AlternativeMap then
		return args.AlternativeMap
	elseif args.relief and map('image1') ~=  then
		return map('image1')
	else
		return map('image')
	end
end
function p.top(frame, args, map)
	if not args then
		args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
	end
	if not map then
		map = p.getMapParams(args1, frame)
	end
	local width
	local default_as_number = tonumber(mw.ustring.match(tostring(args.default_width),"%d*"))
	if not args.width then
		width = round((default_as_number or 240) * (tonumber(map('defaultscale')) or 1))
	elseif mw.ustring.sub(args.width, -2) == 'px' then
		width = mw.ustring.sub(args.width, 1, -3)
	else
		width = args.width
	end
	local width_as_number = tonumber(mw.ustring.match(tostring(width),"%d*")) or 0;
if width_as_number == 0 then
	-- check to see if width is junk. If it is, then use default calculation
	width = round((default_as_number or 240) * (tonumber(map('defaultscale')) or 1))
	width_as_number = tonumber(mw.ustring.match(tostring(width),"%d*")) or 0;
end	
if args.max_width ~= "" and args.max_width ~= nil then
-- check to see if width bigger than max_width
local max_as_number = tonumber(mw.ustring.match(args.max_width,"%d*")) or 0;
if width_as_number>max_as_number and max_as_number>0 then
width = args.max_width;
end
end
	local retval = args.float == 'center' and  or 
	if args.caption and args.caption ~=  and args.border ~= 'infobox' then
		retval = retval ..  or '">')
	else
		retval = retval .. 
	end
	local image = getContainerImage(args, map)
	local currentTitle = mw.title.getCurrentTitle()
	retval = string.format(
		'%s%s%s',
		retval,
		image,
		width,
		args.alt or ((args.label or currentTitle.text) .. ' trên bản đồ ' .. map('name')),
		args.maplink and ('|link=' .. args.maplink) or 
	)
	if args.caption and args.caption ~=  then
		if (currentTitle.namespace == 0) and mw.ustring.find(args.caption, '##') then
			retval = retval .. 'Thể loại:Trang có hai dấu thăng trong chú thích bản đồ định vị'
		end
	end
	if args.overlay_image then
		return retval ..  .. width .. 'px'
	else
		return retval
	end
end
function p.bottom(frame, args, map)
	if not args then
		args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
	end
	if not map then
		map = p.getMapParams(args1, frame)
	end
	local retval = 
	local currentTitle = mw.title.getCurrentTitle()
	if not args.caption or args.border == 'infobox' then
		if args.border then
			retval = retval .. 
		else
			retval = retval .. 
		end
		retval = retval
		.. (args.caption or (args.label or currentTitle.text) .. ' (' .. map('name') .. ')')
		.. 
	elseif args.caption ~=   then
		-- This is not the pipe trick. We're creating a link with no text on purpose, so that CSS can give us a nice image
		retval = retval .. ' ' .. args.caption .. 
	end
	if args.switcherLabel then
		retval = retval ..  .. args.switcherLabel .. 
	elseif args.autoSwitcherLabel then
		retval = retval .. 'Xem bản đồ ' .. map('name') .. 
	end
	
	retval = retval .. 
	if args.caption_undefined then
		mw.log('Removed parameter caption_undefined used.')
		local parent = frame:getParent()
		if parent then
			mw.log('Parent is ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		if currentTitle.namespace == 0 then
		    retval = retval .. 'caption_undefined'
		end
	end
	if map('skew') ~=  or map('lat_skew') ~=  or map('crosses180') ~=  or map('type') ~=  then
		mw.log('Removed parameter used in map definition ' .. map())
		if currentTitle.namespace == 0 then
		    local key = (map('skew') ~=  and 'skew' or ) ..
					(map('lat_skew') ~=  and 'lat_skew' or ) ..
					(map('crosses180') ~=  and 'crosses180' or ) ..
					(map('type') ~=  and 'type' or )
		    retval = retval ..  .. key .. ' '
		end
	end
	if string.find(map('name'), '|', 1, true) then
		mw.log('Pipe used in name of map definition ' .. map())
		if currentTitle.namespace == 0 then
		   retval = retval .. 'Thể loại:Bản đồ định vị có dấu sổ thẳng trong tên'
		end
	end
	if args.float == 'center' then
		retval = retval .. 
	end
	return retval
end
local function markOuterDiv(x, y, imageDiv, labelDiv)
	return mw.html.create('div')
		:cssText('position:absolute;top:' .. round(y, 3) .. '%;left:' .. round(x, 3) .. '%')
		:node(imageDiv)
		:node(labelDiv)
end
local function markImageDiv(mark, marksize, label, link, alt, title)
	local builder = mw.html.create('div')
		:cssText('position:absolute;left:-' .. round(marksize / 2) .. 'px;top:-' .. round(marksize / 2) .. 'px;line-height:0')
		:attr('title', title)
	if marksize ~= 0 then
		builder:wikitext(string.format(
			'link=%s%s',
			mark,
			marksize,
			marksize,
			label,
			link,
			alt and ('|alt=' .. alt) or 
		))
	end
	return builder
end
local function markLabelDiv(label, label_size, label_width, position, background, x, marksize)
	if tonumber(label_size) == 0 then
		return mw.html.create('div'):cssText('font-size:0%;position:absolute'):wikitext(label)
	end
	local builder = mw.html.create('div')
		:cssText('font-size:' .. label_size .. '%;line-height:110%;position:absolute;width:' .. label_width .. 'em')
	local distance = round(marksize / 2 + 1)
	local spanCss
	if position == 'top' then -- specified top
		builder:cssText('bottom:' .. distance .. 'px;left:' .. (-label_width / 2) .. 'em;text-align:center')
	elseif position == 'bottom' then -- specified bottom
		builder:cssText('top:' .. distance .. 'px;left:' .. (-label_width / 2) .. 'em;text-align:center')
	elseif position == 'left' or (tonumber(x) > 70 and position ~= 'right') then -- specified left or autodetected to left
		builder:cssText('top:-0.75em;right:' .. distance .. 'px;text-align:right')
		spanCss = 'float:right'
	else -- specified right or autodetected to right
		builder:cssText('top:-0.75em;left:' .. distance .. 'px;text-align:left')
		spanCss = 'float:left'
	end
	builder = builder:tag('div')
		:css('display', 'inline')
		:cssText('padding:1px')
		:cssText(spanCss)
		:wikitext(label)
	if background then
		builder:cssText('background-color:' .. background)
	end
	return builder:done()
end
local function getX(longitude, left, right)
	local width = (right - left) % 360
	if width == 0 then
		width = 360
	end
	local distanceFromLeft = (longitude - left) % 360
	-- the distance needed past the map to the right equals distanceFromLeft - width. the distance needed past the map to the left equals 360 - distanceFromLeft. to minimize page stretching, go whichever way is shorter
	if distanceFromLeft - width / 2 >= 180 then
		distanceFromLeft = distanceFromLeft - 360
	end
	return 100 * distanceFromLeft / width
end
local function getY(latitude, top, bottom)
	return 100 * (top - latitude) / (top - bottom)
end
function p.mark(frame, args, map)
	if not args then
		args = getArgs(frame, {wrappers = 'Bản mẫu:Bản đồ định vị~'})
	end
	local mapnames = {}
	if not map then
		if args1 then
			map = {}
			for mapname in mw.text.gsplit(args1, '#', true) do
				map#map + 1 = p.getMapParams(mw.ustring.gsub(mapname, '^%s*(.-)%s*$', '%1'), frame)
				mapnames#mapnames + 1 = mapname
			end
			if #map == 1 then map = map1 end
		else
			map = p.getMapParams('Thế giới', frame)
			args1 = 'Thế giới'
		end
	end
	if type(map) == 'table' then
		local outputs = {}
		local oldargs = args1
		for k,v in ipairs(map) do
			args1 = mapnamesk
			outputsk = tostring(p.mark(frame, args, v))
		end
		args1 = oldargs
		return table.concat(outputs, '#PlaceList#') .. '#PlaceList#'
	end
	local x, y, longitude, latitude
	longitude = decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, args.long, 'kinh độ')
	latitude = decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, args.lat, 'vĩ độ')
	if args.excludefrom then
		-- If this mark is to be excluded from certain maps entirely (useful in the context of multiple maps)
		for exclusionmap in mw.text.gsplit(args.excludefrom, '#', true) do
			-- Check if this map is excluded. If so, return an empty string.
			if args1 == exclusionmap then
				return 
			end
		end
			
	end
	local builder = mw.html.create()
	local currentTitle = mw.title.getCurrentTitle()
	if args.coordinates then
--		Temporarily removed to facilitate infobox conversion. See :en:Wikipedia:Coordinates in infoboxes
--		if longitude or latitude then
--			error('Tọa độ từ Mô đun:Coordinates và tọa độ riêng lẻ không thể cả hai đều được cung cấp')
--		end
		longitude = coord2text('longitude', args.coordinates)
		latitude = coord2text('latitude', args.coordinates)
	elseif not longitude and not latitude and args.useWikidata then
		-- If they didn't provide either coordinate, try Wikidata. If they provided one but not the other, don't.
		local entity = mw.wikibase.getEntity()
		if entity and entity.claims and entity.claims.P625 and entity.claims.P6251.mainsnak.snaktype == 'value' then
			local value = entity.claims.P6251.mainsnak.datavalue.value
			longitude, latitude = value.longitude, value.latitude
		end
		if args.link and (currentTitle.namespace == 0) then
			builder:wikitext('Thể loại:Bản đồ định vị có ghim được liên kết lấy tọa độ từ Wikidata')
		end
	end
	if not longitude then
		error('Không có giá trị kinh độ')
	elseif not latitude then
		error('Không có giá trị vĩ độ')
	end
	if currentTitle.namespace > 0 then
		if (not args.lon_deg) ~= (not args.lat_deg) then
			builder:wikitext('Độ')
		elseif (not args.lon_min) ~= (not args.lat_min) then
			builder:wikitext('Phút')
		elseif (not args.lon_sec) ~= (not args.lat_sec) then
			builder:wikitext('Giây')
		elseif (not args.lon_dir) ~= (not args.lat_dir) then
			builder:wikitext('Bán cầu')
		elseif (not args.long) ~= (not args.lat) then
			builder:wikitext('Thập phân')
		end
	end
	if args.skew or args.lon_shift or args.markhigh then
		mw.log('Removed parameter used in invocation.')
		local parent = frame:getParent()
		if parent then
			mw.log('Parent is ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		if currentTitle.namespace == 0 then
			local key = (args.skew and 'skew' or ) ..
						(args.lon_shift and 'lon_shift' or ) ..
						(args.markhigh and 'markhigh' or )
			builder:wikitext( .. key ..' ')
		end
	end
	if map('x') ~=  then
		x = tonumber(mw.ext.ParserFunctions.expr(map('x', { latitude, longitude })))
	else
		x = tonumber(getX(longitude, map('left'), map('right')))
	end
	if map('y') ~=  then
		y = tonumber(mw.ext.ParserFunctions.expr(map('y', { latitude, longitude })))
	else
		y = tonumber(getY(latitude, map('top'), map('bottom')))
	end
	if (x  100 or y  100) and not args.outside then
		mw.log('Mark placed outside map boundaries without outside flag set. x = ' .. x .. ', y = ' .. y)
		local parent = frame:getParent()
		if parent then
			mw.log('Parent is ' .. parent:getTitle())
		end
		mw.logObject(args, 'args')
		if currentTitle.namespace == 0 then
			local key = frame:preprocess()
			builder:wikitext( .. key .. ' ')
		end
	end
	local mark = args.mark or map('mark')
	if mark ==  then
		mark = 'Red pog.svg'
	end
	local marksize = tonumber(args.marksize) or tonumber(map('marksize')) or 8
	local imageDiv = markImageDiv(mark, marksize, args.label or mw.title.getCurrentTitle().text, args.link or , args.alt, args2)
	local labelDiv
	if args.label and args.position ~= 'none' then
		labelDiv = markLabelDiv(args.label, args.label_size or 90, args.label_width or 6, args.position, args.background, x, marksize)
	end
	return builder:node(markOuterDiv(x, y, imageDiv, labelDiv))
end
local function switcherSeparate(s)
	if s == nil then return {} end
	local retval = {}
	for i in string.gmatch(s .. '#', '(^#*)#') do
		i = mw.text.trim(i)
		retval#retval + 1 = (i ~=  and i)
	end
	return retval
end
function p.main(frame, args, map)
	local caption_list = {}
	if not args then
		args = getArgs(frame, {wrappers = 'Bản mẫu:Bản đồ định vị', valueFunc = p.valueFunc})
	end
	if args.useWikidata == nil then
		args.useWikidata = true
	end
	if not map then
		if args1 then
			map = {}
			for mapname in string.gmatch(args1, '^#+') do
				map#map + 1 = p.getMapParams(mw.ustring.gsub(mapname, '^%s*(.-)%s*$', '%1'), frame)
			end
			if args'caption' then
				if args'caption' == "" then
					while #caption_list  #map then
			error(string.format('Đã cung cấp %d AlternativeMap nhưng chỉ cung cấp %d bản đồ', #altmaps, #map))
		end
		local overlays = switcherSeparate(args.overlay_image)
		if #overlays > #map then
			error(string.format('Đã cung cấp %d overlay_image nhưng chỉ cung cấp %d bản đồ', #overlays, #map))
		end
		if #caption_list > #map then
			error(string.format('Đã cung cấp %d chú thích nhưng chỉ cung cấp %d bản đồ', #caption_list, #map))
		end
		local outputs = {}
		args.autoSwitcherLabel = true
		for k,v in ipairs(map) do
			args.AlternativeMap = altmapsk
			args.overlay_image = overlaysk
			args.caption = caption_listk
			outputsk = p.main(frame, args, v)
		end
		return  .. table.concat(outputs) .. 
	else
		return p.top(frame, args, map) .. tostring( p.mark(frame, args, map) ) .. p.bottom(frame, args, map)
	end
end
return p