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

Pass out slots as a binary

Browse source 
If we convetr firts to a list, then the list has to be copied - passing
out as binaries means the bulk can be passed as references
This commit is contained in:
martinsumner 2017-03-17 10:43:34 +00:00
parent 2e1a5e7537
commit f287895db0
1 changed files with 8 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/leveled_sst.erl
View file

@ -201,7 +201,12 @@ sst_getkvrange(Pid, StartKey, EndKey, ScanWidth) ->
infinity). infinity).
sst_getslots(Pid, SlotList) -> sst_getslots(Pid, SlotList) ->
gen_fsm:sync_send_event(Pid, {get_slots, SlotList}, infinity). SlotBins = gen_fsm:sync_send_event(Pid, {get_slots, SlotList}, infinity),
FetchFun =
fun({SlotBin, SK, EK}, Acc) ->
Acc ++ binaryslot_trimmedlist(SlotBin, SK, EK)
end,
lists:foldl(FetchFun, [], SlotBins).
sst_getmaxsequencenumber(Pid) -> sst_getmaxsequencenumber(Pid) ->
gen_fsm:sync_send_event(Pid, get_maxsequencenumber, infinity). gen_fsm:sync_send_event(Pid, get_maxsequencenumber, infinity).
@ -310,11 +315,7 @@ reader({get_kvrange, StartKey, EndKey, ScanWidth}, _From, State) ->
State}; State};
reader({get_slots, SlotList}, _From, State) -> reader({get_slots, SlotList}, _From, State) ->
SlotBins = read_slots(State#state.handle, SlotList), SlotBins = read_slots(State#state.handle, SlotList),
FetchFun = {reply, SlotBins, reader, State};
fun({SlotBin, SK, EK}, Acc) ->
Acc ++ binaryslot_trimmedlist(SlotBin, SK, EK)
end,
{reply, lists:foldl(FetchFun, [], SlotBins), reader, State};
reader(get_maxsequencenumber, _From, State) -> reader(get_maxsequencenumber, _From, State) ->
Summary = State#state.summary, Summary = State#state.summary,
{reply, Summary#summary.max_sqn, reader, State}; {reply, Summary#summary.max_sqn, reader, State};
@ -353,15 +354,7 @@ delete_pending({get_kvrange, StartKey, EndKey, ScanWidth}, _From, State) ->
?DELETE_TIMEOUT}; ?DELETE_TIMEOUT};
delete_pending({get_slots, SlotList}, _From, State) -> delete_pending({get_slots, SlotList}, _From, State) ->
SlotBins = read_slots(State#state.handle, SlotList), SlotBins = read_slots(State#state.handle, SlotList),
FetchFun = {reply, SlotBins, delete_pending, State, ?DELETE_TIMEOUT};
fun({SlotBin, SK, EK}, Acc) ->
Acc ++ binaryslot_trimmedlist(SlotBin, SK, EK)
end,
{reply,
lists:foldl(FetchFun, [], SlotBins),
delete_pending,
State,
?DELETE_TIMEOUT};
delete_pending(close, _From, State) -> delete_pending(close, _From, State) ->
leveled_log:log("SST07", [State#state.filename]), leveled_log:log("SST07", [State#state.filename]),
ok = file:close(State#state.handle), ok = file:close(State#state.handle),