module Bindings.GLib.CoreApplicationSupport.MessageLogging 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
c'G_LOG_DOMAIN = wordPtrToPtr 0
c'G_LOG_DOMAIN :: Ptr a
c'G_LOG_FATAL_MASK = 5
c'G_LOG_FATAL_MASK :: (Num a) => a
c'G_LOG_LEVEL_USER_SHIFT = 8
c'G_LOG_LEVEL_USER_SHIFT :: (Num a) => a
type C'GLogFunc = FunPtr (Ptr C'gchar -> C'GLogLevelFlags -> Ptr C'gchar -> C'gpointer -> IO ())
foreign import ccall "wrapper" mk'GLogFunc
:: (Ptr C'gchar -> C'GLogLevelFlags -> Ptr C'gchar -> C'gpointer -> IO ()) -> IO C'GLogFunc
foreign import ccall "dynamic" mK'GLogFunc
:: C'GLogFunc -> (Ptr C'gchar -> C'GLogLevelFlags -> Ptr C'gchar -> C'gpointer -> IO ())
type C'GLogLevelFlags = CInt
c'G_LOG_FLAG_RECURSION = 1
c'G_LOG_FLAG_RECURSION :: (Num a) => a
c'G_LOG_FLAG_FATAL = 2
c'G_LOG_FLAG_FATAL :: (Num a) => a
c'G_LOG_LEVEL_ERROR = 4
c'G_LOG_LEVEL_ERROR :: (Num a) => a
c'G_LOG_LEVEL_CRITICAL = 8
c'G_LOG_LEVEL_CRITICAL :: (Num a) => a
c'G_LOG_LEVEL_WARNING = 16
c'G_LOG_LEVEL_WARNING :: (Num a) => a
c'G_LOG_LEVEL_MESSAGE = 32
c'G_LOG_LEVEL_MESSAGE :: (Num a) => a
c'G_LOG_LEVEL_INFO = 64
c'G_LOG_LEVEL_INFO :: (Num a) => a
c'G_LOG_LEVEL_DEBUG = 128
c'G_LOG_LEVEL_DEBUG :: (Num a) => a
c'G_LOG_LEVEL_MASK = 4
c'G_LOG_LEVEL_MASK :: (Num a) => a
foreign import ccall "g_log_set_handler" c'g_log_set_handler
:: Ptr C'gchar -> C'GLogLevelFlags -> C'GLogFunc -> C'gpointer -> IO C'guint
foreign import ccall "&g_log_set_handler" p'g_log_set_handler
:: FunPtr (Ptr C'gchar -> C'GLogLevelFlags -> C'GLogFunc -> C'gpointer -> IO C'guint)
foreign import ccall "g_log_remove_handler" c'g_log_remove_handler
:: Ptr C'gchar -> C'guint -> IO ()
foreign import ccall "&g_log_remove_handler" p'g_log_remove_handler
:: FunPtr (Ptr C'gchar -> C'guint -> IO ())
foreign import ccall "g_log_set_always_fatal" c'g_log_set_always_fatal
:: C'GLogLevelFlags -> IO C'GLogLevelFlags
foreign import ccall "&g_log_set_always_fatal" p'g_log_set_always_fatal
:: FunPtr (C'GLogLevelFlags -> IO C'GLogLevelFlags)
foreign import ccall "g_log_set_fatal_mask" c'g_log_set_fatal_mask
:: Ptr C'gchar -> C'GLogLevelFlags -> IO C'GLogLevelFlags
foreign import ccall "&g_log_set_fatal_mask" p'g_log_set_fatal_mask
:: FunPtr (Ptr C'gchar -> C'GLogLevelFlags -> IO C'GLogLevelFlags)
foreign import ccall "g_log_default_handler" c'g_log_default_handler
:: Ptr C'gchar -> C'GLogLevelFlags -> Ptr C'gchar -> C'gpointer -> IO ()
foreign import ccall "&g_log_default_handler" p'g_log_default_handler
:: FunPtr (Ptr C'gchar -> C'GLogLevelFlags -> Ptr C'gchar -> C'gpointer -> IO ())
foreign import ccall "g_log_set_default_handler" c'g_log_set_default_handler
:: C'GLogFunc -> C'gpointer -> IO C'GLogFunc
foreign import ccall "&g_log_set_default_handler" p'g_log_set_default_handler
:: FunPtr (C'GLogFunc -> C'gpointer -> IO C'GLogFunc)