aboutsummaryrefslogtreecommitdiffstats
path: root/src/rcl_prv_config.erl
diff options
context:
space:
mode:
Diffstat (limited to 'src/rcl_prv_config.erl')
-rw-r--r--src/rcl_prv_config.erl99
1 files changed, 99 insertions, 0 deletions
diff --git a/src/rcl_prv_config.erl b/src/rcl_prv_config.erl
new file mode 100644
index 0000000..6036097
--- /dev/null
+++ b/src/rcl_prv_config.erl
@@ -0,0 +1,99 @@
+%%%-------------------------------------------------------------------
+%%% @author Eric Merritt <[email protected]>
+%%% @copyright 2011 Erlware, LLC.
+%%% @doc
+%%% A module that provides config parsing and support to the system
+%%% @end
+%%%-------------------------------------------------------------------
+-module(rcl_prv_config).
+
+-behaviour(rcl_provider).
+
+%% API
+-export([init/1,
+ do/1,
+ format/1]).
+
+
+%%%===================================================================
+%%% API
+%%%===================================================================
+
+%% @doc Required by the system, but not used in this provider
+-spec init(rcl_state:t()) -> {ok, rcl_state:t()} | {error, Reason::term()}.
+init(State) ->
+ {ok, State}.
+
+%% @doc
+%%
+-spec do(rcl_state:t()) ->{ok, rcl_state:t()} | {error, Reason::term()}.
+do(State) ->
+ ConfigFiles = rcl_state:config_files(State),
+ lists:foldl(fun load_config/2, {ok, State}, ConfigFiles).
+
+format({error, {consult, Reason}}) ->
+ file:format_error(Reason).
+
+%%%===================================================================
+%%% Internal Functions
+%%%===================================================================
+load_config(_, Err = {error, _}) ->
+ Err;
+load_config(ConfigFile, {ok, State}) ->
+ {ok, CurrentCwd} = file:get_cwd(),
+ ok = file:set_cwd(filename:dirname(ConfigFile)),
+ Result = case file:consult(ConfigFile) of
+ {error, Reason} ->
+ {error, {consult, Reason}};
+ {ok, Terms} ->
+ lists:foldl(fun load_terms/2, {ok, State}, Terms)
+ end,
+ ok = file:set_cwd(CurrentCwd),
+ Result.
+
+load_terms({paths, Paths}, {ok, State}) ->
+ code:add_pathsa([filename:absname(Path) || Path <- Paths]),
+ {ok, State};
+load_terms({providers, Providers0}, {ok, State0}) ->
+ Providers1 = gen_providers(Providers0, State0),
+ case Providers1 of
+ {error, _} ->
+ Providers1;
+ {Providers3, {ok, State3}} ->
+ {ok, rcl_state:providers(State3, Providers3)}
+ end;
+load_terms({add_providers, Providers0}, {ok, State0}) ->
+ Providers1 = gen_providers(Providers0, State0),
+ case Providers1 of
+ {error, _} ->
+ Providers1;
+ {Providers3, {ok, State1}} ->
+ ExistingProviders = rcl_state:providers(State1),
+ {ok, rcl_state:providers(State1, ExistingProviders ++ Providers3)}
+ end;
+
+load_terms({release, {RelName, Vsn}, Applications}, {ok, State0}) ->
+ Release0 = rcl_release:new(RelName, Vsn),
+ case rcl_release:goals(Release0, Applications) of
+ E = {error, _} ->
+ E;
+ {ok, Release1} ->
+ {ok, rcl_state:add_release(State0, Release1)}
+ end;
+load_terms({release, {RelName, Vsn}, {erts, ErtsVsn},
+ Applications}, {ok, State}) ->
+ Release0 = rcl_release:erts(rcl_release:new(RelName, Vsn), ErtsVsn),
+ case rcl_release:goals(Release0, Applications) of
+ E = {error, _} ->
+ E;
+ {ok, Release1} ->
+ {ok, rcl_state:add_release(State, Release1)}
+ end.
+
+gen_providers(Providers, State) ->
+ lists:foldl(fun(ProviderName, {Providers1, {ok, State1}}) ->
+ {Provider, State2} = rcl_provider:new(ProviderName, State1),
+ {[Provider | Providers1], State2};
+ (_, E={error, _}) ->
+ E
+ end, {[], {ok, State}}, Providers).