Erlang 实现互斥量

#以下代码片段来自"Erlang编程指南",  值得注意一点的是stop/0函数发送停止消息以后, mutex进程仅在free状态下处理, 也就是说如果目前mutex没有人使用,直接结束mutex,如果正在使用,并且有等待在此信号量上的其他进程，那么这些正在使用的进程和正在queue的进程依然可以获取到mutex执行完他们的任务,  但是所有在stop信号之后的wait调用就不会被处理了, 很合理的处理.

-module(mutex).
-export([start/0, stop/0]).
-export([wait/0, signal/0]).
-export([init/0]).
start()->
    register(mutex, spawn(?MODULE, init, [])).


stop()->
    mutex ! stop().


wait()->
    mutex ! {wait, self()},
    receive
         ok->
             ok  
         end.
 
signal()->
    mutex ! {signal, self()}, 
ok.


init()->
    free().

free()->
    receive
   {wait, Pid}->
   Pid ! ok,
busy(Pid);
stop->
   terminate()
end.

busy(Pid)->
    receive  
   {signal, Pid}->
   free()
end.


terminate()->
    receive
   {wait, Pid}->
   exit(Pid, kill),
terminate()
after
   0->
  ok
end.

##博客仅作个人记录##