GPUBindingCommandsMixin.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webgpu (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.GPUBindingCommandsMixin
       (js_setBindGroup, js_setBindGroupDynamicOffsetsDataDynamicOffsetsDataStartDynamicOffsetsDataLength, setBindGroup, setBindGroupDynamicOffsetsDataDynamicOffsetsDataStartDynamicOffsetsDataLength, GPUBindingCommandsMixin(..), gTypeGPUBindingCommandsMixin, IsGPUBindingCommandsMixin, toGPUBindingCommandsMixin)
       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, $4) => { return $1[\"setBindGroup\"]($2, $3, $4); })"
        js_setBindGroup :: GPUBindingCommandsMixin -> Word -> JSVal -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/GPUComputePassEncoder/setBindGroup MDN GPUBindingCommandsMixin.setBindGroup documentation>
setBindGroup :: (MonadDOM m, IsGPUBindingCommandsMixin self) => self -> Word -> Maybe GPUBindGroup -> Maybe [Word] -> m ()
setBindGroup self index bindGroup dynamicOffsets = liftDOM (void (((toJSVal bindGroup) >>= \a3' -> (P.maybe (P.return jsUndefined) toJSVal dynamicOffsets) >>= \a4' -> js_setBindGroup ((Types.toGPUBindingCommandsMixin self)) (index) a3' a4')))

foreign import javascript safe "(($1, $2, $3, $4, $5, $6) => { return $1[\"setBindGroup\"]($2, $3, $4, $5, $6); })"
        js_setBindGroupDynamicOffsetsDataDynamicOffsetsDataStartDynamicOffsetsDataLength :: GPUBindingCommandsMixin -> Word -> JSVal -> Uint32Array -> JSVal -> Word -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/GPUComputePassEncoder/setBindGroup MDN GPUBindingCommandsMixin.setBindGroup documentation>
setBindGroupDynamicOffsetsDataDynamicOffsetsDataStartDynamicOffsetsDataLength :: (MonadDOM m, IsGPUBindingCommandsMixin self, IsUint32Array dynamicOffsetsData) => self -> Word -> Maybe GPUBindGroup -> dynamicOffsetsData -> Word53 -> Word -> m ()
setBindGroupDynamicOffsetsDataDynamicOffsetsDataStartDynamicOffsetsDataLength self index bindGroup dynamicOffsetsData dynamicOffsetsDataStart dynamicOffsetsDataLength = liftDOM (void (((toJSVal bindGroup) >>= \a3' -> (toJSVal dynamicOffsetsDataStart) >>= \a5' -> js_setBindGroupDynamicOffsetsDataDynamicOffsetsDataStartDynamicOffsetsDataLength ((Types.toGPUBindingCommandsMixin self)) (index) a3' (Types.toUint32Array dynamicOffsetsData) a5' (dynamicOffsetsDataLength))))