zlib-error-message ( n -- * )

Vocabulary

compression.zlib

Inputs

n

an object

Outputs

None

Definition

USING: compression.zlib.ffi kernel libc math sequences ;

IN: compression.zlib

: zlib-error-message ( n -- * )
    dup Z_ERRNO =
    [ drop errno "native libc error" ] [
        dup neg {
            "no error"
            "libc_error"
            "stream error"
            "data error"
            "memory error"
            "buffer error"
            "zlib version error"
        } ?nth
    ] if zlib-failed ;