module Bindings.Libgit2.Indexer where
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_indexer_stats = C'git_indexer_stats{
c'git_indexer_stats'total :: CUInt,
c'git_indexer_stats'processed :: CUInt
} deriving (Eq,Show)
p'git_indexer_stats'total p = plusPtr p 0
p'git_indexer_stats'total :: Ptr (C'git_indexer_stats) -> Ptr (CUInt)
p'git_indexer_stats'processed p = plusPtr p 4
p'git_indexer_stats'processed :: Ptr (C'git_indexer_stats) -> Ptr (CUInt)
instance Storable C'git_indexer_stats where
sizeOf _ = 8
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'git_indexer_stats v0 v1
poke p (C'git_indexer_stats v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
data C'git_indexer = C'git_indexer
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 -> IO (CInt)
foreign import ccall "&git_indexer_stream_new" p'git_indexer_stream_new
:: FunPtr (Ptr (Ptr C'git_indexer_stream) -> CString -> IO (CInt))
foreign import ccall "git_indexer_stream_add" c'git_indexer_stream_add
:: Ptr C'git_indexer_stream -> Ptr () -> CSize -> Ptr C'git_indexer_stats -> 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_indexer_stats -> IO (CInt))
foreign import ccall "git_indexer_stream_finalize" c'git_indexer_stream_finalize
:: Ptr C'git_indexer_stream -> Ptr C'git_indexer_stats -> IO (CInt)
foreign import ccall "&git_indexer_stream_finalize" p'git_indexer_stream_finalize
:: FunPtr (Ptr C'git_indexer_stream -> Ptr C'git_indexer_stats -> 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 ())
foreign import ccall "git_indexer_new" c'git_indexer_new
:: Ptr (Ptr C'git_indexer) -> CString -> IO (CInt)
foreign import ccall "&git_indexer_new" p'git_indexer_new
:: FunPtr (Ptr (Ptr C'git_indexer) -> CString -> IO (CInt))
foreign import ccall "git_indexer_run" c'git_indexer_run
:: Ptr C'git_indexer -> Ptr C'git_indexer_stats -> IO (CInt)
foreign import ccall "&git_indexer_run" p'git_indexer_run
:: FunPtr (Ptr C'git_indexer -> Ptr C'git_indexer_stats -> IO (CInt))
foreign import ccall "git_indexer_write" c'git_indexer_write
:: Ptr C'git_indexer -> IO (CInt)
foreign import ccall "&git_indexer_write" p'git_indexer_write
:: FunPtr (Ptr C'git_indexer -> IO (CInt))
foreign import ccall "git_indexer_hash" c'git_indexer_hash
:: Ptr C'git_indexer -> IO (Ptr C'git_oid)
foreign import ccall "&git_indexer_hash" p'git_indexer_hash
:: FunPtr (Ptr C'git_indexer -> IO (Ptr C'git_oid))
foreign import ccall "git_indexer_free" c'git_indexer_free
:: Ptr C'git_indexer -> IO ()
foreign import ccall "&git_indexer_free" p'git_indexer_free
:: FunPtr (Ptr C'git_indexer -> IO ())