prepare-sha1-message-schedule ( seq -- w-seq )

Vocabulary

checksums.sha.private

Inputs

seq

an object

Outputs

w-seq

an object

Definition

USING: endian grouping kernel ranges sequences sequences.private
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.sha.private

: prepare-sha1-message-schedule ( seq -- w-seq )
    4 <groups> 80 <uint-array> [
        [ [ [ be> ] dip ] ] dip [ set-nth-unsafe ] curry compose
        each-index
    ] [ 16 80 [a..b) over [ sha1-W ] curry each ] bi ; inline