{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Interfaces.MemoryMonitor
(
MemoryMonitor(..) ,
noMemoryMonitor ,
IsMemoryMonitor ,
toMemoryMonitor ,
#if defined(ENABLE_OVERLOADING)
ResolveMemoryMonitorMethod ,
#endif
memoryMonitorDupDefault ,
C_MemoryMonitorLowMemoryWarningCallback ,
MemoryMonitorLowMemoryWarningCallback ,
#if defined(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.GClosure as B.GClosure
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.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
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 GHC.OverloadedLabels as OL
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)
deriving (Eq)
noMemoryMonitor :: Maybe MemoryMonitor
noMemoryMonitor = Nothing
type MemoryMonitorLowMemoryWarningCallback =
Gio.Enums.MemoryMonitorWarningLevel
-> IO ()
noMemoryMonitorLowMemoryWarningCallback :: Maybe MemoryMonitorLowMemoryWarningCallback
noMemoryMonitorLowMemoryWarningCallback = Nothing
type C_MemoryMonitorLowMemoryWarningCallback =
Ptr () ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_MemoryMonitorLowMemoryWarningCallback :: C_MemoryMonitorLowMemoryWarningCallback -> IO (FunPtr C_MemoryMonitorLowMemoryWarningCallback)
genClosure_MemoryMonitorLowMemoryWarning :: MonadIO m => MemoryMonitorLowMemoryWarningCallback -> m (GClosure C_MemoryMonitorLowMemoryWarningCallback)
genClosure_MemoryMonitorLowMemoryWarning cb = liftIO $ do
let cb' = wrap_MemoryMonitorLowMemoryWarningCallback cb
mk_MemoryMonitorLowMemoryWarningCallback cb' >>= B.GClosure.newGClosure
wrap_MemoryMonitorLowMemoryWarningCallback ::
MemoryMonitorLowMemoryWarningCallback ->
C_MemoryMonitorLowMemoryWarningCallback
wrap_MemoryMonitorLowMemoryWarningCallback _cb _ level _ = do
let level' = (toEnum . fromIntegral) level
_cb level'
onMemoryMonitorLowMemoryWarning :: (IsMemoryMonitor a, MonadIO m) => a -> MemoryMonitorLowMemoryWarningCallback -> m SignalHandlerId
onMemoryMonitorLowMemoryWarning obj cb = liftIO $ do
let cb' = wrap_MemoryMonitorLowMemoryWarningCallback cb
cb'' <- mk_MemoryMonitorLowMemoryWarningCallback cb'
connectSignalFunPtr obj "low-memory-warning" cb'' SignalConnectBefore Nothing
afterMemoryMonitorLowMemoryWarning :: (IsMemoryMonitor a, MonadIO m) => a -> MemoryMonitorLowMemoryWarningCallback -> m SignalHandlerId
afterMemoryMonitorLowMemoryWarning obj cb = liftIO $ do
let cb' = wrap_MemoryMonitorLowMemoryWarningCallback cb
cb'' <- mk_MemoryMonitorLowMemoryWarningCallback cb'
connectSignalFunPtr obj "low-memory-warning" cb'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data MemoryMonitorLowMemoryWarningSignalInfo
instance SignalInfo MemoryMonitorLowMemoryWarningSignalInfo where
type HaskellCallbackType MemoryMonitorLowMemoryWarningSignalInfo = MemoryMonitorLowMemoryWarningCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_MemoryMonitorLowMemoryWarningCallback cb
cb'' <- mk_MemoryMonitorLowMemoryWarningCallback cb'
connectSignalFunPtr obj "low-memory-warning" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
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 = c_g_memory_monitor_get_type
instance B.GValue.IsGValue MemoryMonitor where
toGValue o = do
gtype <- c_g_memory_monitor_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr MemoryMonitor)
B.ManagedPtr.newObject MemoryMonitor ptr
class (GObject o, O.IsDescendantOf MemoryMonitor o) => IsMemoryMonitor o
instance (GObject o, O.IsDescendantOf MemoryMonitor o) => IsMemoryMonitor o
instance O.HasParentTypes MemoryMonitor
type instance O.ParentTypes MemoryMonitor = '[Gio.Initable.Initable, GObject.Object.Object]
toMemoryMonitor :: (MonadIO m, IsMemoryMonitor o) => o -> m MemoryMonitor
toMemoryMonitor = liftIO . unsafeCastTo MemoryMonitor
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MemoryMonitor
type instance O.AttributeList MemoryMonitor = MemoryMonitorAttributeList
type MemoryMonitorAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveMemoryMonitorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveMemoryMonitorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMemoryMonitorMethod t MemoryMonitor, O.MethodInfo info MemoryMonitor p) => OL.IsLabel t (MemoryMonitor -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#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 = liftIO $ do
result <- g_memory_monitor_dup_default
checkUnexpectedReturnNULL "memoryMonitorDupDefault" result
result' <- (wrapObject MemoryMonitor) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif