[hcoop/debian/mlton.git] / mlton / backend / scale.sig

(* Copyright (C) 2009 Matthew Fluet.
 * Copyright (C) 2004-2007 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 SCALE_STRUCTS =
   sig
   end

signature SCALE =
   sig
      include SCALE_STRUCTS

      datatype t = One | Two | Four | Eight

      val fromBytes: Bytes.t -> t option
      val layout: t -> Layout.t
      val toInt: t -> int
      val toString: t -> string
   end
Commit	Line	Data
7f918cf1 CE	1	(* Copyright (C) 2009 Matthew Fluet.
	2	* Copyright (C) 2004-2007 Henry Cejtin, Matthew Fluet, Suresh
	3	* Jagannathan, and Stephen Weeks.
	4	*
	5	* MLton is released under a BSD-style license.
	6	* See the file MLton-LICENSE for details.
	7	*)
	8
	9	signature SCALE_STRUCTS =
	10	sig
	11	end
	12
	13	signature SCALE =
	14	sig
	15	include SCALE_STRUCTS
	16
	17	datatype t = One \| Two \| Four \| Eight
	18
	19	val fromBytes: Bytes.t -> t option
	20	val layout: t -> Layout.t
	21	val toInt: t -> int
	22	val toString: t -> string
	23	end