{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)

CD track abstraction to communicate TOC entries to the base class.

This structure is only for use by sub-classed in connection with
'GI.GstAudio.Objects.AudioCdSrc.audioCdSrcAddTrack'.

Applications will be informed of the available tracks via a TOC message
on the pipeline\'s 'GI.Gst.Objects.Bus.Bus' instead.
-}

module GI.GstAudio.Structs.AudioCdSrcTrack
    ( 

-- * Exported types
    AudioCdSrcTrack(..)                     ,
    newZeroAudioCdSrcTrack                  ,
    noAudioCdSrcTrack                       ,


 -- * Properties
-- ** end #attr:end#
    audioCdSrcTrack_end                     ,
    getAudioCdSrcTrackEnd                   ,
    setAudioCdSrcTrackEnd                   ,


-- ** isAudio #attr:isAudio#
    audioCdSrcTrack_isAudio                 ,
    getAudioCdSrcTrackIsAudio               ,
    setAudioCdSrcTrackIsAudio               ,


-- ** num #attr:num#
    audioCdSrcTrack_num                     ,
    getAudioCdSrcTrackNum                   ,
    setAudioCdSrcTrackNum                   ,


-- ** start #attr:start#
    audioCdSrcTrack_start                   ,
    getAudioCdSrcTrackStart                 ,
    setAudioCdSrcTrackStart                 ,


-- ** tags #attr:tags#
    audioCdSrcTrack_tags                    ,
    clearAudioCdSrcTrackTags                ,
    getAudioCdSrcTrackTags                  ,
    setAudioCdSrcTrackTags                  ,




    ) 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

import qualified GI.Gst.Structs.TagList as Gst.TagList

newtype AudioCdSrcTrack = AudioCdSrcTrack (ManagedPtr AudioCdSrcTrack)
instance WrappedPtr AudioCdSrcTrack where
    wrappedPtrCalloc = callocBytes 48
    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 48 >=> wrapPtr AudioCdSrcTrack)
    wrappedPtrFree = Just ptr_to_g_free

-- | Construct a `AudioCdSrcTrack` struct initialized to zero.
newZeroAudioCdSrcTrack :: MonadIO m => m AudioCdSrcTrack
newZeroAudioCdSrcTrack = liftIO $ wrappedPtrCalloc >>= wrapPtr AudioCdSrcTrack

instance tag ~ 'AttrSet => Constructible AudioCdSrcTrack tag where
    new _ attrs = do
        o <- newZeroAudioCdSrcTrack
        GI.Attributes.set o attrs
        return o


noAudioCdSrcTrack :: Maybe AudioCdSrcTrack
noAudioCdSrcTrack = Nothing

getAudioCdSrcTrackIsAudio :: MonadIO m => AudioCdSrcTrack -> m Bool
getAudioCdSrcTrackIsAudio s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 0) :: IO CInt
    let val' = (/= 0) val
    return val'

setAudioCdSrcTrackIsAudio :: MonadIO m => AudioCdSrcTrack -> Bool -> m ()
setAudioCdSrcTrackIsAudio s val = liftIO $ withManagedPtr s $ \ptr -> do
    let val' = (fromIntegral . fromEnum) val
    poke (ptr `plusPtr` 0) (val' :: CInt)

data AudioCdSrcTrackIsAudioFieldInfo
instance AttrInfo AudioCdSrcTrackIsAudioFieldInfo where
    type AttrAllowedOps AudioCdSrcTrackIsAudioFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint AudioCdSrcTrackIsAudioFieldInfo = (~) Bool
    type AttrBaseTypeConstraint AudioCdSrcTrackIsAudioFieldInfo = (~) AudioCdSrcTrack
    type AttrGetType AudioCdSrcTrackIsAudioFieldInfo = Bool
    type AttrLabel AudioCdSrcTrackIsAudioFieldInfo = "is_audio"
    type AttrOrigin AudioCdSrcTrackIsAudioFieldInfo = AudioCdSrcTrack
    attrGet _ = getAudioCdSrcTrackIsAudio
    attrSet _ = setAudioCdSrcTrackIsAudio
    attrConstruct = undefined
    attrClear _ = undefined

audioCdSrcTrack_isAudio :: AttrLabelProxy "isAudio"
audioCdSrcTrack_isAudio = AttrLabelProxy


getAudioCdSrcTrackNum :: MonadIO m => AudioCdSrcTrack -> m Word32
getAudioCdSrcTrackNum s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 4) :: IO Word32
    return val

setAudioCdSrcTrackNum :: MonadIO m => AudioCdSrcTrack -> Word32 -> m ()
setAudioCdSrcTrackNum s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 4) (val :: Word32)

data AudioCdSrcTrackNumFieldInfo
instance AttrInfo AudioCdSrcTrackNumFieldInfo where
    type AttrAllowedOps AudioCdSrcTrackNumFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint AudioCdSrcTrackNumFieldInfo = (~) Word32
    type AttrBaseTypeConstraint AudioCdSrcTrackNumFieldInfo = (~) AudioCdSrcTrack
    type AttrGetType AudioCdSrcTrackNumFieldInfo = Word32
    type AttrLabel AudioCdSrcTrackNumFieldInfo = "num"
    type AttrOrigin AudioCdSrcTrackNumFieldInfo = AudioCdSrcTrack
    attrGet _ = getAudioCdSrcTrackNum
    attrSet _ = setAudioCdSrcTrackNum
    attrConstruct = undefined
    attrClear _ = undefined

audioCdSrcTrack_num :: AttrLabelProxy "num"
audioCdSrcTrack_num = AttrLabelProxy


getAudioCdSrcTrackStart :: MonadIO m => AudioCdSrcTrack -> m Word32
getAudioCdSrcTrackStart s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 8) :: IO Word32
    return val

setAudioCdSrcTrackStart :: MonadIO m => AudioCdSrcTrack -> Word32 -> m ()
setAudioCdSrcTrackStart s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 8) (val :: Word32)

data AudioCdSrcTrackStartFieldInfo
instance AttrInfo AudioCdSrcTrackStartFieldInfo where
    type AttrAllowedOps AudioCdSrcTrackStartFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint AudioCdSrcTrackStartFieldInfo = (~) Word32
    type AttrBaseTypeConstraint AudioCdSrcTrackStartFieldInfo = (~) AudioCdSrcTrack
    type AttrGetType AudioCdSrcTrackStartFieldInfo = Word32
    type AttrLabel AudioCdSrcTrackStartFieldInfo = "start"
    type AttrOrigin AudioCdSrcTrackStartFieldInfo = AudioCdSrcTrack
    attrGet _ = getAudioCdSrcTrackStart
    attrSet _ = setAudioCdSrcTrackStart
    attrConstruct = undefined
    attrClear _ = undefined

audioCdSrcTrack_start :: AttrLabelProxy "start"
audioCdSrcTrack_start = AttrLabelProxy


getAudioCdSrcTrackEnd :: MonadIO m => AudioCdSrcTrack -> m Word32
getAudioCdSrcTrackEnd s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 12) :: IO Word32
    return val

setAudioCdSrcTrackEnd :: MonadIO m => AudioCdSrcTrack -> Word32 -> m ()
setAudioCdSrcTrackEnd s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 12) (val :: Word32)

data AudioCdSrcTrackEndFieldInfo
instance AttrInfo AudioCdSrcTrackEndFieldInfo where
    type AttrAllowedOps AudioCdSrcTrackEndFieldInfo = '[ 'AttrSet, 'AttrGet]
    type AttrSetTypeConstraint AudioCdSrcTrackEndFieldInfo = (~) Word32
    type AttrBaseTypeConstraint AudioCdSrcTrackEndFieldInfo = (~) AudioCdSrcTrack
    type AttrGetType AudioCdSrcTrackEndFieldInfo = Word32
    type AttrLabel AudioCdSrcTrackEndFieldInfo = "end"
    type AttrOrigin AudioCdSrcTrackEndFieldInfo = AudioCdSrcTrack
    attrGet _ = getAudioCdSrcTrackEnd
    attrSet _ = setAudioCdSrcTrackEnd
    attrConstruct = undefined
    attrClear _ = undefined

audioCdSrcTrack_end :: AttrLabelProxy "end"
audioCdSrcTrack_end = AttrLabelProxy


getAudioCdSrcTrackTags :: MonadIO m => AudioCdSrcTrack -> m (Maybe Gst.TagList.TagList)
getAudioCdSrcTrackTags s = liftIO $ withManagedPtr s $ \ptr -> do
    val <- peek (ptr `plusPtr` 16) :: IO (Ptr Gst.TagList.TagList)
    result <- SP.convertIfNonNull val $ \val' -> do
        val'' <- (newBoxed Gst.TagList.TagList) val'
        return val''
    return result

setAudioCdSrcTrackTags :: MonadIO m => AudioCdSrcTrack -> Ptr Gst.TagList.TagList -> m ()
setAudioCdSrcTrackTags s val = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 16) (val :: Ptr Gst.TagList.TagList)

clearAudioCdSrcTrackTags :: MonadIO m => AudioCdSrcTrack -> m ()
clearAudioCdSrcTrackTags s = liftIO $ withManagedPtr s $ \ptr -> do
    poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr Gst.TagList.TagList)

data AudioCdSrcTrackTagsFieldInfo
instance AttrInfo AudioCdSrcTrackTagsFieldInfo where
    type AttrAllowedOps AudioCdSrcTrackTagsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint AudioCdSrcTrackTagsFieldInfo = (~) (Ptr Gst.TagList.TagList)
    type AttrBaseTypeConstraint AudioCdSrcTrackTagsFieldInfo = (~) AudioCdSrcTrack
    type AttrGetType AudioCdSrcTrackTagsFieldInfo = Maybe Gst.TagList.TagList
    type AttrLabel AudioCdSrcTrackTagsFieldInfo = "tags"
    type AttrOrigin AudioCdSrcTrackTagsFieldInfo = AudioCdSrcTrack
    attrGet _ = getAudioCdSrcTrackTags
    attrSet _ = setAudioCdSrcTrackTags
    attrConstruct = undefined
    attrClear _ = clearAudioCdSrcTrackTags

audioCdSrcTrack_tags :: AttrLabelProxy "tags"
audioCdSrcTrack_tags = AttrLabelProxy



instance O.HasAttributeList AudioCdSrcTrack
type instance O.AttributeList AudioCdSrcTrack = AudioCdSrcTrackAttributeList
type AudioCdSrcTrackAttributeList = ('[ '("isAudio", AudioCdSrcTrackIsAudioFieldInfo), '("num", AudioCdSrcTrackNumFieldInfo), '("start", AudioCdSrcTrackStartFieldInfo), '("end", AudioCdSrcTrackEndFieldInfo), '("tags", AudioCdSrcTrackTagsFieldInfo)] :: [(Symbol, *)])

type family ResolveAudioCdSrcTrackMethod (t :: Symbol) (o :: *) :: * where
    ResolveAudioCdSrcTrackMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveAudioCdSrcTrackMethod t AudioCdSrcTrack, O.MethodInfo info AudioCdSrcTrack p) => O.IsLabelProxy t (AudioCdSrcTrack -> p) where
    fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveAudioCdSrcTrackMethod t AudioCdSrcTrack, O.MethodInfo info AudioCdSrcTrack p) => O.IsLabel t (AudioCdSrcTrack -> p) where
    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif