commit 8646478771d300d5e6592b78d8412e3e6f8bf16d
author Paul J. Davis <paul.joseph.davis@gmail.com> Tue Apr 16 15:51:47 2019 -0500
committer Paul J. Davis <paul.joseph.davis@gmail.com> Tue Apr 16 15:51:47 2019 -0500
tree 55a5ee09928f0a210968ad9aa87420ede974eb9c
parent 12d2a4e2f3521f692e2ed71a414ac3795b5f9ad4

Expose is_read_only/1 API

src/erlfdb.erl

diff --git a/src/erlfdb.erl b/src/erlfdb.erl
index 3c49e46..b42deca 100644
--- a/src/erlfdb.erl
+++ b/src/erlfdb.erl
@@ -99,6 +99,9 @@
     get_committed_version/1,
     get_versionstamp/1,
 
+    % Transaction status
+    is_read_only/1,
+
     % Locality
     get_addresses_for_key/2,
 
@@ -529,6 +532,13 @@
     get_versionstamp(?GET_TX(SS)).
 
 
+is_read_only(?IS_TX = Tx) ->
+    erlfdb_nif:transaction_is_read_only(Tx);
+
+is_read_only(?IS_SS = SS) ->
+    is_read_only(?GET_TX(SS)).
+
+
 get_addresses_for_key(?IS_DB = Db, Key) ->
     transactional(Db, fun(Tx) ->
         wait(get_addresses_for_key(Tx, Key))