Changeset 12 for trunk

Timestamp:

11/12/07 16:39:31 (5 years ago)

Author:

dom

Message:

Refactoring: make file type detectable by pattern matching on messages

File:

• trunk/src/forge.erl (modified) (3 diffs)

trunk/src/forge.erl

@@ -19 +19 @@
             [file_monitor:stop (M) || M <- Monitors];
         {monitor_files, File_system, Dir} ->
-            Forge = self(),
-            Tell_server = fun (Event, File_name, _) -> Forge ! {Event, File_name} end,
-            loop (Listeners, Smiths, Dashboard, [file_monitor:start (File_system, Dir, Tell_server)]);
+            loop (
+              Listeners, Smiths, Dashboard,
+              [file_monitor:start (File_system, Dir, send_me_file_events_with_extension () )]);
         {add_event_handler, F} ->
             loop ([F | Listeners], Smiths, Dashboard, Monitors);
-        {found, File} ->
-            Smith = file_handler (filename:extension (File), File),
+        {found, ".erl", File} ->
+            Forge = self(),
+            Smith = spawn_link (fun () -> smith:start (File, Forge) end),
             loop (Listeners, add_smith (File, Smith, Smiths), Dashboard, Monitors);
-        {modified, File} ->
+        {modified, ".erl", File} ->
             Smith = fetch (File, Smiths),
             Smith ! {self(), modified},
@@ -35 +36 @@
             notify (Event, New_dashboard, Listeners),
             loop (Listeners, Smiths, New_dashboard, Monitors)
+    end.
+
+send_me_file_events_with_extension () ->
+    Me = self(),
+    fun (Event, File_name, _) ->
+            Extension = filename:extension (File_name),
+            Me ! {Event, Extension, File_name}
     end.
 
@@ -45 +53 @@
       Listeners).
 
-file_handler (".erl", File) ->
-    Forge = self(),
-    spawn_link (fun () -> smith:start (File, Forge) end);
-file_handler (_, _) ->
-    no_handler.
-
 add_smith (File, Smith, Smiths) when is_pid (Smith) ->
     store (File, Smith, Smiths);