/Max/server_util.erl

http://github.com/anonymous-admin/anonymous · Erlang · 20 lines · 17 code · 3 blank · 0 comment · 0 complexity · a461c8e34d8d3c8b6ebac643e4984652 MD5 · raw file 

    

  1. -module(server_util).
    2. 

  2. 

  3. -compile([export_all]).
    4. 

  4. 

  5. start(ServerName, {Module, Function, Args}) ->
    6. 

  6. 		   case whereis(ServerName) of
    7. 

  7. 		     undefined ->
    8. 

  8. 		       Pid = spawn(Module, Function, Args),
    9. 

  9. 		       register(ServerName, Pid);
    10. 

  10. 		     _ ->
    11. 

  11. 		       ok
    12. 

  12. 		   end.
    13. 

  13. 

  14. stop(ServerName) ->
    15. 

  15. 			 case whereis(ServerName) of
    16. 

  16. 			     undefined ->
    17. 

  17. 				 ok;
    18. 

  18. 			     _ ->
    19. 

  19. 				 ServerName!shutdown
    20. 

  20. 			 end.
    21.