{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} 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))