From b960ac6f3bca42901694cd76218796108e0127a8 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 31 Jan 2021 16:27:30 +0100
Subject: Initial part of writing out states

---
 guile/starlet/base.scm     |  9 +++++++++
 guile/starlet/state-rw.scm | 13 +++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 guile/starlet/state-rw.scm

(limited to 'guile')

diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm
index f0424af..efb2c64 100644
--- a/guile/starlet/base.scm
+++ b/guile/starlet/base.scm
@@ -22,6 +22,7 @@
             scale-to-range
             hirestime
             state-for-each
+            state-map
             get-attributes
             set-attr!
             get-attr-name
@@ -48,6 +49,7 @@
             find-attr
             fixture?
             fixture-attribute?
+            get-fixture-name
             selection-hook
             sel
             programmer-state
@@ -268,6 +270,13 @@
   (hash-ref (get-state-hash-table state)
             (cons fix attr)))
 
+(define (state-map func state)
+  (hash-map->list (lambda (key value)
+                    (func (car key)
+                          (cdr key)
+                          value))
+                  (get-state-hash-table state)))
+
 
 ;; Add the contents of state "new" to "combined-state"
 (define (add-state-to-state! merge-rule new combined-state)
diff --git a/guile/starlet/state-rw.scm b/guile/starlet/state-rw.scm
new file mode 100644
index 0000000..5b14c6e
--- /dev/null
+++ b/guile/starlet/state-rw.scm
@@ -0,0 +1,13 @@
+(define-module (starlet state-rw)
+  #:use-module (starlet base)
+  #:export (write-state))
+
+
+(define (write-state state)
+  (state-map
+    (lambda (fix attr val)
+      (list 'at
+            (get-fixture-name fix)
+            (get-attr-name attr)
+            val))
+    state))
-- 
cgit v1.2.3