forks/ezic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Now using named ets tables.

Browse Source 
More closely mirrors the design of the mnesia backed version.
This commit is contained in:
lsowen
2012-11-07 14:06:27 -05:00
parent fe6db38bec
commit 9d0df77b29
3 changed files with 71 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
src/ezic_db_ets.erl
View File

@@ -80,17 +80,17 @@ init(_) ->
%%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
handle_call({zones, Name}, _, Ets) ->
Matches= ets:select(Ets, [{#zone{name=Name, _='_'}, [], ['$_']}]),
{reply, Matches, Ets};
handle_call({rules, Name}, _, Ets) ->
Matches= ets:select(Ets, [{#rule{name=Name, _='_'}, [], ['$_']}]),
{reply, Matches, Ets};
handle_call({all, Table}, _, Ets) ->
Matches= ets:lookup(Ets, Table),
{reply, Matches, Ets};
handle_call({flatzone, Date, Name}, _, Ets) ->
FlatZones= ets:select(Ets, ezic_flatten:ms(Date, Name)),
handle_call({zones, Name}, _, State) ->
Matches= ets:select(zone, [{#zone{name=Name, _='_'}, [], ['$_']}]),
{reply, Matches, State};
handle_call({rules, Name}, _, State) ->
Matches= ets:select(rule, [{#rule{name=Name, _='_'}, [], ['$_']}]),
{reply, Matches, State};
handle_call({all, Tab}, _, State) ->
Matches= ets:lookup(Tab, Tab),
{reply, Matches, State};
handle_call({flatzone, Date, Name}, _, State) ->
FlatZones= ets:select(flatzone, ezic_flatten:ms(Date, Name)),
Result= case length(FlatZones) of
1 ->
hd(FlatZones);
@@ -101,21 +101,21 @@ handle_call({flatzone, Date, Name}, _, Ets) ->
_ ->
erlang:error(should_not_happen, {FlatZones, Date, Name})
end,
{reply, Result, Ets};
{reply, Result, State};
%handle_call({insert_all, Records}, _, Ets) ->
% Result= ets:insert(Ets, Records),
% {reply, Result, Ets};
%handle_call({wipe}, _, Ets) ->
% Result= ets:delete(Ets),
% {reply, Result, Ets};
handle_call({wipe, Tab}, _, Ets) ->
Result= ets:delete(Ets, Tab),
{reply, Result, Ets};
handle_call({flatten}, _, Ets) ->
Result= ezic_flatten:flatten(Ets),
{reply, Result, Ets};
handle_call(_, _, Ets) ->
{noreply, Ets}.
handle_call({wipe, Tab}, _, State) ->
Result= ets:delete(Tab, Tab),
{reply, Result, State};
handle_call({flatten}, _, State) ->
Result= ezic_flatten:flatten(),
{reply, Result, State};
handle_call(_, _, State) ->
{noreply, State}.
%%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~