Current section
Files
Jump to
Current section
Files
src/per.erl
-module(per).
-description('Per: MLTT').
-behaviour(supervisor).
-behaviour(application).
-export([init/1, start/2, stop/1, start/0, boot/0, tables/0 ]).
opt() -> [ set, named_table, { keypos, 1 }, public ].
tables() -> [ term, norm, type, erased, filesystem ].
boot() -> [ ets:new(T,opt()) || T <- tables() ].
unicode() -> io:setopts(standard_io, [{encoding, unicode}]).
start() -> start(normal,[]).
start(_,_) -> unicode(), supervisor:start_link({local,per},per,[]).
ets_clear() -> [ ets:delete(T) || T <- tables() ].
stop(_) -> ets_clear(), ok.
init([]) -> boot(), {ok, {{one_for_one, 5, 10}, []}}.