Handbook
Glossary
prepare-sha1-message-schedule ( seq -- w-seq )
Vocabulary
checksums
.
sha
.
private
Inputs
seq
an
object
Outputs
w-seq
an
object
Definition
USING:
alien.data
alien.endian
kernel
ranges
sequences
sequences.private
specialized-arrays.instances.alien.c-types.uint
;
IN:
checksums.sha.private
:
prepare-sha1-message-schedule
( seq -- w-seq )
ube32
cast-array
80
<uint-array>
[
[
set-nth-unsafe
]
curry
each-index
]
[
16 80
[a..b)
over
[
sha1-W
]
curry
each
]
bi
;
inline