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