add applications field to app_info to track all deps of an application

src/rebar_app_discover.erl

@@ -119,7 +119,7 @@ create_app_info(AppDir, AppFile) ->
     case file:consult(AppFile) of
         {ok, [{application, AppName, AppDetails}]} ->
             AppVsn = proplists:get_value(vsn, AppDetails),
-            %AppDeps = proplists:get_value(applications, AppDetails, []),
+            Applications = proplists:get_value(applications, AppDetails, []),
             C = rebar_config:consult(AppDir),
             S = rebar_state:new(rebar_state:new(), C, AppDir),
             AppDeps = rebar_state:deps_names(S),
@@ -134,8 +134,9 @@ create_app_info(AppDir, AppFile) ->
                                 rebar_state:new()
                         end,
             AppState1 = rebar_state:set(AppState, base_dir, AbsCwd),
-            AppInfo1 = rebar_app_info:config(
-                         rebar_app_info:app_details(AppInfo, AppDetails), AppState1),
+            AppInfo1 = rebar_app_info:applications(rebar_app_info:config(
+                                                     rebar_app_info:app_details(AppInfo, AppDetails)
+                                                     ,AppState1), Applications),
             rebar_app_info:dir(AppInfo1, AppDir);
         _ ->
             error

src/rebar_app_info.erl

@@ -18,6 +18,8 @@
          original_vsn/1,
          original_vsn/2,
          ebin_dir/1,
+         applications/1,
+         applications/2,
          deps/1,
          deps/2,
          dep_level/1,
@@ -37,6 +39,7 @@
                      config :: rebar_state:t() | undefined,
                      original_vsn :: binary() | string() | undefined,
                      app_details=[] :: list(),
+                     applications=[] :: list(),
                      deps=[] :: list(),
                      dep_level=0 :: integer(),
                      dir :: file:name(),
@@ -155,6 +158,14 @@ original_vsn(#app_info_t{original_vsn=Vsn}) ->
 original_vsn(AppInfo=#app_info_t{}, Vsn) ->
     AppInfo#app_info_t{original_vsn=Vsn}.
 
+-spec applications(t()) -> list().
+applications(#app_info_t{applications=Applications}) ->
+    Applications.
+
+-spec applications(t(), list()) -> t().
+applications(AppInfo=#app_info_t{}, Applications) ->
+    AppInfo#app_info_t{applications=Applications}.
+
 -spec deps(t()) -> list().
 deps(#app_info_t{deps=Deps}) ->
     Deps.