#include #include module Bindings.Libgit2.Config where #strict_import import Bindings.Libgit2.Common import Bindings.Libgit2.Types {- struct git_config_file { struct git_config * cfg; int (* open)(struct git_config_file *); int (* get)(struct git_config_file *, const char * key, const char * * value); int (* get_multivar)(struct git_config_file *, const char * key, const char * regexp, int (* fn)(const char *, void *), void * data); int (* set)(struct git_config_file *, const char * key, const char * value); int (* set_multivar)(git_config_file * cfg, const char * name, const char * regexp, const char * value); int (* del)(struct git_config_file *, const char * key); int (* foreach)(struct git_config_file *, int (* fn)(const char *, const char *, void *), void * data); void (* free)(struct git_config_file *); }; -} #starttype git_config_file #field cfg , Ptr #field open , FunPtr (Ptr -> CInt) #field get , FunPtr (Ptr -> CString -> Ptr (CString) -> CInt) #field get_multivar , FunPtr (Ptr -> CString -> CString -> FunPtr (CString -> Ptr () -> CInt) -> Ptr () -> CInt) #field set , FunPtr (Ptr -> CString -> CString -> CInt) #field set_multivar , FunPtr (Ptr -> CString -> CString -> CString -> CInt) #field del , FunPtr (Ptr -> CString -> CInt) #field foreach , FunPtr (Ptr -> FunPtr (CString -> CString -> Ptr () -> CInt) -> Ptr () -> CInt) #field free , FunPtr (Ptr ) #stoptype {- typedef enum { GIT_CVAR_FALSE = 0, GIT_CVAR_TRUE = 1, GIT_CVAR_INT32, GIT_CVAR_STRING } git_cvar_t; -} #integral_t git_cvar_t #num GIT_CVAR_FALSE #num GIT_CVAR_TRUE #num GIT_CVAR_INT32 #num GIT_CVAR_STRING {- typedef struct { git_cvar_t cvar_type; const char * str_match; int map_value; } git_cvar_map; -} #starttype git_cvar_map #field cvar_type , #field str_match , CString #field map_value , CInt #stoptype #ccall git_config_find_global , CString -> CSize -> IO (CInt) #ccall git_config_find_system , CString -> CSize -> IO (CInt) #ccall git_config_open_global , Ptr (Ptr ) -> IO (CInt) #ccall git_config_file__ondisk , Ptr (Ptr ) -> CString -> IO (CInt) #ccall git_config_new , Ptr (Ptr ) -> IO (CInt) #ccall git_config_add_file , Ptr -> Ptr -> CInt -> IO (CInt) #ccall git_config_add_file_ondisk , Ptr -> CString -> CInt -> IO (CInt) #ccall git_config_open_ondisk , Ptr (Ptr ) -> CString -> IO (CInt) #ccall git_config_free , Ptr -> IO () #ccall git_config_get_int32 , Ptr CInt -> Ptr -> CString -> IO (CInt) #ccall git_config_get_int64 , Ptr CLong -> Ptr -> CString -> IO (CInt) #ccall git_config_get_bool , Ptr CInt -> Ptr -> CString -> IO (CInt) #ccall git_config_get_string , Ptr (CString) -> Ptr -> CString -> IO (CInt) #ccall git_config_get_multivar , Ptr -> CString -> CString -> FunPtr (CString -> Ptr () -> CInt) -> Ptr () -> IO (CInt) #ccall git_config_set_int32 , Ptr -> CString -> CInt -> IO (CInt) #ccall git_config_set_int64 , Ptr -> CString -> CLong -> IO (CInt) #ccall git_config_set_bool , Ptr -> CString -> CInt -> IO (CInt) #ccall git_config_set_string , Ptr -> CString -> CString -> IO (CInt) #ccall git_config_set_multivar , Ptr -> CString -> CString -> CString -> IO (CInt) #ccall git_config_delete , Ptr -> CString -> IO (CInt) #ccall git_config_foreach , Ptr -> FunPtr (CString -> CString -> Ptr () -> CInt) -> Ptr () -> IO (CInt) #ccall git_config_get_mapped , Ptr CInt -> Ptr -> CString -> Ptr -> CSize -> IO (CInt)