read-index-entry-v2 ( -- seq )

Vocabulary

git

Inputs

None

Outputs

seq

an object

Definition

USING: arrays endian hex-strings io io.encodings.string
io.encodings.utf8 kernel math sequences ;

IN: git

: read-index-entry-v2 ( -- seq )
    4 read be> 4 read be> 2array 4 read be> 4 read be> 2array
    4 read be> 4 read be> 4 read be> 4 read be> 4 read be> 4
    read be> 20 read bytes>hex-string 2 read be>
    { 0 } read-until drop [ utf8 decode ] [ length ] bi 7 +
    8 mod dup zero? [ 8 swap - ] unless read drop <index-entry>
    ;