Module:Coordinates: Difference between revisions

From Chalo Chatu, Zambia online encyclopedia

Module:Coordinates (view source)

Revision as of 13:11, 22 September 2019

3,726 bytes added ,  22 September 2019
m
1 revision imported
No edit summary
m (1 revision imported)
 
(3 intermediate revisions by the same user not shown)
Line 3: Line 3:
templates.  It provides several methods, including
templates.  It provides several methods, including


{{#Invoke:Coordinates | coord }} : General function formatting and displaying
{{#invoke:Coordinates | coord }} : General function formatting and displaying
coordinate values.
coordinate values.


{{#Invoke:Coordinates | dec2dms }} : Simple function for converting decimal
{{#invoke:Coordinates | dec2dms }} : Simple function for converting decimal
degree values to DMS format.
degree values to DMS format.


{{#Invoke:Coordinates | dms2dec }} : Simple function for converting DMS format
{{#invoke:Coordinates | dms2dec }} : Simple function for converting DMS format
to decimal degree format.
to decimal degree format.


{{#Invoke:Coordinates | link }} : Export the link used to reach the tools
{{#invoke:Coordinates | link }} : Export the link used to reach the tools


]]
]]
require('Module:No globals')


local math_mod = require("Module:Math")
local math_mod = require("Module:Math")
Line 25: Line 27:
--[[ Helper function, replacement for {{coord/display/title}} ]]
--[[ Helper function, replacement for {{coord/display/title}} ]]
local function displaytitle(s, notes)
local function displaytitle(s, notes)
local l = "Coordinates: " .. s
local l = "[[Geographic coordinate system|Coordinates]]: " .. s
local co = '<span id="coordinates">' .. l .. notes .. '</span>';
local co = '<span id="coordinates">' .. l .. notes .. '</span>';
return '<span style="font-size: small;">' .. co .. '</span>';
return '<span style="font-size: small;">' .. co .. '</span>';
Line 32: Line 34:
--[[ Helper function, Replacement for {{coord/display/inline}} ]]
--[[ Helper function, Replacement for {{coord/display/inline}} ]]
local function displayinline(s, notes)
local function displayinline(s, notes)
return s .. notes
return s .. notes
end
end


Line 51: Line 53:
wrappers = 'Template:Coord'
wrappers = 'Template:Coord'
})
})
return coordinates[funcName](args)
return coordinates[funcName](args, frame)
end
end
end
end
Line 77: Line 79:
Usually geo-nondefault is hidden by CSS, unless a user has overridden this for himself
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 {{coord}} template
default is the mode as specificied by the user when calling the {{coord}} template
mode is the display mode (dec or dms) that we will need to determine the css class for  
mode is the display mode (dec or dms) that we will need to determine the css class for
]]
]]
local function displayDefault(default, mode)
local function displayDefault(default, mode)
Line 83: Line 85:
default = "dec"
default = "dec"
end
end
 
if default == mode then
if default == mode then
return "geo-default"
return "geo-default"
Line 106: Line 108:
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
end
end
 
local geodmshtml = '<span class="geo-dms" title="Maps, aerial photos, and other data for this location">'
local geodmshtml = '<span class="geo-dms" title="Maps, aerial photos, and other data for this location">'
.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '
.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '
.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'
.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'
.. '</span>'
.. '</span>'


local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
Line 125: Line 127:
if long < 0 then
if long < 0 then
-- FIXME does not handle unicode minus
-- FIXME does not handle unicode minus
geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "°W"  
geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "°W"
else
else
geodeclong = (coordinateSpec["dec-long"] or 0) .. "°E"
geodeclong = (coordinateSpec["dec-long"] or 0) .. "°E"
end
end
 
local geodechtml = '<span class="geo-dec" title="Maps, aerial photos, and other data for this location">'
local geodechtml = '<span class="geo-dec" title="Maps, aerial photos, and other data for this location">'
.. geodeclat .. ' '
.. geodeclat .. ' '
.. geodeclong
.. geodeclong
.. '</span>'
.. '</span>'


local geonumhtml = '<span class="geo">'
local geonumhtml = '<span class="geo">'
.. coordinateSpec["dec-lat"] .. '; '
.. coordinateSpec["dec-lat"] .. '; '
.. coordinateSpec["dec-long"]
.. coordinateSpec["dec-long"]
.. '</span>'
.. '</span>'


local inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms" ) .. '">' .. geodmshtml .. '</span>'
local inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms" ) .. '">' .. geodmshtml .. '</span>'
Line 145: Line 147:


if not args["name"] then
if not args["name"] then
inner = inner .. geodechtml  
inner = inner .. geodechtml
.. '<span style="display:none">&#xfeff; / ' .. geonumhtml .. '</span></span>'
.. '<span style="display:none">&#xfeff; / ' .. geonumhtml .. '</span></span>'
else
else
inner = inner .. '<span class="vcard">' .. geodechtml  
inner = inner .. '<span class="vcard">' .. geodechtml
.. '<span style="display:none">&#xfeff; / ' .. geonumhtml .. '</span>'
.. '<span style="display:none">&#xfeff; / ' .. geonumhtml .. '</span>'
.. '<span style="display:none">&#xfeff; (<span class="fn org">'
.. '<span style="display:none">&#xfeff; (<span class="fn org">'
Line 154: Line 156:
end
end


return '<span class="plainlinks nourlexpansion">' ..  
return '<span class="plainlinks nourlexpansion">' ..
'[' .. coord_link .. uriComponents .. ' ' .. inner .. ']' .. '</span>'
'[' .. coord_link .. uriComponents .. ' ' .. inner .. ']' .. '</span>'
end
end
Line 165: Line 167:


--[[ Helper function, convert decimal to degrees and minutes ]]
--[[ Helper function, convert decimal to degrees and minutes ]]
local function convert_dec2dms_dm(coordinate)
local function convert_dec2dms_dm(coordinate)
coordinate = math_mod._round( coordinate * 60, 0 );
coordinate = math_mod._round( coordinate * 60, 0 );
local m = coordinate % 60;
local m = coordinate % 60;
coordinate = math.floor( (coordinate - m) / 60 );
coordinate = math.floor( (coordinate - m) / 60 );
local d = coordinate % 360 .."°"
local d = coordinate % 360 .."°"
 
return d .. string.format( "%02d′", m )
return d .. string.format( "%02d′", m )
end
end
Line 186: Line 188:
end
end


--[[  
--[[
Helper function, convert decimal latitude or longitude to  
Helper function, convert decimal latitude or longitude to
degrees, minutes, and seconds format based on the specified precision.
degrees, minutes, and seconds format based on the specified precision.
]]
]]
local function convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
local function convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
Line 216: Line 218:
local minutes = tonumber(minutes_str) or 0
local minutes = tonumber(minutes_str) or 0
local seconds = tonumber(seconds_str) or 0
local seconds = tonumber(seconds_str) or 0
 
local factor = 1
local factor = 1
if direction == "S" or direction == "W" then
if direction == "S" or direction == "W" then
factor = -1
factor = -1
end
end
 
local precision = 0
local precision = 0
if seconds_str then
if seconds_str then
Line 230: Line 232:
precision = math.max( math_mod._precision(degrees_str), 0 );
precision = math.max( math_mod._precision(degrees_str), 0 );
end
end
 
local decimal = factor * (degrees+(minutes+seconds/60)/60)  
local decimal = factor * (degrees+(minutes+seconds/60)/60)
return string.format( "%." .. precision .. "f", decimal ) -- not tonumber since this whole thing is string based.
return string.format( "%." .. precision .. "f", decimal ) -- not tonumber since this whole thing is string based.
end
end


--[[  
--[[
Checks input values to for out of range errors.
Checks input values to for out of range errors.
]]
]]
Line 254: Line 256:
table.insert(errors, {source, "longitude degrees < 0 with hemisphere flag"})
table.insert(errors, {source, "longitude degrees < 0 with hemisphere flag"})
end
end
--[[  
--[[
#coordinates is inconsistent about whether this is an error.  If globe: is
#coordinates is inconsistent about whether this is an error.  If globe: is
specified, it won't error on this condition, but otherwise it will.
specified, it won't error on this condition, but otherwise it will.
 
For not simply disable this check.
For not simply disable this check.
 
if long_d > 180 then
if long_d > 180 then
table.insert(errors, {source, "longitude degrees > 180 with hemisphere flag"})
table.insert(errors, {source, "longitude degrees > 180 with hemisphere flag"})
end
end
]]
]]
end
end
 
if lat_d > 90 then
if lat_d > 90 then
table.insert(errors, {source, "latitude degrees > 90"})
table.insert(errors, {source, "latitude degrees > 90"})
Line 302: Line 304:
table.insert(errors, {source, "longitude seconds < 0"})
table.insert(errors, {source, "longitude seconds < 0"})
end
end
 
return errors;
return errors;
end
end
Line 309: Line 311:
parseDec
parseDec


Transforms decimal format latitude and longitude into the a
Transforms decimal format latitude and longitude into the
structure to be used in displaying coordinates
structure to be used in displaying coordinates
]]
]]
Line 315: Line 317:
local coordinateSpec = {}
local coordinateSpec = {}
local errors = {}
local errors = {}
 
if not long then
if not long then
return nil, {{"parseDec", "Missing longitude"}}
return nil, {{"parseDec", "Missing longitude"}}
Line 321: Line 323:
return nil, {{"parseDec", "Longitude could not be parsed as a number: " .. long}}
return nil, {{"parseDec", "Longitude could not be parsed as a number: " .. long}}
end
end
 
errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );
errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );
coordinateSpec["dec-lat"]  = lat;
coordinateSpec["dec-lat"]  = lat;
coordinateSpec["dec-long"] = long;
coordinateSpec["dec-long"] = long;
Line 328: Line 330:
local mode = coordinates.determineMode( lat, long );
local mode = coordinates.determineMode( lat, long );
coordinateSpec["dms-lat"]  = convert_dec2dms( lat, "N", "S", mode)  -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-lat"]  = convert_dec2dms( lat, "N", "S", mode)  -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "W", mode)  -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "W", mode)  -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
 
if format then
if format then
coordinateSpec.default = format
coordinateSpec.default = format
Line 342: Line 344:
parseDMS
parseDMS


Transforms degrees, minutes, seconds format latitude and longitude  
Transforms degrees, minutes, seconds format latitude and longitude
into the a structure to be used in displaying coordinates
into the a structure to be used in displaying coordinates
]]
]]
local function parseDMS( lat_d, lat_m, lat_s, lat_f, long_d, long_m, long_s, long_f, format )
local function parseDMS( lat_d, lat_m, lat_s, lat_f, long_d, long_m, long_s, long_f, format )
local coordinateSpec = {}
local coordinateSpec, errors, backward = {}, {}
local errors = {}
 
lat_f = lat_f:upper();
lat_f = lat_f:upper();
long_f = long_f:upper();
long_f = long_f:upper();
 
-- Check if specified backward
-- Check if specified backward
if lat_f == 'E' or lat_f == 'W' then
if lat_f == 'E' or lat_f == 'W' then
local t_d, t_m, t_s, t_f;
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;
t_d = lat_d;
end
t_m = lat_m;
 
t_s = lat_s;
t_f = lat_f;
lat_d = long_d;
lat_m = long_m;
lat_s = long_s;
lat_f = long_f;
long_d = t_d;
long_m = t_m;
long_s = t_s;
long_f = t_f;
end
errors = validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, 'parseDMS', true );
errors = validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, 'parseDMS', true );
if not long_d then
if not long_d then
Line 375: Line 364:
return nil, {{"parseDMS", "Longitude could not be parsed as a number:" .. long_d }}
return nil, {{"parseDMS", "Longitude could not be parsed as a number:" .. long_d }}
end
end
 
if not lat_m and not lat_s and not long_m and not long_s and #errors == 0 then  
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 math_mod._precision( lat_d ) > 0 or math_mod._precision( long_d ) > 0 then
if lat_f:upper() == 'S' then  
if lat_f:upper() == 'S' then
lat_d = '-' .. lat_d;
lat_d = '-' .. lat_d;
end
end
if long_f:upper() == 'W' then  
if long_f:upper() == 'W' then
long_d = '-' .. long_d;
long_d = '-' .. long_d;
end
end
 
return parseDec( lat_d, long_d, format );
return parseDec( lat_d, long_d, format );
end
end
end  
end
 
coordinateSpec["dms-lat"]  = lat_d.."°"..optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. lat_f
coordinateSpec["dms-lat"]  = lat_d.."°"..optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. lat_f
coordinateSpec["dms-long"] = long_d.."°"..optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. long_f
coordinateSpec["dms-long"] = long_d.."°"..optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. long_f
Line 398: Line 387:
else
else
coordinateSpec.default = "dms"
coordinateSpec.default = "dms"
end  
end


return coordinateSpec, errors
return coordinateSpec, errors, backward
end
end


--[[  
--[[
Check the input arguments for coord to determine the kind of data being provided
Check the input arguments for coord to determine the kind of data being provided
and then make the necessary processing.
and then make the necessary processing.
Line 409: Line 398:
local function formatTest(args)
local function formatTest(args)
local result, errors
local result, errors
local primary = false
local backward, primary = false, false


local function getParam(args, lim)
local function getParam(args, lim)
Line 418: Line 407:
return table.concat(ret, '_')
return table.concat(ret, '_')
end
end
 
if not args[1] then
if not args[1] then
-- no lat logic
-- no lat logic
Line 430: Line 419:
if not result then
if not result then
return errorPrinter(errors);
return errorPrinter(errors);
end  
end
result.param = table.concat({args[1], 'N', args[2] or '', 'E', args[3] or ''}, '_')
-- formatting for geohack: geohack expects D_N_D_E notation or D;D notation
-- wikiminiatlas doesn't support D;D notation
-- #coordinates parserfunction doesn't support negative decimals with NSWE
result.param = table.concat({
math.abs(tonumber(args[1])),
((tonumber(args[1]) or 0) < 0) and 'S' or 'N',
math.abs(tonumber(args[2])),
((tonumber(args[2]) or 0) < 0) and 'W' or 'E',
args[3] or ''}, '_')
elseif dmsTest(args[4], args[8]) then
elseif dmsTest(args[4], args[8]) then
-- dms logic
-- dms logic
result, errors = parseDMS(args[1], args[2], args[3], args[4],  
result, errors, backward = parseDMS(args[1], args[2], args[3], args[4],
args[5], args[6], args[7], args[8], args.format)
args[5], args[6], args[7], args[8], args.format)
if args[10] then
if args[10] then
Line 445: Line 442:
elseif dmsTest(args[3], args[6]) then
elseif dmsTest(args[3], args[6]) then
-- dm logic
-- dm logic
result, errors = parseDMS(args[1], args[2], nil, args[3],  
result, errors, backward = parseDMS(args[1], args[2], nil, args[3],
args[4], args[5], nil, args[6], args['format'])
args[4], args[5], nil, args[6], args['format'])
if args[8] then
if args[8] then
Line 456: Line 453:
elseif dmsTest(args[2], args[4]) then
elseif dmsTest(args[2], args[4]) then
-- d logic
-- d logic
result, errors = parseDMS(args[1], nil, nil, args[2],  
result, errors, backward = parseDMS(args[1], nil, nil, args[2],
args[3], nil, nil, args[4], args.format)
args[3], nil, nil, args[4], args.format)
if args[6] then
if args[6] then
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
table.insert(errors, {'formatTest', 'Extra unexpected parameters'})
end
end
if not result then
if not result then
return errorPrinter(errors)
return errorPrinter(errors)
Line 470: Line 467:
end
end
result.name = args.name
result.name = args.name
 
local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type'}
local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type'}
for _, v in ipairs(extra_param) do
for _, v in ipairs(extra_param) do
if args[v] then  
if args[v] then
table.insert(errors, {'formatTest', 'Parameter: "' .. v .. '=" should be "' .. v .. ':"' })
table.insert(errors, {'formatTest', 'Parameter: "' .. v .. '=" should be "' .. v .. ':"' })
end
end
end
end
 
local ret = specPrinter(args, result)
local ret = specPrinter(args, result)
if #errors > 0 then
if #errors > 0 then
ret = ret .. ' ' .. errorPrinter(errors) .. '[[Category:Pages with malformed coordinate tags]]'
ret = ret .. ' ' .. errorPrinter(errors) .. '[[Category:Pages with malformed coordinate tags]]'
end
end
return ret
return ret, backward
end
end


Line 488: Line 485:
Generate Wikidata tracking categories.
Generate Wikidata tracking categories.
]]
]]
local function makeWikidataCategories()
local function makeWikidataCategories(qid)
local ret
local ret
if mw.wikibase and current_page.namespace == 0 then
if mw.wikibase and current_page.namespace == 0 then
local entity = mw.wikibase.getEntityObject()
local entity = qid and mw.wikibase.getEntityObject(qid) or mw.wikibase.getEntityObject()
if entity and entity.claims and entity.claims.P625 and entity.claims.P625[1] then
if entity and entity.claims and entity.claims.P625 and entity.claims.P625[1] then
local snaktype = entity.claims.P625[1].mainsnak.snaktype
local snaktype = entity.claims.P625[1].mainsnak.snaktype
Line 520: Line 517:


Usage:
Usage:
{{ Invoke:Coordinates | link }}
{{#invoke:Coordinates | link }}
 
]]
]]
function coordinates.link(frame)
function coordinates.link(frame)
Line 533: Line 530:


Usage:
Usage:
{{ Invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |  
{{#invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |
negative_suffix | precision }}
negative_suffix | precision }}
 
decimal_coordinate is converted to DMS format.  If positive, the positive_suffix
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
is appended (typical N or E), if negative, the negative suffix is appended.  The
Line 564: Line 561:
return 'dms';
return 'dms';
end
end
end
end


--[[
--[[
Line 572: Line 569:


Usage:
Usage:
{{ Invoke:Coordinates | dms2dec | direction_flag | degrees |  
{{#invoke:Coordinates | dms2dec | direction_flag | degrees |
minutes | seconds }}
minutes | seconds }}
 
Converts DMS values specified as degrees, minutes, seconds too decimal format.
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  
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).
positive (i.e. N and E) or negative (i.e. S and W).
]]
]]
Line 595: Line 592:


Usage:
Usage:
{{ Invoke:Coordinates | coord }}
{{#invoke:Coordinates | coord }}
{{ Invoke:Coordinates | coord | lat | long }}
{{#invoke:Coordinates | coord | lat | long }}
{{ Invoke:Coordinates | coord | lat | lat_flag | long | long_flag }}
{{#invoke:Coordinates | coord | lat | lat_flag | long | long_flag }}
...
...
 
Refer to {{coord}} documentation page for many additional parameters and  
Refer to {{coord}} documentation page for many additional parameters and
configuration options.
configuration options.
 
Note: This function provides the visual display elements of {{coord}}.  In
Note: This function provides the visual display elements of {{coord}}.  In
order to load coordinates into the database, the {{#coordinates:}} parser  
order to load coordinates into the database, the {{#coordinates:}} parser
function must also be called, this is done automatically in the Lua
function must also be called, this is done automatically in the Lua
version of {{coord}}.
version of {{coord}}.
Line 610: Line 607:
coordinates.coord = makeInvokeFunc('_coord')
coordinates.coord = makeInvokeFunc('_coord')
function coordinates._coord(args)
function coordinates._coord(args)
if not args[1] and not args[2] and mw.wikibase.getEntityObject() then
if not tonumber(args[1]) and not args[2] then
local entity = mw.wikibase.getEntityObject()
args[3] = args[1]; args[1] = nil
if entity  
local entity = mw.wikibase.getEntityObject(args.qid)
if entity
and entity.claims
and entity.claims
and entity.claims.P625
and entity.claims.P625
Line 618: Line 616:
then
then
local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
args[1]=entity.claims.P625[1].mainsnak.datavalue.value.latitude
args[1] = entity.claims.P625[1].mainsnak.datavalue.value.latitude
args[2]=entity.claims.P625[1].mainsnak.datavalue.value.longitude
args[2] = entity.claims.P625[1].mainsnak.datavalue.value.longitude
if precision then
if precision then
precision=-math_mod._round(math.log(precision)/math.log(10),0)
precision = -math_mod._round(math.log(precision)/math.log(10),0)
args[1]=math_mod._round(args[1],precision)
args[1] = math_mod._round(args[1],precision)
args[2]=math_mod._round(args[2],precision)
args[2] = math_mod._round(args[2],precision)
end
end
end
end
end
end
 
local contents = formatTest(args)
local contents, backward = formatTest(args)
local Notes = args.notes or ''
local Notes = args.notes or ''
local Display = args.display and args.display:lower() or 'inline'
local Display = args.display and args.display:lower() or 'inline'
Line 640: Line 638:
return s:find('title') ~= nil or s == 't' or s == 'it' or s == 'ti'
return s:find('title') ~= nil or s == 't' or s == 'it' or s == 'ti'
end
end
 
local function coord_wrapper(in_args)
-- Calls the parser function {{#coordinates:}}.
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args) or ''
end
 
local text = ''
local text = ''
if isInline(Display) then
if isInline(Display) then
Line 648: Line 651:
text = text
text = text
.. displaytitle(contents, Notes)
.. displaytitle(contents, Notes)
.. makeWikidataCategories()
.. makeWikidataCategories(args.qid)
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 ~= 'doc' and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end
args.notes, args.format, args.display = nil
text = text .. coord_wrapper(args)
end
end
return text
return text
end
--[[
coord2text
Extracts a single value from a transclusion of {{Coord}}.
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.
Usage:
    {{#invoke:Coordinates | coord2text | {{Coord}} | parameter }}
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(frame.args[1],'[%.%d]+°[NS] [%.%d]+°[EW]') or ''), ' ')
if frame.args[2] == 'lat' then
result, negative = result[1], 'S'
else
result, negative = result[2], 'W'
end
result = mw.text.split(result, '°')
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 {{Coord}} (if that text isn't already in the transclusion). Outputs the modified transclusion of {{Coord}}.
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.
Usage:
    {{#invoke:Coordinates | coordinsert | {{Coord}} | parameter:value | parameter:value | … }}
Do not make Geohack unhappy by inserting something which isn't mentioned in the {{Coord}} 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(frame.args[1], '<span class="vcard">') then
local namestr = frame.args.name
frame.args[1] = mw.ustring.gsub(frame.args[1],
'(<span class="geo%-default">)(<span[^<>]*>[^<>]*</span><span[^<>]*>[^<>]*<span[^<>]*>[^<>]*</span></span>)(</span>)',
'%1<span class="vcard">%2<span style="display:none">&#xfeff; (<span class="fn org">' .. namestr .. '</span>)</span></span>%3')
frame.args[1] = mw.ustring.gsub(frame.args[1], '(&params=[^&"<>%[%] ]*) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ')
end
end
return frame.args[1]
end
end


return coordinates
return coordinates
Icem4k
Administrators, upwizcampeditors
0

edits

Retrieved from "http://www.chalochatu.org/Special:MobileDiff/6026...20639"