module Media.Streaming.GStreamer.Base.BaseTransform (
BaseTransform,
BaseTransformClass,
castToBaseTransform,
gTypeBaseTransform,
baseTransformIsPassthrough,
baseTransformSetPassthrough,
baseTransformIsInPlace,
baseTransformSetInPlace,
baseTransformIsQOSEnabled,
baseTransformSetQOSEnabled,
baseTransformGetSinkPad,
baseTransformGetSrcPad,
baseTransformQOS
) where
import Control.Monad (liftM)
import Media.Streaming.GStreamer.Base.Types
import System.Glib.FFI
import System.Glib.Flags
import System.Glib.Attributes
import System.Glib.Properties
baseTransformIsPassthrough :: BaseTransformClass baseTransformT
=> baseTransformT
-> IO Bool
baseTransformIsPassthrough baseTransform =
liftM toBool $
(\(BaseTransform arg1) -> withForeignPtr arg1 $ \argPtr1 ->gst_base_transform_is_passthrough argPtr1) (toBaseTransform baseTransform)
baseTransformSetPassthrough :: BaseTransformClass baseTransformT
=> baseTransformT
-> Bool
-> IO ()
baseTransformSetPassthrough baseTransform passthrough =
(\(BaseTransform arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gst_base_transform_set_passthrough argPtr1 arg2) (toBaseTransform baseTransform)
(fromBool passthrough)
baseTransformIsInPlace :: BaseTransformClass baseTransformT
=> baseTransformT
-> IO Bool
baseTransformIsInPlace baseTransform =
liftM toBool $
(\(BaseTransform arg1) -> withForeignPtr arg1 $ \argPtr1 ->gst_base_transform_is_in_place argPtr1) (toBaseTransform baseTransform)
baseTransformSetInPlace :: BaseTransformClass baseTransformT
=> baseTransformT
-> Bool
-> IO ()
baseTransformSetInPlace baseTransform inPlace =
(\(BaseTransform arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gst_base_transform_set_in_place argPtr1 arg2) (toBaseTransform baseTransform)
(fromBool inPlace)
baseTransformIsQOSEnabled :: BaseTransformClass baseTransformT
=> baseTransformT
-> IO Bool
baseTransformIsQOSEnabled baseTransform =
liftM toBool $
(\(BaseTransform arg1) -> withForeignPtr arg1 $ \argPtr1 ->gst_base_transform_is_qos_enabled argPtr1) (toBaseTransform baseTransform)
baseTransformSetQOSEnabled :: BaseTransformClass baseTransformT
=> baseTransformT
-> Bool
-> IO ()
baseTransformSetQOSEnabled baseTransform enabled =
(\(BaseTransform arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gst_base_transform_set_qos_enabled argPtr1 arg2) (toBaseTransform baseTransform)
(fromBool enabled)
baseTransformGetSinkPad :: BaseTransformClass baseTransformT
=> baseTransformT
-> IO Pad
baseTransformGetSinkPad baseTransform =
withObject (toBaseTransform baseTransform) cBaseTransformGetSinkPad >>=
peekObject
foreign import ccall unsafe "_hs_gst_base_transform_get_sink_pad"
cBaseTransformGetSinkPad :: Ptr BaseTransform
-> IO (Ptr Pad)
baseTransformGetSrcPad :: BaseTransformClass baseTransformT
=> baseTransformT
-> IO Pad
baseTransformGetSrcPad baseTransform =
withObject (toBaseTransform baseTransform) cBaseTransformGetSrcPad >>=
peekObject
foreign import ccall unsafe "_hs_gst_base_transform_get_src_pad"
cBaseTransformGetSrcPad :: Ptr BaseTransform
-> IO (Ptr Pad)
baseTransformQOS :: BaseTransformClass baseTransformT
=> Attr baseTransformT Bool
baseTransformQOS = newAttr
baseTransformIsQOSEnabled
baseTransformSetQOSEnabled
foreign import ccall safe "gst_base_transform_is_passthrough"
gst_base_transform_is_passthrough :: ((Ptr BaseTransform) -> (IO CInt))
foreign import ccall safe "gst_base_transform_set_passthrough"
gst_base_transform_set_passthrough :: ((Ptr BaseTransform) -> (CInt -> (IO ())))
foreign import ccall safe "gst_base_transform_is_in_place"
gst_base_transform_is_in_place :: ((Ptr BaseTransform) -> (IO CInt))
foreign import ccall safe "gst_base_transform_set_in_place"
gst_base_transform_set_in_place :: ((Ptr BaseTransform) -> (CInt -> (IO ())))
foreign import ccall safe "gst_base_transform_is_qos_enabled"
gst_base_transform_is_qos_enabled :: ((Ptr BaseTransform) -> (IO CInt))
foreign import ccall safe "gst_base_transform_set_qos_enabled"
gst_base_transform_set_qos_enabled :: ((Ptr BaseTransform) -> (CInt -> (IO ())))