sha1-W ( t seq -- )

Vocabulary

checksums.sha.private

Inputs

t	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

: sha1-W ( t seq -- )
    { uint-array } declare {
        [ [ 3 - ] dip nth-unsafe ]
        [ [ 8 - ] dip nth-unsafe bitxor ]
        [ [ 14 - ] dip nth-unsafe bitxor ]
        [ [ 16 - ] dip nth-unsafe bitxor 1 bitroll-32 ]
        [ ]
    } 2cleave set-nth-unsafe ; inline