io.streams.random: adding @erg's random-stream.
parent
23fc7b3eb9
commit
916d912492
|
@ -0,0 +1 @@
|
|||
Doug Coleman
|
|
@ -0,0 +1,21 @@
|
|||
! Copyright (C) 2010 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: destructors io kernel random sequences ;
|
||||
IN: io.streams.random
|
||||
|
||||
TUPLE: random-stream ;
|
||||
|
||||
C: <random-stream> random-stream
|
||||
|
||||
M: random-stream stream-element-type drop +byte+ ;
|
||||
|
||||
M: random-stream stream-read-unsafe
|
||||
drop [ dup random-bytes ] [ 0 swap copy ] bi* ;
|
||||
|
||||
M: random-stream stream-read1 drop 256 random ;
|
||||
|
||||
M: random-stream stream-read-partial-unsafe stream-read-unsafe ;
|
||||
|
||||
M: random-stream dispose drop ;
|
||||
|
||||
INSTANCE: random-stream input-stream
|
Loading…
Reference in New Issue