module GI.Gst.Structs.PollFD
(
PollFD(..) ,
newZeroPollFD ,
noPollFD ,
PollFDInitMethodInfo ,
pollFDInit ,
getPollFDFd ,
pollFD_fd ,
setPollFDFd ,
) 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.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
newtype PollFD = PollFD (ManagedPtr PollFD)
instance WrappedPtr PollFD where
wrappedPtrCalloc = callocBytes 8
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 8 >=> wrapPtr PollFD)
wrappedPtrFree = Just ptr_to_g_free
newZeroPollFD :: MonadIO m => m PollFD
newZeroPollFD = liftIO $ wrappedPtrCalloc >>= wrapPtr PollFD
instance tag ~ 'AttrSet => Constructible PollFD tag where
new _ attrs = do
o <- newZeroPollFD
GI.Attributes.set o attrs
return o
noPollFD :: Maybe PollFD
noPollFD = Nothing
getPollFDFd :: MonadIO m => PollFD -> m Int32
getPollFDFd s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
setPollFDFd :: MonadIO m => PollFD -> Int32 -> m ()
setPollFDFd s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Int32)
data PollFDFdFieldInfo
instance AttrInfo PollFDFdFieldInfo where
type AttrAllowedOps PollFDFdFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint PollFDFdFieldInfo = (~) Int32
type AttrBaseTypeConstraint PollFDFdFieldInfo = (~) PollFD
type AttrGetType PollFDFdFieldInfo = Int32
type AttrLabel PollFDFdFieldInfo = "fd"
type AttrOrigin PollFDFdFieldInfo = PollFD
attrGet _ = getPollFDFd
attrSet _ = setPollFDFd
attrConstruct = undefined
attrClear _ = undefined
pollFD_fd :: AttrLabelProxy "fd"
pollFD_fd = AttrLabelProxy
instance O.HasAttributeList PollFD
type instance O.AttributeList PollFD = PollFDAttributeList
type PollFDAttributeList = ('[ '("fd", PollFDFdFieldInfo)] :: [(Symbol, *)])
foreign import ccall "gst_poll_fd_init" gst_poll_fd_init ::
Ptr PollFD ->
IO ()
pollFDInit ::
(B.CallStack.HasCallStack, MonadIO m) =>
PollFD
-> m ()
pollFDInit fd = liftIO $ do
fd' <- unsafeManagedPtrGetPtr fd
gst_poll_fd_init fd'
touchManagedPtr fd
return ()
data PollFDInitMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo PollFDInitMethodInfo PollFD signature where
overloadedMethod _ = pollFDInit
type family ResolvePollFDMethod (t :: Symbol) (o :: *) :: * where
ResolvePollFDMethod "init" o = PollFDInitMethodInfo
ResolvePollFDMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePollFDMethod t PollFD, O.MethodInfo info PollFD p) => O.IsLabelProxy t (PollFD -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolvePollFDMethod t PollFD, O.MethodInfo info PollFD p) => O.IsLabel t (PollFD -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif