Browse Source

Add caching of app file

Dave Smith 15 years ago
parent
commit
c28a16258c
1 changed files with 13 additions and 7 deletions
  1. +13
    -7
      src/rebar_app_utils.erl

+ 13
- 7
src/rebar_app_utils.erl View File

@ -85,11 +85,17 @@ app_vsn(AppFile) ->
%% ===================================================================
load_app_file(Filename) ->
case file:consult(Filename) of
{ok, [{application, AppName, AppData}]} ->
{ok, AppName, AppData};
{error, Reason} ->
{error, Reason};
Other ->
{error, {unexpected_terms, Other}}
case erlang:get({app_file, Filename}) of
undefined ->
case file:consult(Filename) of
{ok, [{application, AppName, AppData}]} ->
erlang:put({app_file, Filename}, {AppName, AppData}),
{ok, AppName, AppData};
{error, Reason} ->
{error, Reason};
Other ->
{error, {unexpected_terms, Other}}
end;
{AppName, AppData} ->
{ok, AppName, AppData}
end.

Loading…
Cancel
Save