{-# LINE 1 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
{-# OPTIONS_GHC -Wno-unused-imports #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE NoImplicitPrelude #-}
module WGPU.Raw.Generated.Struct.WGPUDeviceExtras where
import Data.Word (Word16, Word32, Word64)
import Data.Int (Int32)
import Foreign
import Foreign.C.Types
import WGPU.Raw.Types
import Prelude (pure, ($!))
import WGPU.Raw.Generated.Enum.WGPUNativeFeature
import WGPU.Raw.Generated.Struct.WGPUChainedStruct
data = {
WGPUDeviceExtras -> WGPUChainedStruct
chain :: WGPUChainedStruct,
WGPUDeviceExtras -> Word32
maxTextureDimension1D :: Word32,
WGPUDeviceExtras -> Word32
maxTextureDimension2D :: Word32,
WGPUDeviceExtras -> Word32
maxTextureDimension3D :: Word32,
WGPUDeviceExtras -> Word32
maxTextureArrayLayers :: Word32,
WGPUDeviceExtras -> Word32
maxBindGroups :: Word32,
WGPUDeviceExtras -> Word32
maxDynamicStorageBuffersPerPipelineLayout :: Word32,
WGPUDeviceExtras -> Word32
maxStorageBuffersPerShaderStage :: Word32,
WGPUDeviceExtras -> Word32
maxStorageBufferBindingSize :: Word32,
WGPUDeviceExtras -> WGPUNativeFeature
nativeFeatures :: WGPUNativeFeature,
WGPUDeviceExtras -> Ptr CChar
label :: Ptr (CChar),
WGPUDeviceExtras -> Ptr CChar
tracePath :: Ptr (CChar)
}
instance Storable WGPUDeviceExtras where
sizeOf :: WGPUDeviceExtras -> Int
sizeOf WGPUDeviceExtras
_ = ((Int
72))
{-# LINE 40 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
alignment = sizeOf
peek :: Ptr WGPUDeviceExtras -> IO WGPUDeviceExtras
peek Ptr WGPUDeviceExtras
ptr = do
WGPUChainedStruct
chain <- ((\Ptr WGPUDeviceExtras
hsc_ptr -> Ptr WGPUDeviceExtras -> Int -> IO WGPUChainedStruct
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr WGPUDeviceExtras
hsc_ptr Int
0)) Ptr WGPUDeviceExtras
ptr
{-# LINE 43 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxTextureDimension1D <- ((\hsc_ptr -> peekByteOff hsc_ptr 16)) ptr
{-# LINE 44 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxTextureDimension2D <- ((\hsc_ptr -> peekByteOff hsc_ptr 20)) ptr
{-# LINE 45 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxTextureDimension3D <- ((\hsc_ptr -> peekByteOff hsc_ptr 24)) ptr
{-# LINE 46 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxTextureArrayLayers <- ((\hsc_ptr -> peekByteOff hsc_ptr 28)) ptr
{-# LINE 47 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxBindGroups <- ((\hsc_ptr -> peekByteOff hsc_ptr 32)) ptr
{-# LINE 48 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxDynamicStorageBuffersPerPipelineLayout <- ((\hsc_ptr -> peekByteOff hsc_ptr 36)) ptr
{-# LINE 49 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxStorageBuffersPerShaderStage <- ((\hsc_ptr -> peekByteOff hsc_ptr 40)) ptr
{-# LINE 50 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
maxStorageBufferBindingSize <- ((\hsc_ptr -> peekByteOff hsc_ptr 44)) ptr
{-# LINE 51 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
nativeFeatures <- ((\hsc_ptr -> peekByteOff hsc_ptr 48)) ptr
{-# LINE 52 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
label <- ((\hsc_ptr -> peekByteOff hsc_ptr 56)) ptr
{-# LINE 53 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
tracePath <- ((\hsc_ptr -> peekByteOff hsc_ptr 64)) ptr
{-# LINE 54 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
pure $! WGPUDeviceExtras{..}
poke :: Ptr WGPUDeviceExtras -> WGPUDeviceExtras -> IO ()
poke Ptr WGPUDeviceExtras
ptr WGPUDeviceExtras{Word32
Ptr CChar
WGPUNativeFeature
WGPUChainedStruct
tracePath :: Ptr CChar
label :: Ptr CChar
nativeFeatures :: WGPUNativeFeature
maxStorageBufferBindingSize :: Word32
maxStorageBuffersPerShaderStage :: Word32
maxDynamicStorageBuffersPerPipelineLayout :: Word32
maxBindGroups :: Word32
maxTextureArrayLayers :: Word32
maxTextureDimension3D :: Word32
maxTextureDimension2D :: Word32
maxTextureDimension1D :: Word32
chain :: WGPUChainedStruct
tracePath :: WGPUDeviceExtras -> Ptr CChar
label :: WGPUDeviceExtras -> Ptr CChar
nativeFeatures :: WGPUDeviceExtras -> WGPUNativeFeature
maxStorageBufferBindingSize :: WGPUDeviceExtras -> Word32
maxStorageBuffersPerShaderStage :: WGPUDeviceExtras -> Word32
maxDynamicStorageBuffersPerPipelineLayout :: WGPUDeviceExtras -> Word32
maxBindGroups :: WGPUDeviceExtras -> Word32
maxTextureArrayLayers :: WGPUDeviceExtras -> Word32
maxTextureDimension3D :: WGPUDeviceExtras -> Word32
maxTextureDimension2D :: WGPUDeviceExtras -> Word32
maxTextureDimension1D :: WGPUDeviceExtras -> Word32
chain :: WGPUDeviceExtras -> WGPUChainedStruct
..} = do
((\Ptr WGPUDeviceExtras
hsc_ptr -> Ptr WGPUDeviceExtras -> Int -> WGPUChainedStruct -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr WGPUDeviceExtras
hsc_ptr Int
0)) Ptr WGPUDeviceExtras
ptr WGPUChainedStruct
chain
{-# LINE 57 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 16)) ptr maxTextureDimension1D
{-# LINE 58 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 20)) ptr maxTextureDimension2D
{-# LINE 59 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 24)) ptr maxTextureDimension3D
{-# LINE 60 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 28)) ptr maxTextureArrayLayers
{-# LINE 61 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 32)) ptr maxBindGroups
{-# LINE 62 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 36)) ptr maxDynamicStorageBuffersPerPipelineLayout
{-# LINE 63 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 40)) ptr maxStorageBuffersPerShaderStage
{-# LINE 64 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 44)) ptr maxStorageBufferBindingSize
{-# LINE 65 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 48)) ptr nativeFeatures
{-# LINE 66 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 56)) ptr label
{-# LINE 67 "src/WGPU/Raw/Generated/Struct/WGPUDeviceExtras.hsc" #-}
((\hsc_ptr -> pokeByteOff hsc_ptr 64)) ptr tracePath