#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GstVideo.Structs.VideoTimeCodeInterval
(
VideoTimeCodeInterval(..) ,
newZeroVideoTimeCodeInterval ,
noVideoTimeCodeInterval ,
#if ENABLE_OVERLOADING
VideoTimeCodeIntervalClearMethodInfo ,
#endif
videoTimeCodeIntervalClear ,
#if ENABLE_OVERLOADING
VideoTimeCodeIntervalCopyMethodInfo ,
#endif
videoTimeCodeIntervalCopy ,
#if ENABLE_OVERLOADING
VideoTimeCodeIntervalFreeMethodInfo ,
#endif
videoTimeCodeIntervalFree ,
#if ENABLE_OVERLOADING
VideoTimeCodeIntervalInitMethodInfo ,
#endif
videoTimeCodeIntervalInit ,
videoTimeCodeIntervalNew ,
videoTimeCodeIntervalNewFromString ,
getVideoTimeCodeIntervalFrames ,
setVideoTimeCodeIntervalFrames ,
#if ENABLE_OVERLOADING
videoTimeCodeInterval_frames ,
#endif
getVideoTimeCodeIntervalHours ,
setVideoTimeCodeIntervalHours ,
#if ENABLE_OVERLOADING
videoTimeCodeInterval_hours ,
#endif
getVideoTimeCodeIntervalMinutes ,
setVideoTimeCodeIntervalMinutes ,
#if ENABLE_OVERLOADING
videoTimeCodeInterval_minutes ,
#endif
getVideoTimeCodeIntervalSeconds ,
setVideoTimeCodeIntervalSeconds ,
#if ENABLE_OVERLOADING
videoTimeCodeInterval_seconds ,
#endif
) 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 VideoTimeCodeInterval = VideoTimeCodeInterval (ManagedPtr VideoTimeCodeInterval)
foreign import ccall "gst_video_time_code_interval_get_type" c_gst_video_time_code_interval_get_type ::
IO GType
instance BoxedObject VideoTimeCodeInterval where
boxedType _ = c_gst_video_time_code_interval_get_type
newZeroVideoTimeCodeInterval :: MonadIO m => m VideoTimeCodeInterval
newZeroVideoTimeCodeInterval = liftIO $ callocBoxedBytes 16 >>= wrapBoxed VideoTimeCodeInterval
instance tag ~ 'AttrSet => Constructible VideoTimeCodeInterval tag where
new _ attrs = do
o <- newZeroVideoTimeCodeInterval
GI.Attributes.set o attrs
return o
noVideoTimeCodeInterval :: Maybe VideoTimeCodeInterval
noVideoTimeCodeInterval = Nothing
getVideoTimeCodeIntervalHours :: MonadIO m => VideoTimeCodeInterval -> m Word32
getVideoTimeCodeIntervalHours s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Word32
return val
setVideoTimeCodeIntervalHours :: MonadIO m => VideoTimeCodeInterval -> Word32 -> m ()
setVideoTimeCodeIntervalHours s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Word32)
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalHoursFieldInfo
instance AttrInfo VideoTimeCodeIntervalHoursFieldInfo where
type AttrAllowedOps VideoTimeCodeIntervalHoursFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoTimeCodeIntervalHoursFieldInfo = (~) Word32
type AttrBaseTypeConstraint VideoTimeCodeIntervalHoursFieldInfo = (~) VideoTimeCodeInterval
type AttrGetType VideoTimeCodeIntervalHoursFieldInfo = Word32
type AttrLabel VideoTimeCodeIntervalHoursFieldInfo = "hours"
type AttrOrigin VideoTimeCodeIntervalHoursFieldInfo = VideoTimeCodeInterval
attrGet _ = getVideoTimeCodeIntervalHours
attrSet _ = setVideoTimeCodeIntervalHours
attrConstruct = undefined
attrClear _ = undefined
videoTimeCodeInterval_hours :: AttrLabelProxy "hours"
videoTimeCodeInterval_hours = AttrLabelProxy
#endif
getVideoTimeCodeIntervalMinutes :: MonadIO m => VideoTimeCodeInterval -> m Word32
getVideoTimeCodeIntervalMinutes s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Word32
return val
setVideoTimeCodeIntervalMinutes :: MonadIO m => VideoTimeCodeInterval -> Word32 -> m ()
setVideoTimeCodeIntervalMinutes s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: Word32)
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalMinutesFieldInfo
instance AttrInfo VideoTimeCodeIntervalMinutesFieldInfo where
type AttrAllowedOps VideoTimeCodeIntervalMinutesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoTimeCodeIntervalMinutesFieldInfo = (~) Word32
type AttrBaseTypeConstraint VideoTimeCodeIntervalMinutesFieldInfo = (~) VideoTimeCodeInterval
type AttrGetType VideoTimeCodeIntervalMinutesFieldInfo = Word32
type AttrLabel VideoTimeCodeIntervalMinutesFieldInfo = "minutes"
type AttrOrigin VideoTimeCodeIntervalMinutesFieldInfo = VideoTimeCodeInterval
attrGet _ = getVideoTimeCodeIntervalMinutes
attrSet _ = setVideoTimeCodeIntervalMinutes
attrConstruct = undefined
attrClear _ = undefined
videoTimeCodeInterval_minutes :: AttrLabelProxy "minutes"
videoTimeCodeInterval_minutes = AttrLabelProxy
#endif
getVideoTimeCodeIntervalSeconds :: MonadIO m => VideoTimeCodeInterval -> m Word32
getVideoTimeCodeIntervalSeconds s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
setVideoTimeCodeIntervalSeconds :: MonadIO m => VideoTimeCodeInterval -> Word32 -> m ()
setVideoTimeCodeIntervalSeconds s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Word32)
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalSecondsFieldInfo
instance AttrInfo VideoTimeCodeIntervalSecondsFieldInfo where
type AttrAllowedOps VideoTimeCodeIntervalSecondsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoTimeCodeIntervalSecondsFieldInfo = (~) Word32
type AttrBaseTypeConstraint VideoTimeCodeIntervalSecondsFieldInfo = (~) VideoTimeCodeInterval
type AttrGetType VideoTimeCodeIntervalSecondsFieldInfo = Word32
type AttrLabel VideoTimeCodeIntervalSecondsFieldInfo = "seconds"
type AttrOrigin VideoTimeCodeIntervalSecondsFieldInfo = VideoTimeCodeInterval
attrGet _ = getVideoTimeCodeIntervalSeconds
attrSet _ = setVideoTimeCodeIntervalSeconds
attrConstruct = undefined
attrClear _ = undefined
videoTimeCodeInterval_seconds :: AttrLabelProxy "seconds"
videoTimeCodeInterval_seconds = AttrLabelProxy
#endif
getVideoTimeCodeIntervalFrames :: MonadIO m => VideoTimeCodeInterval -> m Word32
getVideoTimeCodeIntervalFrames s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Word32
return val
setVideoTimeCodeIntervalFrames :: MonadIO m => VideoTimeCodeInterval -> Word32 -> m ()
setVideoTimeCodeIntervalFrames s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: Word32)
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalFramesFieldInfo
instance AttrInfo VideoTimeCodeIntervalFramesFieldInfo where
type AttrAllowedOps VideoTimeCodeIntervalFramesFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint VideoTimeCodeIntervalFramesFieldInfo = (~) Word32
type AttrBaseTypeConstraint VideoTimeCodeIntervalFramesFieldInfo = (~) VideoTimeCodeInterval
type AttrGetType VideoTimeCodeIntervalFramesFieldInfo = Word32
type AttrLabel VideoTimeCodeIntervalFramesFieldInfo = "frames"
type AttrOrigin VideoTimeCodeIntervalFramesFieldInfo = VideoTimeCodeInterval
attrGet _ = getVideoTimeCodeIntervalFrames
attrSet _ = setVideoTimeCodeIntervalFrames
attrConstruct = undefined
attrClear _ = undefined
videoTimeCodeInterval_frames :: AttrLabelProxy "frames"
videoTimeCodeInterval_frames = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList VideoTimeCodeInterval
type instance O.AttributeList VideoTimeCodeInterval = VideoTimeCodeIntervalAttributeList
type VideoTimeCodeIntervalAttributeList = ('[ '("hours", VideoTimeCodeIntervalHoursFieldInfo), '("minutes", VideoTimeCodeIntervalMinutesFieldInfo), '("seconds", VideoTimeCodeIntervalSecondsFieldInfo), '("frames", VideoTimeCodeIntervalFramesFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gst_video_time_code_interval_new" gst_video_time_code_interval_new ::
Word32 ->
Word32 ->
Word32 ->
Word32 ->
IO (Ptr VideoTimeCodeInterval)
videoTimeCodeIntervalNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Word32
-> Word32
-> Word32
-> Word32
-> m VideoTimeCodeInterval
videoTimeCodeIntervalNew hours minutes seconds frames = liftIO $ do
result <- gst_video_time_code_interval_new hours minutes seconds frames
checkUnexpectedReturnNULL "videoTimeCodeIntervalNew" result
result' <- (wrapBoxed VideoTimeCodeInterval) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gst_video_time_code_interval_new_from_string" gst_video_time_code_interval_new_from_string ::
CString ->
IO (Ptr VideoTimeCodeInterval)
videoTimeCodeIntervalNewFromString ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m (Maybe VideoTimeCodeInterval)
videoTimeCodeIntervalNewFromString tcInterStr = liftIO $ do
tcInterStr' <- textToCString tcInterStr
result <- gst_video_time_code_interval_new_from_string tcInterStr'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed VideoTimeCodeInterval) result'
return result''
freeMem tcInterStr'
return maybeResult
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gst_video_time_code_interval_clear" gst_video_time_code_interval_clear ::
Ptr VideoTimeCodeInterval ->
IO ()
videoTimeCodeIntervalClear ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoTimeCodeInterval
-> m ()
videoTimeCodeIntervalClear tc = liftIO $ do
tc' <- unsafeManagedPtrGetPtr tc
gst_video_time_code_interval_clear tc'
touchManagedPtr tc
return ()
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalClearMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo VideoTimeCodeIntervalClearMethodInfo VideoTimeCodeInterval signature where
overloadedMethod _ = videoTimeCodeIntervalClear
#endif
foreign import ccall "gst_video_time_code_interval_copy" gst_video_time_code_interval_copy ::
Ptr VideoTimeCodeInterval ->
IO (Ptr VideoTimeCodeInterval)
videoTimeCodeIntervalCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoTimeCodeInterval
-> m VideoTimeCodeInterval
videoTimeCodeIntervalCopy tc = liftIO $ do
tc' <- unsafeManagedPtrGetPtr tc
result <- gst_video_time_code_interval_copy tc'
checkUnexpectedReturnNULL "videoTimeCodeIntervalCopy" result
result' <- (wrapBoxed VideoTimeCodeInterval) result
touchManagedPtr tc
return result'
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalCopyMethodInfo
instance (signature ~ (m VideoTimeCodeInterval), MonadIO m) => O.MethodInfo VideoTimeCodeIntervalCopyMethodInfo VideoTimeCodeInterval signature where
overloadedMethod _ = videoTimeCodeIntervalCopy
#endif
foreign import ccall "gst_video_time_code_interval_free" gst_video_time_code_interval_free ::
Ptr VideoTimeCodeInterval ->
IO ()
videoTimeCodeIntervalFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoTimeCodeInterval
-> m ()
videoTimeCodeIntervalFree tc = liftIO $ do
tc' <- unsafeManagedPtrGetPtr tc
gst_video_time_code_interval_free tc'
touchManagedPtr tc
return ()
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo VideoTimeCodeIntervalFreeMethodInfo VideoTimeCodeInterval signature where
overloadedMethod _ = videoTimeCodeIntervalFree
#endif
foreign import ccall "gst_video_time_code_interval_init" gst_video_time_code_interval_init ::
Ptr VideoTimeCodeInterval ->
Word32 ->
Word32 ->
Word32 ->
Word32 ->
IO ()
videoTimeCodeIntervalInit ::
(B.CallStack.HasCallStack, MonadIO m) =>
VideoTimeCodeInterval
-> Word32
-> Word32
-> Word32
-> Word32
-> m ()
videoTimeCodeIntervalInit tc hours minutes seconds frames = liftIO $ do
tc' <- unsafeManagedPtrGetPtr tc
gst_video_time_code_interval_init tc' hours minutes seconds frames
touchManagedPtr tc
return ()
#if ENABLE_OVERLOADING
data VideoTimeCodeIntervalInitMethodInfo
instance (signature ~ (Word32 -> Word32 -> Word32 -> Word32 -> m ()), MonadIO m) => O.MethodInfo VideoTimeCodeIntervalInitMethodInfo VideoTimeCodeInterval signature where
overloadedMethod _ = videoTimeCodeIntervalInit
#endif
#if ENABLE_OVERLOADING
type family ResolveVideoTimeCodeIntervalMethod (t :: Symbol) (o :: *) :: * where
ResolveVideoTimeCodeIntervalMethod "clear" o = VideoTimeCodeIntervalClearMethodInfo
ResolveVideoTimeCodeIntervalMethod "copy" o = VideoTimeCodeIntervalCopyMethodInfo
ResolveVideoTimeCodeIntervalMethod "free" o = VideoTimeCodeIntervalFreeMethodInfo
ResolveVideoTimeCodeIntervalMethod "init" o = VideoTimeCodeIntervalInitMethodInfo
ResolveVideoTimeCodeIntervalMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveVideoTimeCodeIntervalMethod t VideoTimeCodeInterval, O.MethodInfo info VideoTimeCodeInterval p) => OL.IsLabel t (VideoTimeCodeInterval -> 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