関南・東山地方Wiki

「モジュール:Location map」の版間の差分

モジュール 議論

モジュール:Location map (ソースを閲覧)

2021年3月3日 (水) 23:57時点における版

4,487 バイト追加 、 2021年3月3日 (水)
細
13版 をインポートしました
template>Frozen-mikan
(en:Module:Location_map 2014-04-16T03:06:56Z の版を複製。)
 
細 (13版 をインポートしました)
 
(3人の利用者による、間の12版が非表示)
1行目: 1行目:
require('Module:No globals')
local p = {}
local p = {}


local getArgs = require('Module:Arguments').getArgs
local getArgs = require('Module:Arguments').getArgs


local function round(n, digits)
local function round(n, decimals)
local mult = math.pow(10, digits)
local pow = 10^(decimals or 0)
return math.floor(n * mult + 0.5) / mult
return math.floor(n * pow + 0.5) / pow
end
end


local function getMapParams(map, frame)
function p.getMapParams(map, frame)
if not map then
if not map then
error('The name of the location map definition to use must be specified', 2)
error('Location mapの名前は必ず指定しなければなりません。', 2)
end
end
local moduletitle = mw.title.new('Module:Location map/data/' .. map)
local moduletitle = mw.title.new('Module:Location map/data/' .. map)
if not moduletitle then
if not moduletitle then
error('"' .. map .. '" is not a valid name for a location map definition', 2)
error(string.format('%qはLocation mapの名前として無効です。', map), 2)
elseif moduletitle.exists then
elseif moduletitle.exists then
local mapData = mw.loadData('Module:Location map/data/' .. map)
local mapData = mw.loadData('Module:Location map/data/' .. map)
return function(name, params)
return function(name, params)
if mapData[name] == nil then
if name == nil then
return 'Module:Location map/data/' .. map
elseif mapData[name] == nil then
return ''
return ''
elseif params and params[1] then
elseif params then
return mw.message.newRawMessage(tostring(mapData[name]), unpack(params)):plain()
return mw.message.newRawMessage(tostring(mapData[name]), unpack(params)):plain()
else
else
28行目: 32行目:
elseif mw.title.new('Template:Location map ' .. map).exists then
elseif mw.title.new('Template:Location map ' .. map).exists then
local cache = {}
local cache = {}
if type(frame) ~= 'table' or type(frame.expandTemplate) ~= 'function' then
error('古いLocation mapを使うときにフレームが存在しなければなりません。')
end
return function(name, params)
return function(name, params)
if params then
if params then
return frame:expandTemplate{title = 'Location map ' .. map, args = { name, unpack(params) }}
return frame:expandTemplate{title = 'Location map ' .. map, args = { name, unpack(params) }}
else
else
if cache[name] == nil then
if name == nil then
return 'Template:Location map ' .. map
elseif cache[name] == nil then
cache[name] = frame:expandTemplate{title = 'Location map ' .. map, args = { name }}
cache[name] = frame:expandTemplate{title = 'Location map ' .. map, args = { name }}
end
end
39行目: 48行目:
end
end
else
else
error('Unable to find the specified location map definition. Neither "Module:Location map/data/' .. map .. '" nor "Template:Location map ' .. map .. '" exists', 2)
error('Location mapのモジュール「"Module:Location map/data/' .. map .. '"」もしくはテンプレート「"Template:Location map ' .. map .. '"」が作成されていません。', 2)
end
end
end
end
45行目: 54行目:
function p.data(frame, args, map)
function p.data(frame, args, map)
if not args then
if not args then
args = getArgs(frame)
args = getArgs(frame, {frameOnly = true})
end
end
if not map then
if not map then
map = getMapParams(args[1], frame)
map = p.getMapParams(args[1], frame)
end
end
local params = {}
local params = {}
56行目: 65行目:
end
end
end
end
return map(args[2], params)
return map(args[2], #params ~= 0 and params)
end
end


64行目: 73行目:
}
}


local function decdeg(degrees, minutes, seconds, hemisphere, digits, decimal, direction)
local function decdeg(degrees, minutes, seconds, hemisphere, decimal, direction)
if not degrees then
if decimal then
if not decimal then
if degrees then
error('No value was provided for ' .. direction, 2)
error(direction .. 'において10進数形式と度分秒は両方指定できません。', 2)
elseif minutes then
error(direction .. 'において分は度分秒方式でのみ指定してください。', 2)
elseif seconds then
error(direction .. 'において秒は度分秒方式でのみ指定してください。', 2)
elseif hemisphere then
error(direction .. 'において半球は度分秒方式でのみ指定してください。', 2)
end
end
local retval = tonumber(decimal)
local retval = tonumber(decimal)
73行目: 88行目:
return retval
return retval
end
end
error('The value "' .. decimal .. '" provided for ' .. direction .. ' is not valid', 2)
error(direction .. 'の値"' .. decimal .. '"は無効です。', 2)
elseif seconds and not minutes then
error(direction .. 'の秒を指定する時は分も指定してください。', 2)
elseif not degrees then
if minutes then
error(direction .. 'の分を指定する時は度も指定してください。', 2)
elseif hemisphere then
error(direction .. 'の半球を指定する時は度も指定してください。', 2)
end
return nil
end
end
decimal = tonumber(degrees)
decimal = tonumber(degrees)
if not decimal then
if not decimal then
error('The degree value "' .. degrees .. '" provided for ' .. direction .. ' is not valid', 2)
error(direction .. 'の度の値"' .. degrees .. '"は無効です。', 2)
end
elseif minutes and not tonumber(minutes) then
if minutes and not tonumber(minutes) then
error(direction .. 'の分の値"' .. minutes .. '"は無効です。', 2)
error('The minute value "' .. minutes .. '" provided for ' .. direction .. ' is not valid', 2)
elseif seconds and not tonumber(seconds) then
end
error(direction .. 'の秒の値"' .. seconds .. '"は無効です。', 2)
if seconds and not tonumber(seconds) then
error('The second value "' .. seconds .. '" provided for ' .. direction .. ' is not valid', 2)
end
end
decimal = decimal + (minutes or 0)/60 + (seconds or 0)/3600
decimal = decimal + (minutes or 0)/60 + (seconds or 0)/3600
89行目: 111行目:
local multiplier = hemisphereMultipliers[direction][hemisphere]
local multiplier = hemisphereMultipliers[direction][hemisphere]
if not multiplier then
if not multiplier then
error('The hemisphere "' .. hemisphere .. '" provided for ' .. direction .. ' is not valid', 2)
error(direction .. 'の半球である"' .. hemisphere .. '"は無効です。', 2)
end
end
decimal = decimal * multiplier
decimal = decimal * multiplier
end
end
if not digits then
return decimal
digits = 7
end
elseif not tonumber(digits) then
 
error('The value "' .. digits .. '" provided for number of digits in ' .. direction .. ' is not valid', 2)
-- Finds a parameter in a transclusion of {{Coord}}.
local function coord2text(para,coord) -- this should be changed for languages which do not use Arabic numerals or the degree sign
local result = mw.text.split(mw.ustring.match(coord,'%-?[%.%d]+°[NS] %-?[%.%d]+°[EW]') or '', '[ °]')
if para == 'longitude' then result = {result[3], result[4]} end
if not tonumber(result[1]) or not result[2] then return error('不正な座標指定です。', 2) end
return tonumber(result[1]) * hemisphereMultipliers[para][result[2]]
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
return round(decimal, digits)
end
end


function p.top(frame, args, map)
function p.top(frame, args, map)
if not args then
if not args then
args = getArgs(frame)
args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
end
end
if not map then
if not map then
map = getMapParams(args[1], frame)
map = p.getMapParams(args[1], frame)
end
end
local width
local width
if args.width then
local default_as_number = tonumber(mw.ustring.match(tostring(args.default_width),"%d*"))
width = mw.ustring.gsub(args.width, 'px', '')
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
else
width = round((args.default_width or 240) * (tonumber(map('defaultscale')) or 1), 0)
width = args.width
end
local retval = ''
if args.float == 'center' then
retval = retval .. '<div class="center">'
end
end
if args.caption then
local width_as_number = tonumber(mw.ustring.match(tostring(width),"%d*")) or 0;
retval = retval .. '<div class="thumb '
    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 '<div class="center">' or ''
if args.caption and args.caption ~= '' and args.border ~= 'infobox' then
retval = retval .. '<div class="noviewer thumb '
if args.float == '"left"' or args.float == 'left' then
if args.float == '"left"' or args.float == 'left' then
retval = retval .. 'tleft'
retval = retval .. 'tleft'
127行目: 189行目:
retval = retval .. 'tright'
retval = retval .. 'tright'
end
end
retval = retval .. '"><div class="thumbinner" style="width:' .. (width + 2) .. 'px;'
retval = retval .. '"><div class="thumbinner" style="width:' .. (width + 2) .. 'px'
if args.border == 'none' then
if args.border == 'none' then
retval = retval .. 'border:none;'
retval = retval .. ';border:none'
elseif args.border then
elseif args.border then
retval = retval .. 'border-color:' .. args.border .. ';'
retval = retval .. ';border-color:' .. args.border
end
retval = retval .. '"><div style="position:relative;width:' .. width .. 'px'
if args.border ~= 'none' then
retval = retval .. ';border:1px solid lightgray'
end
end
retval = retval .. '">'
retval = retval .. '"><div style="position:relative;width:' .. width .. 'px' .. (args.border ~= 'none' and ';border:1px solid lightgray">' or '">')
else
else
retval = retval .. '<div style="width:' .. width .. 'px;'
retval = retval .. '<div style="width:' .. width .. 'px;'
151行目: 209行目:
retval = retval .. '"><div style="width:' .. width .. 'px;padding:0"><div style="position:relative;width:' .. width .. 'px">'
retval = retval .. '"><div style="width:' .. width .. 'px;padding:0"><div style="position:relative;width:' .. width .. 'px">'
end
end
local image
local image = getContainerImage(args, map)
if args.AlternativeMap then
retval = string.format(
image = args.AlternativeMap
'%s[[File:%s|%spx|%s%s]]',
elseif args.relief and map('image1') ~= '' then
retval,
image = map('image1')
image,
width,
args.alt or ((args.label or mw.title.getCurrentTitle().text) .. 'の位置（' .. map('name')) .. '内）',
args.maplink and ('|link=' .. args.maplink) or ''
)
if args.overlay_image then
return retval .. '<div style="position:absolute;top:0;left:0">[[File:' .. args.overlay_image .. '|' .. width .. 'px]]</div>'
else
else
image = map('image')
return retval
end
end
retval = retval .. '[[File:' .. image .. '|' .. width .. 'px|' .. (args.alt or ((args.label or mw.title.getCurrentTitle().text) .. ' is located in ' .. map('name'))) .. ']]'
if args.overlay_image then
retval = retval .. '<div style="position:absolute; top: 0; left: 0">[[File:' .. args.overlay_image .. '|' .. width .. 'px|link=File:' .. image .. ']]</div>'
end
return retval
end
end


function p.bottom(frame, args, map)
function p.bottom(frame, args, map)
if not args then
if not args then
args = getArgs(frame)
args = getArgs(frame, {frameOnly = true, valueFunc = p.valueFunc})
end
end
if not map then
if not map then
map = getMapParams(args[1], frame)
map = p.getMapParams(args[1], frame)
end
local retval = '</div>'
if not args.caption or args.border == 'infobox' then
if args.border then
retval = retval .. '<div>'
else
retval = retval .. '<div style="font-size:90%;padding-top:3px">'
end
retval = retval
.. (args.caption or (args.label or mw.title.getCurrentTitle().text) .. ' (' .. map('name') .. ')')
.. '</div>'
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 .. '<div class="thumbcaption"><div class="magnify">[[:File:' .. getContainerImage(args, map) .. '| ]]</div>' .. args.caption .. '</div>'
end
end
local retval = ''
 
retval = retval .. '</div><div ' .. (args.caption and 'class="thumbcaption"' or 'style="font-size:90%;padding-top:3px"') .. '>'
if args.switcherLabel then
local caption = frame.args.caption or frame:getParent().args.caption
retval = retval .. '<span class="switcher-label" style="display:none">' .. args.switcherLabel .. '</span>'
if caption and not args.caption_undefined then
elseif args.autoSwitcherLabel then
retval = retval .. mw.text.trim(caption)
retval = retval .. '<span class="switcher-label" style="display:none">' .. map('name') .. 'の地図を表示</span>'
else
end
retval = retval .. (args.label or mw.title.getCurrentTitle().text) .. ' (' .. map('name') .. ')'
retval = retval .. '</div></div>'
if args.caption_undefined then
mw.log('caption_undefinedは廃止されたパラメータです。')
local parent = frame:getParent()
if parent then
mw.log('Parent is ' .. parent:getTitle())
end
mw.logObject(args, 'args')
retval = retval .. ''
end
if map('skew') ~= '' or map('lat_skew') ~= '' or map('crosses180') ~= '' or map('type') ~= '' then
mw.log(map() .. 'において廃止されたパラメータです。')
retval = retval .. ''
end
if string.find(map('name'), '|', 1, true) then
mw.log(map() .. 'のLocation map名でパイプを使用しています。')
retval = retval .. ''
end
end
retval = retval .. '</div></div></div>'
if args.float == 'center' then
if args.float == 'center' then
retval = retval .. '</div>'
retval = retval .. '</div>'
188行目: 278行目:
end
end


function p.container(frame, args, map)
local function markOuterDiv(x, y, imageDiv, labelDiv)
if not args then
return mw.html.create('div')
args = getArgs(frame)
:cssText('position:absolute;z-index:1;top:' .. round(y, 3) .. '%;left:' .. round(x, 3) .. '%')
end
:node(imageDiv)
if not map then
:node(labelDiv)
map = getMapParams(args[1], frame)
end
return p.top(frame, args, map) .. (args.places or '') .. p.bottom(frame, args, map)
end
 
local function markOuterDiv(x, y, content)
return '<div style="position:absolute;top:' .. y .. '%;left:' .. x .. '%;height:0;width:0;margin:0;padding:0">' .. content .. '</div>'
end
end


local function markImageDiv(mark, marksize, label, link, alt, title)
local function markImageDiv(mark, marksize, label, link, alt, title)
local retval = '<div style="position:relative;text-align:center;left:-' .. round(marksize / 2, 0) .. 'px;top:-' .. round(marksize / 2, 0) .. 'px;width:' .. marksize .. 'px;font-size:' .. marksize .. 'px;line-height:0"'
local builder = mw.html.create('div')
if title then
:cssText('position:absolute;left:-' .. round(marksize / 2) .. 'px;top:-' .. round(marksize / 2) .. 'px;line-height:0')
retval = retval .. ' title="' .. title .. '"'
:attr('title', title)
end
retval = retval .. '>'
if marksize ~= 0 then
if marksize ~= 0 then
retval = retval .. '[[File:' .. mark .. '|' .. marksize .. 'x' .. marksize .. 'px|' .. label .. '|link=' .. link
builder:wikitext(string.format(
if alt then
'[[File:%s|%dx%dpx|%s|link=%s%s]]',
retval = retval .. '|alt=' .. alt
mark,
end
marksize,
retval = retval .. ']]'
marksize,
label,
link,
alt and ('|alt=' .. alt) or ''
))
end
end
return retval .. '</div>'
return builder
end
end


local function markLabelDiv(label, label_size, label_width, position, background, x)
local function markLabelDiv(label, label_size, label_width, position, background, x, marksize)
local retval = '<div style="font-size:' .. label_size .. '%;line-height:110%;position:relative;top:-1.5em;width:' .. label_width .. 'em;'
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
if position == 'top' then -- specified top
retval = retval .. 'top:-2.65em;left:-3em;text-align:center'
builder:cssText('bottom:' .. distance .. 'px;left:' .. (-label_width / 2) .. 'em;text-align:center')
elseif position == 'bottom' then -- specified bottom
elseif position == 'bottom' then -- specified bottom
retval = retval .. 'top:-0.15em;left:-3em;text-align:center'
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
elseif position == 'left' or (tonumber(x) > 70 and position ~= 'right') then -- specified left or autodetected to left
retval = retval .. 'left:-6.5em;text-align:right'
builder:cssText('top:-0.75em;right:' .. distance .. 'px;text-align:right')
spanCss = 'float:right'
else -- specified right or autodetected to right
else -- specified right or autodetected to right
retval = retval .. 'left:0.5em;text-align:left'
builder:cssText('top:-0.75em;left:' .. distance .. 'px;text-align:left')
spanCss = 'float:left'
end
end
retval = retval .. '"><span style="padding:1px'
builder = builder:tag('span')
:cssText('padding:1px')
:cssText(spanCss)
:wikitext(label)
if background then
if background then
retval = retval .. ';background-color:' .. background
builder:cssText('background-color:' .. background)
end
end
return retval .. '">' .. label .. '</span></div>'
return builder:done()
end
end


local function getX(longitude, latitude, lon_dir, left, right, top, bottom, crosses180, skew, lon_shift)
local function getX(longitude, left, right)
local crosses180_correction = crosses180 and lon_dir == 'W' and (-36000/(left - right)) or 0
local width = (right - left) % 360
if skew then
if width == 0 then
local lat_ratio = (top - latitude)/(top - bottom)
width = 360
local skew_factor = (1 - skew) * lat_ratio + skew
end
longitude = (longitude - 0.5 * (right + left) + lon_shift) * skew_factor + 0.5 * (right + left) - lon_shift
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
end
return round(crosses180_correction + 100 * (longitude - left) / (right - left), 1)
return 100 * distanceFromLeft / width
end
end


local function getY(latitude, top, bottom)
local function getY(latitude, top, bottom)
return round(100 * (top - latitude) / (top - bottom), 1)
return 100 * (top - latitude) / (top - bottom)
end
end


function p.mark(frame, args, map)
function p.mark(frame, args, map)
if not args then
if not args then
args = getArgs(frame)
args = getArgs(frame, {wrappers = 'Template:Location map~'})
end
end
if not map then
if not map then
map = getMapParams(args[1], frame)
map = p.getMapParams(args[1], frame)
end
local x, y, longitude, latitude
longitude = decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, args.long, 'longitude')
latitude = decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, args.lat, 'latitude')
if args.coordinates then
-- Temporarily removed to facilitate infobox conversion.
 
-- if longitude or latitude then
-- error('[[Module:Coordinates]]からの座標とローカル指定座標の両方を提供できません。')
-- 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.P625[1].mainsnak.snaktype == 'value' then
local value = entity.claims.P625[1].mainsnak.datavalue.value
longitude, latitude = value.longitude, value.latitude
end
end
if not longitude then
error('緯度の値が指定されていません。')
elseif not latitude then
error('経度の値が指定されていません。')
end
local builder = mw.html.create()
if (not args.lon_deg) ~= (not args.lat_deg) then
builder:wikitext('')
elseif (not args.lon_min) ~= (not args.lat_min) then
builder:wikitext('')
elseif (not args.lon_sec) ~= (not args.lat_sec) then
builder:wikitext('')
elseif (not args.lon_dir) ~= (not args.lat_dir) then
builder:wikitext('')
elseif (not args.long) ~= (not args.lat) then
builder:wikitext('')
end
if args.skew or args.lon_shift or args.markhigh then
mw.log('呼び出しにおいて廃止されたパラメータです。')
local parent = frame:getParent()
if parent then
mw.log(parent:getTitle() .. 'の親です。')
end
mw.logObject(args, 'args')
builder:wikitext('')
end
end
local x, y, longitude, latitide
longitude = decdeg(args.lon_deg, args.lon_min, args.lon_sec, args.lon_dir, nil, args.long, 'longitude')
latitude = decdeg(args.lat_deg, args.lat_min, args.lat_sec, args.lat_dir, nil, args.lat, 'latitude')
if map('x') ~= '' then
if map('x') ~= '' then
x = frame:callParserFunction('#expr', map('x', { latitude, longitude }))
x = tonumber(mw.ext.ParserFunctions.expr(map('x', { latitude, longitude })))
else
else
x = getX(longitude, latitude, args.lon_dir, map('left'), map('right'), map('top'), map('bottom'), map('crosses180') ~= '', tonumber(args.skew or map('skew')), args.lon_shift or 0)
x = tonumber(getX(longitude, map('left'), map('right')))
end
end
if map('y') ~= '' then
if map('y') ~= '' then
y = frame:callParserFunction('#expr', map('y', { latitude, longitude }))
y = tonumber(mw.ext.ParserFunctions.expr(map('y', { latitude, longitude })))
else
else
y = getY(latitude, map('top'), map('bottom'))
y = tonumber(getY(latitude, map('top'), map('bottom')))
end
if (x < 0 or x > 100 or y < 0 or y > 100) and not args.outside then
mw.log('外部フラグ設定無しに地図外にマークが置かれました。 x = ' .. x .. ', y = ' .. y)
local parent = frame:getParent()
if parent then
mw.log(parent:getTitle() .. 'の親です。')
end
mw.logObject(args, 'args')
builder:wikitext('')
end
end
local mark = args.mark or map('mark')
local mark = args.mark or map('mark')
274行目: 424行目:
mark = 'Red pog.svg'
mark = 'Red pog.svg'
end
end
local divContent = markImageDiv(mark, tonumber(args.marksize) or tonumber(map('marksize')) or 8, args.label or mw.title.getCurrentTitle().text, args.link or '', args.alt, args[2])
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, args[2])
local labelDiv
if args.label and args.position ~= 'none' then
if args.label and args.position ~= 'none' then
divContent = divContent .. markLabelDiv(args.label, args.label_size or 90, args.label_width or 6, args.position, args.background, x)
labelDiv = markLabelDiv(args.label, args.label_size or 90, args.label_width or 6, args.position, args.background, x, marksize)
end
return markOuterDiv(x, y, divContent)
end
 
function p.main(frame, args, map)
if not args then
args = getArgs(frame)
end
end
if not args[1] then
return builder:node(markOuterDiv(x, y, imageDiv, labelDiv))
args[1] = 'World'
end
if not map then
map = getMapParams(args[1], frame)
end
return p.top(frame, args, map) .. p.mark(frame, args, map) .. p.bottom(frame, args, map)
end
end


local function manyMakeArgs(fullArgs, n)
local function switcherSeparate(s)
if n == 1 then
if s == nil then return {} end
return {
local retval = {}
fullArgs[1],
for i in string.gmatch(s .. '#', '([^#]*)#') do
lat = fullArgs.lat1 or fullArgs.lat,
i = mw.text.trim(i)
long = fullArgs.long1 or fullArgs.long,
retval[#retval + 1] = (i ~= '' and i)
lat_deg = fullArgs.lat1_deg or fullArgs.lat_deg,
lat_min = fullArgs.lat1_min or fullArgs.lat_min,
lat_sec = fullArgs.lat1_sec or fullArgs.lat_sec,
lat_dir = fullArgs.lat1_dir or fullArgs.lat_dir,
lon_deg = fullArgs.lon1_deg or fullArgs.lon_deg,
lon_min = fullArgs.lon1_min or fullArgs.lon_min,
lon_sec = fullArgs.lon1_sec or fullArgs.lon_sec,
lon_dir = fullArgs.lon1_dir or fullArgs.lon_dir,
mark = fullArgs.mark1 or fullArgs.mark,
marksize = fullArgs.mark1size or fullArgs.marksize,
link = fullArgs.link1 or fullArgs.link,
label = fullArgs.label1 or fullArgs.label,
label_size = fullArgs.label1_size or fullArgs.label_size,
position = fullArgs.position1 or fullArgs.pos1 or fullArgs.position or fullArgs.pos,
background = fullArgs.background1 or fullArgs.bg1 or fullArgs.background or fullArgs.bg
}
else
return {
fullArgs[1],
lat = fullArgs['lat' .. n],
long = fullArgs['long' .. n],
lat_deg = fullArgs['lat' .. n .. '_deg'],
lat_min = fullArgs['lat' .. n .. '_min'],
lat_sec = fullArgs['lat' .. n .. '_sec'],
lat_dir = fullArgs['lat' .. n .. '_dir'],
lon_deg = fullArgs['lon' .. n .. '_deg'],
lon_min = fullArgs['lon' .. n .. '_min'],
lon_sec = fullArgs['lon' .. n .. '_sec'],
lon_dir = fullArgs['lon' .. n .. '_dir'],
mark = fullArgs['mark' .. n],
marksize = fullArgs['mark' .. n .. 'size'],
link = fullArgs['link' .. n],
label = fullArgs['label' .. n],
label_size = fullArgs['label' .. n .. '_size'],
position = fullArgs['position' .. n] or fullArgs['pos' .. n],
background = fullArgs['background' .. n] or fullArgs['bg' .. n]
}
end
end
return retval
end
end


function p.many(frame, args, map)
function p.main(frame, args, map)
if not args then
if not args then
args = getArgs(frame)
args = getArgs(frame, {wrappers = 'Template:Location map', valueFunc = p.valueFunc})
end
end
if not args[1] then
if args.useWikidata == nil then
args[1] = 'World'
args.useWikidata = true
end
end
if not map then
if not map then
map = getMapParams(args[1], frame)
if args[1] then
end
map = {}
local marks = {}
for mapname in string.gmatch(args[1], '[^#]+') do
local markhigh = args.markhigh
map[#map + 1] = p.getMapParams(mapname, frame)
for k, v in pairs(args) do -- @todo change to uargs once we have that
if v then
if string.sub(k, -4) == '_deg' then
k = string.sub(k, 1, -5)
end
if string.sub(k, 1, 3) == 'lat' then
k = tonumber(string.sub(k, 4))
if k then
table.insert(marks, k)
end
end
end
if #map == 1 then map = map[1] end
else
map = p.getMapParams('World', frame)
end
end
end
end
table.sort(marks)
if type(map) == 'table' then
if marks[1] ~= 1 and (args.lat or args.lat_deg) then
local altmaps = switcherSeparate(args.AlternativeMap)
table.insert(marks, 1, 1)
if #altmaps > #map then
end
error(string.format('%dのAlternativeMapsが提供されていますが、%dの地図のみの提供になります。', #altmaps, #map))
local body = ''
end
for _, v in ipairs(marks) do
local overlays = switcherSeparate(args.overlay_image)
-- don't try to consolidate this into the above loop. ordering of elements from pairs() is unspecified
if #overlays > #map then
body = body .. p.mark(frame, manyMakeArgs(args, v), map)
error(string.format('%dのoverlay_imagesが提供されていますが、%dの地図のみの提供になります。', #overlays, #map))
if args['mark' .. v .. 'high'] then
end
markhigh = true
local outputs = {}
args.autoSwitcherLabel = true
for k,v in ipairs(map) do
args.AlternativeMap = altmaps[k]
args.overlay_image = overlays[k]
outputs[k] = p.main(frame, args, v)
end
end
return '<div class="switcher-container">' .. table.concat(outputs) .. '</div>'
else
return p.top(frame, args, map) .. tostring( p.mark(frame, args, map) ) .. p.bottom(frame, args, map)
end
end
args.label = nil -- there is no global label
return p.top(frame, args, map) .. body .. p.bottom(frame, args, map) .. (markhigh and '[[Category:Location map many using markhigh parameter]]' or '')
end
end


return p
return p
「https://wiki.sakishima.net/特別:携帯機器差分/5512...5525」から取得