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

module Data.SpirV.Enum.HostAccessQualifier where

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

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

instance Show HostAccessQualifier where
  showsPrec :: Int -> HostAccessQualifier -> ShowS
showsPrec Int
p (HostAccessQualifier Word32
v) = case Word32
v of
    Word32
0 -> String -> ShowS
showString String
"NoneINTEL"
    Word32
1 -> String -> ShowS
showString String
"ReadINTEL"
    Word32
2 -> String -> ShowS
showString String
"WriteINTEL"
    Word32
3 -> String -> ShowS
showString String
"ReadWriteINTEL"
    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
"HostAccessQualifier " 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 NoneINTEL :: HostAccessQualifier
pattern $mNoneINTEL :: forall {r}.
HostAccessQualifier -> ((# #) -> r) -> ((# #) -> r) -> r
$bNoneINTEL :: HostAccessQualifier
NoneINTEL = HostAccessQualifier 0

pattern ReadINTEL :: HostAccessQualifier
pattern $mReadINTEL :: forall {r}.
HostAccessQualifier -> ((# #) -> r) -> ((# #) -> r) -> r
$bReadINTEL :: HostAccessQualifier
ReadINTEL = HostAccessQualifier 1

pattern WriteINTEL :: HostAccessQualifier
pattern $mWriteINTEL :: forall {r}.
HostAccessQualifier -> ((# #) -> r) -> ((# #) -> r) -> r
$bWriteINTEL :: HostAccessQualifier
WriteINTEL = HostAccessQualifier 2

pattern ReadWriteINTEL :: HostAccessQualifier
pattern $mReadWriteINTEL :: forall {r}.
HostAccessQualifier -> ((# #) -> r) -> ((# #) -> r) -> r
$bReadWriteINTEL :: HostAccessQualifier
ReadWriteINTEL = HostAccessQualifier 3