lib/stubs/mlton-stubs/rusage.sig

   1 (* Copyright (C) 2009 Matthew Fluet.
   2  * Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   3  *    Jagannathan, and Stephen Weeks.
   4  * Copyright (C) 1997-2000 NEC Research Institute.
   5  *
   6  * MLton is released under a BSD-style license.
   7  * See the file MLton-LICENSE for details.
   8  *)
   9
  10 signature MLTON_RUSAGE =
  11    sig
  12       type t = {utime: Time.time, (* user time *)
  13                 stime: Time.time}  (* system time *)
  14
  15       val measureGC: bool -> unit
  16       val rusage: unit -> {children: t, gc: t, self: t}
  17    end