#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Interfaces.MemoryMonitor
(
MemoryMonitor(..) ,
noMemoryMonitor ,
IsMemoryMonitor ,
toMemoryMonitor ,
memoryMonitorDupDefault ,
C_MemoryMonitorLowMemoryWarningCallback ,
MemoryMonitorLowMemoryWarningCallback ,
#if ENABLE_OVERLOADING
MemoryMonitorLowMemoryWarningSignalInfo ,
#endif
afterMemoryMonitorLowMemoryWarning ,
genClosure_MemoryMonitorLowMemoryWarning,
mk_MemoryMonitorLowMemoryWarningCallback,
noMemoryMonitorLowMemoryWarningCallback ,
onMemoryMonitorLowMemoryWarning ,
wrap_MemoryMonitorLowMemoryWarningCallback,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Enums as Gio.Enums
import {-# SOURCE #-} qualified GI.Gio.Interfaces.Initable as Gio.Initable
newtype MemoryMonitor = MemoryMonitor (ManagedPtr MemoryMonitor)
noMemoryMonitor :: Maybe MemoryMonitor
noMemoryMonitor :: Maybe MemoryMonitor
noMemoryMonitor = Maybe MemoryMonitor
forall a. Maybe a
Nothing
type MemoryMonitorLowMemoryWarningCallback =
Gio.Enums.MemoryMonitorWarningLevel
-> IO ()
noMemoryMonitorLowMemoryWarningCallback :: Maybe MemoryMonitorLowMemoryWarningCallback
noMemoryMonitorLowMemoryWarningCallback :: Maybe MemoryMonitorLowMemoryWarningCallback
noMemoryMonitorLowMemoryWarningCallback = Maybe MemoryMonitorLowMemoryWarningCallback
forall a. Maybe a
Nothing
type C_MemoryMonitorLowMemoryWarningCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MemoryMonitorLowMemoryWarningCallback :: C_MemoryMonitorLowMemoryWarningCallback -> IO (FunPtr C_MemoryMonitorLowMemoryWarningCallback)
genClosure_MemoryMonitorLowMemoryWarning :: MemoryMonitorLowMemoryWarningCallback -> IO Closure
genClosure_MemoryMonitorLowMemoryWarning :: MemoryMonitorLowMemoryWarningCallback -> IO Closure
genClosure_MemoryMonitorLowMemoryWarning cb :: MemoryMonitorLowMemoryWarningCallback
cb = do
let cb' :: C_MemoryMonitorLowMemoryWarningCallback
cb' = MemoryMonitorLowMemoryWarningCallback
-> C_MemoryMonitorLowMemoryWarningCallback
wrap_MemoryMonitorLowMemoryWarningCallback MemoryMonitorLowMemoryWarningCallback
cb
C_MemoryMonitorLowMemoryWarningCallback
-> IO (FunPtr C_MemoryMonitorLowMemoryWarningCallback)
mk_MemoryMonitorLowMemoryWarningCallback C_MemoryMonitorLowMemoryWarningCallback
cb' IO (FunPtr C_MemoryMonitorLowMemoryWarningCallback)
-> (FunPtr C_MemoryMonitorLowMemoryWarningCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_MemoryMonitorLowMemoryWarningCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure
wrap_MemoryMonitorLowMemoryWarningCallback ::
MemoryMonitorLowMemoryWarningCallback ->
C_MemoryMonitorLowMemoryWarningCallback
wrap_MemoryMonitorLowMemoryWarningCallback :: MemoryMonitorLowMemoryWarningCallback
-> C_MemoryMonitorLowMemoryWarningCallback
wrap_MemoryMonitorLowMemoryWarningCallback _cb :: MemoryMonitorLowMemoryWarningCallback
_cb _ level :: CUInt
level _ = do
let level' :: MemoryMonitorWarningLevel
level' = (Int -> MemoryMonitorWarningLevel
forall a. Enum a => Int -> a
toEnum (Int -> MemoryMonitorWarningLevel)
-> (CUInt -> Int) -> CUInt -> MemoryMonitorWarningLevel
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
level
MemoryMonitorLowMemoryWarningCallback
_cb MemoryMonitorWarningLevel
level'
onMemoryMonitorLowMemoryWarning :: (IsMemoryMonitor a, MonadIO m) => a -> MemoryMonitorLowMemoryWarningCallback -> m SignalHandlerId
onMemoryMonitorLowMemoryWarning :: a -> MemoryMonitorLowMemoryWarningCallback -> m SignalHandlerId
onMemoryMonitorLowMemoryWarning obj :: a
obj cb :: MemoryMonitorLowMemoryWarningCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MemoryMonitorLowMemoryWarningCallback
cb' = MemoryMonitorLowMemoryWarningCallback
-> C_MemoryMonitorLowMemoryWarningCallback
wrap_MemoryMonitorLowMemoryWarningCallback MemoryMonitorLowMemoryWarningCallback
cb
FunPtr C_MemoryMonitorLowMemoryWarningCallback
cb'' <- C_MemoryMonitorLowMemoryWarningCallback
-> IO (FunPtr C_MemoryMonitorLowMemoryWarningCallback)
mk_MemoryMonitorLowMemoryWarningCallback C_MemoryMonitorLowMemoryWarningCallback
cb'
a
-> String
-> FunPtr C_MemoryMonitorLowMemoryWarningCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "low-memory-warning" FunPtr C_MemoryMonitorLowMemoryWarningCallback
cb'' SignalConnectMode
SignalConnectBefore
afterMemoryMonitorLowMemoryWarning :: (IsMemoryMonitor a, MonadIO m) => a -> MemoryMonitorLowMemoryWarningCallback -> m SignalHandlerId
afterMemoryMonitorLowMemoryWarning :: a -> MemoryMonitorLowMemoryWarningCallback -> m SignalHandlerId
afterMemoryMonitorLowMemoryWarning obj :: a
obj cb :: MemoryMonitorLowMemoryWarningCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_MemoryMonitorLowMemoryWarningCallback
cb' = MemoryMonitorLowMemoryWarningCallback
-> C_MemoryMonitorLowMemoryWarningCallback
wrap_MemoryMonitorLowMemoryWarningCallback MemoryMonitorLowMemoryWarningCallback
cb
FunPtr C_MemoryMonitorLowMemoryWarningCallback
cb'' <- C_MemoryMonitorLowMemoryWarningCallback
-> IO (FunPtr C_MemoryMonitorLowMemoryWarningCallback)
mk_MemoryMonitorLowMemoryWarningCallback C_MemoryMonitorLowMemoryWarningCallback
cb'
a
-> String
-> FunPtr C_MemoryMonitorLowMemoryWarningCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "low-memory-warning" FunPtr C_MemoryMonitorLowMemoryWarningCallback
cb'' SignalConnectMode
SignalConnectAfter
#if ENABLE_OVERLOADING
data MemoryMonitorLowMemoryWarningSignalInfo
instance SignalInfo MemoryMonitorLowMemoryWarningSignalInfo where
type HaskellCallbackType MemoryMonitorLowMemoryWarningSignalInfo = MemoryMonitorLowMemoryWarningCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_MemoryMonitorLowMemoryWarningCallback cb
cb'' <- mk_MemoryMonitorLowMemoryWarningCallback cb'
connectSignalFunPtr obj "low-memory-warning" cb'' connectMode
type instance O.SignalList MemoryMonitor = MemoryMonitorSignalList
type MemoryMonitorSignalList = ('[ '("lowMemoryWarning", MemoryMonitorLowMemoryWarningSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_memory_monitor_get_type"
c_g_memory_monitor_get_type :: IO GType
instance GObject MemoryMonitor where
gobjectType :: MemoryMonitor -> IO GType
gobjectType _ = IO GType
c_g_memory_monitor_get_type
class GObject o => IsMemoryMonitor o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError MemoryMonitor a) =>
IsMemoryMonitor a
#endif
instance IsMemoryMonitor MemoryMonitor
instance Gio.Initable.IsInitable MemoryMonitor
instance GObject.Object.IsObject MemoryMonitor
toMemoryMonitor :: (MonadIO m, IsMemoryMonitor o) => o -> m MemoryMonitor
toMemoryMonitor :: o -> m MemoryMonitor
toMemoryMonitor = IO MemoryMonitor -> m MemoryMonitor
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MemoryMonitor -> m MemoryMonitor)
-> (o -> IO MemoryMonitor) -> o -> m MemoryMonitor
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr MemoryMonitor -> MemoryMonitor)
-> o -> IO MemoryMonitor
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr MemoryMonitor -> MemoryMonitor
MemoryMonitor
#if ENABLE_OVERLOADING
instance O.HasAttributeList MemoryMonitor
type instance O.AttributeList MemoryMonitor = MemoryMonitorAttributeList
type MemoryMonitorAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type family ResolveMemoryMonitorMethod (t :: Symbol) (o :: *) :: * where
ResolveMemoryMonitorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveMemoryMonitorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveMemoryMonitorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveMemoryMonitorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveMemoryMonitorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveMemoryMonitorMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveMemoryMonitorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveMemoryMonitorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveMemoryMonitorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveMemoryMonitorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveMemoryMonitorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveMemoryMonitorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveMemoryMonitorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveMemoryMonitorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveMemoryMonitorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveMemoryMonitorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveMemoryMonitorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveMemoryMonitorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveMemoryMonitorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveMemoryMonitorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveMemoryMonitorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveMemoryMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMemoryMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMemoryMonitorMethod t MemoryMonitor, O.MethodInfo info MemoryMonitor p) => O.IsLabelProxy t (MemoryMonitor -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveMemoryMonitorMethod t MemoryMonitor, O.MethodInfo info MemoryMonitor p) => O.IsLabel t (MemoryMonitor -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
foreign import ccall "g_memory_monitor_dup_default" g_memory_monitor_dup_default ::
IO (Ptr MemoryMonitor)
memoryMonitorDupDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MemoryMonitor
memoryMonitorDupDefault :: m MemoryMonitor
memoryMonitorDupDefault = IO MemoryMonitor -> m MemoryMonitor
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MemoryMonitor -> m MemoryMonitor)
-> IO MemoryMonitor -> m MemoryMonitor
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryMonitor
result <- IO (Ptr MemoryMonitor)
g_memory_monitor_dup_default
Text -> Ptr MemoryMonitor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "memoryMonitorDupDefault" Ptr MemoryMonitor
result
MemoryMonitor
result' <- ((ManagedPtr MemoryMonitor -> MemoryMonitor)
-> Ptr MemoryMonitor -> IO MemoryMonitor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr MemoryMonitor -> MemoryMonitor
MemoryMonitor) Ptr MemoryMonitor
result
MemoryMonitor -> IO MemoryMonitor
forall (m :: * -> *) a. Monad m => a -> m a
return MemoryMonitor
result'
#if ENABLE_OVERLOADING
#endif