|
From: Vesa K. <ve...@ml...> - 2007-01-12 04:32:52
|
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 |