read-packed-raw ( -- string )

Vocabulary

git

Inputs

None

Outputs

string

an object

Definition

USING: combinators compression.zlib io kernel math sequences ;

IN: git

: read-packed-raw ( -- string )
    read-type-length first2 swap {
        { 1 [ 256 + read uncompress ] }
        [ unsupported-packed-raw-type ]
    } case ;