--
-- Nuclear Generation Facility SCADA Supervisor
--

os.loadAPI("scada-common/log.lua")
os.loadAPI("scada-common/util.lua")
os.loadAPI("scada-common/ppm.lua")
os.loadAPI("scada-common/comms.lua")

os.loadAPI("config.lua")
os.loadAPI("supervisor.lua")

local SUPERVISOR_VERSION = "alpha-v0.1.0"

local print = util.print
local println = util.println
local print_ts = util.print_ts
local println_ts = util.println_ts

log._info("========================================")
log._info("BOOTING supervisor.startup " .. SUPERVISOR_VERSION)
log._info("========================================")

println(">> SCADA Supervisor " .. SUPERVISOR_VERSION .. " <<")

-- mount connected devices
ppm.mount_all()

local modem = ppm.get_wireless_modem()
if modem == nil then
    println("boot> wireless modem not found")
    log._warning("no wireless modem on startup")
    return
end

-- determine active/backup mode
local mode = comms.SCADA_SV_MODES.BACKUP
if config.SYSTEM_TYPE == "active" then
    mode = comms.SCADA_SV_MODES.ACTIVE
end

-- start comms, open all channels
local comms = supervisor.superv_comms(config.NUM_REACTORS, modem, config.SCADA_DEV_LISTEN, config.SCADA_FO_CHANNEL, config.SCADA_SV_CHANNEL)

-- base loop clock (4Hz, 5 ticks)
local loop_clock = os.startTimer(0.25)

-- event loop
while true do
    local event, param1, param2, param3, param4, param5 = os.pullEventRaw()

    -- handle event
    if event == "peripheral_detach" then
        local device = ppm.handle_unmount(param1)

        if device.type == "modem" then
            -- we only care if this is our wireless modem
            if device.dev == modem then
                println_ts("wireless modem disconnected!")
                log._error("comms modem disconnected!")
            else
                log._warning("non-comms modem disconnected")
            end
        end
    elseif event == "peripheral" then
        local type, device = ppm.mount(param1)

        if type == "modem" then
            if device.isWireless() then
                -- reconnected modem
                modem = device
                superv_comms.reconnect_modem(modem)

                println_ts("wireless modem reconnected.")
                log._info("comms modem reconnected.")
            else
                log._info("wired modem reconnected.")
            end
        end
    elseif event == "timer" and param1 == loop_clock then
        -- basic event tick, send keep-alives
        loop_clock = os.startTimer(0.25)
    elseif event == "modem_message" then
        -- got a packet
    end

    -- check for termination request
    if event == "terminate" or ppm.should_terminate() then
        log._warning("terminate requested, exiting...")
        -- todo: attempt failover, alert hot backup
        break
    end
end

println_ts("exited")
log._info("exited")