Artifact 7629b3d6fbfade557d00015841bddc14a71daec7:

• File wurstkessel-init.fs — part of check-in [f0952266c8] at 2012-12-25 22:02:47 on branch trunk — Fixed wurstrng state (user: bernd size: 725)

\ 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 -- flag )  { fd }
    0. fd reposition-file throw
    wurst-salt state# fd read-file throw state# = >r
    state-init state# fd read-file throw state# = r> and
    fd close-file throw ;

: write-wurstrng ( -- )
    s" ~/.wurstrng" r/w create-file throw >r
    rng-buffer cell+ state# 2* r@ write-file throw
    r> close-file throw ;

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

wurst-init
salt-init