eon

src/command.lua

@@ -47,6 +47,35 @@ if type(data) == "string" and data ~= nil then
         else return "?" end
         -- TODO: more
     end
+    local eon_cmd, eon_num = data:match("^eon(%d+)([a-z]+)$")
+    if eon_cmd then
+        local eon_idx = tonumber(eon_cmd)
+        if not eon_idx or eon_idx < 1 or eon_idx > eon_count then
+            return "?"
+        end
+
+        eon_idx = eon_idx - 1
+
+        local enabled, pi, tp, ta, pty, ps, afs, data_val = get_rds_eon(eon_idx)
+
+        if eon_num == "en" then
+            return string.format("EON%dEN=%d\r\n", eon_idx + 1, enabled and 1 or 0)
+        elseif eon_num == "pi" then
+            return string.format("EON%dPI=%x\r\n", eon_idx + 1, pi)
+        elseif eon_num == "ps" then
+            return string.format("EON%dPS=%s\r\n", eon_idx + 1, ps)
+        elseif eon_num == "pty" then
+            return string.format("EON%dPTY=%d\r\n", eon_idx + 1, pty)
+        elseif eon_num == "ta" then
+            return string.format("EON%dTA=%d\r\n", eon_idx + 1, ta and 1 or 0)
+        elseif eon_num == "tp" then
+            return string.format("EON%dTP=%d\r\n", eon_idx + 1, tp and 1 or 0)
+        elseif eon_num == "dt" then
+            return string.format("EON%dDT=%x\r\n", eon_idx + 1, data_val)
+        else
+            return "?"
+        end
+    end
     cmd = cmd:lower()
     if cmd == "pi" then
         local pi = tonumber(value, 16)
@@ -248,6 +277,93 @@ if type(data) == "string" and data ~= nil then
         set_rds_af_oda(af_table)
         return "+"
     else
-        return "?"
+        local eon_set_cmd, eon_set_num, eon_set_type = cmd:match("^eon(%d+)([a-z]+)$")
+        if eon_set_cmd then
+            local eon_idx = tonumber(eon_set_cmd)
+            if not eon_idx or eon_idx < 1 or eon_idx > eon_count then
+                return "?"
+            end
+
+            eon_idx = eon_idx - 1
+
+            local enabled, pi, tp, ta, pty, ps, afs, data_val = get_rds_eon(eon_idx)
+
+            if eon_set_type == "en" then
+                local en_val = tonumber(value)
+                if not en_val then return "-" end
+                enabled = (en_val ~= 0)
+                set_rds_eon(eon_idx, enabled, pi, tp, ta, pty, ps, afs, data_val)
+                return "+"
+
+            elseif eon_set_type == "pi" then
+                local pi_val = tonumber(value, 16)
+                if not pi_val then return "-" end
+                set_rds_eon(eon_idx, enabled, pi_val, tp, ta, pty, ps, afs, data_val)
+                return "+"
+
+            elseif eon_set_type == "ps" then
+                local ps_val = value:sub(1, 24)
+                set_rds_eon(eon_idx, enabled, pi, tp, ta, pty, ps_val, afs, data_val)
+                return "+"
+
+            elseif eon_set_type == "pty" then
+                local pty_val = tonumber(value)
+                if not pty_val then return "-" end
+                set_rds_eon(eon_idx, enabled, pi, tp, ta, pty_val, ps, afs, data_val)
+                return "+"
+
+            elseif eon_set_type == "ta" then
+                if not enabled or not tp then
+                    return "-"
+                end
+                local ta_val = tonumber(value)
+                if not ta_val then return "-" end
+                ta = (ta_val ~= 0)
+                set_rds_eon(eon_idx, enabled, pi, tp, ta, pty, ps, afs, data_val)
+                if ta then
+                    set_rds_ta(true)
+                end
+                return "+"
+
+            elseif eon_set_type == "tp" then
+                local tp_val = tonumber(value)
+                if not tp_val then return "-" end
+                tp = (tp_val ~= 0)
+                set_rds_eon(eon_idx, enabled, pi, tp, ta, pty, ps, afs, data_val)
+                return "+"
+
+            elseif eon_set_type == "af" then
+                local af_table = {}
+
+                if value == "" or value == "0" then
+                    set_rds_eon(eon_idx, enabled, pi, tp, ta, pty, ps, {}, data_val)
+                    return "+"
+                end
+
+                for freq_str in value:gmatch("([^,]+)") do
+                    local f = tonumber(freq_str)
+                    if f then
+                        table.insert(af_table, f)
+                    else
+                        return "-"
+                    end
+                end
+
+                if #af_table > 25 then return "-" end
+
+                set_rds_eon(eon_idx, enabled, pi, tp, ta, pty, ps, af_table, data_val)
+                return "+"
+
+            elseif eon_set_type == "dt" then
+                local dt_val = tonumber(value, 16)
+                if not dt_val then return "-" end
+                set_rds_eon(eon_idx, enabled, pi, tp, ta, pty, ps, afs, dt_val)
+                return "+"
+            else
+                return "?"
+            end
+        else
+            return "?"
+        end
     end
 end