diff options
author | Siri Hansen <[email protected]> | 2016-12-20 09:42:01 +0100 |
---|---|---|
committer | Siri Hansen <[email protected]> | 2016-12-20 09:42:01 +0100 |
commit | a4350201d204d61ee67b7330200c8d7d6d4b38d5 (patch) | |
tree | 5c0e1f289438b3d2ff934d98add3d40979f6426d /lib/observer/src/etop_txt.erl | |
parent | f8bc348d6a717e84709eaebf8ebd882f41052c24 (diff) | |
parent | f0152387b96dc0c2ce5ecf7805fc435cb400356e (diff) | |
download | otp-a4350201d204d61ee67b7330200c8d7d6d4b38d5.tar.gz otp-a4350201d204d61ee67b7330200c8d7d6d4b38d5.tar.bz2 otp-a4350201d204d61ee67b7330200c8d7d6d4b38d5.zip |
Merge branch 'maint'
Diffstat (limited to 'lib/observer/src/etop_txt.erl')
-rw-r--r-- | lib/observer/src/etop_txt.erl | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lib/observer/src/etop_txt.erl b/lib/observer/src/etop_txt.erl index 3b4c176478..6b8f9df24f 100644 --- a/lib/observer/src/etop_txt.erl +++ b/lib/observer/src/etop_txt.erl @@ -22,35 +22,35 @@ %%-compile(export_all). -export([init/1,stop/1]). --export([do_update/3]). +-export([do_update/4]). -include("etop.hrl"). -include("etop_defs.hrl"). --import(etop,[loadinfo/1,meminfo/2]). +-import(etop,[loadinfo/2,meminfo/2]). -define(PROCFORM,"~-15w~-20s~8w~8w~8w~8w ~-20s~n"). stop(Pid) -> Pid ! stop. init(Config) -> - loop(Config). + loop(#etop_info{},Config). -loop(Config) -> - Info = do_update(Config), +loop(Prev,Config) -> + Info = do_update(Prev,Config), receive stop -> stopped; - {dump,Fd} -> do_update(Fd,Info,Config), loop(Config); - {config,_,Config1} -> loop(Config1) - after Config#opts.intv -> loop(Config) + {dump,Fd} -> do_update(Fd,Info,Prev,Config), loop(Info,Config); + {config,_,Config1} -> loop(Info,Config1) + after Config#opts.intv -> loop(Info,Config) end. -do_update(Config) -> +do_update(Prev,Config) -> Info = etop:update(Config), - do_update(standard_io,Info,Config). + do_update(standard_io,Info,Prev,Config). -do_update(Fd,Info,Config) -> - {Cpu,NProcs,RQ,Clock} = loadinfo(Info), +do_update(Fd,Info,Prev,Config) -> + {Cpu,NProcs,RQ,Clock} = loadinfo(Info,Prev), io:nl(Fd), writedoubleline(Fd), case Info#etop_info.memi of |