transactions expanded.

2026-06-29 09:49:27 +02:00
parent 82fe0996f0
commit 0efd6e14cc
2 changed files with 35 additions and 1 deletions
@@ -21,6 +21,9 @@
         ks-key-count
         ks-transaction
         ks-commit
+         ks-begin-transaction
+         ks-end-transaction
+         ks-abort-transaction
         )

 (define-struct keystore
@@ -123,6 +126,22 @@
  (query-exec (keystore-dbh ks) "BEGIN")
  #t)

+(define/contract (ks-begin-transaction ks)
+  (-> keystore? boolean?)
+  (query-exec (keystore-dbh ks) "BEGIN")
+  #t)
+
+(define/contract (ks-end-transaction ks)
+  (-> keystore? boolean?)
+  (query-exec (keystore-dbh ks) "COMMIT")
+  #t)
+
+(define/contract (ks-abort-transaction ks)
+  (-> keystore? boolean?)
+  (query-exec (keystore-dbh ks) "ROLLBACK")
+  #t)
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal working
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;