پرش به محتوا

پودمان:Coordinates: تفاوت میان نسخه‌ها

پودمان:Coordinates (نمایش مبدأ)

نسخهٔ ‏۱۰ نوامبر ۲۰۲۱، ساعت ۱۷:۱۸

۳٬۱۷۵ بایت اضافه‌شده ،  ‏۱۰ نوامبر ۲۰۲۱
جز
۱ نسخه واردشده
جز (۱ نسخه واردشده)
 
جز (۱ نسخه واردشده)
 
(۳ نسخهٔ میانی ویرایش شده توسط ۳ کاربر نشان داده نشد)
خط ۱: خط ۱:
-- بخش‌هایی از این پودمان جهت فارسی‌سازی بهتر تغییر یافته‌است. لطفاً هنگام به‌روزرسانی کاملاً دقت کنید.
-- بخش‌هایی از این پودمان جهت فارسی‌سازی بهتر تغییر یافته‌است. لطفاً هنگام به‌روزرسانی کاملاً دقت کنید.
--نسخه درست
--[[
--[[
This module is intended to replace the functionality of {{Coord}} and related
This module is intended to replace the functionality of {{Coord}} and related
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


]]
]]


local math_mod = require( "Module:Math" );
require('Module:No globals')
 
-- خط زیر برای بومی‌سازی ضروری است
local convert = require( "Module:Numeral converter" ).convert;
local convert = require( "Module:Numeral converter" ).convert;
local globalFrame = nil
local math_mod = require("Module:Math")
local coordinates = {};
local coordinates = {};


local current_page = mw.title.getCurrentTitle()
local current_page = mw.title.getCurrentTitle()
local page_name = mw.uri.encode( current_page.prefixedText, 'WIKI' );
local page_name = mw.uri.encode( current_page.prefixedText, 'WIKI' );
local coord_link = '//tools.wmflabs.org/geohack/geohack.php?language=fa&pagename=' .. page_name .. '&params='
local coord_link = '//geohack.toolforge.org/geohack.php?language=fa&pagename=' .. page_name .. '&params='
local templatestyles = 'Module:Coordinates/styles.css'


--[[ 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 = "[[دستگاه مختصات جغرافیایی|مختصات]]: " .. s
local l = "[[دستگاه مختصات جغرافیایی|مختصات]]: " .. 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>';
co = '<span style="font-size: small;">' .. co .. '</span>';
co = mw.getCurrentFrame():extensionTag{ name = 'indicator', content = co, args = { name = "coordinates"} }
return co;
end
end


--[[ 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


--[[ Helper function, used in detecting DMS formatting ]]
--[[ Helper function, used in detecting DMS formatting ]]
local function dmsTest (first, second)
local function dmsTest(first, second)
local concatenated = first:upper() .. second:upper();
if type(first) ~= 'string' or type(second) ~= 'string' then
return nil
if concatenated == "NE" or concatenated == "NW" or concatenated == "SE" or concatenated == "SW" or
end
concatenated == "EN" or concatenated == "WN" or concatenated == "ES" or concatenated == "WS" then
local s = (first .. second):upper()
return true;
return s:find('^[NS][EW]$') or s:find('^[EW][NS]$')
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 = 'الگو:Coord'
})
return coordinates[funcName](args, frame)
end
end
return false;
end
end


--[[ Helper function, handle optional args. ]]
--[[ Helper function, handle optional args. ]]
local function optionalArg(arg, suplement)
local function optionalArg(arg, supplement)
if arg ~= nil and arg ~= "" then
return arg and arg .. supplement or ''
return arg .. suplement
end
return ""
end
end


خط ۷۴: خط ۸۶:
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)
خط ۸۰: خط ۹۲:
default = "dec"
default = "dec"
end
end
 
if default == mode then
if default == mode then
return "geo-default"
return "geo-default"
خط ۹۲: خط ۱۰۴:


Output formatter.  Takes the structure generated by either parseDec
Output formatter.  Takes the structure generated by either parseDec
or parseDMS and formats it for inclusion on Wikipedia.
or parseDMS and formats it for inclusion on imamatpedia.
]]
]]
local function specPrinter(args, coordinateSpec)
local function specPrinter(args, coordinateSpec)
خط ۹۸: خط ۱۱۰:
if uriComponents == "" then
if uriComponents == "" then
-- RETURN error, should never be empty or nil
-- RETURN error, should never be empty or nil
return "خطا: پارامتر خالی است"
return "خطا: پارامتر خالی است"
end
end
if args["name"] ~= "" and args["name"] ~= nil 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">' .. convert("fa", coordinateSpec["dms-lat"]) .. '</span> '
.. '<span class="latitude">' .. convert("fa", coordinateSpec["dms-lat"]) .. '</span> '
.. '<span class="longitude">' .. convert("fa", coordinateSpec["dms-long"]) .. '</span>'
.. '<span class="longitude">' .. convert("fa", coordinateSpec["dms-long"]) .. '</span>'
.. '</span>'
.. '</span>'


local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
local lat = tonumber( coordinateSpec["dec-lat"] ) or 0
خط ۱۱۳: خط ۱۲۵:
if lat < 0 then
if lat < 0 then
-- FIXME this breaks the pre-existing precision
-- FIXME this breaks the pre-existing precision
-- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
geodeclat = '<span dir="ltr">' .. tostring(coordinateSpec["dec-lat"]):sub(2) .. "°</span>جنوبی"
geodeclat = '<span dir="ltr">' .. coordinateSpec["dec-lat"]:sub(2) .. "°</span> جنوبی"
else
else
-- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
geodeclat = '<span dir="ltr">' .. (coordinateSpec["dec-lat"] or 0) .. "°</span>شمالی"
geodeclat = '<span dir="ltr">' .. (coordinateSpec["dec-lat"] or 0) .. "°</span> شمالی"
end
end


خط ۱۲۴: خط ۱۳۴:
if long < 0 then
if long < 0 then
-- FIXME does not handle unicode minus
-- FIXME does not handle unicode minus
-- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
geodeclong = '<span dir="ltr">' .. tostring(coordinateSpec["dec-long"]):sub(2) .. "°</span>غربی"  
geodeclong = '<span dir="ltr">' .. coordinateSpec["dec-long"]:sub(2) .. "°</span> غربی"
else
else
-- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
geodeclong = '<span dir="ltr">' .. (coordinateSpec["dec-long"] or 0) .. "°</span>شرقی"
geodeclong = '<span dir="ltr">' .. (coordinateSpec["dec-long"] or 0) .. "°</span> شرقی"
end
end
 
local geodechtml = '<span class="geo-dec" title="نقشه‌ها، عکس‌های هوایی، و دیگر داده‌های این موقعیت">'
local geodechtml = '<span class="geo-dec" title="نقشه‌ها، عکس‌های هوایی، و دیگر داده‌های این موقعیت">'
.. convert("fa", geodeclat) .. ' '
.. convert("fa", geodeclat) .. ' ' .. convert("fa", geodeclong) .. '</span>'
.. convert("fa", geodeclong)
.. '</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>'
.. '<span class="geo-multi-punct">&#xfeff; / &#xfeff;</span>'
.. '<span class="geo-multi-punct"> / </span>'
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';
.. '<span class="' .. displayDefault(coordinateSpec["default"], "dec" ) .. '">';


if args["name"] == "" or args["name"] == nil then
if not args["name"] then
inner = inner .. geodechtml  
inner = inner .. geodechtml
.. '<span style="display:none">&#xfeff; / ' .. 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">&#xfeff; / ' .. geonumhtml .. '</span>'
.. '<span style="display:none"> / ' .. geonumhtml .. '</span>'
.. '<span style="display:none">&#xfeff; (<span class="fn org">'
.. '<span style="display:none"> (<span class="fn org">'
.. args["name"] .. '</span>)</span></span></span>'
.. args["name"] .. '</span>)</span></span></span>'
end
end


return '<span class="plainlinks nourlexpansion">' ..  
return mw.getCurrentFrame():extensionTag{ name = 'templatestyles', args = { src = templatestyles} }
'[' .. coord_link .. uriComponents .. ' ' .. inner .. ']' .. '</span>'
      .. '<span class="plainlinks nourlexpansion">'
      .. '[' .. coord_link .. uriComponents .. ' ' .. inner .. ']'
      .. '</span>'
end
end


--[[ Helper function, convert decimal to degrees ]]
--[[ Helper function, convert decimal to degrees ]]
local function convert_dec2dms_d(coordinate)
local function convert_dec2dms_d(coordinate)
-- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
local d = '<span dir="ltr">' .. math_mod._round( coordinate, 0 ) .. "°</span>"
local d = '<span dir="ltr">' .. math_mod._round( coordinate, 0 ) .. "°" .. '</span>'
return d .. ""
return d .. ""
end
end


--[[ 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 = '<span dir="ltr">' .. coordinate % 360 .."°</span>"
local d = '<span dir="ltr">' .. coordinate % 360 .."°" .. '</span>'
 
-- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
return d .. string.format( '<span dir="ltr">%02d′</span>', m )
return d .. string.format( '<span dir="ltr">%02d′</span>', m )
end
end
خط ۱۸۵: خط ۱۹۰:
local m = coordinate % 60
local m = coordinate % 60
coordinate = math.floor( (coordinate - m) / 60 );
coordinate = math.floor( (coordinate - m) / 60 );
-- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
local d = '<span dir="ltr">' .. coordinate % 360 .."°</span>"
local d = '<span dir="ltr">' .. coordinate % 360 .."°" .. '</span>'


    -- ساختار زیر به دلیل فارسی‌سازی بهتر تغییر یافته‌است
return d .. string.format( '<span dir="ltr">%02d′</span>', m ) .. string.format( '<span dir="ltr">%02d″</span>', s )
return d .. string.format( '<span dir="ltr">%02d′</span>', m ) .. string.format( '<span dir="ltr">%02d″</span>', s )
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)
خط ۲۲۲: خط ۲۲۵:
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
direction = direction:gsub('^ *(.-) *$', '%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 ~= nil and seconds_str ~= '' then
if seconds_str then
precision = 5 + math.max( math_mod._precision(seconds_str), 0 );
precision = 5 + math.max( math_mod._precision(seconds_str), 0 );
elseif minutes_str ~= nil and minutes_str ~= '' then
elseif minutes_str and minutes_str ~= '' then
precision = 3 + math.max( math_mod._precision(minutes_str), 0 );
precision = 3 + math.max( math_mod._precision(minutes_str), 0 );
else
else
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.
]]
]]
خط ۲۶۱: خط ۲۶۳:
table.insert(errors, {source, "درجه‌های طول جغرافیایی < ۰ با پرچم نیم‌کره"})
table.insert(errors, {source, "درجه‌های طول جغرافیایی < ۰ با پرچم نیم‌کره"})
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, "درجه‌های طول جغرافیایی > ۱۸۰ با پرچم نیم‌کره"})
table.insert(errors, {source, "درجه‌های طول جغرافیایی > ۱۸۰ با پرچم نیم‌کره"})
end
end
]]
]]
end
end
 
if lat_d > 90 then
if lat_d > 90 then
table.insert(errors, {source, "درجه‌های عرض جغرافیایی > ۹۰"})
table.insert(errors, {source, "درجه‌های عرض جغرافیایی > ۹۰"})
خط ۳۰۹: خط ۳۱۱:
table.insert(errors, {source, "ثانیه‌های طول جغرافیایی < ۰"})
table.insert(errors, {source, "ثانیه‌های طول جغرافیایی < ۰"})
end
end
 
return errors;
return errors;
end
end
خط ۳۱۶: خط ۳۱۸:
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
]]
]]
خط ۳۲۲: خط ۳۲۴:
local coordinateSpec = {}
local coordinateSpec = {}
local errors = {}
local errors = {}
 
if long == "" or long == nil then
if not long then
return nil, {{"parseDec", "طول جغرافیایی وارد نشده‌است"}}
return nil, {{"parseDec", "طول جغرافیایی وارد نشده‌است"}}
elseif not tonumber(long) then
elseif not tonumber(long) then
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, " شمالی", " جنوبی", mode)  -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-lat"]  = convert_dec2dms( lat, "شمالی", "جنوبی", mode)  -- {{coord/dec2dms|{{{1}}}|N|S|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-long"] = convert_dec2dms( long, " شرقی", " غربی", mode)  -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
coordinateSpec["dms-long"] = convert_dec2dms( long, "شرقی", "غربی", mode)  -- {{coord/dec2dms|{{{2}}}|E|W|{{coord/prec dec|{{{1}}}|{{{2}}}}}}}
 
if format ~= "" then
if format then
coordinateSpec.default = format
coordinateSpec.default = format
else
else
خط ۳۴۹: خط ۳۵۱:
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 long_d == nil or long_d == "" then
if not long_d then
return nil, {{"parseDMS", "طول جغرافیایی وارد نشده‌است" }}
return nil, {{"parseDMS", "طول جغرافیایی وارد نشده‌است" }}
elseif not tonumber(long_d) then
elseif not tonumber(long_d) then
return nil, {{"parseDMS", "طول جغرافیایی نمی‌تواند به عنوان یک رقم تجزیه شود:" .. long_d }}
return nil, {{"parseDMS", "طول جغرافیایی نمی‌تواند به عنوان یک رقم تجزیه شود:" .. long_d }}
end
end
 
if lat_m == nil and lat_s == nil and long_m == nil and long_s == nil 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
 
-- تابع زیر جهت فارسی‌کردن رشته‌های مربوط به شمال، غرب، جنوب، و شرق نوشته شده‌است.
-- تابع زیر جهت فارسی‌کردن رشته‌های مربوط به شمال، غرب، جنوب، و شرق نوشته شده‌است.
local function persianChars(enChar)
local function persianChars(enChar)
خط ۴۰۸: خط ۳۹۷:
end
end
end
end
 
-- در ساختار دو خط پایین به دلیل فارسی‌سازی بهتر، تغییری صورت گرفته است.
coordinateSpec["dms-lat"]  = '<span dir="ltr">' .. lat_d.."°"..optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. '</span>' .. persianChars(lat_f)
coordinateSpec["dms-lat"]  = '<span dir="ltr">' .. lat_d .. "°" .. optionalArg(lat_m,"′") .. optionalArg(lat_s,"″") .. '</span>' .. persianChars(lat_f)
coordinateSpec["dms-long"] = '<span dir="ltr">' .. long_d.."°"..optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. '</span>' .. persianChars(long_f)
coordinateSpec["dms-long"] = '<span dir="ltr">' .. long_d .. "°" .. optionalArg(long_m,"′") .. optionalArg(long_s,"″") .. '</span>' .. persianChars(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-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}}}}}
coordinateSpec["dec-long"] = convert_dms2dec(long_f, long_d, long_m, long_s) -- {{coord/dms2dec|{{{8}}}|{{{5}}}|0{{{6}}}|0{{{7}}}}}


if format ~= "" then
if format then
coordinateSpec.default = format
coordinateSpec.default = format
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.
]]
]]
local function formatTest(args)
local function formatTest(args)
local result, errors;
local result, errors
local primary = false;
local backward, primary = false, false
 
if args[1] == "" then
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
-- no lat logic
return errorPrinter( {{"formatTest", "عرض جغرافیایی وارد نشده‌است"}} )
return errorPrinter( {{"formatTest", "عرض جغرافیایی وارد نشده‌است"}} )
خط ۴۳۸: خط ۴۳۴:
-- bad lat logic
-- bad lat logic
return errorPrinter( {{"formatTest", "ناتوان در تجزیه عرض جغرافیایی به عنوان یک رقم:" .. args[1]}} )
return errorPrinter( {{"formatTest", "ناتوان در تجزیه عرض جغرافیایی به عنوان یک رقم:" .. args[1]}} )
elseif args[4] == "" and args[5] == "" and args[6] == "" then
elseif not args[4] and not args[5] and not args[6] then
-- dec logic
-- dec logic
result, errors = parseDec( args[1], args[2], args['format'] )
result, errors = parseDec(args[1], args[2], args.format)
if result == nil then
if not result then
return errorPrinter( errors );
return errorPrinter(errors);
end  
end
result.param = table.concat( {args[1], "_N_", args[2], "_E_", args[3] } );
-- 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
table.insert( errors, { 'formatTest', 'پارامترهای اضافی غیر منتظره' } );
table.insert(errors, {'formatTest', 'پارامترهای اضافی غیر منتظره'})
end
end
if result == nil then
if not result then
return errorPrinter( errors );
return errorPrinter(errors)
end
end
result.param = table.concat( { args[1], args[2], args[3], args[4], args[5],
result.param = getParam(args, 9)
args[6], args[7], args[8], args[9] } , '_' );
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
table.insert( errors, { 'formatTest', 'پارامترهای اضافی غیر منتظره' } );
table.insert(errors, {'formatTest', 'پارامترهای اضافی غیر منتظره'})
end
end
if result == nil then
if not result then
return errorPrinter( errors );
return errorPrinter(errors)
end
end
result.param = table.concat( { args[1], args[2], args[3], args[4], args[5],
result.param = getParam(args, 7)
args[6], args[7] } , '_' );
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', 'پارامترهای اضافی غیر منتظره' } );
table.insert(errors, {'formatTest', 'پارامترهای اضافی غیر منتظره'})
end
end
if result == nil then
if not result then
return errorPrinter( errors );
return errorPrinter(errors)
end
end
result.param = table.concat( { args[1], args[2], args[3], args[4], args[5] } , '_' );
result.param = getParam(args, 5)
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] or '') ~= '' then  
if args[v] then
table.insert( errors, {'formatTest', 'پارامتر: "' .. v .. '=" باید "' .. v .. ' باشد:"' } );
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(qid)
local ret
if mw.wikibase and current_page.namespace == 0 then
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
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
end
end
if ret then
if #errors == 0 then
return string.format('[[رده:%s]]', ret)
return specPrinter( args, result )
else
else
return specPrinter( args, result ) .. " " .. errorPrinter(errors) .. '[[رده:صفحه‌های دارای برچسب مختصات ناقص]]';
return ''
end
end
end
end


خط ۵۰۶: خط ۵۳۷:


Usage:
Usage:
{{ Invoke:Coordinates | link }}
{{#invoke:Coordinates | link }}
 
]]
]]
function coordinates.link(frame)
function coordinates.link(frame)
خط ۵۱۹: خط ۵۵۰:


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
خط ۵۲۷: خط ۵۵۸:
to use.
to use.
]]
]]
function coordinates.dec2dms(frame)
coordinates.dec2dms = makeInvokeFunc('_dec2dms')
globalFrame = frame
function coordinates._dec2dms(args)
local coordinate = frame.args[1]
local coordinate = args[1]
local firstPostfix = frame.args[2]
local firstPostfix = args[2] or ''
local secondPostfix = frame.args[3]
local secondPostfix = args[3] or ''
local precision = frame.args[4]
local precision = args[4] or ''


return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
return convert_dec2dms(coordinate, firstPostfix, secondPostfix, precision)
خط ۵۵۰: خط ۵۸۱:
return 'dms';
return 'dms';
end
end
end
end


--[[
--[[
خط ۵۵۸: خط ۵۸۹:


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).
]]
]]
function coordinates.dms2dec(frame)
coordinates.dms2dec = makeInvokeFunc('_dms2dec')
globalFrame = frame
function coordinates._dms2dec(args)
local direction = frame.args[1]
local direction = args[1]
local degrees = frame.args[2]
local degrees = args[2]
local minutes = frame.args[3]
local minutes = args[3]
local seconds = frame.args[4]
local seconds = args[4]


return convert_dms2dec(direction, degrees, minutes, seconds)
return convert_dms2dec(direction, degrees, minutes, seconds)
خط ۵۸۱: خط ۶۱۲:


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}}.
]]
]]
function coordinates.coord(frame)
coordinates.coord = makeInvokeFunc('_coord')
globalFrame = frame
function coordinates._coord(args)
local args = frame.args
if not tonumber(args[1]) and not args[2] then
local pFrame = frame:getParent();
args[3] = args[1]; args[1] = nil
if args[1] == nil then
local entity = mw.wikibase.getEntityObject(args.qid)
args = pFrame.args;
if entity
if pFrame.args[1] ~= nil then
and entity.claims
for k,v in pairs( frame.args ) do
and entity.claims.P625
args[k] = v;
and entity.claims.P625[1].mainsnak.snaktype == 'value'
end
then
elseif pFrame.args[1] == nil and mw.wikibase.getEntityObject() ~= nil then
local precision = entity.claims.P625[1].mainsnak.datavalue.value.precision
local entity = mw.wikibase.getEntityObject()
args[1] = entity.claims.P625[1].mainsnak.datavalue.value.latitude
if entity and entity.claims and entity.claims.P625 and
args[2] = entity.claims.P625[1].mainsnak.datavalue.value.longitude
entity.claims.P625[1].mainsnak.snaktype == "value" then
if precision then
args[1] = entity.claims.P625[1].mainsnak.datavalue.value.latitude
precision = -math_mod._round(math.log(precision)/math.log(10),0)
args[2] = entity.claims.P625[1].mainsnak.datavalue.value.longitude
args[1] = math_mod._round(args[1],precision)
args[2] = math_mod._round(args[2],precision)
end
end
end
end
end
end
 
for i=1,10 do
-- خطوط زیر به‌منظور بومی‌سازی و پشتیبانی از ارقام فارسی اضافه شدند
if args[i] == nil then  
if args[1] ~= nil then
args[i] = ""
args[1] = convert("en", args[1])
else
end
-- برای پشتیبانی از ارقام فارسی و عدم بروز خطا، ارقام فارسی را به انگلیسی تبدیل می‌کنیم.
if args[2] ~= nil then
args[i] = convert("en", string.match(args[i], '^%s*(.-)%s*$' ));  --remove whitespace
args[2] = convert("en", args[2])
end
end
if args[3] ~= nil then
args[3] = convert("en", args[3])
end
if args[4] ~= nil then
args[4] = convert("en", args[4])
end
if args[5] ~= nil then
args[5] = convert("en", args[5])
end
if args[6] ~= nil then
args[6] = convert("en", args[6])
end
if args[7] ~= nil then
args[7] = convert("en", args[7])
end
if args[8] ~= nil then
args[8] = convert("en", args[8])
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
end
args['format'] = args['format'] or '';
 
local function coord_wrapper(in_args)
local contents = formatTest(args)
-- Calls the parser function {{#coordinates:}}.
local Notes = args.notes or ""
return mw.getCurrentFrame():callParserFunction('#coordinates', in_args) or ''
local Display = string.lower(args.display or "inline")
if Display == '' then
Display = 'inline';
end
end
 
local text = ''
local text = ''
if string.find( Display, 'inline' ) ~= nil
if isInline(Display) then
or Display == 'i'
text = text .. displayinline(contents, Notes)
or Display == 'it'
end
or Display == 'ti'
if isInTitle(Display) then
then
text = text
-- Coordinates are displayed inline.
.. displaytitle(contents, Notes)
text = displayinline(contents, Notes)
.. 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 ~= 'توضیحات' and page_title.subpageText ~= 'آزمایشی' 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
if string.find( Display, 'title' ) ~= nil
end
or Display == 't'
 
or Display == 'it'
--[[
or Display == 'ti'
coordinsert
then
 
-- Coordinates are displayed in the title.
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}}.
text = text .. displaytitle(contents, Notes)
IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED.
-- Add a Wikidata category for mainspace pages.
 
if mw.wikibase and current_page.namespace == 0 then
Usage:
local wikidata_cat
 
local entity = mw.wikibase.getEntityObject()
    {{#invoke:Coordinates | coordinsert | {{Coord}} | parameter:value | parameter:value | … }}
if entity and entity.claims and entity.claims.P625 then
 
local snaktype = entity.claims.P625[1].mainsnak.snaktype
Do not make Geohack unhappy by inserting something which isn't mentioned in the {{Coord}} documentation.
if snaktype == 'value' then
 
wikidata_cat = '[[رده:مختصات در ویکی‌داده]]' -- coordinates exist both here and on Wikidata, and can be compared
]]
elseif snaktype == 'somevalue' then
function coordinates.coordinsert(frame)
wikidata_cat = '[[رده:مختصات در ویکی‌داده که مقدار نامشخص تنظیم شده‌اند]]'
for i, v in ipairs(frame.args) do
elseif snaktype == 'novalue' then
if i ~= 1 then
wikidata_cat = '[[رده:مختصات در ویکی‌داده که بدون مقدار تنظیم شده‌اند]]'
if not mw.ustring.find(frame.args[1], (mw.ustring.match(frame.args[i], '^(.-:)') or '')) then
end
frame.args[1] = mw.ustring.gsub(frame.args[1], '(params=.-)_? ', '%1_'..frame.args[i]..' ')
else
wikidata_cat = '[[رده:مختصاتی که در ویکی‌داده نیستند]]' -- we have to either import the coordinates to Wikidata or remove them here
end
if wikidata_cat then
text = text .. wikidata_cat
end
end
end
end
end
end
 
if frame.args.name then
return text
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], '(&params=[^&"<>%[%] ]*) ', '%1&title=' .. mw.uri.encode(namestr) .. ' ')
end
end
return frame.args[1]
end
end


return coordinates
return coordinates
Heydari
۴۱۵٬۰۷۸

ویرایش

برگرفته از «https://fa.imamatpedia.com/wiki/ویژه:تفاوت_گوشی_همراه/395...545632»