{-# language CPP #-}
module Vulkan.Core10.Enums.PipelineBindPoint (PipelineBindPoint( PIPELINE_BIND_POINT_GRAPHICS
, PIPELINE_BIND_POINT_COMPUTE
, PIPELINE_BIND_POINT_RAY_TRACING_KHR
, ..
)) where
import Vulkan.Internal.Utils (enumReadPrec)
import Vulkan.Internal.Utils (enumShowsPrec)
import GHC.Show (showsPrec)
import Vulkan.Zero (Zero)
import Foreign.Storable (Storable)
import Data.Int (Int32)
import GHC.Read (Read(readPrec))
import GHC.Show (Show(showsPrec))
newtype PipelineBindPoint = PipelineBindPoint Int32
deriving newtype (PipelineBindPoint -> PipelineBindPoint -> Bool
(PipelineBindPoint -> PipelineBindPoint -> Bool)
-> (PipelineBindPoint -> PipelineBindPoint -> Bool)
-> Eq PipelineBindPoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PipelineBindPoint -> PipelineBindPoint -> Bool
$c/= :: PipelineBindPoint -> PipelineBindPoint -> Bool
== :: PipelineBindPoint -> PipelineBindPoint -> Bool
$c== :: PipelineBindPoint -> PipelineBindPoint -> Bool
Eq, Eq PipelineBindPoint
Eq PipelineBindPoint =>
(PipelineBindPoint -> PipelineBindPoint -> Ordering)
-> (PipelineBindPoint -> PipelineBindPoint -> Bool)
-> (PipelineBindPoint -> PipelineBindPoint -> Bool)
-> (PipelineBindPoint -> PipelineBindPoint -> Bool)
-> (PipelineBindPoint -> PipelineBindPoint -> Bool)
-> (PipelineBindPoint -> PipelineBindPoint -> PipelineBindPoint)
-> (PipelineBindPoint -> PipelineBindPoint -> PipelineBindPoint)
-> Ord PipelineBindPoint
PipelineBindPoint -> PipelineBindPoint -> Bool
PipelineBindPoint -> PipelineBindPoint -> Ordering
PipelineBindPoint -> PipelineBindPoint -> PipelineBindPoint
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 :: PipelineBindPoint -> PipelineBindPoint -> PipelineBindPoint
$cmin :: PipelineBindPoint -> PipelineBindPoint -> PipelineBindPoint
max :: PipelineBindPoint -> PipelineBindPoint -> PipelineBindPoint
$cmax :: PipelineBindPoint -> PipelineBindPoint -> PipelineBindPoint
>= :: PipelineBindPoint -> PipelineBindPoint -> Bool
$c>= :: PipelineBindPoint -> PipelineBindPoint -> Bool
> :: PipelineBindPoint -> PipelineBindPoint -> Bool
$c> :: PipelineBindPoint -> PipelineBindPoint -> Bool
<= :: PipelineBindPoint -> PipelineBindPoint -> Bool
$c<= :: PipelineBindPoint -> PipelineBindPoint -> Bool
< :: PipelineBindPoint -> PipelineBindPoint -> Bool
$c< :: PipelineBindPoint -> PipelineBindPoint -> Bool
compare :: PipelineBindPoint -> PipelineBindPoint -> Ordering
$ccompare :: PipelineBindPoint -> PipelineBindPoint -> Ordering
$cp1Ord :: Eq PipelineBindPoint
Ord, Ptr b -> Int -> IO PipelineBindPoint
Ptr b -> Int -> PipelineBindPoint -> IO ()
Ptr PipelineBindPoint -> IO PipelineBindPoint
Ptr PipelineBindPoint -> Int -> IO PipelineBindPoint
Ptr PipelineBindPoint -> Int -> PipelineBindPoint -> IO ()
Ptr PipelineBindPoint -> PipelineBindPoint -> IO ()
PipelineBindPoint -> Int
(PipelineBindPoint -> Int)
-> (PipelineBindPoint -> Int)
-> (Ptr PipelineBindPoint -> Int -> IO PipelineBindPoint)
-> (Ptr PipelineBindPoint -> Int -> PipelineBindPoint -> IO ())
-> (forall b. Ptr b -> Int -> IO PipelineBindPoint)
-> (forall b. Ptr b -> Int -> PipelineBindPoint -> IO ())
-> (Ptr PipelineBindPoint -> IO PipelineBindPoint)
-> (Ptr PipelineBindPoint -> PipelineBindPoint -> IO ())
-> Storable PipelineBindPoint
forall b. Ptr b -> Int -> IO PipelineBindPoint
forall b. Ptr b -> Int -> PipelineBindPoint -> 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 PipelineBindPoint -> PipelineBindPoint -> IO ()
$cpoke :: Ptr PipelineBindPoint -> PipelineBindPoint -> IO ()
peek :: Ptr PipelineBindPoint -> IO PipelineBindPoint
$cpeek :: Ptr PipelineBindPoint -> IO PipelineBindPoint
pokeByteOff :: Ptr b -> Int -> PipelineBindPoint -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> PipelineBindPoint -> IO ()
peekByteOff :: Ptr b -> Int -> IO PipelineBindPoint
$cpeekByteOff :: forall b. Ptr b -> Int -> IO PipelineBindPoint
pokeElemOff :: Ptr PipelineBindPoint -> Int -> PipelineBindPoint -> IO ()
$cpokeElemOff :: Ptr PipelineBindPoint -> Int -> PipelineBindPoint -> IO ()
peekElemOff :: Ptr PipelineBindPoint -> Int -> IO PipelineBindPoint
$cpeekElemOff :: Ptr PipelineBindPoint -> Int -> IO PipelineBindPoint
alignment :: PipelineBindPoint -> Int
$calignment :: PipelineBindPoint -> Int
sizeOf :: PipelineBindPoint -> Int
$csizeOf :: PipelineBindPoint -> Int
Storable, PipelineBindPoint
PipelineBindPoint -> Zero PipelineBindPoint
forall a. a -> Zero a
zero :: PipelineBindPoint
$czero :: PipelineBindPoint
Zero)
pattern $bPIPELINE_BIND_POINT_GRAPHICS :: PipelineBindPoint
$mPIPELINE_BIND_POINT_GRAPHICS :: forall r. PipelineBindPoint -> (Void# -> r) -> (Void# -> r) -> r
PIPELINE_BIND_POINT_GRAPHICS = PipelineBindPoint 0
pattern $bPIPELINE_BIND_POINT_COMPUTE :: PipelineBindPoint
$mPIPELINE_BIND_POINT_COMPUTE :: forall r. PipelineBindPoint -> (Void# -> r) -> (Void# -> r) -> r
PIPELINE_BIND_POINT_COMPUTE = PipelineBindPoint 1
pattern $bPIPELINE_BIND_POINT_RAY_TRACING_KHR :: PipelineBindPoint
$mPIPELINE_BIND_POINT_RAY_TRACING_KHR :: forall r. PipelineBindPoint -> (Void# -> r) -> (Void# -> r) -> r
PIPELINE_BIND_POINT_RAY_TRACING_KHR = PipelineBindPoint 1000165000
{-# complete PIPELINE_BIND_POINT_GRAPHICS,
PIPELINE_BIND_POINT_COMPUTE,
PIPELINE_BIND_POINT_RAY_TRACING_KHR :: PipelineBindPoint #-}
conNamePipelineBindPoint :: String
conNamePipelineBindPoint :: String
conNamePipelineBindPoint = "PipelineBindPoint"
enumPrefixPipelineBindPoint :: String
enumPrefixPipelineBindPoint :: String
enumPrefixPipelineBindPoint = "PIPELINE_BIND_POINT_"
showTablePipelineBindPoint :: [(PipelineBindPoint, String)]
showTablePipelineBindPoint :: [(PipelineBindPoint, String)]
showTablePipelineBindPoint =
[ (PipelineBindPoint
PIPELINE_BIND_POINT_GRAPHICS , "GRAPHICS")
, (PipelineBindPoint
PIPELINE_BIND_POINT_COMPUTE , "COMPUTE")
, (PipelineBindPoint
PIPELINE_BIND_POINT_RAY_TRACING_KHR, "RAY_TRACING_KHR")
]
instance Show PipelineBindPoint where
showsPrec :: Int -> PipelineBindPoint -> ShowS
showsPrec = String
-> [(PipelineBindPoint, String)]
-> String
-> (PipelineBindPoint -> Int32)
-> (Int32 -> ShowS)
-> Int
-> PipelineBindPoint
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec String
enumPrefixPipelineBindPoint
[(PipelineBindPoint, String)]
showTablePipelineBindPoint
String
conNamePipelineBindPoint
(\(PipelineBindPoint x :: Int32
x) -> Int32
x)
(Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec 11)
instance Read PipelineBindPoint where
readPrec :: ReadPrec PipelineBindPoint
readPrec =
String
-> [(PipelineBindPoint, String)]
-> String
-> (Int32 -> PipelineBindPoint)
-> ReadPrec PipelineBindPoint
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec String
enumPrefixPipelineBindPoint [(PipelineBindPoint, String)]
showTablePipelineBindPoint String
conNamePipelineBindPoint Int32 -> PipelineBindPoint
PipelineBindPoint