ETS delete

Delete the objects rather than starting a new table each time

src/leveled_penciller.erl

@@ -467,12 +467,12 @@ handle_cast({levelzero_complete, FN, StartKey, EndKey, Bloom}, State) ->
                                 filename=FN},
     UpdMan = lists:keystore(0, 1, State#state.manifest, {0, [ManEntry]}),
     % Prompt clerk to ask about work - do this for every L0 roll
+    leveled_pmem:clear_index(State#state.levelzero_index),
     ok = leveled_pclerk:clerk_prompt(State#state.clerk),
     {noreply, State#state{levelzero_cache=[],
                             levelzero_pending=false,
                             levelzero_constructor=undefined,
                             levelzero_size=0,
-                            levelzero_index=leveled_pmem:new_index(),
                             manifest=UpdMan,
                             persisted_sqn=State#state.ledger_sqn}}.
 

src/leveled_pmem.erl

@@ -88,6 +88,9 @@ add_to_index(LevelMinus1, L0Index) ->
 new_index() ->
     ets:new(l0index, [private, set]).
 
+clear_index(L0Index) ->
+    ets:delete_all_objects(L0Index).
+
 check_index(Hash, L0Index) ->
     case ets:lookup(L0Index, Hash) of
         [{Hash}] ->