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 |
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
...
130
131
132
133
134
135
136
137
138
139
140
141
142
143
|
: 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$
................................................................................
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 )
|
>
>
|
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
...
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
: 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$
................................................................................
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 )
|