module Bindings.Libgit2.Config 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
c'GIT_CONFIG_LEVEL_SYSTEM = 1
c'GIT_CONFIG_LEVEL_SYSTEM :: (Num a) => a
c'GIT_CONFIG_LEVEL_XDG = 2
c'GIT_CONFIG_LEVEL_XDG :: (Num a) => a
c'GIT_CONFIG_LEVEL_GLOBAL = 3
c'GIT_CONFIG_LEVEL_GLOBAL :: (Num a) => a
c'GIT_CONFIG_LEVEL_LOCAL = 4
c'GIT_CONFIG_LEVEL_LOCAL :: (Num a) => a
c'GIT_CONFIG_HIGHEST_LEVEL = 1
c'GIT_CONFIG_HIGHEST_LEVEL :: (Num a) => a
data C'git_config_entry = C'git_config_entry{
c'git_config_entry'name :: CString,
c'git_config_entry'value :: CString,
c'git_config_entry'level :: CUInt
} deriving (Eq,Show)
p'git_config_entry'name p = plusPtr p 0
p'git_config_entry'name :: Ptr (C'git_config_entry) -> Ptr (CString)
p'git_config_entry'value p = plusPtr p 4
p'git_config_entry'value :: Ptr (C'git_config_entry) -> Ptr (CString)
p'git_config_entry'level p = plusPtr p 8
p'git_config_entry'level :: Ptr (C'git_config_entry) -> Ptr (CUInt)
instance Storable C'git_config_entry where
sizeOf _ = 12
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'git_config_entry v0 v1 v2
poke p (C'git_config_entry v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
type C'git_config_foreach_cb = FunPtr (Ptr (C'git_config_entry) -> Ptr () -> IO CInt)
foreign import ccall "wrapper" mk'git_config_foreach_cb
:: (Ptr (C'git_config_entry) -> Ptr () -> IO CInt) -> IO C'git_config_foreach_cb
foreign import ccall "dynamic" mK'git_config_foreach_cb
:: C'git_config_foreach_cb -> (Ptr (C'git_config_entry) -> Ptr () -> IO CInt)
type C'git_config_backend_open_callback = FunPtr (Ptr C'git_config_backend -> CUInt -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_open_callback
:: (Ptr C'git_config_backend -> CUInt -> IO CInt) -> IO C'git_config_backend_open_callback
foreign import ccall "dynamic" mK'git_config_backend_open_callback
:: C'git_config_backend_open_callback -> (Ptr C'git_config_backend -> CUInt -> IO CInt)
type C'git_config_backend_get_callback = FunPtr (Ptr C'git_config_backend -> CString -> Ptr (Ptr C'git_config_entry) -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_get_callback
:: (Ptr C'git_config_backend -> CString -> Ptr (Ptr C'git_config_entry) -> IO CInt) -> IO C'git_config_backend_get_callback
foreign import ccall "dynamic" mK'git_config_backend_get_callback
:: C'git_config_backend_get_callback -> (Ptr C'git_config_backend -> CString -> Ptr (Ptr C'git_config_entry) -> IO CInt)
type C'git_config_backend_get_multivar_callback = FunPtr (Ptr C'git_config_backend -> CString -> CString -> C'git_config_foreach_cb -> Ptr () -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_get_multivar_callback
:: (Ptr C'git_config_backend -> CString -> CString -> C'git_config_foreach_cb -> Ptr () -> IO CInt) -> IO C'git_config_backend_get_multivar_callback
foreign import ccall "dynamic" mK'git_config_backend_get_multivar_callback
:: C'git_config_backend_get_multivar_callback -> (Ptr C'git_config_backend -> CString -> CString -> C'git_config_foreach_cb -> Ptr () -> IO CInt)
type C'git_config_backend_set_callback = FunPtr (Ptr C'git_config_backend -> CString -> CString -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_set_callback
:: (Ptr C'git_config_backend -> CString -> CString -> IO CInt) -> IO C'git_config_backend_set_callback
foreign import ccall "dynamic" mK'git_config_backend_set_callback
:: C'git_config_backend_set_callback -> (Ptr C'git_config_backend -> CString -> CString -> IO CInt)
type C'git_config_backend_set_multivar_callback = FunPtr (Ptr C'git_config_backend -> CString -> CString -> CString -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_set_multivar_callback
:: (Ptr C'git_config_backend -> CString -> CString -> CString -> IO CInt) -> IO C'git_config_backend_set_multivar_callback
foreign import ccall "dynamic" mK'git_config_backend_set_multivar_callback
:: C'git_config_backend_set_multivar_callback -> (Ptr C'git_config_backend -> CString -> CString -> CString -> IO CInt)
type C'git_config_backend_del_callback = FunPtr (Ptr C'git_config_backend -> CString -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_del_callback
:: (Ptr C'git_config_backend -> CString -> IO CInt) -> IO C'git_config_backend_del_callback
foreign import ccall "dynamic" mK'git_config_backend_del_callback
:: C'git_config_backend_del_callback -> (Ptr C'git_config_backend -> CString -> IO CInt)
type C'git_config_backend_foreach_callback = FunPtr (Ptr C'git_config_backend -> CString -> C'git_config_foreach_cb -> Ptr () -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_foreach_callback
:: (Ptr C'git_config_backend -> CString -> C'git_config_foreach_cb -> Ptr () -> IO CInt) -> IO C'git_config_backend_foreach_callback
foreign import ccall "dynamic" mK'git_config_backend_foreach_callback
:: C'git_config_backend_foreach_callback -> (Ptr C'git_config_backend -> CString -> C'git_config_foreach_cb -> Ptr () -> IO CInt)
type C'git_config_backend_refresh_callback = FunPtr (Ptr C'git_config_backend -> IO CInt)
foreign import ccall "wrapper" mk'git_config_backend_refresh_callback
:: (Ptr C'git_config_backend -> IO CInt) -> IO C'git_config_backend_refresh_callback
foreign import ccall "dynamic" mK'git_config_backend_refresh_callback
:: C'git_config_backend_refresh_callback -> (Ptr C'git_config_backend -> IO CInt)
type C'git_config_backend_free_callback = FunPtr (Ptr C'git_config_backend -> IO ())
foreign import ccall "wrapper" mk'git_config_backend_free_callback
:: (Ptr C'git_config_backend -> IO ()) -> IO C'git_config_backend_free_callback
foreign import ccall "dynamic" mK'git_config_backend_free_callback
:: C'git_config_backend_free_callback -> (Ptr C'git_config_backend -> IO ())
data C'git_config_backend = C'git_config_backend{
c'git_config_backend'version :: CUInt,
c'git_config_backend'cfg :: Ptr C'git_config,
c'git_config_backend'open :: C'git_config_backend_open_callback,
c'git_config_backend'get :: C'git_config_backend_get_callback,
c'git_config_backend'get_multivar :: C'git_config_backend_get_multivar_callback,
c'git_config_backend'set :: C'git_config_backend_set_callback,
c'git_config_backend'set_multivar :: C'git_config_backend_set_multivar_callback,
c'git_config_backend'del :: C'git_config_backend_del_callback,
c'git_config_backend'foreach :: C'git_config_backend_foreach_callback,
c'git_config_backend'refresh :: C'git_config_backend_refresh_callback,
c'git_config_backend'free :: C'git_config_backend_free_callback
} deriving (Eq,Show)
p'git_config_backend'version p = plusPtr p 0
p'git_config_backend'version :: Ptr (C'git_config_backend) -> Ptr (CUInt)
p'git_config_backend'cfg p = plusPtr p 4
p'git_config_backend'cfg :: Ptr (C'git_config_backend) -> Ptr (Ptr C'git_config)
p'git_config_backend'open p = plusPtr p 8
p'git_config_backend'open :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_open_callback)
p'git_config_backend'get p = plusPtr p 12
p'git_config_backend'get :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_get_callback)
p'git_config_backend'get_multivar p = plusPtr p 16
p'git_config_backend'get_multivar :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_get_multivar_callback)
p'git_config_backend'set p = plusPtr p 20
p'git_config_backend'set :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_set_callback)
p'git_config_backend'set_multivar p = plusPtr p 24
p'git_config_backend'set_multivar :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_set_multivar_callback)
p'git_config_backend'del p = plusPtr p 28
p'git_config_backend'del :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_del_callback)
p'git_config_backend'foreach p = plusPtr p 32
p'git_config_backend'foreach :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_foreach_callback)
p'git_config_backend'refresh p = plusPtr p 36
p'git_config_backend'refresh :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_refresh_callback)
p'git_config_backend'free p = plusPtr p 40
p'git_config_backend'free :: Ptr (C'git_config_backend) -> Ptr (C'git_config_backend_free_callback)
instance Storable C'git_config_backend where
sizeOf _ = 44
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
v3 <- peekByteOff p 12
v4 <- peekByteOff p 16
v5 <- peekByteOff p 20
v6 <- peekByteOff p 24
v7 <- peekByteOff p 28
v8 <- peekByteOff p 32
v9 <- peekByteOff p 36
v10 <- peekByteOff p 40
return $ C'git_config_backend v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10
poke p (C'git_config_backend v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
pokeByteOff p 12 v3
pokeByteOff p 16 v4
pokeByteOff p 20 v5
pokeByteOff p 24 v6
pokeByteOff p 28 v7
pokeByteOff p 32 v8
pokeByteOff p 36 v9
pokeByteOff p 40 v10
return ()
type C'git_cvar_t = CUInt
c'GIT_CVAR_FALSE = 0
c'GIT_CVAR_FALSE :: (Num a) => a
c'GIT_CVAR_TRUE = 1
c'GIT_CVAR_TRUE :: (Num a) => a
c'GIT_CVAR_INT32 = 2
c'GIT_CVAR_INT32 :: (Num a) => a
c'GIT_CVAR_STRING = 3
c'GIT_CVAR_STRING :: (Num a) => a
data C'git_cvar_map = C'git_cvar_map{
c'git_cvar_map'cvar_type :: C'git_cvar_t,
c'git_cvar_map'str_match :: CString,
c'git_cvar_map'map_value :: CInt
} deriving (Eq,Show)
p'git_cvar_map'cvar_type p = plusPtr p 0
p'git_cvar_map'cvar_type :: Ptr (C'git_cvar_map) -> Ptr (C'git_cvar_t)
p'git_cvar_map'str_match p = plusPtr p 4
p'git_cvar_map'str_match :: Ptr (C'git_cvar_map) -> Ptr (CString)
p'git_cvar_map'map_value p = plusPtr p 8
p'git_cvar_map'map_value :: Ptr (C'git_cvar_map) -> Ptr (CInt)
instance Storable C'git_cvar_map where
sizeOf _ = 12
alignment _ = 4
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'git_cvar_map v0 v1 v2
poke p (C'git_cvar_map v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
foreign import ccall "git_config_find_global" c'git_config_find_global
:: CString -> CSize -> IO (CInt)
foreign import ccall "&git_config_find_global" p'git_config_find_global
:: FunPtr (CString -> CSize -> IO (CInt))
foreign import ccall "git_config_find_xdg" c'git_config_find_xdg
:: CString -> CSize -> IO (CInt)
foreign import ccall "&git_config_find_xdg" p'git_config_find_xdg
:: FunPtr (CString -> CSize -> IO (CInt))
foreign import ccall "git_config_find_system" c'git_config_find_system
:: CString -> CSize -> IO (CInt)
foreign import ccall "&git_config_find_system" p'git_config_find_system
:: FunPtr (CString -> CSize -> IO (CInt))
foreign import ccall "git_config_open_default" c'git_config_open_default
:: Ptr (Ptr C'git_config) -> IO (CInt)
foreign import ccall "&git_config_open_default" p'git_config_open_default
:: FunPtr (Ptr (Ptr C'git_config) -> IO (CInt))
foreign import ccall "git_config_new" c'git_config_new
:: Ptr (Ptr C'git_config) -> IO (CInt)
foreign import ccall "&git_config_new" p'git_config_new
:: FunPtr (Ptr (Ptr C'git_config) -> IO (CInt))
foreign import ccall "git_config_add_backend" c'git_config_add_backend
:: Ptr C'git_config -> Ptr C'git_config_backend -> CUInt -> CInt -> IO (CInt)
foreign import ccall "&git_config_add_backend" p'git_config_add_backend
:: FunPtr (Ptr C'git_config -> Ptr C'git_config_backend -> CUInt -> CInt -> IO (CInt))
foreign import ccall "git_config_add_file_ondisk" c'git_config_add_file_ondisk
:: Ptr C'git_config -> CString -> CUInt -> CInt -> IO (CInt)
foreign import ccall "&git_config_add_file_ondisk" p'git_config_add_file_ondisk
:: FunPtr (Ptr C'git_config -> CString -> CUInt -> CInt -> IO (CInt))
foreign import ccall "git_config_open_ondisk" c'git_config_open_ondisk
:: Ptr (Ptr C'git_config) -> CString -> IO (CInt)
foreign import ccall "&git_config_open_ondisk" p'git_config_open_ondisk
:: FunPtr (Ptr (Ptr C'git_config) -> CString -> IO (CInt))
foreign import ccall "git_config_open_level" c'git_config_open_level
:: Ptr (Ptr C'git_config) -> Ptr C'git_config -> CUInt -> IO (CInt)
foreign import ccall "&git_config_open_level" p'git_config_open_level
:: FunPtr (Ptr (Ptr C'git_config) -> Ptr C'git_config -> CUInt -> IO (CInt))
foreign import ccall "git_config_refresh" c'git_config_refresh
:: Ptr C'git_config -> IO (CInt)
foreign import ccall "&git_config_refresh" p'git_config_refresh
:: FunPtr (Ptr C'git_config -> IO (CInt))
foreign import ccall "git_config_free" c'git_config_free
:: Ptr C'git_config -> IO ()
foreign import ccall "&git_config_free" p'git_config_free
:: FunPtr (Ptr C'git_config -> IO ())
foreign import ccall "git_config_get_entry" c'git_config_get_entry
:: Ptr (Ptr C'git_config_entry) -> Ptr C'git_config -> CString -> IO (CInt)
foreign import ccall "&git_config_get_entry" p'git_config_get_entry
:: FunPtr (Ptr (Ptr C'git_config_entry) -> Ptr C'git_config -> CString -> IO (CInt))
foreign import ccall "git_config_get_int32" c'git_config_get_int32
:: Ptr CInt -> Ptr C'git_config -> CString -> IO (CInt)
foreign import ccall "&git_config_get_int32" p'git_config_get_int32
:: FunPtr (Ptr CInt -> Ptr C'git_config -> CString -> IO (CInt))
foreign import ccall "git_config_get_int64" c'git_config_get_int64
:: Ptr CLong -> Ptr C'git_config -> CString -> IO (CInt)
foreign import ccall "&git_config_get_int64" p'git_config_get_int64
:: FunPtr (Ptr CLong -> Ptr C'git_config -> CString -> IO (CInt))
foreign import ccall "git_config_get_bool" c'git_config_get_bool
:: Ptr CInt -> Ptr C'git_config -> CString -> IO (CInt)
foreign import ccall "&git_config_get_bool" p'git_config_get_bool
:: FunPtr (Ptr CInt -> Ptr C'git_config -> CString -> IO (CInt))
foreign import ccall "git_config_get_string" c'git_config_get_string
:: Ptr (CString) -> Ptr C'git_config -> CString -> IO (CInt)
foreign import ccall "&git_config_get_string" p'git_config_get_string
:: FunPtr (Ptr (CString) -> Ptr C'git_config -> CString -> IO (CInt))
foreign import ccall "git_config_get_multivar" c'git_config_get_multivar
:: Ptr C'git_config -> CString -> CString -> C'git_config_foreach_cb -> Ptr () -> IO (CInt)
foreign import ccall "&git_config_get_multivar" p'git_config_get_multivar
:: FunPtr (Ptr C'git_config -> CString -> CString -> C'git_config_foreach_cb -> Ptr () -> IO (CInt))
foreign import ccall "git_config_set_int32" c'git_config_set_int32
:: Ptr C'git_config -> CString -> CInt -> IO (CInt)
foreign import ccall "&git_config_set_int32" p'git_config_set_int32
:: FunPtr (Ptr C'git_config -> CString -> CInt -> IO (CInt))
foreign import ccall "git_config_set_int64" c'git_config_set_int64
:: Ptr C'git_config -> CString -> CLong -> IO (CInt)
foreign import ccall "&git_config_set_int64" p'git_config_set_int64
:: FunPtr (Ptr C'git_config -> CString -> CLong -> IO (CInt))
foreign import ccall "git_config_set_bool" c'git_config_set_bool
:: Ptr C'git_config -> CString -> CInt -> IO (CInt)
foreign import ccall "&git_config_set_bool" p'git_config_set_bool
:: FunPtr (Ptr C'git_config -> CString -> CInt -> IO (CInt))
foreign import ccall "git_config_set_string" c'git_config_set_string
:: Ptr C'git_config -> CString -> CString -> IO (CInt)
foreign import ccall "&git_config_set_string" p'git_config_set_string
:: FunPtr (Ptr C'git_config -> CString -> CString -> IO (CInt))
foreign import ccall "git_config_set_multivar" c'git_config_set_multivar
:: Ptr C'git_config -> CString -> CString -> CString -> IO (CInt)
foreign import ccall "&git_config_set_multivar" p'git_config_set_multivar
:: FunPtr (Ptr C'git_config -> CString -> CString -> CString -> IO (CInt))
foreign import ccall "git_config_delete_entry" c'git_config_delete_entry
:: Ptr C'git_config -> CString -> IO (CInt)
foreign import ccall "&git_config_delete_entry" p'git_config_delete_entry
:: FunPtr (Ptr C'git_config -> CString -> IO (CInt))
foreign import ccall "git_config_foreach" c'git_config_foreach
:: Ptr C'git_config -> C'git_config_foreach_cb -> Ptr () -> IO (CInt)
foreign import ccall "&git_config_foreach" p'git_config_foreach
:: FunPtr (Ptr C'git_config -> C'git_config_foreach_cb -> Ptr () -> IO (CInt))
foreign import ccall "git_config_foreach_match" c'git_config_foreach_match
:: Ptr C'git_config -> CString -> C'git_config_foreach_cb -> Ptr () -> IO (CInt)
foreign import ccall "&git_config_foreach_match" p'git_config_foreach_match
:: FunPtr (Ptr C'git_config -> CString -> C'git_config_foreach_cb -> Ptr () -> IO (CInt))
foreign import ccall "git_config_get_mapped" c'git_config_get_mapped
:: Ptr CInt -> Ptr C'git_config -> CString -> Ptr C'git_cvar_map -> CSize -> IO (CInt)
foreign import ccall "&git_config_get_mapped" p'git_config_get_mapped
:: FunPtr (Ptr CInt -> Ptr C'git_config -> CString -> Ptr C'git_cvar_map -> CSize -> IO (CInt))
foreign import ccall "git_config_lookup_map_value" c'git_config_lookup_map_value
:: Ptr CInt -> Ptr C'git_cvar_map -> CSize -> CString -> IO (CInt)
foreign import ccall "&git_config_lookup_map_value" p'git_config_lookup_map_value
:: FunPtr (Ptr CInt -> Ptr C'git_cvar_map -> CSize -> CString -> IO (CInt))
foreign import ccall "git_config_parse_bool" c'git_config_parse_bool
:: Ptr CInt -> CString -> IO (CInt)
foreign import ccall "&git_config_parse_bool" p'git_config_parse_bool
:: FunPtr (Ptr CInt -> CString -> IO (CInt))
foreign import ccall "git_config_parse_int32" c'git_config_parse_int32
:: Ptr CInt -> CString -> IO (CInt)
foreign import ccall "&git_config_parse_int32" p'git_config_parse_int32
:: FunPtr (Ptr CInt -> CString -> IO (CInt))
foreign import ccall "git_config_parse_int64" c'git_config_parse_int64
:: Ptr CLong -> CString -> IO (CInt)
foreign import ccall "&git_config_parse_int64" p'git_config_parse_int64
:: FunPtr (Ptr CLong -> CString -> IO (CInt))