[MLton-commit] r4969

[Stephen Weeks]

Added String.{of,to}Word8Vector.

----------------------------------------------------------------------

U   mltonlib/trunk/com/sweeks/basic/unstable/EXPORT
U   mltonlib/trunk/com/sweeks/basic/unstable/string.1.sml
U   mltonlib/trunk/com/sweeks/basic/unstable/string.sig

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/sweeks/basic/unstable/EXPORT
===================================================================
--- mltonlib/trunk/com/sweeks/basic/unstable/EXPORT	2006-12-11 03:18:01 UTC (rev 4968)
+++ mltonlib/trunk/com/sweeks/basic/unstable/EXPORT	2006-12-11 03:36:48 UTC (rev 4969)
@@ -2060,6 +2060,7 @@
       val map: (?.t * (char -> char)) -> ?.t
       val ofSeq: char seq -> ?.t
       val ofSeqN: (char seq * int) -> ?.t
+      val ofWord8Vector: Word8.t vector -> ?.t
       val recur: (?.t * 'a * ('a -> 'b) * ((char * 'a * ('a -> 'b)) -> 'b))
 		 -> 'b
       val reverse: ?.t -> ?.t
@@ -2073,6 +2074,7 @@
       val toSeq: ?.t -> char seq
       val toSeqR: ?.t -> char seq
       val toUpper: ?.t -> ?.t
+      val toWord8Vector: ?.t -> Word8.t vector
       val tokens: (?.t * (char -> bool)) -> ?.t seq
       val unfold: ('a * ('a -> (char * 'a) option)) -> (?.t * 'a ?.unfold)
       val unfoldN: (int * 'a * ((int * 'a) -> (char * 'a) option))

Modified: mltonlib/trunk/com/sweeks/basic/unstable/string.1.sml
===================================================================
--- mltonlib/trunk/com/sweeks/basic/unstable/string.1.sml	2006-12-11 03:18:01 UTC (rev 4968)
+++ mltonlib/trunk/com/sweeks/basic/unstable/string.1.sml	2006-12-11 03:36:48 UTC (rev 4969)
@@ -13,6 +13,8 @@
 
    fun hasPrefix (s, s') = String.isPrefix s' s
 
+   val ofWord8Vector = Byte.bytesToString
+   val toWord8Vector = Byte.stringToBytes
 end
 
 local

Modified: mltonlib/trunk/com/sweeks/basic/unstable/string.sig
===================================================================
--- mltonlib/trunk/com/sweeks/basic/unstable/string.sig	2006-12-11 03:18:01 UTC (rev 4968)
+++ mltonlib/trunk/com/sweeks/basic/unstable/string.sig	2006-12-11 03:36:48 UTC (rev 4969)
@@ -3,7 +3,9 @@
    include MONO_VECTOR where type 'a elem = char
 
    val hasPrefix: t * t -> bool
+   val ofWord8Vector: Word8.t vector -> t
    val toLower: t -> t
    val toUpper: t -> t
+   val toWord8Vector: t -> Word8.t vector
 
 end