(uncompress) ( length byte-array -- byte-array )


Vocabulary
compression.zlib

Inputs
lengthan object
byte-arrayan object


Outputs
byte-arrayan object


Definition
USING: alien.c-types alien.data compression.zlib.ffi destructors
kernel libc sequences ;

IN: compression.zlib

: (uncompress) ( length byte-array -- byte-array )
[
[ drop [ malloc &free ] [ ulong <ref> ] bi ]
[ nip dup length ] 2bi [ uncompress zlib-error ] 4keep
2drop ulong deref memory>byte-array
] with-destructors ;