update-checksum ( zim-path -- )

Vocabulary

zim.builder

Inputs

zim-path

an object

Outputs

None

Definition

USING: checksums checksums.md5 combinators io io.directories
io.encodings.binary io.files kernel math ;

IN: zim.builder

: update-checksum ( zim-path -- )
    {
        [
            binary
            [ 0 seek-end seek-input tell-input ]
            with-file-reader
        ]
        [ swap 16 - truncate-file ]
        [ md5 checksum-file ]
        [ binary [ write ] with-file-appender ]
    } cleave ;