This repository was archived by the owner on Dec 15, 2023. It is now read-only.
Repository navigation
Expand file tree
/
Copy pathezic_db_ets.erl
More file actions
149 lines (105 loc) · 3.32 KB
/
Copy pathezic_db_ets.erl
File metadata and controls
149 lines (105 loc) · 3.32 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
-module(ezic_db_ets).
-include("include/ezic.hrl").
-include_lib("eunit/include/eunit.hrl").
-define(DB_FILENAME, "db.e2f").
-export([
init/0
, zones/1
, rules/1
, flatzones/1
, flatzone/2
%, insert/2
, get_all/1
, insert_all/1
, wipe/1
, implementation/0
]).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% PUBLIC API
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
implementation() -> ?MODULE.
zones(TzName) ->
ets:select(zone, [{#zone{name=TzName, _='_'}, [], ['$_']}]).
rules(TzName) ->
ets:select(rule, [{#rule{name=TzName, _='_'}, [], ['$_']}]).
flatzones(TzName) ->
ets:select(flatzone, [{#flatzone{tzname=TzName, _='_'}, [], ['$_']}]).
flatzone(Date, TzName) ->
FlatZones= ets:select(flatzone, ezic_flatten:ms(Date, TzName)),
case length(FlatZones) of
1 ->
hd(FlatZones);
2 ->
{error, {ambiguous_zone, FlatZones}};
0 ->
{error, no_zone};
_ ->
{error, {should_not_happen, {FlatZones, Date, TzName}}}
end.
get_all(Tab) ->
try ets:lookup(Tab, Tab) of X -> X
catch error:X -> {error, X}
end.
insert_all(Records) ->
Zones= [ZI || ZI <- Records, ZI = #zone{}],
ets:insert(zone, Zones),
Rules= [RI || RI <- Records, RI = #rule{}],
ets:insert(rule, Rules),
FlatZones= [FZ || FZ <- Records, FZ = #flatzone{}],
ets:insert(flatzone, FlatZones).
%wipe() ->
% gen_server:call(?MODULE, {wipe}).
wipe(Tab) ->
ets:delete(Tab, Tab).
init() ->
{ok, DbDir}= application:get_env(db_dir),
Filename= filename:join(DbDir, ?DB_FILENAME),
case db_sane(Filename) of
true -> load_tabfile(Filename);
false -> create_tables(Filename)
end,
{ok, []}.
%%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%% Private functions for initializing ets
%%~~~~~~~~~~~
68ED
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%% -> true if table exists
db_sane(Filename) ->
%% @todo ensure data is present for each record type.
case ets:tabfile_info(Filename) of
{ok, _} -> true;
{error, _} -> false
end.
%% creates the dets table and populates it.
create_tables(Filename) ->
{ok, Zones, Rules, _, _} = ezic_record:separate(ezic_loader:load()),
ets:new(zone, [duplicate_bag, named_table]),
true = ets:insert(zone, Zones),
ets:new(rule, [duplicate_bag, named_table]),
true = ets:insert(rule, Rules),
ets:new(flatzone, [duplicate_bag, named_table]),
%% error_logger:info_msg("~p~n", [Rules]),
FlatZones = ezic_flatten:flatten(Zones, Rules),
true = ets:insert(flatzone, FlatZones),
% combine into one ets
Ets= ets:new(ezic_db_ets, [duplicate_bag]),
ets:insert(Ets, ets:lookup(zone, zone)),
ets:insert(Ets, ets:lookup(rule, rule)),
ets:insert(Ets, ets:lookup(flatzone, flatzone)),
% save to disk
ets:tab2file(Ets, Filename),
ets:delete(Ets),
ok.
%% loads or creates the dets table.
load_tabfile(Filename) ->
{ok, Ets}= ets:file2tab(Filename),
Zones= ets:lookup(Ets, zone),
ets:new(zone, [duplicate_bag, named_table]),
ets:insert(zone, Zones),
Rules= ets:lookup(Ets, rule),
ets:new(rule, [duplicate_bag, named_table]),
ets:insert(rule, Rules),
FlatZones= ets:lookup(Ets, flatzone),
ets:new(flatzone, [duplicate_bag, named_table]),
ets:insert(flatzone, FlatZones),
ets:delete(Ets),
ok.