{-# LINE 1 "Bindings/Libgit2/Indexer.hsc" #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LINE 2 "Bindings/Libgit2/Indexer.hsc" #-}

{-# LINE 3 "Bindings/Libgit2/Indexer.hsc" #-}

{-# LINE 4 "Bindings/Libgit2/Indexer.hsc" #-}
module Bindings.Libgit2.Indexer where
import Foreign.Ptr
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word

{-# LINE 7 "Bindings/Libgit2/Indexer.hsc" #-}

import Bindings.Libgit2.Common
import Bindings.Libgit2.Oid
{- typedef struct git_transfer_progress {
            unsigned int total_objects;
            unsigned int indexed_objects;
            unsigned int received_objects;
            size_t received_bytes;
        } git_transfer_progress; -}

{-# LINE 17 "Bindings/Libgit2/Indexer.hsc" #-}

{-# LINE 18 "Bindings/Libgit2/Indexer.hsc" #-}

{-# LINE 19 "Bindings/Libgit2/Indexer.hsc" #-}

{-# LINE 20 "Bindings/Libgit2/Indexer.hsc" #-}

{-# LINE 21 "Bindings/Libgit2/Indexer.hsc" #-}
data C'git_transfer_progress = C'git_transfer_progress{
  c'git_transfer_progress'total_objects :: CUInt,
  c'git_transfer_progress'indexed_objects :: CUInt,
  c'git_transfer_progress'received_objects :: CUInt,
  c'git_transfer_progress'received_bytes :: CSize
} deriving (Eq,Show)
p'git_transfer_progress'total_objects p = plusPtr p 0
p'git_transfer_progress'total_objects :: Ptr (C'git_transfer_progress) -> Ptr (CUInt)
p'git_transfer_progress'indexed_objects p = plusPtr p 4
p'git_transfer_progress'indexed_objects :: Ptr (C'git_transfer_progress) -> Ptr (CUInt)
p'git_transfer_progress'received_objects p = plusPtr p 8
p'git_transfer_progress'received_objects :: Ptr (C'git_transfer_progress) -> Ptr (CUInt)
p'git_transfer_progress'received_bytes p = plusPtr p 16
p'git_transfer_progress'received_bytes :: Ptr (C'git_transfer_progress) -> Ptr (CSize)
instance Storable C'git_transfer_progress where
  sizeOf _ = 24
  alignment _ = 8
  peek p = do
    v0 <- peekByteOff p 0
    v1 <- peekByteOff p 4
    v2 <- peekByteOff p 8
    v3 <- peekByteOff p 16
    return $ C'git_transfer_progress v0 v1 v2 v3
  poke p (C'git_transfer_progress v0 v1 v2 v3) = do
    pokeByteOff p 0 v0
    pokeByteOff p 4 v1
    pokeByteOff p 8 v2
    pokeByteOff p 16 v3
    return ()

{-# LINE 22 "Bindings/Libgit2/Indexer.hsc" #-}
{- typedef int (* git_transfer_progress_callback)(const git_transfer_progress * stats,
                                               void * payload); -}
type C'git_transfer_progress_callback = FunPtr (Ptr (C'git_transfer_progress) -> Ptr () -> IO CInt)
foreign import ccall "wrapper" mk'git_transfer_progress_callback
  :: (Ptr (C'git_transfer_progress) -> Ptr () -> IO CInt) -> IO C'git_transfer_progress_callback
foreign import ccall "dynamic" mK'git_transfer_progress_callback
  :: C'git_transfer_progress_callback -> (Ptr (C'git_transfer_progress) -> Ptr () -> IO CInt)

{-# LINE 25 "Bindings/Libgit2/Indexer.hsc" #-}
{- typedef struct git_indexer_stream git_indexer_stream; -}
data C'git_indexer_stream = C'git_indexer_stream

{-# LINE 27 "Bindings/Libgit2/Indexer.hsc" #-}
foreign import ccall "git_indexer_stream_new" c'git_indexer_stream_new
  :: Ptr (Ptr C'git_indexer_stream) -> CString -> C'git_transfer_progress_callback -> Ptr () -> IO (CInt)
foreign import ccall "&git_indexer_stream_new" p'git_indexer_stream_new
  :: FunPtr (Ptr (Ptr C'git_indexer_stream) -> CString -> C'git_transfer_progress_callback -> Ptr () -> IO (CInt))

{-# LINE 28 "Bindings/Libgit2/Indexer.hsc" #-}
foreign import ccall "git_indexer_stream_add" c'git_indexer_stream_add
  :: Ptr C'git_indexer_stream -> Ptr () -> CSize -> Ptr C'git_transfer_progress -> IO (CInt)
foreign import ccall "&git_indexer_stream_add" p'git_indexer_stream_add
  :: FunPtr (Ptr C'git_indexer_stream -> Ptr () -> CSize -> Ptr C'git_transfer_progress -> IO (CInt))

{-# LINE 29 "Bindings/Libgit2/Indexer.hsc" #-}
foreign import ccall "git_indexer_stream_finalize" c'git_indexer_stream_finalize
  :: Ptr C'git_indexer_stream -> Ptr C'git_transfer_progress -> IO (CInt)
foreign import ccall "&git_indexer_stream_finalize" p'git_indexer_stream_finalize
  :: FunPtr (Ptr C'git_indexer_stream -> Ptr C'git_transfer_progress -> IO (CInt))

{-# LINE 30 "Bindings/Libgit2/Indexer.hsc" #-}
foreign import ccall "git_indexer_stream_hash" c'git_indexer_stream_hash
  :: Ptr C'git_indexer_stream -> IO (Ptr C'git_oid)
foreign import ccall "&git_indexer_stream_hash" p'git_indexer_stream_hash
  :: FunPtr (Ptr C'git_indexer_stream -> IO (Ptr C'git_oid))

{-# LINE 31 "Bindings/Libgit2/Indexer.hsc" #-}
foreign import ccall "git_indexer_stream_free" c'git_indexer_stream_free
  :: Ptr C'git_indexer_stream -> IO ()
foreign import ccall "&git_indexer_stream_free" p'git_indexer_stream_free
  :: FunPtr (Ptr C'git_indexer_stream -> IO ())

{-# LINE 32 "Bindings/Libgit2/Indexer.hsc" #-}