diff options
author | Bryan Fink <bryan@basho.com> | 2010-03-31 15:03:29 -0400 |
---|---|---|
committer | Bryan Fink <bryan@basho.com> | 2010-03-31 15:03:29 -0400 |
commit | e6e36834f93b3739652777ac9e3d30f0b24c94a0 (patch) | |
tree | 112d64ee8d1e11c9e2a3ba749cc147133c3d68c9 /src | |
parent | cf820007fcdce4b6da142321a687c523fc3749c9 (diff) |
add leex .xrl handling as well
Diffstat (limited to 'src')
-rw-r--r-- | src/rebar_erlc_compiler.erl | 37 |
1 files changed, 25 insertions, 12 deletions
diff --git a/src/rebar_erlc_compiler.erl b/src/rebar_erlc_compiler.erl index 2684561..a476790 100644 --- a/src/rebar_erlc_compiler.erl +++ b/src/rebar_erlc_compiler.erl @@ -40,9 +40,14 @@ -spec compile(Config::#config{}, AppFile::string()) -> 'ok'. compile(Config, _AppFile) -> - rebar_base_compiler:run(Config, rebar_config:get_list(Config, yrl_first_files, []), + rebar_base_compiler:run(Config, + rebar_config:get_list(Config, xrl_yrl_first_files, []), + "src", ".xrl", "src", ".erl", + fun compile_xrl_yrl/3), + rebar_base_compiler:run(Config, + rebar_config:get_list(Config, xrl_yrl_first_files, []), "src", ".yrl", "src", ".erl", - fun compile_yrl/3), + fun compile_xrl_yrl/3), doterl_compile(Config, "ebin"), rebar_base_compiler:run(Config, rebar_config:get_list(Config, mib_first_files, []), "mibs", ".mib", "priv/mibs", ".bin", @@ -55,9 +60,9 @@ clean(_Config, _AppFile) -> %% much slower. ok = rebar_file_utils:rm_rf("ebin/*.beam priv/mibs/*.bin"), - YrlFiles = rebar_utils:find_files("src", "^.*\\.yrl\$"), + YrlFiles = rebar_utils:find_files("src", "^.*\\.[x|y]rl\$"), rebar_file_utils:delete_each( - [ binary_to_list(iolist_to_binary(re:replace(F, "\\.yrl$", ".erl"))) + [ binary_to_list(iolist_to_binary(re:replace(F, "\\.[x|y]rl$", ".erl"))) || F <- YrlFiles ]), %% Erlang compilation is recursive, so it's possible that we have a nested @@ -206,13 +211,12 @@ compile_mib(Source, Target, Config) -> ?FAIL end. --spec compile_yrl(Source::string(), Target::string(), Config::#config{}) -> 'ok'. -compile_yrl(Source, Target, Config) -> - case yrl_needs_compile(Source, Target) of +-spec compile_xrl_yrl(Source::string(), Target::string(), Config::#config{}) -> 'ok'. +compile_xrl_yrl(Source, Target, Config) -> + case xrl_yrl_needs_compile(Source, Target) of true -> - Opts = [{parserfile, Target}, {return, true} - |rebar_config:get(Config, yrl_opts, [])], - case yecc:file(Source, Opts) of + {match, [Ext]} = re:run(Source, "[x|y]rl$", [{capture, first, list}]), + case compile_xrl_yrl1(Source, Target, Config, Ext) of {ok, _, []} -> ok; {ok, _, _Warnings} -> @@ -229,8 +233,17 @@ compile_yrl(Source, Target, Config) -> skipped end. --spec yrl_needs_compile(Source::string(), Target::string()) -> boolean(). -yrl_needs_compile(Source, Target) -> +compile_xrl_yrl1(Source, Target, Config, "yrl") -> + Opts = [{parserfile, Target}, {return, true} + |rebar_config:get(Config, yrl_opts, [])], + yecc:file(Source, Opts); +compile_xrl_yrl1(Source, Target, Config, "xrl") -> + Opts = [{scannerfile, Target}, {return, true} + |rebar_config:get(Config, xrl_opts, [])], + leex:file(Source, Opts). + +-spec xrl_yrl_needs_compile(Source::string(), Target::string()) -> boolean(). +xrl_yrl_needs_compile(Source, Target) -> filelib:last_modified(Target) < filelib:last_modified(Source). gather_src([], Srcs) -> |