diff --git a/Pipes/BZip/Internal.hsc b/Pipes/BZip/Internal.hsc new file mode 100644 --- /dev/null +++ b/Pipes/BZip/Internal.hsc @@ -0,0 +1,50 @@ +{-# LANGUAGE ForeignFunctionInterface #-} + +#include +#include + +module Pipes.BZip.Internal where + +#strict_import + +#num BZ_RUN +#num BZ_FLUSH +#num BZ_FINISH + +#num BZ_OK +#num BZ_RUN_OK +#num BZ_FLUSH_OK +#num BZ_FINISH_OK +#num BZ_STREAM_END +#num BZ_SEQUENCE_ERROR +#num BZ_PARAM_ERROR +#num BZ_MEM_ERROR +#num BZ_DATA_ERROR +#num BZ_DATA_ERROR_MAGIC +#num BZ_IO_ERROR +#num BZ_UNEXPECTED_EOF +#num BZ_OUTBUFF_FULL +#num BZ_CONFIG_ERROR + +#starttype bz_stream +#field next_in, Ptr CChar +#field avail_in, CUInt +#field total_in_lo32, CUInt +#field total_in_hi32, CUInt +#field next_out, Ptr CChar +#field avail_out, CUInt +#field total_out_lo32, CUInt +#field total_out_hi32, CUInt +#field state, Ptr () +#field bzalloc, Ptr () +#field bzfree, Ptr () +#field opaque, Ptr () +#stoptype + +#ccall BZ2_bzCompressInit, Ptr -> CInt -> CInt -> CInt -> IO CInt +#ccall BZ2_bzCompress, Ptr -> CInt -> IO CInt +#ccall BZ2_bzCompressEnd, Ptr -> IO CInt + +#ccall BZ2_bzDecompressInit, Ptr -> CInt -> CInt -> IO CInt +#ccall BZ2_bzDecompress, Ptr -> IO CInt +#ccall BZ2_bzDecompressEnd, Ptr -> IO CInt diff --git a/pipes-bzip.cabal b/pipes-bzip.cabal --- a/pipes-bzip.cabal +++ b/pipes-bzip.cabal @@ -1,5 +1,5 @@ name: pipes-bzip -version: 0.2.0.1 +version: 0.2.0.2 synopsis: Streaming compression/decompression via pipes. description: Streaming compression/decompression via pipes. homepage: https://github.com/chemist/pipes-bzip @@ -21,6 +21,7 @@ library exposed-modules: Pipes.BZip + other-modules: Pipes.BZip.Internal build-depends: base == 4.* , bytestring >=0.9 && <0.11