ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webgl1 (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.WebGLContextAttributes
       (js_newWebGLContextAttributes, js_setAlpha, js_getAlpha, js_setDepth, js_getDepth, js_setStencil, js_getStencil, js_setAntialias, js_getAntialias, js_setPremultipliedAlpha, js_getPremultipliedAlpha, js_setPreserveDrawingBuffer, js_getPreserveDrawingBuffer, js_setPowerPreference, js_getPowerPreference, js_setFailIfMajorPerformanceCaveat, js_getFailIfMajorPerformanceCaveat, js_setDesynchronized, js_getDesynchronized, js_setXrCompatible, js_getXrCompatible, newWebGLContextAttributes, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setDepth, getDepth, getDepthUnsafe, getDepthUnchecked, setStencil, getStencil, getStencilUnsafe, getStencilUnchecked, setAntialias, getAntialias, getAntialiasUnsafe, getAntialiasUnchecked, setPremultipliedAlpha, getPremultipliedAlpha, getPremultipliedAlphaUnsafe, getPremultipliedAlphaUnchecked, setPreserveDrawingBuffer, getPreserveDrawingBuffer, getPreserveDrawingBufferUnsafe, getPreserveDrawingBufferUnchecked, setPowerPreference, getPowerPreference, getPowerPreferenceUnsafe, getPowerPreferenceUnchecked, setFailIfMajorPerformanceCaveat, getFailIfMajorPerformanceCaveat, getFailIfMajorPerformanceCaveatUnsafe, getFailIfMajorPerformanceCaveatUnchecked, setDesynchronized, getDesynchronized, getDesynchronizedUnsafe, getDesynchronizedUnchecked, setXrCompatible, getXrCompatible, getXrCompatibleUnsafe, getXrCompatibleUnchecked, WebGLContextAttributes(..), gTypeWebGLContextAttributes)
       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 "(() => { return ({}); })"
        js_newWebGLContextAttributes :: IO WebGLContextAttributes
-- | <https://registry.khronos.org/webgl/specs/latest/1.0/#WebGLContextAttributes WebGLContextAttributes specification>
newWebGLContextAttributes :: (MonadDOM m) => m WebGLContextAttributes
newWebGLContextAttributes = liftDOM ((js_newWebGLContextAttributes))

foreign import javascript safe "(($1, $2) => { $1[\"alpha\"] = $2; })"
        js_setAlpha :: WebGLContextAttributes -> Bool -> IO ()
setAlpha :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setAlpha self val = liftDOM (void ((js_setAlpha (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"alpha\"]; })"
        js_getAlpha :: WebGLContextAttributes -> IO JSVal
getAlpha :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getAlpha self = liftDOM (((js_getAlpha (self)) >>= fromJSValUnchecked))

getAlphaUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getAlphaUnsafe self = liftDOM ((((js_getAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getAlphaUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getAlpha (self))))

foreign import javascript safe "(($1, $2) => { $1[\"depth\"] = $2; })"
        js_setDepth :: WebGLContextAttributes -> Bool -> IO ()
setDepth :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setDepth self val = liftDOM (void ((js_setDepth (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"depth\"]; })"
        js_getDepth :: WebGLContextAttributes -> IO JSVal
getDepth :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getDepth self = liftDOM (((js_getDepth (self)) >>= fromJSValUnchecked))

getDepthUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getDepthUnsafe self = liftDOM ((((js_getDepth (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getDepthUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getDepthUnchecked self = liftDOM ((pFromJSVal <$> (js_getDepth (self))))

foreign import javascript safe "(($1, $2) => { $1[\"stencil\"] = $2; })"
        js_setStencil :: WebGLContextAttributes -> Bool -> IO ()
setStencil :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setStencil self val = liftDOM (void ((js_setStencil (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"stencil\"]; })"
        js_getStencil :: WebGLContextAttributes -> IO JSVal
getStencil :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getStencil self = liftDOM (((js_getStencil (self)) >>= fromJSValUnchecked))

getStencilUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getStencilUnsafe self = liftDOM ((((js_getStencil (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getStencilUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getStencilUnchecked self = liftDOM ((pFromJSVal <$> (js_getStencil (self))))

foreign import javascript safe "(($1, $2) => { $1[\"antialias\"] = $2; })"
        js_setAntialias :: WebGLContextAttributes -> Bool -> IO ()
setAntialias :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setAntialias self val = liftDOM (void ((js_setAntialias (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"antialias\"]; })"
        js_getAntialias :: WebGLContextAttributes -> IO JSVal
getAntialias :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getAntialias self = liftDOM (((js_getAntialias (self)) >>= fromJSValUnchecked))

getAntialiasUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getAntialiasUnsafe self = liftDOM ((((js_getAntialias (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getAntialiasUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getAntialiasUnchecked self = liftDOM ((pFromJSVal <$> (js_getAntialias (self))))

foreign import javascript safe "(($1, $2) => { $1[\"premultipliedAlpha\"] = $2; })"
        js_setPremultipliedAlpha :: WebGLContextAttributes -> Bool -> IO ()
setPremultipliedAlpha :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setPremultipliedAlpha self val = liftDOM (void ((js_setPremultipliedAlpha (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"premultipliedAlpha\"]; })"
        js_getPremultipliedAlpha :: WebGLContextAttributes -> IO JSVal
getPremultipliedAlpha :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getPremultipliedAlpha self = liftDOM (((js_getPremultipliedAlpha (self)) >>= fromJSValUnchecked))

getPremultipliedAlphaUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getPremultipliedAlphaUnsafe self = liftDOM ((((js_getPremultipliedAlpha (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getPremultipliedAlphaUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getPremultipliedAlphaUnchecked self = liftDOM ((pFromJSVal <$> (js_getPremultipliedAlpha (self))))

foreign import javascript safe "(($1, $2) => { $1[\"preserveDrawingBuffer\"] = $2; })"
        js_setPreserveDrawingBuffer :: WebGLContextAttributes -> Bool -> IO ()
setPreserveDrawingBuffer :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setPreserveDrawingBuffer self val = liftDOM (void ((js_setPreserveDrawingBuffer (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"preserveDrawingBuffer\"]; })"
        js_getPreserveDrawingBuffer :: WebGLContextAttributes -> IO JSVal
getPreserveDrawingBuffer :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getPreserveDrawingBuffer self = liftDOM (((js_getPreserveDrawingBuffer (self)) >>= fromJSValUnchecked))

getPreserveDrawingBufferUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getPreserveDrawingBufferUnsafe self = liftDOM ((((js_getPreserveDrawingBuffer (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getPreserveDrawingBufferUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getPreserveDrawingBufferUnchecked self = liftDOM ((pFromJSVal <$> (js_getPreserveDrawingBuffer (self))))

foreign import javascript safe "(($1, $2) => { $1[\"powerPreference\"] = $2; })"
        js_setPowerPreference :: WebGLContextAttributes -> JSVal -> IO ()
setPowerPreference :: (MonadDOM m) => WebGLContextAttributes -> WebGLPowerPreference -> m ()
setPowerPreference self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setPowerPreference (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"powerPreference\"]; })"
        js_getPowerPreference :: WebGLContextAttributes -> IO JSVal
getPowerPreference :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe WebGLPowerPreference)
getPowerPreference self = liftDOM (((js_getPowerPreference (self)) >>= fromJSValUnchecked))

getPowerPreferenceUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m WebGLPowerPreference
getPowerPreferenceUnsafe self = liftDOM ((((js_getPowerPreference (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getPowerPreferenceUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m WebGLPowerPreference
getPowerPreferenceUnchecked self = liftDOM ((pFromJSVal <$> (js_getPowerPreference (self))))

foreign import javascript safe "(($1, $2) => { $1[\"failIfMajorPerformanceCaveat\"] = $2; })"
        js_setFailIfMajorPerformanceCaveat :: WebGLContextAttributes -> Bool -> IO ()
setFailIfMajorPerformanceCaveat :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setFailIfMajorPerformanceCaveat self val = liftDOM (void ((js_setFailIfMajorPerformanceCaveat (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"failIfMajorPerformanceCaveat\"]; })"
        js_getFailIfMajorPerformanceCaveat :: WebGLContextAttributes -> IO JSVal
getFailIfMajorPerformanceCaveat :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getFailIfMajorPerformanceCaveat self = liftDOM (((js_getFailIfMajorPerformanceCaveat (self)) >>= fromJSValUnchecked))

getFailIfMajorPerformanceCaveatUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getFailIfMajorPerformanceCaveatUnsafe self = liftDOM ((((js_getFailIfMajorPerformanceCaveat (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getFailIfMajorPerformanceCaveatUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getFailIfMajorPerformanceCaveatUnchecked self = liftDOM ((pFromJSVal <$> (js_getFailIfMajorPerformanceCaveat (self))))

foreign import javascript safe "(($1, $2) => { $1[\"desynchronized\"] = $2; })"
        js_setDesynchronized :: WebGLContextAttributes -> Bool -> IO ()
setDesynchronized :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setDesynchronized self val = liftDOM (void ((js_setDesynchronized (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"desynchronized\"]; })"
        js_getDesynchronized :: WebGLContextAttributes -> IO JSVal
getDesynchronized :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getDesynchronized self = liftDOM (((js_getDesynchronized (self)) >>= fromJSValUnchecked))

getDesynchronizedUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getDesynchronizedUnsafe self = liftDOM ((((js_getDesynchronized (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

getDesynchronizedUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getDesynchronizedUnchecked self = liftDOM ((pFromJSVal <$> (js_getDesynchronized (self))))

foreign import javascript safe "(($1, $2) => { $1[\"xrCompatible\"] = $2; })"
        js_setXrCompatible :: WebGLContextAttributes -> Bool -> IO ()
-- | <https://immersive-web.github.io/webxr/#dom-webglcontextattributes-xrcompatible WebGLContextAttributes.xrCompatible specification>
setXrCompatible :: (MonadDOM m) => WebGLContextAttributes -> Bool -> m ()
setXrCompatible self val = liftDOM (void ((js_setXrCompatible (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"xrCompatible\"]; })"
        js_getXrCompatible :: WebGLContextAttributes -> IO JSVal
-- | <https://immersive-web.github.io/webxr/#dom-webglcontextattributes-xrcompatible WebGLContextAttributes.xrCompatible specification>
getXrCompatible :: (MonadDOM m) => WebGLContextAttributes -> m (Maybe Bool)
getXrCompatible self = liftDOM (((js_getXrCompatible (self)) >>= fromJSValUnchecked))

-- | <https://immersive-web.github.io/webxr/#dom-webglcontextattributes-xrcompatible WebGLContextAttributes.xrCompatible specification>
getXrCompatibleUnsafe :: (MonadDOM m, HasCallStack) => WebGLContextAttributes -> m Bool
getXrCompatibleUnsafe self = liftDOM ((((js_getXrCompatible (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://immersive-web.github.io/webxr/#dom-webglcontextattributes-xrcompatible WebGLContextAttributes.xrCompatible specification>
getXrCompatibleUnchecked :: (MonadDOM m) => WebGLContextAttributes -> m Bool
getXrCompatibleUnchecked self = liftDOM ((pFromJSVal <$> (js_getXrCompatible (self))))