read-type-length ( -- pair )

Vocabulary

git

Inputs

None

Outputs

pair

an object

Definition

USING: arrays kernel math math.bitwise namespaces ;

IN: git

: read-type-length ( -- pair )
    0 #bits [
        read1* [ -4 shift 3 bits ] [ 4 bits ] [ ] tri 128 mask? 
        [
            #bits [ 4 + ] change [
                read1* [
                    7 bits #bits get shift bitor #bits
                    [ 7 + ] change
                ] [ 128 mask? ] bi
            ] loop
        ] when 2array
    ] with-variable ;