{-# OPTIONS_HADDOCK ignore-exports#-}
{-# LANGUAGE DataKinds                  #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE PatternSynonyms            #-}
{-# LANGUAGE Strict                     #-}
module Graphics.Vulkan.Types.Enum.LogicOp
       (VkLogicOp(VkLogicOp, VK_LOGIC_OP_CLEAR, VK_LOGIC_OP_AND,
                  VK_LOGIC_OP_AND_REVERSE, VK_LOGIC_OP_COPY,
                  VK_LOGIC_OP_AND_INVERTED, VK_LOGIC_OP_NO_OP, VK_LOGIC_OP_XOR,
                  VK_LOGIC_OP_OR, VK_LOGIC_OP_NOR, VK_LOGIC_OP_EQUIVALENT,
                  VK_LOGIC_OP_INVERT, VK_LOGIC_OP_OR_REVERSE,
                  VK_LOGIC_OP_COPY_INVERTED, VK_LOGIC_OP_OR_INVERTED,
                  VK_LOGIC_OP_NAND, VK_LOGIC_OP_SET))
       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#VkLogicOp VkLogicOp registry at www.khronos.org>
newtype VkLogicOp = VkLogicOp Int32
                    deriving (VkLogicOp -> VkLogicOp -> Bool
(VkLogicOp -> VkLogicOp -> Bool)
-> (VkLogicOp -> VkLogicOp -> Bool) -> Eq VkLogicOp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VkLogicOp -> VkLogicOp -> Bool
$c/= :: VkLogicOp -> VkLogicOp -> Bool
== :: VkLogicOp -> VkLogicOp -> Bool
$c== :: VkLogicOp -> VkLogicOp -> Bool
Eq, Eq VkLogicOp
Eq VkLogicOp
-> (VkLogicOp -> VkLogicOp -> Ordering)
-> (VkLogicOp -> VkLogicOp -> Bool)
-> (VkLogicOp -> VkLogicOp -> Bool)
-> (VkLogicOp -> VkLogicOp -> Bool)
-> (VkLogicOp -> VkLogicOp -> Bool)
-> (VkLogicOp -> VkLogicOp -> VkLogicOp)
-> (VkLogicOp -> VkLogicOp -> VkLogicOp)
-> Ord VkLogicOp
VkLogicOp -> VkLogicOp -> Bool
VkLogicOp -> VkLogicOp -> Ordering
VkLogicOp -> VkLogicOp -> VkLogicOp
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 :: VkLogicOp -> VkLogicOp -> VkLogicOp
$cmin :: VkLogicOp -> VkLogicOp -> VkLogicOp
max :: VkLogicOp -> VkLogicOp -> VkLogicOp
$cmax :: VkLogicOp -> VkLogicOp -> VkLogicOp
>= :: VkLogicOp -> VkLogicOp -> Bool
$c>= :: VkLogicOp -> VkLogicOp -> Bool
> :: VkLogicOp -> VkLogicOp -> Bool
$c> :: VkLogicOp -> VkLogicOp -> Bool
<= :: VkLogicOp -> VkLogicOp -> Bool
$c<= :: VkLogicOp -> VkLogicOp -> Bool
< :: VkLogicOp -> VkLogicOp -> Bool
$c< :: VkLogicOp -> VkLogicOp -> Bool
compare :: VkLogicOp -> VkLogicOp -> Ordering
$ccompare :: VkLogicOp -> VkLogicOp -> Ordering
Ord, Int -> VkLogicOp
VkLogicOp -> Int
VkLogicOp -> [VkLogicOp]
VkLogicOp -> VkLogicOp
VkLogicOp -> VkLogicOp -> [VkLogicOp]
VkLogicOp -> VkLogicOp -> VkLogicOp -> [VkLogicOp]
(VkLogicOp -> VkLogicOp)
-> (VkLogicOp -> VkLogicOp)
-> (Int -> VkLogicOp)
-> (VkLogicOp -> Int)
-> (VkLogicOp -> [VkLogicOp])
-> (VkLogicOp -> VkLogicOp -> [VkLogicOp])
-> (VkLogicOp -> VkLogicOp -> [VkLogicOp])
-> (VkLogicOp -> VkLogicOp -> VkLogicOp -> [VkLogicOp])
-> Enum VkLogicOp
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 :: VkLogicOp -> VkLogicOp -> VkLogicOp -> [VkLogicOp]
$cenumFromThenTo :: VkLogicOp -> VkLogicOp -> VkLogicOp -> [VkLogicOp]
enumFromTo :: VkLogicOp -> VkLogicOp -> [VkLogicOp]
$cenumFromTo :: VkLogicOp -> VkLogicOp -> [VkLogicOp]
enumFromThen :: VkLogicOp -> VkLogicOp -> [VkLogicOp]
$cenumFromThen :: VkLogicOp -> VkLogicOp -> [VkLogicOp]
enumFrom :: VkLogicOp -> [VkLogicOp]
$cenumFrom :: VkLogicOp -> [VkLogicOp]
fromEnum :: VkLogicOp -> Int
$cfromEnum :: VkLogicOp -> Int
toEnum :: Int -> VkLogicOp
$ctoEnum :: Int -> VkLogicOp
pred :: VkLogicOp -> VkLogicOp
$cpred :: VkLogicOp -> VkLogicOp
succ :: VkLogicOp -> VkLogicOp
$csucc :: VkLogicOp -> VkLogicOp
Enum, Ptr VkLogicOp -> IO VkLogicOp
Ptr VkLogicOp -> Int -> IO VkLogicOp
Ptr VkLogicOp -> Int -> VkLogicOp -> IO ()
Ptr VkLogicOp -> VkLogicOp -> IO ()
VkLogicOp -> Int
(VkLogicOp -> Int)
-> (VkLogicOp -> Int)
-> (Ptr VkLogicOp -> Int -> IO VkLogicOp)
-> (Ptr VkLogicOp -> Int -> VkLogicOp -> IO ())
-> (forall b. Ptr b -> Int -> IO VkLogicOp)
-> (forall b. Ptr b -> Int -> VkLogicOp -> IO ())
-> (Ptr VkLogicOp -> IO VkLogicOp)
-> (Ptr VkLogicOp -> VkLogicOp -> IO ())
-> Storable VkLogicOp
forall b. Ptr b -> Int -> IO VkLogicOp
forall b. Ptr b -> Int -> VkLogicOp -> 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 VkLogicOp -> VkLogicOp -> IO ()
$cpoke :: Ptr VkLogicOp -> VkLogicOp -> IO ()
peek :: Ptr VkLogicOp -> IO VkLogicOp
$cpeek :: Ptr VkLogicOp -> IO VkLogicOp
pokeByteOff :: forall b. Ptr b -> Int -> VkLogicOp -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> VkLogicOp -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO VkLogicOp
$cpeekByteOff :: forall b. Ptr b -> Int -> IO VkLogicOp
pokeElemOff :: Ptr VkLogicOp -> Int -> VkLogicOp -> IO ()
$cpokeElemOff :: Ptr VkLogicOp -> Int -> VkLogicOp -> IO ()
peekElemOff :: Ptr VkLogicOp -> Int -> IO VkLogicOp
$cpeekElemOff :: Ptr VkLogicOp -> Int -> IO VkLogicOp
alignment :: VkLogicOp -> Int
$calignment :: VkLogicOp -> Int
sizeOf :: VkLogicOp -> Int
$csizeOf :: VkLogicOp -> Int
Storable)

instance Show VkLogicOp where
    showsPrec :: Int -> VkLogicOp -> ShowS
showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_CLEAR = String -> ShowS
showString String
"VK_LOGIC_OP_CLEAR"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_AND = String -> ShowS
showString String
"VK_LOGIC_OP_AND"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_AND_REVERSE
      = String -> ShowS
showString String
"VK_LOGIC_OP_AND_REVERSE"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_COPY = String -> ShowS
showString String
"VK_LOGIC_OP_COPY"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_AND_INVERTED
      = String -> ShowS
showString String
"VK_LOGIC_OP_AND_INVERTED"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_NO_OP = String -> ShowS
showString String
"VK_LOGIC_OP_NO_OP"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_XOR = String -> ShowS
showString String
"VK_LOGIC_OP_XOR"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_OR = String -> ShowS
showString String
"VK_LOGIC_OP_OR"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_NOR = String -> ShowS
showString String
"VK_LOGIC_OP_NOR"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_EQUIVALENT
      = String -> ShowS
showString String
"VK_LOGIC_OP_EQUIVALENT"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_INVERT = String -> ShowS
showString String
"VK_LOGIC_OP_INVERT"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_OR_REVERSE
      = String -> ShowS
showString String
"VK_LOGIC_OP_OR_REVERSE"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_COPY_INVERTED
      = String -> ShowS
showString String
"VK_LOGIC_OP_COPY_INVERTED"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_OR_INVERTED
      = String -> ShowS
showString String
"VK_LOGIC_OP_OR_INVERTED"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_NAND = String -> ShowS
showString String
"VK_LOGIC_OP_NAND"
    showsPrec Int
_ VkLogicOp
VK_LOGIC_OP_SET = String -> ShowS
showString String
"VK_LOGIC_OP_SET"
    showsPrec Int
p (VkLogicOp Int32
x)
      = Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
>= Int
11) (String -> ShowS
showString String
"VkLogicOp " 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 VkLogicOp where
    readPrec :: ReadPrec VkLogicOp
readPrec
      = ReadPrec VkLogicOp -> ReadPrec VkLogicOp
forall a. ReadPrec a -> ReadPrec a
parens
          ([(String, ReadPrec VkLogicOp)] -> ReadPrec VkLogicOp
forall a. [(String, ReadPrec a)] -> ReadPrec a
choose
             [(String
"VK_LOGIC_OP_CLEAR", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_CLEAR),
              (String
"VK_LOGIC_OP_AND", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_AND),
              (String
"VK_LOGIC_OP_AND_REVERSE", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_AND_REVERSE),
              (String
"VK_LOGIC_OP_COPY", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_COPY),
              (String
"VK_LOGIC_OP_AND_INVERTED", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_AND_INVERTED),
              (String
"VK_LOGIC_OP_NO_OP", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_NO_OP),
              (String
"VK_LOGIC_OP_XOR", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_XOR),
              (String
"VK_LOGIC_OP_OR", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_OR),
              (String
"VK_LOGIC_OP_NOR", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_NOR),
              (String
"VK_LOGIC_OP_EQUIVALENT", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_EQUIVALENT),
              (String
"VK_LOGIC_OP_INVERT", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_INVERT),
              (String
"VK_LOGIC_OP_OR_REVERSE", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_OR_REVERSE),
              (String
"VK_LOGIC_OP_COPY_INVERTED", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_COPY_INVERTED),
              (String
"VK_LOGIC_OP_OR_INVERTED", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_OR_INVERTED),
              (String
"VK_LOGIC_OP_NAND", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_NAND),
              (String
"VK_LOGIC_OP_SET", VkLogicOp -> ReadPrec VkLogicOp
forall (f :: * -> *) a. Applicative f => a -> f a
pure VkLogicOp
VK_LOGIC_OP_SET)]
             ReadPrec VkLogicOp -> ReadPrec VkLogicOp -> ReadPrec VkLogicOp
forall a. ReadPrec a -> ReadPrec a -> ReadPrec a
+++
             Int -> ReadPrec VkLogicOp -> ReadPrec VkLogicOp
forall a. Int -> ReadPrec a -> ReadPrec a
prec Int
10
               (Lexeme -> ReadPrec ()
expectP (String -> Lexeme
Ident String
"VkLogicOp") ReadPrec () -> ReadPrec VkLogicOp -> ReadPrec VkLogicOp
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> (Int32 -> VkLogicOp
VkLogicOp (Int32 -> VkLogicOp) -> ReadPrec Int32 -> ReadPrec VkLogicOp
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)))

pattern VK_LOGIC_OP_CLEAR :: VkLogicOp

pattern $bVK_LOGIC_OP_CLEAR :: VkLogicOp
$mVK_LOGIC_OP_CLEAR :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_CLEAR = VkLogicOp 0

pattern VK_LOGIC_OP_AND :: VkLogicOp

pattern $bVK_LOGIC_OP_AND :: VkLogicOp
$mVK_LOGIC_OP_AND :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_AND = VkLogicOp 1

pattern VK_LOGIC_OP_AND_REVERSE :: VkLogicOp

pattern $bVK_LOGIC_OP_AND_REVERSE :: VkLogicOp
$mVK_LOGIC_OP_AND_REVERSE :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_AND_REVERSE = VkLogicOp 2

pattern VK_LOGIC_OP_COPY :: VkLogicOp

pattern $bVK_LOGIC_OP_COPY :: VkLogicOp
$mVK_LOGIC_OP_COPY :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_COPY = VkLogicOp 3

pattern VK_LOGIC_OP_AND_INVERTED :: VkLogicOp

pattern $bVK_LOGIC_OP_AND_INVERTED :: VkLogicOp
$mVK_LOGIC_OP_AND_INVERTED :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_AND_INVERTED = VkLogicOp 4

pattern VK_LOGIC_OP_NO_OP :: VkLogicOp

pattern $bVK_LOGIC_OP_NO_OP :: VkLogicOp
$mVK_LOGIC_OP_NO_OP :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_NO_OP = VkLogicOp 5

pattern VK_LOGIC_OP_XOR :: VkLogicOp

pattern $bVK_LOGIC_OP_XOR :: VkLogicOp
$mVK_LOGIC_OP_XOR :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_XOR = VkLogicOp 6

pattern VK_LOGIC_OP_OR :: VkLogicOp

pattern $bVK_LOGIC_OP_OR :: VkLogicOp
$mVK_LOGIC_OP_OR :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_OR = VkLogicOp 7

pattern VK_LOGIC_OP_NOR :: VkLogicOp

pattern $bVK_LOGIC_OP_NOR :: VkLogicOp
$mVK_LOGIC_OP_NOR :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_NOR = VkLogicOp 8

pattern VK_LOGIC_OP_EQUIVALENT :: VkLogicOp

pattern $bVK_LOGIC_OP_EQUIVALENT :: VkLogicOp
$mVK_LOGIC_OP_EQUIVALENT :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_EQUIVALENT = VkLogicOp 9

pattern VK_LOGIC_OP_INVERT :: VkLogicOp

pattern $bVK_LOGIC_OP_INVERT :: VkLogicOp
$mVK_LOGIC_OP_INVERT :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_INVERT = VkLogicOp 10

pattern VK_LOGIC_OP_OR_REVERSE :: VkLogicOp

pattern $bVK_LOGIC_OP_OR_REVERSE :: VkLogicOp
$mVK_LOGIC_OP_OR_REVERSE :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_OR_REVERSE = VkLogicOp 11

pattern VK_LOGIC_OP_COPY_INVERTED :: VkLogicOp

pattern $bVK_LOGIC_OP_COPY_INVERTED :: VkLogicOp
$mVK_LOGIC_OP_COPY_INVERTED :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_COPY_INVERTED = VkLogicOp 12

pattern VK_LOGIC_OP_OR_INVERTED :: VkLogicOp

pattern $bVK_LOGIC_OP_OR_INVERTED :: VkLogicOp
$mVK_LOGIC_OP_OR_INVERTED :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_OR_INVERTED = VkLogicOp 13

pattern VK_LOGIC_OP_NAND :: VkLogicOp

pattern $bVK_LOGIC_OP_NAND :: VkLogicOp
$mVK_LOGIC_OP_NAND :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_NAND = VkLogicOp 14

pattern VK_LOGIC_OP_SET :: VkLogicOp

pattern $bVK_LOGIC_OP_SET :: VkLogicOp
$mVK_LOGIC_OP_SET :: forall {r}. VkLogicOp -> (Void# -> r) -> (Void# -> r) -> r
VK_LOGIC_OP_SET = VkLogicOp 15