[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