hans/keystore
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ks-key-count added.

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-29 08:44:31 +02:00
parent ddb274c644
commit 714df33b8b
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
keystore.rkt
+7
View File
@@ -18,6 +18,7 @@
ks-key-values ks-key-values
ks-key-values-raw ks-key-values-raw
ks-keys-raw ks-keys-raw
ks-key-count
) )
(define-struct keystore (define-struct keystore
@@ -71,6 +72,12 @@
"SELECT key, value FROM keystore WHERE str_key GLOB $1" "SELECT key, value FROM keystore WHERE str_key GLOB $1"
(string-downcase gl)))) (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) (define/contract (ks-keys-glob ksh sqlite-like)
(-> keystore? string? list?) (-> keystore? string? list?)
(map (λ (row) (map (λ (row)