{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gst.Structs.Poll
(
Poll(..) ,
noPoll ,
#if defined(ENABLE_OVERLOADING)
ResolvePollMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PollAddFdMethodInfo ,
#endif
pollAddFd ,
#if defined(ENABLE_OVERLOADING)
PollFdCanReadMethodInfo ,
#endif
pollFdCanRead ,
#if defined(ENABLE_OVERLOADING)
PollFdCanWriteMethodInfo ,
#endif
pollFdCanWrite ,
#if defined(ENABLE_OVERLOADING)
PollFdCtlPriMethodInfo ,
#endif
pollFdCtlPri ,
#if defined(ENABLE_OVERLOADING)
PollFdCtlReadMethodInfo ,
#endif
pollFdCtlRead ,
#if defined(ENABLE_OVERLOADING)
PollFdCtlWriteMethodInfo ,
#endif
pollFdCtlWrite ,
#if defined(ENABLE_OVERLOADING)
PollFdHasClosedMethodInfo ,
#endif
pollFdHasClosed ,
#if defined(ENABLE_OVERLOADING)
PollFdHasErrorMethodInfo ,
#endif
pollFdHasError ,
#if defined(ENABLE_OVERLOADING)
PollFdHasPriMethodInfo ,
#endif
pollFdHasPri ,
#if defined(ENABLE_OVERLOADING)
PollFdIgnoredMethodInfo ,
#endif
pollFdIgnored ,
#if defined(ENABLE_OVERLOADING)
PollGetReadGpollfdMethodInfo ,
#endif
pollGetReadGpollfd ,
#if defined(ENABLE_OVERLOADING)
PollReadControlMethodInfo ,
#endif
pollReadControl ,
#if defined(ENABLE_OVERLOADING)
PollRemoveFdMethodInfo ,
#endif
pollRemoveFd ,
#if defined(ENABLE_OVERLOADING)
PollRestartMethodInfo ,
#endif
pollRestart ,
#if defined(ENABLE_OVERLOADING)
PollSetControllableMethodInfo ,
#endif
pollSetControllable ,
#if defined(ENABLE_OVERLOADING)
PollSetFlushingMethodInfo ,
#endif
pollSetFlushing ,
#if defined(ENABLE_OVERLOADING)
PollWaitMethodInfo ,
#endif
pollWait ,
#if defined(ENABLE_OVERLOADING)
PollWriteControlMethodInfo ,
#endif
pollWriteControl ,
) 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.GLib.Structs.PollFD as GLib.PollFD
import {-# SOURCE #-} qualified GI.Gst.Structs.PollFD as Gst.PollFD
newtype Poll = Poll (ManagedPtr Poll)
deriving (Poll -> Poll -> Bool
(Poll -> Poll -> Bool) -> (Poll -> Poll -> Bool) -> Eq Poll
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Poll -> Poll -> Bool
$c/= :: Poll -> Poll -> Bool
== :: Poll -> Poll -> Bool
$c== :: Poll -> Poll -> Bool
Eq)
instance WrappedPtr Poll where
wrappedPtrCalloc :: IO (Ptr Poll)
wrappedPtrCalloc = Ptr Poll -> IO (Ptr Poll)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Poll
forall a. Ptr a
nullPtr
wrappedPtrCopy :: Poll -> IO Poll
wrappedPtrCopy = Poll -> IO Poll
forall (m :: * -> *) a. Monad m => a -> m a
return
wrappedPtrFree :: Maybe (GDestroyNotify Poll)
wrappedPtrFree = Maybe (GDestroyNotify Poll)
forall a. Maybe a
Nothing
noPoll :: Maybe Poll
noPoll :: Maybe Poll
noPoll = Maybe Poll
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Poll
type instance O.AttributeList Poll = PollAttributeList
type PollAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "gst_poll_add_fd" gst_poll_add_fd ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollAddFd ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollAddFd :: Poll -> PollFD -> m Bool
pollAddFd set :: Poll
set fd :: PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_add_fd Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollAddFdMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.MethodInfo PollAddFdMethodInfo Poll signature where
overloadedMethod = pollAddFd
#endif
foreign import ccall "gst_poll_fd_can_read" gst_poll_fd_can_read ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdCanRead ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdCanRead :: Poll -> PollFD -> m Bool
pollFdCanRead set :: Poll
set fd :: PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_can_read Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCanReadMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.MethodInfo PollFdCanReadMethodInfo Poll signature where
overloadedMethod = pollFdCanRead
#endif
foreign import ccall "gst_poll_fd_can_write" gst_poll_fd_can_write ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdCanWrite ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdCanWrite :: Poll -> PollFD -> m Bool
pollFdCanWrite set :: Poll
set fd :: PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_can_write Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCanWriteMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.MethodInfo PollFdCanWriteMethodInfo Poll signature where
overloadedMethod = pollFdCanWrite
#endif
foreign import ccall "gst_poll_fd_ctl_pri" gst_poll_fd_ctl_pri ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
CInt ->
IO CInt
pollFdCtlPri ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> Bool
-> m Bool
pollFdCtlPri :: Poll -> PollFD -> Bool -> m Bool
pollFdCtlPri set :: Poll
set fd :: PollFD
fd active :: Bool
active = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
let active' :: CInt
active' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
active
CInt
result <- Ptr Poll -> Ptr PollFD -> CInt -> IO CInt
gst_poll_fd_ctl_pri Ptr Poll
set' Ptr PollFD
fd' CInt
active'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCtlPriMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> Bool -> m Bool), MonadIO m) => O.MethodInfo PollFdCtlPriMethodInfo Poll signature where
overloadedMethod = pollFdCtlPri
#endif
foreign import ccall "gst_poll_fd_ctl_read" gst_poll_fd_ctl_read ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
CInt ->
IO CInt
pollFdCtlRead ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> Bool
-> m Bool
pollFdCtlRead :: Poll -> PollFD -> Bool -> m Bool
pollFdCtlRead set :: Poll
set fd :: PollFD
fd active :: Bool
active = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
let active' :: CInt
active' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
active
CInt
result <- Ptr Poll -> Ptr PollFD -> CInt -> IO CInt
gst_poll_fd_ctl_read Ptr Poll
set' Ptr PollFD
fd' CInt
active'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCtlReadMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> Bool -> m Bool), MonadIO m) => O.MethodInfo PollFdCtlReadMethodInfo Poll signature where
overloadedMethod = pollFdCtlRead
#endif
foreign import ccall "gst_poll_fd_ctl_write" gst_poll_fd_ctl_write ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
CInt ->
IO CInt
pollFdCtlWrite ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> Bool
-> m Bool
pollFdCtlWrite :: Poll -> PollFD -> Bool -> m Bool
pollFdCtlWrite set :: Poll
set fd :: PollFD
fd active :: Bool
active = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
let active' :: CInt
active' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
active
CInt
result <- Ptr Poll -> Ptr PollFD -> CInt -> IO CInt
gst_poll_fd_ctl_write Ptr Poll
set' Ptr PollFD
fd' CInt
active'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdCtlWriteMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> Bool -> m Bool), MonadIO m) => O.MethodInfo PollFdCtlWriteMethodInfo Poll signature where
overloadedMethod = pollFdCtlWrite
#endif
foreign import ccall "gst_poll_fd_has_closed" gst_poll_fd_has_closed ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdHasClosed ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdHasClosed :: Poll -> PollFD -> m Bool
pollFdHasClosed set :: Poll
set fd :: PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_has_closed Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdHasClosedMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.MethodInfo PollFdHasClosedMethodInfo Poll signature where
overloadedMethod = pollFdHasClosed
#endif
foreign import ccall "gst_poll_fd_has_error" gst_poll_fd_has_error ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdHasError ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdHasError :: Poll -> PollFD -> m Bool
pollFdHasError set :: Poll
set fd :: PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_has_error Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdHasErrorMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.MethodInfo PollFdHasErrorMethodInfo Poll signature where
overloadedMethod = pollFdHasError
#endif
foreign import ccall "gst_poll_fd_has_pri" gst_poll_fd_has_pri ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollFdHasPri ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollFdHasPri :: Poll -> PollFD -> m Bool
pollFdHasPri set :: Poll
set fd :: PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_fd_has_pri Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollFdHasPriMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.MethodInfo PollFdHasPriMethodInfo Poll signature where
overloadedMethod = pollFdHasPri
#endif
foreign import ccall "gst_poll_fd_ignored" gst_poll_fd_ignored ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO ()
pollFdIgnored ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m ()
pollFdIgnored :: Poll -> PollFD -> m ()
pollFdIgnored set :: Poll
set fd :: PollFD
fd = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
Ptr Poll -> Ptr PollFD -> IO ()
gst_poll_fd_ignored Ptr Poll
set' Ptr PollFD
fd'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollFdIgnoredMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m ()), MonadIO m) => O.MethodInfo PollFdIgnoredMethodInfo Poll signature where
overloadedMethod = pollFdIgnored
#endif
foreign import ccall "gst_poll_get_read_gpollfd" gst_poll_get_read_gpollfd ::
Ptr Poll ->
Ptr GLib.PollFD.PollFD ->
IO ()
pollGetReadGpollfd ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> GLib.PollFD.PollFD
-> m ()
pollGetReadGpollfd :: Poll -> PollFD -> m ()
pollGetReadGpollfd set :: Poll
set fd :: PollFD
fd = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
Ptr Poll -> Ptr PollFD -> IO ()
gst_poll_get_read_gpollfd Ptr Poll
set' Ptr PollFD
fd'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollGetReadGpollfdMethodInfo
instance (signature ~ (GLib.PollFD.PollFD -> m ()), MonadIO m) => O.MethodInfo PollGetReadGpollfdMethodInfo Poll signature where
overloadedMethod = pollGetReadGpollfd
#endif
foreign import ccall "gst_poll_read_control" gst_poll_read_control ::
Ptr Poll ->
IO CInt
pollReadControl ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> m Bool
pollReadControl :: Poll -> m Bool
pollReadControl set :: Poll
set = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
CInt
result <- Ptr Poll -> IO CInt
gst_poll_read_control Ptr Poll
set'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollReadControlMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo PollReadControlMethodInfo Poll signature where
overloadedMethod = pollReadControl
#endif
foreign import ccall "gst_poll_remove_fd" gst_poll_remove_fd ::
Ptr Poll ->
Ptr Gst.PollFD.PollFD ->
IO CInt
pollRemoveFd ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Gst.PollFD.PollFD
-> m Bool
pollRemoveFd :: Poll -> PollFD -> m Bool
pollRemoveFd set :: Poll
set fd :: PollFD
fd = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr PollFD
fd' <- PollFD -> IO (Ptr PollFD)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PollFD
fd
CInt
result <- Ptr Poll -> Ptr PollFD -> IO CInt
gst_poll_remove_fd Ptr Poll
set' Ptr PollFD
fd'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
PollFD -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PollFD
fd
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollRemoveFdMethodInfo
instance (signature ~ (Gst.PollFD.PollFD -> m Bool), MonadIO m) => O.MethodInfo PollRemoveFdMethodInfo Poll signature where
overloadedMethod = pollRemoveFd
#endif
foreign import ccall "gst_poll_restart" gst_poll_restart ::
Ptr Poll ->
IO ()
pollRestart ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> m ()
pollRestart :: Poll -> m ()
pollRestart set :: Poll
set = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Ptr Poll -> IO ()
gst_poll_restart Ptr Poll
set'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollRestartMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo PollRestartMethodInfo Poll signature where
overloadedMethod = pollRestart
#endif
foreign import ccall "gst_poll_set_controllable" gst_poll_set_controllable ::
Ptr Poll ->
CInt ->
IO CInt
pollSetControllable ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Bool
-> m Bool
pollSetControllable :: Poll -> Bool -> m Bool
pollSetControllable set :: Poll
set controllable :: Bool
controllable = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
let controllable' :: CInt
controllable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
controllable
CInt
result <- Ptr Poll -> CInt -> IO CInt
gst_poll_set_controllable Ptr Poll
set' CInt
controllable'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollSetControllableMethodInfo
instance (signature ~ (Bool -> m Bool), MonadIO m) => O.MethodInfo PollSetControllableMethodInfo Poll signature where
overloadedMethod = pollSetControllable
#endif
foreign import ccall "gst_poll_set_flushing" gst_poll_set_flushing ::
Ptr Poll ->
CInt ->
IO ()
pollSetFlushing ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Bool
-> m ()
pollSetFlushing :: Poll -> Bool -> m ()
pollSetFlushing set :: Poll
set flushing :: Bool
flushing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
let flushing' :: CInt
flushing' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
flushing
Ptr Poll -> CInt -> IO ()
gst_poll_set_flushing Ptr Poll
set' CInt
flushing'
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PollSetFlushingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m) => O.MethodInfo PollSetFlushingMethodInfo Poll signature where
overloadedMethod = pollSetFlushing
#endif
foreign import ccall "gst_poll_wait" gst_poll_wait ::
Ptr Poll ->
Word64 ->
IO Int32
pollWait ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> Word64
-> m Int32
pollWait :: Poll -> Word64 -> m Int32
pollWait set :: Poll
set timeout :: Word64
timeout = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
Int32
result <- Ptr Poll -> Word64 -> IO Int32
gst_poll_wait Ptr Poll
set' Word64
timeout
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data PollWaitMethodInfo
instance (signature ~ (Word64 -> m Int32), MonadIO m) => O.MethodInfo PollWaitMethodInfo Poll signature where
overloadedMethod = pollWait
#endif
foreign import ccall "gst_poll_write_control" gst_poll_write_control ::
Ptr Poll ->
IO CInt
pollWriteControl ::
(B.CallStack.HasCallStack, MonadIO m) =>
Poll
-> m Bool
pollWriteControl :: Poll -> m Bool
pollWriteControl set :: Poll
set = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Poll
set' <- Poll -> IO (Ptr Poll)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Poll
set
CInt
result <- Ptr Poll -> IO CInt
gst_poll_write_control Ptr Poll
set'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Poll -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Poll
set
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PollWriteControlMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo PollWriteControlMethodInfo Poll signature where
overloadedMethod = pollWriteControl
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolvePollMethod (t :: Symbol) (o :: *) :: * where
ResolvePollMethod "addFd" o = PollAddFdMethodInfo
ResolvePollMethod "fdCanRead" o = PollFdCanReadMethodInfo
ResolvePollMethod "fdCanWrite" o = PollFdCanWriteMethodInfo
ResolvePollMethod "fdCtlPri" o = PollFdCtlPriMethodInfo
ResolvePollMethod "fdCtlRead" o = PollFdCtlReadMethodInfo
ResolvePollMethod "fdCtlWrite" o = PollFdCtlWriteMethodInfo
ResolvePollMethod "fdHasClosed" o = PollFdHasClosedMethodInfo
ResolvePollMethod "fdHasError" o = PollFdHasErrorMethodInfo
ResolvePollMethod "fdHasPri" o = PollFdHasPriMethodInfo
ResolvePollMethod "fdIgnored" o = PollFdIgnoredMethodInfo
ResolvePollMethod "readControl" o = PollReadControlMethodInfo
ResolvePollMethod "removeFd" o = PollRemoveFdMethodInfo
ResolvePollMethod "restart" o = PollRestartMethodInfo
ResolvePollMethod "wait" o = PollWaitMethodInfo
ResolvePollMethod "writeControl" o = PollWriteControlMethodInfo
ResolvePollMethod "getReadGpollfd" o = PollGetReadGpollfdMethodInfo
ResolvePollMethod "setControllable" o = PollSetControllableMethodInfo
ResolvePollMethod "setFlushing" o = PollSetFlushingMethodInfo
ResolvePollMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePollMethod t Poll, O.MethodInfo info Poll p) => OL.IsLabel t (Poll -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif