stream-read-uleb128 ( stream -- n )
LEB128 Encoding

Prev:	read-uleb128 ( -- n )
Next:	>leb128 ( n: integer -- byte-array )

Vocabulary
leb128

Inputs

stream

an object

Outputs

n

an object

Definition

USING: io kernel math ;

IN: leb128

:: stream-read-uleb128 ( stream -- n )
    0 0 [
        stream stream-read1 :> ( i b ) b 127 bitand i 7 * shift
        + i 1 + b 7 bit?
    ] loop drop ;