Changeset 78 for trunk

Timestamp:

07/17/09 06:08:51 (3 years ago)

Author:

dom

Message:

directory_tester now uses text_printer.

File:

• trunk/src/directory_tester.erl (modified) (2 diffs)

trunk/src/directory_tester.erl

@@ -10 +10 @@
     Tester = spawn_link (tester, init, [notify_me (tester), Node]),
     Compiler ! check,
-    loop (Compiler, Tester).
+    Printer = spawn_link (text_printer, init, [standard_io]),
+    loop (Compiler, Tester, Printer).
 
 notify_me (Atom) ->
@@ -18 +19 @@
     end.
 
-loop (Compiler, Tester) ->
+loop (Compiler, Tester, Printer) ->
     receive
         stop ->
             Compiler ! {self (), stop},
-            Tester ! stop,
-            io: fwrite ("~p stopping.~n", [self ()]);
+            Tester ! stop;
         {Compiler, compiler, {{binaries, Bs}, {removed, Rs}}} ->
             delete (Rs, Tester),
             run (Bs, Tester),
-            loop (Compiler, Tester);
+            loop (Compiler, Tester, Printer);
         Event ->
-            io: fwrite ("~p~n", [Event]),
-            loop (Compiler, Tester)
+            Printer ! Event,
+            loop (Compiler, Tester, Printer)
     after 4000 ->
             Compiler ! check,
-            loop (Compiler, Tester)
+            loop (Compiler, Tester, Printer)
     end.