diff options
author | Tristan Sloughter <t@crashfast.com> | 2014-10-01 07:15:48 -0500 |
---|---|---|
committer | Tristan Sloughter <t@crashfast.com> | 2014-10-01 07:16:03 -0500 |
commit | f84c358ad85b9fbf615adc21c8213e03d1b86690 (patch) | |
tree | 1386fa1cdb6b1ebf6fe35b312cc5d02edf75d4d2 /src/rebar_prv_clean.erl | |
parent | f8feb56bb5d9faf6bdc1af8c411aadc8c727ada4 (diff) |
add clean provider
Diffstat (limited to 'src/rebar_prv_clean.erl')
-rw-r--r-- | src/rebar_prv_clean.erl | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/src/rebar_prv_clean.erl b/src/rebar_prv_clean.erl new file mode 100644 index 0000000..1ed6241 --- /dev/null +++ b/src/rebar_prv_clean.erl @@ -0,0 +1,39 @@ +%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*- +%% ex: ts=4 sw=4 et + +-module(rebar_prv_clean). + +-behaviour(rebar_provider). + +-export([init/1, + do/1]). + +-include("rebar.hrl"). + +-define(PROVIDER, clean). +-define(DEPS, [app_discovery]). + +%% =================================================================== +%% Public API +%% =================================================================== + +-spec init(rebar_state:t()) -> {ok, rebar_state:t()}. +init(State) -> + State1 = rebar_state:add_provider(State, #provider{name = ?PROVIDER, + provider_impl = ?MODULE, + bare = false, + deps = ?DEPS, + example = "rebar clean", + short_desc = "Remove compiled beam files from apps.", + desc = "", + opts = []}), + {ok, State1}. + +-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}. +do(State) -> + ProjectApps = rebar_state:project_apps(State), + lists:foreach(fun(AppInfo) -> + ?INFO("Cleaning out ~s...~n", [rebar_app_info:name(AppInfo)]), + rebar_erlc_compiler:clean(State, ec_cnv:to_list(rebar_app_info:dir(AppInfo))) + end, ProjectApps), + {ok, State}. |