AudioBufferOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webaudio-1.1 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.AudioBufferOptions
       (js_newAudioBufferOptions, js_setNumberOfChannels, js_getNumberOfChannels, js_setLength, js_getLength, js_setSampleRate, js_getSampleRate, newAudioBufferOptions, setNumberOfChannels, getNumberOfChannels, getNumberOfChannelsUnsafe, getNumberOfChannelsUnchecked, setLength, getLength, setSampleRate, getSampleRate, AudioBufferOptions(..), gTypeAudioBufferOptions)
       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) => { return ({\"length\": $1, \"sampleRate\": $2}); })"
        js_newAudioBufferOptions :: Word -> Float -> IO AudioBufferOptions
-- | <https://webaudio.github.io/web-audio-api/#AudioBufferOptions AudioBufferOptions specification>
newAudioBufferOptions :: (MonadDOM m) => Word -> Float -> m AudioBufferOptions
newAudioBufferOptions length sampleRate = liftDOM ((js_newAudioBufferOptions (length) (sampleRate)))

foreign import javascript safe "(($1, $2) => { $1[\"numberOfChannels\"] = $2; })"
        js_setNumberOfChannels :: AudioBufferOptions -> Word -> IO ()
-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>
setNumberOfChannels :: (MonadDOM m) => AudioBufferOptions -> Word -> m ()
setNumberOfChannels self val = liftDOM (void ((js_setNumberOfChannels (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"numberOfChannels\"]; })"
        js_getNumberOfChannels :: AudioBufferOptions -> IO JSVal
-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>
getNumberOfChannels :: (MonadDOM m) => AudioBufferOptions -> m (Maybe Word)
getNumberOfChannels self = liftDOM (((js_getNumberOfChannels (self)) >>= fromJSValUnchecked))

-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>
getNumberOfChannelsUnsafe :: (MonadDOM m, HasCallStack) => AudioBufferOptions -> m Word
getNumberOfChannelsUnsafe self = liftDOM ((((js_getNumberOfChannels (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-numberofchannels AudioBufferOptions.numberOfChannels specification>
getNumberOfChannelsUnchecked :: (MonadDOM m) => AudioBufferOptions -> m Word
getNumberOfChannelsUnchecked self = liftDOM ((pFromJSVal <$> (js_getNumberOfChannels (self))))

foreign import javascript safe "(($1, $2) => { $1[\"length\"] = $2; })"
        js_setLength :: AudioBufferOptions -> Word -> IO ()
-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-length AudioBufferOptions.length specification>
setLength :: (MonadDOM m) => AudioBufferOptions -> Word -> m ()
setLength self val = liftDOM (void ((js_setLength (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"length\"]; })"
        js_getLength :: AudioBufferOptions -> IO Word
-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-length AudioBufferOptions.length specification>
getLength :: (MonadDOM m) => AudioBufferOptions -> m Word
getLength self = liftDOM ((js_getLength (self)))

foreign import javascript safe "(($1, $2) => { $1[\"sampleRate\"] = $2; })"
        js_setSampleRate :: AudioBufferOptions -> Float -> IO ()
-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-samplerate AudioBufferOptions.sampleRate specification>
setSampleRate :: (MonadDOM m) => AudioBufferOptions -> Float -> m ()
setSampleRate self val = liftDOM (void ((js_setSampleRate (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"sampleRate\"]; })"
        js_getSampleRate :: AudioBufferOptions -> IO Float
-- | <https://webaudio.github.io/web-audio-api/#dom-audiobufferoptions-samplerate AudioBufferOptions.sampleRate specification>
getSampleRate :: (MonadDOM m) => AudioBufferOptions -> m Float
getSampleRate self = liftDOM ((js_getSampleRate (self)))