모듈:Coordinates

--
This module is intended to replace the functionality of  and related
templates.  It provides several methods, including
: General function formatting and displaying
coordinate values.
: Simple function for converting decimal
degree values to DMS format.
: Simple function for converting DMS format
to decimal degree format.
: Export the link used to reach the tools
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 = '//geohack.toolforge.org/geohack.php?language=ko&pagename=' .. page_name .. '&params='
-- Helper function, replacement for  
local function displaytitle(s, notes)
	-- see phab:T281974#7109643
	local l = "좌표: " .. s
	local co =  .. l .. notes .. 
	co = mw.getCurrentFrame():extensionTag( 'indicator', co, { name = 'coordinates' } )
	return co
end
-- Helper function, Replacement for  
local function displayinline(s, notes)
	return s .. notes	
end
-- Helper function, used in detecting DMS formatting 
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('^NSEW$') or s:find('^EWNS$')
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 coordinatesfuncName(args, frame)
	end
end
-- Helper function, handle optional args. 
local function optionalArg(arg, supplement)
	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 = '좌표: ' .. v2 .. 
		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(default, mode)
	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(args, coordinateSpec)
	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 = 
			 ..  .. 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
	return  .. 
		 .. coord_link .. uriComponents .. ' ' .. inner ..  .. 
end
-- Helper function, convert decimal to degrees 
local function convert_dec2dms_d(coordinate)
	local d = math_mod._round( coordinate, 0 ) .. "°"
	return d .. ""
end
-- Helper function, convert decimal to degrees and minutes 
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
-- Helper function, convert decimal to degrees, minutes, and seconds 
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
-- 
Helper function, convert decimal latitude or longitude to 
degrees, minutes, and seconds format based on the specified precision.  
local function convert_dec2dms(coordinate, firstPrefix, secondPrefix, precision)
	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(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
-- 
Checks input values to for out of range errors.
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, "동서가 지정된 상태에서 경도 값이 180보다 큽니다"})
		end
		
	end	
		
	if lat_d > 90 then
		table.insert(errors, {source, "위도 도 > 90"})
	end
	if lat_d = 60 then
		table.insert(errors, {source, "위도 분 >= 60"})
	end
	if lat_m = 60 then
		table.insert(errors, {source, "위도 초 >= 60"})
	end
	if lat_s = 360 then
		table.insert(errors, {source, "경도 도 >= 360"})
	end
	if long_d = 60 then
		table.insert(errors, {source, "경도 분 >= 60"})
	end
	if long_m = 60 then
		table.insert(errors, {source, "경도 초 >= 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   
	
	coordinateSpec"dms-lat" = format_en2kolat_f .. lat_d.."° "..optionalArg(lat_m,"′ ") .. optionalArg(lat_s,"″")
	coordinateSpec"dms-long" = format_en2kolong_f .. long_d.."° "..optionalArg(long_m,"′ ") .. optionalArg(long_s,"″")
	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
-- 
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(args, lim)
		local ret = {}
		for i = 1, lim do
			reti = argsi or 
		end
		return table.concat(ret, '_')
	end
	
	if not args1 then
		-- no lat logic
		return errorPrinter(  )
	elseif 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, 'N', args2 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', '사용하지 못하는 추가 변수가 있습니다'})
		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', '사용하지 못하는 추가 변수가 있습니다'})
		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', '사용하지 못하는 추가 변수가 있습니다'})
		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', '변수 : "' .. v .. '=" 대신 "' .. v .. ':"으로 써야 합니다' })
		end
	end
	
	local ret = specPrinter(args, result)
	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.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 = '위키데이터에 있는 좌표'
			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('분류:%s', ret)
	else
		return 
	end
end
--
link
Simple function to export the coordinates link for other uses.
Usage:
	 link 
	
function coordinates.link(frame)
	return coord_link;
end
--
dec2dms
Wrapper to allow templates to call dec2dms directly.
Usage:
	
	
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 = args1
	local firstPostfix = args2 or 
	local secondPostfix = args3 or 
	local precision = args4 or 
	return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
end
--
Helper function to determine whether to use D, DM, or DMS
format depending on the precision of the decimal input.
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