Restructure

1 files changed, 4 insertions, 7 deletions

diff --git a/eventserv.erl b/eventserv.erl
index 85ee34d..926b960 100644
--- a/eventserv.erl
+++ b/eventserv.erl
@@ -19,19 +19,19 @@
 %% API
 %%-export([]).
 
-event(Pid,S) ->
+event(PPid,S) ->
   receive
-    {_PPid,shutdown} ->
+    {_Pid,shutdown} ->
       io:format("I, ~p, am killed.\n",[S#event.name])
   after S#event.period ->
-    Pid ! {self(),run,S},
+    PPid ! {self(),run,S},
     if
       %%  S#event.spawn -> spawn(S#event.call,[self()]);
       true -> (S#event.call)(self())
     end,
     case S#event.type of
       oneshot -> ok;
-      periodic -> event(Pid,S);
+      periodic -> event(PPid,S);
       _Else -> ok
     end
   end.
@@ -84,9 +84,6 @@ reg_periodic(Call,T) ->
   eventserv ! {self(),reg,#event{name="Unamed",server=eventserv,
     call=Call,period=T}}.
 
-regevent(Pid,S) ->
-  Pid ! {self(),reg,S}.
-
 test() ->
   Pid=start(),
   Pid ! {self(),reg,#event{name="test1",server=Pid,