[hcoop/debian/mlton.git] / lib / mlton / basic / intermediate-computation.sig

(* Copyright (C) 1999-2006 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 INTERMEDIATE_COMPUTATION_STRUCTS =
   sig
   end

signature INTERMEDIATE_COMPUTATION = 
   sig
      include INTERMEDIATE_COMPUTATION_STRUCTS

      structure Computation: COMPUTATION

      type t

      val empty: unit -> t
      val call: t * string * (unit -> Layout.t) -> unit
      val raisee: t * Time.t option -> unit
      val return: t * (unit -> Layout.t) * Time.t option -> unit
      val finish: t -> Computation.t
      val atTopLevel: t -> bool
   end
Commit	Line	Data
7f918cf1 CE	1	(* Copyright (C) 1999-2006 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 INTERMEDIATE_COMPUTATION_STRUCTS =
	9	sig
	10	end
	11
	12	signature INTERMEDIATE_COMPUTATION =
	13	sig
	14	include INTERMEDIATE_COMPUTATION_STRUCTS
	15
	16	structure Computation: COMPUTATION
	17
	18	type t
	19
	20	val empty: unit -> t
	21	val call: t * string * (unit -> Layout.t) -> unit
	22	val raisee: t * Time.t option -> unit
	23	val return: t * (unit -> Layout.t) * Time.t option -> unit
	24	val finish: t -> Computation.t
	25	val atTopLevel: t -> bool
	26	end