process-sha1-chunk ( H W K state -- )

Vocabulary

checksums.sha.private

Inputs

H	an object
W	an object
K	an object
state	an object

Outputs

None

Definition

USING: accessors kernel math math.bitwise sequences
sequences.private ;

IN: checksums.sha.private

:: process-sha1-chunk ( H W K state -- )
    80 [
        H W K inner-loop d H nth-unsafe e H set-nth-unsafe
        c H nth-unsafe d H set-nth-unsafe b H nth-unsafe
        30 bitroll-32 c H set-nth-unsafe a H nth-unsafe
        b H set-nth-unsafe a H set-nth-unsafe
    ] each-integer state [ H [ w+ ] 2map ] change-H drop ;
    inline