Initial commit: C++20 SECS-II / HSMS / GEM client + server
A fully containerised SECS/GEM toolchain. Single docker compose project,
no host build tools. 63 unit-test cases / 278 assertions, two demo
executables, end-to-end two-container demo exercising every implemented
capability.
Architecture (bottom-up):
secs2/ E5 SECS-II codec
Item variant over L/A/B/BOOLEAN/I1-8/U1-8/F4/F8
encode/decode big-endian, 1/2/3-byte length encoding
Message SxFy + W-bit + optional root item
to_sml human-readable text rendering
hsms/ E37 HSMS transport (TCP)
Header 10-byte header + SType enum (Data/Select/Deselect/
Linktest/Reject/Separate)
Frame 4-byte length prefix + payload encode/decode
Connection async Asio TCP, NOT-SELECTED -> SELECTED state machine,
T3/T5/T6/T7/T8 timers, system-bytes reply correlation,
graceful close-after-flush separation
endpoint active Client (connect with T5 retry) and passive Server
(accept loop) wrappers over Connection
gem/ E30 GEM logic
ControlStateMachine 5-state E30 control model with operator
actions, host requests, SEMI-mandated ack
codes (OnlineAck, OfflineAck, CommAck), and
a state-change handler
EquipmentDataModel in-memory dictionary: SVIDs, DVIDs, ECIDs
(with EAC), CEIDs, report defs, CEID->report
links, enabled-events set, alarm table
(ALCD, enabled, active), process programs,
host command registry, clock (16-char
YYYYMMDDhhmmsscc with offset)
messages.hpp builders + parsers for every SxFy below
GEM message coverage (full list):
S1F1/F2 Are You There / On Line Data
S1F3/F4 Selected Equipment Status Request / Data
S1F11/F12 Status Variable Namelist Request / Data
S1F13/F14 Establish Communications (+ CommAck)
S1F15/F16 Request OFFLINE (+ OfflineAck)
S1F17/F18 Request ONLINE (+ OnlineAck)
S2F13/F14 Equipment Constant Request / Data
S2F15/F16 EC Send + EquipmentAck (Accept/UnknownEcid/Busy/OutOfRange)
S2F17/F18 Date and Time Request / Data
S2F29/F30 Equipment Constant Namelist Request / Data
S2F31/F32 Date and Time Set Request / TimeAck
S2F33/F34 Define Report + DefineReportAck (5 enum values)
S2F35/F36 Link Event Report + LinkEventAck
S2F37/F38 Enable / Disable Event Report + EnableEventAck
S2F41/F42 Host Command + HostCmdAck (7 values) + per-param CPACKs
S5F1/F2 Alarm Report Send + AlarmAck (ALCD bit-7 set/cleared
+ lower-7 category)
S5F3/F4 Enable/Disable Alarm Send + AlarmAck
S5F5/F6 List Alarms Request / Data (active alarms tagged in ALCD)
S6F11/F12 Event Report Send (equipment-initiated CEID emission
with full report data) + EventReportAck
S7F3/F4 Process Program Send + ProcessProgramAck (7 values)
S7F5/F6 Process Program Request / Data
S7F19/F20 Current EPPD List Request / Data
S10F1/F2 Terminal Display Single (host->equipment) + TerminalAck
S10F3/F4 Terminal Display Single (equipment->host)
Demo apps:
apps/secs_server.cpp passive equipment. Populates the data model
with 3 SVIDs (ControlState, Clock,
EventsEnabled), 2 ECIDs, 3 CEIDs
(ControlStateChanged, AlarmSetEvent,
ProcessStarted), 2 alarms (Chiller Temp High
cat 4, Door Open cat 1), 2 recipes
(RECIPE-A, RECIPE-B), and 4 host commands
(START, STOP, PAUSE, FAULT). Emits S6F11 on
every control state transition + on START;
emits S5F1 + the AlarmSetEvent CEID on FAULT.
Pushes an S10F3 welcome message when the host
comes online.
apps/secs_client.cpp active host. Walks 17 steps: Establish ->
Online -> S1F11 SVID namelist -> S1F3 read ->
S2F29 EC namelist -> S2F13 read ->
S2F17 clock -> S2F33/S2F35/S2F37 dynamic
event subscription -> S2F41 START
(-> receives S6F11) -> S5F5 alarm list ->
S5F3 enable alarm 1 -> S2F41 FAULT
(-> receives S5F1 + S6F11) -> S7F19/S7F5
recipe list + body -> S10F1 terminal ->
S1F15 Offline -> Separate. Handles inbound
S6F11, S5F1, S10F3 primaries.
Testing:
tests/test_secs2.cpp codec round-trip for every format,
byte-layout assertions for known values,
truncation/trailing-byte rejection,
nested list round-trip, SML rendering
tests/test_hsms.cpp header byte layout, data + control
header round-trip, full frame round-
trip with length prefix, short-payload
rejection
tests/test_control_state.cpp every (state, event) pair in the E30
control state machine, including
AlreadyOnline / NotAccept rejections
and idempotent offline-while-offline
tests/test_data_model.cpp SVID/ECID/Alarm/Recipe CRUD, clock
format + parse, host command registry,
full event-report pipeline (define ->
link -> enable -> compose) with
every error path (InvalidVid,
UnknownCeid, UnknownRptid), alarm
set/clear with ALCD bit-7 semantics
tests/test_messages.cpp round-trip + byte-layout for every
builder/parser pair, including S6F11
event reports with mixed item types
Toolchain:
Dockerfile Ubuntu 24.04, g++-13, CMake, Ninja, libasio-dev
docker-compose.yml builder / tests / server / client services,
source bind-mounted, build artifacts in a
named volume so the host tree stays clean
CMakeLists.txt C++20, -Wall -Wextra -Wpedantic, standalone
Asio (ASIO_STANDALONE), doctest via FetchContent
Documentation:
README.md architecture, quick start, demo log
COMPLIANCE.md honest per-capability E5/E30/E37 audit with
spec section refs. Calls out what's implemented,
what's partial (Reject.req, Alarms missing F7/F8,
EC range validation, PP without verify, terminal
single-line only), and what's intentionally not
yet implemented (spooling, S9 error stream,
Documentation S1F19/F20+F21/F22, limits monitoring,
trace data collection, multi-block, material
movement). Does NOT claim "100% GEM-compliant" and
lists the work required to honestly make that claim.
This is Layer 0 + the start of Layer 1 from implementation_plan.md.
The transition-table-driven "spec-as-data" architecture (Layer 1
proper) is not yet implemented; the current code uses imperative
state machines that are structurally ready to be refactored onto
tables.
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,126 @@
|
||||
#include "secsgem/gem/control_state.hpp"
|
||||
|
||||
namespace secsgem::gem {
|
||||
|
||||
const char* control_state_name(ControlState s) {
|
||||
switch (s) {
|
||||
case ControlState::EquipmentOffline: return "EquipmentOffline";
|
||||
case ControlState::AttemptOnline: return "AttemptOnline";
|
||||
case ControlState::HostOffline: return "HostOffline";
|
||||
case ControlState::OnlineLocal: return "OnlineLocal";
|
||||
case ControlState::OnlineRemote: return "OnlineRemote";
|
||||
}
|
||||
return "?";
|
||||
}
|
||||
|
||||
bool is_online(ControlState s) {
|
||||
return s == ControlState::OnlineLocal || s == ControlState::OnlineRemote;
|
||||
}
|
||||
|
||||
const char* control_event_name(ControlEvent e) {
|
||||
switch (e) {
|
||||
case ControlEvent::OperatorSwitchOnline: return "OperatorSwitchOnline";
|
||||
case ControlEvent::OperatorSwitchOffline: return "OperatorSwitchOffline";
|
||||
case ControlEvent::OperatorSwitchLocal: return "OperatorSwitchLocal";
|
||||
case ControlEvent::OperatorSwitchRemote: return "OperatorSwitchRemote";
|
||||
case ControlEvent::AttemptComplete: return "AttemptComplete";
|
||||
case ControlEvent::AttemptFailed: return "AttemptFailed";
|
||||
case ControlEvent::HostRequestOnline: return "HostRequestOnline";
|
||||
case ControlEvent::HostRequestOffline: return "HostRequestOffline";
|
||||
}
|
||||
return "?";
|
||||
}
|
||||
|
||||
ControlStateMachine::ControlStateMachine() : ControlStateMachine(Config{}) {}
|
||||
|
||||
ControlStateMachine::ControlStateMachine(Config cfg)
|
||||
: cfg_(cfg), state_(cfg.initial) {}
|
||||
|
||||
void ControlStateMachine::transition(ControlState next, ControlEvent trigger) {
|
||||
if (state_ == next) return;
|
||||
const ControlState prev = state_;
|
||||
state_ = next;
|
||||
if (on_change_) on_change_(prev, next, trigger);
|
||||
}
|
||||
|
||||
bool ControlStateMachine::operator_online() {
|
||||
switch (state_) {
|
||||
case ControlState::EquipmentOffline:
|
||||
case ControlState::HostOffline:
|
||||
transition(ControlState::AttemptOnline, ControlEvent::OperatorSwitchOnline);
|
||||
transition(cfg_.operator_default_remote ? ControlState::OnlineRemote
|
||||
: ControlState::OnlineLocal,
|
||||
ControlEvent::AttemptComplete);
|
||||
return true;
|
||||
case ControlState::AttemptOnline:
|
||||
case ControlState::OnlineLocal:
|
||||
case ControlState::OnlineRemote:
|
||||
return false;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
bool ControlStateMachine::operator_offline() {
|
||||
switch (state_) {
|
||||
case ControlState::OnlineLocal:
|
||||
case ControlState::OnlineRemote:
|
||||
case ControlState::AttemptOnline:
|
||||
transition(ControlState::HostOffline, ControlEvent::OperatorSwitchOffline);
|
||||
return true;
|
||||
case ControlState::EquipmentOffline:
|
||||
case ControlState::HostOffline:
|
||||
return false;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
bool ControlStateMachine::operator_local() {
|
||||
if (state_ == ControlState::OnlineRemote) {
|
||||
transition(ControlState::OnlineLocal, ControlEvent::OperatorSwitchLocal);
|
||||
return true;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
bool ControlStateMachine::operator_remote() {
|
||||
if (state_ == ControlState::OnlineLocal) {
|
||||
transition(ControlState::OnlineRemote, ControlEvent::OperatorSwitchRemote);
|
||||
return true;
|
||||
}
|
||||
return false;
|
||||
}
|
||||
|
||||
OnlineAck ControlStateMachine::on_host_request_online() {
|
||||
switch (state_) {
|
||||
case ControlState::HostOffline:
|
||||
transition(ControlState::AttemptOnline, ControlEvent::HostRequestOnline);
|
||||
transition(cfg_.host_request_grants_remote ? ControlState::OnlineRemote
|
||||
: ControlState::OnlineLocal,
|
||||
ControlEvent::AttemptComplete);
|
||||
return OnlineAck::Accept;
|
||||
case ControlState::OnlineLocal:
|
||||
case ControlState::OnlineRemote:
|
||||
return OnlineAck::AlreadyOnline;
|
||||
case ControlState::EquipmentOffline:
|
||||
case ControlState::AttemptOnline:
|
||||
return OnlineAck::NotAccept;
|
||||
}
|
||||
return OnlineAck::NotAccept;
|
||||
}
|
||||
|
||||
OfflineAck ControlStateMachine::on_host_request_offline() {
|
||||
switch (state_) {
|
||||
case ControlState::OnlineLocal:
|
||||
case ControlState::OnlineRemote:
|
||||
transition(ControlState::HostOffline, ControlEvent::HostRequestOffline);
|
||||
return OfflineAck::Accept;
|
||||
case ControlState::EquipmentOffline:
|
||||
case ControlState::AttemptOnline:
|
||||
case ControlState::HostOffline:
|
||||
// Idempotent: already offline from host's point of view.
|
||||
return OfflineAck::Accept;
|
||||
}
|
||||
return OfflineAck::Accept;
|
||||
}
|
||||
|
||||
} // namespace secsgem::gem
|
||||
Reference in New Issue
Block a user