Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Init-dir fixes build problems |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
199a06d608f33bbb3cd261d52fb5c467 |
| User & Date: | bernd 2019-05-09 18:34:55.090 |
Context
|
2019-05-09
| ||
| 23:02 | Use connection for cmdreset check-in: 4214d5811c user: bernd tags: trunk | |
| 18:34 | Init-dir fixes build problems check-in: 199a06d608 user: bernd tags: trunk | |
| 18:06 | Bump version number check-in: 20289938ce user: bernd tags: trunk, 0.8.8-20190509 | |
Changes
Changes to rng.fs.
| ︙ | ︙ | |||
96 97 98 99 100 101 102 103 104 105 106 107 108 109 |
: read-initrng ( fd -- flag ) { fd }
#0. fd reposition-file throw
rng-key c:key# fd read-file throw c:key# =
['] c:diffuse rng-exec fd close-file throw ;
: write-initrng ( -- )
init-rng$ $@ r/w create-file throw >r
rng-buffer c:key# r@ write-file throw
r> close-file throw rng-step ;
\ Sanity check
$Variable check-rng$
| > | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
: read-initrng ( fd -- flag ) { fd }
#0. fd reposition-file throw
rng-key c:key# fd read-file throw c:key# =
['] c:diffuse rng-exec fd close-file throw ;
: write-initrng ( -- )
init-rng$ $@ dirname $1FF init-dir drop
init-rng$ $@ r/w create-file throw >r
rng-buffer c:key# r@ write-file throw
r> close-file throw rng-step ;
\ Sanity check
$Variable check-rng$
|
| ︙ | ︙ | |||
130 131 132 133 134 135 136 137 138 139 140 141 142 143 |
rng-key $20 \ check only first 256 bits
check-rng$ $@ file-status nip no-file# <> IF
check-rng$ $@ check-old$ $slurp-file
check-old$ $@ 2over search nip nip !!bad-rng!!
check-rng$ $@ w/o open-file throw >r
r@ file-size throw r@ reposition-file throw
ELSE
check-rng$ $@ w/o create-file throw >r
THEN
2dup check-old$ $+!
r@ write-file throw r> close-file throw
check-old$ $@ rngstat fdup .9e f>
IF f. cr check-old$ $@ dump true !!bad-rng!!
ELSE health( ." RNG seeded, health check passed " f. cr )else( fdrop )
| > | 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 |
rng-key $20 \ check only first 256 bits
check-rng$ $@ file-status nip no-file# <> IF
check-rng$ $@ check-old$ $slurp-file
check-old$ $@ 2over search nip nip !!bad-rng!!
check-rng$ $@ w/o open-file throw >r
r@ file-size throw r@ reposition-file throw
ELSE
check-rng$ $@ dirname $1FF init-dir drop
check-rng$ $@ w/o create-file throw >r
THEN
2dup check-old$ $+!
r@ write-file throw r> close-file throw
check-old$ $@ rngstat fdup .9e f>
IF f. cr check-old$ $@ dump true !!bad-rng!!
ELSE health( ." RNG seeded, health check passed " f. cr )else( fdrop )
|
| ︙ | ︙ |