wifi

-- Библиотека OpenNet для WiFi-клиента

local component=require("component")
local event = require("event")

local opennet = {}
local ONcard
local LocalIP
local Router
local ONport=1

function opennet.ver()
  return "3.1"
end

function opennet.getIP()
  if not component.isAvailable("modem") then
    ONcard=nil
    return nil, "Сетевая карта не обнаружена"
  end
  ONcard=component.modem
  ONcard.open(ONport)
  local ok,err=ONcard.broadcast(ONport,"", "", "getip")
  if not ok then  return ok, err  end
  local Dist=math.huge
  LocalIP=nil
  Router=nil
  while true do
    local ev, addr, rout, _, dist, locip, _, mess = event.pull(1,"modem_message")
    if ev then
      if dist<Dist and addr == ONcard.address and mess == "setip" then
        LocalIP=locip Router=rout Dist=dist
      end
    else
      if LocalIP then return LocalIP, Dist
      else  return nil, "Нет ответа от WiFi роутера" end
    end
  end
end

function opennet.send(recIP, ... )
  if not ONcard or not Router then
    return nil, "Сетевая карта не инициализирована"
  end
  return ONcard.send(Router, ONport, recIP, LocalIP, ...)
end

function opennet.receive(timeout)
  local ev
  repeat
    ev = {event.pull(timeout,"modem_message")}
    if not ev[1] then return nil end
      if ev[2] == ONcard.address and ev[8]=="ping" then
        opennet.send(ev[7], "pong" )
        ev[2]=nil
      end
  until ev[2] == ONcard.address
  return table.unpack(ev,7)
end

function opennet.sendrec(recIP, ... )
  local ok,err=opennet.send(recIP, ... )
  if ok then
    return opennet.receive(10)
  else
    return ok,err
  end
end

-----------------------------------------------------------------------
return opennet