read-ifds ( tiff offset -- tiff )

Vocabulary

images.tiff

Inputs

tiff	an object
offset	an object

Outputs

tiff

an object

Definition

USING: accessors assocs combinators.short-circuit kernel math ;

IN: images.tiff

: read-ifds ( tiff offset -- tiff )
    read-ifd
    [ store-ifd ] [
        next-offset>> dup
        { [ 0 > ] [ pick ifds>> key? not ] } 1&&
        [ read-ifds ] [ drop ] if
    ] bi ;