EncodedVideoChunkInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webcodecs (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.EncodedVideoChunkInit
       (js_newEncodedVideoChunkInit, js_setType, js_getType, js_setTimestamp, js_getTimestamp, js_setDuration, js_getDuration, js_setData, js_getData, js_setTransfer, js_getTransfer, newEncodedVideoChunkInit, setType, getType, setTimestamp, getTimestamp, setDuration, getDuration, getDurationUnsafe, getDurationUnchecked, setData, getData, setTransfer, getTransfer, getTransferUnsafe, getTransferUnchecked, EncodedVideoChunkInit(..), gTypeEncodedVideoChunkInit)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2, $3) => { return ({\"type\": $1, \"timestamp\": $2, \"data\": $3}); })"
        js_newEncodedVideoChunkInit :: JSVal -> JSVal -> AllowSharedBufferSource -> IO EncodedVideoChunkInit
-- | <https://w3c.github.io/webcodecs/#dictdef-encodedvideochunkinit EncodedVideoChunkInit specification>
newEncodedVideoChunkInit :: (MonadDOM m, IsAllowSharedBufferSource data') => EncodedVideoChunkType -> Int53 -> data' -> m EncodedVideoChunkInit
newEncodedVideoChunkInit type' timestamp data' = liftDOM (((toJSVal type') >>= \a1' -> (toJSVal timestamp) >>= \a2' -> js_newEncodedVideoChunkInit a1' a2' (Types.toAllowSharedBufferSource data')))

foreign import javascript safe "(($1, $2) => { $1[\"type\"] = $2; })"
        js_setType :: EncodedVideoChunkInit -> JSVal -> IO ()
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-type EncodedVideoChunkInit.type specification>
setType :: (MonadDOM m) => EncodedVideoChunkInit -> EncodedVideoChunkType -> m ()
setType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setType (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"type\"]; })"
        js_getType :: EncodedVideoChunkInit -> IO JSVal
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-type EncodedVideoChunkInit.type specification>
getType :: (MonadDOM m) => EncodedVideoChunkInit -> m EncodedVideoChunkType
getType self = liftDOM (((js_getType (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })"
        js_setTimestamp :: EncodedVideoChunkInit -> JSVal -> IO ()
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-timestamp EncodedVideoChunkInit.timestamp specification>
setTimestamp :: (MonadDOM m) => EncodedVideoChunkInit -> Int53 -> m ()
setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"
        js_getTimestamp :: EncodedVideoChunkInit -> IO JSVal
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-timestamp EncodedVideoChunkInit.timestamp specification>
getTimestamp :: (MonadDOM m) => EncodedVideoChunkInit -> m Int53
getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"duration\"] = $2; })"
        js_setDuration :: EncodedVideoChunkInit -> JSVal -> IO ()
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>
setDuration :: (MonadDOM m) => EncodedVideoChunkInit -> Word53 -> m ()
setDuration self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDuration (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"duration\"]; })"
        js_getDuration :: EncodedVideoChunkInit -> IO JSVal
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>
getDuration :: (MonadDOM m) => EncodedVideoChunkInit -> m (Maybe Word53)
getDuration self = liftDOM (((js_getDuration (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>
getDurationUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkInit -> m Word53
getDurationUnsafe self = liftDOM ((((js_getDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-duration EncodedVideoChunkInit.duration specification>
getDurationUnchecked :: (MonadDOM m) => EncodedVideoChunkInit -> m Word53
getDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getDuration (self))))

foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"
        js_setData :: EncodedVideoChunkInit -> AllowSharedBufferSource -> IO ()
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-data EncodedVideoChunkInit.data specification>
setData :: (MonadDOM m, IsAllowSharedBufferSource val) => EncodedVideoChunkInit -> val -> m ()
setData self val = liftDOM (void ((js_setData (self) (Types.toAllowSharedBufferSource val))))

foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"
        js_getData :: EncodedVideoChunkInit -> IO AllowSharedBufferSource
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-data EncodedVideoChunkInit.data specification>
getData :: (MonadDOM m) => EncodedVideoChunkInit -> m AllowSharedBufferSource
getData self = liftDOM ((js_getData (self)))

foreign import javascript safe "(($1, $2) => { $1[\"transfer\"] = $2; })"
        js_setTransfer :: EncodedVideoChunkInit -> JSVal -> IO ()
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>
setTransfer :: (MonadDOM m, IsArrayBuffer val) => EncodedVideoChunkInit -> [val] -> m ()
setTransfer self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransfer (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"transfer\"]; })"
        js_getTransfer :: EncodedVideoChunkInit -> IO JSVal
-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>
getTransfer :: (MonadDOM m) => EncodedVideoChunkInit -> m (Maybe [ArrayBuffer])
getTransfer self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>
getTransferUnsafe :: (MonadDOM m, HasCallStack) => EncodedVideoChunkInit -> m [ArrayBuffer]
getTransferUnsafe self = liftDOM ((((js_getTransfer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/webcodecs/#dom-encodedvideochunkinit-transfer EncodedVideoChunkInit.transfer specification>
getTransferUnchecked :: (MonadDOM m) => EncodedVideoChunkInit -> m [ArrayBuffer]
getTransferUnchecked self = liftDOM (((js_getTransfer (self)) >>= fromJSValUnchecked))