ks-key-count added.

2026-06-29 08:44:31 +02:00
parent ddb274c644
commit 714df33b8b
1 changed files with 7 additions and 0 deletions
@@ -18,6 +18,7 @@
         ks-key-values
         ks-key-values-raw
         ks-keys-raw
+         ks-key-count
         )

 (define-struct keystore
@@ -71,6 +72,12 @@
                   "SELECT key, value FROM keystore WHERE str_key GLOB $1"
                   (string-downcase gl))))

+(define/contract (ks-key-count ksh)
+  (-> keystore? number?)
+  (let ((l (query-rows (keystore-dbh ksh)
+                       "SELECT count(*) FROM keystore")))
+    (vector-ref (car l) 0)))
+
 (define/contract (ks-keys-glob ksh sqlite-like)
  (-> keystore? string? list?)
  (map (λ (row)