module GHCJS.DOM.JSFFI.Generated.SourceBuffer
(js_appendBuffer, appendBuffer, js_appendBufferView,
appendBufferView, js_abort, abort, js_remove, remove, js_setMode,
setMode, js_getMode, getMode, js_getUpdating, getUpdating,
js_getBuffered, getBuffered, getBufferedUnsafe,
getBufferedUnchecked, js_setTimestampOffset, setTimestampOffset,
js_getTimestampOffset, getTimestampOffset, js_getAudioTracks,
getAudioTracks, getAudioTracksUnsafe, getAudioTracksUnchecked,
js_getVideoTracks, getVideoTracks, getVideoTracksUnsafe,
getVideoTracksUnchecked, js_getTextTracks, getTextTracks,
getTextTracksUnsafe, getTextTracksUnchecked,
js_setAppendWindowStart, setAppendWindowStart,
js_getAppendWindowStart, getAppendWindowStart,
js_setAppendWindowEnd, setAppendWindowEnd, js_getAppendWindowEnd,
getAppendWindowEnd, SourceBuffer(..), gTypeSourceBuffer)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe "$1[\"appendBuffer\"]($2)"
js_appendBuffer :: SourceBuffer -> Nullable ArrayBuffer -> IO ()
appendBuffer ::
(MonadIO m, IsArrayBuffer data') =>
SourceBuffer -> Maybe data' -> m ()
appendBuffer self data'
= liftIO
(js_appendBuffer (self)
(maybeToNullable (fmap toArrayBuffer data')))
foreign import javascript unsafe "$1[\"appendBuffer\"]($2)"
js_appendBufferView ::
SourceBuffer -> Nullable ArrayBufferView -> IO ()
appendBufferView ::
(MonadIO m, IsArrayBufferView data') =>
SourceBuffer -> Maybe data' -> m ()
appendBufferView self data'
= liftIO
(js_appendBufferView (self)
(maybeToNullable (fmap toArrayBufferView data')))
foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::
SourceBuffer -> IO ()
abort :: (MonadIO m) => SourceBuffer -> m ()
abort self = liftIO (js_abort (self))
foreign import javascript unsafe "$1[\"remove\"]($2, $3)" js_remove
:: SourceBuffer -> Double -> Double -> IO ()
remove :: (MonadIO m) => SourceBuffer -> Double -> Double -> m ()
remove self start end = liftIO (js_remove (self) start end)
foreign import javascript unsafe "$1[\"mode\"] = $2;" js_setMode ::
SourceBuffer -> JSVal -> IO ()
setMode :: (MonadIO m) => SourceBuffer -> AppendMode -> m ()
setMode self val = liftIO (js_setMode (self) (pToJSVal val))
foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::
SourceBuffer -> IO JSVal
getMode :: (MonadIO m) => SourceBuffer -> m AppendMode
getMode self = liftIO ((js_getMode (self)) >>= fromJSValUnchecked)
foreign import javascript unsafe "($1[\"updating\"] ? 1 : 0)"
js_getUpdating :: SourceBuffer -> IO Bool
getUpdating :: (MonadIO m) => SourceBuffer -> m Bool
getUpdating self = liftIO (js_getUpdating (self))
foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered
:: SourceBuffer -> IO (Nullable TimeRanges)
getBuffered :: (MonadIO m) => SourceBuffer -> m (Maybe TimeRanges)
getBuffered self
= liftIO (nullableToMaybe <$> (js_getBuffered (self)))
getBufferedUnsafe ::
(MonadIO m, HasCallStack) => SourceBuffer -> m TimeRanges
getBufferedUnsafe self
= liftIO
((nullableToMaybe <$> (js_getBuffered (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getBufferedUnchecked :: (MonadIO m) => SourceBuffer -> m TimeRanges
getBufferedUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getBuffered (self)))
foreign import javascript unsafe "$1[\"timestampOffset\"] = $2;"
js_setTimestampOffset :: SourceBuffer -> Double -> IO ()
setTimestampOffset :: (MonadIO m) => SourceBuffer -> Double -> m ()
setTimestampOffset self val
= liftIO (js_setTimestampOffset (self) val)
foreign import javascript unsafe "$1[\"timestampOffset\"]"
js_getTimestampOffset :: SourceBuffer -> IO Double
getTimestampOffset :: (MonadIO m) => SourceBuffer -> m Double
getTimestampOffset self = liftIO (js_getTimestampOffset (self))
foreign import javascript unsafe "$1[\"audioTracks\"]"
js_getAudioTracks :: SourceBuffer -> IO (Nullable AudioTrackList)
getAudioTracks ::
(MonadIO m) => SourceBuffer -> m (Maybe AudioTrackList)
getAudioTracks self
= liftIO (nullableToMaybe <$> (js_getAudioTracks (self)))
getAudioTracksUnsafe ::
(MonadIO m, HasCallStack) => SourceBuffer -> m AudioTrackList
getAudioTracksUnsafe self
= liftIO
((nullableToMaybe <$> (js_getAudioTracks (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getAudioTracksUnchecked ::
(MonadIO m) => SourceBuffer -> m AudioTrackList
getAudioTracksUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getAudioTracks (self)))
foreign import javascript unsafe "$1[\"videoTracks\"]"
js_getVideoTracks :: SourceBuffer -> IO (Nullable VideoTrackList)
getVideoTracks ::
(MonadIO m) => SourceBuffer -> m (Maybe VideoTrackList)
getVideoTracks self
= liftIO (nullableToMaybe <$> (js_getVideoTracks (self)))
getVideoTracksUnsafe ::
(MonadIO m, HasCallStack) => SourceBuffer -> m VideoTrackList
getVideoTracksUnsafe self
= liftIO
((nullableToMaybe <$> (js_getVideoTracks (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getVideoTracksUnchecked ::
(MonadIO m) => SourceBuffer -> m VideoTrackList
getVideoTracksUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getVideoTracks (self)))
foreign import javascript unsafe "$1[\"textTracks\"]"
js_getTextTracks :: SourceBuffer -> IO (Nullable TextTrackList)
getTextTracks ::
(MonadIO m) => SourceBuffer -> m (Maybe TextTrackList)
getTextTracks self
= liftIO (nullableToMaybe <$> (js_getTextTracks (self)))
getTextTracksUnsafe ::
(MonadIO m, HasCallStack) => SourceBuffer -> m TextTrackList
getTextTracksUnsafe self
= liftIO
((nullableToMaybe <$> (js_getTextTracks (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTextTracksUnchecked ::
(MonadIO m) => SourceBuffer -> m TextTrackList
getTextTracksUnchecked self
= liftIO (fromJust . nullableToMaybe <$> (js_getTextTracks (self)))
foreign import javascript unsafe "$1[\"appendWindowStart\"] = $2;"
js_setAppendWindowStart :: SourceBuffer -> Double -> IO ()
setAppendWindowStart ::
(MonadIO m) => SourceBuffer -> Double -> m ()
setAppendWindowStart self val
= liftIO (js_setAppendWindowStart (self) val)
foreign import javascript unsafe "$1[\"appendWindowStart\"]"
js_getAppendWindowStart :: SourceBuffer -> IO Double
getAppendWindowStart :: (MonadIO m) => SourceBuffer -> m Double
getAppendWindowStart self = liftIO (js_getAppendWindowStart (self))
foreign import javascript unsafe "$1[\"appendWindowEnd\"] = $2;"
js_setAppendWindowEnd :: SourceBuffer -> Double -> IO ()
setAppendWindowEnd :: (MonadIO m) => SourceBuffer -> Double -> m ()
setAppendWindowEnd self val
= liftIO (js_setAppendWindowEnd (self) val)
foreign import javascript unsafe "$1[\"appendWindowEnd\"]"
js_getAppendWindowEnd :: SourceBuffer -> IO Double
getAppendWindowEnd :: (MonadIO m) => SourceBuffer -> m Double
getAppendWindowEnd self = liftIO (js_getAppendWindowEnd (self))