>compression-header ( header -- header' )

Vocabulary

tools.image

Inputs

header

an image-header

Outputs

header'

an image-header

Word description

Converts any header into a compression supporting header

Definition

USING: accessors kernel math ;

IN: tools.image

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