read-le-length ( -- length )

Vocabulary

git

Inputs

None

Outputs

length

an object

Definition

USING: kernel math math.bitwise ;

IN: git

: read-le-length ( -- length )
    read1* dup 128 mask? [
        7 bits
        [ read1* [ 7 bits 7 shift bitor ] [ 128 mask? ] bi ]
        loop
    ] when ;