#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gst.Structs.AtomicQueue
(
AtomicQueue(..) ,
noAtomicQueue ,
#if ENABLE_OVERLOADING
AtomicQueueLengthMethodInfo ,
#endif
atomicQueueLength ,
atomicQueueNew ,
#if ENABLE_OVERLOADING
AtomicQueuePeekMethodInfo ,
#endif
atomicQueuePeek ,
#if ENABLE_OVERLOADING
AtomicQueuePopMethodInfo ,
#endif
atomicQueuePop ,
#if ENABLE_OVERLOADING
AtomicQueuePushMethodInfo ,
#endif
atomicQueuePush ,
#if ENABLE_OVERLOADING
AtomicQueueRefMethodInfo ,
#endif
atomicQueueRef ,
#if ENABLE_OVERLOADING
AtomicQueueUnrefMethodInfo ,
#endif
atomicQueueUnref ,
) 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.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
newtype AtomicQueue = AtomicQueue (ManagedPtr AtomicQueue)
foreign import ccall "gst_atomic_queue_get_type" c_gst_atomic_queue_get_type ::
IO GType
instance BoxedObject AtomicQueue where
boxedType _ = c_gst_atomic_queue_get_type
noAtomicQueue :: Maybe AtomicQueue
noAtomicQueue = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList AtomicQueue
type instance O.AttributeList AtomicQueue = AtomicQueueAttributeList
type AtomicQueueAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "gst_atomic_queue_new" gst_atomic_queue_new ::
Word32 ->
IO (Ptr AtomicQueue)
atomicQueueNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Word32
-> m AtomicQueue
atomicQueueNew initialSize = liftIO $ do
result <- gst_atomic_queue_new initialSize
checkUnexpectedReturnNULL "atomicQueueNew" result
result' <- (wrapBoxed AtomicQueue) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gst_atomic_queue_length" gst_atomic_queue_length ::
Ptr AtomicQueue ->
IO Word32
atomicQueueLength ::
(B.CallStack.HasCallStack, MonadIO m) =>
AtomicQueue
-> m Word32
atomicQueueLength queue = liftIO $ do
queue' <- unsafeManagedPtrGetPtr queue
result <- gst_atomic_queue_length queue'
touchManagedPtr queue
return result
#if ENABLE_OVERLOADING
data AtomicQueueLengthMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo AtomicQueueLengthMethodInfo AtomicQueue signature where
overloadedMethod _ = atomicQueueLength
#endif
foreign import ccall "gst_atomic_queue_peek" gst_atomic_queue_peek ::
Ptr AtomicQueue ->
IO (Ptr ())
atomicQueuePeek ::
(B.CallStack.HasCallStack, MonadIO m) =>
AtomicQueue
-> m (Ptr ())
atomicQueuePeek queue = liftIO $ do
queue' <- unsafeManagedPtrGetPtr queue
result <- gst_atomic_queue_peek queue'
touchManagedPtr queue
return result
#if ENABLE_OVERLOADING
data AtomicQueuePeekMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m) => O.MethodInfo AtomicQueuePeekMethodInfo AtomicQueue signature where
overloadedMethod _ = atomicQueuePeek
#endif
foreign import ccall "gst_atomic_queue_pop" gst_atomic_queue_pop ::
Ptr AtomicQueue ->
IO (Ptr ())
atomicQueuePop ::
(B.CallStack.HasCallStack, MonadIO m) =>
AtomicQueue
-> m (Ptr ())
atomicQueuePop queue = liftIO $ do
queue' <- unsafeManagedPtrGetPtr queue
result <- gst_atomic_queue_pop queue'
touchManagedPtr queue
return result
#if ENABLE_OVERLOADING
data AtomicQueuePopMethodInfo
instance (signature ~ (m (Ptr ())), MonadIO m) => O.MethodInfo AtomicQueuePopMethodInfo AtomicQueue signature where
overloadedMethod _ = atomicQueuePop
#endif
foreign import ccall "gst_atomic_queue_push" gst_atomic_queue_push ::
Ptr AtomicQueue ->
Ptr () ->
IO ()
atomicQueuePush ::
(B.CallStack.HasCallStack, MonadIO m) =>
AtomicQueue
-> Ptr ()
-> m ()
atomicQueuePush queue data_ = liftIO $ do
queue' <- unsafeManagedPtrGetPtr queue
gst_atomic_queue_push queue' data_
touchManagedPtr queue
return ()
#if ENABLE_OVERLOADING
data AtomicQueuePushMethodInfo
instance (signature ~ (Ptr () -> m ()), MonadIO m) => O.MethodInfo AtomicQueuePushMethodInfo AtomicQueue signature where
overloadedMethod _ = atomicQueuePush
#endif
foreign import ccall "gst_atomic_queue_ref" gst_atomic_queue_ref ::
Ptr AtomicQueue ->
IO ()
atomicQueueRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
AtomicQueue
-> m ()
atomicQueueRef queue = liftIO $ do
queue' <- unsafeManagedPtrGetPtr queue
gst_atomic_queue_ref queue'
touchManagedPtr queue
return ()
#if ENABLE_OVERLOADING
data AtomicQueueRefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo AtomicQueueRefMethodInfo AtomicQueue signature where
overloadedMethod _ = atomicQueueRef
#endif
foreign import ccall "gst_atomic_queue_unref" gst_atomic_queue_unref ::
Ptr AtomicQueue ->
IO ()
atomicQueueUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
AtomicQueue
-> m ()
atomicQueueUnref queue = liftIO $ do
queue' <- unsafeManagedPtrGetPtr queue
gst_atomic_queue_unref queue'
touchManagedPtr queue
return ()
#if ENABLE_OVERLOADING
data AtomicQueueUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo AtomicQueueUnrefMethodInfo AtomicQueue signature where
overloadedMethod _ = atomicQueueUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveAtomicQueueMethod (t :: Symbol) (o :: *) :: * where
ResolveAtomicQueueMethod "length" o = AtomicQueueLengthMethodInfo
ResolveAtomicQueueMethod "peek" o = AtomicQueuePeekMethodInfo
ResolveAtomicQueueMethod "pop" o = AtomicQueuePopMethodInfo
ResolveAtomicQueueMethod "push" o = AtomicQueuePushMethodInfo
ResolveAtomicQueueMethod "ref" o = AtomicQueueRefMethodInfo
ResolveAtomicQueueMethod "unref" o = AtomicQueueUnrefMethodInfo
ResolveAtomicQueueMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAtomicQueueMethod t AtomicQueue, O.MethodInfo info AtomicQueue p) => OL.IsLabel t (AtomicQueue -> 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