{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE TypeSynonymInstances #-}

module Data.SpirV.Enum.InitializationModeQualifier where

import Data.Word (Word32)
import Foreign.Storable (Storable)

newtype InitializationModeQualifier = InitializationModeQualifier Word32
  deriving newtype (InitializationModeQualifier -> InitializationModeQualifier -> Bool
(InitializationModeQualifier
 -> InitializationModeQualifier -> Bool)
-> (InitializationModeQualifier
    -> InitializationModeQualifier -> Bool)
-> Eq InitializationModeQualifier
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
== :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
$c/= :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
/= :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
Eq, Eq InitializationModeQualifier
Eq InitializationModeQualifier =>
(InitializationModeQualifier
 -> InitializationModeQualifier -> Ordering)
-> (InitializationModeQualifier
    -> InitializationModeQualifier -> Bool)
-> (InitializationModeQualifier
    -> InitializationModeQualifier -> Bool)
-> (InitializationModeQualifier
    -> InitializationModeQualifier -> Bool)
-> (InitializationModeQualifier
    -> InitializationModeQualifier -> Bool)
-> (InitializationModeQualifier
    -> InitializationModeQualifier -> InitializationModeQualifier)
-> (InitializationModeQualifier
    -> InitializationModeQualifier -> InitializationModeQualifier)
-> Ord InitializationModeQualifier
InitializationModeQualifier -> InitializationModeQualifier -> Bool
InitializationModeQualifier
-> InitializationModeQualifier -> Ordering
InitializationModeQualifier
-> InitializationModeQualifier -> InitializationModeQualifier
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
$ccompare :: InitializationModeQualifier
-> InitializationModeQualifier -> Ordering
compare :: InitializationModeQualifier
-> InitializationModeQualifier -> Ordering
$c< :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
< :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
$c<= :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
<= :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
$c> :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
> :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
$c>= :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
>= :: InitializationModeQualifier -> InitializationModeQualifier -> Bool
$cmax :: InitializationModeQualifier
-> InitializationModeQualifier -> InitializationModeQualifier
max :: InitializationModeQualifier
-> InitializationModeQualifier -> InitializationModeQualifier
$cmin :: InitializationModeQualifier
-> InitializationModeQualifier -> InitializationModeQualifier
min :: InitializationModeQualifier
-> InitializationModeQualifier -> InitializationModeQualifier
Ord, Ptr InitializationModeQualifier -> IO InitializationModeQualifier
Ptr InitializationModeQualifier
-> Int -> IO InitializationModeQualifier
Ptr InitializationModeQualifier
-> Int -> InitializationModeQualifier -> IO ()
Ptr InitializationModeQualifier
-> InitializationModeQualifier -> IO ()
InitializationModeQualifier -> Int
(InitializationModeQualifier -> Int)
-> (InitializationModeQualifier -> Int)
-> (Ptr InitializationModeQualifier
    -> Int -> IO InitializationModeQualifier)
-> (Ptr InitializationModeQualifier
    -> Int -> InitializationModeQualifier -> IO ())
-> (forall b. Ptr b -> Int -> IO InitializationModeQualifier)
-> (forall b. Ptr b -> Int -> InitializationModeQualifier -> IO ())
-> (Ptr InitializationModeQualifier
    -> IO InitializationModeQualifier)
-> (Ptr InitializationModeQualifier
    -> InitializationModeQualifier -> IO ())
-> Storable InitializationModeQualifier
forall b. Ptr b -> Int -> IO InitializationModeQualifier
forall b. Ptr b -> Int -> InitializationModeQualifier -> 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
$csizeOf :: InitializationModeQualifier -> Int
sizeOf :: InitializationModeQualifier -> Int
$calignment :: InitializationModeQualifier -> Int
alignment :: InitializationModeQualifier -> Int
$cpeekElemOff :: Ptr InitializationModeQualifier
-> Int -> IO InitializationModeQualifier
peekElemOff :: Ptr InitializationModeQualifier
-> Int -> IO InitializationModeQualifier
$cpokeElemOff :: Ptr InitializationModeQualifier
-> Int -> InitializationModeQualifier -> IO ()
pokeElemOff :: Ptr InitializationModeQualifier
-> Int -> InitializationModeQualifier -> IO ()
$cpeekByteOff :: forall b. Ptr b -> Int -> IO InitializationModeQualifier
peekByteOff :: forall b. Ptr b -> Int -> IO InitializationModeQualifier
$cpokeByteOff :: forall b. Ptr b -> Int -> InitializationModeQualifier -> IO ()
pokeByteOff :: forall b. Ptr b -> Int -> InitializationModeQualifier -> IO ()
$cpeek :: Ptr InitializationModeQualifier -> IO InitializationModeQualifier
peek :: Ptr InitializationModeQualifier -> IO InitializationModeQualifier
$cpoke :: Ptr InitializationModeQualifier
-> InitializationModeQualifier -> IO ()
poke :: Ptr InitializationModeQualifier
-> InitializationModeQualifier -> IO ()
Storable)

instance Show InitializationModeQualifier where
  showsPrec :: Int -> InitializationModeQualifier -> ShowS
showsPrec Int
p (InitializationModeQualifier Word32
v) = case Word32
v of
    Word32
0 -> String -> ShowS
showString String
"InitOnDeviceReprogramINTEL"
    Word32
1 -> String -> ShowS
showString String
"InitOnDeviceResetINTEL"
    Word32
x -> Bool -> ShowS -> ShowS
showParen (Int
p Int -> Int -> Bool
forall a. Ord a => a -> a -> Bool
> Int
10) (ShowS -> ShowS) -> ShowS -> ShowS
forall a b. (a -> b) -> a -> b
$ String -> ShowS
showString String
"InitializationModeQualifier " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec (Int
p Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1) Word32
x

pattern InitOnDeviceReprogramINTEL :: InitializationModeQualifier
pattern $mInitOnDeviceReprogramINTEL :: forall {r}.
InitializationModeQualifier -> ((# #) -> r) -> ((# #) -> r) -> r
$bInitOnDeviceReprogramINTEL :: InitializationModeQualifier
InitOnDeviceReprogramINTEL = InitializationModeQualifier 0

pattern InitOnDeviceResetINTEL :: InitializationModeQualifier
pattern $mInitOnDeviceResetINTEL :: forall {r}.
InitializationModeQualifier -> ((# #) -> r) -> ((# #) -> r) -> r
$bInitOnDeviceResetINTEL :: InitializationModeQualifier
InitOnDeviceResetINTEL = InitializationModeQualifier 1