From e65455b6ef0d7473e7cca3373cb65c4e11541318 Mon Sep 17 00:00:00 2001 From: Tuncer Ayaz Date: Thu, 14 Jun 2012 23:59:36 +0200 Subject: Simplify temp dir creation --- src/rebar_escripter.erl | 27 +++++++-------------------- 1 file changed, 7 insertions(+), 20 deletions(-) (limited to 'src') diff --git a/src/rebar_escripter.erl b/src/rebar_escripter.erl index 7a5fb8b..16c2f20 100644 --- a/src/rebar_escripter.erl +++ b/src/rebar_escripter.erl @@ -95,32 +95,19 @@ clean(Config, AppFile) -> %% =================================================================== make_temp_dir(AppName) -> - case temp_name(AppName ++ ".") of - {ok, TempDir} -> - case file:make_dir(TempDir) of - ok -> - TempDir; - Error -> - ?ABORT("Failed to create temporary directory: ~p~n", - [Error]) - end; + TempDir = temp_name(AppName ++ "."), + case file:make_dir(TempDir) of + ok -> + ?CONSOLE("TempDir: ~p~n", [TempDir]), + TempDir; Error -> ?ABORT("Failed to create temporary directory: ~p~n", [Error]) end. temp_name(Prefix) -> - temp_name(Prefix, 5). - -temp_name(_Prefix, 0) -> - {error, eexist}; -temp_name(Prefix, N) -> Hash = erlang:phash2(make_ref()), - Name = Prefix ++ integer_to_list(Hash), - case filelib:is_file(Name) of - false -> {ok, Name}; - true -> temp_name(Prefix, N-1) - end. + Prefix ++ integer_to_list(Hash). copy_files(Config, AppName, Temp) -> BaseEbinDir = filename:join(AppName, "ebin"), @@ -157,7 +144,7 @@ get_app_ebin_dirs([App | Rest], Acc) -> "~p escript_incl_apps.", [App]); Path -> %% TODO: shouldn't we also include .app files? escript - %% supports multiple app files in one ebin/ + %% should support multiple app files in one ebin/ Acc2 = filename:join(Path, "*.beam"), get_app_ebin_dirs(Rest, [Acc2|Acc]) end. -- cgit v1.1