From 097d7f7dda9c405fb796e3228631a07192f36bd1 Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander@sulfrian.net>
Date: Thu, 14 Oct 2010 15:23:22 +0200
Subject: added comments

---
 server/dispatcher.erl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/server/dispatcher.erl b/server/dispatcher.erl
index 882bed3..e5e0572 100644
--- a/server/dispatcher.erl
+++ b/server/dispatcher.erl
@@ -2,9 +2,12 @@
 -export([start/0, init/0, handle/2]).
 
 start() ->
+    %% load server module from common directory,
+    %% used form server and client
     code:purge(server),
     code:load_abs("../common/server"),
 
+    %% spawn media backend in seperat process
     try spawn(media, init, []) of
 	_ ->
 	    io:format("Media-Backend started!~n")
@@ -14,6 +17,9 @@ start() ->
 	    exit(1)
     end,
 
+    %% start server (registered as dis)
+    %% server-module will call handle if message arrives and init to
+    %% initialize the status
     try server:start(dis, dispatcher) of
 	true ->
 	    io:format("Server started!~n"),
@@ -53,4 +59,5 @@ handle({'EXIT', _, _}, Dict) ->
     Dict;
 
 handle(Cmd, Dict) ->
+    %% standard command, to find transmission errors
     {{error, {unknown_command, Cmd}}, Dict}.
-- 
cgit v1.2.3