if warpdriveCommons then os.unloadAPI("warpdriveCommons") end
if not os.loadAPI("warpdrive/warpdriveCommons") then error("missing warpdriveCommons") end
local w = warpdriveCommons.w

local data

----------- Force field support

local ffield_projectorAddresses = {}
local ffield_projectors = {}
local ffield_projector_indexSelected = 1
local ffield_projector_indexFirstLine = 1
local ffield_projector_lines = 10

function ffield_boot(isDetailed)
  if #ffield_projectorAddresses == 0 and #ffield_relayAddresses == 0 then
    return
  end

  if isDetailed == nil then
    isDetailed = true
  end

  if isDetailed then
    w.write("Booting Cores")

    w.writeLn("...")
    w.sleep(0.1)
  end

  -- getting projectors parameters
  ffield_projectors = {}
  for key, address in pairs(ffield_projectorAddresses) do
    local device = w.device_get(address)
    local x, y, z = device.getLocalPosition()
    local name1 = device.name()
  --  local beamFrequency = device.beamFrequency()
      local projector = {
      address = address,
      device = device,
      position = { x = x, y = y, z = z },
      name = name1,
      shape = shape,
      isEnabled = isEnabled }
    if isDetailed then
      w.writeLn(ffield_projector_getDescription(projector))
    end
    table.insert(ffield_projectors, projector)
  end

end

function ffield_save()
  -- nothing
end

function ffield_read(parData)
  data = parData
end

function ffield_projector_getDescription(projector)
  if projector == nil or projector.device == nil then
    return "~invalid~"
  end
  local description = "#" .. w.format_string(projector.name, 20)
          .. " @ X" .. w.format_integer(projector.position.x, 7) .. " Y " .. w.format_integer(projector.position.y, 3) .. " Z " .. w.format_integer(projector.position.z, 7) .. ") "
  return description
end

function ffield_projector_getIndexes()
  if ffield_projectors ~= nil then
    if ffield_projector_indexSelected > #ffield_projectors then
      ffield_projector_indexSelected = 1
    elseif ffield_projector_indexSelected < 1 then
      ffield_projector_indexSelected = #ffield_projectors
    end
    if ffield_projector_indexFirstLine > ffield_projector_indexSelected then
      ffield_projector_indexFirstLine = ffield_projector_indexSelected
    elseif ffield_projector_indexFirstLine + ffield_projector_lines < ffield_projector_indexSelected then
      ffield_projector_indexFirstLine = ffield_projector_indexSelected - ffield_projector_lines
    end
    return ffield_projector_indexFirstLine, ffield_projector_indexSelected
  else
    return 1, 1
  end
end

function ffield_projector_get(index)
  local indexToUse = index
  local projector

  if ffield_projectors ~= nil then
    if indexToUse > #ffield_projectors then
      indexToUse = 1
    elseif indexToUse < 1 then
      indexToUse = #ffield_projectors
    end
    projector = ffield_projectors[indexToUse]
  end

  if projector == nil then
    ffield_boot(false)
    w.status_showWarning("Invalid projector index " .. index)
    projector = {
      address = "-",
      device = nil,
      position = { x = 0, y = 0, z = 0 },
      name = "-",
      beamFrequency = -1,
      shape = "NONE",
      isEnabled = false }
  end

  return projector
end

function ffield_projector_getSelected()
  return ffield_projector_get(ffield_projector_indexSelected)
end

function ffield_enable(projectorOrRelay, enable)
  if projectorOrRelay == nil or projectorOrRelay.device == nil then
    return
  end
  local enableToApply = enable
  if enableToApply == nil then
    enableToApply = not projectorOrRelay.device.enable()
  end
  projectorOrRelay.isEnabled = projectorOrRelay.device.enable(enableToApply)
  return projectorOrRelay.isEnabled
end

function ffield_projector_key(character, keycode)
  if character == 's' or character == 'S' then
    for key, projector in pairs(ffield_projectors) do
      ffield_enable(projector, true)
    end
    return true
  elseif character == 'p' or character == 'P' then
    for key, projector in pairs(ffield_projectors) do
      ffield_enable(projector, false)
    end
    return true
  elseif character == 'e' or character == 'E' then
    local projector = ffield_projector_getSelected()
    if projector ~= nil and projector.device ~= nil then
      ffield_enable(projector)
    end
    return true
  elseif character == 'c' or character == 'C' then -- C or keycode == 46
    ffield_projector_config()
    w.data_save()
    return true
  elseif keycode == 200 or keycode == 203 or character == '-' then -- Up or Left or -
    ffield_projector_indexSelected = ffield_projector_indexSelected - 1
    return true
  elseif keycode == 208 or keycode == 205 or character == '+' then -- Down or Right or +
    ffield_projector_indexSelected = ffield_projector_indexSelected + 1
    return true
  end
  return false
end

function ffield_projector_page()
  w.page_begin(w.data_getName() .. " - Monitored Cores")

  -- w.setCursorPos(1, 2)
  if #ffield_projectors == 0 then
    w.setColorDisabled()
    w.writeCentered(2, "No force field projector defined, connect one and reboot!")
  else
    w.setColorNormal()
    local indexFirstLine, indexSelected = ffield_projector_getIndexes()
    w.writeCentered(2, "Monitored Core " .. indexSelected .. " of " .. #ffield_projectors .. " is selected")
    local indexLastLine = math.min(indexFirstLine + ffield_projector_lines, #ffield_projectors)
    for indexCurrent = indexFirstLine, indexLastLine do
      if indexCurrent == indexSelected then
        w.setColorSelected()
        w.clearLine()
        w.write(">")
      else
        w.setColorNormal()
        w.write(" ")
      end
      local projector = ffield_projector_get(indexCurrent)
      local description = ffield_projector_getDescription(projector)
      w.write(description)
      w.writeLn("")
    end
  end

  w.setCursorPos(1, 16)
  w.setColorNormal()
  w.write("  -----------------------------------------------")

  w.setCursorPos(1, 17)
  w.setColorControl()
end

function ffield_register()
  w.device_register("warpdriveShipController",
      function(deviceType, address, wrap) table.insert(ffield_projectorAddresses, address) end,
      function() end)
end

----------- connections status

function connections_page(isBooting)
  w.page_begin(w.data_getName() .. " - Connections")

  w.writeLn("")

  local monitors = w.device_getMonitors()
  if #monitors == 0 then
    w.setColorDisabled()
    w.writeLn("No Monitor detected")
  elseif #monitors == 1 then
    w.setColorSuccess()
    w.writeLn("1 monitor detected")
  else
    w.setColorSuccess()
    w.writeLn(#monitors .. " Monitors detected")
  end

  if #ffield_projectorAddresses == 0 then
    w.setColorDisabled()
    w.writeLn("No Ship Controllers Detected.")
  elseif #ffield_projectorAddresses == 1 then
    w.setColorSuccess()
    w.writeLn("1 Ship Controller Detected.")
  else
    w.setColorSuccess()
    w.writeLn(#ffield_projectorAddresses .. " Ship Controllers Detected.")
  end

  if isBooting then
    ffield_boot()
  end

  w.writeLn("")
  w.setColorNormal()
  w.writeLn("This is a keyboard controlled user interface.")
  w.write("Key controls are written like so: ")
  w.setColorControl()
  w.write("Action (key)")
  w.setColorNormal()
  w.writeLn(".")
  w.write("For example, typing ")
  w.setColorControl()
  w.write(" 1 ")
  w.setColorNormal()
  w.writeLn(" will open Cores.")
end

----------- Boot sequence

w.page_setEndText(" Home (0), Cores (1), Notifications (2)")
w.page_register('0', connections_page, nil)
w.page_register('1', ffield_projector_page, ffield_projector_key)
w.page_register('2', ffield_relay_page, ffield_relay_key)
ffield_register()

w.boot()
w.run()
w.close()