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

Preserve non-empty folders when performing clean

Browse source
This commit is contained in:
iw 2010-01-04 16:39:52 +00:00
parent 21f60bff74
commit 73d2073ed8
1 changed files with 13 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/rebar_erlc_compiler.erl
View file

@ -52,16 +52,11 @@ clean(_Config, _AppFile) ->
%% Erlang compilation is recursive, so it's possible that we have a nested
%% directory structure in ebin with .beam files within. As such, we want
%% to scan whatever is left in the ebin/ directory for sub-dirs which
%% satisfy our criteria. TODO: Is there a better way to do this?
Dirs = ordsets:from_list([base_dir(F) ||
F <- rebar_utils:find_files("ebin", "^.*\\.beam\$")]),
case Dirs of
[] ->
ok;
_ ->
ok = rebar_file_utils:rm_rf(string:join(Dirs, " "))
end.
%% satisfy our criteria.
BeamFiles = rebar_utils:find_files("ebin", "^.*\\.beam$"),
rebar_file_utils:delete_each(BeamFiles),
lists:foreach(fun(Dir) -> delete_dir(Dir, dirs(Dir)) end, dirs("ebin")),
ok.
%% ===================================================================
@ -164,6 +159,11 @@ compile_mib(Source, _Target, Config) ->
?FAIL
end.
base_dir(Filename) ->
["ebin" | Rest] = filename:split(Filename),
filename:join("ebin", hd(Rest)).
dirs(Dir) ->
[F || F <- filelib:wildcard(filename:join([Dir, "*"])), filelib:is_dir(F)].
delete_dir(Dir, []) ->
file:del_dir(Dir);
delete_dir(Dir, Subdirs) ->
lists:foreach(fun(D) -> delete_dir(D, dirs(D)) end, Subdirs),
file:del_dir(Dir).