read-varuint ( -- n )

Vocabulary

tinyvg

Inputs

None

Outputs

n

an object

Definition

USING: io kernel math ;

IN: tinyvg

: read-varuint ( -- n )
    0 0 [
        read1
        [ 127 bitand rot [ 7 * shift bitor ] keep 1 + swap ]
        [ 128 bitand zero? not ] bi
    ] loop nip ;