From 26f9d9ce2650dd225e011fec49641572f3b85796 Mon Sep 17 00:00:00 2001 From: Joe Zhao Date: Fri, 23 May 2014 19:06:08 +0800 Subject: Global emu debugged --- startscript.erl | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) (limited to 'startscript.erl') diff --git a/startscript.erl b/startscript.erl index a281211..2ac9ef7 100644 --- a/startscript.erl +++ b/startscript.erl @@ -15,11 +15,11 @@ -include("devicemon.hrl"). --define(HBPERIOD,500). --define(SCANPERIOD,2000). +-define(HBPERIOD,1000). +-define(SCANPERIOD,3000). busbeater(Pid,Addr) -> - case devicemon:getStaus(Addr) of + case devicemon:getStatus(Addr) of error -> spawnscanner(Addr), Pid ! {self(),shutdown}; @@ -38,7 +38,7 @@ busbeater(Pid,Addr) -> busscanner(Pid,Addr) -> %% if devicemon:getStat(Addr) %% Add device status multiplexer here - case devicemon:getStaus(Addr) of + case devicemon:getStatus(Addr) of error -> case rsbusserv:rsbusreq(Addr,[]) of {stat,Type,Stat} -> @@ -46,6 +46,7 @@ busscanner(Pid,Addr) -> spawnbeater(Addr), Pid ! {self(),shutdown}; {error,Cause} -> + erlang:display(Cause), devicemon ! {self(),dereg,Addr} end; _Else -> @@ -65,9 +66,11 @@ runrange(St,Ed,Fun) -> runrange(St+1,Ed,Fun). start() -> - Tcp=tcpserv:start(5575), - Rsbus=rsbusserv:start(), - Evserv=eventserv:start(), - Devmon=devicemon:start(), - runrange(1,10,fun (Addr)->spawnscanner(Addr) end). + tcpserv:start(5575), + rsbusserv:start(), + eventserv:start(), + devicemon:start(), + runrange(1,1,fun (Addr)->spawnscanner(Addr) end). +test() -> + portman:start({"127.0.0.1",5575}). -- cgit v1.2.3-70-g09d2