prepare-message-schedule ( seq block-size -- w-seq )

Vocabulary

checksums.sha.private

Inputs

seq	an object
block-size	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-message-schedule ( seq block-size -- w-seq )
    [ ube32 cast-array ] [ <uint-array> ] bi*
    [ [ set-nth-unsafe ] curry each-index ]
    [ 16 over length [a..b) over [ prepare-M-256 ] curry each ]
    bi ; inline