module Data.SpirV.Enum.QuantizationModes where

import Data.String (IsString(..))
import Data.Word (Word32)
import Foreign (Storable(..))
import GHC.Read (Read(..))
import Text.ParserCombinators.ReadPrec (pfail)
import qualified GHC.Read as Read
import qualified Text.Read.Lex as Lex

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

pattern TRN :: QuantizationModes
pattern $bTRN :: QuantizationModes
$mTRN :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
TRN = QuantizationModes 0

pattern TRN_ZERO :: QuantizationModes
pattern $bTRN_ZERO :: QuantizationModes
$mTRN_ZERO :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
TRN_ZERO = QuantizationModes 1

pattern RND :: QuantizationModes
pattern $bRND :: QuantizationModes
$mRND :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
RND = QuantizationModes 2

pattern RND_ZERO :: QuantizationModes
pattern $bRND_ZERO :: QuantizationModes
$mRND_ZERO :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
RND_ZERO = QuantizationModes 3

pattern RND_INF :: QuantizationModes
pattern $bRND_INF :: QuantizationModes
$mRND_INF :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
RND_INF = QuantizationModes 4

pattern RND_MIN_INF :: QuantizationModes
pattern $bRND_MIN_INF :: QuantizationModes
$mRND_MIN_INF :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
RND_MIN_INF = QuantizationModes 5

pattern RND_CONV :: QuantizationModes
pattern $bRND_CONV :: QuantizationModes
$mRND_CONV :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
RND_CONV = QuantizationModes 6

pattern RND_CONV_ODD :: QuantizationModes
pattern $bRND_CONV_ODD :: QuantizationModes
$mRND_CONV_ODD :: forall {r}. QuantizationModes -> ((# #) -> r) -> ((# #) -> r) -> r
RND_CONV_ODD = QuantizationModes 7

toName :: IsString a => QuantizationModes -> a
toName :: forall a. IsString a => QuantizationModes -> a
toName QuantizationModes
x = case QuantizationModes
x of
  QuantizationModes
TRN -> a
"TRN"
  QuantizationModes
TRN_ZERO -> a
"TRN_ZERO"
  QuantizationModes
RND -> a
"RND"
  QuantizationModes
RND_ZERO -> a
"RND_ZERO"
  QuantizationModes
RND_INF -> a
"RND_INF"
  QuantizationModes
RND_MIN_INF -> a
"RND_MIN_INF"
  QuantizationModes
RND_CONV -> a
"RND_CONV"
  QuantizationModes
RND_CONV_ODD -> a
"RND_CONV_ODD"
  QuantizationModes
unknown -> forall a. IsString a => [Char] -> a
fromString forall a b. (a -> b) -> a -> b
$ [Char]
"QuantizationModes " forall a. [a] -> [a] -> [a]
++ forall a. Show a => a -> [Char]
show QuantizationModes
unknown

instance Show QuantizationModes where
  show :: QuantizationModes -> [Char]
show = forall a. IsString a => QuantizationModes -> a
toName

fromName :: (IsString a, Eq a) => a -> Maybe QuantizationModes
fromName :: forall a. (IsString a, Eq a) => a -> Maybe QuantizationModes
fromName a
x = case a
x of
  a
"TRN" -> forall a. a -> Maybe a
Just QuantizationModes
TRN
  a
"TRN_ZERO" -> forall a. a -> Maybe a
Just QuantizationModes
TRN_ZERO
  a
"RND" -> forall a. a -> Maybe a
Just QuantizationModes
RND
  a
"RND_ZERO" -> forall a. a -> Maybe a
Just QuantizationModes
RND_ZERO
  a
"RND_INF" -> forall a. a -> Maybe a
Just QuantizationModes
RND_INF
  a
"RND_MIN_INF" -> forall a. a -> Maybe a
Just QuantizationModes
RND_MIN_INF
  a
"RND_CONV" -> forall a. a -> Maybe a
Just QuantizationModes
RND_CONV
  a
"RND_CONV_ODD" -> forall a. a -> Maybe a
Just QuantizationModes
RND_CONV_ODD
  a
_unknown -> forall a. Maybe a
Nothing

instance Read QuantizationModes where
  readPrec :: ReadPrec QuantizationModes
readPrec = forall a. ReadPrec a -> ReadPrec a
Read.parens do
    Lex.Ident [Char]
s <- ReadPrec Lexeme
Read.lexP
    forall b a. b -> (a -> b) -> Maybe a -> b
maybe forall a. ReadPrec a
pfail forall (f :: * -> *) a. Applicative f => a -> f a
pure forall a b. (a -> b) -> a -> b
$ forall a. (IsString a, Eq a) => a -> Maybe QuantizationModes
fromName [Char]
s