decompress ( byte-array -- byte-array' )

Vocabulary

compression.bzip3

Inputs

byte-array

a byte-array

Outputs

byte-array'

a byte-array

Word description

Takes a valid bzip3 compressed byte array, and pushes its decompressed form.

Definition

USING: alien.c-types alien.data byte-arrays
compression.bzip3.ffi compression.bzip3.private endian kernel
sequences ;

IN: compression.bzip3

:: decompress ( byte-array -- byte-array' )
    byte-array 8 cut-slice :> ( head in ) in length :> in-size
    head be> :> out-size out-size <byte-array> :> out in out
    in-size out-size size_t <ref> bz3_decompress dup 0 =
    [ drop out ] [ throw-internal-error ] if ;