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

module Data.SpirV.Enum.FunctionParameterAttribute where

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

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

instance Show FunctionParameterAttribute where
  showsPrec :: Int -> FunctionParameterAttribute -> ShowS
showsPrec Int
p (FunctionParameterAttribute Word32
v) = case Word32
v of
    Word32
0 -> String -> ShowS
showString String
"Zext"
    Word32
1 -> String -> ShowS
showString String
"Sext"
    Word32
2 -> String -> ShowS
showString String
"ByVal"
    Word32
3 -> String -> ShowS
showString String
"Sret"
    Word32
4 -> String -> ShowS
showString String
"NoAlias"
    Word32
5 -> String -> ShowS
showString String
"NoCapture"
    Word32
6 -> String -> ShowS
showString String
"NoWrite"
    Word32
7 -> String -> ShowS
showString String
"NoReadWrite"
    Word32
5940 -> String -> ShowS
showString String
"RuntimeAlignedINTEL"
    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
"FunctionParameterAttribute " 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 Zext :: FunctionParameterAttribute
pattern $mZext :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bZext :: FunctionParameterAttribute
Zext = FunctionParameterAttribute 0

pattern Sext :: FunctionParameterAttribute
pattern $mSext :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bSext :: FunctionParameterAttribute
Sext = FunctionParameterAttribute 1

pattern ByVal :: FunctionParameterAttribute
pattern $mByVal :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bByVal :: FunctionParameterAttribute
ByVal = FunctionParameterAttribute 2

pattern Sret :: FunctionParameterAttribute
pattern $mSret :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bSret :: FunctionParameterAttribute
Sret = FunctionParameterAttribute 3

pattern NoAlias :: FunctionParameterAttribute
pattern $mNoAlias :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bNoAlias :: FunctionParameterAttribute
NoAlias = FunctionParameterAttribute 4

pattern NoCapture :: FunctionParameterAttribute
pattern $mNoCapture :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bNoCapture :: FunctionParameterAttribute
NoCapture = FunctionParameterAttribute 5

pattern NoWrite :: FunctionParameterAttribute
pattern $mNoWrite :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bNoWrite :: FunctionParameterAttribute
NoWrite = FunctionParameterAttribute 6

pattern NoReadWrite :: FunctionParameterAttribute
pattern $mNoReadWrite :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bNoReadWrite :: FunctionParameterAttribute
NoReadWrite = FunctionParameterAttribute 7

pattern RuntimeAlignedINTEL :: FunctionParameterAttribute
pattern $mRuntimeAlignedINTEL :: forall {r}.
FunctionParameterAttribute -> ((# #) -> r) -> ((# #) -> r) -> r
$bRuntimeAlignedINTEL :: FunctionParameterAttribute
RuntimeAlignedINTEL = FunctionParameterAttribute 5940