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

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

{-# LINE 4 "Bindings/Libgit2/Revparse.hsc" #-}

{-# LINE 5 "Bindings/Libgit2/Revparse.hsc" #-}
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

{-# LINE 8 "Bindings/Libgit2/Revparse.hsc" #-}

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))

{-# LINE 12 "Bindings/Libgit2/Revparse.hsc" #-}
{- typedef enum {
            GIT_REVPARSE_SINGLE = 1 << 0,
            GIT_REVPARSE_RANGE = 1 << 1,
            GIT_REVPARSE_MERGE_BASE = 1 << 2
        } git_revparse_mode_t; -}
type C'git_revparse_mode_t = CUInt

{-# LINE 18 "Bindings/Libgit2/Revparse.hsc" #-}
c'GIT_REVPARSE_SINGLE = 1
c'GIT_REVPARSE_SINGLE :: (Num a) => a

{-# LINE 19 "Bindings/Libgit2/Revparse.hsc" #-}
c'GIT_REVPARSE_RANGE = 2
c'GIT_REVPARSE_RANGE :: (Num a) => a

{-# LINE 20 "Bindings/Libgit2/Revparse.hsc" #-}
c'GIT_REVPARSE_MERGE_BASE = 4
c'GIT_REVPARSE_MERGE_BASE :: (Num a) => a

{-# LINE 21 "Bindings/Libgit2/Revparse.hsc" #-}
{- typedef struct {
            git_object * from; git_object * to; unsigned int flags;
        } git_revspec; -}

{-# LINE 25 "Bindings/Libgit2/Revparse.hsc" #-}

{-# LINE 26 "Bindings/Libgit2/Revparse.hsc" #-}

{-# LINE 27 "Bindings/Libgit2/Revparse.hsc" #-}

{-# LINE 28 "Bindings/Libgit2/Revparse.hsc" #-}
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 ()

{-# LINE 29 "Bindings/Libgit2/Revparse.hsc" #-}
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))

{-# LINE 30 "Bindings/Libgit2/Revparse.hsc" #-}