github/rebar
1
0
Fork 0
mirror of https://github.com/correl/rebar.git synced 2024-12-18 03:00:17 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add {vsn, _} support for reltool.config

Browse source
This commit is contained in:
Ali Sabil 2011-11-21 00:01:53 +01:00 committed by Tuncer Ayaz
parent 1de48e4902
commit f47d61bc13
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/rebar_rel_utils.erl
View file

@ -118,7 +118,7 @@ get_previous_release_path() ->
load_config(ReltoolFile) -> load_config(ReltoolFile) ->
case file:consult(ReltoolFile) of case file:consult(ReltoolFile) of
{ok, Terms} -> {ok, Terms} ->
Terms; expand_version(Terms, filename:dirname(ReltoolFile));
Other -> Other ->
?ABORT("Failed to load expected config from ~s: ~p\n", ?ABORT("Failed to load expected config from ~s: ~p\n",
[ReltoolFile, Other]) [ReltoolFile, Other])
@ -208,3 +208,17 @@ make_proplist([H|T], Acc) ->
make_proplist(T, [{App,Ver}|Acc]); make_proplist(T, [{App,Ver}|Acc]);
make_proplist([], Acc) -> make_proplist([], Acc) ->
Acc. Acc.
expand_version(ReltoolConfig, Dir) ->
case lists:keyfind(sys, 1, ReltoolConfig) of
{sys, Sys} ->
ExpandedSys = {sys, [expand_rel_version(Term, Dir) || Term <- Sys]},
lists:keyreplace(sys, 1, ReltoolConfig, ExpandedSys);
_ ->
ReltoolConfig
end.
expand_rel_version({rel, Name, Version, Apps}, Dir) ->
{rel, Name, rebar_utils:vcs_vsn(Version, Dir), Apps};
expand_rel_version(Other, _Dir) ->
Other.