1 (* Copyright (C
) 2002-2005 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
4 * MLton is released under a BSD
-style license
.
5 * See the file MLton
-LICENSE for details
.
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)