{-# language CPP #-}
module Vulkan.Extensions.VK_EXT_pipeline_robustness ( PhysicalDevicePipelineRobustnessFeaturesEXT(..)
, PipelineRobustnessCreateInfoEXT(..)
, PhysicalDevicePipelineRobustnessPropertiesEXT(..)
, PipelineRobustnessBufferBehaviorEXT( PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DEVICE_DEFAULT_EXT
, PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DISABLED_EXT
, PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_EXT
, PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_2_EXT
, ..
)
, PipelineRobustnessImageBehaviorEXT( PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DEVICE_DEFAULT_EXT
, PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DISABLED_EXT
, PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_EXT
, PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_2_EXT
, ..
)
, EXT_PIPELINE_ROBUSTNESS_SPEC_VERSION
, pattern EXT_PIPELINE_ROBUSTNESS_SPEC_VERSION
, EXT_PIPELINE_ROBUSTNESS_EXTENSION_NAME
, pattern EXT_PIPELINE_ROBUSTNESS_EXTENSION_NAME
) where
import Vulkan.Internal.Utils (enumReadPrec)
import Vulkan.Internal.Utils (enumShowsPrec)
import Foreign.Marshal.Alloc (allocaBytes)
import Foreign.Ptr (nullPtr)
import Foreign.Ptr (plusPtr)
import GHC.Show (showsPrec)
import Vulkan.CStruct (FromCStruct)
import Vulkan.CStruct (FromCStruct(..))
import Vulkan.CStruct (ToCStruct)
import Vulkan.CStruct (ToCStruct(..))
import Vulkan.Zero (Zero)
import Vulkan.Zero (Zero(..))
import Data.String (IsString)
import Data.Typeable (Typeable)
import Foreign.Storable (Storable)
import Foreign.Storable (Storable(peek))
import Foreign.Storable (Storable(poke))
import qualified Foreign.Storable (Storable(..))
import GHC.Generics (Generic)
import Data.Int (Int32)
import Foreign.Ptr (Ptr)
import GHC.Read (Read(readPrec))
import GHC.Show (Show(showsPrec))
import Data.Kind (Type)
import Vulkan.Core10.FundamentalTypes (bool32ToBool)
import Vulkan.Core10.FundamentalTypes (boolToBool32)
import Vulkan.Core10.FundamentalTypes (Bool32)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_PIPELINE_ROBUSTNESS_FEATURES_EXT))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_PIPELINE_ROBUSTNESS_PROPERTIES_EXT))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PIPELINE_ROBUSTNESS_CREATE_INFO_EXT))
data PhysicalDevicePipelineRobustnessFeaturesEXT = PhysicalDevicePipelineRobustnessFeaturesEXT
{
PhysicalDevicePipelineRobustnessFeaturesEXT -> Bool
pipelineRobustness :: Bool }
deriving (Typeable, PhysicalDevicePipelineRobustnessFeaturesEXT
-> PhysicalDevicePipelineRobustnessFeaturesEXT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDevicePipelineRobustnessFeaturesEXT
-> PhysicalDevicePipelineRobustnessFeaturesEXT -> Bool
$c/= :: PhysicalDevicePipelineRobustnessFeaturesEXT
-> PhysicalDevicePipelineRobustnessFeaturesEXT -> Bool
== :: PhysicalDevicePipelineRobustnessFeaturesEXT
-> PhysicalDevicePipelineRobustnessFeaturesEXT -> Bool
$c== :: PhysicalDevicePipelineRobustnessFeaturesEXT
-> PhysicalDevicePipelineRobustnessFeaturesEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDevicePipelineRobustnessFeaturesEXT)
#endif
deriving instance Show PhysicalDevicePipelineRobustnessFeaturesEXT
instance ToCStruct PhysicalDevicePipelineRobustnessFeaturesEXT where
withCStruct :: forall b.
PhysicalDevicePipelineRobustnessFeaturesEXT
-> (Ptr PhysicalDevicePipelineRobustnessFeaturesEXT -> IO b)
-> IO b
withCStruct PhysicalDevicePipelineRobustnessFeaturesEXT
x Ptr PhysicalDevicePipelineRobustnessFeaturesEXT -> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p PhysicalDevicePipelineRobustnessFeaturesEXT
x (Ptr PhysicalDevicePipelineRobustnessFeaturesEXT -> IO b
f Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p)
pokeCStruct :: forall b.
Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
-> PhysicalDevicePipelineRobustnessFeaturesEXT -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p PhysicalDevicePipelineRobustnessFeaturesEXT{Bool
pipelineRobustness :: Bool
$sel:pipelineRobustness:PhysicalDevicePipelineRobustnessFeaturesEXT :: PhysicalDevicePipelineRobustnessFeaturesEXT -> Bool
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_PIPELINE_ROBUSTNESS_FEATURES_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
pipelineRobustness))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr PhysicalDevicePipelineRobustnessFeaturesEXT -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_PIPELINE_ROBUSTNESS_FEATURES_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDevicePipelineRobustnessFeaturesEXT where
peekCStruct :: Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
-> IO PhysicalDevicePipelineRobustnessFeaturesEXT
peekCStruct Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p = do
Bool32
pipelineRobustness <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ Bool -> PhysicalDevicePipelineRobustnessFeaturesEXT
PhysicalDevicePipelineRobustnessFeaturesEXT
(Bool32 -> Bool
bool32ToBool Bool32
pipelineRobustness)
instance Storable PhysicalDevicePipelineRobustnessFeaturesEXT where
sizeOf :: PhysicalDevicePipelineRobustnessFeaturesEXT -> Int
sizeOf ~PhysicalDevicePipelineRobustnessFeaturesEXT
_ = Int
24
alignment :: PhysicalDevicePipelineRobustnessFeaturesEXT -> Int
alignment ~PhysicalDevicePipelineRobustnessFeaturesEXT
_ = Int
8
peek :: Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
-> IO PhysicalDevicePipelineRobustnessFeaturesEXT
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
-> PhysicalDevicePipelineRobustnessFeaturesEXT -> IO ()
poke Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
ptr PhysicalDevicePipelineRobustnessFeaturesEXT
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePipelineRobustnessFeaturesEXT
ptr PhysicalDevicePipelineRobustnessFeaturesEXT
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDevicePipelineRobustnessFeaturesEXT where
zero :: PhysicalDevicePipelineRobustnessFeaturesEXT
zero = Bool -> PhysicalDevicePipelineRobustnessFeaturesEXT
PhysicalDevicePipelineRobustnessFeaturesEXT
forall a. Zero a => a
zero
data PipelineRobustnessCreateInfoEXT = PipelineRobustnessCreateInfoEXT
{
PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessBufferBehaviorEXT
storageBuffers :: PipelineRobustnessBufferBehaviorEXT
,
PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessBufferBehaviorEXT
uniformBuffers :: PipelineRobustnessBufferBehaviorEXT
,
PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessBufferBehaviorEXT
vertexInputs :: PipelineRobustnessBufferBehaviorEXT
,
PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessImageBehaviorEXT
images :: PipelineRobustnessImageBehaviorEXT
}
deriving (Typeable, PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessCreateInfoEXT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessCreateInfoEXT -> Bool
$c/= :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessCreateInfoEXT -> Bool
== :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessCreateInfoEXT -> Bool
$c== :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessCreateInfoEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PipelineRobustnessCreateInfoEXT)
#endif
deriving instance Show PipelineRobustnessCreateInfoEXT
instance ToCStruct PipelineRobustnessCreateInfoEXT where
withCStruct :: forall b.
PipelineRobustnessCreateInfoEXT
-> (Ptr PipelineRobustnessCreateInfoEXT -> IO b) -> IO b
withCStruct PipelineRobustnessCreateInfoEXT
x Ptr PipelineRobustnessCreateInfoEXT -> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
32 forall a b. (a -> b) -> a -> b
$ \Ptr PipelineRobustnessCreateInfoEXT
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PipelineRobustnessCreateInfoEXT
p PipelineRobustnessCreateInfoEXT
x (Ptr PipelineRobustnessCreateInfoEXT -> IO b
f Ptr PipelineRobustnessCreateInfoEXT
p)
pokeCStruct :: forall b.
Ptr PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessCreateInfoEXT -> IO b -> IO b
pokeCStruct Ptr PipelineRobustnessCreateInfoEXT
p PipelineRobustnessCreateInfoEXT{PipelineRobustnessImageBehaviorEXT
PipelineRobustnessBufferBehaviorEXT
images :: PipelineRobustnessImageBehaviorEXT
vertexInputs :: PipelineRobustnessBufferBehaviorEXT
uniformBuffers :: PipelineRobustnessBufferBehaviorEXT
storageBuffers :: PipelineRobustnessBufferBehaviorEXT
$sel:images:PipelineRobustnessCreateInfoEXT :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessImageBehaviorEXT
$sel:vertexInputs:PipelineRobustnessCreateInfoEXT :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessBufferBehaviorEXT
$sel:uniformBuffers:PipelineRobustnessCreateInfoEXT :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessBufferBehaviorEXT
$sel:storageBuffers:PipelineRobustnessCreateInfoEXT :: PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessBufferBehaviorEXT
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PIPELINE_ROBUSTNESS_CREATE_INFO_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (PipelineRobustnessBufferBehaviorEXT
storageBuffers)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (PipelineRobustnessBufferBehaviorEXT
uniformBuffers)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (PipelineRobustnessBufferBehaviorEXT
vertexInputs)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr PipelineRobustnessImageBehaviorEXT)) (PipelineRobustnessImageBehaviorEXT
images)
IO b
f
cStructSize :: Int
cStructSize = Int
32
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b. Ptr PipelineRobustnessCreateInfoEXT -> IO b -> IO b
pokeZeroCStruct Ptr PipelineRobustnessCreateInfoEXT
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PIPELINE_ROBUSTNESS_CREATE_INFO_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (forall a. Zero a => a
zero)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (forall a. Zero a => a
zero)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (forall a. Zero a => a
zero)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr PipelineRobustnessImageBehaviorEXT)) (forall a. Zero a => a
zero)
IO b
f
instance FromCStruct PipelineRobustnessCreateInfoEXT where
peekCStruct :: Ptr PipelineRobustnessCreateInfoEXT
-> IO PipelineRobustnessCreateInfoEXT
peekCStruct Ptr PipelineRobustnessCreateInfoEXT
p = do
PipelineRobustnessBufferBehaviorEXT
storageBuffers <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessBufferBehaviorEXT ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr PipelineRobustnessBufferBehaviorEXT))
PipelineRobustnessBufferBehaviorEXT
uniformBuffers <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessBufferBehaviorEXT ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr PipelineRobustnessBufferBehaviorEXT))
PipelineRobustnessBufferBehaviorEXT
vertexInputs <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessBufferBehaviorEXT ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr PipelineRobustnessBufferBehaviorEXT))
PipelineRobustnessImageBehaviorEXT
images <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessImageBehaviorEXT ((Ptr PipelineRobustnessCreateInfoEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr PipelineRobustnessImageBehaviorEXT))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessCreateInfoEXT
PipelineRobustnessCreateInfoEXT
PipelineRobustnessBufferBehaviorEXT
storageBuffers PipelineRobustnessBufferBehaviorEXT
uniformBuffers PipelineRobustnessBufferBehaviorEXT
vertexInputs PipelineRobustnessImageBehaviorEXT
images
instance Storable PipelineRobustnessCreateInfoEXT where
sizeOf :: PipelineRobustnessCreateInfoEXT -> Int
sizeOf ~PipelineRobustnessCreateInfoEXT
_ = Int
32
alignment :: PipelineRobustnessCreateInfoEXT -> Int
alignment ~PipelineRobustnessCreateInfoEXT
_ = Int
8
peek :: Ptr PipelineRobustnessCreateInfoEXT
-> IO PipelineRobustnessCreateInfoEXT
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PipelineRobustnessCreateInfoEXT
-> PipelineRobustnessCreateInfoEXT -> IO ()
poke Ptr PipelineRobustnessCreateInfoEXT
ptr PipelineRobustnessCreateInfoEXT
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PipelineRobustnessCreateInfoEXT
ptr PipelineRobustnessCreateInfoEXT
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PipelineRobustnessCreateInfoEXT where
zero :: PipelineRobustnessCreateInfoEXT
zero = PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessCreateInfoEXT
PipelineRobustnessCreateInfoEXT
forall a. Zero a => a
zero
forall a. Zero a => a
zero
forall a. Zero a => a
zero
forall a. Zero a => a
zero
data PhysicalDevicePipelineRobustnessPropertiesEXT = PhysicalDevicePipelineRobustnessPropertiesEXT
{
PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessBufferBehaviorEXT
defaultRobustnessStorageBuffers :: PipelineRobustnessBufferBehaviorEXT
,
PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessBufferBehaviorEXT
defaultRobustnessUniformBuffers :: PipelineRobustnessBufferBehaviorEXT
,
PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessBufferBehaviorEXT
defaultRobustnessVertexInputs :: PipelineRobustnessBufferBehaviorEXT
,
PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessImageBehaviorEXT
defaultRobustnessImages :: PipelineRobustnessImageBehaviorEXT
}
deriving (Typeable, PhysicalDevicePipelineRobustnessPropertiesEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT -> Bool
$c/= :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT -> Bool
== :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT -> Bool
$c== :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDevicePipelineRobustnessPropertiesEXT)
#endif
deriving instance Show PhysicalDevicePipelineRobustnessPropertiesEXT
instance ToCStruct PhysicalDevicePipelineRobustnessPropertiesEXT where
withCStruct :: forall b.
PhysicalDevicePipelineRobustnessPropertiesEXT
-> (Ptr PhysicalDevicePipelineRobustnessPropertiesEXT -> IO b)
-> IO b
withCStruct PhysicalDevicePipelineRobustnessPropertiesEXT
x Ptr PhysicalDevicePipelineRobustnessPropertiesEXT -> IO b
f = forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
32 forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p -> forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p PhysicalDevicePipelineRobustnessPropertiesEXT
x (Ptr PhysicalDevicePipelineRobustnessPropertiesEXT -> IO b
f Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p)
pokeCStruct :: forall b.
Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p PhysicalDevicePipelineRobustnessPropertiesEXT{PipelineRobustnessImageBehaviorEXT
PipelineRobustnessBufferBehaviorEXT
defaultRobustnessImages :: PipelineRobustnessImageBehaviorEXT
defaultRobustnessVertexInputs :: PipelineRobustnessBufferBehaviorEXT
defaultRobustnessUniformBuffers :: PipelineRobustnessBufferBehaviorEXT
defaultRobustnessStorageBuffers :: PipelineRobustnessBufferBehaviorEXT
$sel:defaultRobustnessImages:PhysicalDevicePipelineRobustnessPropertiesEXT :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessImageBehaviorEXT
$sel:defaultRobustnessVertexInputs:PhysicalDevicePipelineRobustnessPropertiesEXT :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessBufferBehaviorEXT
$sel:defaultRobustnessUniformBuffers:PhysicalDevicePipelineRobustnessPropertiesEXT :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessBufferBehaviorEXT
$sel:defaultRobustnessStorageBuffers:PhysicalDevicePipelineRobustnessPropertiesEXT :: PhysicalDevicePipelineRobustnessPropertiesEXT
-> PipelineRobustnessBufferBehaviorEXT
..} IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_PIPELINE_ROBUSTNESS_PROPERTIES_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (PipelineRobustnessBufferBehaviorEXT
defaultRobustnessStorageBuffers)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (PipelineRobustnessBufferBehaviorEXT
defaultRobustnessUniformBuffers)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (PipelineRobustnessBufferBehaviorEXT
defaultRobustnessVertexInputs)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr PipelineRobustnessImageBehaviorEXT)) (PipelineRobustnessImageBehaviorEXT
defaultRobustnessImages)
IO b
f
cStructSize :: Int
cStructSize = Int
32
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr PhysicalDevicePipelineRobustnessPropertiesEXT -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p IO b
f = do
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_PIPELINE_ROBUSTNESS_PROPERTIES_EXT)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (forall a. Ptr a
nullPtr)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (forall a. Zero a => a
zero)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (forall a. Zero a => a
zero)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr PipelineRobustnessBufferBehaviorEXT)) (forall a. Zero a => a
zero)
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr PipelineRobustnessImageBehaviorEXT)) (forall a. Zero a => a
zero)
IO b
f
instance FromCStruct PhysicalDevicePipelineRobustnessPropertiesEXT where
peekCStruct :: Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
-> IO PhysicalDevicePipelineRobustnessPropertiesEXT
peekCStruct Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p = do
PipelineRobustnessBufferBehaviorEXT
defaultRobustnessStorageBuffers <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessBufferBehaviorEXT ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr PipelineRobustnessBufferBehaviorEXT))
PipelineRobustnessBufferBehaviorEXT
defaultRobustnessUniformBuffers <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessBufferBehaviorEXT ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr PipelineRobustnessBufferBehaviorEXT))
PipelineRobustnessBufferBehaviorEXT
defaultRobustnessVertexInputs <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessBufferBehaviorEXT ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr PipelineRobustnessBufferBehaviorEXT))
PipelineRobustnessImageBehaviorEXT
defaultRobustnessImages <- forall a. Storable a => Ptr a -> IO a
peek @PipelineRobustnessImageBehaviorEXT ((Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
p forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr PipelineRobustnessImageBehaviorEXT))
forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT
PhysicalDevicePipelineRobustnessPropertiesEXT
PipelineRobustnessBufferBehaviorEXT
defaultRobustnessStorageBuffers
PipelineRobustnessBufferBehaviorEXT
defaultRobustnessUniformBuffers
PipelineRobustnessBufferBehaviorEXT
defaultRobustnessVertexInputs
PipelineRobustnessImageBehaviorEXT
defaultRobustnessImages
instance Storable PhysicalDevicePipelineRobustnessPropertiesEXT where
sizeOf :: PhysicalDevicePipelineRobustnessPropertiesEXT -> Int
sizeOf ~PhysicalDevicePipelineRobustnessPropertiesEXT
_ = Int
32
alignment :: PhysicalDevicePipelineRobustnessPropertiesEXT -> Int
alignment ~PhysicalDevicePipelineRobustnessPropertiesEXT
_ = Int
8
peek :: Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
-> IO PhysicalDevicePipelineRobustnessPropertiesEXT
peek = forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT -> IO ()
poke Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
ptr PhysicalDevicePipelineRobustnessPropertiesEXT
poked = forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDevicePipelineRobustnessPropertiesEXT
ptr PhysicalDevicePipelineRobustnessPropertiesEXT
poked (forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDevicePipelineRobustnessPropertiesEXT where
zero :: PhysicalDevicePipelineRobustnessPropertiesEXT
zero = PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PhysicalDevicePipelineRobustnessPropertiesEXT
PhysicalDevicePipelineRobustnessPropertiesEXT
forall a. Zero a => a
zero
forall a. Zero a => a
zero
forall a. Zero a => a
zero
forall a. Zero a => a
zero
newtype PipelineRobustnessBufferBehaviorEXT = PipelineRobustnessBufferBehaviorEXT Int32
deriving newtype (PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
$c/= :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
== :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
$c== :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
Eq, Eq PipelineRobustnessBufferBehaviorEXT
PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Ordering
PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
$cmin :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
max :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
$cmax :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT
>= :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
$c>= :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
> :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
$c> :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
<= :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
$c<= :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
< :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
$c< :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Bool
compare :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Ordering
$ccompare :: PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> Ordering
Ord, Ptr PipelineRobustnessBufferBehaviorEXT
-> IO PipelineRobustnessBufferBehaviorEXT
Ptr PipelineRobustnessBufferBehaviorEXT
-> Int -> IO PipelineRobustnessBufferBehaviorEXT
Ptr PipelineRobustnessBufferBehaviorEXT
-> Int -> PipelineRobustnessBufferBehaviorEXT -> IO ()
Ptr PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> IO ()
PipelineRobustnessBufferBehaviorEXT -> Int
forall b. Ptr b -> Int -> IO PipelineRobustnessBufferBehaviorEXT
forall b.
Ptr b -> Int -> PipelineRobustnessBufferBehaviorEXT -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
poke :: Ptr PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> IO ()
$cpoke :: Ptr PipelineRobustnessBufferBehaviorEXT
-> PipelineRobustnessBufferBehaviorEXT -> IO ()
peek :: Ptr PipelineRobustnessBufferBehaviorEXT
-> IO PipelineRobustnessBufferBehaviorEXT
$cpeek :: Ptr PipelineRobustnessBufferBehaviorEXT
-> IO PipelineRobustnessBufferBehaviorEXT
pokeByteOff :: forall b.
Ptr b -> Int -> PipelineRobustnessBufferBehaviorEXT -> IO ()
$cpokeByteOff :: forall b.
Ptr b -> Int -> PipelineRobustnessBufferBehaviorEXT -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO PipelineRobustnessBufferBehaviorEXT
$cpeekByteOff :: forall b. Ptr b -> Int -> IO PipelineRobustnessBufferBehaviorEXT
pokeElemOff :: Ptr PipelineRobustnessBufferBehaviorEXT
-> Int -> PipelineRobustnessBufferBehaviorEXT -> IO ()
$cpokeElemOff :: Ptr PipelineRobustnessBufferBehaviorEXT
-> Int -> PipelineRobustnessBufferBehaviorEXT -> IO ()
peekElemOff :: Ptr PipelineRobustnessBufferBehaviorEXT
-> Int -> IO PipelineRobustnessBufferBehaviorEXT
$cpeekElemOff :: Ptr PipelineRobustnessBufferBehaviorEXT
-> Int -> IO PipelineRobustnessBufferBehaviorEXT
alignment :: PipelineRobustnessBufferBehaviorEXT -> Int
$calignment :: PipelineRobustnessBufferBehaviorEXT -> Int
sizeOf :: PipelineRobustnessBufferBehaviorEXT -> Int
$csizeOf :: PipelineRobustnessBufferBehaviorEXT -> Int
Storable, PipelineRobustnessBufferBehaviorEXT
forall a. a -> Zero a
zero :: PipelineRobustnessBufferBehaviorEXT
$czero :: PipelineRobustnessBufferBehaviorEXT
Zero)
pattern $bPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DEVICE_DEFAULT_EXT :: PipelineRobustnessBufferBehaviorEXT
$mPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DEVICE_DEFAULT_EXT :: forall {r}.
PipelineRobustnessBufferBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DEVICE_DEFAULT_EXT = PipelineRobustnessBufferBehaviorEXT 0
pattern $bPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DISABLED_EXT :: PipelineRobustnessBufferBehaviorEXT
$mPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DISABLED_EXT :: forall {r}.
PipelineRobustnessBufferBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DISABLED_EXT = PipelineRobustnessBufferBehaviorEXT 1
pattern $bPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_EXT :: PipelineRobustnessBufferBehaviorEXT
$mPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_EXT :: forall {r}.
PipelineRobustnessBufferBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_EXT = PipelineRobustnessBufferBehaviorEXT 2
pattern $bPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_2_EXT :: PipelineRobustnessBufferBehaviorEXT
$mPIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_2_EXT :: forall {r}.
PipelineRobustnessBufferBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_2_EXT = PipelineRobustnessBufferBehaviorEXT 3
{-# COMPLETE
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DEVICE_DEFAULT_EXT
, PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DISABLED_EXT
, PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_EXT
, PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_2_EXT ::
PipelineRobustnessBufferBehaviorEXT
#-}
conNamePipelineRobustnessBufferBehaviorEXT :: String
conNamePipelineRobustnessBufferBehaviorEXT :: String
conNamePipelineRobustnessBufferBehaviorEXT = String
"PipelineRobustnessBufferBehaviorEXT"
enumPrefixPipelineRobustnessBufferBehaviorEXT :: String
enumPrefixPipelineRobustnessBufferBehaviorEXT :: String
enumPrefixPipelineRobustnessBufferBehaviorEXT = String
"PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_"
showTablePipelineRobustnessBufferBehaviorEXT :: [(PipelineRobustnessBufferBehaviorEXT, String)]
showTablePipelineRobustnessBufferBehaviorEXT :: [(PipelineRobustnessBufferBehaviorEXT, String)]
showTablePipelineRobustnessBufferBehaviorEXT =
[
( PipelineRobustnessBufferBehaviorEXT
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DEVICE_DEFAULT_EXT
, String
"DEVICE_DEFAULT_EXT"
)
,
( PipelineRobustnessBufferBehaviorEXT
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_DISABLED_EXT
, String
"DISABLED_EXT"
)
,
( PipelineRobustnessBufferBehaviorEXT
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_EXT
, String
"ROBUST_BUFFER_ACCESS_EXT"
)
,
( PipelineRobustnessBufferBehaviorEXT
PIPELINE_ROBUSTNESS_BUFFER_BEHAVIOR_ROBUST_BUFFER_ACCESS_2_EXT
, String
"ROBUST_BUFFER_ACCESS_2_EXT"
)
]
instance Show PipelineRobustnessBufferBehaviorEXT where
showsPrec :: Int -> PipelineRobustnessBufferBehaviorEXT -> ShowS
showsPrec =
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixPipelineRobustnessBufferBehaviorEXT
[(PipelineRobustnessBufferBehaviorEXT, String)]
showTablePipelineRobustnessBufferBehaviorEXT
String
conNamePipelineRobustnessBufferBehaviorEXT
(\(PipelineRobustnessBufferBehaviorEXT Int32
x) -> Int32
x)
(forall a. Show a => Int -> a -> ShowS
showsPrec Int
11)
instance Read PipelineRobustnessBufferBehaviorEXT where
readPrec :: ReadPrec PipelineRobustnessBufferBehaviorEXT
readPrec =
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixPipelineRobustnessBufferBehaviorEXT
[(PipelineRobustnessBufferBehaviorEXT, String)]
showTablePipelineRobustnessBufferBehaviorEXT
String
conNamePipelineRobustnessBufferBehaviorEXT
Int32 -> PipelineRobustnessBufferBehaviorEXT
PipelineRobustnessBufferBehaviorEXT
newtype PipelineRobustnessImageBehaviorEXT = PipelineRobustnessImageBehaviorEXT Int32
deriving newtype (PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
$c/= :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
== :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
$c== :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
Eq, Eq PipelineRobustnessImageBehaviorEXT
PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Ordering
PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
$cmin :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
max :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
$cmax :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT
>= :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
$c>= :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
> :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
$c> :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
<= :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
$c<= :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
< :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
$c< :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Bool
compare :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Ordering
$ccompare :: PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> Ordering
Ord, Ptr PipelineRobustnessImageBehaviorEXT
-> IO PipelineRobustnessImageBehaviorEXT
Ptr PipelineRobustnessImageBehaviorEXT
-> Int -> IO PipelineRobustnessImageBehaviorEXT
Ptr PipelineRobustnessImageBehaviorEXT
-> Int -> PipelineRobustnessImageBehaviorEXT -> IO ()
Ptr PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> IO ()
PipelineRobustnessImageBehaviorEXT -> Int
forall b. Ptr b -> Int -> IO PipelineRobustnessImageBehaviorEXT
forall b.
Ptr b -> Int -> PipelineRobustnessImageBehaviorEXT -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
poke :: Ptr PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> IO ()
$cpoke :: Ptr PipelineRobustnessImageBehaviorEXT
-> PipelineRobustnessImageBehaviorEXT -> IO ()
peek :: Ptr PipelineRobustnessImageBehaviorEXT
-> IO PipelineRobustnessImageBehaviorEXT
$cpeek :: Ptr PipelineRobustnessImageBehaviorEXT
-> IO PipelineRobustnessImageBehaviorEXT
pokeByteOff :: forall b.
Ptr b -> Int -> PipelineRobustnessImageBehaviorEXT -> IO ()
$cpokeByteOff :: forall b.
Ptr b -> Int -> PipelineRobustnessImageBehaviorEXT -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO PipelineRobustnessImageBehaviorEXT
$cpeekByteOff :: forall b. Ptr b -> Int -> IO PipelineRobustnessImageBehaviorEXT
pokeElemOff :: Ptr PipelineRobustnessImageBehaviorEXT
-> Int -> PipelineRobustnessImageBehaviorEXT -> IO ()
$cpokeElemOff :: Ptr PipelineRobustnessImageBehaviorEXT
-> Int -> PipelineRobustnessImageBehaviorEXT -> IO ()
peekElemOff :: Ptr PipelineRobustnessImageBehaviorEXT
-> Int -> IO PipelineRobustnessImageBehaviorEXT
$cpeekElemOff :: Ptr PipelineRobustnessImageBehaviorEXT
-> Int -> IO PipelineRobustnessImageBehaviorEXT
alignment :: PipelineRobustnessImageBehaviorEXT -> Int
$calignment :: PipelineRobustnessImageBehaviorEXT -> Int
sizeOf :: PipelineRobustnessImageBehaviorEXT -> Int
$csizeOf :: PipelineRobustnessImageBehaviorEXT -> Int
Storable, PipelineRobustnessImageBehaviorEXT
forall a. a -> Zero a
zero :: PipelineRobustnessImageBehaviorEXT
$czero :: PipelineRobustnessImageBehaviorEXT
Zero)
pattern $bPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DEVICE_DEFAULT_EXT :: PipelineRobustnessImageBehaviorEXT
$mPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DEVICE_DEFAULT_EXT :: forall {r}.
PipelineRobustnessImageBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DEVICE_DEFAULT_EXT = PipelineRobustnessImageBehaviorEXT 0
pattern $bPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DISABLED_EXT :: PipelineRobustnessImageBehaviorEXT
$mPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DISABLED_EXT :: forall {r}.
PipelineRobustnessImageBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DISABLED_EXT = PipelineRobustnessImageBehaviorEXT 1
pattern $bPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_EXT :: PipelineRobustnessImageBehaviorEXT
$mPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_EXT :: forall {r}.
PipelineRobustnessImageBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_EXT = PipelineRobustnessImageBehaviorEXT 2
pattern $bPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_2_EXT :: PipelineRobustnessImageBehaviorEXT
$mPIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_2_EXT :: forall {r}.
PipelineRobustnessImageBehaviorEXT
-> ((# #) -> r) -> ((# #) -> r) -> r
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_2_EXT = PipelineRobustnessImageBehaviorEXT 3
{-# COMPLETE
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DEVICE_DEFAULT_EXT
, PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DISABLED_EXT
, PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_EXT
, PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_2_EXT ::
PipelineRobustnessImageBehaviorEXT
#-}
conNamePipelineRobustnessImageBehaviorEXT :: String
conNamePipelineRobustnessImageBehaviorEXT :: String
conNamePipelineRobustnessImageBehaviorEXT = String
"PipelineRobustnessImageBehaviorEXT"
enumPrefixPipelineRobustnessImageBehaviorEXT :: String
enumPrefixPipelineRobustnessImageBehaviorEXT :: String
enumPrefixPipelineRobustnessImageBehaviorEXT = String
"PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_"
showTablePipelineRobustnessImageBehaviorEXT :: [(PipelineRobustnessImageBehaviorEXT, String)]
showTablePipelineRobustnessImageBehaviorEXT :: [(PipelineRobustnessImageBehaviorEXT, String)]
showTablePipelineRobustnessImageBehaviorEXT =
[
( PipelineRobustnessImageBehaviorEXT
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DEVICE_DEFAULT_EXT
, String
"DEVICE_DEFAULT_EXT"
)
,
( PipelineRobustnessImageBehaviorEXT
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_DISABLED_EXT
, String
"DISABLED_EXT"
)
,
( PipelineRobustnessImageBehaviorEXT
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_EXT
, String
"ROBUST_IMAGE_ACCESS_EXT"
)
,
( PipelineRobustnessImageBehaviorEXT
PIPELINE_ROBUSTNESS_IMAGE_BEHAVIOR_ROBUST_IMAGE_ACCESS_2_EXT
, String
"ROBUST_IMAGE_ACCESS_2_EXT"
)
]
instance Show PipelineRobustnessImageBehaviorEXT where
showsPrec :: Int -> PipelineRobustnessImageBehaviorEXT -> ShowS
showsPrec =
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixPipelineRobustnessImageBehaviorEXT
[(PipelineRobustnessImageBehaviorEXT, String)]
showTablePipelineRobustnessImageBehaviorEXT
String
conNamePipelineRobustnessImageBehaviorEXT
(\(PipelineRobustnessImageBehaviorEXT Int32
x) -> Int32
x)
(forall a. Show a => Int -> a -> ShowS
showsPrec Int
11)
instance Read PipelineRobustnessImageBehaviorEXT where
readPrec :: ReadPrec PipelineRobustnessImageBehaviorEXT
readPrec =
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixPipelineRobustnessImageBehaviorEXT
[(PipelineRobustnessImageBehaviorEXT, String)]
showTablePipelineRobustnessImageBehaviorEXT
String
conNamePipelineRobustnessImageBehaviorEXT
Int32 -> PipelineRobustnessImageBehaviorEXT
PipelineRobustnessImageBehaviorEXT
type EXT_PIPELINE_ROBUSTNESS_SPEC_VERSION = 1
pattern EXT_PIPELINE_ROBUSTNESS_SPEC_VERSION :: forall a . Integral a => a
pattern $bEXT_PIPELINE_ROBUSTNESS_SPEC_VERSION :: forall a. Integral a => a
$mEXT_PIPELINE_ROBUSTNESS_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
EXT_PIPELINE_ROBUSTNESS_SPEC_VERSION = 1
type EXT_PIPELINE_ROBUSTNESS_EXTENSION_NAME = "VK_EXT_pipeline_robustness"
pattern EXT_PIPELINE_ROBUSTNESS_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bEXT_PIPELINE_ROBUSTNESS_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
$mEXT_PIPELINE_ROBUSTNESS_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
EXT_PIPELINE_ROBUSTNESS_EXTENSION_NAME = "VK_EXT_pipeline_robustness"