read-unsigned ( info -- n )

Vocabulary

cbor.private

Inputs

info

an object

Outputs

n

an object

Definition

USING: cbor combinators endian io kernel math ;

IN: cbor.private

: read-unsigned ( info -- n )
    dup 24 < [
        {
            { 24 [ read1 ] }
            { 25 [ 2 read be> ] }
            { 26 [ 4 read be> ] }
            { 27 [ 8 read be> ] }
            { 31 [ +cbor-indefinite+ ] }
        } case
    ] unless ;