From 84a2c09c909b2dd249873d199cc9ea83e59f60fe Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 20 May 2021 20:59:24 +0200 Subject: Add total-num-attrs --- guile/starlet/scanout.scm | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'guile/starlet/scanout.scm') diff --git a/guile/starlet/scanout.scm b/guile/starlet/scanout.scm index c5b95aa..70698d4 100644 --- a/guile/starlet/scanout.scm +++ b/guile/starlet/scanout.scm @@ -31,6 +31,7 @@ #:use-module (srfi srfi-1) #:export (patch-fixture! scanout-freq + total-num-attrs register-state! current-value)) @@ -45,6 +46,13 @@ (define state-names (make-atomic-box '())) +(define (total-num-attrs) + (fold (lambda (fix prev) + (+ prev (length (get-fixture-attrs fix)))) + 0 + (atomic-box-ref fixtures))) + + (define (get-state-name st) (assq-ref (atomic-box-ref state-names) st)) -- cgit v1.2.3