{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GLib.Structs.TrashStack
(
TrashStack(..) ,
newZeroTrashStack ,
#if defined(ENABLE_OVERLOADING)
ResolveTrashStackMethod ,
#endif
trashStackHeight ,
trashStackPeek ,
trashStackPop ,
trashStackPush ,
clearTrashStackNext ,
getTrashStackNext ,
setTrashStackNext ,
#if defined(ENABLE_OVERLOADING)
trashStack_next ,
#endif
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.Records as R
newtype TrashStack = TrashStack (SP.ManagedPtr TrashStack)
deriving (TrashStack -> TrashStack -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TrashStack -> TrashStack -> Bool
$c/= :: TrashStack -> TrashStack -> Bool
== :: TrashStack -> TrashStack -> Bool
$c== :: TrashStack -> TrashStack -> Bool
Eq)
instance SP.ManagedPtrNewtype TrashStack where
toManagedPtr :: TrashStack -> ManagedPtr TrashStack
toManagedPtr (TrashStack ManagedPtr TrashStack
p) = ManagedPtr TrashStack
p
instance BoxedPtr TrashStack where
boxedPtrCopy :: TrashStack -> IO TrashStack
boxedPtrCopy = \TrashStack
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TrashStack
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
4 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr TrashStack -> TrashStack
TrashStack)
boxedPtrFree :: TrashStack -> IO ()
boxedPtrFree = \TrashStack
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr TrashStack
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr TrashStack where
boxedPtrCalloc :: IO (Ptr TrashStack)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
4
newZeroTrashStack :: MonadIO m => m TrashStack
newZeroTrashStack :: forall (m :: * -> *). MonadIO m => m TrashStack
newZeroTrashStack = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr TrashStack -> TrashStack
TrashStack
instance tag ~ 'AttrSet => Constructible TrashStack tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr TrashStack -> TrashStack)
-> [AttrOp TrashStack tag] -> m TrashStack
new ManagedPtr TrashStack -> TrashStack
_ [AttrOp TrashStack tag]
attrs = do
TrashStack
o <- forall (m :: * -> *). MonadIO m => m TrashStack
newZeroTrashStack
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set TrashStack
o [AttrOp TrashStack tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return TrashStack
o
getTrashStackNext :: MonadIO m => TrashStack -> m (Maybe TrashStack)
getTrashStackNext :: forall (m :: * -> *).
MonadIO m =>
TrashStack -> m (Maybe TrashStack)
getTrashStackNext TrashStack
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TrashStack
s forall a b. (a -> b) -> a -> b
$ \Ptr TrashStack
ptr -> do
Ptr TrashStack
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr TrashStack
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO (Ptr TrashStack)
Maybe TrashStack
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr TrashStack
val forall a b. (a -> b) -> a -> b
$ \Ptr TrashStack
val' -> do
TrashStack
val'' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr TrashStack -> TrashStack
TrashStack) Ptr TrashStack
val'
forall (m :: * -> *) a. Monad m => a -> m a
return TrashStack
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TrashStack
result
setTrashStackNext :: MonadIO m => TrashStack -> Ptr TrashStack -> m ()
setTrashStackNext :: forall (m :: * -> *).
MonadIO m =>
TrashStack -> Ptr TrashStack -> m ()
setTrashStackNext TrashStack
s Ptr TrashStack
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TrashStack
s forall a b. (a -> b) -> a -> b
$ \Ptr TrashStack
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TrashStack
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (Ptr TrashStack
val :: Ptr TrashStack)
clearTrashStackNext :: MonadIO m => TrashStack -> m ()
clearTrashStackNext :: forall (m :: * -> *). MonadIO m => TrashStack -> m ()
clearTrashStackNext TrashStack
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr TrashStack
s forall a b. (a -> b) -> a -> b
$ \Ptr TrashStack
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr TrashStack
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (forall a. Ptr a
FP.nullPtr :: Ptr TrashStack)
#if defined(ENABLE_OVERLOADING)
data TrashStackNextFieldInfo
instance AttrInfo TrashStackNextFieldInfo where
type AttrBaseTypeConstraint TrashStackNextFieldInfo = (~) TrashStack
type AttrAllowedOps TrashStackNextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TrashStackNextFieldInfo = (~) (Ptr TrashStack)
type AttrTransferTypeConstraint TrashStackNextFieldInfo = (~)(Ptr TrashStack)
type AttrTransferType TrashStackNextFieldInfo = (Ptr TrashStack)
type AttrGetType TrashStackNextFieldInfo = Maybe TrashStack
type AttrLabel TrashStackNextFieldInfo = "next"
type AttrOrigin TrashStackNextFieldInfo = TrashStack
attrGet = getTrashStackNext
attrSet = setTrashStackNext
attrConstruct = undefined
attrClear = clearTrashStackNext
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.TrashStack.next"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-TrashStack.html#g:attr:next"
})
trashStack_next :: AttrLabelProxy "next"
trashStack_next = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TrashStack
type instance O.AttributeList TrashStack = TrashStackAttributeList
type TrashStackAttributeList = ('[ '("next", TrashStackNextFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_trash_stack_height" g_trash_stack_height ::
Ptr TrashStack ->
IO Word32
{-# DEPRECATED trashStackHeight ["(Since version 2.48)","t'GI.GLib.Structs.TrashStack.TrashStack' is deprecated without replacement"] #-}
trashStackHeight ::
(B.CallStack.HasCallStack, MonadIO m) =>
TrashStack
-> m Word32
trashStackHeight :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TrashStack -> m Word32
trashStackHeight TrashStack
stackP = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TrashStack
stackP' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TrashStack
stackP
Word32
result <- Ptr TrashStack -> IO Word32
g_trash_stack_height Ptr TrashStack
stackP'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TrashStack
stackP
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_trash_stack_peek" g_trash_stack_peek ::
Ptr TrashStack ->
IO (Ptr ())
{-# DEPRECATED trashStackPeek ["(Since version 2.48)","t'GI.GLib.Structs.TrashStack.TrashStack' is deprecated without replacement"] #-}
trashStackPeek ::
(B.CallStack.HasCallStack, MonadIO m) =>
TrashStack
-> m (Ptr ())
trashStackPeek :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TrashStack -> m (Ptr ())
trashStackPeek TrashStack
stackP = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TrashStack
stackP' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TrashStack
stackP
Ptr ()
result <- Ptr TrashStack -> IO (Ptr ())
g_trash_stack_peek Ptr TrashStack
stackP'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TrashStack
stackP
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_trash_stack_pop" g_trash_stack_pop ::
Ptr TrashStack ->
IO (Ptr ())
{-# DEPRECATED trashStackPop ["(Since version 2.48)","t'GI.GLib.Structs.TrashStack.TrashStack' is deprecated without replacement"] #-}
trashStackPop ::
(B.CallStack.HasCallStack, MonadIO m) =>
TrashStack
-> m (Ptr ())
trashStackPop :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TrashStack -> m (Ptr ())
trashStackPop TrashStack
stackP = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TrashStack
stackP' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TrashStack
stackP
Ptr ()
result <- Ptr TrashStack -> IO (Ptr ())
g_trash_stack_pop Ptr TrashStack
stackP'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TrashStack
stackP
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ()
result
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "g_trash_stack_push" g_trash_stack_push ::
Ptr TrashStack ->
Ptr () ->
IO ()
{-# DEPRECATED trashStackPush ["(Since version 2.48)","t'GI.GLib.Structs.TrashStack.TrashStack' is deprecated without replacement"] #-}
trashStackPush ::
(B.CallStack.HasCallStack, MonadIO m) =>
TrashStack
-> Ptr ()
-> m ()
trashStackPush :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
TrashStack -> Ptr () -> m ()
trashStackPush TrashStack
stackP Ptr ()
dataP = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr TrashStack
stackP' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TrashStack
stackP
Ptr TrashStack -> Ptr () -> IO ()
g_trash_stack_push Ptr TrashStack
stackP' Ptr ()
dataP
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TrashStack
stackP
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveTrashStackMethod (t :: Symbol) (o :: *) :: * where
ResolveTrashStackMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTrashStackMethod t TrashStack, O.OverloadedMethod info TrashStack p) => OL.IsLabel t (TrashStack -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveTrashStackMethod t TrashStack, O.OverloadedMethod info TrashStack p, R.HasField t TrashStack p) => R.HasField t TrashStack p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTrashStackMethod t TrashStack, O.OverloadedMethodInfo info TrashStack) => OL.IsLabel t (O.MethodProxy info TrashStack) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif