summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/rebar_config.erl12
-rw-r--r--src/rebar_doterl_compiler.erl65
2 files changed, 73 insertions, 4 deletions
diff --git a/src/rebar_config.erl b/src/rebar_config.erl
index a6ad5b2..077de75 100644
--- a/src/rebar_config.erl
+++ b/src/rebar_config.erl
@@ -25,7 +25,8 @@
-module(rebar_config).
-export([new/1,
- get_modules/2]).
+ get_modules/2,
+ get_list/3]).
-record(config, { dir,
opts }).
@@ -42,3 +43,12 @@ get_modules(Config, app) ->
{ok, Modules} ->
Modules
end.
+
+get_list(Config, Key, Default) ->
+ case orddict:find(Key, Config#config.opts) of
+ error ->
+ Default;
+ {ok, List} ->
+ List
+ end.
+
diff --git a/src/rebar_doterl_compiler.erl b/src/rebar_doterl_compiler.erl
index 91828cd..cf345cd 100644
--- a/src/rebar_doterl_compiler.erl
+++ b/src/rebar_doterl_compiler.erl
@@ -34,13 +34,72 @@
%% ===================================================================
compile(Config, Dir) ->
- io:format(".erl compiling: ~s\n", [Dir]),
- ok.
+ do_compile(Config, "src/*.erl", "ebin", ".erl", ".beam",
+ fun compile_erl/2),
+ do_compile(Config, "mibs/*.mib", "priv/mibs", ".mib", ".bin",
+ fun compile_mib/2).
clean(Config, Dir) ->
- rebar_utils:delete_files("ebin/*.beam").
+% rebar_utils:delete_files("ebin/*.beam"),
+% rebar_utils:delete_files("priv/mibs/*.bin").
+ ok.
%% ===================================================================
%% Internal functions
%% ===================================================================
+
+do_compile(Config, SrcWildcard, OutDir, InExt, OutExt, CompileFn) ->
+ case filelib:wildcard(SrcWildcard) of
+ [] ->
+ ok;
+ Srcs when is_list(Srcs) ->
+ %% Build list of output files
+ Targets = [target_file(S, OutDir, InExt, OutExt) || S <- Srcs],
+ Files = lists:zip(Targets, Srcs),
+
+ %% Make sure target directory exists
+ ok = filelib:ensure_dir(hd(Targets)),
+
+ %% Start compiling
+ compile_each(Files, Config, CompileFn)
+ end.
+
+
+compile_each([], _Config, _CompileFn) ->
+ ok;
+compile_each([{Target, Src} | Rest], Config, CompileFn) ->
+ case needs_compile(Target, Src) of
+ true ->
+ ?CONSOLE("Compiling ~s\n", [Src]),
+ CompileFn(Src, Config);
+ false ->
+ ok
+ end,
+ compile_each(Rest, Config, CompileFn).
+
+needs_compile(Target, Src) ->
+ filelib:last_modified(Target) < filelib:last_modified(Src).
+
+
+target_file(F, TargetDir, InExt, OutExt) ->
+ filename:join([TargetDir, filename:basename(F, InExt) ++ OutExt]).
+
+
+compile_erl(Source, Config) ->
+ Opts = rebar_config:get_list(Config, erlc_opts, []),
+ case compile:file(Source, [{i, "include"}, {outdir, "ebin"}, report] ++ Opts) of
+ {ok, _} ->
+ ok;
+ error ->
+ ?FAIL
+ end.
+
+compile_mib(Source, Config) ->
+ Opts = meab_config:get_list(mibc_opts, []),
+ case snmpc:compile(Source, [{outdir, "priv/mibs"}, {i, ["priv/mibs"]}] ++ Opts) of
+ {ok, _} ->
+ ok;
+ {error, compilation_failed} ->
+ ?FAIL
+ end.