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

module Data.SpirV.Enum.FPDenormMode where

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

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

instance Show FPDenormMode where
  showsPrec :: Int -> FPDenormMode -> ShowS
showsPrec Int
p (FPDenormMode Word32
v) = case Word32
v of
    Word32
0 -> String -> ShowS
showString String
"Preserve"
    Word32
1 -> String -> ShowS
showString String
"FlushToZero"
    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
"FPDenormMode " 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 Preserve :: FPDenormMode
pattern $mPreserve :: forall {r}. FPDenormMode -> ((# #) -> r) -> ((# #) -> r) -> r
$bPreserve :: FPDenormMode
Preserve = FPDenormMode 0

pattern FlushToZero :: FPDenormMode
pattern $mFlushToZero :: forall {r}. FPDenormMode -> ((# #) -> r) -> ((# #) -> r) -> r
$bFlushToZero :: FPDenormMode
FlushToZero = FPDenormMode 1