{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SourceBuffer
(appendBuffer, abort, remove, setMode, getMode, getUpdating,
getBuffered, setTimestampOffset, getTimestampOffset,
getAudioTracks, getVideoTracks, getTextTracks,
setAppendWindowStart, getAppendWindowStart, setAppendWindowEnd,
getAppendWindowEnd, updatestart, update, updateend, error,
abortEvent, SourceBuffer(..), gTypeSourceBuffer)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
appendBuffer ::
(MonadDOM m, IsBufferSource data') => SourceBuffer -> data' -> m ()
appendBuffer :: forall (m :: * -> *) data'.
(MonadDOM m, IsBufferSource data') =>
SourceBuffer -> data' -> m ()
appendBuffer SourceBuffer
self data'
data'
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"appendBuffer" [data' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal data'
data']))
abort :: (MonadDOM m) => SourceBuffer -> m ()
abort :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m ()
abort SourceBuffer
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"abort" ()))
remove :: (MonadDOM m) => SourceBuffer -> Double -> Double -> m ()
remove :: forall (m :: * -> *).
MonadDOM m =>
SourceBuffer -> Double -> Double -> m ()
remove SourceBuffer
self Double
start Double
end
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"remove" [Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
start, Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
end]))
setMode :: (MonadDOM m) => SourceBuffer -> AppendMode -> m ()
setMode :: forall (m :: * -> *).
MonadDOM m =>
SourceBuffer -> AppendMode -> m ()
setMode SourceBuffer
self AppendMode
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SourceBuffer
self SourceBuffer -> Getting (DOM ()) SourceBuffer (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"mode" (AppendMode -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal AppendMode
val))
getMode :: (MonadDOM m) => SourceBuffer -> m AppendMode
getMode :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m AppendMode
getMode SourceBuffer
self = DOM AppendMode -> m AppendMode
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"mode") JSM JSVal -> (JSVal -> DOM AppendMode) -> DOM AppendMode
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM AppendMode
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getUpdating :: (MonadDOM m) => SourceBuffer -> m Bool
getUpdating :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m Bool
getUpdating SourceBuffer
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"updating") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getBuffered :: (MonadDOM m) => SourceBuffer -> m TimeRanges
getBuffered :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m TimeRanges
getBuffered SourceBuffer
self
= DOM TimeRanges -> m TimeRanges
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"buffered") JSM JSVal -> (JSVal -> DOM TimeRanges) -> DOM TimeRanges
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM TimeRanges
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setTimestampOffset ::
(MonadDOM m) => SourceBuffer -> Double -> m ()
setTimestampOffset :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> Double -> m ()
setTimestampOffset SourceBuffer
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SourceBuffer
self SourceBuffer -> Getting (DOM ()) SourceBuffer (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"timestampOffset" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getTimestampOffset :: (MonadDOM m) => SourceBuffer -> m Double
getTimestampOffset :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m Double
getTimestampOffset SourceBuffer
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"timestampOffset") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
getAudioTracks :: (MonadDOM m) => SourceBuffer -> m AudioTrackList
getAudioTracks :: forall (m :: * -> *).
MonadDOM m =>
SourceBuffer -> m AudioTrackList
getAudioTracks SourceBuffer
self
= DOM AudioTrackList -> m AudioTrackList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"audioTracks") JSM JSVal -> (JSVal -> DOM AudioTrackList) -> DOM AudioTrackList
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM AudioTrackList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getVideoTracks :: (MonadDOM m) => SourceBuffer -> m VideoTrackList
getVideoTracks :: forall (m :: * -> *).
MonadDOM m =>
SourceBuffer -> m VideoTrackList
getVideoTracks SourceBuffer
self
= DOM VideoTrackList -> m VideoTrackList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"videoTracks") JSM JSVal -> (JSVal -> DOM VideoTrackList) -> DOM VideoTrackList
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM VideoTrackList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getTextTracks :: (MonadDOM m) => SourceBuffer -> m TextTrackList
getTextTracks :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m TextTrackList
getTextTracks SourceBuffer
self
= DOM TextTrackList -> m TextTrackList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"textTracks") JSM JSVal -> (JSVal -> DOM TextTrackList) -> DOM TextTrackList
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM TextTrackList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setAppendWindowStart ::
(MonadDOM m) => SourceBuffer -> Double -> m ()
setAppendWindowStart :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> Double -> m ()
setAppendWindowStart SourceBuffer
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SourceBuffer
self SourceBuffer -> Getting (DOM ()) SourceBuffer (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"appendWindowStart" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getAppendWindowStart :: (MonadDOM m) => SourceBuffer -> m Double
getAppendWindowStart :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m Double
getAppendWindowStart SourceBuffer
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"appendWindowStart") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setAppendWindowEnd ::
(MonadDOM m) => SourceBuffer -> Double -> m ()
setAppendWindowEnd :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> Double -> m ()
setAppendWindowEnd SourceBuffer
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (SourceBuffer
self SourceBuffer -> Getting (DOM ()) SourceBuffer (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"appendWindowEnd" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getAppendWindowEnd :: (MonadDOM m) => SourceBuffer -> m Double
getAppendWindowEnd :: forall (m :: * -> *). MonadDOM m => SourceBuffer -> m Double
getAppendWindowEnd SourceBuffer
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SourceBuffer
self SourceBuffer
-> Getting (JSM JSVal) SourceBuffer (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SourceBuffer (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"appendWindowEnd") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
updatestart :: EventName SourceBuffer onupdatestart
updatestart :: forall onupdatestart. EventName SourceBuffer onupdatestart
updatestart = DOMString -> EventName SourceBuffer onupdatestart
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"updatestart")
update :: EventName SourceBuffer onupdate
update :: forall onupdatestart. EventName SourceBuffer onupdatestart
update = DOMString -> EventName SourceBuffer onupdate
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"update")
updateend :: EventName SourceBuffer onupdateend
updateend :: forall onupdatestart. EventName SourceBuffer onupdatestart
updateend = DOMString -> EventName SourceBuffer onupdateend
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"updateend")
error :: EventName SourceBuffer UIEvent
error :: EventName SourceBuffer UIEvent
error = DOMString -> EventName SourceBuffer UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"error")
abortEvent :: EventName SourceBuffer UIEvent
abortEvent :: EventName SourceBuffer UIEvent
abortEvent = DOMString -> EventName SourceBuffer UIEvent
forall t e. DOMString -> EventName t e
unsafeEventNameAsync (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"abort")