offset-bytes>obj ( bytes type -- obj )

Vocabulary

images.tiff

Inputs

bytes	an object
type	an object

Outputs

obj

an object

Definition

USING: combinators endian grouping math math.bitwise pack
sequences ;

IN: images.tiff

: offset-bytes>obj ( bytes type -- obj )
    {
        { 1 [ ] }
        { 2 [ ] }
        { 3 [ 2 <groups> [ endian> ] map ] }
        { 4 [ 4 <groups> [ endian> ] map ] }
        { 5 [ 8 <groups> [ "II" unpack first2 / ] map ] }
        { 6 [ [ 8 >signed ] map ] }
        { 7 [ ] }
        { 8 [ 2 <groups> [ endian> 16 >signed ] map ] }
        { 9 [ 4 <groups> [ endian> 32 >signed ] map ] }
        { 10 [ 8 group [ "ii" unpack first2 / ] map ] }
        { 11 [ 4 group [ "f" unpack ] map ] }
        { 12 [ 8 group [ "d" unpack ] map ] }
        [ "offset-bytes>obj" unknown-ifd-type ]
    } case ;