Merge pull request #156 from ferd/deps

Initial `deps` command

1 files changed, 69 insertions, 1 deletions

diff --git a/src/rebar_prv_deps.erl b/src/rebar_prv_deps.erl
index 36b23fa..c7d9cf7 100644
--- a/src/rebar_prv_deps.erl
+++ b/src/rebar_prv_deps.erl
@@ -9,7 +9,7 @@
 -include("rebar.hrl").
 
 -define(PROVIDER, deps).
--define(DEPS, []).
+-define(DEPS, [app_discovery]).
 
 -spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
 init(State) ->
@@ -25,12 +25,80 @@ init(State) ->
 
 -spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
 do(State) ->
+    Profiles = rebar_state:current_profiles(State),
+    List = [{Profile, rebar_state:get(State, {deps, Profile}, [])}
+            || Profile <- Profiles],
+    [display(State, Profile, Deps) || {Profile, Deps} <- List],
     {ok, State}.
 
 -spec format_error(any()) -> iolist().
 format_error(Reason) ->
     io_lib:format("~p", [Reason]).
 
+display(State, default, Deps) ->
+    NewDeps = merge(Deps, rebar_state:get(State, deps, [])),
+    display_deps(State, NewDeps),
+    ?CONSOLE("", []);
+display(State, Profile, Deps) ->
+    ?CONSOLE("-- ~p --", [Profile]),
+    display_deps(State, Deps),
+    ?CONSOLE("", []).
+
+merge(Deps, Deps) ->
+    Deps;
+merge(Deps, SourceDeps) ->
+    ToAdd = [Dep || Dep <- SourceDeps,
+                    not lists:keymember(ec_cnv:to_binary(element(1,Dep)), 1, Deps)],
+    Deps ++ ToAdd.
+
+display_deps(State, Deps) ->
+    lists:foreach(fun(Dep) -> display_dep(State, Dep) end, Deps).
+
+%% packages
+display_dep(_State, {Name, Vsn}) when is_list(Vsn) ->
+    ?CONSOLE("~s* (package ~s)", [ec_cnv:to_binary(Name), ec_cnv:to_binary(Vsn)]);
+display_dep(_State, Name) when is_atom(Name) ->
+    ?CONSOLE("~s* (package)", [ec_cnv:to_binary(Name)]);
+%% git source
+display_dep(_State, {Name, Source}) when is_tuple(Source), element(1, Source) =:= git ->
+    ?CONSOLE("~s* (git source)", [ec_cnv:to_binary(Name)]);
+display_dep(_State, {Name, _Vsn, Source}) when is_tuple(Source), element(1, Source) =:= git ->
+    ?CONSOLE("~s* (git source)", [ec_cnv:to_binary(Name)]);
+display_dep(_State, {Name, _Vsn, Source, _Opts}) when is_tuple(Source), element(1, Source) =:= git ->
+    ?CONSOLE("~s* (git soutce)", [ec_cnv:to_binary(Name)]);
+%% unknown source
+display_dep(_State, {Name, Source}) when is_tuple(Source), element(1, Source) ->
+    ?CONSOLE("~s* (source ~p)", [ec_cnv:to_binary(Name), Source]);
+display_dep(_State, {Name, _Vsn, Source}) when is_tuple(Source) ->
+    ?CONSOLE("~s* (source ~p)", [ec_cnv:to_binary(Name), Source]);
+display_dep(_State, {Name, _Vsn, Source, _Opts}) when is_tuple(Source) ->
+    ?CONSOLE("~s* (source ~p)", [ec_cnv:to_binary(Name), Source]);
+%% Locked
+display_dep(State, {Name, Source={pkg, _, Vsn, _}, Level}) when is_integer(Level) ->
+    DepsDir = rebar_dir:deps_dir(State),
+    AppDir = filename:join([DepsDir, ec_cnv:to_binary(Name)]),
+    NeedsUpdate = case rebar_fetch:needs_update(AppDir, Source) of
+        true -> "*";
+        false -> ""
+    end,
+    ?CONSOLE("~s~s (locked package ~s)", [Name, NeedsUpdate, Vsn]);
+display_dep(State, {Name, Source, Level}) when is_tuple(Source), is_integer(Level), element(1, Source) =:= git ->
+    DepsDir = rebar_dir:deps_dir(State),
+    AppDir = filename:join([DepsDir, ec_cnv:to_binary(Name)]),
+    NeedsUpdate = case rebar_fetch:needs_update(AppDir, Source) of
+        true -> "*";
+        false -> ""
+    end,
+    ?CONSOLE("~s~s (locked git source)", [Name, NeedsUpdate]);
+display_dep(State, {Name, Source, Level}) when is_tuple(Source), is_integer(Level) ->
+    DepsDir = rebar_dir:deps_dir(State),
+    AppDir = filename:join([DepsDir, ec_cnv:to_binary(Name)]),
+    NeedsUpdate = case rebar_fetch:needs_update(AppDir, Source) of
+        true -> "*";
+        false -> ""
+    end,
+    ?CONSOLE("~s~s (locked ~p)", [Name, NeedsUpdate, Source]).
+
 info(Description) ->
     io_lib:format("~s.~n"
                  "~n"