module Data.SpirV.Enum.PackedVectorFormat 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 PackedVectorFormat = PackedVectorFormat Word32 deriving (PackedVectorFormat -> PackedVectorFormat -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: PackedVectorFormat -> PackedVectorFormat -> Bool $c/= :: PackedVectorFormat -> PackedVectorFormat -> Bool == :: PackedVectorFormat -> PackedVectorFormat -> Bool $c== :: PackedVectorFormat -> PackedVectorFormat -> Bool Eq, Eq PackedVectorFormat PackedVectorFormat -> PackedVectorFormat -> Bool PackedVectorFormat -> PackedVectorFormat -> Ordering PackedVectorFormat -> PackedVectorFormat -> PackedVectorFormat 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 :: PackedVectorFormat -> PackedVectorFormat -> PackedVectorFormat $cmin :: PackedVectorFormat -> PackedVectorFormat -> PackedVectorFormat max :: PackedVectorFormat -> PackedVectorFormat -> PackedVectorFormat $cmax :: PackedVectorFormat -> PackedVectorFormat -> PackedVectorFormat >= :: PackedVectorFormat -> PackedVectorFormat -> Bool $c>= :: PackedVectorFormat -> PackedVectorFormat -> Bool > :: PackedVectorFormat -> PackedVectorFormat -> Bool $c> :: PackedVectorFormat -> PackedVectorFormat -> Bool <= :: PackedVectorFormat -> PackedVectorFormat -> Bool $c<= :: PackedVectorFormat -> PackedVectorFormat -> Bool < :: PackedVectorFormat -> PackedVectorFormat -> Bool $c< :: PackedVectorFormat -> PackedVectorFormat -> Bool compare :: PackedVectorFormat -> PackedVectorFormat -> Ordering $ccompare :: PackedVectorFormat -> PackedVectorFormat -> Ordering Ord, Ptr PackedVectorFormat -> IO PackedVectorFormat Ptr PackedVectorFormat -> Int -> IO PackedVectorFormat Ptr PackedVectorFormat -> Int -> PackedVectorFormat -> IO () Ptr PackedVectorFormat -> PackedVectorFormat -> IO () PackedVectorFormat -> Int forall b. Ptr b -> Int -> IO PackedVectorFormat forall b. Ptr b -> Int -> PackedVectorFormat -> 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 PackedVectorFormat -> PackedVectorFormat -> IO () $cpoke :: Ptr PackedVectorFormat -> PackedVectorFormat -> IO () peek :: Ptr PackedVectorFormat -> IO PackedVectorFormat $cpeek :: Ptr PackedVectorFormat -> IO PackedVectorFormat pokeByteOff :: forall b. Ptr b -> Int -> PackedVectorFormat -> IO () $cpokeByteOff :: forall b. Ptr b -> Int -> PackedVectorFormat -> IO () peekByteOff :: forall b. Ptr b -> Int -> IO PackedVectorFormat $cpeekByteOff :: forall b. Ptr b -> Int -> IO PackedVectorFormat pokeElemOff :: Ptr PackedVectorFormat -> Int -> PackedVectorFormat -> IO () $cpokeElemOff :: Ptr PackedVectorFormat -> Int -> PackedVectorFormat -> IO () peekElemOff :: Ptr PackedVectorFormat -> Int -> IO PackedVectorFormat $cpeekElemOff :: Ptr PackedVectorFormat -> Int -> IO PackedVectorFormat alignment :: PackedVectorFormat -> Int $calignment :: PackedVectorFormat -> Int sizeOf :: PackedVectorFormat -> Int $csizeOf :: PackedVectorFormat -> Int Storable) pattern PackedVectorFormat4x8Bit :: PackedVectorFormat pattern $bPackedVectorFormat4x8Bit :: PackedVectorFormat $mPackedVectorFormat4x8Bit :: forall {r}. PackedVectorFormat -> ((# #) -> r) -> ((# #) -> r) -> r PackedVectorFormat4x8Bit = PackedVectorFormat 0 pattern PackedVectorFormat4x8BitKHR :: PackedVectorFormat pattern $bPackedVectorFormat4x8BitKHR :: PackedVectorFormat $mPackedVectorFormat4x8BitKHR :: forall {r}. PackedVectorFormat -> ((# #) -> r) -> ((# #) -> r) -> r PackedVectorFormat4x8BitKHR = PackedVectorFormat 0 toName :: IsString a => PackedVectorFormat -> a toName :: forall a. IsString a => PackedVectorFormat -> a toName PackedVectorFormat x = case PackedVectorFormat x of PackedVectorFormat PackedVectorFormat4x8Bit -> a "PackedVectorFormat4x8Bit" PackedVectorFormat PackedVectorFormat4x8BitKHR -> a "PackedVectorFormat4x8BitKHR" PackedVectorFormat unknown -> forall a. IsString a => [Char] -> a fromString forall a b. (a -> b) -> a -> b $ [Char] "PackedVectorFormat " forall a. [a] -> [a] -> [a] ++ forall a. Show a => a -> [Char] show PackedVectorFormat unknown instance Show PackedVectorFormat where show :: PackedVectorFormat -> [Char] show = forall a. IsString a => PackedVectorFormat -> a toName fromName :: (IsString a, Eq a) => a -> Maybe PackedVectorFormat fromName :: forall a. (IsString a, Eq a) => a -> Maybe PackedVectorFormat fromName a x = case a x of a "PackedVectorFormat4x8Bit" -> forall a. a -> Maybe a Just PackedVectorFormat PackedVectorFormat4x8Bit a "PackedVectorFormat4x8BitKHR" -> forall a. a -> Maybe a Just PackedVectorFormat PackedVectorFormat4x8BitKHR a _unknown -> forall a. Maybe a Nothing instance Read PackedVectorFormat where readPrec :: ReadPrec PackedVectorFormat 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 PackedVectorFormat fromName [Char] s