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

This module is intended to (eventually) replace some or all functionality of {{location}} and related

templates. At the moment it is collection of methods related to geolocation.  

*function coordinates.LocationTemplateCore(frame)

**function coordinates.GeoHack_link(frame)

***function coordinates.lat_lon(frame)

****function coordinates._deg2dms(deg,lang)

***function coordinates.externalLink(frame)

****function coordinates._externalLink(site, globe, latStr, lonStr, lang, attributes)

**function coordinates._getHeading(attributes)

**function coordinates.externalLinksSection(frame)

***function coordinates._externalLink(site, globe, latStr, lonStr, lang, attributes)

*function coordinates.getHeading(frame)   

*function coordinates.deg2dms(frame)

local i18n    = require('Module:I18n/coordinates')   -- get localized translations of site names

local Fallback = require('Module:Fallback')           -- get fallback functions

local yesno   = require('Module:Yesno')

-- Angles associated with each abriviation of compass point names. See [[:en:Points of the compass]]

-- URL definitions for different sites. Strings: $lat, $lon, $lang, $attr will be replaced with latitude, longitude, language code and GeoHack attribution parameters strings.

GeoHack        = 'http://tools.wmflabs.org/geohack/geohack.php?pagename={{FULLPAGENAMEE}}&params=$lat_N_$lon_E_$attr&language=$lang',

GoogleEarth    = '{{fullurl:tools:~para/GeoCommons/earth.php|latdegdec=$lat&londegdec=$lon&scale=10000&commons=1}}',

Proximityrama  = '{{fullurl:tools:~para/GeoCommons/proximityrama|latlon=$lat,$lon}}',

OpenStreetMap  = '{{fullurl:tools:~kolossos/openlayers/commons-on-osm.php|zoom=16&lat=$lat&lon=$lon}}',

Mars  = 'http://www.google.com/mars/#lat=$lat&lon=$lon&zoom=8',

Moon  = 'http://www.google.com/moon/#lat=$lat&lon=$lon&zoom=8',

Earth = 'http://maps.google.com/maps?ll=$lat,$lon&spn=0.01,0.01&t=k&q=http://toolserver.org/~para/GeoCommons/GeoCommons-simple.kml&hl=$lang'

erroneous    = '[[Category:Media with erroneous locations]]<span style="color:red;font-weight:bold">Error: Invalid parameters!</span>\n'

-- === Functions =========================

-- parse attribute variable returning desired field

function coordinates.parseAttribute(frame)

  return string.match(mw.text.decode(frame.args[1]), mw.text.decode(frame.args[2]) .. ':' .. '([^_]*)') or ''

-- Parse attribute variable returning heading field. If heading is a string than try to convert it to an angle

local attributes

if frame.args[1] then

attributes = frame.args[1]

elseif frame.args.attributes then

attributes = frame.args.attributes

return ''

local hNum = coordinates._getHeading(attributes)

if hNum == nil then

return ''

return tostring(hNum)

function coordinates._getHeading(attributes)

-- Convert degrees to degrees/minutes/seconds notation comonly used when displaying coordinates

function coordinates.deg2dms(frame)

local deg = tonumber(frame.args[1])

if frame.args.lang and mw.language.isSupportedLanguage(frame.args.lang) then  

lang = frame.args.lang

else -- get user's chosen language

lang = frame:preprocess( "{{int:lang}}" )

if deg==nil then

return frame.args[1];

-- Helper core function for deg2dms.  

function coordinates._deg2dms(deg,lang)

local dNum, mNum, sNum, dStr, mStr, sStr

deg = math.floor(360000*(deg%360)+0.49)     -- convert float to an integer. This step HAS to be identical for all conversions to avoid incorrect results due to different rounding

dNum = math.floor(deg/360000) % 360          -- degree number (integer in 0-360 range)

mNum = math.floor(deg/6000  ) %  60          -- minute number (integer in 0-60 range)

sNum =           (deg%6000  ) / 100          -- seconds number (float with 2 decimal digits in 0-60 range)

dStr = Lang:formatNum(dNum)                 -- degree string  

mStr = Lang:formatNum(mNum)                 -- minute string  

sStr = Lang:formatNum(sNum)                 -- second string  

mStr = '0' ..mStr                       -- pad with zero if a single digit

sStr = '0' ..sStr                       -- pad with zero if less than ten

-- format coordinate location string  

function coordinates.lat_lon(frame)

local lat = tonumber(frame.args.lat)

local lon = tonumber(frame.args.lon)

if lon then -- get longitude t0 be in -180 to 180 range

return 'latitude, longitude'

local nsew = Fallback._langSwitch(i18n.NSEW, lang) -- find set of localized translation of N, S, W and E in the desired language  

local SN, EW, latStr, lonStr

if lat<0 then SN = nsew.S else SN = nsew.N end         -- choose S or N depending on latitude  degree sign

if lon<0 then EW = nsew.W else EW = nsew.E end         -- choose W or E depending on longitude degree sign

latStr = coordinates._deg2dms(math.abs(lat), lang)     -- Convert latitude  degrees to degrees/minutes/seconds

lonStr = coordinates._deg2dms(math.abs(lon), lang)     -- Convert longitude degrees to degrees/minutes/seconds

function coordinates.externalLink(frame)

args = frame.args

if args.lang and mw.language.isSupportedLanguage(args.lang) then

lang = frame:preprocess( "{{int:lang}}" )

return coordinates._externalLink(args.site or 'GeoHack', args.globe or 'Earth', args.lat, args.lon, lang, args.attributes or '')

-- Helper core function for externalLink  

function coordinates._externalLink(site, globe, latStr, lonStr, lang, attributes)

local str

str = SiteURL.GoogleMaps[globe]

else

str = SiteURL[site];

str = mw.ustring.gsub( str, '$attr', attributes)

str = mw.ustring.gsub( str, '$lat', latStr)

str = mw.ustring.gsub( str, '$lon', lonStr)

str = mw.ustring.gsub( str, '$lang', lang)

return str

-- adjust attributes depending on the template that calls it

function coordinates.alterAttributes(attributes, mode)

elseif mode=='object'or mode =='globe' then                           -- Used by {{Object location}}

-- Create link to GeoHack tool which displays latitude and longitude coordinates in DMS format

function coordinates.GeoHack_link(frame)

local latlon = coordinates.lat_lon(frame)

if latlon=='lattiude, longitude' then

frame.args.site = 'GeoHack'

local url = frame:preprocess(coordinates.externalLink(frame)) -- use preprocess to get page name

function coordinates.externalLinksSection(frame)

args = frame.args

if args.lang and mw.language.isSupportedLanguage(args.lang) then

lang = args.lang

else -- get user's chosen language  

lang = frame:preprocess( "{{int:lang}}" )

end

if not args.namespaceNum then

args.namespace = frame:preprocess( "{{NAMESPACE}}" )

local str

if args.globe=='Earth' then -- Earth locations will have 3 or 4 links

coordinates._externalLink('OpenStreetMap', 'Earth', args.lat, args.lon, lang, ''),

Fallback._langSwitch(i18n.OpenStreetMaps, lang),

coordinates._externalLink('GoogleMaps'  , 'Earth', args.lat, args.lon, lang, ''),

Fallback._langSwitch(i18n.GoogleMaps, lang),

coordinates._externalLink('GoogleEarth'  , 'Earth', args.lat, args.lon, lang, ''), 

Fallback._langSwitch(i18n.GoogleEarth, lang))

str = string.format('%s - [%s %s]', str,

Fallback._langSwitch(i18n.Proximityrama, lang))

str = string.format('[%s %s]',

coordinates._externalLink('GoogleMaps', args.globe, args.lat, args.lon, lang, ''), 

Fallback._langSwitch(i18n.GoogleMaps, lang))

This method requires several arguments to be passed to it or it's parent metchod/template:

  * namespace  = namespace name: File, Category, (Gallery)

]]

function coordinates.LocationTemplateCore(frame)

if not (args.lang and mw.language.isSupportedLanguage(args.lang)) then  

args.lang = frame:preprocess( "{{int:lang}}" ) -- get user's chosen language

if not (args.namespace) then -- if not provided than look up

args.namespace = frame:preprocess( "{{NAMESPACE}}" )

    args.attributes = coordinates.alterAttributes(args.attributes or '', args.mode)

-- check for errors and add Geo (microformat) code for machine readability.

if lon then -- get longitude t0 be in -180 to 180 range

local Categories, geoMicroFormat, coorTag = '', '', ''

Categories = CoorCat.default

if args.noError==0 or (math.abs(lat)>90) then -- check for errors ({{#coordinates:}} also checks for errors )

-- https://www.mediawiki.org/wiki/Extension:GeoData

if args.namespace == 'File' and Status ~= 'secondary' then -- TODO enable for secondary cases without throwing errors

--coorTag = string.format('{{#coordinates:%f|%f|%s|%s}}', frame.args.lat, frame.args.lon, args.attributes, Status)

coorTag = string.format('{{#coordinates:%10.6f|%11.6f|%s}}', lat, lon, args.attributes)

local str1, str2, str3, str4, inner_table, heading

str1 = coordinates.GeoHack_link(frame) -- the coordinates and link to GeoHack

heading = coordinates._getHeading(frame.args.attributes) -- get heading arrow section

--str1 = string.format('%s&nbsp;&nbsp;<span style="{{Transform-rotate|%f}}">[[File:North Pointer.svg|20px|link=|alt=]]</span>', str1, 360-heading)

local fname = string.format('{{Compass rose file|%f|style=heading}}', heading)

str1 =  string.format('%s&nbsp;&nbsp;[[%s|25px|link=|alt=]]', str1, fname, heading)

str2 = Fallback._langSwitch(i18n.LocationTemplateLinkLabel, args.lang) -- header of the link section

str3 = coordinates.externalLinksSection(frame) or '' -- external link section

str4 = '[[File:Circle-information.svg|18x18px|alt=info|link=Commons:Geocoding]]'

inner_table = string.format('<td style="border:none;">%s</td><td style="border:none;">%s %s</td><td style="border:none;">%s%s</td>', str1, str2, str3, str4, geoMicroFormat)

field_name = Fallback._langSwitch(i18n.CameraLocation, args.lang)

field_name = Fallback._langSwitch(i18n.ObjectLocation, args.lang)

field_list = Fallback._langSwitch(i18n.GlobeLocation, args.lang)

local style = frame:preprocess(string.format('{{Infobar-Layout|lang=%s}}',lang))

templateText  = string.format('<table %s><tr><th class="type fileinfo-paramfield">%s</th>%s</tr></table>', style, field_name, inner_table)

return frame:preprocess(templateText .. Categories .. coorTag)

return coordinates