module Bindings.Libgit2.Revparse 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.Types
foreign import ccall "git_revparse_single" c'git_revparse_single
:: Ptr (Ptr C'git_object) -> Ptr C'git_repository -> CString -> IO (CInt)
foreign import ccall "&git_revparse_single" p'git_revparse_single
:: FunPtr (Ptr (Ptr C'git_object) -> Ptr C'git_repository -> CString -> IO (CInt))
type C'git_revparse_mode_t = CUInt
c'GIT_REVPARSE_SINGLE = 1
c'GIT_REVPARSE_SINGLE :: (Num a) => a
c'GIT_REVPARSE_RANGE = 2
c'GIT_REVPARSE_RANGE :: (Num a) => a
c'GIT_REVPARSE_MERGE_BASE = 4
c'GIT_REVPARSE_MERGE_BASE :: (Num a) => a
data C'git_revspec = C'git_revspec{
c'git_revspec'from :: Ptr C'git_object,
c'git_revspec'to :: Ptr C'git_object,
c'git_revspec'flags :: CUInt
} deriving (Eq,Show)
p'git_revspec'from p = plusPtr p 0
p'git_revspec'from :: Ptr (C'git_revspec) -> Ptr (Ptr C'git_object)
p'git_revspec'to p = plusPtr p 8
p'git_revspec'to :: Ptr (C'git_revspec) -> Ptr (Ptr C'git_object)
p'git_revspec'flags p = plusPtr p 16
p'git_revspec'flags :: Ptr (C'git_revspec) -> Ptr (CUInt)
instance Storable C'git_revspec where
sizeOf _ = 24
alignment _ = 8
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 8
v2 <- peekByteOff p 16
return $ C'git_revspec v0 v1 v2
poke p (C'git_revspec v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 8 v1
pokeByteOff p 16 v2
return ()
foreign import ccall "git_revparse" c'git_revparse
:: Ptr C'git_revspec -> Ptr C'git_repository -> CString -> IO (CInt)
foreign import ccall "&git_revparse" p'git_revparse
:: FunPtr (Ptr C'git_revspec -> Ptr C'git_repository -> CString -> IO (CInt))