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

Vocabulary

checksums.sha.private

Inputs

seq	an object
sha2	an object

Outputs

w-seq

an object

Definition

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

IN: checksums.sha.private

: prepare-message-schedule ( seq sha2 -- w-seq )
    [ word-size>> <groups> ] [ block-size>> <uint-array> ] bi [
        [ [ [ be> ] dip ] ] dip [ set-nth-unsafe ] curry compose
        each-index
    ]
    [ 16 over length [a..b) over [ prepare-M-256 ] curry each ]
    bi ; inline