From 0718d33d7a9ae32751bb1351308a946fa1450216 Mon Sep 17 00:00:00 2001
From: Kresten Krab Thorup <krab@trifork.com>
Date: Mon, 23 Apr 2012 02:20:12 +0200
Subject: [PATCH] Add {sync_strategy, sync | {seconds, N} | none}

We should add o_sync also like bitcask
---
 src/hanoi_nursery.erl | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/src/hanoi_nursery.erl b/src/hanoi_nursery.erl
index aec5e79..5a4505f 100644
--- a/src/hanoi_nursery.erl
+++ b/src/hanoi_nursery.erl
@@ -32,7 +32,7 @@
 -include("hanoi.hrl").
 -include_lib("kernel/include/file.hrl").
 
--record(nursery, { log_file, dir, cache, total_size=0, count=0 }).
+-record(nursery, { log_file, dir, cache, total_size=0, count=0, last_sync=now() }).
 
 -spec new(string()) -> {ok, #nursery{}} | {error, term()}.
 
@@ -116,10 +116,24 @@ add(Nursery=#nursery{ log_file=File, cache=Cache, total_size=TotalSize, count=Co
                      ++ if Value /= ?TOMBSTONE -> [<<(byte_size(Value)):32>>, Value];
                            true -> [] end),
 
-    ok = file:datasync(File),
+    case application:get_env(hanoi, sync_strategy) of
+        {ok, sync} ->
+            file:datasync(File),
+            LastSync = now();
+        {ok, {seconds, N}} ->
+            MicrosSinceLastSync = timer:now_diff(now(), Nursery#nursery.last_sync),
+            if (MicrosSinceLastSync / 1000000) >= N ->
+                    file:datasync(File),
+                    LastSync = now();
+               true ->
+                    LastSync = Nursery#nursery.last_sync
+            end;
+        _ ->
+            LastSync = Nursery#nursery.last_sync
+    end,
 
     Cache2 = gb_trees:enter(Key, Value, Cache),
-    Nursery2 = Nursery#nursery{ cache=Cache2, total_size=TotalSize+Size+16, count=Count+1 },
+    Nursery2 = Nursery#nursery{ cache=Cache2, total_size=TotalSize+Size+16, count=Count+1, last_sync=LastSync },
     if
        Count+1 >= ?BTREE_SIZE(?TOP_LEVEL) ->
             {full, Nursery2};