read-float ( info -- float )

Vocabulary

cbor.private

Inputs

info

an object

Outputs

float

an object

Definition

USING: cbor combinators endian io kernel math math.floats.half ;

IN: cbor.private

: read-float ( info -- float )
    dup 20 <
    [ cbor-simple boa ] [
        {
            { 20 [ f ] }
            { 21 [ t ] }
            { 22 [ +cbor-nil+ ] }
            { 23 [ +cbor-undefined+ ] }
            { 24 [ read1 cbor-simple boa ] }
            { 25 [ 2 read be> bits>half ] }
            { 26 [ 4 read be> bits>float ] }
            { 27 [ 8 read be> bits>double ] }
            { 31 [ +cbor-break+ ] }
        } case
    ] if ;