From a658e970db956ff7f44558bd1ae7a12cf456c7b8 Mon Sep 17 00:00:00 2001
From: Dave Smith <dizzyd@dizzyd.com>
Date: Tue, 1 Dec 2009 20:34:40 -0700
Subject: Adding support for parallel compilation; use 3 workers by default

---
 src/rebar_erlc_compiler.erl | 70 ++++++++++++++++++++++++++++++++++++++-------
 1 file changed, 60 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/rebar_erlc_compiler.erl b/src/rebar_erlc_compiler.erl
index 7b36ae5..bec23c7 100644
--- a/src/rebar_erlc_compiler.erl
+++ b/src/rebar_erlc_compiler.erl
@@ -60,18 +60,23 @@ do_compile(Config, SrcWildcard, OutDir, InExt, OutExt, CompileFn, FirstFiles) ->
             ok;
         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(Srcs, Targets),
+            %% FoundFiles and compile them in sequence
+            FirstTargets = [{Fs, target_file(Fs, OutDir, InExt, OutExt)} || Fs <- FirstFiles],
+            RestTargets = [{Fs, target_file(Fs, OutDir, InExt, OutExt)} ||
+                              Fs <- drop_each(FirstFiles, FoundFiles)],
+
+            %% Make sure target directory exists 
+            ok = filelib:ensure_dir(target_file(hd(FoundFiles), OutDir, InExt, OutExt)),
 
-            %% Make sure target directory exists
-            ok = filelib:ensure_dir(hd(Targets)),
+            %% Compile first targets in sequence
+            compile_each(FirstTargets, Config, CompileFn),
             
-            %% Start compiling
-            compile_each(Files, Config, CompileFn)
+            %% Spin up workers
+            Self = self(),
+            Pids = [spawn_monitor(fun() -> compile_worker(Self) end) || _I <- lists:seq(1,3)],
+
+            %% Process rest of targets
+            compile_queue(Pids, RestTargets, Config, CompileFn)
     end.
 
 drop_each([], List) ->
@@ -119,3 +124,48 @@ compile_mib(Source, Config) ->
         {error, compilation_failed} ->
             ?FAIL
     end.
+
+compile_queue([], [], _Config, _CompileFn) ->
+    ok;
+compile_queue(Pids, Targets, Config, CompileFn) ->
+    receive
+        {next, Worker} ->
+            case Targets of
+                [] ->
+                    Worker ! empty,
+                    compile_queue(Pids, Targets, Config, CompileFn);
+                [{Src, Target} | Rest] ->
+                    Worker ! {compile, Src, Target, Config, CompileFn},
+                    compile_queue(Pids, Rest, Config, CompileFn)
+            end;
+        
+        {compiled, Source} ->
+            ?CONSOLE("Compiled ~s\n", [Source]),
+            compile_queue(Pids, Targets, Config, CompileFn);
+        
+        {'DOWN', Mref, _, Pid, normal} ->
+            ?DEBUG("Worker exited cleanly\n", []),
+            Pids2 = lists:delete({Pid, Mref}, Pids),
+            compile_queue(Pids2, Targets, Config, CompileFn);
+        
+        {'DOWN', Mref, _, Pid, _} ->
+            ?DEBUG("Worker failed: ~p\n", [Info]),
+            ?FAIL
+    end.
+
+compile_worker(QueuePid) ->
+    QueuePid ! {next, self()},
+    receive
+        {compile, Src, Target, Config, CompileFn} ->
+            case needs_compile(Src, Target) of
+                true ->
+                    CompileFn(Src, Config),
+                    QueuePid ! {compiled, Src};
+                false ->
+                    ?INFO("Skipping ~s\n", [Src]),
+                    ok
+            end,
+            compile_worker(QueuePid);
+        empty ->
+            ok
+    end.
-- 
cgit v1.1