24 lines
700 B
Factor
24 lines
700 B
Factor
|
USING: alien.c-types io io.files kernel namespaces random
|
||
|
|
io.encodings.binary init accessors system ;
|
||
|
IN: random.unix
|
||
|
|
|
||
|
|
TUPLE: unix-random reader ;
|
||
|
|
||
|
|
: <unix-random> ( path -- random )
|
||
|
|
binary <file-reader> unix-random boa ;
|
||
|
|
|
||
|
|
M: unix-random random-bytes* ( n tuple -- byte-array )
|
||
|
|
reader>> stream-read ;
|
||
|
|
|
||
|
os openbsd? [
|
||
|
|
[
|
||
|
|
"/dev/srandom" <unix-random> secure-random-generator set-global
|
||
|
|
"/dev/arandom" <unix-random> system-random-generator set-global
|
||
|
|
] "random.unix" add-init-hook
|
||
|
|
] [
|
||
|
|
[
|
||
|
|
"/dev/random" <unix-random> secure-random-generator set-global
|
||
|
|
"/dev/urandom" <unix-random> system-random-generator set-global
|
||
|
|
] "random.unix" add-init-hook
|
||
|
|
] if
|