check-image-header ( header -- header.32/header.64/* )

Vocabulary

tools.image

Inputs

header

an image-header.union

Outputs

header.32/header.64/*

an image-header

Word description

Checks for a valid header, else throws error

Definition

USING: accessors kernel ;

IN: tools.image

: check-image-header ( header -- header.32/header.64/* )
    dup b32>> dup valid-header?
    [ nip ] [
        drop b64>> dup valid-header?
        [ unsupported-image-header ] unless
    ] if ;