Artifact ce4cb46e42c39437f99b864af7e0d0a4cd5ca1f1:

• File wurstkessel-init.fs — part of check-in [e4697d1af9] at 2012-01-15 00:36:51 on branch trunk — Fixed random initialization (user: bernd size: 683)

\ init wurstkessel to be actually useful

: random-init ( -- )
    s" /dev/random" r/o open-file throw >r
    wurst-salt state# r@ read-file throw drop
    r> close-file throw ;

: read-wurstrng ( fd -- )  >r
    0. r@ reposition-file throw
    wurst-salt state# r@ read-file throw drop
    state-init state# r@ read-file throw drop
    r> close-file throw ;

: write-wurstrng ( -- )
    s" ~/.wurstrng" r/w create-file throw >r
    wurst-salt state# r@ write-file throw
    state-init state# r@ write-file throw
    r> close-file throw ;

: salt-init ( -- )
    s" ~/.wurstrng" r/o open-file IF  2drop random-init
    ELSE  read-wurstrng  THEN  rng-step write-wurstrng ;

salt-init