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
import Bindings.Libgit2.Common
import Bindings.Libgit2.Oid
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 12
p'git_transfer_progress'received_bytes :: Ptr (C'git_transfer_progress) -> Ptr (CSize)
instance Storable C'git_transfer_progress where
sizeOf _ = 16
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
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 12 v3
return ()
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)
data C'git_indexer_stream = C'git_indexer_stream
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))
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))
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))
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))
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 ())