prepare-M-256 ( n seq -- )

Vocabulary

checksums.sha.private

Inputs

n	an object
seq	an object

Outputs

None

Definition

USING: combinators kernel kernel.private math math.bitwise
sequences.private
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.sha.private

: prepare-M-256 ( n seq -- )
    { uint-array } declare {
        [ [ 16 - ] dip nth-unsafe ]
        [ [ 15 - ] dip nth-unsafe s0-256 ]
        [ [ 7 - ] dip nth-unsafe ]
        [ [ 2 - ] dip nth-unsafe s1-256 w+ w+ w+ ]
        [ ]
    } 2cleave set-nth-unsafe ; inline