umgeher/leveled
0
Fork 0
Code Issues Pull requests Releases Activity Actions

Experiment with temporary us eof ETS table

Browse source 
Rather than expensive lists:ukeymerge, try use a temporary ETS table.
This commit is contained in:
martinsumner 2016-12-13 19:38:14 +00:00
parent 8ccd02e893
commit 2a106d0dc5
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/leveled_pmem.erl
View file

@ -102,14 +102,16 @@ check_index(Hash, L0Index) ->
to_list(Slots, FetchFun) ->
SW = os:timestamp(),
SlotList = lists:reverse(lists:seq(1, Slots)),
FullList = lists:foldl(fun(Slot, Acc) ->
Tree = FetchFun(Slot),
L = leveled_skiplist:to_list(Tree),
lists:ukeymerge(1, Acc, L)
end,
[],
SlotList),
Tab = ets:new(temp_l0, [private, ordered_set]),
SlotList = lists:seq(1, Slots),
lists:foreach(fun(Slot) ->
Tree = FetchFun(Slot),
L = leveled_skiplist:to_list(Tree),
ets:insert(Tab, L)
end,
SlotList),
FullList = ets:tab2list(Tab),
true = ets:delete(Tab),
leveled_log:log_timer("PM002", [length(FullList)], SW),
FullList.