diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2014-06-11 16:08:59 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2014-06-11 16:08:59 +0800 |
| commit | 996d667c3c29441779f5dd4fe78f82cc7622b4f9 (patch) | |
| tree | fc158abce53b3b35e2bf5949cd3899bbc7fd0824 /devicemon.erl | |
| parent | 626940bc80831b3404e708e8a03ca1ea1cec7a24 (diff) | |
| download | local-debug.tar.gz local-debug.tar.bz2 local-debug.zip | |
Cleanup 0debug
Diffstat (limited to 'devicemon.erl')
| -rw-r--r-- | devicemon.erl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/devicemon.erl b/devicemon.erl index d56043b..5e4359e 100644 --- a/devicemon.erl +++ b/devicemon.erl @@ -71,7 +71,8 @@ deviceloop(Devices) -> self() ! {self(),dereg,Addr}, deviceloop(Devices); {Pid,device,Addr,{stat,Type,Msg}} -> - tcpserv ! {self(),comm,[Addr,Type|Msg]}, + %% Will not try to broadcast + %% tcpserv ! {self(),comm,[Addr,Type|Msg]}, deviceloop(orddict:store(Addr,#device{type=Type,state = Msg},Devices)); %% Messages received from some other server -> redirect to rsbus @@ -107,7 +108,13 @@ getStat(Addr) -> getStatus(Addr) -> case getStat(Addr) of error -> error; - Val -> ready + Val -> + if + hd(Val#device.state) band 16#04 == 0 -> + ready; + true -> + busy + end %% device status multiplexer %% ready | busy end. |