From 62e2a6e4849d342f90a3860554bf44df4e563d3b Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Thu, 25 Sep 2014 15:18:39 +0200
Subject: Added atomic module

---
 src/atomic.erl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 src/atomic.erl

(limited to 'src/atomic.erl')

diff --git a/src/atomic.erl b/src/atomic.erl
new file mode 100644
index 0000000..5bf5670
--- /dev/null
+++ b/src/atomic.erl
@@ -0,0 +1,24 @@
+%%
+%% Copyright (c) 2014 Kungliga Tekniska Högskolan
+%% (KTH Royal Institute of Technology, Stockholm, Sweden).
+%%
+
+-module(atomic).
+-export([replacefile/2, readfile/1]).
+
+-spec replacefile(string(), binary()) -> ok.
+replacefile(Path, Content) ->
+    TempName = util:tempfilename(Path),
+    util:write_tempfile_and_rename(Path, TempName, Content),
+    util:fsync([Path, filename:dirname(Path)]).
+
+-spec readfile(string()) -> binary().
+readfile(Path) ->
+    case file:read_file(Path) of
+        {ok, Contents} ->
+            Contents;
+	{error, enoent} ->
+            noentry;
+        {error, Error} ->
+            util:exit_with_error(readfile, Error, "Error reading file")
+    end.
-- 
cgit v1.1