git-index-contents ( -- git-index )

Vocabulary

git

Inputs

None

Outputs

git-index

an object

Definition

USING: combinators endian hex-strings io io.encodings.binary
io.encodings.string io.encodings.utf8 io.files kernel sequences
;

IN: git

: git-index-contents ( -- git-index )
    "index" make-git-path binary [
        4 read utf8 decode 4 read be> 4 read be> over {
            { 2 [ [ read-index-entry-v2 ] replicate ] }
            [ unhandled-git-version ]
        } case 20 read bytes>hex-string <git-index>
    ] with-file-reader ;