leb128> ( byte-array: byte-array -- n )
LEB128 Encoding
Prev:>leb128 ( n: integer -- byte-array )
Next:write-leb128 ( n -- )


Vocabulary
leb128

Inputs
byte-arraya byte-array


Outputs
nan object


Definition
USING: kernel math sequences typed ;

IN: leb128

TYPED: leb128> ( byte-array: byte-array -- n )
[ uleb128> ] keep dup last 6 bit?
[ length 7 * 2^ neg bitor ] [ drop ] if ;