Modifica di Modulo:Location map

-- documentation
local LocationMap = {
	suite  = 'Location map',
	serial = '2020-10-24',
	item   = 15934920
}

-- module import
-- require('strict')
local cd = require( 'Module:Coordinates' )
local li = require( 'Module:Location map/i18n' )
local lp = require( 'Module:Location map/Params' )

-- module variable
local locMap = {
	maintenance = {}
}

-- Local functions, please do not call them directly

local function split( s )
	local tb = mw.text.split( s, ';' )
	for i = #tb, 1, -1 do
		tb[ i ] = mw.text.trim( tb[ i ] )
		if tb[ i ] == '' then
			table.remove( tb, i )
		end
	end
	return tb
end

local function analyzeStyle( style, list )
	local tb = split( style )
	local l
	for i, tbItem in ipairs( tb ) do
		l = list[ tbItem ]
		if l then
			tb[ i ] = l
		end
	end
	return table.concat( tb, '; ' )
end

local function addMaintenance( s )
	if s and s ~= '' then
		table.insert( locMap.maintenance, s )
	end
end

local function getMaintenance()
	local m = table.concat( locMap.maintenance, ' ' )
	if m ~= '' then
		m = '<span class="error">' .. m .. '</span>'
	end
	return m
end

local function setLocation( args )
	local lmarksize = math.floor( args.marksize + 0.5 )
	local msize = math.floor( ( args.marksize - 1 ) / 2 + 0.5 )
	local msize3 = math.floor( ( args.marksize + 2 ) / 2 + 0.5 )
	local msize5 = math.floor( ( args.marksize + 4 ) / 2 + 0.5 )
	local centerPosition = -msize .. 'px'

	-- create marker box
	local markerBox = mw.html.create( 'div' )
		:cssText( li.styles.location:gsub( ';$', '' ) )
		:css( { top = args.y * 100 .. '%',
			left = args.x * 100 .. '%' } )

	-- add marker symbol
	if args.mark ~= 'none' then
		markerBox:node( mw.html.create( 'div' )
			:cssText( li.styles.location:gsub( ';$', '' ) )
			:css( {
				top = centerPosition,
				left = centerPosition,
				[ 'min-width' ] = lmarksize .. 'px',
				[ 'min-height' ] = lmarksize .. 'px'
			} )
			:wikitext( mw.ustring.format( '[[File:%s|%sx%spx|top|class=noviewer|link=%s|%s]]',
				args.mark, lmarksize, lmarksize, args.name, args.name) )
		)
	end

	-- add label
	if args.label ~= '' and args.label ~= 'none' then
		local styles = { li.styles.location }
		if args.labelWrap and args.labelWrap == 'manual' then
			table.insert( styles, li.styles.labelWidthNowrap )
		else
			-- prevent early wrapping
			table.insert( styles, li.styles.labelWidth )
		end
		local pos = li.labelPositions[ args.labelPosition ]
		if pos then
			pos = pos:gsub( 'msize_', msize )
				:gsub( 'msize3_', msize3 )
				:gsub( 'msize5_', msize5 )
			table.insert( styles, pos )
		else
			-- estimation of posititon
			if args.y <= 0.5 then
				table.insert( styles, 'top:' .. msize3 .. 'px;' )
			else
				table.insert( styles, 'bottom:' .. msize3 .. 'px;' )
			end
			if args.x < 0.25 then
				table.insert( styles, 'text-align:left; left:' 
					.. math.floor( 3 - 60 * args.x ) / 10 .. 'em;' )
			elseif args.x < 0.75 then
				table.insert( styles, li.styles.centerX )
			else
				table.insert( styles, 'text-align:right; right:'
					.. math.floor( 10 * ( 0.3 - ( 1 - args.x ) * 6 ) ) / 10 .. 'em;' )
			end
		end
		table.insert( styles, analyzeStyle( args.labelStyle, li.labelStyles ) )

		markerBox:node( mw.html.create( 'div' )
			:cssText( table.concat( styles, ' ' ) )
			:wikitext( args.label )
		)
	end
	return tostring( markerBox )
end

local function baseMap( args )
	-- map and map container
	local map = mw.ustring.format( '[[File:%s|%spx|center|class=noviewer|%s]]',
		 args.mapImage, args.width, args.description )

	-- add marker
	if args.x < 0 or args.x > 1 or args.y < 0 or args.y > 1 then
		map = map .. tostring( mw.html.create( 'div' )
			:cssText( li.styles.mapError )
			:wikitext( mw.ustring.format( li.errMsgs.coordError, args.name ) )
		)
	else
		map = map .. setLocation( args )
	end

	-- add places
	map = map .. args.places
	local style = li.styles.mapDiv .. ( args.caption == '' and 'border:none'
		or ( 'border:' .. args.captionInnerBorder ) )
	map = mw.html.create( 'div' )
		:cssText( style )
		:wikitext( map )

	-- create outer box
	style = li.styles.mapBox
	if args.caption ~= '' then
		style = style .. 'border:' .. args.captionOuterBorder .. ';'
	end
	style = style .. analyzeStyle( args.mapStyle, li.mapStyles )

	local mapBox = mw.html.create( 'table' )
		:addClass( 'locationMap' )
		:cssText( style )
	local row = mw.html.create( 'tr' )
		:node( mw.html.create( 'td' )
			:addClass( 'thumb' )
			:cssText( li.styles.mapCell
				.. ( args.caption == '' and 'padding:0' or '' ) )
			:node( map )
		)
	mapBox:node( row )

	-- add map caption
	if args.caption ~= '' then
		row = mw.html.create( 'tr' )
			:node( mw.html.create( 'td' )
				:addClass( 'thumbcaption' )
				:cssText( li.styles.mapCaption .. args.captionStyle )
				:wikitext( args.caption )
			)
		mapBox:node( row )
	end

	return tostring( mapBox )
end

-- Handling regional map data
-- This function is never to be called directly but with a pcall()
-- to handle exceptions in case of missing map modules
local function getMapData( id )
	local region = require( li.modulePrefix .. id )
	if region then
		region.id = id
		return region
	end
	return nil
end

local function linearX( mapData, long )
	local left = mapData.left
	local right = mapData.right
	if not mapData or not left or not right or left == right then
		-- error
		return -1
	elseif left < right then
		return ( long - left ) / ( right - left )
	elseif long < 0 then
		return ( 360 + long - left ) / ( 360 + right - left )
	else
		return ( long - left ) / ( 360 + right - left )
	end
end

local function linearY( mapData, lat )
	local top = mapData.top
	local bottom = mapData.bottom
	if not mapData or not top or not bottom or top == bottom then
		-- error
		return -1
	end
	return ( lat - top ) / ( bottom - top )
end

local function getX( mapData, long, lat )
	if mapData.x then
		return mapData.x( lat, long )
	else
		return linearX( mapData, long )
	end
end

local function getY( mapData, long, lat )
	if mapData.y then
		return mapData.y( lat, long )
	else
		return linearY( mapData, lat )
	end
end

local function getMapImage( mapData, which )
	local image = mapData.default
	if which == 'quickbar' then
		which = li.defaults.quickbarMapType
		if mapData.quickbar and mapData.quickbar ~= '' then
			which = mapData.quickbar
		end
	end
	if which ~= '' and mapData[ which ] and mapData[ which ] ~= '' then
		image = mapData[ which ]
	end
	return image
end

-- parameters handling
local function argCheck( param, altValue )
	if not param or param == '' then
		return altValue
	end
	local val = mw.text.trim( param )
	if val == '' then
		val = altValue
	end
	return val
end

local function checkMarkerProperties( args, mapData )
	args.name = argCheck( args.name, '' )
	args.label = argCheck( args.label, '' )

	args.mark = argCheck( args.mark, mapData.mark or li.defaults.marker )
	args.marksize = argCheck( args.marksize, mapData.marksize or li.defaults.marksize )
	args.labelStyle = argCheck( args.labelStyle, '' )
	args.labelBackground = argCheck( args.labelBackground, '' )
	if args.labelBackground ~= '' then
		args.labelBackground = 'background: ' .. args.labelBackground
		if args.labelStyle ~= '' then
			args.labelStyle = args.labelStyle .. '; ' .. args.labelBackground
		else
			args.labelStyle = args.labelBackground
		end
	end
	args.labelWrap = argCheck( args.labelWrap, 'auto' )
	args.labelPosition = argCheck( args.labelPosition, 'auto' )
			
	return args
end

local function checkCoordinate( args, mapData )
	local success = true
	local t
	args.lat = argCheck( tostring( args.lat ), '' )
	args.long = argCheck( tostring( args.long ), '' )
	if args.lat ~= '' and args.long ~= '' then
		t = tonumber( args.lat )
		if t then
			args.lat = math.abs( t ) <= 90 and t or ''
		else
			t = cd.toDec( args.lat, 'lat', 6 )
			args.lat = t.error == 0 and t.dec or ''
		end

		t = tonumber( args.long )
		if t then
			args.long = ( t > -180 and t <= 180 ) and t or ''
		else
			t = cd.toDec( args.long, 'long', 6 )
			args.long = t.error == 0 and t.dec or ''
		end
	end
	if args.lat == '' or args.long == '' then
		return -1, -1, false
	end

	local x = getX( mapData, args.long, args.lat )
	if x < 0 or x > 1 then
		success = false
		if x == -1 then
			addMaintenance( li.errMsgs.wrongXBorders )
		else
			addMaintenance( mw.ustring.format( li.errMsgs.wrongLong,
				tonumber( args.long ) or 0 ) ) 
		end
	end

	local y = getY( mapData, args.long, args.lat )
	if y < 0 or y > 1 then
		success = false
		if y == -1 then
			addMaintenance( li.errMsgs.wrongYBorders )
		else
			addMaintenance( mw.ustring.format( li.errMsgs.wrongLat,
				tonumber( args.lat ) or 0 ) )
		end
	end

	return x, y, success
end

local function checkParameters( args, list )
	local unknown = {}
	for key, value in pairs( args ) do
		if not list[ key ] then
			table.insert( unknown, "''" .. key .. "''" )
		end
	end
	local category = li.errMsgs.wrongParam
	if #unknown == 1 then
		addMaintenance( category
			.. mw.ustring.format( li.errMsgs.unknownParam, unknown[ 1 ] ) )
	elseif #unknown > 1 then
		addMaintenance( category .. mw.ustring.format( li.errMsgs.unknownParams,
			table.concat( unknown, ', ' ) ) )
	end
end

-- Map functions

local function apiLocationMap( args )
	local map = argCheck( args.map, 'missing' )
	local success, mapData = pcall( getMapData, map )
	if not success then
		return mw.ustring.format( li.errMsgs.unknownMap, map )
	end
	
	-- Parameters check
	addMaintenance( checkParameters( args, lp.locationMap ) )
	if not args.lat or not args.long then
		addMaintenance( li.errMsgs.notANumber )
		return getMaintenance()
	end
	args.x, args.y, success = checkCoordinate( args, mapData )

	args.maptype = argCheck( args.maptype, 'default' )
	args.mapImage = argCheck( args.alternativeMap, getMapImage( mapData, args.maptype ) )
	if not args.mapImage or args.mapImage == '' then
		success = false
		addMaintenance( li.errMsgs.noMapImage )
	end
	if not success then
		return getMaintenance()
	end

	args.caption = argCheck( args.caption, '' )
	args.captionStyle = argCheck( args.captionStyle, '' )
	args.captionInnerBorder = argCheck( args.captionInnerBorder, li.styles.innerBorder )
	args.captionOuterBorder = argCheck( args.captionOuterBorder, li.styles.outerBorder )
	args.places = argCheck( args.places, '' )
	args.mapStyle = argCheck( args.mapStyle, 'center' )

	-- Image size and description
	args.width = argCheck( tostring( args.width ), '' )
	if not args.width:match( '^%d+$' ) and not args.width:match( '^%d*x%d+$' ) then
		args.width = li.defaults.imgSize
	end
	args.description = ''
	if mapData.description then
		args.description = mapData.description
	end

	args = checkMarkerProperties( args, mapData )
	return baseMap( args ) .. getMaintenance()
end

local function apiAddLocation( args )
	local map = argCheck( args.map, 'missing' )
	local success, mapData = pcall( getMapData, map )
	if not success then
		return mw.ustring.format( li.errMsgs.unknownMap, map )
	end

	-- Parameters check
	addMaintenance( checkParameters( args, lp.locationMapLocation ) )
	if not args.lat or not args.long then
		addMaintenance( li.errMsgs.notANumber )
		return getMaintenance()
	end
	args.x, args.y, success = checkCoordinate( args, mapData )
	if not success then
		return getMaintenance()
	end

	args = checkMarkerProperties( args, mapData )
	return setLocation( args ) .. getMaintenance()
end

local function apiAddObject( args )
	args.object = argCheck( args.object, '' )
	if args.object == '' then
		return li.errMsgs.noObject
	end
	
	local success = true
	addMaintenance( checkParameters( args, lp.locationMapObject ) )

	args.right = argCheck( args.right, '' )
	args.left = argCheck( args.left, '' )
	if args.right == '' and args.left == '' then
		success = false
		addMaintenance( li.errMsgs.noXPos )
	end
	args.top = argCheck( args.top, '' )
	args.bottom = argCheck( args.bottom, '' )
	if args.top == '' and args.bottom == '' then
		success = false
		addMaintenance( li.errMsgs.noYPos )
	end
	if not success then
		return getMaintenance()
	end
		
	args.objectStyle = argCheck( args.objectStyle, '' )
	args.objectBackground = argCheck( args.objectBackground, '' )
	if args.objectBackground ~='' then
		args.objectBackground = 'background: ' .. args.objectBackground
		if args.objectStyle ~='' then
			args.objectStyle = args.objectStyle .. '; ' .. args.objectBackground
		else
			args.objectStyle = args.objectBackground
		end
	end

	local style = li.styles.objectBox
	if args.left ~= '' then
		style = style .. 'left:' .. args.left .. ';'
	else
		style = style .. 'right:' .. args.right .. ';'
	end
	if args.top ~= '' then
		style = style .. 'top: ' .. args.top .. ';'
	else
		style = style .. 'bottom: ' .. args.bottom .. ';'
	end
	style = style .. analyzeStyle( args.objectStyle, li.labelStyles )
	return tostring( mw.html.create( 'div' )
		:addClass( 'locationMapObject' )
		:cssText( style )
		:wikitext( args.object )
	) .. getMaintenance()
end

-- Documentation of map data

local function apiGetMapValue( args )
	local map = argCheck( args.map, 'missing' )
	local success, mapData = pcall( getMapData, map )
	if not success then
		return mw.ustring.format( li.errMsgs.unknownMap, map )
	end
	
	args.param = argCheck( args.param, '' )
	if args.param == '' then
		return li.errMsgs.noParam
	else
		return mapData[ args.param ] or li.errMsgs.anError
	end
end

local function apiGetMapValueSet( args )
	local map = argCheck( args.map, 'missing' )
	local success, mapData = pcall( getMapData, map )
	if not success then
		return mw.ustring.format( li.errMsgs.unknownMap, map )
	end
	
	local row, v
	local list = mw.html.create( 'table' )
		:addClass( li.mapDocs.tableClass )
	for i, j in ipairs( li.paramList ) do
		v = mapData[ j ]
		if not v then
			v = li.errMsgs.notDefined
		else
			if j == 'default' or j == 'relief' then
				v = mw.ustring.format( '[[c:File:%s|%s]]', v, v )
			elseif li.mapDocs[ v ] then
				v = li.mapDocs[ v ]
			end
		end
		row = mw.html.create( 'tr' )
			:node(
				mw.html.create( 'th' )
					:css( 'text-align', 'left' )
					:wikitext( li.mapDocs[ j ] )
			)
			:node(
				mw.html.create( 'td' )
					:wikitext( v )
			)
		list:node( row )
	end
	local titleObj = mw.title.getCurrentTitle()
	if titleObj.text == titleObj.baseText then
		-- not a subpage
		if not mapData.relief then
			addMaintenance( li.errMsgs.noReliefMap )
		end
	end

	return tostring( list ) .. getMaintenance()
end

-- API function calls

locMap[ li.api.apiLocationMap ] = function( frame )
	return apiLocationMap( frame.args )
end

locMap[ li.api.apiAddLocation ] = function( frame )
	return apiAddLocation( frame.args )
end

locMap[ li.api.apiAddObject ] = function( frame )
	return apiAddObject( frame.args )
end

locMap[ li.api.apiGetMapValue ] = function( frame )
	return apiGetMapValue( frame.args )
end

locMap[ li.api.apiGetMapValueSet ] = function( frame )
	return apiGetMapValueSet(frame.args)
end

-- example for usage in a Lua script

function locMap.exampleLuaCall()
	local frame = {}
	frame.args = {
		map   = 'it',
		lat   = 41.88333,
		long  = 12.48333,
		name  = 'Roma',
		label = '[[Roma]]',
	}
	return locMap.locationMap( frame )
end

return locMap