supervisor sessions work in progress
This commit is contained in:
Mikayla Fischler
0
supervisor/session/coordinator.lua
Normal file
0
supervisor/session/coordinator.lua
Normal file
248
supervisor/session/plc.lua
Normal file
248
supervisor/session/plc.lua
Normal file
@@ -0,0 +1,248 @@
|
||||
-- #REQUIRES mqueue.lua
|
||||
-- #REQUIRES comms.lua
|
||||
-- #REQUIRES log.lua
|
||||
-- #REQUIRES util.lua
|
||||
|
||||
local RPLC_TYPES = comms.RPLC_TYPES
|
||||
|
||||
PLC_S_COMMANDS = {
|
||||
SCRAM = 0,
|
||||
ENABLE = 1,
|
||||
ISS_CLEAR = 2
|
||||
}
|
||||
|
||||
-- PLC supervisor session
|
||||
function new_session(id, for_reactor, in_queue, out_queue)
|
||||
local log_header = "plc_session(" .. id .. "): "
|
||||
|
||||
local self = {
|
||||
id = id,
|
||||
for_reactor = for_reactor,
|
||||
in_q = in_queue,
|
||||
out_q = out_queue,
|
||||
commanded_state = false,
|
||||
-- connection properties
|
||||
seq_num = 0,
|
||||
connected = true,
|
||||
received_struct = false,
|
||||
plc_conn_watchdog = util.new_watchdog(3)
|
||||
-- when to next retry one of these requests
|
||||
retry_times = {
|
||||
struct_req = 0,
|
||||
scram_req = 0,
|
||||
enable_req = 0
|
||||
},
|
||||
-- session PLC status database
|
||||
sDB = {
|
||||
control_state = false,
|
||||
overridden = false,
|
||||
degraded = false,
|
||||
iss_status = {
|
||||
dmg_crit = false,
|
||||
ex_hcool = false,
|
||||
ex_waste = false,
|
||||
high_temp = false,
|
||||
no_fuel = false,
|
||||
no_cool = false,
|
||||
timed_out = false
|
||||
},
|
||||
mek_status = {
|
||||
heating_rate = 0,
|
||||
|
||||
status = false,
|
||||
burn_rate = 0,
|
||||
act_burn_rate = 0,
|
||||
temp = 0,
|
||||
damage = 0,
|
||||
boil_eff = 0,
|
||||
env_loss = 0,
|
||||
|
||||
fuel = 0,
|
||||
fuel_need = 0,
|
||||
fuel_fill = 0,
|
||||
waste = 0,
|
||||
waste_need = 0,
|
||||
waste_fill = 0,
|
||||
cool_type = "?",
|
||||
cool_amnt = 0,
|
||||
cool_need = 0,
|
||||
cool_fill = 0,
|
||||
hcool_type = "?",
|
||||
hcool_amnt = 0,
|
||||
hcool_need = 0,
|
||||
hcool_fill = 0
|
||||
},
|
||||
mek_struct = {
|
||||
heat_cap = 0,
|
||||
fuel_asm = 0,
|
||||
fuel_sa = 0,
|
||||
fuel_cap = 0,
|
||||
waste_cap = 0,
|
||||
cool_cap = 0,
|
||||
hcool_cap = 0,
|
||||
max_burn = 0
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
local _copy_iss_status = function (iss_status)
|
||||
self.sDB.iss_status.dmg_crit = iss_status[1]
|
||||
self.sDB.iss_status.ex_hcool = iss_status[2]
|
||||
self.sDB.iss_status.ex_waste = iss_status[3]
|
||||
self.sDB.iss_status.high_temp = iss_status[4]
|
||||
self.sDB.iss_status.no_fuel = iss_status[5]
|
||||
self.sDB.iss_status.no_cool = iss_status[6]
|
||||
self.sDB.iss_status.timed_out = iss_status[7]
|
||||
end
|
||||
|
||||
local _copy_status = function (heating_rate, mek_data)
|
||||
self.sDB.mek_status.heating_rate = heating_rate
|
||||
for key, value in pairs(mek_data) do
|
||||
self.sDB.mek_status[key] = value
|
||||
end
|
||||
end
|
||||
|
||||
local _copy_struct = function (mek_data)
|
||||
for key, value in pairs(mek_data) do
|
||||
self.sDB.mek_struct[key] = value
|
||||
end
|
||||
end
|
||||
|
||||
local _get_ack = function (pkt)
|
||||
if rplc_packet.length == 1 then
|
||||
return rplc_packet.data[1]
|
||||
else
|
||||
log._warning(log_header .. "RPLC ACK length mismatch")
|
||||
return nil
|
||||
end
|
||||
end
|
||||
|
||||
local get_id = function () return self.id end
|
||||
|
||||
local close = function () self.connected = false end
|
||||
|
||||
local check_wd = function (timer)
|
||||
return timer == plc_conn_watchdog
|
||||
end
|
||||
|
||||
local get_struct = function ()
|
||||
if self.received_struct then
|
||||
return self.sDB.mek_struct
|
||||
else
|
||||
-- @todo: need a system in place to re-request this periodically
|
||||
return nil
|
||||
end
|
||||
end
|
||||
|
||||
local iterate = function ()
|
||||
if self.connected and ~self.in_q.empty() then
|
||||
-- get a new message to process
|
||||
local message = self.in_q.pop()
|
||||
|
||||
if message.qtype == mqueue.TYPE.PACKET then
|
||||
-- handle an incoming packet from the PLC
|
||||
rplc_pkt = message.message.get()
|
||||
|
||||
if rplc_pkt.id == for_reactor then
|
||||
if rplc_pkt.type == RPLC_TYPES.KEEP_ALIVE then
|
||||
-- periodic keep alive
|
||||
elseif rplc_pkt.type == RPLC_TYPES.STATUS then
|
||||
-- status packet received, update data
|
||||
if rplc_packet.length == 6 then
|
||||
-- @todo [1] is timestamp, determine how this will be used (if at all)
|
||||
self.sDB.control_state = rplc_packet.data[2]
|
||||
self.sDB.overridden = rplc_packet.data[3]
|
||||
self.sDB.degraded = rplc_packet.data[4]
|
||||
|
||||
-- attempt to read mek_data table
|
||||
if rplc_packet.data[6] ~= nil then
|
||||
local status = pcall(_copy_status, rplc_packet.data[5], rplc_packet.data[6])
|
||||
if status then
|
||||
-- copied in status data OK
|
||||
else
|
||||
-- error copying status data
|
||||
log._error(log_header .. "failed to parse status packet data")
|
||||
end
|
||||
else
|
||||
self.sDB.mek_status.heating_rate = rplc_packet.data[5]
|
||||
end
|
||||
else
|
||||
log._warning(log_header .. "RPLC status packet length mismatch")
|
||||
end
|
||||
elseif rplc_pkt.type == RPLC_TYPES.MEK_STRUCT then
|
||||
-- received reactor structure, record it
|
||||
if rplc_packet.length == 1 then
|
||||
local status = pcall(_copy_struct, rplc_packet.data[1])
|
||||
if status then
|
||||
-- copied in structure data OK
|
||||
else
|
||||
-- error copying structure data
|
||||
log._error(log_header .. "failed to parse struct packet data")
|
||||
end
|
||||
else
|
||||
log._warning(log_header .. "RPLC struct packet length mismatch")
|
||||
end
|
||||
elseif rplc_pkt.type == RPLC_TYPES.MEK_SCRAM then
|
||||
-- SCRAM acknowledgement
|
||||
local ack = _get_ack(rplc_pkt)
|
||||
if ack then
|
||||
self.sDB.control_state = false
|
||||
elseif ack == false then
|
||||
log._warning(log_header .. "SCRAM failed!")
|
||||
end
|
||||
elseif rplc_pkt.type == RPLC_TYPES.MEK_ENABLE then
|
||||
-- enable acknowledgement
|
||||
local ack = _get_ack(rplc_pkt)
|
||||
if ack then
|
||||
self.sDB.control_state = true
|
||||
elseif ack == false then
|
||||
log._warning(log_header .. "enable failed!")
|
||||
end
|
||||
elseif rplc_pkt.type == RPLC_TYPES.MEK_BURN_RATE then
|
||||
-- burn rate acknowledgement
|
||||
if _get_ack(rplc_pkt) == false then
|
||||
log._warning(log_header .. "burn rate update failed!")
|
||||
end
|
||||
elseif rplc_pkt.type == RPLC_TYPES.ISS_STATUS then
|
||||
-- ISS status packet received, copy data
|
||||
if rplc_packet.length == 1 then
|
||||
local status = pcall(_copy_iss_status, rplc_packet.data[1])
|
||||
if status then
|
||||
-- copied in ISS status data OK
|
||||
else
|
||||
-- error copying ISS status data
|
||||
log._error(log_header .. "failed to parse ISS status packet data")
|
||||
end
|
||||
else
|
||||
log._warning(log_header .. "RPLC ISS status packet length mismatch")
|
||||
end
|
||||
elseif rplc_pkt.type == RPLC_TYPES.ISS_ALARM then
|
||||
-- ISS alarm
|
||||
self.sDB.overridden = true
|
||||
-- @todo
|
||||
elseif rplc_pkt.type == RPLC_TYPES.ISS_CLEAR then
|
||||
-- ISS clear acknowledgement
|
||||
-- @todo
|
||||
else
|
||||
log._warning(log_header .. "handler received unsupported RPLC packet type " .. rplc_pkt.type)
|
||||
end
|
||||
else
|
||||
log._warning(log_header .. "RPLC packet with ID not matching reactor ID: reactor " .. self.for_reactor .. " != " .. rplc_pkt.id)
|
||||
end
|
||||
elseif message.qtype == mqueue.TYPE.COMMAND then
|
||||
-- handle instruction
|
||||
|
||||
end
|
||||
end
|
||||
|
||||
return self.connected
|
||||
end
|
||||
|
||||
return {
|
||||
get_id = get_id,
|
||||
check_wd = check_wd,
|
||||
get_struct = get_struct,
|
||||
close = close,
|
||||
iterate = iterate
|
||||
}
|
||||
end
|
||||
0
supervisor/session/rtu.lua
Normal file
0
supervisor/session/rtu.lua
Normal file
141
supervisor/session/svsessions.lua
Normal file
141
supervisor/session/svsessions.lua
Normal file
@@ -0,0 +1,141 @@
|
||||
-- #REQUIRES mqueue.lua
|
||||
-- #REQUIRES log.lua
|
||||
|
||||
-- Supervisor Sessions Handler
|
||||
|
||||
SESSION_TYPE = {
|
||||
RTU_SESSION = 0,
|
||||
PLC_SESSION = 1,
|
||||
COORD_SESSION = 2
|
||||
}
|
||||
|
||||
local self = {
|
||||
num_reactors = 0,
|
||||
rtu_sessions = {},
|
||||
plc_sessions = {},
|
||||
coord_sessions = {},
|
||||
next_rtu_id = 0,
|
||||
next_plc_id = 0,
|
||||
next_coord_id = 0
|
||||
}
|
||||
|
||||
function alloc_reactor_plcs(num_reactors)
|
||||
self.num_reactors = num_reactors
|
||||
for i = 1, num_reactors do
|
||||
table.insert(self.plc_sessions, false)
|
||||
end
|
||||
end
|
||||
|
||||
function find_session(stype, remote_port)
|
||||
if stype == SESSION_TYPE.RTU_SESSION then
|
||||
for i = 1, #self.rtu_sessions do
|
||||
if self.rtu_sessions[i].r_host == remote_port then
|
||||
return self.rtu_sessions[i]
|
||||
end
|
||||
end
|
||||
elseif stype == SESSION_TYPE.PLC_SESSION then
|
||||
for i = 1, #self.plc_sessions do
|
||||
if self.plc_sessions[i].r_host == remote_port then
|
||||
return self.plc_sessions[i]
|
||||
end
|
||||
end
|
||||
elseif stype == SESSION_TYPE.COORD_SESSION then
|
||||
for i = 1, #self.coord_sessions do
|
||||
if self.coord_sessions[i].r_host == remote_port then
|
||||
return self.coord_sessions[i]
|
||||
end
|
||||
end
|
||||
else
|
||||
log._error("cannot search for unknown session type " .. stype, true)
|
||||
end
|
||||
|
||||
return nil
|
||||
end
|
||||
|
||||
function get_reactor_session(reactor)
|
||||
local session = nil
|
||||
|
||||
for i = 1, #self.plc_sessions do
|
||||
if self.plc_sessions[i].reactor == reactor then
|
||||
session = self.plc_sessions[i]
|
||||
end
|
||||
end
|
||||
|
||||
return session
|
||||
end
|
||||
|
||||
function establish_plc_session(remote_port, for_reactor)
|
||||
if get_reactor_session(for_reactor) == nil then
|
||||
local plc_s = {
|
||||
open = true,
|
||||
reactor = for_reactor,
|
||||
r_host = remote_port,
|
||||
in_queue = mqueue.new(),
|
||||
out_queue = mqueue.new(),
|
||||
instance = nil
|
||||
}
|
||||
|
||||
plc_s.instance = plc.new_session(next_plc_id, plc_s.in_queue, plc_s.out_queue)
|
||||
table.insert(self.plc_sessions, plc_s)
|
||||
next_plc_id = next_plc_id + 1
|
||||
|
||||
-- success
|
||||
return plc_s.instance.get_id()
|
||||
else
|
||||
-- reactor already assigned to a PLC
|
||||
return false
|
||||
end
|
||||
end
|
||||
|
||||
local function _iterate(sessions)
|
||||
for i = 1, #sessions do
|
||||
local session = sessions[i]
|
||||
if session.open then
|
||||
local ok = session.instance.iterate()
|
||||
if not ok then
|
||||
session.open = false
|
||||
session.instance.close()
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function iterate_all()
|
||||
-- iterate RTU sessions
|
||||
_iterate(self.rtu_sessions)
|
||||
|
||||
-- iterate PLC sessions
|
||||
_iterate(self.plc_sessions)
|
||||
|
||||
-- iterate coordinator sessions
|
||||
_iterate(self.coord_sessions)
|
||||
end
|
||||
|
||||
local function _free_closed(sessions)
|
||||
local move_to = 1
|
||||
for i = 1, #sessions do
|
||||
local session = sessions[i]
|
||||
if session ~= nil then
|
||||
if sessions[i].open then
|
||||
if sessions[move_to] == nil then
|
||||
sessions[move_to] = session
|
||||
sessions[i] = nil
|
||||
end
|
||||
move_to = move_to + 1
|
||||
else
|
||||
sessions[i] = nil
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
function free_all_closed()
|
||||
-- free closed RTU sessions
|
||||
_free_closed(self.rtu_sessions)
|
||||
|
||||
-- free closed PLC sessions
|
||||
_free_closed(self.plc_sessions)
|
||||
|
||||
-- free closed coordinator sessions
|
||||
_free_closed(self.coord_sessions)
|
||||
end
|
||||
Reference in New Issue
Block a user