Sancaros/egs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add type specs and simplifications to egs_conf.

Browse Source
This commit is contained in:
Loïc Hoguin 2011-06-08 02:17:38 +02:00
parent eab53bc3a7
commit 6fd1119777
1 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/egs_conf.erl
View File

@ -21,40 +21,33 @@
-behavior(gen_server). -behavior(gen_server).
-export([start_link/0, stop/0, read/1, reload/0]). %% API. -export([start_link/0, stop/0, read/1, reload/0]). %% API.
-export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]). %% gen_server. -export([init/1, handle_call/3, handle_cast/2,
handle_info/2, terminate/2, code_change/3]). %% gen_server.
%% Use the module name for the server's name.
-define(SERVER, ?MODULE). -define(SERVER, ?MODULE).
%% API. %% API.
%% @spec start_link() -> {ok,Pid::pid()} -spec start_link() -> {ok, pid()}.
start_link() -> start_link() ->
gen_server:start_link({local, ?SERVER}, ?MODULE, [], []). gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
%% @spec stop() -> stopped -spec stop() -> stopped.
stop() -> stop() ->
gen_server:call(?SERVER, stop). gen_server:call(?SERVER, stop).
%% @spec read(Key) -> Value | undefined -spec read(atom()) -> undefined | any().
read(Key) -> read(Key) ->
gen_server:call(?SERVER, {read, Key}). gen_server:call(?SERVER, {read, Key}).
%% @spec reload() -> ok -spec reload() -> ok.
reload() -> reload() ->
gen_server:cast(?SERVER, reload). gen_server:cast(?SERVER, reload).
%% gen_server. %% gen_server.
init([]) -> init([]) ->
case file:consult("priv/egs.conf") of {ok, _Terms} = file:consult("priv/egs.conf").
{ok, Terms} ->
error_logger:info_report("egs_conf started"),
{ok, Terms};
Error ->
error_logger:error_report(["An error occurred when trying to load the configuration file:", Error]),
Error
end.
handle_call({read, Key}, _From, State) -> handle_call({read, Key}, _From, State) ->
{reply, proplists:get_value(Key, State), State}; {reply, proplists:get_value(Key, State), State};