{-# LINE 1 "FreeType/Support/GZIP.hsc" #-}
module FreeType.Support.GZIP
(
ft_Stream_OpenGzip
, ft_Gzip_Uncompress
) where
import FreeType.Core.Types.Types
import FreeType.Exception.Internal
import FreeType.Support.GZIP.Internal
import FreeType.Support.System.Types
import Foreign.Marshal.Utils
import Foreign.Ptr
import Foreign.Storable
ft_Stream_OpenGzip
:: FT_Stream
-> FT_Stream
-> IO ()
ft_Stream_OpenGzip =
autoError "ft_Stream_OpenGzip" ft_Stream_OpenGzip'
ft_Gzip_Uncompress
:: FT_Memory
-> Ptr FT_Byte
-> FT_ULong
-> Ptr FT_Byte
-> FT_ULong
-> IO FT_ULong
ft_Gzip_Uncompress memory output outputLen input inputLen =
with outputLen $ \outputLenPtr -> do
ftError "ft_Gzip_Uncompress"
$ ft_Gzip_Uncompress' memory output outputLenPtr input inputLen
peek outputLenPtr