reltool.config.script 738 B

123456789101112131415161718
  1. %% -*- mode: erlang;erlang-indent-level: 4;indent-tabs-mode: nil -*-
  2. %% ex: ft=erlang ts=4 sw=4 et
  3. Sys = proplists:get_value(sys, CONFIG),
  4. IncludeApps = [App || {app, App, _} <- Sys],
  5. [DepsDir] = proplists:get_value(lib_dirs, Sys),
  6. DepApps = lists:map(fun(AppFile) ->
  7. {ok, [{application, Name, Attrs}]}
  8. = file:consult(filename:join(DepsDir, AppFile)),
  9. Name
  10. end, filelib:wildcard("*/ebin/*.app", DepsDir)),
  11. AppendApps = DepApps -- IncludeApps,
  12. Cond = [{mod_cond, app}, {incl_cond, include}],
  13. NewSys = lists:append(Sys, [{app, App, Cond} || App <- AppendApps]),
  14. lists:keyreplace(sys, 1, CONFIG, {sys, NewSys}).