{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.SourceBuffer (js_appendBuffer, appendBuffer, js_abort, abort, js_remove, remove, js_setMode, setMode, js_getMode, getMode, js_getUpdating, getUpdating, js_getBuffered, getBuffered, js_setTimestampOffset, setTimestampOffset, js_getTimestampOffset, getTimestampOffset, js_getAudioTracks, getAudioTracks, js_getVideoTracks, getVideoTracks, js_getTextTracks, getTextTracks, js_setAppendWindowStart, setAppendWindowStart, js_getAppendWindowStart, getAppendWindowStart, js_setAppendWindowEnd, setAppendWindowEnd, js_getAppendWindowEnd, getAppendWindowEnd, updatestart, update, updateend, error, abortEvent, 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, jsUndefined) 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 Data.Traversable (mapM) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript safe "$1[\"appendBuffer\"]($2)" js_appendBuffer :: SourceBuffer -> BufferSource -> IO () -- | appendBuffer :: (MonadIO m, IsBufferSource data') => SourceBuffer -> data' -> m () appendBuffer self data' = liftIO (js_appendBuffer self (toBufferSource data')) foreign import javascript safe "$1[\"abort\"]()" js_abort :: SourceBuffer -> IO () -- | abort :: (MonadIO m) => SourceBuffer -> m () abort self = liftIO (js_abort self) foreign import javascript safe "$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 safe "$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 safe "$1[\"buffered\"]" js_getBuffered :: SourceBuffer -> IO TimeRanges -- | getBuffered :: (MonadIO m) => SourceBuffer -> m TimeRanges getBuffered self = liftIO (js_getBuffered self) foreign import javascript safe "$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 AudioTrackList -- | getAudioTracks :: (MonadIO m) => SourceBuffer -> m AudioTrackList getAudioTracks self = liftIO (js_getAudioTracks self) foreign import javascript unsafe "$1[\"videoTracks\"]" js_getVideoTracks :: SourceBuffer -> IO VideoTrackList -- | getVideoTracks :: (MonadIO m) => SourceBuffer -> m VideoTrackList getVideoTracks self = liftIO (js_getVideoTracks self) foreign import javascript unsafe "$1[\"textTracks\"]" js_getTextTracks :: SourceBuffer -> IO TextTrackList -- | getTextTracks :: (MonadIO m) => SourceBuffer -> m TextTrackList getTextTracks self = liftIO (js_getTextTracks self) foreign import javascript safe "$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 safe "$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) -- | updatestart :: EventName SourceBuffer onupdatestart updatestart = unsafeEventName (toJSString "updatestart") -- | update :: EventName SourceBuffer onupdate update = unsafeEventName (toJSString "update") -- | updateend :: EventName SourceBuffer onupdateend updateend = unsafeEventName (toJSString "updateend") -- | error :: EventName SourceBuffer UIEvent error = unsafeEventNameAsync (toJSString "error") -- | abortEvent :: EventName SourceBuffer UIEvent abortEvent = unsafeEventNameAsync (toJSString "abort")