github/rebar
1
0
Fork 0
mirror of https://github.com/correl/rebar.git synced 2024-11-14 19:19:30 +00:00
Code Issues Projects Releases Packages Wiki Activity

Renamed app_installer to otp_app.

Browse source 
Added compile check for app name.
Added compile check for app modules

--HG--
rename : src/rebar_app_installer.erl => src/rebar_otp_app.erl
This commit is contained in:
Jon Meredith 2009-11-30 11:12:25 -07:00
parent 961c95b419
commit c5d877a934
2 changed files with 69 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ebin/rebar.app
View file

@ -1,11 +1,16 @@
{application, rebar,
[{description, "Rebar: Erlang Build Tool"},
{vsn, "1"},
{modules, [ rebar_config,
rebar_utils,
rebar_app_utils,
{modules, [ rebar_app_utils,
rebar_config,
rebar_core,
rebar_erlc_compiler,
rebar_file_utils,
rebar_log,
rebar_otp_app,
rebar_protobuffs_compiler,
rebar_rel_utils,
rebar_erlc_compiler]},
rebar_utils ]},
{registered, []},
{applications, [kernel,
stdlib,
@ -19,7 +24,7 @@
{default_config, [
{app_modules, [ rebar_protobuffs_compiler,
rebar_erlc_compiler,
rebar_app_installer ]}
rebar_otp_app ]}
]}
]}
]}.

62
src/rebar_app_installer.erl → src/rebar_otp_app.erl
View file

@ -22,9 +22,10 @@
%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
%% THE SOFTWARE.
%% -------------------------------------------------------------------
-module(rebar_app_installer).
-module(rebar_otp_app).
-export([install/2]).
-export([compile/2,
install/2]).
-include("rebar.hrl").
@ -32,6 +33,15 @@
%% Public API
%% ===================================================================
compile(Config, File) ->
%% Load the app name and version from the .app file and construct
%% the app identifier
{ok, AppName, AppData} = rebar_app_utils:load_app_file(File),
validate_name(AppName, File),
validate_modules(AppName, proplists:get_value(modules, AppData)),
ok.
install(Config, File) ->
%% Load the app name and version from the .app file and construct
%% the app identifier
@ -74,7 +84,7 @@ install(Config, File) ->
[] ->
ok;
List ->
ok
ok
end.
@ -88,3 +98,49 @@ install_binaries([Bin | Rest], AppDir, BinDir) ->
FqBin = filename:join([Bin, AppDir]),
rebar_file_utils:ln_sf(FqBin, BinDir),
install_binaries(Rest, AppDir, BinDir).
validate_name(AppName, File) ->
%% Convert the .app file name to an atom -- check it against the identifier within the file
ExpApp = list_to_atom(filename:basename(File, ".app")),
case ExpApp == AppName of
true ->
ok;
false ->
?ERROR("Invalid ~s: name of application (~p) must match filename.\n", [File, AppName]),
?FAIL
end.
validate_modules(AppName, undefined) ->
?ERROR("Missing modules declaration in~p.app:\n~s", [AppName]),
?FAIL;
validate_modules(AppName, Mods) ->
%% Construct two sets -- one for the actual .beam files in ebin/ and one for the modules
%% listed in the .app file
EbinSet = ordsets:from_list([beam_to_mod(N) || N <- filelib:wildcard("ebin/*.beam")]),
ModSet = ordsets:from_list(Mods),
%% Identify .beam files listed in the .app, but not present in ebin/
case ordsets:subtract(ModSet, EbinSet) of
[] ->
ok;
MissingBeams ->
Msg1 = lists:flatten([io_lib:format("\t* ~p\n", [M]) || M <- MissingBeams]),
?ERROR("One or more modules listed in ~p.app are not present in ebin/*.beam:\n~s",
[AppName, Msg1]),
?FAIL
end,
%% Identify .beam files NOT list in the .app, but present in ebin/
case ordsets:subtract(EbinSet, ModSet) of
[] ->
ok;
MissingMods ->
Msg2 = lists:flatten([io_lib:format("\t* ~p\n", [M]) || M <- MissingMods]),
?ERROR("On or more .beam files exist that are not listed in ~p.app:\n~s",
[AppName, Msg2]),
?FAIL
end.
beam_to_mod(Filename) ->
list_to_atom(filename:basename(Filename, ".beam")).