[MLton-commit] r5046

[Vesa K. <ve...@ml...>]

Initial commit of a lib of misc utils to be refactored.
----------------------------------------------------------------------

A   mltonlib/trunk/com/ssh/misc-util/unstable/random-dev.sig

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

Added: mltonlib/trunk/com/ssh/misc-util/unstable/random-dev.sig
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/random-dev.sig	2007-01-12 12:31:55 UTC (rev 5045)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/random-dev.sig	2007-01-12 12:32:40 UTC (rev 5046)
@@ -0,0 +1,27 @@
+(* Copyright (C) 2007 SSH Communications Security, Helsinki, Finland
+ *
+ * This code is released under the MLton license, a BSD-style license.
+ * See the LICENSE file or http://mlton.org/License for details.
+ *)
+
+(*
+ * Signature for accessing some (unspecified) system supplied source of
+ * randomness (e.g. /dev/random and /dev/urandom).  Modules implementing
+ * this signature should not be used as general purpose random number
+ * generators, but should rather be used to seed other pseudo random
+ * number generators.
+ *)
+
+signature RANDOM_DEV = sig
+   val seed : Word.t Option.t Thunk.t
+   (**
+    * Returns a high-quality random word.  A call to seed may block until
+    * enough random bits are available.
+    *)
+
+   val useed : Word.t Option.t Thunk.t
+   (**
+    * Returns a random word.  If there aren't enough high-quality random
+    * bits available, a lower quality random word will be returned.
+    *)
+end


Property changes on: mltonlib/trunk/com/ssh/misc-util/unstable/random-dev.sig
___________________________________________________________________
Name: svn:eol-style
   + native