ifd-entry-value ( ifd-entry -- n )

Vocabulary

images.tiff

Inputs

ifd-entry

an object

Outputs

n

an object

Definition

USING: accessors io kernel math ;

IN: images.tiff

: ifd-entry-value ( ifd-entry -- n )
    dup value-length 4 <=
    [ adjust-offset/value ] [
        [ offset/value>> seek-absolute seek-input ]
        [ value-length read ] [ type>> ] tri offset-bytes>obj
    ] if ;