#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gst.Structs.PollFD
(
PollFD(..) ,
newZeroPollFD ,
noPollFD ,
#if ENABLE_OVERLOADING
PollFDInitMethodInfo ,
#endif
pollFDInit ,
getPollFDFd ,
#if ENABLE_OVERLOADING
pollFD_fd ,
#endif
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.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 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)
#if ENABLE_OVERLOADING
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
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList PollFD
type instance O.AttributeList PollFD = PollFDAttributeList
type PollFDAttributeList = ('[ '("fd", PollFDFdFieldInfo)] :: [(Symbol, *)])
#endif
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 ()
#if ENABLE_OVERLOADING
data PollFDInitMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo PollFDInitMethodInfo PollFD signature where
overloadedMethod _ = pollFDInit
#endif
#if ENABLE_OVERLOADING
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) => OL.IsLabel t (PollFD -> 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