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

module Data.SpirV.Enum.NamedMaximumNumberOfRegisters where

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

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

instance Show NamedMaximumNumberOfRegisters where
  showsPrec :: Int -> NamedMaximumNumberOfRegisters -> ShowS
showsPrec Int
p (NamedMaximumNumberOfRegisters Word32
v) = case Word32
v of
    Word32
0 -> String -> ShowS
showString String
"AutoINTEL"
    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
"NamedMaximumNumberOfRegisters " 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 AutoINTEL :: NamedMaximumNumberOfRegisters
pattern $mAutoINTEL :: forall {r}.
NamedMaximumNumberOfRegisters -> ((# #) -> r) -> ((# #) -> r) -> r
$bAutoINTEL :: NamedMaximumNumberOfRegisters
AutoINTEL = NamedMaximumNumberOfRegisters 0