![]() | Bu modül şu Lua modülünü kullanıyor: |
Bu Lua modülü 1.000.000+ sayfada kullanılmaktadır. Bundan dolayı üzerinde yapılan değişiklikler hemen fark edilecektir. Lütfen yapacağınız değişiklikleri öncelikle şablonun ile alt sayfalarında ya da kendi test ediniz. Eğer yapmayı planladığınız değişiklikler ile istediğiniz sonucu elde edemiyorsanız görüş alışverişinde bulununuz. |
Bu modül şu Vikiveri ögesini kullanıyor:
|
Bu modül şu Vikiveri ögesini :
|
Note: The code which this module's main function (coord
) outputs is directly parsed and/or manipulated by Module:Location map and other functions of this module itself (coord2text
and coordinsert
). If the structure of the output changes (for example, to use the <mapframe>
and <maplink>
tags), please update the aforementioned scripts as well.
Modules using this module directly
İzleme kategorileri
- (71)
- (0)
- (0)
--[[ This module is intended to replace the functionality of {{Coord}} and related templates. It provides several methods, including {{#invoke:Koordinatlar| coord }} : General function formatting and displaying coordinate values. {{#invoke:Koordinatlar| dec2dms }} : Simple function for converting decimal degree values to DMS format. {{#invoke:Koordinatlar| dms2dec }} : Simple function for converting DMS format to decimal degree format. {{#invoke:Koordinatlar| link }} : Export the link used to reach the tools ]] require('Module:No globals') local wikidata_mod = require("Modül:WikidataIB") 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?pagename=tr:' .. page_name .. '¶ms=' local templatestyles = 'Modül:Koordinatlar/styles.css' --[[ Helper function, replacement for {{coord/display/title}} ]] local function displaytitle(s, notes) -- see [[phab:T281974#7109643]] local l = "[[Coğrafi koordinat sistemi|Koordinatlar]]: " .. s local co = '<span id="coordinates">' .. l .. notes .. '</span>' co = '<div class="mw-parser-output">' .. co .. '</div>' co = mw.getCurrentFrame():extensionTag( 'indicator', co, { name = 'coordinates' } ) return co 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]$') 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 = 'Şablon:Koordinat' }) 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">Koordinatlar: ' .. 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 "HATA parametresi boştu" end if args["name"] then uriComponents = uriComponents .. "&title=" .. mw.uri.encode(coordinateSpec["name"]) end local geodmshtml = '<span class="geo-dms" title="Bu konum için haritalar, havadan fotoğraflar ve diğer veriler">' .. '<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) .. "°G" else geodeclat = (coordinateSpec["dec-lat"] or 0) .. "°K" 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) .. "°B" else geodeclong = (coordinateSpec["dec-long"] or 0) .. "°D" end local geodechtml = '<span class="geo-dec" title="Bu konum için haritalar, hava fotoğrafı ve diğer veriler">' .. 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 local comp = mw.ustring.gsub(uriComponents, 'K', 'N') comp = mw.ustring.gsub(comp, 'G', 'S') comp = mw.ustring.gsub(comp, 'D', 'E') comp = mw.ustring.gsub(comp, 'B', 'W') return mw.getCurrentFrame():extensionTag{ name = 'templatestyles', args = { src = templatestyles} } .. '<span class="plainlinks nourlexpansion">' .. '[' .. coord_link .. comp .. ' ' .. 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 == "G" or direction == "B" 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, "latitude degrees < 0 with hemisphere flag"}) end if long_d < 0 then table.insert(errors, {source, "longitude degrees < 0 with hemisphere flag"}) 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, "longitude degrees > 180 with hemisphere flag"}) end ]] end if lat_d > 90 then table.insert(errors, {source, "latitude degrees > 90"}) end if lat_d < -90 then table.insert(errors, {source, "latitude degrees < -90"}) end if lat_m >= 60 then table.insert(errors, {source, "latitude minutes >= 60"}) end if lat_m < 0 then table.insert(errors, {source, "latitude minutes < 0"}) end if lat_s >= 60 then table.insert(errors, {source, "latitude seconds >= 60"}) end if lat_s < 0 then table.insert(errors, {source, "latitude seconds < 0"}) end if long_d >= 360 then table.insert(errors, {source, "longitude degrees >= 360"}) end if long_d <= -360 then table.insert(errors, {source, "longitude degrees <= -360"}) end if long_m >= 60 then table.insert(errors, {source, "longitude minutes >= 60"}) end if long_m < 0 then table.insert(errors, {source, "longitude minutes < 0"}) end if long_s >= 60 then table.insert(errors, {source, "longitude seconds >= 60"}) end if long_s < 0 then table.insert(errors, {source, "longitude seconds < 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", "Boylam eksik"}} elseif not tonumber(long) then return nil, {{"parseDec", "Boylam sayı olarak ayrıştırılamadı: " .. 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}}}|K|G|{{coord/prec dec|{{{1}}}|{{{2}}}}}}} coordinateSpec["dms-long"] = convert_dec2dms( long, "E", "W", mode) -- {{coord/dec2dms|{{{2}}}|D|B|{{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(); if lat_f == 'N' then lat_f = 'K' end if lat_f == 'S' then lat_f = 'G' end if long_f == 'E' then long_f = 'D' end if long_f == 'W' then long_f = 'B' end -- Check if specified backward if lat_f == 'D' or lat_f == 'B' 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", "Boylam eksik" }} elseif not tonumber(long_d) then return nil, {{"parseDMS", "Boylam sayı olarak ayrıştırılamadı:" .. 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() == 'G' then lat_d = '-' .. lat_d; end if long_f:upper() == 'B' 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", "Enlem eksik"}} ) elseif not tonumber(args[1]) then -- bad lat logic return errorPrinter( {{"formatTest", "Enlem bir sayı olarak ayrıştırılamıyor:" .. 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 result.param = table.concat({args[1], 'K', args[2] or '', 'D', 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', 'Extra unexpected parameters'}) 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', 'Extra unexpected parameters'}) 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', 'Extra unexpected parameters'}) end if not result then return errorPrinter(errors) end result.param = getParam(args, 5) else -- Error return errorPrinter({{"formatTest", "Bilinmeyen bağımsız değişken biçimi"}}) 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', 'Parameter: "' .. v .. '=" should be "' .. v .. ':"' }) end end local ret = specPrinter(args, result) if #errors > 0 then ret = ret .. ' ' .. errorPrinter(errors) .. '[[Kategori:Hatalı biçimlendirilmiş koordinata sahip sayfalar]]' 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. elseif snaktype == 'somevalue' then ret = 'Coordinates on Wikidata set to unknown value' elseif snaktype == 'novalue' then ret = 'Coordinates on Wikidata set to no value' end else -- We have to either import the coordinates to Wikidata or remove them here. end end if ret then return string.format('[[Kategori:%s]]', ret) else return '' end end --[[ link Simple function to export the coordinates link for other uses. Usage: {{#invoke:Koordinatlar| link }} ]] function coordinates.link(frame) return coord_link; end --[[ dec2dms Wrapper to allow templates to call dec2dms directly. Usage: {{#invoke:Koordinatlar| 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:Koordinatlar| 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:Koordinatlar| coord }} {{#invoke:Koordinatlar| coord | lat | long }} {{#invoke:Koordinatlar| 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 tonumber(args[1]) and not args[2] then args[3] = args[1]; args[1] = nil local entity = mw.wikibase.getEntityObject(args.qid) 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(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 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:Koordinatlar| 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], 'G' else result, negative = result[2], 'B' 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 {{Koordinatlar}} (if that text isn't already in the transclusion). Outputs the modified transclusion of {{Koordinatlar}}. IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED. Usage: {{#invoke:Koordinatlar | coordinsert | {{Koordinatlar}} | parameter:value | parameter:value | … }} Do not make Geohack unhappy by inserting something which isn't mentioned in the {{Koordinatlar}} 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 function coordinates.parsecoord(frame, s) local lat_long = {} lat_long[1], lat_long[2], lat_long[3], lat_long[4], lat_long[5], lat_long[6], lat_long[7], lat_long[8] = mw.ustring.match (s, '(%d+)°(%d+)'(.*)([NS]),%s*(%d+)°(%d+)'(.*)([EW])') lat_long[3] = mw.ustring.gsub(lat_long[3], '"', '') lat_long[3] = mw.ustring.gsub(lat_long[3], '"', '') lat_long[7] = mw.ustring.gsub(lat_long[7], '"', '') lat_long[7] = mw.ustring.gsub(lat_long[7], '"', '') return frame:expandTemplate{ title = 'Koordinat', args = { lat_long[1], lat_long[2], lat_long[3], lat_long[4], lat_long[5], lat_long[6], lat_long[7], lat_long[8], display = 'inline, title'} } end function coordinates.getCoorFromWikidata(frame) local entity = mw.wikibase.getEntityObject() if entity == nil then return end local koor = '' local claims if entity.claims then claims = entity.claims["P625"] end if claims then koor = claims[1].mainsnak.datavalue.value["latitude"] .. ' N, ' .. claims[1].mainsnak.datavalue.value["longitude"] .. ' E' end if koor ~= "" then koor = parseDec(claims[1].mainsnak.datavalue.value["latitude"], claims[1].mainsnak.datavalue.value["longitude"]) local dms_lat = mw.ustring.gsub(koor["dms-lat"], '′', ''') dms_lat = mw.ustring.gsub(dms_lat, '″', '"') local dms_long = mw.ustring.gsub(koor["dms-long"], '′', ''') dms_long = mw.ustring.gsub(dms_long, '″', '"') koor = coordinates.parsecoord(frame, dms_lat .. ', ' .. dms_long) end return koor end function coordinates.generateMap(frame) local qid local _zoom = 12 local _width = 270 local _height = 270 local _text if frame.args[1] ~= nil then qid = frame.args[1] end if frame.args["zoom"] ~= nil then _zoom = frame.args["zoom"] end if frame.args["width"] ~= nil then _width = frame.args["width"] end if frame.args["height"] ~= nil then _height = frame.args["height"] end if frame.args["text"] ~= nil then _text = frame.args["text"] end local entity = mw.wikibase.getEntityObject(qid) if entity == nil then return end local claims if entity.claims then claims = entity.claims["P625"] end if claims then local geojson = {} local lat local lon local latAVG = 0 local lonAVG = 0 local count = 0 for i, v in ipairs(claims) do lon = v.mainsnak.datavalue.value["longitude"] lat = v.mainsnak.datavalue.value["latitude"] lonAVG = lonAVG + lon latAVG = latAVG + lat local feature feature = { type = "Feature", properties = { ["marker-symbol"] = "-number", ["marker-color"] = "ff0000", ["marker-size"] = "small" }, geometry = { type = "Point", coordinates = { lon, lat } } } table.insert(geojson, feature) count = count + 1 end lonAVG = lonAVG / count latAVG = latAVG / count return frame:extensionTag{ name = 'mapframe', content = mw.text.jsonEncode(geojson), args = { align = 'center', frameless = '', zoom = _zoom, width = _width, height = _height, text = _text, latitude = latAVG, longitude = lonAVG } } end end return coordinates
wikipedia, wiki, viki, vikipedia, oku, kitap, kütüphane, kütübhane, ara, ara bul, bul, herşey, ne arasanız burada,hikayeler, makale, kitaplar, öğren, wiki, bilgi, tarih, yukle, izle, telefon için, turk, türk, türkçe, turkce, nasıl yapılır, ne demek, nasıl, yapmak, yapılır, indir, ücretsiz, ücretsiz indir, bedava, bedava indir, mp3, video, mp4, 3gp, jpg, jpeg, gif, png, resim, müzik, şarkı, film, film, oyun, oyunlar, mobil, cep telefonu, telefon, android, ios, apple, samsung, iphone, xiomi, xiaomi, redmi, honor, oppo, nokia, sonya, mi, pc, web, computer, bilgisayar
Modul belgelemesi gor degistir gecmis temizle Bu modul su Lua modulunu kullaniyor Modul WikidataIBBu Lua modulu 1 000 000 sayfada kullanilmaktadir Bundan dolayi uzerinde yapilan degisiklikler hemen fark edilecektir Lutfen yapacaginiz degisiklikleri oncelikle sablonun ile alt sayfalarinda ya da kendi kullanici sayfanizda test ediniz Eger yapmayi planladiginiz degisiklikler ile istediginiz sonucu elde edemiyorsaniz gorus alisverisinde bulununuz Bu modul su Vikiveri ogesini kullaniyor konum koordinatlari P625 gor Bu modul su Vikiveri ogesini izliyor konum koordinatlari P625 gor Note The code which this module s main function coord outputs is directly parsed and or manipulated by Module Location map and other functions of this module itself coord2text and coordinsert If the structure of the output changes for example to use the lt mapframe gt and lt maplink gt tags please update the aforementioned scripts as well Modules using this module directly Module Geobox coor Module Wikidata2Izleme kategorileri Kategori Hatali koordinat etiketi iceren sayfalar 71 0 0 Yukaridaki belgeleme icerigi Modul Koordinatlar belge sayfasindan yansitilmaktadir degistir gecmis Kullanicilar denemelerini bu sablonun deneme tahtasi olustur yansitma ve test senaryosu olustur sayfalarinda yapabilirler Lutfen kategorileri belge alt sayfasina ekleyin Bu modul ile ilgili alt sayfalar icin buraya tiklayiniz This module is intended to replace the functionality of Coord and related templates It provides several methods including invoke Koordinatlar coord General function formatting and displaying coordinate values invoke Koordinatlar dec2dms Simple function for converting decimal degree values to DMS format invoke Koordinatlar dms2dec Simple function for converting DMS format to decimal degree format invoke Koordinatlar link Export the link used to reach the tools require Module No globals local wikidata mod require Modul WikidataIB 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 pagename tr page name amp params local templatestyles Modul Koordinatlar styles css Helper function replacement for coord display title local function displaytitle s notes see phab T281974 7109643 local l Cografi koordinat sistemi Koordinatlar s local co lt span id coordinates gt l notes lt span gt co lt div class mw parser output gt co lt div gt co mw getCurrentFrame extensionTag indicator co name coordinates return co 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 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 Sablon Koordinat 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 lt strong class error gt Koordinatlar v 2 lt strong gt result result errorHTML lt br gt 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 HATA parametresi bostu end if args name then uriComponents uriComponents amp title mw uri encode coordinateSpec name end local geodmshtml lt span class geo dms title Bu konum icin haritalar havadan fotograflar ve diger veriler gt lt span class latitude gt coordinateSpec dms lat lt span gt lt span class longitude gt coordinateSpec dms long lt span gt lt span gt local lat tonumber coordinateSpec dec lat or 0 local geodeclat if lat lt 0 then FIXME this breaks the pre existing precision geodeclat tostring coordinateSpec dec lat sub 2 G else geodeclat coordinateSpec dec lat or 0 K end local long tonumber coordinateSpec dec long or 0 local geodeclong if long lt 0 then FIXME does not handle unicode minus geodeclong tostring coordinateSpec dec long sub 2 B else geodeclong coordinateSpec dec long or 0 D end local geodechtml lt span class geo dec title Bu konum icin haritalar hava fotografi ve diger veriler gt geodeclat geodeclong lt span gt local geonumhtml lt span class geo gt coordinateSpec dec lat coordinateSpec dec long lt span gt local inner lt span class displayDefault coordinateSpec default dms gt geodmshtml lt span gt lt span class geo multi punct gt lt span gt lt span class displayDefault coordinateSpec default dec gt if not args name then inner inner geodechtml lt span style display none gt geonumhtml lt span gt lt span gt else inner inner lt span class vcard gt geodechtml lt span style display none gt geonumhtml lt span gt lt span style display none gt lt span class fn org gt args name lt span gt lt span gt lt span gt lt span gt end local comp mw ustring gsub uriComponents K N comp mw ustring gsub comp G S comp mw ustring gsub comp D E comp mw ustring gsub comp B W return mw getCurrentFrame extensionTag name templatestyles args src templatestyles lt span class plainlinks nourlexpansion gt coord link comp inner lt span gt 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 gt 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 G or direction B 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 lt 0 then table insert errors source latitude degrees lt 0 with hemisphere flag end if long d lt 0 then table insert errors source longitude degrees lt 0 with hemisphere flag 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 gt 180 then table insert errors source longitude degrees gt 180 with hemisphere flag end end if lat d gt 90 then table insert errors source latitude degrees gt 90 end if lat d lt 90 then table insert errors source latitude degrees lt 90 end if lat m gt 60 then table insert errors source latitude minutes gt 60 end if lat m lt 0 then table insert errors source latitude minutes lt 0 end if lat s gt 60 then table insert errors source latitude seconds gt 60 end if lat s lt 0 then table insert errors source latitude seconds lt 0 end if long d gt 360 then table insert errors source longitude degrees gt 360 end if long d lt 360 then table insert errors source longitude degrees lt 360 end if long m gt 60 then table insert errors source longitude minutes gt 60 end if long m lt 0 then table insert errors source longitude minutes lt 0 end if long s gt 60 then table insert errors source longitude seconds gt 60 end if long s lt 0 then table insert errors source longitude seconds lt 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 Boylam eksik elseif not tonumber long then return nil parseDec Boylam sayi olarak ayristirilamadi 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 K G coord prec dec 1 2 coordinateSpec dms long convert dec2dms long E W mode coord dec2dms 2 D B 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 if lat f N then lat f K end if lat f S then lat f G end if long f E then long f D end if long f W then long f B end Check if specified backward if lat f D or lat f B 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 Boylam eksik elseif not tonumber long d then return nil parseDMS Boylam sayi olarak ayristirilamadi 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 gt 0 or math mod precision long d gt 0 then if lat f upper G then lat d lat d end if long f upper B 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 Enlem eksik elseif not tonumber args 1 then bad lat logic return errorPrinter formatTest Enlem bir sayi olarak ayristirilamiyor 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 result param table concat args 1 K args 2 or D 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 Extra unexpected parameters 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 Extra unexpected parameters 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 Extra unexpected parameters end if not result then return errorPrinter errors end result param getParam args 5 else Error return errorPrinter formatTest Bilinmeyen bagimsiz degisken bicimi 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 Parameter v should be v end end local ret specPrinter args result if errors gt 0 then ret ret errorPrinter errors Kategori Hatali bicimlendirilmis koordinata sahip sayfalar 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 elseif snaktype somevalue then ret Coordinates on Wikidata set to unknown value elseif snaktype novalue then ret Coordinates on Wikidata set to no value end else We have to either import the coordinates to Wikidata or remove them here end end if ret then return string format Kategori s ret else return end end link Simple function to export the coordinates link for other uses Usage invoke Koordinatlar link function coordinates link frame return coord link end dec2dms Wrapper to allow templates to call dec2dms directly Usage invoke Koordinatlar 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 lt 0 then return d elseif precision lt 2 then return dm else return dms end end dms2dec Wrapper to allow templates to call dms2dec directly Usage invoke Koordinatlar 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 Koordinatlar coord invoke Koordinatlar coord lat long invoke Koordinatlar 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 tonumber args 1 and not args 2 then args 3 args 1 args 1 nil local entity mw wikibase getEntityObject args qid 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 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 gt 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 lt 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 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 Koordinatlar 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 G else result negative result 2 B 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 Koordinatlar if that text isn t already in the transclusion Outputs the modified transclusion of Koordinatlar IF THE GEOHACK LINK SYNTAX CHANGES THIS FUNCTION MUST BE MODIFIED Usage invoke Koordinatlar coordinsert Koordinatlar parameter value parameter value Do not make Geohack unhappy by inserting something which isn t mentioned in the Koordinatlar 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 lt span class vcard gt then local namestr frame args name frame args 1 mw ustring gsub frame args 1 lt span class geo default gt lt span lt gt gt lt gt lt span gt lt span lt gt gt lt gt lt span lt gt gt lt gt lt span gt lt span gt lt span gt 1 lt span class vcard gt 2 lt span style display none gt lt span class fn org gt namestr lt span gt lt span gt lt span gt 3 frame args 1 mw ustring gsub frame args 1 amp params amp lt gt 1 amp title mw uri encode namestr end end return frame args 1 end function coordinates parsecoord frame s local lat long lat long 1 lat long 2 lat long 3 lat long 4 lat long 5 lat long 6 lat long 7 lat long 8 mw ustring match s d d amp 39 NS s d d amp 39 EW lat long 3 mw ustring gsub lat long 3 lat long 3 mw ustring gsub lat long 3 amp 34 lat long 7 mw ustring gsub lat long 7 lat long 7 mw ustring gsub lat long 7 amp 34 return frame expandTemplate title Koordinat args lat long 1 lat long 2 lat long 3 lat long 4 lat long 5 lat long 6 lat long 7 lat long 8 display inline title end function coordinates getCoorFromWikidata frame local entity mw wikibase getEntityObject if entity nil then return end local koor local claims if entity claims then claims entity claims P625 end if claims then koor claims 1 mainsnak datavalue value latitude N claims 1 mainsnak datavalue value longitude E end if koor then koor parseDec claims 1 mainsnak datavalue value latitude claims 1 mainsnak datavalue value longitude local dms lat mw ustring gsub koor dms lat amp 39 dms lat mw ustring gsub dms lat amp 34 local dms long mw ustring gsub koor dms long amp 39 dms long mw ustring gsub dms long amp 34 koor coordinates parsecoord frame dms lat dms long end return koor end function coordinates generateMap frame local qid local zoom 12 local width 270 local height 270 local text if frame args 1 nil then qid frame args 1 end if frame args zoom nil then zoom frame args zoom end if frame args width nil then width frame args width end if frame args height nil then height frame args height end if frame args text nil then text frame args text end local entity mw wikibase getEntityObject qid if entity nil then return end local claims if entity claims then claims entity claims P625 end if claims then local geojson local lat local lon local latAVG 0 local lonAVG 0 local count 0 for i v in ipairs claims do lon v mainsnak datavalue value longitude lat v mainsnak datavalue value latitude lonAVG lonAVG lon latAVG latAVG lat local feature feature type Feature properties marker symbol number marker color ff0000 marker size small geometry type Point coordinates lon lat table insert geojson feature count count 1 end lonAVG lonAVG count latAVG latAVG count return frame extensionTag name mapframe content mw text jsonEncode geojson args align center frameless zoom zoom width width height height text text latitude latAVG longitude lonAVG end end return coordinates