transactions expanded.

keystore.rkt

@@ -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
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

scrbl/keystore.scrbl

@@ -134,7 +134,22 @@ it will do a "BEGIN/ROLLBACK" abd re-raise the exception.
 
 Commits (part of a transaction) using COMMIT/BEGIN.
 Fits in a @tt{ks-transaction} form. 
-}                                              
+}
+
+@defproc[(ks-begin-transaction [ks keystore?]) boolean?]{
+                                                         
+Begins a transaction with "BEGIN".
+}
+
+@defproc[(ks-end-transaction [ks keystore?]) boolean?]{
+
+Commits a transaction with "COMMIT".
+}
+
+@defproc[(ks-abort-transaction [ks keystore?]) boolean?]{
+
+Aborts a transaction with "ROLLBACK".
+}                                                         
 
 @section{Examples}