md5-state

Vocabulary

checksums.md5

Definition

USING: checksums.common
specialized-arrays.instances.alien.c-types.uint ;

IN: checksums.md5

TUPLE: md5-state < block-checksum-state
    { state uint-array initial: uint-array{ } }
    { old-state uint-array initial: uint-array{ } } ;

Methods

USING: accessors alien.c-types alien.data checksums.common
checksums.md5 checksums.md5.private combinators kernel ;

M: md5-state checksum-block
    [
        [ byte-array>le uint cast-array ] [ state>> ] bi* {
            [ (process-md5-block-F) ]
            [ (process-md5-block-G) ]
            [ (process-md5-block-H) ]
            [ (process-md5-block-I) ]
        } 2cleave
    ] [ update-md5 ] bi ;


USING: accessors checksums.md5 generic kernel ;

M: md5-state clone
    M\ md5-state clone (call-next-method) [ clone ] change-state
    [ clone ] change-old-state ;


USING: accessors checksums checksums.common checksums.md5
checksums.md5.private kernel sequences ;

M: md5-state get-checksum
    clone [ bytes>> f ] [ bytes-read>> pad-last-block ] [ ] tri
    [ [ checksum-block ] curry each ] [ md5>checksum ] bi ;