diff options
| author | Eric <[email protected]> | 2012-11-21 14:32:50 -0500 |
|---|---|---|
| committer | Jordan Wilberding <[email protected]> | 2012-11-21 16:44:04 -0700 |
| commit | 15e39a9370ffa842e3ee64a8f7f1d64dd25b2130 (patch) | |
| tree | c108843e51c7b1beb66317391355aea0cd31e138 /src/rcl_state.erl | |
| parent | 79ae49d3c415627ff8e399e78828f373f38ec27a (diff) | |
| download | relx-15e39a9370ffa842e3ee64a8f7f1d64dd25b2130.tar.gz relx-15e39a9370ffa842e3ee64a8f7f1d64dd25b2130.tar.bz2 relx-15e39a9370ffa842e3ee64a8f7f1d64dd25b2130.zip | |
support specifing overrides in the configuration
Signed-off-by: Jordan Wilberding <[email protected]>
Diffstat (limited to 'src/rcl_state.erl')
| -rw-r--r-- | src/rcl_state.erl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/rcl_state.erl b/src/rcl_state.erl index 46c91c7..7397e6f 100644 --- a/src/rcl_state.erl +++ b/src/rcl_state.erl @@ -27,6 +27,8 @@ log/1, output_dir/1, lib_dirs/1, + overrides/1, + overrides/2, goals/1, config_files/1, providers/1, @@ -64,6 +66,7 @@ available_apps = [] :: [rcl_app_info:t()], default_release :: {rcl_release:name(), rcl_release:vsn()}, sys_config :: file:filename() | undefined, + overrides :: [{AppName::atom(), Directory::file:filename()}], releases :: ec_dictionary:dictionary({ReleaseName::atom(), ReleaseVsn::string()}, rcl_release:t()), @@ -96,10 +99,21 @@ new(PropList, Targets) when erlang:is_list(PropList) -> providers = [], releases=ec_dictionary:new(ec_dict), config_values=ec_dictionary:new(ec_dict), + overrides = proplists:get_value(overrides, PropList, []), default_release={proplists:get_value(relname, PropList, undefined), proplists:get_value(relvsn, PropList, undefined)}}, create_logic_providers(State0). +%% @doc the application overrides for the system +-spec overrides(t()) -> [{AppName::atom(), Directory::file:filename()}]. +overrides(#state_t{overrides=Overrides}) -> + Overrides. + +%% @doc the application overrides for the system +-spec overrides(t(), [{AppName::atom(), Directory::file:filename()}]) -> t(). +overrides(State, Overrides) -> + State#state_t{overrides=Overrides}. + %% @doc get the current log state for the system -spec log(t()) -> rcl_log:t(). log(#state_t{log=LogState}) -> |