Просмотр исходного кода

change request - modify reset to be a little more friendly

git-svn-id: http://svn.ulf.wiger.net/gproc/branches/experimental-0906/gproc@20 f3948e33-8234-0410-8a80-a07eae3b6c4d
jwnorton 15 лет назад
Родитель
Сommit
f72d7e90ec
1 измененных файлов с 5 добавлено и 0 удалено
  1. 5 0
      src/gproc_init.erl

+ 5 - 0
src/gproc_init.erl

@@ -37,8 +37,13 @@ soft_reset() ->
 %% hard_reset
 
 hard_reset() ->
+    %% exit normal {n,'_','_'}
+    [ exit(Pid,normal) || Pid <- gproc:lookup_pids({n,'_','_'}), is_process_alive(Pid) ],
+    %% kill via supervisor
     ok = supervisor:terminate_child(gproc_sup, gproc),
+    %% delete ets table
     [ ets:delete(Tab) || Tab <- ets:all(), Tab =:= gproc ],
+    %% restart via supervisor
     {ok,_} = supervisor:restart_child(gproc_sup, gproc),
     ok.