{-# language CPP #-}
module Vulkan.Core13.Handles ( PrivateDataSlot(..)
, PhysicalDevice(..)
, Device(..)
, Queue(..)
, CommandBuffer(..)
, Buffer(..)
, Image(..)
, ImageView(..)
, Fence(..)
, Semaphore(..)
, Event(..)
, QueryPool(..)
) where
import GHC.Show (showParen)
import Numeric (showHex)
import Vulkan.Zero (Zero)
import Foreign.Storable (Storable)
import Data.Word (Word64)
import Vulkan.Core10.APIConstants (HasObjectType(..))
import Vulkan.Core10.APIConstants (IsHandle)
import Vulkan.Core10.Enums.ObjectType (ObjectType(OBJECT_TYPE_PRIVATE_DATA_SLOT))
import Vulkan.Core10.Handles (Buffer(..))
import Vulkan.Core10.Handles (CommandBuffer(..))
import Vulkan.Core10.Handles (Device(..))
import Vulkan.Core10.Handles (Event(..))
import Vulkan.Core10.Handles (Fence(..))
import Vulkan.Core10.Handles (Image(..))
import Vulkan.Core10.Handles (ImageView(..))
import Vulkan.Core10.Handles (PhysicalDevice(..))
import Vulkan.Core10.Handles (QueryPool(..))
import Vulkan.Core10.Handles (Queue(..))
import Vulkan.Core10.Handles (Semaphore(..))
newtype PrivateDataSlot = PrivateDataSlot Word64
deriving newtype (PrivateDataSlot -> PrivateDataSlot -> Bool
(PrivateDataSlot -> PrivateDataSlot -> Bool)
-> (PrivateDataSlot -> PrivateDataSlot -> Bool)
-> Eq PrivateDataSlot
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PrivateDataSlot -> PrivateDataSlot -> Bool
$c/= :: PrivateDataSlot -> PrivateDataSlot -> Bool
== :: PrivateDataSlot -> PrivateDataSlot -> Bool
$c== :: PrivateDataSlot -> PrivateDataSlot -> Bool
Eq, Eq PrivateDataSlot
Eq PrivateDataSlot
-> (PrivateDataSlot -> PrivateDataSlot -> Ordering)
-> (PrivateDataSlot -> PrivateDataSlot -> Bool)
-> (PrivateDataSlot -> PrivateDataSlot -> Bool)
-> (PrivateDataSlot -> PrivateDataSlot -> Bool)
-> (PrivateDataSlot -> PrivateDataSlot -> Bool)
-> (PrivateDataSlot -> PrivateDataSlot -> PrivateDataSlot)
-> (PrivateDataSlot -> PrivateDataSlot -> PrivateDataSlot)
-> Ord PrivateDataSlot
PrivateDataSlot -> PrivateDataSlot -> Bool
PrivateDataSlot -> PrivateDataSlot -> Ordering
PrivateDataSlot -> PrivateDataSlot -> PrivateDataSlot
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 :: PrivateDataSlot -> PrivateDataSlot -> PrivateDataSlot
$cmin :: PrivateDataSlot -> PrivateDataSlot -> PrivateDataSlot
max :: PrivateDataSlot -> PrivateDataSlot -> PrivateDataSlot
$cmax :: PrivateDataSlot -> PrivateDataSlot -> PrivateDataSlot
>= :: PrivateDataSlot -> PrivateDataSlot -> Bool
$c>= :: PrivateDataSlot -> PrivateDataSlot -> Bool
> :: PrivateDataSlot -> PrivateDataSlot -> Bool
$c> :: PrivateDataSlot -> PrivateDataSlot -> Bool
<= :: PrivateDataSlot -> PrivateDataSlot -> Bool
$c<= :: PrivateDataSlot -> PrivateDataSlot -> Bool
< :: PrivateDataSlot -> PrivateDataSlot -> Bool
$c< :: PrivateDataSlot -> PrivateDataSlot -> Bool
compare :: PrivateDataSlot -> PrivateDataSlot -> Ordering
$ccompare :: PrivateDataSlot -> PrivateDataSlot -> Ordering
$cp1Ord :: Eq PrivateDataSlot
Ord, Ptr b -> Int -> IO PrivateDataSlot
Ptr b -> Int -> PrivateDataSlot -> IO ()
Ptr PrivateDataSlot -> IO PrivateDataSlot
Ptr PrivateDataSlot -> Int -> IO PrivateDataSlot
Ptr PrivateDataSlot -> Int -> PrivateDataSlot -> IO ()
Ptr PrivateDataSlot -> PrivateDataSlot -> IO ()
PrivateDataSlot -> Int
(PrivateDataSlot -> Int)
-> (PrivateDataSlot -> Int)
-> (Ptr PrivateDataSlot -> Int -> IO PrivateDataSlot)
-> (Ptr PrivateDataSlot -> Int -> PrivateDataSlot -> IO ())
-> (forall b. Ptr b -> Int -> IO PrivateDataSlot)
-> (forall b. Ptr b -> Int -> PrivateDataSlot -> IO ())
-> (Ptr PrivateDataSlot -> IO PrivateDataSlot)
-> (Ptr PrivateDataSlot -> PrivateDataSlot -> IO ())
-> Storable PrivateDataSlot
forall b. Ptr b -> Int -> IO PrivateDataSlot
forall b. Ptr b -> Int -> PrivateDataSlot -> 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 PrivateDataSlot -> PrivateDataSlot -> IO ()
$cpoke :: Ptr PrivateDataSlot -> PrivateDataSlot -> IO ()
peek :: Ptr PrivateDataSlot -> IO PrivateDataSlot
$cpeek :: Ptr PrivateDataSlot -> IO PrivateDataSlot
pokeByteOff :: Ptr b -> Int -> PrivateDataSlot -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> PrivateDataSlot -> IO ()
peekByteOff :: Ptr b -> Int -> IO PrivateDataSlot
$cpeekByteOff :: forall b. Ptr b -> Int -> IO PrivateDataSlot
pokeElemOff :: Ptr PrivateDataSlot -> Int -> PrivateDataSlot -> IO ()
$cpokeElemOff :: Ptr PrivateDataSlot -> Int -> PrivateDataSlot -> IO ()
peekElemOff :: Ptr PrivateDataSlot -> Int -> IO PrivateDataSlot
$cpeekElemOff :: Ptr PrivateDataSlot -> Int -> IO PrivateDataSlot
alignment :: PrivateDataSlot -> Int
$calignment :: PrivateDataSlot -> Int
sizeOf :: PrivateDataSlot -> Int
$csizeOf :: PrivateDataSlot -> Int
Storable, PrivateDataSlot
PrivateDataSlot -> Zero PrivateDataSlot
forall a. a -> Zero a
zero :: PrivateDataSlot
$czero :: PrivateDataSlot
Zero)
deriving anyclass (Eq PrivateDataSlot
Zero PrivateDataSlot
Eq PrivateDataSlot
-> Zero PrivateDataSlot -> IsHandle PrivateDataSlot
forall a. Eq a -> Zero a -> IsHandle a
$cp2IsHandle :: Zero PrivateDataSlot
$cp1IsHandle :: Eq PrivateDataSlot
IsHandle)
instance HasObjectType PrivateDataSlot where
objectTypeAndHandle :: PrivateDataSlot -> (ObjectType, Word64)
objectTypeAndHandle (PrivateDataSlot Word64
h) = (ObjectType
OBJECT_TYPE_PRIVATE_DATA_SLOT, Word64
h)
instance Show PrivateDataSlot where
showsPrec :: Int -> PrivateDataSlot -> ShowS
showsPrec Int
p (PrivateDataSlot Word64
x) = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11) (String -> ShowS
showString String
"PrivateDataSlot 0x" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Word64 -> ShowS
forall a. (Integral a, Show a) => a -> ShowS
showHex Word64
x)