#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstVideo.Structs.VideoDither
(
VideoDither(..) ,
noVideoDither ,
#if ENABLE_OVERLOADING
VideoDitherFreeMethodInfo ,
#endif
videoDitherFree ,
#if ENABLE_OVERLOADING
VideoDitherLineMethodInfo ,
#endif
videoDitherLine ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
newtype VideoDither = VideoDither (ManagedPtr VideoDither)
instance WrappedPtr VideoDither where
wrappedPtrCalloc = return nullPtr
wrappedPtrCopy = return
wrappedPtrFree = Nothing
noVideoDither :: Maybe VideoDither
noVideoDither = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList VideoDither
type instance O.AttributeList VideoDither = VideoDitherAttributeList
type VideoDitherAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "gst_video_dither_free" gst_video_dither_free ::
Ptr VideoDither ->
IO ()
videoDitherFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoDither
-> m ()
videoDitherFree dither = liftIO $ do
dither' <- unsafeManagedPtrGetPtr dither
gst_video_dither_free dither'
touchManagedPtr dither
return ()
#if ENABLE_OVERLOADING
data VideoDitherFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo VideoDitherFreeMethodInfo VideoDither signature where
overloadedMethod _ = videoDitherFree
#endif
foreign import ccall "gst_video_dither_line" gst_video_dither_line ::
Ptr VideoDither ->
Ptr () ->
Word32 ->
Word32 ->
Word32 ->
IO ()
videoDitherLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoDither
-> Ptr ()
-> Word32
-> Word32
-> Word32
-> m ()
videoDitherLine dither line x y width = liftIO $ do
dither' <- unsafeManagedPtrGetPtr dither
gst_video_dither_line dither' line x y width
touchManagedPtr dither
return ()
#if ENABLE_OVERLOADING
data VideoDitherLineMethodInfo
instance (signature ~ (Ptr () -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m) => O.MethodInfo VideoDitherLineMethodInfo VideoDither signature where
overloadedMethod _ = videoDitherLine
#endif
#if ENABLE_OVERLOADING
type family ResolveVideoDitherMethod (t :: Symbol) (o :: *) :: * where
ResolveVideoDitherMethod "free" o = VideoDitherFreeMethodInfo
ResolveVideoDitherMethod "line" o = VideoDitherLineMethodInfo
ResolveVideoDitherMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoDitherMethod t VideoDither, O.MethodInfo info VideoDither p) => O.IsLabelProxy t (VideoDither -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveVideoDitherMethod t VideoDither, O.MethodInfo info VideoDither p) => O.IsLabel t (VideoDither -> 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
#endif