ks-transaction added

2026-06-29 09:09:32 +02:00
parent ce23e90231
commit 6f5ef123f9
1 changed files with 10 additions and 0 deletions
@@ -19,6 +19,7 @@
         ks-key-values-raw
         ks-keys-raw
         ks-key-count
+         ks-transaction
         )

 (define-struct keystore
@@ -104,6 +105,15 @@
  (map vector->list 
       (query-rows (keystore-dbh ksh) "SELECT key, str_key, value FROM keystore")))

+(define-syntax ks-transaction
+  (syntax-rules ()
+    ((_ ks b1 ...)
+     (begin
+       (query-exec (keystore-dbh ks) "BEGIN")
+       (let ((r (begin b1 ...)))
+         (query-exec (keystore-dbh ks) "COMMIT")
+         r)))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal working
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;