Changeset 65 for trunk

Timestamp:

07/14/09 05:50:50 (3 years ago)

Author:

dom

Message:

Compiler can now be stopped.

Location:

trunk/src

Files:

• compiler.erl (modified) (1 diff)
• compiler_test.erl (modified) (3 diffs)

trunk/src/compiler.erl

@@ -7 +7 @@
 
 loop (Notify, Watcher, Modules) ->
-    receive check -> Watcher ! check end,
-    receive_files (Notify, Watcher, Modules, Modules).
+    receive
+        check ->
+            Watcher ! check,
+            receive_files (Notify, Watcher, Modules, Modules);
+        {Pid, stop} ->
+            Pid ! {self (), bye}
+    end.
 
 receive_files (Notify, Watcher, Modules, New) ->

trunk/src/compiler_test.erl

@@ -8 +8 @@
 -export ([provides_binaries_when_all_compiled/0]).
 -export ([recompiles_minimally_after_change/0]).
+-export ([stops/0]).
 -include_lib("stdlib/include/ms_transform.hrl").
 
@@ -17 +18 @@
     ok = check (Ms, unknown).
 
+stops () ->
+    Compiler = spawn_link (compiler, init, [notify_me (), "fix"]),
+    Compiler ! check,
+    receive_all (),
+    Compiler ! {self (), stop},
+    ok = receive {Compiler, bye} -> ok after 500 -> timeout end,
+    false = is_process_alive (Compiler),
+    ok.
+    
 provides_binaries_when_all_compiled () ->
     F = fun provides_binaries_when_all_compiled/2,
@@ -93 +103 @@
         M ->
             receive_all ([M | Ms])
+    after 2000 -> lists: reverse ([timeout | Ms])
     end.