Français
Italiano
توضیحات پودمان[ایجاد]| در صورت تمایل یک صفحهٔ توضیحات برای این پودمان اسکریبونتو ایجاد کنید. ویرایشگران می‌توانند در صفحات تمرین (ایجاد | آینه) و آزمایشی (ایجاد) این پودمان را آزمایش کنند. لطفاً رده‌ها را به زیرصفحهٔ /توضیحات بیافزایید. زیرصفحه‌های این پودمان. |
local locMap = {} -- Internationalization local api = { apiLocationMap = 'locationMap', apiAddLocation = 'addLocation', apiAddObject = 'addObject', apiGetMapValue = 'getMapValue', apiGetMapValueSet = 'getMapValueSet', } local quickbarMapType = 'relief' local errMsgs = { anError = 'Fehler', unknownMap = 'Keine Karte für Region <em>%s</em> vorhanden', noMapImage = 'Kein Kartenbild spezifiziert', wrongLat = 'Breite %f liegt außerhalb der Kartenbegrenzungen', wrongLong = 'Länge %f liegt außerhalb der Kartenbegrenzungen', wrongXBorders = 'Fehlende oder falsche horizontale Kartengrenzen', wrongYBorders = 'Fehlende oder falsche vertikale Kartengrenzen', noObject = 'Kein Objekt angegeben', noXPos = 'Keine horizontale Lage angegeben', noYPos = 'Keine vertikale Lage angegeben', noParam = 'Kein Parameter für getMapValue angegeben', notDefined = 'Parameter nicht definiert', } local mapDocs = { tableClass = 'prettytable', name = 'Name', description = 'Beschreibung', projection = 'Projektion', top = 'oben', bottom = 'unten', left = 'links', right = 'rechts', default = 'Standardkarte', relief = 'Physische Karte', quickbar = 'Standardkarte Quickbar', mark = 'Marker', marksize = 'Markergröße', linear = '[[:w:Plattkarte|Plattkarte]]', nonlinear = 'Nichtlineare Projektion', } -- Style aliases local mapStyles = { mitte = "margin: 0 auto !important", center = "margin: 0 auto !important", left = "clear: left; margin: 0 1em 1em 0; float: left", links = "clear: left; margin: 0 1em 1em 0; float: left", right = "clear: right; margin: 0 0 1em 1em; float: right", rechts = "clear: right; margin: 0 0 1em 1em; float: right", } local labelStyles = { bold = "font-weight: bold", fett = "font-weight: bold", italic = "font-style: italic", kursiv = "font-style: italic", underline = "text-decoration: underline", letterspacing = "letter-spacing: 0.1em", wordspacing = "word-spacing: 0.5em", smallcaps = "font-variant: small-caps", uppercase = "text-transform: uppercase", region = "font-weight: bold; text-transform: uppercase; color: #646464", subregion = "font-weight: bold; color: #646464", waterbody = "font-weight: bold; font-style: italic; letter-spacing: 0.1em; text-transform: uppercase; color: #2A6DB5", mountain = "font-weight: bold; font-style: italic; letter-spacing: 0.1em; color: #704040", } local labelPositions1 = { ["1"] = "left: 0; bottom: msize_px;", ["2"] = "left: msize3_px; bottom: -2px;", ["3"] = "left: msize5_px; top: -2em; height: 4em;", right = "left: msize5_px; top: -2em; height: 4em;", rechts = "left: msize5_px; top: -2em; height: 4em;", ["4"] = "left: msize3_px; top: -2px;", ["5"] = "left: 0; top: msize_px;", ["6"] = "left: -3em; top: msize3_px;", bottom = "left: -3em; top: msize3_px;", unten = "left: -3em; top: msize3_px;", ["7"] = "right: 0; top: msize_px;", ["8"] = "right: msize3_px; top: -2px;", ["9"] = "right: msize5_px; top: -2em; height: 4em;", left = "right: msize5_px; top: -2em; height: 4em;", links = "right: msize5_px; top: -2em; height: 4em;", ["10"] = "right: msize3_px; bottom: -2px;", ["11"] = "right: 0; bottom: msize_px;", ["12"] = "left: -3em; bottom: msize3_px;", top = "left: -3em; bottom: msize3_px;", oben = "left: -3em; bottom: msize3_px;", center = "top: -2em; height: 4em; left: -3em;", mitte = "top: -2em; height: 4em; left: -3em;", } local labelPositions2 = { ["1"] = "text-align: left;", ["2"] = "text-align: left;", ["3"] = "text-align: left; height: 4em;", right = "text-align: left; height: 4em;", rechts = "text-align: left; height: 4em;", ["4"] = "text-align: left;", ["5"] = "text-align: left;", ["6"] = "text-align: center;", bottom = "text-align: center;", unten = "text-align: center;", ["7"] = "text-align: right;", ["8"] = "text-align: right;", ["9"] = "text-align: right; height: 4em;", left = "text-align: right; height: 4em;", links = "text-align: right; height: 4em;", ["10"] = "text-align: right;", ["11"] = "text-align: right;", ["12"] = "text-align: center;", top = "text-align: center;", oben = "text-align: center;", center = "text-align: center; height: 4em;", mitte = "text-align: center; height: 4em;", } -- Local functions, please do not call them directly local function split(s) local split = mw.text.split(s, ';') local result = {} for key,value in pairs(split) do tr = mw.text.trim(value) if tr ~= '' then table.insert(result, tr) end end return result; end local function analyzeLabelStyle(style) local split = split(style) for key,value in pairs(split) do if labelStyles[value] ~= nil then split[key] = labelStyles[value] end end return table.concat(split, '; ') .. ';' end local function analyzeMapStyle(style) local split = split(style) for key,value in pairs(split) do if mapStyles[value] ~= nil then split[key] = mapStyles[value] end end return table.concat(split, '; ') .. ';' end local function setLocation(x, y, name, label, mark, marksize, labelStyle, labelWrap, labelPosition) local lmarksize = math.floor(marksize + 0.5) local msize = math.floor((marksize - 1) / 2 + 0.5) local msize3 = math.floor((marksize + 2) / 2 + 0.5) local msize5 = math.floor((marksize + 4) / 2 + 0.5) local halfMarkSize = -msize .. 'px' -- Setting a marker local sCode = '<div style="position: absolute; border-style: none; padding: 0; overflow: visible; top: ' .. y*100 .. '%; left: ' .. x*100 .. '%;">' if mark ~= 'none' then sCode = sCode .. '<div style="position: absolute; padding: 0; top: ' .. halfMarkSize .. '; left: ' .. halfMarkSize .. '; min-width: ' .. lmarksize .. 'px; min-height: ' .. lmarksize .. 'px;">' .. '[[Image:' .. mark .. '|' .. lmarksize .. 'x' .. lmarksize .. 'px|top|link=' .. name .. '|' .. name .. ']]' .. '</div>' end -- Adding a label if (label ~= '') and (label ~= 'none') then sCode = sCode .. '<table style="position: absolute; border: none; margin: 0; background-color: transparent; border-collapse: collapse;' if (labelWrap ~= nil) and (labelWrap == 'manual') then sCode = sCode .. ' white-space: nowrap; width: 10em !important; ' else sCode = sCode .. ' width: 6em !important; ' end if labelPositions1[labelPosition] ~= nil then local posStyles = labelPositions1[labelPosition] posStyles = string.gsub(posStyles, 'msize_', msize) posStyles = string.gsub(posStyles, 'msize3_', msize3) posStyles = string.gsub(posStyles, 'msize5_', msize5) sCode = sCode .. posStyles .. '"><tr><td style="border: none; padding: 0; vertical-align: middle; ' .. labelPositions2[labelPosition] else -- Automatic Estimation if y<=0.5 then sCode = sCode .. 'top: ' .. msize3 .. 'px; ' else sCode = sCode .. 'bottom: ' .. msize3 .. 'px; ' end if x<0.25 then sCode = sCode .. 'text-align: left; left: ' .. math.floor(3 - 60*x)/10 .. 'em;' .. '"><tr><td style="border: none; padding: 0; vertical-align: middle; text-align: left;' else if x<0.75 then sCode = sCode .. 'text-align: center; left: -3em;' .. '"><tr><td style="border: none; padding: 0; vertical-align: middle; text-align: center;' else sCode = sCode .. 'text-align: right; right: ' .. math.floor(10*(0.3 - (1 - x) * 6))/10 .. 'em;' .. '"><tr><td style="border: none; padding: 0; vertical-align: middle; text-align: right;' end end end if (labelWrap ~= nil) and (labelWrap == 'manual') then sCode = sCode .. ' white-space: nowrap; width: 10em !important;' else sCode = sCode .. ' width: 6em !important;' end sCode = sCode .. '"><span style="' .. analyzeLabelStyle(labelStyle) .. '">' .. label .. '</span></td></tr></table>' end sCode = sCode .. '</div>' return sCode end local function baseMap(mapImage, description, mapStyle, width, caption, captionStyle, captionInnerBorder, captionOuterBorder, x, y, name, label, mark, marksize, labelStyle, labelWrap, labelPosition, places) local sCode = '<table class="locationMap" style="overflow: visible; max-width: none !important; border-collapse: collapse;' -- Test if fixed or variable width (..x..). Force width if fixed and a caption is specified if (string.find(width, 'x') == nil) and (caption ~= '') then sCode = sCode .. ' width: ' .. tostring(tonumber(width)+10) ..'px !important;' else sCode = sCode .. ' width: auto !important;' end if caption ~= '' then sCode = sCode .. ' border: ' .. captionOuterBorder .. ';' end sCode = sCode .. ' ' .. analyzeMapStyle(mapStyle) .. '"><tr><td class="thumb" style="overflow: visible; border: none; padding: ' if caption ~= '' then sCode = sCode .. '3px 3px 0;">' else sCode = sCode .. '0;">' end sCode = sCode .. '<div class="noresize" style="overflow: visible; max-width: none !important; padding: 0; margin: 0 auto !important; position: relative; border: ' if caption ~= '' then sCode = sCode .. captionInnerBorder .. ';' else sCode = sCode .. 'none;' end -- Test if fixed or variable width (..x..). Force width if fixed if string.find(width, 'x') == nil then sCode = sCode .. ' width: ' .. width ..'px !important;">' else sCode = sCode .. ' width: auto !important;">' end sCode = sCode .. '[[Image:' .. mapImage .. '|' .. width .. 'px|center|' .. description .. ']]' if (x<0) or (x>1) or (y<0) or (y>1) then sCode = sCode .. '<div style="position: absolute; width: 50%; top: 50%; left: 25%; color: #ff0000; font-weight: bold; text-align: center;">' .. 'Fehlerhafte Koordinate ' .. name .. '</div>' else sCode = sCode .. setLocation(x, y, name, label, mark, marksize, labelStyle, labelWrap, labelPosition) end sCode = sCode .. places .. '</div></td>' if caption ~= '' then sCode = sCode .. '<tr><td class="thumbcaption"' if captionStyle ~= '' then sCode = sCode .. ' style="'.. captionStyle .. '"' end sCode = sCode .. '>' .. caption .. '</td></tr>' end sCode = sCode .. '</table>' return sCode end -- Handling regional map data local function getMapData(id) local region = require('Modul:Location map data ' .. id) if (region ~= nil) and (region.data ~= nil) then region.data['id'] = id return region.data else return nil end end local function getMapObject(id) local region = require('Modul:Location map data ' .. id) if (region ~= nil) and (region.data ~= nil) then region.data['id'] = id return region else return nil end end local function linearX(data, long) local left = data['left'] local right = data['right'] if (data == nil) or (left == nil) or (right == nil) or (left == right) then -- Error return -1 else if left < right then return (long - left) / (right - left) else if long < 0 then return (360 + long - left) / (360 + right - left) else return (long - left) / (360 + right - left) end end end end local function linearY(data, lat) local top = data['top'] local bottom = data['bottom'] if (data == nil) or (top == nil) or (bottom == nil) or (top == bottom) then -- Error return -1 else return (lat - top) / (bottom - top) end end local function getX(anObject, long, lat) if anObject.x ~= nil then return anObject.x(lat, long) else return linearX(anObject.data, long) end end local function getY(anObject, long, lat) if anObject.y ~= nil then return anObject.y(lat, long) else return linearY(anObject.data, lat) end end local function getMapImage(data, which) local image = data['default'] local w = which if w == 'quickbar' then w = quickbarMapType if (data['quickbar'] ~= nil) and (data['quickbar'] ~= '') then w = data['quickbar'] end end if (w ~= '') and (data[w] ~= nil) and (data[w] ~= '') then image = data[w] end return image end -- Parameters and error handling local function argCheck(param, altValue) if param == nil then return altValue else local val = mw.text.trim(param) if val == '' then val = altValue end return val end end local function errorStr(s) return '<strong class="error">Fehler im Modul <em>Location map</em>: ' .. s .. '</strong>' end -- Map functions local function apiLocationMap(args) local map = argCheck(args['map'], 'missing') local success, mObject = pcall(getMapObject, map) if not success then return errorStr(string.format(errMsgs['unknownMap'], map)) else -- Error handling local errorMsgs = {} success = true -- Parameters check local mData = mObject.data local description = '' if mData['description'] ~= nil then description = mData['description'] end local lat = tonumber(argCheck(tostring(args['lat']), 0)) local long = tonumber(argCheck(tostring(args['long']), 0)) local x = getX(mObject, long, lat) if (x<0) or (x>1) then success = false if x == -1 then table.insert(errorMsgs, errorStr(errMsgs['wrongXBorders'])) else table.insert(errorMsgs, errorStr(string.format(errMsgs['wrongLong'], long))) end end local y = getY(mObject, long, lat) if (y<0) or (y>1) then success = false if y == -1 then table.insert(errorMsgs, errorStr(errMsgs['wrongYBorders'])) else table.insert(errorMsgs, errorStr(string.format(errMsgs['wrongLat'], lat))) end end local maptype = argCheck(args['maptype'], 'default') local mapImage = argCheck(args['alternativeMap'], getMapImage(mData, maptype)) if (mapImage == nil) or (mapImage == '') then success = false table.insert(errorMsgs, errorStr(errMsgs['noMapImage'])) end if not success then return table.concat(errorMsgs, '<br />') else local name = argCheck(args['name'], '') local label = argCheck(args['label'], '') -- Checking width syntax local width = argCheck(tostring(args['width']), '') if (string.match(width, '^%d+$') == nil) and (string.match(width, '^%d*x%d+$') == nil) then width = '200x200' end if mData['mark'] ~= nil then mark = mData['mark'] else mark = 'Reddot.svg' end mark = argCheck(args['mark'], mark) if mData['marksize'] ~= nil then marksize = mData['marksize'] else marksize = 5 end local marksize = argCheck(args['marksize'], marksize) local mapStyle = argCheck(args['mapStyle'], 'mitte') local labelStyle = argCheck(args['labelStyle'], '') local labelBackground = argCheck(args['labelBackground'], '') if labelBackground ~='' then labelBackground = 'background: ' .. labelBackground if labelStyle ~='' then labelStyle = labelStyle .. '; ' .. labelBackground else labelStyle = labelBackground end end local labelWrap = argCheck(args['labelWrap'], 'auto') local labelPosition = argCheck(args['labelPosition'], 'auto') local caption = argCheck(args['caption'], '') local captionStyle = argCheck(args['captionStyle'], '') local captionInnerBorder = argCheck(args['captionInnerBorder'], '1px solid #cccccc') local captionOuterBorder = argCheck(args['captionOuterBorder'], '1px solid #cccccc') local places = argCheck(args['places'], '') return baseMap(mapImage, description, mapStyle, width, caption, captionStyle, captionInnerBorder, captionOuterBorder, x, y, name, label, mark, marksize, labelStyle, labelWrap, labelPosition, places) end end end local function apiAddLocation(args) local map = argCheck(args['map'], 'missing') local success, mObject = pcall(getMapObject, map) if not success then return errorStr(string.format(errMsgs['unknownMap'], map)) else -- Error handling local errorMsgs = {} success = true -- Parameters check local mData = mObject.data local lat = tonumber(argCheck(tostring(args['lat']), 0)) local long = tonumber(argCheck(tostring(args['long']), 0)) local x = getX(mObject, long, lat) if (x<0) or (x>1) then success = false if x == -1 then table.insert(errorMsgs, errorStr(errMsgs['wrongXBorders'])) else table.insert(errorMsgs, errorStr(string.format(errMsgs['wrongLong'], long))) end end local y = getY(mObject, long, lat) if (y<0) or (y>1) then success = false if y == -1 then table.insert(errorMsgs, errorStr(errMsgs['wrongYBorders'])) else table.insert(errorMsgs, errorStr(string.format(errMsgs['wrongLat'], lat))) end end if not success then return table.concat(errorMsgs, '<br />') else local name = argCheck(args['name'], '') local label = argCheck(args['label'], '') if mData['mark'] ~= nil then mark = mData['mark'] else mark = 'Reddot.svg' end mark = argCheck(args['mark'], mark) if mData['marksize'] ~= nil then marksize = mData['marksize'] else marksize = 5 end local marksize = argCheck(args['marksize'], marksize) local mapStyle = argCheck(args['mapStyle'], 'mitte') local labelStyle = argCheck(args['labelStyle'], '') local labelBackground = argCheck(args['labelBackground'], '') if labelBackground ~='' then labelBackground = 'background: ' .. labelBackground if labelStyle ~='' then labelStyle = labelStyle .. '; ' .. labelBackground else labelStyle = labelBackground end end local labelWrap = argCheck(args['labelWrap'], 'auto') local labelPosition = argCheck(args['labelPosition'], 'auto') return setLocation(x, y, name, label, mark, marksize, labelStyle, labelWrap, labelPosition) end end end local function apiAddObject(args) local anObject = argCheck(args['object'], '') if anOject == '' then return errorStr(errMsgs['noObject']) else local success = true local errorMsgs = {} local right = argCheck(args['right'], '') local left = argCheck(args['left'], '') if (right == '') and (left == '') then success = false table.insert(errorMsgs, errorStr(errMsgs['noXPos'])) end local top = argCheck(args['top'], '') local bottom = argCheck(args['bottom'], '') if (top == '') and (bottom == '') then success = false table.insert(errorMsgs, errorStr(errMsgs['noYPos'])) end if not success then return table.concat(errorMsgs, '<br />') else local objectStyle = argCheck(args['objectStyle'], '') local objectBackground = argCheck(args['objectBackground'], '') if objectBackground ~='' then objectBackground = 'background: ' .. objectBackground if objectStyle ~='' then objectStyle = objectStyle .. '; ' .. objectBackground else objectStyle = objectBackground end end sCode = '<table style="border-collapse: collapse; margin: 0; padding: 0; width: auto !important; overflow: visible; position: absolute; background: transparent; ' if (left ~='') then sCode = sCode .. 'left: ' .. left .. '; ' else sCode = sCode .. 'right: ' .. right .. '; ' end if (top ~='') then sCode = sCode .. 'top: ' .. top .. ';"><tr><td style="border: none; padding: 0; ' else sCode = sCode .. 'bottom: ' .. bottom .. ';"><tr><td style="border: none; padding: 0; ' end sCode = sCode .. analyzeLabelStyle(objectStyle) .. '">' .. anObject .. '</td></tr></table>' return sCode end end end -- Documentation of map data local function apiGetMapValue(args) local map = argCheck(args['map'], 'missing') local success, mData = pcall(getMapData, map) if not success then return errorStr(string.format(errMsgs['unknownMap'], map)) else local param = argCheck(args['param'], '') if param == '' then return errorStr(errMsgs['noParam']) else if mData[param] == nil then return errMsgs['anError'] else return mData[param] end end end end local function apiGetMapValueSet(args) local map = argCheck(args['map'], 'missing') local success, mData = pcall(getMapData, map) if not success then return errorStr(string.format(errMsgs['unknownMap'], map)) else local paramList = {'name', 'description', 'projection', 'top', 'bottom', 'left', 'right', 'default', 'relief', 'quickbar', 'mark', 'marksize'} local sCode = '<table class="' .. mapDocs['tableClass'] .. '">' for i = 1, #paramList, 1 do sCode = sCode .. '<tr><th style="text-align: left">' .. mapDocs[paramList[i]] .. '</th><td>' if mData[paramList[i]] == nil then sCode = sCode .. errMsgs['notDefined'] .. '</td></tr>' else local v = mData[paramList[i]] if mapDocs[v] ~= nil then v = mapDocs[v] end sCode = sCode .. v .. '</td></tr>' end end return sCode .. '</table>' end end -- API function calls locMap[api.apiLocationMap] = function (frame) return apiLocationMap(frame.args) end locMap[api.apiAddLocation] = function (frame) return apiAddLocation(frame.args) end locMap[api.apiAddObject] = function (frame) return apiAddObject(frame.args) end locMap[api.apiGetMapValue] = function (frame) return apiGetMapValue(frame.args) end locMap[api.apiGetMapValueSet] = function (frame) return apiGetMapValueSet(frame.args) end -- Example for usage in a Lua script function locMap.exampleLuaCall() local frame = {} frame.args = { map = 'de', lat = 52.51789, long = 13.38873, name = 'Berlin', label = '[[Berlin]]', } return locMap.locationMap(frame) end return locMap Explore the world
United states
New York
Japan
Tokyo
Singapore
Singapore
