compute-checksums ( -- )

Vocabulary

bootstrap.image.upload

Inputs

None

Outputs

None

Definition

USING: checksums checksums.openssl hex-strings io
io.encodings.ascii io.files kernel sequences ;

IN: bootstrap.image.upload

: compute-checksums ( -- )
    checksums-path ascii [
        boot-image-names [
            [ write bl ] [
                openssl-md5 checksum-file bytes>hex-string write
                bl
            ] [
                openssl-sha256 checksum-file
                bytes>hex-string print
            ] tri
        ] each
    ] with-file-writer ;