[hcoop/debian/mlton.git] / lib / mlton / basic / ps.sig

(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

signature PS =
   sig
      structure State =
         struct
            datatype t =
               Running | Sleeping
         end

      val ps: unit -> {pid: Pid.t,
                       commandName: string,
                       args: string list,
                       state: State.t} list
   end
Commit	Line	Data
7f918cf1 CE	1	(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
	2	* Jagannathan, and Stephen Weeks.
	3	*
	4	* MLton is released under a BSD-style license.
	5	* See the file MLton-LICENSE for details.
	6	*)
	7
	8	signature PS =
	9	sig
	10	structure State =
	11	struct
	12	datatype t =
	13	Running \| Sleeping
	14	end
	15
	16	val ps: unit -> {pid: Pid.t,
	17	commandName: string,
	18	args: string list,
	19	state: State.t} list
	20	end