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

module Data.SpirV.Enum.PackedVectorFormat where

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

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

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

pattern PackedVectorFormat4x8BitKHR :: PackedVectorFormat
pattern $mPackedVectorFormat4x8BitKHR :: forall {r}. PackedVectorFormat -> ((# #) -> r) -> ((# #) -> r) -> r
$bPackedVectorFormat4x8BitKHR :: PackedVectorFormat
PackedVectorFormat4x8BitKHR = PackedVectorFormat 0