read-be-length ( -- length )

Vocabulary

git

Inputs

None

Outputs

length

an object

Definition

USING: kernel math math.bitwise ;

IN: git

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