>compression-header ( headerv4 -- headerv4+ )

Vocabulary

tools.image

Inputs

headerv4

an image-header

Outputs

headerv4+

an image-header

Word description

Converts any header into a compression supporting header

Definition

USING: accessors kernel math ;

IN: tools.image

: >compression-header ( headerv4 -- headerv4+ )
    dup data-size>> zero? [
        dup data-size>>
        [ >>escaped-data-size ] [ >>compressed-data-size ] 2bi
        code-size>> >>compressed-code-size
    ] unless ;