Модул:Coordinates: Разлика помеѓу преработките
[проверена преработка] | [проверена преработка] |
Избришана содржина Додадена содржина
тест обнова на модул Ознака: Отповикано |
с Отповикано уредување на Ehrlich91 (разговор), враќајќи на последната преработка на Bjankuloski06 Ознаки: Отповикување Отповикано |
||
Ред 16: | Ред 16: | ||
]] |
]] |
||
require(' |
require('Module:No globals') |
||
local math_mod = require("Module:Math") |
local math_mod = require("Module:Math") |
||
local coordinates = {}; |
local coordinates = {}; |
||
local isSandbox = mw.getCurrentFrame():getTitle():find('sandbox', 1, true); |
|||
local current_page = mw.title.getCurrentTitle() |
local current_page = mw.title.getCurrentTitle() |
||
Ред 27: | Ред 26: | ||
--[[ Helper function, replacement for {{coord/display/title}} ]] |
--[[ Helper function, replacement for {{coord/display/title}} ]] |
||
local function displaytitle( |
local function displaytitle(s, notes) |
||
local l = "[[Географски координатен систем|Координати]]: " .. s |
|||
return mw.getCurrentFrame():extensionTag{ |
|||
local co = '<span id="coordinates">' .. l .. notes .. '</span>'; |
|||
name = 'indicator', |
|||
return '<span style="font-size: small;">' .. co .. '</span>'; |
|||
args = { name = 'coordinates' }, |
|||
end |
|||
content = '<span id="coordinates">[[Географски координатен систем|Координати]]: ' .. coords .. '</span>' |
|||
} |
|||
--[[ Helper function, Replacement for {{coord/display/inline}} ]] |
|||
local function displayinline(s, notes) |
|||
return s .. notes |
|||
end |
end |
||
Ред 66: | Ред 68: | ||
local result = "" |
local result = "" |
||
for i,v in ipairs(errors) do |
for i,v in ipairs(errors) do |
||
local errorHTML = '<strong class="error">Координати: ' .. v[2] .. '</strong>' |
|||
result = result .. errorHTML .. "<br />" |
|||
end |
end |
||
return result |
return result |
||
Ред 76: | Ред 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) |
||
Ред 82: | Ред 85: | ||
default = "dec" |
default = "dec" |
||
end |
end |
||
if default == mode then |
if default == mode then |
||
return "geo-default" |
return "geo-default" |
||
Ред 100: | Ред 103: | ||
if uriComponents == "" then |
if uriComponents == "" then |
||
-- RETURN error, should never be empty or nil |
-- RETURN error, should never be empty or nil |
||
return "ERROR |
return "ERROR параметар је био празан" |
||
end |
end |
||
if args["name"] then |
if args["name"] then |
||
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="Карти, воздушни снимки и други податоци за местово">' |
local geodmshtml = '<span class="geo-dms" title="Карти, воздушни снимки и други податоци за местово">' |
||
.. '<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 |
||
Ред 124: | Ред 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) .. "° ЗГД" |
geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "° ЗГД" |
||
else |
else |
||
geodeclong = (coordinateSpec["dec-long"] or 0) .. "° ИГД" |
geodeclong = (coordinateSpec["dec-long"] or 0) .. "° ИГД" |
||
end |
end |
||
local geodechtml = '<span class="geo-dec" title="Карти, воздушни снимки и други податоци за местово">' |
local geodechtml = '<span class="geo-dec" title="Карти, воздушни снимки и други податоци за местово">' |
||
.. 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>' |
||
Ред 144: | Ред 147: | ||
if not args["name"] then |
if not args["name"] then |
||
inner = inner .. geodechtml |
inner = inner .. geodechtml |
||
.. '<span style="display:none"> / ' .. geonumhtml .. '</span></span>' |
.. '<span style="display:none"> / ' .. geonumhtml .. '</span></span>' |
||
else |
else |
||
inner = inner .. '<span class="vcard">' .. geodechtml |
inner = inner .. '<span class="vcard">' .. geodechtml |
||
.. '<span style="display:none"> / ' .. geonumhtml .. '</span>' |
.. '<span style="display:none"> / ' .. geonumhtml .. '</span>' |
||
.. '<span style="display:none"> (<span class="fn org">' |
.. '<span style="display:none"> (<span class="fn org">' |
||
Ред 153: | Ред 156: | ||
end |
end |
||
return '<span class="plainlinks nourlexpansion">' .. |
|||
local stylesheetLink = 'Module:Coordinates' .. ( isSandbox and '/sandbox' or '' ) .. '/styles.css' |
|||
'[' .. coord_link .. uriComponents .. ' ' .. inner .. ']' .. '</span>' |
|||
return mw.getCurrentFrame():extensionTag{ |
|||
name = 'templatestyles', args = { src = stylesheetLink } |
|||
} .. '<span class="plainlinks nourlexpansion load-gadget" data-gadget="WikiMiniAtlas">[' .. coord_link .. uriComponents .. |
|||
' ' .. inner .. ']</span>' |
|||
end |
end |
||
Ред 167: | Ред 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 |
||
Ред 188: | Ред 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) |
||
Ред 218: | Ред 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 == "Ј" or direction == "W" or direction == "З" then |
||
factor = -1 |
factor = -1 |
||
end |
end |
||
local precision = 0 |
local precision = 0 |
||
if seconds_str then |
if seconds_str then |
||
Ред 232: | Ред 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. |
||
]] |
]] |
||
Ред 256: | Ред 256: | ||
table.insert(errors, {source, "Степени географска должина < 0 со означена полутопка"}) |
table.insert(errors, {source, "Степени географска должина < 0 со означена полутопка"}) |
||
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, "Степени географска должина> 180 со означена полутопка"}) |
table.insert(errors, {source, "Степени географска должина> 180 со означена полутопка"}) |
||
end |
end |
||
]] |
]] |
||
end |
end |
||
if lat_d > 90 then |
if lat_d > 90 then |
||
table.insert(errors, {source, "Степени географска ширина > 90"}) |
table.insert(errors, {source, "Степени географска ширина > 90"}) |
||
Ред 304: | Ред 304: | ||
table.insert(errors, {source, "Секунди географска должина < 0"}) |
table.insert(errors, {source, "Секунди географска должина < 0"}) |
||
end |
end |
||
return errors; |
return errors; |
||
end |
end |
||
Ред 317: | Ред 317: | ||
local coordinateSpec = {} |
local coordinateSpec = {} |
||
local errors = {} |
local errors = {} |
||
if not long then |
if not long then |
||
return nil, {{"parseDec", "Недостасува географска должина"}} |
return nil, {{"parseDec", "Недостасува географска должина"}} |
||
Ред 323: | Ред 323: | ||
return nil, {{"parseDec", "Географската должина не можеше да се обработи како број: " .. long}} |
return nil, {{"parseDec", "Географската должина не можеше да се обработи како број: " .. 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; |
||
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 |
||
Ред 344: | Ред 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, errors, backward = {}, {} |
local coordinateSpec, errors, backward = {}, {} |
||
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 == 'И' or lat_f == 'W' or lat_f == 'З' then |
if lat_f == 'E' or lat_f == 'И' or lat_f == 'W' or lat_f == 'З' then |
||
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; |
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; |
||
end |
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 |
||
Ред 364: | Ред 364: | ||
return nil, {{"parseDMS", "Географската должина не може да се обработи како бројот: " .. long_d }} |
return nil, {{"parseDMS", "Географската должина не може да се обработи како бројот: " .. 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' or lat_f:upper() == 'Ј' then |
if lat_f:upper() == 'S' or lat_f:upper() == 'Ј' then |
||
Ред 372: | Ред 372: | ||
if long_f:upper() == 'W' or long_f:upper() == 'З' then |
if long_f:upper() == 'W' or long_f:upper() == 'З' 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 |
||
Ред 387: | Ред 387: | ||
else |
else |
||
coordinateSpec.default = "dms" |
coordinateSpec.default = "dms" |
||
end |
end |
||
return coordinateSpec, errors, backward |
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. |
||
Ред 407: | Ред 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 |
||
Ред 419: | Ред 419: | ||
if not result then |
if not result then |
||
return errorPrinter(errors); |
return errorPrinter(errors); |
||
end |
end |
||
-- formatting for geohack: geohack expects D_N_D_E notation or D;D notation |
-- formatting for geohack: geohack expects D_N_D_E notation or D;D notation |
||
-- wikiminiatlas doesn't support D;D notation |
-- wikiminiatlas doesn't support D;D notation |
||
-- #coordinates parserfunction doesn't support negative decimals with NSWE |
-- #coordinates parserfunction doesn't support negative decimals with NSWE |
||
result.param = table.concat({ |
result.param = table.concat({ |
||
math.abs(tonumber(args[1])), |
math.abs(tonumber(args[1])), |
||
((tonumber(args[1]) or 0) < 0) and 'S' or 'N', |
((tonumber(args[1]) or 0) < 0) and 'S' or 'N', |
||
math.abs(tonumber(args[2])), |
math.abs(tonumber(args[2])), |
||
((tonumber(args[2]) or 0) < 0) and 'W' or 'E', |
((tonumber(args[2]) or 0) < 0) and 'W' or 'E', |
||
args[3] or ''}, '_') |
args[3] or ''}, '_') |
||
elseif dmsTest(args[4], args[8]) then |
elseif dmsTest(args[4], args[8]) then |
||
-- dms logic |
-- dms logic |
||
result, errors, backward = 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 |
||
Ред 442: | Ред 442: | ||
elseif dmsTest(args[3], args[6]) then |
elseif dmsTest(args[3], args[6]) then |
||
-- dm logic |
-- dm logic |
||
result, errors, backward = 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 |
||
Ред 453: | Ред 453: | ||
elseif dmsTest(args[2], args[4]) then |
elseif dmsTest(args[2], args[4]) then |
||
-- d logic |
-- d logic |
||
result, errors, backward = 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', 'Пронајдов дополнителни неочекувани параметри'}) |
table.insert(errors, {'formatTest', 'Пронајдов дополнителни неочекувани параметри'}) |
||
end |
end |
||
if not result then |
if not result then |
||
return errorPrinter(errors) |
return errorPrinter(errors) |
||
Ред 464: | Ред 464: | ||
else |
else |
||
-- Error |
-- Error |
||
return errorPrinter({{"formatTest", "Непознат формат на аргументот"}}) |
return errorPrinter({{"formatTest", "Непознат формат на аргументот"}}) |
||
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', 'Параметарот: "' .. v .. '=" би требало да биде "' .. v .. ':"' }) |
table.insert(errors, {'formatTest', 'Параметарот: "' .. v .. '=" би требало да биде "' .. v .. ':"' }) |
||
end |
end |
||
end |
end |
||
local ret = specPrinter(args, result) |
local ret = specPrinter(args, result) |
||
if #errors > 0 then |
if #errors > 0 then |
||
Ред 485: | Ред 485: | ||
Generate Wikidata tracking categories. |
Generate Wikidata tracking categories. |
||
]] |
]] |
||
local function makeWikidataCategories( |
local function makeWikidataCategories() |
||
local ret |
local ret |
||
local qid = qid or mw.wikibase.getEntityIdForCurrentPage() |
|||
if mw.wikibase and current_page.namespace == 0 then |
if mw.wikibase and current_page.namespace == 0 then |
||
local entity = mw.wikibase.getEntityObject() |
|||
if qid and mw.wikibase.entityExists(qid) and mw.wikibase.getBestStatements(qid, "P625") and mw.wikibase.getBestStatements(qid, "P625")[1] then |
|||
if entity and entity.claims and entity.claims.P625 and entity.claims.P625[1] then |
|||
local snaktype = mw.wikibase.getBestStatements(qid, "P625")[1].mainsnak.snaktype |
|||
local snaktype = entity.claims.P625[1].mainsnak.snaktype |
|||
if snaktype == 'value' then |
if snaktype == 'value' then |
||
-- coordinates exist both here and on Wikidata, and can be compared. |
-- coordinates exist both here and on Wikidata, and can be compared. |
||
Ред 518: | Ред 518: | ||
Usage: |
Usage: |
||
{{#invoke:Coordinates | link }} |
{{#invoke:Coordinates | link }} |
||
]] |
]] |
||
function coordinates.link(frame) |
function coordinates.link(frame) |
||
Ред 530: | Ред 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 |
||
Ред 561: | Ред 561: | ||
return 'dms'; |
return 'dms'; |
||
end |
end |
||
end |
end |
||
--[[ |
--[[ |
||
Ред 569: | Ред 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). |
||
]] |
]] |
||
Ред 596: | Ред 596: | ||
{{#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}}. |
||
Ред 607: | Ред 607: | ||
coordinates.coord = makeInvokeFunc('_coord') |
coordinates.coord = makeInvokeFunc('_coord') |
||
function coordinates._coord(args) |
function coordinates._coord(args) |
||
if not tonumber(args[1]) and not args[2] then |
if (not args[1] or not tonumber(args[1])) and not args[2] and mw.wikibase.getEntityObject() then |
||
args[3] = args[1]; args[1] = nil |
args[3] = args[1]; args[1] = nil |
||
local entity = mw.wikibase.getEntityObject( |
local entity = mw.wikibase.getEntityObject() |
||
if entity |
if entity |
||
and entity.claims |
and entity.claims |
||
and entity.claims.P625 |
and entity.claims.P625 |
||
Ред 616: | Ред 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] |
args[1]=entity.claims.P625[1].mainsnak.datavalue.value.latitude |
||
args[2] |
args[2]=entity.claims.P625[1].mainsnak.datavalue.value.longitude |
||
if precision then |
if precision then |
||
precision |
precision=-math_mod._round(math.log(precision)/math.log(10),0) |
||
args[1] |
args[1]=math_mod._round(args[1],precision) |
||
args[2] |
args[2]=math_mod._round(args[2],precision) |
||
end |
end |
||
end |
end |
||
end |
end |
||
local contents, backward = 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' |
||
-- it and ti are short for inline,title and title,inline |
|||
local function isInline(s) |
local function isInline(s) |
||
-- Finds whether coordinates are displayed inline. |
-- Finds whether coordinates are displayed inline. |
||
Ред 639: | Ред 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) |
local function coord_wrapper(in_args) |
||
-- Calls the parser function {{#coordinates:}}. |
-- Calls the parser function {{#coordinates:}}. |
||
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args) or '' |
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args) or '' |
||
end |
end |
||
local text = '' |
local text = '' |
||
if isInline(Display) then |
if isInline(Display) then |
||
text = text .. |
text = text .. displayinline(contents, Notes) |
||
end |
end |
||
if isInTitle(Display) then |
if isInTitle(Display) then |
||
text = text |
|||
-- Add to output since indicator content is invisible to Lua later on |
|||
.. displaytitle(contents, Notes) |
|||
if not isInline(Display) then |
|||
.. makeWikidataCategories() |
|||
text = text .. '<span class="geo-inline-hidden noexcerpt">' .. contents .. Notes .. '</span>' |
|||
end |
|||
text = text .. displaytitle(contents .. Notes) .. makeWikidataCategories(args.qid) |
|||
end |
end |
||
if not args.nosave then |
if not args.nosave then |
||
Ред 667: | Ред 664: | ||
while count <= 9 do args[count] = (args[count] or ''); count = count+1 end |
while count <= 9 do args[count] = (args[count] or ''); count = count+1 end |
||
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 |
if isInTitle(Display) and not page_title.isTalkPage and (page_title.subpageText ~= 'doc' and page_title.subpageText ~= 'dok' and page_title.subpageText ~= 'док') and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end |
||
args.notes, args.format, args.display = nil |
args.notes, args.format, args.display = nil |
||
text = text .. coord_wrapper(args) |
text = text .. coord_wrapper(args) |
||
Ред 687: | Ред 684: | ||
]] |
]] |
||
function coordinates. |
function coordinates.coord2text(frame) |
||
if |
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 |
if frame.args[2] == 'lat' or frame.args[2] == 'long' then |
||
local result, negative = mw.text.split((mw.ustring.match( |
local result, negative = mw.text.split((mw.ustring.match(frame.args[1],'[%.%d]+°[NS] [%.%d]+°[EW]') or ''), ' ') |
||
if |
if frame.args[2] == 'lat' then |
||
result, negative = result[1], 'S' |
result, negative = result[1], 'S' |
||
else |
else |
||
Ред 701: | Ред 698: | ||
return result[1] |
return result[1] |
||
else |
else |
||
return mw.ustring.match( |
return mw.ustring.match(frame.args[1], 'params=.-_'..frame.args[2]..':(.-)[ _]') |
||
end |
end |
||
end |
|||
function coordinates.coord2text(frame) |
|||
return coordinates._coord2text(frame.args[1],frame.args[2]) |
|||
end |
end |
||
Ред 723: | Ред 716: | ||
]] |
]] |
||
function coordinates.coordinsert(frame) |
function coordinates.coordinsert(frame) |
||
-- for the 2nd or later integer parameter (the first is the coord template, as above) |
|||
for i, v in ipairs(frame.args) do |
for i, v in ipairs(frame.args) do |
||
if i ~= 1 then |
if i ~= 1 then |
||
if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or '')) then |
|||
-- if we cannot find in the coord_template the i_th coordinsert parameter e.g. region |
|||
if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or '')) then |
|||
-- find from the params= up to the first possibly-present underscore |
|||
-- and append the i_th coordinsert parameter and a space |
|||
-- IDK why we're adding a space but it does seem somewhat convenient |
|||
frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ') |
frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ') |
||
end |
end |
||
Ред 736: | Ред 724: | ||
end |
end |
||
if frame.args.name then |
if frame.args.name then |
||
-- if we can't find the vcard class |
|||
if not mw.ustring.find(frame.args[1], '<span class="vcard">') then |
if not mw.ustring.find(frame.args[1], '<span class="vcard">') then |
||
-- take something that looks like a coord template and add the vcard span with class and fn org class |
|||
local namestr = frame.args.name |
local namestr = frame.args.name |
||
frame.args[1] = mw.ustring.gsub( |
frame.args[1] = mw.ustring.gsub(frame.args[1], |
||
'(<span class="geo%-default">)(<span[^<>]*>[^<>]*</span><span[^<>]*>[^<>]*<span[^<>]*>[^<>]*</span></span>)(</span>)', |
|||
frame.args[1], |
|||
' |
'%1<span class="vcard">%2<span style="display:none"> (<span class="fn org">' .. namestr .. '</span>)</span></span>%3') |
||
frame.args[1] = mw.ustring.gsub(frame.args[1], '(¶ms=[^&"<>%[%] ]*) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ') |
|||
'%1<span class="vcard">%2<span style="display:none"> (<span class="fn org">' .. namestr .. '</span>)</span></span>%3' |
|||
) |
|||
-- then find anything from coordinates parameters to the 'end' and attach the title parameter |
|||
frame.args[1] = mw.ustring.gsub( |
|||
frame.args[1], |
|||
'(¶ms=[^&"<>%[%] ]*) ', |
|||
'%1&title=' .. mw.uri.encode(namestr) .. ' ' |
|||
) |
|||
end |
end |
||
end |
end |
||
-- replace the existing indicator with a new indicator using the modified content |
|||
frame.args[1] = mw.ustring.gsub( |
|||
frame.args[1], |
|||
'(<span class="geo%-inline[^"]*">(.+)</span>)\127[^\127]*UNIQ%-%-indicator%-%x+%-%-?QINU[^\127]*\127', |
|||
function (inline, coord) return inline .. displaytitle(coord) end |
|||
) |
|||
return frame.args[1] |
return frame.args[1] |
||
end |
end |
Преработка од 21:41, 15 април 2024
Документацијата за овој модул можете да ја создадете на Модул:Coordinates/док
--[[
This module is intended to replace the functionality of {{Coord}} and related
templates. It provides several methods, including
{{#invoke:Coordinates | coord }} : General function formatting and displaying
coordinate values.
{{#invoke:Coordinates | dec2dms }} : Simple function for converting decimal
degree values to DMS format.
{{#invoke:Coordinates | dms2dec }} : Simple function for converting DMS format
to decimal degree format.
{{#invoke:Coordinates | link }} : Export the link used to reach the tools
]]
require('Module:No globals')
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 = '//tools.wmflabs.org/geohack/geohack.php?language=mk?pagename=' .. page_name .. '¶ms='
--[[ Helper function, replacement for {{coord/display/title}} ]]
local function displaytitle(s, notes)
local l = "[[Географски координатен систем|Координати]]: " .. s
local co = '<span id="coordinates">' .. l .. notes .. '</span>';
return '<span style="font-size: small;">' .. co .. '</span>';
end
--[[ Helper function, Replacement for {{coord/display/inline}} ]]
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('^[NS][EW]$') or s:find('^[EW][NS]$') or s:find('^[СЈ][ИЗ]$') or s:find('^[ИЗ][СЈ]$')
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 = 'Template:Coord'
})
return coordinates[funcName](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 = '<strong class="error">Координати: ' .. v[2] .. '</strong>'
result = result .. errorHTML .. "<br />"
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 {{coord}} 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 "ERROR параметар је био празан"
end
if args["name"] then
uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"])
end
local geodmshtml = '<span class="geo-dms" title="Карти, воздушни снимки и други податоци за местово">'
.. '<span class="latitude">' .. coordinateSpec["dms-lat"] .. '</span> '
.. '<span class="longitude">' ..coordinateSpec["dms-long"] .. '</span>'
.. '</span>'
local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
local geodeclat
if lat < 0 then
-- FIXME this breaks the pre-existing precision
geodeclat = tostring(coordinateSpec["dec-lat"]):sub(2) .. "° ЈГШ;"
else
geodeclat = (coordinateSpec["dec-lat"] or 0) .. "° СГШ;"
end
local long = tonumber( coordinateSpec["dec-long"] ) or 0
local geodeclong
if long < 0 then
-- FIXME does not handle unicode minus
geodeclong = tostring(coordinateSpec["dec-long"]):sub(2) .. "° ЗГД"
else
geodeclong = (coordinateSpec["dec-long"] or 0) .. "° ИГД"
end
local geodechtml = '<span class="geo-dec" title="Карти, воздушни снимки и други податоци за местово">'
.. geodeclat .. ' '
.. geodeclong
.. '</span>'
local geonumhtml = '<span class="geo">'
.. coordinateSpec["dec-lat"] .. '; '
.. coordinateSpec["dec-long"]
.. '</span>'
local inner = '<span class="' .. displayDefault(coordinateSpec["default"], "dms" ) .. '">' .. geodmshtml .. '</span>'
.. '<span class="geo-multi-punct"> / </span>'
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';
if not args["name"] then
inner = inner .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span></span>'
else
inner = inner .. '<span class="vcard">' .. geodechtml
.. '<span style="display:none"> / ' .. geonumhtml .. '</span>'
.. '<span style="display:none"> (<span class="fn org">'
.. args["name"] .. '</span>)</span></span></span>'
end
return '<span class="plainlinks nourlexpansion">' ..
'[' .. coord_link .. uriComponents .. ' ' .. inner .. ']' .. '</span>'
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, firstPostfix, secondPostfix, precision)
local coord = tonumber(coordinate)
local postfix
if coord >= 0 then
postfix = firstPostfix
else
postfix = secondPostfix
end
precision = precision:lower();
if precision == "dms" then
return convert_dec2dms_dms( math.abs( coord ) ) .. postfix;
elseif precision == "dm" then
return convert_dec2dms_dm( math.abs( coord ) ) .. postfix;
elseif precision == "d" then
return convert_dec2dms_d( math.abs( coord ) ) .. postfix;
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 == "Ј" or direction == "W" or direction == "З" 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 < 0 then
table.insert(errors, {source, "Степени географска ширина < 0 со означена полутопка"})
end
if long_d < 0 then
table.insert(errors, {source, "Степени географска должина < 0 со означена полутопка"})
end
--[[
#coordinates is inconsistent about whether this is an error. If globe: is
specified, it won't error on this condition, but otherwise it will.
For not simply disable this check.
if long_d > 180 then
table.insert(errors, {source, "Степени географска должина> 180 со означена полутопка"})
end
]]
end
if lat_d > 90 then
table.insert(errors, {source, "Степени географска ширина > 90"})
end
if lat_d < -90 then
table.insert(errors, {source, "Степени географска ширина < −90"})
end
if lat_m >= 60 then
table.insert(errors, {source, "Минути географска ширина >= 60"})
end
if lat_m < 0 then
table.insert(errors, {source, "Минути географска ширина < 0"})
end
if lat_s >= 60 then
table.insert(errors, {source, "Секунди географска ширина >= 60"})
end
if lat_s < 0 then
table.insert(errors, {source, "Секунди географска ширина < 0"})
end
if long_d >= 360 then
table.insert(errors, {source, "Степени географска должина >= 360"})
end
if long_d <= -360 then
table.insert(errors, {source, "Степени географска должина <= −360"})
end
if long_m >= 60 then
table.insert(errors, {source, "Минути географска должина >= 60"})
end
if long_m < 0 then
table.insert(errors, {source, "Минути географска должина < 0"})
end
if long_s >= 60 then
table.insert(errors, {source, "Секунди географска должина >= 60"})
end
if long_s < 0 then
table.insert(errors, {source, "Секунди географска должина < 0"})
end
return errors;
end
--[[
parseDec
Transforms decimal format latitude and longitude into the
structure to be used in displaying coordinates
]]
local function parseDec( lat, long, format )
local coordinateSpec = {}
local errors = {}
if not long then
return nil, {{"parseDec", "Недостасува географска должина"}}
elseif not tonumber(long) then
return nil, {{"parseDec", "Географската должина не можеше да се обработи како број: " .. long}}
end
errors = validate( lat, nil, nil, long, nil, nil, 'parseDec', false );
coordinateSpec["dec-lat"] = lat;
coordinateSpec["dec-long"] = 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-long"] = convert_dec2dms( long, " E", " W", mode) -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
if format then
coordinateSpec.default = format
else
coordinateSpec.default = "dec"
end
return coordinateSpec, errors
end
--[[
parseDMS
Transforms degrees, minutes, seconds format latitude and longitude
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 coordinateSpec, errors, backward = {}, {}
lat_f = lat_f:upper();
long_f = long_f:upper();
-- Check if specified backward
if lat_f == 'E' or lat_f == 'И' or lat_f == 'W' or lat_f == 'З' then
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;
end
errors = validate( lat_d, lat_m, lat_s, long_d, long_m, long_s, 'parseDMS', true );
if not long_d then
return nil, {{"parseDMS", "Недостасува географска должина" }}
elseif not tonumber(long_d) then
return nil, {{"parseDMS", "Географската должина не може да се обработи како бројот: " .. long_d }}
end
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 lat_f:upper() == 'S' or lat_f:upper() == 'Ј' then
lat_d = '-' .. lat_d;
end
if long_f:upper() == 'W' or long_f:upper() == 'З' then
long_d = '-' .. long_d;
end
return parseDec( lat_d, long_d, format );
end
end
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["dec-lat"] = convert_dms2dec(lat_f, lat_d, lat_m, lat_s) -- {{coord/dms2dec|{{{4}}}|{{{1}}}|0{{{2}}}|0{{{3}}}}}
coordinateSpec["dec-long"] = convert_dms2dec(long_f, long_d, long_m, long_s) -- {{coord/dms2dec|{{{8}}}|{{{5}}}|0{{{6}}}|0{{{7}}}}}
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
ret[i] = args[i] or ''
end
return table.concat(ret, '_')
end
if not args[1] then
-- no lat logic
return errorPrinter( {{"formatTest", "Недостасува географска ширина"}} )
elseif not tonumber(args[1]) then
-- bad lat logic
return errorPrinter( {{"formatTest", "Географската ширина не може да се обработи као бројот:" .. args[1]}} )
elseif not args[4] and not args[5] and not args[6] then
-- dec logic
result, errors = parseDec(args[1], args[2], args.format)
if not result then
return errorPrinter(errors);
end
-- 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
-- dms logic
result, errors, backward = parseDMS(args[1], args[2], args[3], args[4],
args[5], args[6], args[7], args[8], args.format)
if args[10] then
table.insert(errors, {'formatTest', 'Пронајдов дополнителни неочекувани параметри'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 9)
elseif dmsTest(args[3], args[6]) then
-- dm logic
result, errors, backward = parseDMS(args[1], args[2], nil, args[3],
args[4], args[5], nil, args[6], args['format'])
if args[8] then
table.insert(errors, {'formatTest', 'Пронајдов дополнителни неочекувани параметри'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 7)
elseif dmsTest(args[2], args[4]) then
-- d logic
result, errors, backward = parseDMS(args[1], nil, nil, args[2],
args[3], nil, nil, args[4], args.format)
if args[6] then
table.insert(errors, {'formatTest', 'Пронајдов дополнителни неочекувани параметри'})
end
if not result then
return errorPrinter(errors)
end
result.param = getParam(args, 5)
else
-- Error
return errorPrinter({{"formatTest", "Непознат формат на аргументот"}})
end
result.name = args.name
local extra_param = {'dim', 'globe', 'scale', 'region', 'source', 'type'}
for _, v in ipairs(extra_param) do
if args[v] 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.P625[1] then
local snaktype = entity.claims.P625[1].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:
{{#invoke:Coordinates | link }}
]]
function coordinates.link(frame)
return coord_link;
end
--[[
dec2dms
Wrapper to allow templates to call dec2dms directly.
Usage:
{{#invoke:Coordinates | dec2dms | decimal_coordinate | positive_suffix |
negative_suffix | precision }}
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 = args[1]
local firstPostfix = args[2] or ''
local secondPostfix = args[3] or ''
local precision = args[4] 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 <= 0 then
return 'd'
elseif precision <= 2 then
return 'dm';
else
return 'dms';
end
end
--[[
dms2dec
Wrapper to allow templates to call dms2dec directly.
Usage:
{{#invoke:Coordinates | dms2dec | direction_flag | degrees |
minutes | seconds }}
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
positive (i.e. N and E) or negative (i.e. S and W).
]]
coordinates.dms2dec = makeInvokeFunc('_dms2dec')
function coordinates._dms2dec(args)
local direction = args[1]
local degrees = args[2]
local minutes = args[3]
local seconds = args[4]
return convert_dms2dec(direction, degrees, minutes, seconds)
end
--[[
coord
Main entry point for Lua function to replace {{coord}}
Usage:
{{#invoke:Coordinates | coord }}
{{#invoke:Coordinates | coord | lat | long }}
{{#invoke:Coordinates | coord | lat | lat_flag | long | long_flag }}
...
Refer to {{coord}} documentation page for many additional parameters and
configuration options.
Note: This function provides the visual display elements of {{coord}}. In
order to load coordinates into the database, the {{#coordinates:}} parser
function must also be called, this is done automatically in the Lua
version of {{coord}}.
]]
coordinates.coord = makeInvokeFunc('_coord')
function coordinates._coord(args)
if (not args[1] or not tonumber(args[1])) and not args[2] and mw.wikibase.getEntityObject() then
args[3] = args[1]; args[1] = nil
local entity = mw.wikibase.getEntityObject()
if entity
and entity.claims
and entity.claims.P625
and entity.claims.P625[1].mainsnak.snaktype == 'value'
then
local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
args[1]=entity.claims.P625[1].mainsnak.datavalue.value.latitude
args[2]=entity.claims.P625[1].mainsnak.datavalue.value.longitude
if precision then
precision=-math_mod._round(math.log(precision)/math.log(10),0)
args[1]=math_mod._round(args[1],precision)
args[2]=math_mod._round(args[2],precision)
end
end
end
local contents, backward = formatTest(args)
local Notes = args.notes or ''
local Display = args.display and args.display:lower() or 'inline'
local function isInline(s)
-- Finds whether coordinates are displayed inline.
return s:find('inline') ~= nil or s == 'i' or s == 'it' or s == 'ti'
end
local function isInTitle(s)
-- Finds whether coordinates are displayed in the title.
return s:find('title') ~= nil or s == 't' or s == 'it' or s == 'ti'
end
local function coord_wrapper(in_args)
-- Calls the parser function {{#coordinates:}}.
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args) or ''
end
local text = ''
if isInline(Display) then
text = text .. displayinline(contents, Notes)
end
if isInTitle(Display) then
text = text
.. displaytitle(contents, Notes)
.. makeWikidataCategories()
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 ~= 'dok' and page_title.subpageText ~= 'док') and page_title.subpageText ~= 'testcases' then args[10] = 'primary' end
args.notes, args.format, args.display = nil
text = text .. coord_wrapper(args)
end
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"> (<span class="fn org">' .. namestr .. '</span>)</span></span>%3')
frame.args[1] = mw.ustring.gsub(frame.args[1], '(¶ms=[^&"<>%[%] ]*) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ')
end
end
return frame.args[1]
end
return coordinates