module Bindings.GLib.CoreApplicationSupport.ErrorReporting 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.GLib.Fundamentals
import Bindings.GLib.DataTypes.Quarks
data C'GError = C'GError{
c'GError'domain :: C'GQuark
,
c'GError'code :: C'gint
,
c'GError'message :: Ptr C'gchar
} deriving (Eq,Show)
instance Storable C'GError where
sizeOf _ = 12
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
v2 <- peekByteOff p 8
return $ C'GError v0 v1 v2
poke p (C'GError v0 v1 v2) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
pokeByteOff p 8 v2
return ()
foreign import ccall "g_error_new_literal" c'g_error_new_literal
:: C'GQuark -> C'gint -> Ptr C'gchar -> IO (Ptr C'GError)
foreign import ccall "&g_error_new_literal" p'g_error_new_literal
:: FunPtr (C'GQuark -> C'gint -> Ptr C'gchar -> IO (Ptr C'GError))
foreign import ccall "g_error_free" c'g_error_free
:: Ptr C'GError -> IO ()
foreign import ccall "&g_error_free" p'g_error_free
:: FunPtr (Ptr C'GError -> IO ())
foreign import ccall "g_error_copy" c'g_error_copy
:: Ptr C'GError -> IO (Ptr C'GError)
foreign import ccall "&g_error_copy" p'g_error_copy
:: FunPtr (Ptr C'GError -> IO (Ptr C'GError))
foreign import ccall "g_error_matches" c'g_error_matches
:: Ptr C'GError -> C'GQuark -> C'gint -> IO C'gboolean
foreign import ccall "&g_error_matches" p'g_error_matches
:: FunPtr (Ptr C'GError -> C'GQuark -> C'gint -> IO C'gboolean)
foreign import ccall "g_set_error_literal" c'g_set_error_literal
:: Ptr (Ptr C'GError) -> C'GQuark -> C'gint -> Ptr C'gchar -> IO ()
foreign import ccall "&g_set_error_literal" p'g_set_error_literal
:: FunPtr (Ptr (Ptr C'GError) -> C'GQuark -> C'gint -> Ptr C'gchar -> IO ())
foreign import ccall "g_propagate_error" c'g_propagate_error
:: Ptr (Ptr C'GError) -> Ptr C'GError -> IO ()
foreign import ccall "&g_propagate_error" p'g_propagate_error
:: FunPtr (Ptr (Ptr C'GError) -> Ptr C'GError -> IO ())
foreign import ccall "g_clear_error" c'g_clear_error
:: Ptr (Ptr C'GError) -> IO ()
foreign import ccall "&g_clear_error" p'g_clear_error
:: FunPtr (Ptr (Ptr C'GError) -> IO ())