implement list_workers.

cjkjellander · Feb 28, 2011 · e203131 · e203131
1 parent 012084a
commit e203131
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/cth_rsa.erl b/cth_rsa.erl
@@ -45,6 +45,7 @@
          , master_loop/1
          , mterminate/0
          , mupdate/0
+         , listworkers/0
          , dist_primes/1
          , factor/1
          , dist_gen_key/1
@@ -457,6 +458,15 @@ mterminate() ->
 mupdate() ->
     master ! update.
 
+%% @spec listworkers() -> List
+%%       List = [pid()]
+%% @doc Returns the list of servants.
+listworkers() ->
+    master ! {listworkers, self()},
+    receive
+        W -> W
+    end.
+
 %% @spec dist_primes(Bits::integer()) -> {ok, primes, {P, Q}}
 %%       P = integer()
 %%       Q = integer()