[hcoop/debian/mlton.git] / basis-library / io / bin-prim-io.sml

(* Copyright (C) 2002-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.
 *)

structure BinPrimIO : PRIM_IO
                      where type array = Word8Array.array
                      where type vector = Word8Vector.vector
                      where type elem = Word8.word
                      where type pos = Position.int =
  PrimIO (structure Vector = Word8Vector
          structure VectorSlice = Word8VectorSlice
          structure Array = Word8Array
          structure ArraySlice = Word8ArraySlice
          type pos = Position.int
          val compare = Position.compare
          val someElem = 0wx0: Word8.word)
Commit	Line	Data
7f918cf1 CE	1	(* Copyright (C) 2002-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	structure BinPrimIO : PRIM_IO
	9	where type array = Word8Array.array
	10	where type vector = Word8Vector.vector
	11	where type elem = Word8.word
	12	where type pos = Position.int =
	13	PrimIO (structure Vector = Word8Vector
	14	structure VectorSlice = Word8VectorSlice
	15	structure Array = Word8Array
	16	structure ArraySlice = Word8ArraySlice
	17	type pos = Position.int
	18	val compare = Position.compare
	19	val someElem = 0wx0: Word8.word)