1 USING: alien.c-types io io.files kernel namespaces random
2 io.encodings.binary init accessors system ;
5 TUPLE: unix-random reader ;
7 : <unix-random> ( path -- random )
8 binary <file-reader> unix-random boa ;
10 M: unix-random random-bytes* ( n tuple -- byte-array )
11 reader>> stream-read ;
15 "/dev/srandom" <unix-random> secure-random-generator set-global
16 "/dev/arandom" <unix-random> system-random-generator set-global
17 ] "random.unix" add-init-hook
20 "/dev/random" <unix-random> secure-random-generator set-global
21 "/dev/urandom" <unix-random> system-random-generator set-global
22 ] "random.unix" add-init-hook