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