{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE Strict                     #-}
module Graphics.Vulkan.Types.Enum.VendorId
       (VkVendorId(VkVendorId, VK_VENDOR_ID_VIV, VK_VENDOR_ID_VSI,
                   VK_VENDOR_ID_KAZAN, VK_VENDOR_ID_CODEPLAY, VK_VENDOR_ID_MESA))
       where
import Foreign.Storable                (Storable)
import GHC.Read                        (choose, expectP)
import Graphics.Vulkan.Marshal         (Int32)
import Text.ParserCombinators.ReadPrec (prec, step, (+++))
import Text.Read                       (Read (..), parens)
import Text.Read.Lex                   (Lexeme (..))

-- | type = @enum@
--
--   <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#VkVendorId VkVendorId registry at www.khronos.org>
newtype VkVendorId = VkVendorId Int32
                     deriving (VkVendorId -> VkVendorId -> Bool
(VkVendorId -> VkVendorId -> Bool)
-> (VkVendorId -> VkVendorId -> Bool) -> Eq VkVendorId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VkVendorId -> VkVendorId -> Bool
$c/= :: VkVendorId -> VkVendorId -> Bool
== :: VkVendorId -> VkVendorId -> Bool
$c== :: VkVendorId -> VkVendorId -> Bool
Eq, Eq VkVendorId
Eq VkVendorId
-> (VkVendorId -> VkVendorId -> Ordering)
-> (VkVendorId -> VkVendorId -> Bool)
-> (VkVendorId -> VkVendorId -> Bool)
-> (VkVendorId -> VkVendorId -> Bool)
-> (VkVendorId -> VkVendorId -> Bool)
-> (VkVendorId -> VkVendorId -> VkVendorId)
-> (VkVendorId -> VkVendorId -> VkVendorId)
-> Ord VkVendorId
VkVendorId -> VkVendorId -> Bool
VkVendorId -> VkVendorId -> Ordering
VkVendorId -> VkVendorId -> VkVendorId
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 :: VkVendorId -> VkVendorId -> VkVendorId
$cmin :: VkVendorId -> VkVendorId -> VkVendorId
max :: VkVendorId -> VkVendorId -> VkVendorId
$cmax :: VkVendorId -> VkVendorId -> VkVendorId
>= :: VkVendorId -> VkVendorId -> Bool
$c>= :: VkVendorId -> VkVendorId -> Bool
> :: VkVendorId -> VkVendorId -> Bool
$c> :: VkVendorId -> VkVendorId -> Bool
<= :: VkVendorId -> VkVendorId -> Bool
$c<= :: VkVendorId -> VkVendorId -> Bool
< :: VkVendorId -> VkVendorId -> Bool
$c< :: VkVendorId -> VkVendorId -> Bool
compare :: VkVendorId -> VkVendorId -> Ordering
$ccompare :: VkVendorId -> VkVendorId -> Ordering
Ord, Int -> VkVendorId
VkVendorId -> Int
VkVendorId -> [VkVendorId]
VkVendorId -> VkVendorId
VkVendorId -> VkVendorId -> [VkVendorId]
VkVendorId -> VkVendorId -> VkVendorId -> [VkVendorId]
(VkVendorId -> VkVendorId)
-> (VkVendorId -> VkVendorId)
-> (Int -> VkVendorId)
-> (VkVendorId -> Int)
-> (VkVendorId -> [VkVendorId])
-> (VkVendorId -> VkVendorId -> [VkVendorId])
-> (VkVendorId -> VkVendorId -> [VkVendorId])
-> (VkVendorId -> VkVendorId -> VkVendorId -> [VkVendorId])
-> Enum VkVendorId
forall a.
(a -> a)
-> (a -> a)
-> (Int -> a)
-> (a -> Int)
-> (a -> [a])
-> (a -> a -> [a])
-> (a -> a -> [a])
-> (a -> a -> a -> [a])
-> Enum a
enumFromThenTo :: VkVendorId -> VkVendorId -> VkVendorId -> [VkVendorId]
$cenumFromThenTo :: VkVendorId -> VkVendorId -> VkVendorId -> [VkVendorId]
enumFromTo :: VkVendorId -> VkVendorId -> [VkVendorId]
$cenumFromTo :: VkVendorId -> VkVendorId -> [VkVendorId]
enumFromThen :: VkVendorId -> VkVendorId -> [VkVendorId]
$cenumFromThen :: VkVendorId -> VkVendorId -> [VkVendorId]
enumFrom :: VkVendorId -> [VkVendorId]
$cenumFrom :: VkVendorId -> [VkVendorId]
fromEnum :: VkVendorId -> Int
$cfromEnum :: VkVendorId -> Int
toEnum :: Int -> VkVendorId
$ctoEnum :: Int -> VkVendorId
pred :: VkVendorId -> VkVendorId
$cpred :: VkVendorId -> VkVendorId
succ :: VkVendorId -> VkVendorId
$csucc :: VkVendorId -> VkVendorId
Enum, Ptr VkVendorId -> IO VkVendorId
Ptr VkVendorId -> Int -> IO VkVendorId
Ptr VkVendorId -> Int -> VkVendorId -> IO ()
Ptr VkVendorId -> VkVendorId -> IO ()
VkVendorId -> Int
(VkVendorId -> Int)
-> (VkVendorId -> Int)
-> (Ptr VkVendorId -> Int -> IO VkVendorId)
-> (Ptr VkVendorId -> Int -> VkVendorId -> IO ())
-> (forall b. Ptr b -> Int -> IO VkVendorId)
-> (forall b. Ptr b -> Int -> VkVendorId -> IO ())
-> (Ptr VkVendorId -> IO VkVendorId)
-> (Ptr VkVendorId -> VkVendorId -> IO ())
-> Storable VkVendorId
forall b. Ptr b -> Int -> IO VkVendorId
forall b. Ptr b -> Int -> VkVendorId -> 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 VkVendorId -> VkVendorId -> IO ()
$cpoke :: Ptr VkVendorId -> VkVendorId -> IO ()
peek :: Ptr VkVendorId -> IO VkVendorId
$cpeek :: Ptr VkVendorId -> IO VkVendorId
pokeByteOff :: forall b. Ptr b -> Int -> VkVendorId -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VkVendorId -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO VkVendorId
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VkVendorId
pokeElemOff :: Ptr VkVendorId -> Int -> VkVendorId -> IO ()
$cpokeElemOff :: Ptr VkVendorId -> Int -> VkVendorId -> IO ()
peekElemOff :: Ptr VkVendorId -> Int -> IO VkVendorId
$cpeekElemOff :: Ptr VkVendorId -> Int -> IO VkVendorId
alignment :: VkVendorId -> Int
$calignment :: VkVendorId -> Int
sizeOf :: VkVendorId -> Int
$csizeOf :: VkVendorId -> Int
Storable)

instance Show VkVendorId where
    showsPrec :: Int -> VkVendorId -> ShowS
showsPrec Int
_ VkVendorId
VK_VENDOR_ID_VIV = String -> ShowS
showString String
"VK_VENDOR_ID_VIV"
    showsPrec Int
_ VkVendorId
VK_VENDOR_ID_VSI = String -> ShowS
showString String
"VK_VENDOR_ID_VSI"
    showsPrec Int
_ VkVendorId
VK_VENDOR_ID_KAZAN = String -> ShowS
showString String
"VK_VENDOR_ID_KAZAN"
    showsPrec Int
_ VkVendorId
VK_VENDOR_ID_CODEPLAY
      = String -> ShowS
showString String
"VK_VENDOR_ID_CODEPLAY"
    showsPrec Int
_ VkVendorId
VK_VENDOR_ID_MESA = String -> ShowS
showString String
"VK_VENDOR_ID_MESA"
    showsPrec Int
p (VkVendorId Int32
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11) (String -> ShowS
showString String
"VkVendorId " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11 Int32
x)

instance Read VkVendorId where
    readPrec :: ReadPrec VkVendorId
readPrec
      = ReadPrec VkVendorId -> ReadPrec VkVendorId
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec VkVendorId)] -> ReadPrec VkVendorId
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_VENDOR_ID_VIV", VkVendorId -> ReadPrec VkVendorId
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkVendorId
VK_VENDOR_ID_VIV),
              (String
"VK_VENDOR_ID_VSI", VkVendorId -> ReadPrec VkVendorId
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkVendorId
VK_VENDOR_ID_VSI),
              (String
"VK_VENDOR_ID_KAZAN", VkVendorId -> ReadPrec VkVendorId
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkVendorId
VK_VENDOR_ID_KAZAN),
              (String
"VK_VENDOR_ID_CODEPLAY", VkVendorId -> ReadPrec VkVendorId
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkVendorId
VK_VENDOR_ID_CODEPLAY),
              (String
"VK_VENDOR_ID_MESA", VkVendorId -> ReadPrec VkVendorId
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkVendorId
VK_VENDOR_ID_MESA)]
             ReadPrec VkVendorId -> ReadPrec VkVendorId -> ReadPrec VkVendorId
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int -> ReadPrec VkVendorId -> ReadPrec VkVendorId
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkVendorId") ReadPrec () -> ReadPrec VkVendorId -> ReadPrec VkVendorId
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> (Int32 -> VkVendorId
VkVendorId (Int32 -> VkVendorId) -> ReadPrec Int32 -> ReadPrec VkVendorId
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ReadPrec Int32 -> ReadPrec Int32
forall a. ReadPrec a -> ReadPrec a
step ReadPrec Int32
forall a. Read a => ReadPrec a
readPrec)))

-- | Vivante vendor ID
pattern VK_VENDOR_ID_VIV :: VkVendorId

pattern $bVK_VENDOR_ID_VIV :: VkVendorId
$mVK_VENDOR_ID_VIV :: forall {r}. VkVendorId -> (Void# -> r) -> (Void# -> r) -> r
VK_VENDOR_ID_VIV = VkVendorId 65537

-- | VeriSilicon vendor ID
pattern VK_VENDOR_ID_VSI :: VkVendorId

pattern $bVK_VENDOR_ID_VSI :: VkVendorId
$mVK_VENDOR_ID_VSI :: forall {r}. VkVendorId -> (Void# -> r) -> (Void# -> r) -> r
VK_VENDOR_ID_VSI = VkVendorId 65538

-- | Kazan Software Renderer
pattern VK_VENDOR_ID_KAZAN :: VkVendorId

pattern $bVK_VENDOR_ID_KAZAN :: VkVendorId
$mVK_VENDOR_ID_KAZAN :: forall {r}. VkVendorId -> (Void# -> r) -> (Void# -> r) -> r
VK_VENDOR_ID_KAZAN = VkVendorId 65539

-- | Codeplay Software Ltd. vendor ID
pattern VK_VENDOR_ID_CODEPLAY :: VkVendorId

pattern $bVK_VENDOR_ID_CODEPLAY :: VkVendorId
$mVK_VENDOR_ID_CODEPLAY :: forall {r}. VkVendorId -> (Void# -> r) -> (Void# -> r) -> r
VK_VENDOR_ID_CODEPLAY = VkVendorId 65540

-- | Mesa vendor ID
pattern VK_VENDOR_ID_MESA :: VkVendorId

pattern $bVK_VENDOR_ID_MESA :: VkVendorId
$mVK_VENDOR_ID_MESA :: forall {r}. VkVendorId -> (Void# -> r) -> (Void# -> r) -> r
VK_VENDOR_ID_MESA = VkVendorId 65541