diff options
author | Vagabond <none@none> | 2010-03-02 17:13:58 -0500 |
---|---|---|
committer | Vagabond <none@none> | 2010-03-02 17:13:58 -0500 |
commit | 4ce01860e9ebafee30e2d2f59bcc47f026cec6f9 (patch) | |
tree | 3f0e9997940a44aecb822c64b3d97c4276c95531 /src | |
parent | 56e30351f70dc9924ff873fc4fbb1e9738c807d2 (diff) |
Compile parse transform and custom behaviours first
Diffstat (limited to 'src')
-rw-r--r-- | src/rebar_base_compiler.erl | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/src/rebar_base_compiler.erl b/src/rebar_base_compiler.erl index 8ca0a7b..c405b3d 100644 --- a/src/rebar_base_compiler.erl +++ b/src/rebar_base_compiler.erl @@ -44,12 +44,15 @@ run(Config, FirstFiles, RestFiles, CompileFn) -> [] -> ok; _ -> + % Sort RestFiles so that parse_transforms and behaviours are first + SortedRestFiles = [K || {K, _V} <- lists:keysort(2, + [{F, compile_priority(F)} || F <- RestFiles ])], Self = self(), F = fun() -> compile_worker(Self, Config, CompileFn) end, Jobs = rebar_config:get_jobs(), ?DEBUG("Starting ~B compile worker(s)~n", [Jobs]), Pids = [spawn_monitor(F) || _I <- lists:seq(1,Jobs)], - compile_queue(Pids, RestFiles) + compile_queue(Pids, SortedRestFiles) end. run(Config, FirstFiles, SourceDir, SourceExt, TargetDir, TargetExt, Compile3Fn) -> @@ -186,3 +189,32 @@ compile_worker(QueuePid, Config, CompileFn) -> empty -> ok end. + +compile_priority(File) -> + case epp_dodger:parse_file(File) of + {error, _} -> + 10; % couldn't parse the file, default priority + {ok, Trees} -> + ?DEBUG("Computing priority of ~p\n", [File]), + F2 = fun({tree,arity_qualifier,_, + {arity_qualifier,{tree,atom,_,behaviour_info}, + {tree,integer,_,1}}}, _) -> + 2; + ({tree,arity_qualifier,_, + {arity_qualifier,{tree,atom,_,parse_transform}, + {tree,integer,_,2}}}, _) -> + 1; + (_, Acc) -> + Acc + end, + + F = fun({tree, attribute, _, {attribute, {tree, atom, _, export}, + [{tree, list, _, {list, List, none}}]}}, Acc) -> + lists:foldl(F2, Acc, List); + (_, Acc) -> + Acc + end, + + lists:foldl(F, 10, Trees) + end. + |