>marker ( byte -- marker )

Vocabulary

images.jpeg.private

Inputs

byte

an object

Outputs

marker

an object

Definition

USING: arrays combinators kernel math math.bitwise ;

IN: images.jpeg.private

:: >marker ( byte -- marker )
    byte {
        { [ dup 204 = ] [ { DAC } ] }
        { [ dup 196 = ] [ { DHT } ] }
        { [ dup 201 = ] [ { JPG } ] }
        { [ dup -4 shift 12 = ] [ SOF byte 4 bits 2array ] }
        { [ dup 216 = ] [ { SOI } ] }
        { [ dup 217 = ] [ { EOI } ] }
        { [ dup 218 = ] [ { SOS } ] }
        { [ dup 219 = ] [ { DQT } ] }
        { [ dup 220 = ] [ { DNL } ] }
        { [ dup 221 = ] [ { DRI } ] }
        { [ dup 222 = ] [ { DHP } ] }
        { [ dup 223 = ] [ { EXP } ] }
        { [ dup -4 shift 13 = ] [ RST byte 4 bits 2array ] }
        { [ dup -4 shift 14 = ] [ APP byte 4 bits 2array ] }
        { [ dup 254 = ] [ { COM } ] }
        { [ dup -4 shift 15 = ] [ JPG byte 4 bits 2array ] }
        { [ dup 1 = ] [ { TEM } ] }
        [ { RES } ]
    } cond nip ;