This module is intended to replace the functionality of and related
templates. It provides several methods, including

coordinate values.

degree values to DMS format.

to decimal degree format.

]]

require('strict')

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

local current_page = mw.title.getCurrentTitle
local page_name = mw.uri.encode;
local coord_link = '//geohack.toolforge.org/geohack.php?language=ko&pagename=' .. page_name .. '&params='

-- Helper function, replacement for 
local function displaytitle
	-- see phab:T281974#7109643
	local l = "좌표: " .. s
	local co = ''
	co = mw.getCurrentFrame:extensionTag
	return co
end

-- Helper function, Replacement for 
local function displayinline
	return s .. notes	
end

-- Helper function, used in detecting DMS formatting 
local function dmsTest
	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 Module:Arguments for this function's documentation. 
local function makeInvokeFunc(funcName)
	return function (frame)
		local args = require('Module:Arguments').getArgs(frame, {
			wrappers = '틀:좌표'
		return coordinates[funcName]
	end
end

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

--
Formats any error messages generated for display

local function errorPrinter(errors)
	local result = ""
	for i,v in ipairs(errors) do
		local errorHTML = ''
		result = result .. errorHTML .. ""
	end
	return result
end

--
Determine the required CSS class to display coordinates

Usually geo-nondefault is hidden by CSS, unless a user has overridden this for himself
default is the mode as specificied by the user when calling the template
mode is the display mode (dec or dms) that we will need to determine the css class for 

local function displayDefault
	if default == "" then
		default = "dec"
	end
	
	if default == mode then
		return "geo-default"
	else
		return "geo-nondefault"
	end
end

--
specPrinter

Output formatter. Takes the structure generated by either parseDec
or parseDMS and formats it for inclusion on Wikipedia.

local function specPrinter
	local uriComponents = coordinateSpec["param"]
	if uriComponents == "" then
		-- RETURN error, should never be empty or nil
		return "오류: 변수가 비었습니다"
	end
	if args["name"] then
		uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
	end
	
	local geodmshtml = ''
			 .. ' '
			 .. ''

	local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
	local geodeclat
	if lat < 0 then
		-- FIXME this breaks the pre-existing precision
		geodeclat = "남위 " .. coordinateSpec["dec-lat"]:sub(2) .. "° "
	else
		geodeclat = "북위 " .. (coordinateSpec["dec-lat"] or 0) .. "° "
	end

	local long = tonumber( coordinateSpec["dec-long"] ) or 0
	local geodeclong
	if long < 0 then
		-- FIXME does not handle unicode minus
		geodeclong = "서경 " .. coordinateSpec["dec-long"]:sub(2) .. "° "
	else
		geodeclong = "동경 " .. (coordinateSpec["dec-long"] or 0) .. "° "
	end
	
	local geodechtml = ''

	local geonumhtml = ''

	local inner = ''
				.. ''
				.. '';

	if not args["name"] then
		inner = inner .. geodechtml 
				.. ''
	else
		inner = inner .. '' .. geodechtml 
				.. ''
				.. ''
	end

	return ''
end

-- Helper function, convert decimal to degrees 
local function convert_dec2dms_d(coordinate)
	local d = math_mod._round .. "°"
	return d .. ""
end

-- Helper function, convert decimal to degrees and minutes 
local function convert_dec2dms_dm(coordinate)	
	coordinate = math_mod._round;
	local m = coordinate % 60;
	coordinate = math.floor( (coordinate - m) / 60 );
	local d = coordinate % 360 .."° "
	
	return d .. string.format
end

-- Helper function, convert decimal to degrees, minutes, and seconds 
local function convert_dec2dms_dms(coordinate)
	coordinate = math_mod._round;
	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 .. string.format
end

-- 
Helper function, convert decimal latitude or longitude to 
degrees, minutes, and seconds format based on the specified precision. 

local function convert_dec2dms
	local coord = tonumber(coordinate)
	local prefix
	if coord >= 0 then
		prefix = firstPrefix
	else
		prefix = secondPrefix
	end

	precision = precision:lower;
	if precision == "dms" then
		return prefix .. convert_dec2dms_dms( math.abs( coord ) );
	elseif precision == "dm" then
		return prefix .. convert_dec2dms_dm( math.abs( coord ) );
	elseif precision == "d" then
		return prefix .. convert_dec2dms_d( math.abs( coord ) );
	end
end

--
Convert DMS format into a N or E decimal coordinate

local function convert_dms2dec
	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 -- not tonumber since this whole thing is string based.
end

-- 
Checks input values to for out of range errors.

local function validate
	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 < 0 then
			table.insert
		end
		if long_d < 0 then
			table.insert
		end
		-- 
		specified, it won't error on this condition, but otherwise it will.
		
		For not simply disable this check.
		
		if long_d > 180 then
			table.insert
		end
		
	end	
		
	if lat_d > 90 then
		table.insert
	end
	if lat_d < -90 then
		table.insert
	end
	if lat_m >= 60 then
		table.insert
	end
	if lat_m < 0 then
		table.insert
	end
	if lat_s >= 60 then
		table.insert
	end
	if lat_s < 0 then
		table.insert
	end
	if long_d >= 360 then
		table.insert
	end
	if long_d <= -360 then
		table.insert
	end
	if long_m >= 60 then
		table.insert
	end
	if long_m < 0 then
		table.insert
	end
	if long_s >= 60 then
		table.insert
	end
	if long_s < 0 then
		table.insert
	end
	
	return errors;
end

--
parseDec

Transforms decimal format latitude and longitude into the
structure to be used in displaying coordinates

local function parseDec
	local coordinateSpec = {}
	local errors = {}
	
	if not long then
		return nil, 
	elseif not tonumber(long) then
		return nil, 
	end
	
	errors = validate;	
	coordinateSpec["dec-lat"] = lat;
	coordinateSpec["dec-long"] = long;

	local mode = coordinates.determineMode;
	coordinateSpec["dms-lat"] = convert_dec2dms -- }|N|S|}|}}}}}
	coordinateSpec["dms-long"] = convert_dec2dms -- }|E|W|}|}}}}}	
	
	if format then
		coordinateSpec.default = format
	else
		coordinateSpec.default = "dec"
	end

	return coordinateSpec, errors
end

--
parseDMS

Transforms degrees, minutes, seconds format latitude and longitude 
into the a structure to be used in displaying coordinates

local function parseDMS
	local coordinateSpec, errors, backward = {}, {}
	local format_en2ko = {
		N = "북위 ",
		S = "남위 ",
		E = "동경 ",
		W = "서경 "
	
	lat_f = lat_f:upper;
	long_f = long_f:upper;
	
	-- Check if specified backward
	if lat_f == 'E' or lat_f == 'W' then
		lat_d, long_d, lat_m, long_m, lat_s, long_s, lat_f, long_f, backward = long_d, lat_d, long_m, lat_m, long_s, lat_s, long_f, lat_f, true;
	end	
	
	errors = validate;
	if not long_d then
		return nil, 
	elseif not tonumber(long_d) then
		return nil, 
	end
	
	if not lat_m and not lat_s and not long_m and not long_s and #errors == 0 then 
		if math_mod._precision( lat_d ) > 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;
		end		
	end 
	

	coordinateSpec["dms-lat"] = format_en2ko[lat_f] .. lat_d.."° "..optionalArg .. optionalArg
	coordinateSpec["dms-long"] = format_en2ko[long_f] .. long_d.."° "..optionalArg .. optionalArg
	coordinateSpec["dec-lat"] = convert_dms2dec -- }|}|0}|0}}}
	coordinateSpec["dec-long"] = convert_dms2dec -- }|}|0}|0}}}

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

	return coordinateSpec, errors, backward
end

-- 
Check the input arguments for coord to determine the kind of data being provided
and then make the necessary processing.

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

	local function getParam
		local ret = {}
		for i = 1, lim do
			ret[i] = args[i] or ''
		end
		return table.concat
	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
		if not result then
			return errorPrinter(errors);
		end			 
		result.param = table.concat
	elseif dmsTest then
		-- dms logic
		result, errors, backward = parseDMS
		if args[10] then
			table.insert
		end
		if not result then
			return errorPrinter(errors)
		end
		result.param = getParam
	elseif dmsTest then
		-- dm logic
		result, errors, backward = parseDMS
		if args[8] then
			table.insert
		end
		if not result then
			return errorPrinter(errors)
		end
		result.param = getParam
	elseif dmsTest then
		-- d logic
		result, errors, backward = parseDMS
		if args[6] then
			table.insert
		end	
		if not result then
			return errorPrinter(errors)
		end
		result.param = getParam
	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
		end
	end
	
	local ret = specPrinter
	if #errors > 0 then
		ret = ret .. ' ' .. errorPrinter(errors) .. '분류:좌표 태그가 잘못된 문서'
	end
	return ret, backward
end

--
Generate Wikidata tracking categories.

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 = '위키데이터에 있는 좌표'
			elseif snaktype == 'somevalue' then
				ret = '알 수 없는 값으로 설정된 위키데이터에 있는 좌표'
			elseif snaktype == 'novalue' then
				ret = '값이 지정되지 않은 위키데이터에 있는 좌표'
			end
		else
			-- We have to either import the coordinates to Wikidata or remove them here.
			ret = '위키데이터에 없는 좌표'
		end
	end
	if ret then
		return string.format
	else
		return ''
	end
end

--
link

Simple function to export the coordinates link for other uses.

Usage:
	

function coordinates.link(frame)
	return coord_link;
end

-- precision }}
	
decimal_coordinate is converted to DMS format. If positive, the positive_suffix
is appended (typical N or E), if negative, the negative suffix is appended. The
specified precision is one of 'D', 'DM', or 'DMS' to specify the level of detail
to use.

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
end

--
Helper function to determine whether to use D, DM, or DMS
format depending on the precision of the decimal input.

function coordinates.determineMode
	local precision = math.max( math_mod._precision( value1 ), math_mod._precision( value2 ) );
	if precision <= 0 then
		return 'd'
	elseif precision <= 2 then
		return 'dm';
	else
		return 'dms';
	end
end		

-- seconds }}
	
Converts DMS values specified as degrees, minutes, seconds too decimal format.
direction_flag is one of N, S, E, W, and determines whether the output is 
positive (i.e. N and E) or negative (i.e. S and W).

coordinates.dms2dec = makeInvokeFunc('_dms2dec')
function coordinates._dms2dec(args)
	local direction = args[1]
	local degrees = args[2]
	local minutes = args[3]
	local seconds = args[4]

	return convert_dms2dec
end

--
coord

Main entry point for Lua function to replace 

Usage:
	...
	
	Refer to documentation page for many additional parameters and 
	configuration options.
	
Note: This function provides the visual display elements of . In
order to load coordinates into the database, the parser 
function must also be called, this is done automatically in the Lua
version of .

coordinates.coord = makeInvokeFunc('_coord')
function coordinates._coord(args)
	if (not args[1] or not tonumber(args[1])) and not args[2] and mw.wikibase.getEntityObject then
		args[3] = args[1]; args[1] = nil
		local entity = mw.wikibase.getEntityObject
		if entity 
			and entity.claims
			and entity.claims.P625
			and entity.claims.P625[1].mainsnak.snaktype == 'value'
		then
			local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
			args[1]=entity.claims.P625[1].mainsnak.datavalue.value.latitude
			args[2]=entity.claims.P625[1].mainsnak.datavalue.value.longitude
			if precision then
				precision=-math_mod._round(math.log(precision)/math.log(10),0)
				args[1]=math_mod._round
				args[2]=math_mod._round
			end
		end
	end
	
	local contents, backward = formatTest(args)
	local Notes = args.notes or ''
	local Display = args.display and args.display:lower or 'inline'

	local function isInline(s)
		-- Finds whether coordinates are displayed inline.
		return s:find('inline') ~= nil or s == 'i' or s == 'it' or s == 'ti'
	end
	local function isInTitle(s)
		-- Finds whether coordinates are displayed in the title.
		return s:find('title') ~= nil or s == 't' or s == 'it' or s == 'ti'
	end
	
	local function coord_wrapper(in_args)
		-- Calls the parser function .
		return mw.getCurrentFrame:callParserFunction or ''
	end
	
	local text = ''
	if isInline(Display) then
		text = text .. displayinline
	end
	if isInTitle(Display) then
		text = text
			.. displaytitle
			.. makeWikidataCategories
	end
	if not args.nosave then
		local page_title, count = mw.title.getCurrentTitle, 1
		if backward then
			local tmp = {}
			while not string.find((args[count-1] or ''), '[EW]') do tmp[count] = (args[count] or ''); count = count+1 end
			tmp.count = count; count = 2*(count-1)
			while count >= 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 ~= '설명문서' and page_title.subpageText ~= '시험장' then args[10] = 'primary' end
		args.notes, args.format, args.display = nil
		text = text .. coord_wrapper(args)
	end
	return text
end

--
coord2text

Extracts a single value from a transclusion of .
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

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 or ''), ' ')
		if frame.args[2] == 'lat' then
			result, negative = result[1], 'S'
		else
			result, negative = result[2], 'W'
		end
		result = mw.text.split
		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

--
coordinsert

Injects some text into the Geohack link of a transclusion of (if that text isn't already in the transclusion). Outputs the modified transclusion of .
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.

Usage:

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
	if frame.args.name then
		if not mw.ustring.find then
			local namestr = frame.args.name
			frame.args[1] = mw.ustring.gsub(frame.args[1], 
				'()', 
				'%1%3')
			frame.args[1] = mw.ustring.gsub(frame.args[1], '(&params=[^&"<>%[%] ]*) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ')
		end
	end
	return frame.args[1]
end