[MLton-devel] CPU utilization
Stephen Weeks
MLton@mlton.org
Thu, 3 Jul 2003 14:14:42 -0700
Thanks for the help. I found it. It was mpg123. I have no idea what
it was doing.
The following simple MLton/SML script helped me to find the problem.
--------------------------------------------------------------------------------
fun loop procs =
let
val procs' = Process.ps ()
in
List.foreach (procs', fn {name, pid = pid', ...} =>
if List.exists (procs, fn {pid, ...} => pid = pid')
then ()
else print (concat [name, "\n"]))
; loop procs'
end
val _ = loop (Process.ps ())
--------------------------------------------------------------------------------
-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100006ave/direct;at.asp_061203_01/01
_______________________________________________
MLton-devel mailing list
MLton-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mlton-devel