mlton/atoms/real-size.sig

   1 (* Copyright (C) 2004-2007 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 REAL_SIZE_STRUCTS =
   9    sig
  10    end
  11
  12 signature REAL_SIZE =
  13    sig
  14       include REAL_SIZE_STRUCTS
  15
  16       datatype t = R32 | R64
  17
  18       val all: t list
  19       val bits: t -> Bits.t
  20       val bytes: t -> Bytes.t
  21       val equals: t * t -> bool
  22       val memoize: (t -> 'a) -> t -> 'a
  23       val toString: t -> string
  24    end