read-packed ( -- obj/f )

Vocabulary

git

Inputs

None

Outputs

obj/f

an object

Definition

USING: combinators compression.zlib io kernel math math.parser
namespaces sequences ;

IN: git

: read-packed ( -- obj/f )
    tell-input initial-offset [
        read-type-length first2 swap {
            { 1 [ 256 + read uncompress parse-object ] }
            {
                6
                [
                    read-offset-delta first2 do-deltas
                    parse-object
                ]
            }
            [
                number>string "unknown packed type: " prepend
                throw
            ]
        } case
    ] with-variable ;