Benutzer:Antonsusi/Spielwiese/Modul:Coordinate

aus Wikipedia, der freien Enzyklopädie

--

           local p = {} 
           local LuaWiki = require( "Module:LuaWiki" )

         --[=[
           function LatRange(fNumber)
              if not tonumber(fNumber) then
                 ErrMsg(ErrCode='NAN', ErrFun='LatRange',ErrData= "input=".. tostring(fNumber))
                 return nil
              end
              if fNumber >  90 then return  90; end
              if fNumber < -90 then return -90; end
              return fNumber;
           end

           function WGS84toCH1903(label,lat,lon,prec)
              local b_lbl = (label or "" ) ~= "";
              local n     =  floor (tonumber(prec) or 0);
              if( lat < 45.7 or lat > 47.9 or lon < 5.8 or lon > 10.6 ) then
                 ErrMsg(ErrCode='OOR', ErrFun='WGS84toCH1903',ErrData="keine")
              end
              -- genaue Berechnung, Lua kann sich das leisten
              local phi    = (lat * 3600 - 169028.66 ) /10000;
              local lambda = (lon * 3600 - 26782.5) / 10000;
              local x = 200147.07 + 308807.95 * phi    +  3745.25 * lambda^2 +    76.63 * phi^2 + 119.79 * phi^3 - 194.56 * lambda^2 * phi;
              local y = 600072.37 + 211455.93 * lambda - 10938.51 * lambda * phi - 0.36 * lambda * phi^2 - 44.54 * lambda^3;
              x = (floor(x* 10^n + 0.5))/10^n;
              y = (floor(y* 10^n + 0.5))/10^n;
              return x,y;
           end

         ]=]

            local function ErrMsg(ErrCode, ErrFun, ErrData)
               local ErrText = ""
               local T_Error ={
                  ['NAN']   = "Keine Zahl",                           -- not a number
                  ['OOR']   = "Wert nicht im gültigen Bereich",       -- out of range
                  ['BSTR']  = "Ungültiger Parameterstring",             -- bad text
                  ['BPAR']  = "Ungültiger Parametername",             -- bad parameter
                  ['DIVZ']  = "Division durch Null!"                  -- Muss abgefangen werden
                  }
               -- ErrCode = nil ? Dann "Fehler in Fehlermeldung"
               if not ErrCode then
                  return nil
               end

               ErrText = "<span class='error'>Funktion " .. ErrFun .. ": " ..T_Error[ErrCode]
               if ErrData then
                  ErrText = ErrText .. " Daten: <code>".. ErrData .."</code>"
                  end
               ErrText = ErrText .."</span>"
               return ErrText
            end


            local function DMS2dez(Grad,Min,Sek)    -- voellig, egal, wenn einer 61 Min eingibt!
               Grad = tonumber(Grad)
               Min  = tonumber(Min)
               Sek  = tonumber(Sek)
               if not Grad or not Min or not Sek then
                  return 0,false
               end
               return  Grad + Min /60 + Sek /3600 , true
            end

            local function LatDMS(tbl)
               local data = 0;
               if not (tbl[4]=="N" or tbl[4]=="S") then
                  data = tostring(tbl[4])
                  ErrMsg("BSTR","LatDMS", data)
                  return 0, false
               end
               data = DMS2dez(tbl[1],tbl[2],tbl[3])
               if not data then
                  ErrMsg('NAN','LatDMS',table.concat(tbl," ! "))
                  return 0, false
               end
               if tbl[4]=="S" then data = 0 - data; end
               if data < -90 or data >90 then
                  ErrMsg('OOR', 'LatDMS',data)
                  return 0, false
               end
               return data,true
            end

            local function LonDMS(tbl)
               local data = 0
               if not (tbl[4]=="O" or tbl[4]=="E" or tbl[4]=="O" )then
                  data = tostring(tbl[4])
                  ErrMsg('BPAR', 'LonDMS',data)
                  return 0, false
               end
               data = DMS2dez(tbl[1],tbl[2],tbl[3])
               if not data then
                  ErrMsg('NAN','LonDMS', table.concat(tbl," ! "))
                  return  0, false
               end
               if tbl[4]=="W" then data = 0 - data; end
               if data < -180 or data >180 then
                  ErrMsg('OOR','LonDMS',"data=" .. tostring(data))
                  return  0, false
               end
               return data, true
            end


            -- function wb: kurz fuer "wikibool". Emulation der Wikilogik: Gibt true zurueck, wenn para nicht leer ist.
            local function wb(para)
               return (para or "") ~= "";
            end

            -- function splitbyslash: Emulation von titleparts. Rückgabe per table.
            local function splitbyslash(para)
               local tbl = {};
               local rest= para;
               local teil=""
               local pos
               for idx= 1,4 do
                  pos = string.find(rest,'/',1,true);
                  if not pos then
                     table.insert(tbl,rest)
                     if idx == 2 then
                        table.insert(tbl,2,'0')
                        table.insert(tbl,2,'0')
                     end
                     if idx == 3 then
                        table.insert(tbl,3,'0')
                     end
                     break
                  end
                  if pos == 1 then
                     table.insert(tbl,"")
                     rest = string.sub(rest,2,-1)
                  else
                     teil = string.sub(rest,    1,pos-1)
                     rest = string.sub(rest,pos+1,   -1)
                     table.insert(tbl,teil)
                  end
               end
               if tonumber(tbl[1]) and tonumber(tbl[2]) and tonumber(tbl[3]) and not tonumber(tbl[4]) then
                  return tbl, true
               end
               return  tbl, false
            end

            function p.Execute(frame)
               local lat = 0
               local lon = 0
               local T_Para = {}  -- nimmt die Parameter auf
               local T_bPara = {} -- logischer Wert nach Wikilogik
               local T_temp = {}
               -- Einzelzuweisung fuer benannte Indices und damit auch ganz fehlende Parameter (nil) als Leerstring eingefuegt werden.
               T_Para['NS']            = frame.args['NS']            or "";
               T_Para['EW']            = frame.args['EW']            or "";
               T_Para['type']          = frame.args['type']          or "";
               T_Para['region']        = frame.args['region']        or "";
               T_Para['globe']         = frame.args['globe']         or "";
               T_Para['dim']           = frame.args['dim']           or "";
               T_Para['elevation']     = frame.args['elevation']     or "";
               T_Para['pop']           = frame.args['pop']           or "";
               T_Para['name']          = frame.args['name']          or "";
               T_Para['simple']        = frame.args['simple']        or "";
               T_Para['article']       = frame.args['article']       or "";
               T_Para['text']          = frame.args['text']          or "";
               T_Para['sortkey']       = frame.args['sortkey']       or "";
               T_Para['tooltip']       = frame.args['tooltip']       or "";
               T_Para['tooltipformat'] = frame.args['tooltipformat'] or "";
               T_Para['map']           = frame.args['map']           or "";
               T_Para['mapsize']       = frame.args['mapsize']       or "";
               T_Para['maplevel']      = frame.args['maplevel']      or "";
               T_Para['maptype']       = frame.args['maptype']       or "";
               T_Para['maplabel']      = frame.args['maplabel']      or "";
               T_Para['maplayer']      = frame.args['maplayer']      or "";
               for sidx, str in pairs(T_Para) do
                  T_bPara[sidx] = wb(T_Para[sidx]) -- str nicht genutzt
               end
               if not T_bPara['NS'] or not T_bPara['EW'] then
                  ErrMsg('BPAR','Execute','no NS or no EW')   -- NS und EW sind zwingend noetig
                  return "",false
               end
               if not tonumber(T_Para['NS']) then
                  T_temp = splitbyslash(T_Para['NS'])
                  if #T_temp < 4 then
                     ErrMsg('BTXT','Execute','zu wenig Teile im Slashstring NS')
                     return "",false
                  end
                  lat = LatDMS(T_temp)
               else
                  lat = tonumber(T_Para['NS'])
               end
               if not tonumber(T_Para['EW']) then
                  T_temp = splitbyslash(T_Para['EW'])
                  if #T_temp < 4 then
                     ErrMsg('BSTR','Execute','zu wenig Teile im Slashstring EW')
                     return "",false
                  end
                  lon = LonDMS(T_temp)
               else
                  lon = tonumber(T_Para['EW'])
               end
               -- Rest fehlt noch
               return tostring(lat) .. "\n" .. tostring(lon)
           end

           return p
        --