process-state

Vocabulary

checksums.process

Class description

This class represents the current state of a checksum-process checksum calculation. It has an associated external console application running until it is disposed. You may call add-checksum-bytes multiple times to pipe data to the external utility. When finished, call get-checksum to receive the result and terminate the process, or dispose to discard the result and terminate the process. After the first get-checksum call the returned value is stored in the result slot, and subsequent calls return the same value.

Notes

It is not possible to add more data to the checksum after the first get-checksum call.

Most code should use with-checksum-state to make sure the external process is disposed of. Higher level words like checksum-bytes and checksum-stream use it to perform the disposal.

Definition

USING: destructors ;

IN: checksums.process

TUPLE: process-state < disposable process result ;

Methods

USING: accessors checksums checksums.process io kernel ;

M: process-state add-checksum-bytes
    over process>> stream-write ;


USING: accessors checksums.process destructors kernel ;

M: process-state dispose* process>> [ dispose ] when* ;


USING: accessors checksums checksums.process destructors
hex-strings io kernel ;

M: process-state get-checksum
    dup result>> [
        dup process>> [
            [
                [ out>> dispose ] keep
                stream-contents trim-hash hex-string>bytes
            ] with-disposal
        ] [ B{ } ] if* [ >>result ] keep
    ] unless* nip ;