diff options
author | Dave Smith <dizzyd@dizzyd.com> | 2009-11-25 21:55:47 -0700 |
---|---|---|
committer | Dave Smith <dizzyd@dizzyd.com> | 2009-11-25 21:55:47 -0700 |
commit | e4a9310a9769d432ea8d1fa32710ebb02eda2c60 (patch) | |
tree | f47bd877a37e71eae91baca8cfeda542968be0e9 | |
parent | fd8794dae791c80bfe8e4ab1aa3a9c97370695a9 (diff) |
Adding support for basic compilation ordering
-rw-r--r-- | include/rebar.hrl | 2 | ||||
-rw-r--r-- | src/rebar_config.erl | 37 | ||||
-rw-r--r-- | src/rebar_erlc_compiler.erl | 26 |
3 files changed, 55 insertions, 10 deletions
diff --git a/include/rebar.hrl b/include/rebar.hrl index 4b75577..fba5885 100644 --- a/include/rebar.hrl +++ b/include/rebar.hrl @@ -2,5 +2,7 @@ -record(global_state, { working_dir }). -define(CONSOLE(Str, Args), io:format(Str, Args)). +-define(WARN(Str, Args), io:format("WARN: " ++ Str, Args)). -define(FAIL, throw({error, failed})). + diff --git a/src/rebar_config.erl b/src/rebar_config.erl index 077de75..0b3ffee 100644 --- a/src/rebar_config.erl +++ b/src/rebar_config.erl @@ -28,13 +28,34 @@ get_modules/2, get_list/3]). +-include("rebar.hrl"). + -record(config, { dir, opts }). + +%% =================================================================== +%% Public API +%% =================================================================== + new(Dir) -> {ok, DefaultConfig} = application:get_env(rebar, default_config), - #config { dir = Dir, - opts = orddict:from_list(DefaultConfig)}. + BaseDict = orddict:from_list(DefaultConfig), + + %% Load terms from rebar.config, if it exists + ConfigFile = filename:join([Dir, "rebar.config"]), + case file:consult(ConfigFile) of + {ok, Terms} -> + Dict = merge_terms(Terms, BaseDict); + {error, enoent} -> + Dict = BaseDict; + Other -> + ?WARN("Failed to load ~s: ~p\n", [ConfigFile, Other]), + ?FAIL, + Dict = BaseDict + end, + #config { dir = Dir, opts = Dict }. + get_modules(Config, app) -> case orddict:find(app_modules, Config#config.opts) of @@ -52,3 +73,15 @@ get_list(Config, Key, Default) -> List end. + + +%% =================================================================== +%% Internal functions +%% =================================================================== + +merge_terms([], Dict) -> + Dict; +merge_terms([{Key, Value} | Rest], Dict) -> + merge_terms(Rest, orddict:append(Key, Value, Dict)); +merge_terms([_ | Rest], Dict) -> + merge_terms(Rest, Dict). diff --git a/src/rebar_erlc_compiler.erl b/src/rebar_erlc_compiler.erl index 1c157f6..518c446 100644 --- a/src/rebar_erlc_compiler.erl +++ b/src/rebar_erlc_compiler.erl @@ -35,9 +35,11 @@ compile(Config, Dir) -> do_compile(Config, "src/*.erl", "ebin", ".erl", ".beam", - fun compile_erl/2), + fun compile_erl/2, + rebar_config:get_list(Config, erl_first_files, [])), do_compile(Config, "mibs/*.mib", "priv/mibs", ".mib", ".bin", - fun compile_mib/2). + fun compile_mib/2, + rebar_config:get_list(Config, mib_first_files, [])). clean(Config, Dir) -> %% TODO: This would be more portable if it used Erlang to traverse @@ -52,14 +54,18 @@ clean(Config, Dir) -> %% Internal functions %% =================================================================== -do_compile(Config, SrcWildcard, OutDir, InExt, OutExt, CompileFn) -> +do_compile(Config, SrcWildcard, OutDir, InExt, OutExt, CompileFn, FirstFiles) -> case filelib:wildcard(SrcWildcard) of [] -> ok; - Srcs when is_list(Srcs) -> + FoundFiles when is_list(FoundFiles) -> + %% Ensure that the FirstFiles are compiled first; drop them from the + %% FoundFiles and then build a final list of sources + Srcs = FirstFiles ++ drop_each(FirstFiles, FoundFiles), + %% Build list of output files Targets = [target_file(S, OutDir, InExt, OutExt) || S <- Srcs], - Files = lists:zip(Targets, Srcs), + Files = lists:zip(Srcs, Targets), %% Make sure target directory exists ok = filelib:ensure_dir(hd(Targets)), @@ -68,11 +74,15 @@ do_compile(Config, SrcWildcard, OutDir, InExt, OutExt, CompileFn) -> compile_each(Files, Config, CompileFn) end. +drop_each([], List) -> + List; +drop_each([Member | Rest], List) -> + drop_each(Rest, lists:delete(Member, List)). compile_each([], _Config, _CompileFn) -> ok; -compile_each([{Target, Src} | Rest], Config, CompileFn) -> - case needs_compile(Target, Src) of +compile_each([{Src, Target} | Rest], Config, CompileFn) -> + case needs_compile(Src, Target) of true -> ?CONSOLE("Compiling ~s\n", [Src]), CompileFn(Src, Config); @@ -81,7 +91,7 @@ compile_each([{Target, Src} | Rest], Config, CompileFn) -> end, compile_each(Rest, Config, CompileFn). -needs_compile(Target, Src) -> +needs_compile(Src, Target) -> filelib:last_modified(Target) < filelib:last_modified(Src). |