You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
136 lines
4.9 KiB
136 lines
4.9 KiB
%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
|
|
%% ex: ts=4 sw=4 et
|
|
%% -------------------------------------------------------------------
|
|
%%
|
|
%% rebar: Erlang Build Tools
|
|
%%
|
|
%% Copyright (c) 2009 Dave Smith (dizzyd@dizzyd.com)
|
|
%%
|
|
%% Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
%% of this software and associated documentation files (the "Software"), to deal
|
|
%% in the Software without restriction, including without limitation the rights
|
|
%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
%% copies of the Software, and to permit persons to whom the Software is
|
|
%% furnished to do so, subject to the following conditions:
|
|
%%
|
|
%% The above copyright notice and this permission notice shall be included in
|
|
%% all copies or substantial portions of the Software.
|
|
%%
|
|
%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
%% THE SOFTWARE.
|
|
%% -------------------------------------------------------------------
|
|
-module(rebar_config).
|
|
|
|
-export([consult/1
|
|
,consult_file/1
|
|
,format_error/1
|
|
|
|
,merge_locks/2]).
|
|
|
|
-include("rebar.hrl").
|
|
-include_lib("providers/include/providers.hrl").
|
|
|
|
%% ===================================================================
|
|
%% Public API
|
|
%% ===================================================================
|
|
|
|
-spec consult(file:name()) -> [any()].
|
|
consult(Dir) ->
|
|
consult_file(filename:join(Dir, ?DEFAULT_CONFIG_FILE)).
|
|
|
|
-spec consult_file(file:name()) -> [any()].
|
|
consult_file(File) when is_binary(File) ->
|
|
consult_file(binary_to_list(File));
|
|
consult_file(File) ->
|
|
case filename:extension(File) of
|
|
".script" ->
|
|
consult_and_eval(remove_script_ext(File), File);
|
|
_ ->
|
|
Script = File ++ ".script",
|
|
case filelib:is_regular(Script) of
|
|
true ->
|
|
{ok, Terms} = consult_and_eval(File, Script),
|
|
Terms;
|
|
false ->
|
|
try_consult(File)
|
|
end
|
|
end.
|
|
|
|
%% no lockfile
|
|
merge_locks(Config, []) ->
|
|
Config;
|
|
%% empty lockfile
|
|
merge_locks(Config, [[]]) ->
|
|
Config;
|
|
%% lockfile with entries
|
|
merge_locks(Config, [Locks]) ->
|
|
ConfigDeps = proplists:get_value(deps, Config, []),
|
|
%% We want the top level deps only from the lock file.
|
|
%% This ensures deterministic overrides for configs.
|
|
%% Then check if any new deps have been added to the config
|
|
%% since it was locked.
|
|
Deps = [X || X <- Locks, element(3, X) =:= 0],
|
|
NewDeps = find_newly_added(ConfigDeps, Locks),
|
|
[{{locks, default}, Locks}, {{deps, default}, NewDeps++Deps} | Config].
|
|
|
|
format_error({bad_dep_name, Dep}) ->
|
|
io_lib:format("Dependency name must be an atom, instead found: ~p", [Dep]).
|
|
|
|
%% ===================================================================
|
|
%% Internal functions
|
|
%% ===================================================================
|
|
|
|
consult_and_eval(File, Script) ->
|
|
?DEBUG("Evaluating config script ~p", [Script]),
|
|
StateData = try_consult(File),
|
|
file:script(Script, bs([{'CONFIG', StateData}, {'SCRIPT', Script}])).
|
|
|
|
remove_script_ext(F) ->
|
|
filename:rootname(F, ".script").
|
|
|
|
try_consult(File) ->
|
|
case file:consult(File) of
|
|
{ok, Terms} ->
|
|
Terms;
|
|
{error, enoent} ->
|
|
[];
|
|
{error, Reason} ->
|
|
?ABORT("Failed to read config file ~s:~n ~p", [File, Reason])
|
|
end.
|
|
|
|
bs(Vars) ->
|
|
lists:foldl(fun({K,V}, Bs) ->
|
|
erl_eval:add_binding(K, V, Bs)
|
|
end, erl_eval:new_bindings(), Vars).
|
|
|
|
%% Find deps that have been added to the config after the lock was created
|
|
find_newly_added(ConfigDeps, LockedDeps) ->
|
|
rebar_utils:filtermap(fun(Dep) when is_tuple(Dep) ->
|
|
check_newly_added(element(1, Dep), LockedDeps);
|
|
(Dep) ->
|
|
check_newly_added(Dep, LockedDeps)
|
|
end, ConfigDeps).
|
|
|
|
check_newly_added(Dep, LockedDeps) when is_atom(Dep) ->
|
|
NewDep = ec_cnv:to_binary(Dep),
|
|
case lists:keyfind(NewDep, 1, LockedDeps) of
|
|
false ->
|
|
true;
|
|
Match ->
|
|
case element(3, Match) of
|
|
0 ->
|
|
true;
|
|
_ ->
|
|
?WARN("Newly added dep ~s is locked at a lower level. "
|
|
"If you really want to unlock it, use 'rebar3 upgrade ~s'",
|
|
[NewDep, NewDep]),
|
|
false
|
|
end
|
|
end;
|
|
check_newly_added(Dep, _) ->
|
|
throw(?PRV_ERROR({bad_dep_name, Dep})).
|