parse-pack ( path -- pack )

Vocabulary

git

Inputs

path

an object

Outputs

pack

an object

Definition

USING: arrays endian io io.encodings.binary io.files
io.streams.peek namespaces sequences strings ;

IN: git

: parse-pack ( path -- pack )
    binary [
        input-stream [ <peek-stream> ] change
        4 read >string 4 read be> 4 read be> 3array
        [ peek1 ] [ read-packed ] produce 2array
    ] with-file-reader ;