{-# language CPP #-}
module Vulkan.Extensions.VK_ARM_rasterization_order_attachment_access ( PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM(..)
, ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_SPEC_VERSION
, pattern ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_SPEC_VERSION
, ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_EXTENSION_NAME
, pattern ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_EXTENSION_NAME
) where
import Foreign.Marshal.Alloc (allocaBytes)
import Foreign.Ptr (nullPtr)
import Foreign.Ptr (plusPtr)
import Vulkan.CStruct (FromCStruct)
import Vulkan.CStruct (FromCStruct(..))
import Vulkan.CStruct (ToCStruct)
import Vulkan.CStruct (ToCStruct(..))
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 Foreign.Ptr (Ptr)
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_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_FEATURES_ARM))
data PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM = PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
{
PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Bool
rasterizationOrderColorAttachmentAccess :: Bool
,
PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Bool
rasterizationOrderDepthAttachmentAccess :: Bool
,
PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Bool
rasterizationOrderStencilAttachmentAccess :: Bool
}
deriving (Typeable, PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Bool
(PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Bool)
-> (PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Bool)
-> Eq PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Bool
$c/= :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Bool
== :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Bool
$c== :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM)
#endif
deriving instance Show PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
instance ToCStruct PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM where
withCStruct :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> (Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b)
-> IO b
withCStruct PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
x Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b
f = Int
-> (Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
32 ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b)
-> IO b)
-> (Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p -> Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b
-> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
x (Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b
f Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p)
pokeCStruct :: Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b
-> IO b
pokeCStruct Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM{Bool
rasterizationOrderStencilAttachmentAccess :: Bool
rasterizationOrderDepthAttachmentAccess :: Bool
rasterizationOrderColorAttachmentAccess :: Bool
$sel:rasterizationOrderStencilAttachmentAccess:PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Bool
$sel:rasterizationOrderDepthAttachmentAccess:PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Bool
$sel:rasterizationOrderColorAttachmentAccess:PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Bool
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_FEATURES_ARM)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
rasterizationOrderColorAttachmentAccess))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
rasterizationOrderDepthAttachmentAccess))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
rasterizationOrderStencilAttachmentAccess))
IO b
f
cStructSize :: Int
cStructSize = Int
32
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_FEATURES_ARM)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM where
peekCStruct :: Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
peekCStruct Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p = do
Bool32
rasterizationOrderColorAttachmentAccess <- Ptr Bool32 -> IO Bool32
forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
Bool32
rasterizationOrderDepthAttachmentAccess <- Ptr Bool32 -> IO Bool32
forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Bool32))
Bool32
rasterizationOrderStencilAttachmentAccess <- Ptr Bool32 -> IO Bool32
forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
p Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32))
PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM)
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
forall a b. (a -> b) -> a -> b
$ Bool
-> Bool
-> Bool
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
(Bool32 -> Bool
bool32ToBool Bool32
rasterizationOrderColorAttachmentAccess) (Bool32 -> Bool
bool32ToBool Bool32
rasterizationOrderDepthAttachmentAccess) (Bool32 -> Bool
bool32ToBool Bool32
rasterizationOrderStencilAttachmentAccess)
instance Storable PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM where
sizeOf :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Int
sizeOf ~PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
_ = Int
32
alignment :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM -> Int
alignment ~PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
_ = Int
8
peek :: Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
peek = Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO ()
poke Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
poked = Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
-> IO ()
-> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
ptr PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM where
zero :: PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
zero = Bool
-> Bool
-> Bool
-> PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
PhysicalDeviceRasterizationOrderAttachmentAccessFeaturesARM
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
type ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_SPEC_VERSION = 1
pattern ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_SPEC_VERSION :: forall a . Integral a => a
pattern $bARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_SPEC_VERSION :: a
$mARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_SPEC_VERSION :: forall r a. Integral a => a -> (Void# -> r) -> (Void# -> r) -> r
ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_SPEC_VERSION = 1
type ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_EXTENSION_NAME = "VK_ARM_rasterization_order_attachment_access"
pattern ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_EXTENSION_NAME :: a
$mARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_EXTENSION_NAME :: forall r a.
(Eq a, IsString a) =>
a -> (Void# -> r) -> (Void# -> r) -> r
ARM_RASTERIZATION_ORDER_ATTACHMENT_ACCESS_EXTENSION_NAME = "VK_ARM_rasterization_order_attachment_access"