{-# language CPP #-}
module Vulkan.Extensions.VK_NV_optical_flow ( getPhysicalDeviceOpticalFlowImageFormatsNV
, createOpticalFlowSessionNV
, withOpticalFlowSessionNV
, destroyOpticalFlowSessionNV
, bindOpticalFlowSessionImageNV
, cmdOpticalFlowExecuteNV
, PhysicalDeviceOpticalFlowFeaturesNV(..)
, PhysicalDeviceOpticalFlowPropertiesNV(..)
, OpticalFlowImageFormatInfoNV(..)
, OpticalFlowImageFormatPropertiesNV(..)
, OpticalFlowSessionCreateInfoNV(..)
, OpticalFlowSessionCreatePrivateDataInfoNV(..)
, OpticalFlowExecuteInfoNV(..)
, OpticalFlowGridSizeFlagsNV
, OpticalFlowGridSizeFlagBitsNV( OPTICAL_FLOW_GRID_SIZE_UNKNOWN_NV
, OPTICAL_FLOW_GRID_SIZE_1X1_BIT_NV
, OPTICAL_FLOW_GRID_SIZE_2X2_BIT_NV
, OPTICAL_FLOW_GRID_SIZE_4X4_BIT_NV
, OPTICAL_FLOW_GRID_SIZE_8X8_BIT_NV
, ..
)
, OpticalFlowUsageFlagsNV
, OpticalFlowUsageFlagBitsNV( OPTICAL_FLOW_USAGE_UNKNOWN_NV
, OPTICAL_FLOW_USAGE_INPUT_BIT_NV
, OPTICAL_FLOW_USAGE_OUTPUT_BIT_NV
, OPTICAL_FLOW_USAGE_HINT_BIT_NV
, OPTICAL_FLOW_USAGE_COST_BIT_NV
, OPTICAL_FLOW_USAGE_GLOBAL_FLOW_BIT_NV
, ..
)
, OpticalFlowPerformanceLevelNV( OPTICAL_FLOW_PERFORMANCE_LEVEL_UNKNOWN_NV
, OPTICAL_FLOW_PERFORMANCE_LEVEL_SLOW_NV
, OPTICAL_FLOW_PERFORMANCE_LEVEL_MEDIUM_NV
, OPTICAL_FLOW_PERFORMANCE_LEVEL_FAST_NV
, ..
)
, OpticalFlowSessionBindingPointNV( OPTICAL_FLOW_SESSION_BINDING_POINT_UNKNOWN_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_INPUT_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_REFERENCE_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_HINT_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_FLOW_VECTOR_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_FLOW_VECTOR_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_COST_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_COST_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_GLOBAL_FLOW_NV
, ..
)
, OpticalFlowSessionCreateFlagsNV
, OpticalFlowSessionCreateFlagBitsNV( OPTICAL_FLOW_SESSION_CREATE_ENABLE_HINT_BIT_NV
, OPTICAL_FLOW_SESSION_CREATE_ENABLE_COST_BIT_NV
, OPTICAL_FLOW_SESSION_CREATE_ENABLE_GLOBAL_FLOW_BIT_NV
, OPTICAL_FLOW_SESSION_CREATE_ALLOW_REGIONS_BIT_NV
, OPTICAL_FLOW_SESSION_CREATE_BOTH_DIRECTIONS_BIT_NV
, ..
)
, OpticalFlowExecuteFlagsNV
, OpticalFlowExecuteFlagBitsNV( OPTICAL_FLOW_EXECUTE_DISABLE_TEMPORAL_HINTS_BIT_NV
, ..
)
, NV_OPTICAL_FLOW_SPEC_VERSION
, pattern NV_OPTICAL_FLOW_SPEC_VERSION
, NV_OPTICAL_FLOW_EXTENSION_NAME
, pattern NV_OPTICAL_FLOW_EXTENSION_NAME
, OpticalFlowSessionNV(..)
) where
import Vulkan.Internal.Utils (enumReadPrec)
import Vulkan.Internal.Utils (enumShowsPrec)
import Vulkan.Internal.Utils (traceAroundEvent)
import Control.Exception.Base (bracket)
import Control.Monad (unless)
import Control.Monad.IO.Class (liftIO)
import Data.Typeable (eqT)
import Foreign.Marshal.Alloc (allocaBytes)
import Foreign.Marshal.Alloc (callocBytes)
import Foreign.Marshal.Alloc (free)
import GHC.Base (when)
import GHC.IO (throwIO)
import GHC.Ptr (castPtr)
import GHC.Ptr (nullFunPtr)
import Foreign.Ptr (nullPtr)
import Foreign.Ptr (plusPtr)
import GHC.Show (showString)
import GHC.Show (showsPrec)
import Numeric (showHex)
import Control.Monad.Trans.Class (lift)
import Control.Monad.Trans.Cont (evalContT)
import Data.Vector (generateM)
import qualified Data.Vector (imapM_)
import qualified Data.Vector (length)
import Vulkan.CStruct (FromCStruct)
import Vulkan.CStruct (FromCStruct(..))
import Vulkan.CStruct (ToCStruct)
import Vulkan.CStruct (ToCStruct(..))
import Vulkan.Zero (Zero)
import Vulkan.Zero (Zero(..))
import Control.Monad.IO.Class (MonadIO)
import Data.Bits (Bits)
import Data.Bits (FiniteBits)
import Data.String (IsString)
import Data.Type.Equality ((:~:)(Refl))
import Data.Typeable (Typeable)
import Foreign.Storable (Storable)
import Foreign.Storable (Storable(peek))
import Foreign.Storable (Storable(poke))
import qualified Foreign.Storable (Storable(..))
import GHC.Generics (Generic)
import GHC.IO.Exception (IOErrorType(..))
import GHC.IO.Exception (IOException(..))
import Data.Int (Int32)
import Foreign.Ptr (FunPtr)
import Foreign.Ptr (Ptr)
import GHC.Read (Read(readPrec))
import GHC.Show (Show(showsPrec))
import Data.Word (Word32)
import Data.Kind (Type)
import Control.Monad.Trans.Cont (ContT(..))
import Data.Vector (Vector)
import Vulkan.CStruct.Utils (advancePtrBytes)
import Vulkan.Core10.FundamentalTypes (bool32ToBool)
import Vulkan.Core10.FundamentalTypes (boolToBool32)
import Vulkan.CStruct.Extends (forgetExtensions)
import Vulkan.NamedType ((:::))
import Vulkan.Core10.AllocationCallbacks (AllocationCallbacks)
import Vulkan.Core10.FundamentalTypes (Bool32)
import Vulkan.CStruct.Extends (Chain)
import Vulkan.Core10.Handles (CommandBuffer)
import Vulkan.Core10.Handles (CommandBuffer(..))
import Vulkan.Core10.Handles (CommandBuffer(CommandBuffer))
import Vulkan.Core10.Handles (CommandBuffer_T)
import Vulkan.Core10.Handles (Device)
import Vulkan.Core10.Handles (Device(..))
import Vulkan.Core10.Handles (Device(Device))
import Vulkan.Dynamic (DeviceCmds(pVkBindOpticalFlowSessionImageNV))
import Vulkan.Dynamic (DeviceCmds(pVkCmdOpticalFlowExecuteNV))
import Vulkan.Dynamic (DeviceCmds(pVkCreateOpticalFlowSessionNV))
import Vulkan.Dynamic (DeviceCmds(pVkDestroyOpticalFlowSessionNV))
import Vulkan.Core10.Handles (Device_T)
import Vulkan.CStruct.Extends (Extends)
import Vulkan.CStruct.Extends (Extendss)
import Vulkan.CStruct.Extends (Extensible(..))
import Vulkan.Core10.FundamentalTypes (Flags)
import Vulkan.Core10.Enums.Format (Format)
import Vulkan.Core10.Enums.ImageLayout (ImageLayout)
import Vulkan.Core10.Enums.ImageLayout (ImageLayout(..))
import Vulkan.Core10.Handles (ImageView)
import Vulkan.Core10.Handles (ImageView(..))
import Vulkan.Dynamic (InstanceCmds(pVkGetPhysicalDeviceOpticalFlowImageFormatsNV))
import Vulkan.Extensions.Handles (OpticalFlowSessionNV)
import Vulkan.Extensions.Handles (OpticalFlowSessionNV(..))
import Vulkan.CStruct.Extends (PeekChain)
import Vulkan.CStruct.Extends (PeekChain(..))
import Vulkan.Core10.Handles (PhysicalDevice)
import Vulkan.Core10.Handles (PhysicalDevice(..))
import Vulkan.Core10.Handles (PhysicalDevice(PhysicalDevice))
import Vulkan.Core10.Handles (PhysicalDevice_T)
import Vulkan.CStruct.Extends (PokeChain)
import Vulkan.CStruct.Extends (PokeChain(..))
import Vulkan.Core10.FundamentalTypes (Rect2D)
import Vulkan.Core10.Enums.Result (Result)
import Vulkan.Core10.Enums.Result (Result(..))
import Vulkan.CStruct.Extends (SomeStruct)
import Vulkan.Core10.Enums.StructureType (StructureType)
import Vulkan.Exception (VulkanException(..))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_OPTICAL_FLOW_EXECUTE_INFO_NV))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_OPTICAL_FLOW_IMAGE_FORMAT_INFO_NV))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_OPTICAL_FLOW_IMAGE_FORMAT_PROPERTIES_NV))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_OPTICAL_FLOW_SESSION_CREATE_INFO_NV))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_OPTICAL_FLOW_SESSION_CREATE_PRIVATE_DATA_INFO_NV))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_OPTICAL_FLOW_FEATURES_NV))
import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_OPTICAL_FLOW_PROPERTIES_NV))
import Vulkan.Core10.Enums.Result (Result(SUCCESS))
import Vulkan.Extensions.Handles (OpticalFlowSessionNV(..))
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkGetPhysicalDeviceOpticalFlowImageFormatsNV
:: FunPtr (Ptr PhysicalDevice_T -> Ptr OpticalFlowImageFormatInfoNV -> Ptr Word32 -> Ptr OpticalFlowImageFormatPropertiesNV -> IO Result) -> Ptr PhysicalDevice_T -> Ptr OpticalFlowImageFormatInfoNV -> Ptr Word32 -> Ptr OpticalFlowImageFormatPropertiesNV -> IO Result
getPhysicalDeviceOpticalFlowImageFormatsNV :: forall io
. (MonadIO io)
=>
PhysicalDevice
->
OpticalFlowImageFormatInfoNV
-> io (Result, ("imageFormatProperties" ::: Vector OpticalFlowImageFormatPropertiesNV))
getPhysicalDeviceOpticalFlowImageFormatsNV :: forall (io :: * -> *).
MonadIO io =>
PhysicalDevice
-> OpticalFlowImageFormatInfoNV
-> io
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
getPhysicalDeviceOpticalFlowImageFormatsNV PhysicalDevice
physicalDevice
OpticalFlowImageFormatInfoNV
opticalFlowImageFormatInfo = IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> io
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> io
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> (ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> io
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> io
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> io
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b. (a -> b) -> a -> b
$ do
let vkGetPhysicalDeviceOpticalFlowImageFormatsNVPtr :: FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
vkGetPhysicalDeviceOpticalFlowImageFormatsNVPtr = InstanceCmds
-> FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
pVkGetPhysicalDeviceOpticalFlowImageFormatsNV (case PhysicalDevice
physicalDevice of PhysicalDevice{InstanceCmds
$sel:instanceCmds:PhysicalDevice :: PhysicalDevice -> InstanceCmds
instanceCmds :: InstanceCmds
instanceCmds} -> InstanceCmds
instanceCmds)
IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
())
-> IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
vkGetPhysicalDeviceOpticalFlowImageFormatsNVPtr FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
-> FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkGetPhysicalDeviceOpticalFlowImageFormatsNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkGetPhysicalDeviceOpticalFlowImageFormatsNV' :: Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result
vkGetPhysicalDeviceOpticalFlowImageFormatsNV' = FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
-> Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result
mkVkGetPhysicalDeviceOpticalFlowImageFormatsNV FunPtr
(Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result)
vkGetPhysicalDeviceOpticalFlowImageFormatsNVPtr
let physicalDevice' :: Ptr PhysicalDevice_T
physicalDevice' = PhysicalDevice -> Ptr PhysicalDevice_T
physicalDeviceHandle (PhysicalDevice
physicalDevice)
"pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
pOpticalFlowImageFormatInfo <- ((("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV))
-> ((("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
forall a b. (a -> b) -> a -> b
$ OpticalFlowImageFormatInfoNV
-> (("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b. ToCStruct a => a -> (Ptr a -> IO b) -> IO b
withCStruct (OpticalFlowImageFormatInfoNV
opticalFlowImageFormatInfo)
"pFormatCount" ::: Ptr Flags
pPFormatCount <- ((("pFormatCount" ::: Ptr Flags)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pFormatCount" ::: Ptr Flags)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pFormatCount" ::: Ptr Flags)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pFormatCount" ::: Ptr Flags))
-> ((("pFormatCount" ::: Ptr Flags)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pFormatCount" ::: Ptr Flags)
forall a b. (a -> b) -> a -> b
$ IO ("pFormatCount" ::: Ptr Flags)
-> (("pFormatCount" ::: Ptr Flags) -> IO ())
-> (("pFormatCount" ::: Ptr Flags)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b c. IO a -> (a -> IO b) -> (a -> IO c) -> IO c
bracket (forall a. Int -> IO (Ptr a)
callocBytes @Word32 Int
4) ("pFormatCount" ::: Ptr Flags) -> IO ()
forall a. Ptr a -> IO ()
free
Result
r <- IO Result
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Result
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO Result
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Result)
-> IO Result
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Result
forall a b. (a -> b) -> a -> b
$ String -> IO Result -> IO Result
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkGetPhysicalDeviceOpticalFlowImageFormatsNV" (Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result
vkGetPhysicalDeviceOpticalFlowImageFormatsNV'
Ptr PhysicalDevice_T
physicalDevice'
"pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
pOpticalFlowImageFormatInfo
("pFormatCount" ::: Ptr Flags
pPFormatCount)
("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
forall a. Ptr a
nullPtr))
IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
())
-> IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (Result
r Result -> Result -> Bool
forall a. Ord a => a -> a -> Bool
< Result
SUCCESS) (VulkanException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (Result -> VulkanException
VulkanException Result
r))
Flags
pFormatCount <- IO Flags
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Flags
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO Flags
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Flags)
-> IO Flags
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Flags
forall a b. (a -> b) -> a -> b
$ forall a. Storable a => Ptr a -> IO a
peek @Word32 "pFormatCount" ::: Ptr Flags
pPFormatCount
"pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
pPImageFormatProperties <- ((("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV))
-> ((("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
forall a b. (a -> b) -> a -> b
$ IO
("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> (("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO ())
-> (("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b c. IO a -> (a -> IO b) -> (a -> IO c) -> IO c
bracket (forall a. Int -> IO (Ptr a)
callocBytes @OpticalFlowImageFormatPropertiesNV ((Flags -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Flags
pFormatCount)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
24)) ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO ()
forall a. Ptr a -> IO ()
free
[()]
_ <- (Int
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
())
-> [Int]
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
[()]
forall (t :: * -> *) (f :: * -> *) a b.
(Traversable t, Applicative f) =>
(a -> f b) -> t a -> f (t b)
traverse (\Int
i -> ((()
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((()
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
())
-> ((()
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall a b. (a -> b) -> a -> b
$ ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b. ToCStruct a => Ptr a -> IO b -> IO b
pokeZeroCStruct ("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
pPImageFormatProperties ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int
-> "pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV
forall a. Ptr a -> Int -> Ptr a
`advancePtrBytes` (Int
i Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
24) :: Ptr OpticalFlowImageFormatPropertiesNV) (IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ((()
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> (()
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ((()
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> ()
-> IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b. (a -> b) -> a -> b
$ ())) [Int
0..(Flags -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Flags
pFormatCount)) Int -> Int -> Int
forall a. Num a => a -> a -> a
- Int
1]
Result
r' <- IO Result
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Result
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO Result
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Result)
-> IO Result
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Result
forall a b. (a -> b) -> a -> b
$ String -> IO Result -> IO Result
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkGetPhysicalDeviceOpticalFlowImageFormatsNV" (Ptr PhysicalDevice_T
-> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> ("pFormatCount" ::: Ptr Flags)
-> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO Result
vkGetPhysicalDeviceOpticalFlowImageFormatsNV'
Ptr PhysicalDevice_T
physicalDevice'
"pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
pOpticalFlowImageFormatInfo
("pFormatCount" ::: Ptr Flags
pPFormatCount)
(("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
pPImageFormatProperties)))
IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
())
-> IO ()
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (Result
r' Result -> Result -> Bool
forall a. Ord a => a -> a -> Bool
< Result
SUCCESS) (VulkanException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (Result -> VulkanException
VulkanException Result
r'))
Flags
pFormatCount' <- IO Flags
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Flags
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO Flags
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Flags)
-> IO Flags
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
Flags
forall a b. (a -> b) -> a -> b
$ forall a. Storable a => Ptr a -> IO a
peek @Word32 "pFormatCount" ::: Ptr Flags
pPFormatCount
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV
pImageFormatProperties' <- IO
("imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO
("imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> IO
("imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
("imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b. (a -> b) -> a -> b
$ Int
-> (Int -> IO OpticalFlowImageFormatPropertiesNV)
-> IO
("imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall (m :: * -> *) a.
Monad m =>
Int -> (Int -> m a) -> m (Vector a)
generateM (Flags -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Flags
pFormatCount')) (\Int
i -> forall a. FromCStruct a => Ptr a -> IO a
peekCStruct @OpticalFlowImageFormatPropertiesNV ((("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
pPImageFormatProperties) ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int
-> "pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV
forall a. Ptr a -> Int -> Ptr a
`advancePtrBytes` (Int
24 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr OpticalFlowImageFormatPropertiesNV)))
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall (f :: * -> *) a. Applicative f => a -> f a
pure ((Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV))
-> (Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
-> ContT
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
IO
(Result,
"imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV)
forall a b. (a -> b) -> a -> b
$ ((Result
r'), "imageFormatProperties"
::: Vector OpticalFlowImageFormatPropertiesNV
pImageFormatProperties')
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCreateOpticalFlowSessionNV
:: FunPtr (Ptr Device_T -> Ptr (SomeStruct OpticalFlowSessionCreateInfoNV) -> Ptr AllocationCallbacks -> Ptr OpticalFlowSessionNV -> IO Result) -> Ptr Device_T -> Ptr (SomeStruct OpticalFlowSessionCreateInfoNV) -> Ptr AllocationCallbacks -> Ptr OpticalFlowSessionNV -> IO Result
createOpticalFlowSessionNV :: forall a io
. ( Extendss OpticalFlowSessionCreateInfoNV a
, PokeChain a
, MonadIO io )
=>
Device
->
(OpticalFlowSessionCreateInfoNV a)
->
("allocator" ::: Maybe AllocationCallbacks)
-> io (OpticalFlowSessionNV)
createOpticalFlowSessionNV :: forall (a :: [*]) (io :: * -> *).
(Extendss OpticalFlowSessionCreateInfoNV a, PokeChain a,
MonadIO io) =>
Device
-> OpticalFlowSessionCreateInfoNV a
-> ("allocator" ::: Maybe AllocationCallbacks)
-> io OpticalFlowSessionNV
createOpticalFlowSessionNV Device
device OpticalFlowSessionCreateInfoNV a
createInfo "allocator" ::: Maybe AllocationCallbacks
allocator = IO OpticalFlowSessionNV -> io OpticalFlowSessionNV
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO OpticalFlowSessionNV -> io OpticalFlowSessionNV)
-> (ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
-> IO OpticalFlowSessionNV)
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
-> io OpticalFlowSessionNV
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
-> IO OpticalFlowSessionNV
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
-> io OpticalFlowSessionNV)
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
-> io OpticalFlowSessionNV
forall a b. (a -> b) -> a -> b
$ do
let vkCreateOpticalFlowSessionNVPtr :: FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
vkCreateOpticalFlowSessionNVPtr = DeviceCmds
-> FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
pVkCreateOpticalFlowSessionNV (case Device
device of Device{DeviceCmds
$sel:deviceCmds:Device :: Device -> DeviceCmds
deviceCmds :: DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT OpticalFlowSessionNV IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT OpticalFlowSessionNV IO ())
-> IO () -> ContT OpticalFlowSessionNV IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
vkCreateOpticalFlowSessionNVPtr FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
-> FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCreateOpticalFlowSessionNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCreateOpticalFlowSessionNV' :: Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result
vkCreateOpticalFlowSessionNV' = FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
-> Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result
mkVkCreateOpticalFlowSessionNV FunPtr
(Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result)
vkCreateOpticalFlowSessionNVPtr
Ptr (OpticalFlowSessionCreateInfoNV a)
pCreateInfo <- ((Ptr (OpticalFlowSessionCreateInfoNV a)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO (Ptr (OpticalFlowSessionCreateInfoNV a))
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((Ptr (OpticalFlowSessionCreateInfoNV a)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO (Ptr (OpticalFlowSessionCreateInfoNV a)))
-> ((Ptr (OpticalFlowSessionCreateInfoNV a)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO (Ptr (OpticalFlowSessionCreateInfoNV a))
forall a b. (a -> b) -> a -> b
$ OpticalFlowSessionCreateInfoNV a
-> (Ptr (OpticalFlowSessionCreateInfoNV a)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV
forall a b. ToCStruct a => a -> (Ptr a -> IO b) -> IO b
withCStruct (OpticalFlowSessionCreateInfoNV a
createInfo)
"pAllocator" ::: Ptr AllocationCallbacks
pAllocator <- case ("allocator" ::: Maybe AllocationCallbacks
allocator) of
"allocator" ::: Maybe AllocationCallbacks
Nothing -> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ContT
OpticalFlowSessionNV IO ("pAllocator" ::: Ptr AllocationCallbacks)
forall (f :: * -> *) a. Applicative f => a -> f a
pure "pAllocator" ::: Ptr AllocationCallbacks
forall a. Ptr a
nullPtr
Just AllocationCallbacks
j -> ((("pAllocator" ::: Ptr AllocationCallbacks)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO ("pAllocator" ::: Ptr AllocationCallbacks)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pAllocator" ::: Ptr AllocationCallbacks)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO ("pAllocator" ::: Ptr AllocationCallbacks))
-> ((("pAllocator" ::: Ptr AllocationCallbacks)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO ("pAllocator" ::: Ptr AllocationCallbacks)
forall a b. (a -> b) -> a -> b
$ AllocationCallbacks
-> (("pAllocator" ::: Ptr AllocationCallbacks)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV
forall a b. ToCStruct a => a -> (Ptr a -> IO b) -> IO b
withCStruct (AllocationCallbacks
j)
"pSession" ::: Ptr OpticalFlowSessionNV
pPSession <- ((("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO ("pSession" ::: Ptr OpticalFlowSessionNV)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO ("pSession" ::: Ptr OpticalFlowSessionNV))
-> ((("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> ContT
OpticalFlowSessionNV IO ("pSession" ::: Ptr OpticalFlowSessionNV)
forall a b. (a -> b) -> a -> b
$ IO ("pSession" ::: Ptr OpticalFlowSessionNV)
-> (("pSession" ::: Ptr OpticalFlowSessionNV) -> IO ())
-> (("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV
forall a b c. IO a -> (a -> IO b) -> (a -> IO c) -> IO c
bracket (forall a. Int -> IO (Ptr a)
callocBytes @OpticalFlowSessionNV Int
8) ("pSession" ::: Ptr OpticalFlowSessionNV) -> IO ()
forall a. Ptr a -> IO ()
free
Result
r <- IO Result -> ContT OpticalFlowSessionNV IO Result
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO Result -> ContT OpticalFlowSessionNV IO Result)
-> IO Result -> ContT OpticalFlowSessionNV IO Result
forall a b. (a -> b) -> a -> b
$ String -> IO Result -> IO Result
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCreateOpticalFlowSessionNV" (Ptr Device_T
-> ("pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV))
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ("pSession" ::: Ptr OpticalFlowSessionNV)
-> IO Result
vkCreateOpticalFlowSessionNV'
(Device -> Ptr Device_T
deviceHandle (Device
device))
(Ptr (OpticalFlowSessionCreateInfoNV a)
-> "pCreateInfo"
::: Ptr (SomeStruct OpticalFlowSessionCreateInfoNV)
forall (a :: [*] -> *) (es :: [*]).
Ptr (a es) -> Ptr (SomeStruct a)
forgetExtensions Ptr (OpticalFlowSessionCreateInfoNV a)
pCreateInfo)
"pAllocator" ::: Ptr AllocationCallbacks
pAllocator
("pSession" ::: Ptr OpticalFlowSessionNV
pPSession))
IO () -> ContT OpticalFlowSessionNV IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT OpticalFlowSessionNV IO ())
-> IO () -> ContT OpticalFlowSessionNV IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (Result
r Result -> Result -> Bool
forall a. Ord a => a -> a -> Bool
< Result
SUCCESS) (VulkanException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (Result -> VulkanException
VulkanException Result
r))
OpticalFlowSessionNV
pSession <- IO OpticalFlowSessionNV
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO OpticalFlowSessionNV
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV)
-> IO OpticalFlowSessionNV
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
forall a b. (a -> b) -> a -> b
$ forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowSessionNV "pSession" ::: Ptr OpticalFlowSessionNV
pPSession
OpticalFlowSessionNV
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OpticalFlowSessionNV
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV)
-> OpticalFlowSessionNV
-> ContT OpticalFlowSessionNV IO OpticalFlowSessionNV
forall a b. (a -> b) -> a -> b
$ (OpticalFlowSessionNV
pSession)
withOpticalFlowSessionNV :: forall a io r . (Extendss OpticalFlowSessionCreateInfoNV a, PokeChain a, MonadIO io) => Device -> OpticalFlowSessionCreateInfoNV a -> Maybe AllocationCallbacks -> (io OpticalFlowSessionNV -> (OpticalFlowSessionNV -> io ()) -> r) -> r
withOpticalFlowSessionNV :: forall (a :: [*]) (io :: * -> *) r.
(Extendss OpticalFlowSessionCreateInfoNV a, PokeChain a,
MonadIO io) =>
Device
-> OpticalFlowSessionCreateInfoNV a
-> ("allocator" ::: Maybe AllocationCallbacks)
-> (io OpticalFlowSessionNV
-> (OpticalFlowSessionNV -> io ()) -> r)
-> r
withOpticalFlowSessionNV Device
device OpticalFlowSessionCreateInfoNV a
pCreateInfo "allocator" ::: Maybe AllocationCallbacks
pAllocator io OpticalFlowSessionNV -> (OpticalFlowSessionNV -> io ()) -> r
b =
io OpticalFlowSessionNV -> (OpticalFlowSessionNV -> io ()) -> r
b (Device
-> OpticalFlowSessionCreateInfoNV a
-> ("allocator" ::: Maybe AllocationCallbacks)
-> io OpticalFlowSessionNV
forall (a :: [*]) (io :: * -> *).
(Extendss OpticalFlowSessionCreateInfoNV a, PokeChain a,
MonadIO io) =>
Device
-> OpticalFlowSessionCreateInfoNV a
-> ("allocator" ::: Maybe AllocationCallbacks)
-> io OpticalFlowSessionNV
createOpticalFlowSessionNV Device
device OpticalFlowSessionCreateInfoNV a
pCreateInfo "allocator" ::: Maybe AllocationCallbacks
pAllocator)
(\(OpticalFlowSessionNV
o0) -> Device
-> OpticalFlowSessionNV
-> ("allocator" ::: Maybe AllocationCallbacks)
-> io ()
forall (io :: * -> *).
MonadIO io =>
Device
-> OpticalFlowSessionNV
-> ("allocator" ::: Maybe AllocationCallbacks)
-> io ()
destroyOpticalFlowSessionNV Device
device OpticalFlowSessionNV
o0 "allocator" ::: Maybe AllocationCallbacks
pAllocator)
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkDestroyOpticalFlowSessionNV
:: FunPtr (Ptr Device_T -> OpticalFlowSessionNV -> Ptr AllocationCallbacks -> IO ()) -> Ptr Device_T -> OpticalFlowSessionNV -> Ptr AllocationCallbacks -> IO ()
destroyOpticalFlowSessionNV :: forall io
. (MonadIO io)
=>
Device
->
OpticalFlowSessionNV
->
("allocator" ::: Maybe AllocationCallbacks)
-> io ()
destroyOpticalFlowSessionNV :: forall (io :: * -> *).
MonadIO io =>
Device
-> OpticalFlowSessionNV
-> ("allocator" ::: Maybe AllocationCallbacks)
-> io ()
destroyOpticalFlowSessionNV Device
device OpticalFlowSessionNV
session "allocator" ::: Maybe AllocationCallbacks
allocator = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkDestroyOpticalFlowSessionNVPtr :: FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
vkDestroyOpticalFlowSessionNVPtr = DeviceCmds
-> FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
pVkDestroyOpticalFlowSessionNV (case Device
device of Device{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:Device :: Device -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
vkDestroyOpticalFlowSessionNVPtr FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
-> FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkDestroyOpticalFlowSessionNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkDestroyOpticalFlowSessionNV' :: Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ()
vkDestroyOpticalFlowSessionNV' = FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
-> Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ()
mkVkDestroyOpticalFlowSessionNV FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ())
vkDestroyOpticalFlowSessionNVPtr
"pAllocator" ::: Ptr AllocationCallbacks
pAllocator <- case ("allocator" ::: Maybe AllocationCallbacks
allocator) of
"allocator" ::: Maybe AllocationCallbacks
Nothing -> ("pAllocator" ::: Ptr AllocationCallbacks)
-> ContT () IO ("pAllocator" ::: Ptr AllocationCallbacks)
forall (f :: * -> *) a. Applicative f => a -> f a
pure "pAllocator" ::: Ptr AllocationCallbacks
forall a. Ptr a
nullPtr
Just AllocationCallbacks
j -> ((("pAllocator" ::: Ptr AllocationCallbacks) -> IO ()) -> IO ())
-> ContT () IO ("pAllocator" ::: Ptr AllocationCallbacks)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pAllocator" ::: Ptr AllocationCallbacks) -> IO ()) -> IO ())
-> ContT () IO ("pAllocator" ::: Ptr AllocationCallbacks))
-> ((("pAllocator" ::: Ptr AllocationCallbacks) -> IO ()) -> IO ())
-> ContT () IO ("pAllocator" ::: Ptr AllocationCallbacks)
forall a b. (a -> b) -> a -> b
$ AllocationCallbacks
-> (("pAllocator" ::: Ptr AllocationCallbacks) -> IO ()) -> IO ()
forall a b. ToCStruct a => a -> (Ptr a -> IO b) -> IO b
withCStruct (AllocationCallbacks
j)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkDestroyOpticalFlowSessionNV" (Ptr Device_T
-> OpticalFlowSessionNV
-> ("pAllocator" ::: Ptr AllocationCallbacks)
-> IO ()
vkDestroyOpticalFlowSessionNV'
(Device -> Ptr Device_T
deviceHandle (Device
device))
(OpticalFlowSessionNV
session)
"pAllocator" ::: Ptr AllocationCallbacks
pAllocator)
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkBindOpticalFlowSessionImageNV
:: FunPtr (Ptr Device_T -> OpticalFlowSessionNV -> OpticalFlowSessionBindingPointNV -> ImageView -> ImageLayout -> IO Result) -> Ptr Device_T -> OpticalFlowSessionNV -> OpticalFlowSessionBindingPointNV -> ImageView -> ImageLayout -> IO Result
bindOpticalFlowSessionImageNV :: forall io
. (MonadIO io)
=>
Device
->
OpticalFlowSessionNV
->
OpticalFlowSessionBindingPointNV
->
ImageView
->
ImageLayout
-> io ()
bindOpticalFlowSessionImageNV :: forall (io :: * -> *).
MonadIO io =>
Device
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> io ()
bindOpticalFlowSessionImageNV Device
device
OpticalFlowSessionNV
session
OpticalFlowSessionBindingPointNV
bindingPoint
ImageView
view
ImageLayout
layout = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ()) -> IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkBindOpticalFlowSessionImageNVPtr :: FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
vkBindOpticalFlowSessionImageNVPtr = DeviceCmds
-> FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
pVkBindOpticalFlowSessionImageNV (case Device
device of Device{DeviceCmds
deviceCmds :: DeviceCmds
$sel:deviceCmds:Device :: Device -> DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
vkBindOpticalFlowSessionImageNVPtr FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
-> FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkBindOpticalFlowSessionImageNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkBindOpticalFlowSessionImageNV' :: Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result
vkBindOpticalFlowSessionImageNV' = FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
-> Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result
mkVkBindOpticalFlowSessionImageNV FunPtr
(Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result)
vkBindOpticalFlowSessionImageNVPtr
Result
r <- String -> IO Result -> IO Result
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkBindOpticalFlowSessionImageNV" (Ptr Device_T
-> OpticalFlowSessionNV
-> OpticalFlowSessionBindingPointNV
-> ImageView
-> ImageLayout
-> IO Result
vkBindOpticalFlowSessionImageNV'
(Device -> Ptr Device_T
deviceHandle (Device
device))
(OpticalFlowSessionNV
session)
(OpticalFlowSessionBindingPointNV
bindingPoint)
(ImageView
view)
(ImageLayout
layout))
Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
when (Result
r Result -> Result -> Bool
forall a. Ord a => a -> a -> Bool
< Result
SUCCESS) (VulkanException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (Result -> VulkanException
VulkanException Result
r))
foreign import ccall
#if !defined(SAFE_FOREIGN_CALLS)
unsafe
#endif
"dynamic" mkVkCmdOpticalFlowExecuteNV
:: FunPtr (Ptr CommandBuffer_T -> OpticalFlowSessionNV -> Ptr OpticalFlowExecuteInfoNV -> IO ()) -> Ptr CommandBuffer_T -> OpticalFlowSessionNV -> Ptr OpticalFlowExecuteInfoNV -> IO ()
cmdOpticalFlowExecuteNV :: forall io
. (MonadIO io)
=>
CommandBuffer
->
OpticalFlowSessionNV
->
OpticalFlowExecuteInfoNV
-> io ()
cmdOpticalFlowExecuteNV :: forall (io :: * -> *).
MonadIO io =>
CommandBuffer
-> OpticalFlowSessionNV -> OpticalFlowExecuteInfoNV -> io ()
cmdOpticalFlowExecuteNV CommandBuffer
commandBuffer
OpticalFlowSessionNV
session
OpticalFlowExecuteInfoNV
executeInfo = IO () -> io ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> io ())
-> (ContT () IO () -> IO ()) -> ContT () IO () -> io ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ContT () IO () -> IO ()
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT () IO () -> io ()) -> ContT () IO () -> io ()
forall a b. (a -> b) -> a -> b
$ do
let vkCmdOpticalFlowExecuteNVPtr :: FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
vkCmdOpticalFlowExecuteNVPtr = DeviceCmds
-> FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
pVkCmdOpticalFlowExecuteNV (case CommandBuffer
commandBuffer of CommandBuffer{DeviceCmds
$sel:deviceCmds:CommandBuffer :: CommandBuffer -> DeviceCmds
deviceCmds :: DeviceCmds
deviceCmds} -> DeviceCmds
deviceCmds)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ Bool -> IO () -> IO ()
forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
vkCmdOpticalFlowExecuteNVPtr FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
-> FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
-> Bool
forall a. Eq a => a -> a -> Bool
/= FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
forall a. FunPtr a
nullFunPtr) (IO () -> IO ()) -> IO () -> IO ()
forall a b. (a -> b) -> a -> b
$
IOException -> IO ()
forall e a. Exception e => e -> IO a
throwIO (IOException -> IO ()) -> IOException -> IO ()
forall a b. (a -> b) -> a -> b
$ Maybe Handle
-> IOErrorType
-> String
-> String
-> Maybe CInt
-> Maybe String
-> IOException
IOError Maybe Handle
forall a. Maybe a
Nothing IOErrorType
InvalidArgument String
"" String
"The function pointer for vkCmdOpticalFlowExecuteNV is null" Maybe CInt
forall a. Maybe a
Nothing Maybe String
forall a. Maybe a
Nothing
let vkCmdOpticalFlowExecuteNV' :: Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ()
vkCmdOpticalFlowExecuteNV' = FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
-> Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ()
mkVkCmdOpticalFlowExecuteNV FunPtr
(Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ())
vkCmdOpticalFlowExecuteNVPtr
"pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
pExecuteInfo <- ((("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO ())
-> IO ())
-> ContT () IO ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO ())
-> IO ())
-> ContT () IO ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV))
-> ((("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO ())
-> IO ())
-> ContT () IO ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
forall a b. (a -> b) -> a -> b
$ OpticalFlowExecuteInfoNV
-> (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO ())
-> IO ()
forall a b. ToCStruct a => a -> (Ptr a -> IO b) -> IO b
withCStruct (OpticalFlowExecuteInfoNV
executeInfo)
IO () -> ContT () IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT () IO ()) -> IO () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ String -> IO () -> IO ()
forall a. String -> IO a -> IO a
traceAroundEvent String
"vkCmdOpticalFlowExecuteNV" (Ptr CommandBuffer_T
-> OpticalFlowSessionNV
-> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO ()
vkCmdOpticalFlowExecuteNV'
(CommandBuffer -> Ptr CommandBuffer_T
commandBufferHandle (CommandBuffer
commandBuffer))
(OpticalFlowSessionNV
session)
"pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
pExecuteInfo)
() -> ContT () IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure (() -> ContT () IO ()) -> () -> ContT () IO ()
forall a b. (a -> b) -> a -> b
$ ()
data PhysicalDeviceOpticalFlowFeaturesNV = PhysicalDeviceOpticalFlowFeaturesNV
{
PhysicalDeviceOpticalFlowFeaturesNV -> Bool
opticalFlow :: Bool }
deriving (Typeable, PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> Bool
(PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> Bool)
-> (PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> Bool)
-> Eq PhysicalDeviceOpticalFlowFeaturesNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> Bool
$c/= :: PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> Bool
== :: PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> Bool
$c== :: PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceOpticalFlowFeaturesNV)
#endif
deriving instance Show PhysicalDeviceOpticalFlowFeaturesNV
instance ToCStruct PhysicalDeviceOpticalFlowFeaturesNV where
withCStruct :: forall b.
PhysicalDeviceOpticalFlowFeaturesNV
-> (Ptr PhysicalDeviceOpticalFlowFeaturesNV -> IO b) -> IO b
withCStruct PhysicalDeviceOpticalFlowFeaturesNV
x Ptr PhysicalDeviceOpticalFlowFeaturesNV -> IO b
f = Int -> (Ptr PhysicalDeviceOpticalFlowFeaturesNV -> IO b) -> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((Ptr PhysicalDeviceOpticalFlowFeaturesNV -> IO b) -> IO b)
-> (Ptr PhysicalDeviceOpticalFlowFeaturesNV -> IO b) -> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceOpticalFlowFeaturesNV
p -> Ptr PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceOpticalFlowFeaturesNV
p PhysicalDeviceOpticalFlowFeaturesNV
x (Ptr PhysicalDeviceOpticalFlowFeaturesNV -> IO b
f Ptr PhysicalDeviceOpticalFlowFeaturesNV
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceOpticalFlowFeaturesNV
p PhysicalDeviceOpticalFlowFeaturesNV{Bool
opticalFlow :: Bool
$sel:opticalFlow:PhysicalDeviceOpticalFlowFeaturesNV :: PhysicalDeviceOpticalFlowFeaturesNV -> Bool
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowFeaturesNV
p Ptr PhysicalDeviceOpticalFlowFeaturesNV -> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_OPTICAL_FLOW_FEATURES_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowFeaturesNV
p Ptr PhysicalDeviceOpticalFlowFeaturesNV -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowFeaturesNV
p Ptr PhysicalDeviceOpticalFlowFeaturesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
opticalFlow))
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b. Ptr PhysicalDeviceOpticalFlowFeaturesNV -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceOpticalFlowFeaturesNV
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowFeaturesNV
p Ptr PhysicalDeviceOpticalFlowFeaturesNV -> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_OPTICAL_FLOW_FEATURES_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowFeaturesNV
p Ptr PhysicalDeviceOpticalFlowFeaturesNV -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowFeaturesNV
p Ptr PhysicalDeviceOpticalFlowFeaturesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
IO b
f
instance FromCStruct PhysicalDeviceOpticalFlowFeaturesNV where
peekCStruct :: Ptr PhysicalDeviceOpticalFlowFeaturesNV
-> IO PhysicalDeviceOpticalFlowFeaturesNV
peekCStruct Ptr PhysicalDeviceOpticalFlowFeaturesNV
p = do
Bool32
opticalFlow <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceOpticalFlowFeaturesNV
p Ptr PhysicalDeviceOpticalFlowFeaturesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Bool32))
PhysicalDeviceOpticalFlowFeaturesNV
-> IO PhysicalDeviceOpticalFlowFeaturesNV
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceOpticalFlowFeaturesNV
-> IO PhysicalDeviceOpticalFlowFeaturesNV)
-> PhysicalDeviceOpticalFlowFeaturesNV
-> IO PhysicalDeviceOpticalFlowFeaturesNV
forall a b. (a -> b) -> a -> b
$ Bool -> PhysicalDeviceOpticalFlowFeaturesNV
PhysicalDeviceOpticalFlowFeaturesNV
(Bool32 -> Bool
bool32ToBool Bool32
opticalFlow)
instance Storable PhysicalDeviceOpticalFlowFeaturesNV where
sizeOf :: PhysicalDeviceOpticalFlowFeaturesNV -> Int
sizeOf ~PhysicalDeviceOpticalFlowFeaturesNV
_ = Int
24
alignment :: PhysicalDeviceOpticalFlowFeaturesNV -> Int
alignment ~PhysicalDeviceOpticalFlowFeaturesNV
_ = Int
8
peek :: Ptr PhysicalDeviceOpticalFlowFeaturesNV
-> IO PhysicalDeviceOpticalFlowFeaturesNV
peek = Ptr PhysicalDeviceOpticalFlowFeaturesNV
-> IO PhysicalDeviceOpticalFlowFeaturesNV
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> IO ()
poke Ptr PhysicalDeviceOpticalFlowFeaturesNV
ptr PhysicalDeviceOpticalFlowFeaturesNV
poked = Ptr PhysicalDeviceOpticalFlowFeaturesNV
-> PhysicalDeviceOpticalFlowFeaturesNV -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceOpticalFlowFeaturesNV
ptr PhysicalDeviceOpticalFlowFeaturesNV
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceOpticalFlowFeaturesNV where
zero :: PhysicalDeviceOpticalFlowFeaturesNV
zero = Bool -> PhysicalDeviceOpticalFlowFeaturesNV
PhysicalDeviceOpticalFlowFeaturesNV
Bool
forall a. Zero a => a
zero
data PhysicalDeviceOpticalFlowPropertiesNV = PhysicalDeviceOpticalFlowPropertiesNV
{
PhysicalDeviceOpticalFlowPropertiesNV
-> OpticalFlowGridSizeFlagBitsNV
supportedOutputGridSizes :: OpticalFlowGridSizeFlagsNV
,
PhysicalDeviceOpticalFlowPropertiesNV
-> OpticalFlowGridSizeFlagBitsNV
supportedHintGridSizes :: OpticalFlowGridSizeFlagsNV
,
PhysicalDeviceOpticalFlowPropertiesNV -> Bool
hintSupported :: Bool
,
PhysicalDeviceOpticalFlowPropertiesNV -> Bool
costSupported :: Bool
,
PhysicalDeviceOpticalFlowPropertiesNV -> Bool
bidirectionalFlowSupported :: Bool
,
PhysicalDeviceOpticalFlowPropertiesNV -> Bool
globalFlowSupported :: Bool
,
PhysicalDeviceOpticalFlowPropertiesNV -> Flags
minWidth :: Word32
,
PhysicalDeviceOpticalFlowPropertiesNV -> Flags
minHeight :: Word32
,
PhysicalDeviceOpticalFlowPropertiesNV -> Flags
maxWidth :: Word32
,
PhysicalDeviceOpticalFlowPropertiesNV -> Flags
maxHeight :: Word32
,
PhysicalDeviceOpticalFlowPropertiesNV -> Flags
maxNumRegionsOfInterest :: Word32
}
deriving (Typeable, PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> Bool
(PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> Bool)
-> (PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> Bool)
-> Eq PhysicalDeviceOpticalFlowPropertiesNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> Bool
$c/= :: PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> Bool
== :: PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> Bool
$c== :: PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (PhysicalDeviceOpticalFlowPropertiesNV)
#endif
deriving instance Show PhysicalDeviceOpticalFlowPropertiesNV
instance ToCStruct PhysicalDeviceOpticalFlowPropertiesNV where
withCStruct :: forall b.
PhysicalDeviceOpticalFlowPropertiesNV
-> (Ptr PhysicalDeviceOpticalFlowPropertiesNV -> IO b) -> IO b
withCStruct PhysicalDeviceOpticalFlowPropertiesNV
x Ptr PhysicalDeviceOpticalFlowPropertiesNV -> IO b
f = Int -> (Ptr PhysicalDeviceOpticalFlowPropertiesNV -> IO b) -> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
64 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV -> IO b) -> IO b)
-> (Ptr PhysicalDeviceOpticalFlowPropertiesNV -> IO b) -> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr PhysicalDeviceOpticalFlowPropertiesNV
p -> Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceOpticalFlowPropertiesNV
p PhysicalDeviceOpticalFlowPropertiesNV
x (Ptr PhysicalDeviceOpticalFlowPropertiesNV -> IO b
f Ptr PhysicalDeviceOpticalFlowPropertiesNV
p)
pokeCStruct :: forall b.
Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceOpticalFlowPropertiesNV
p PhysicalDeviceOpticalFlowPropertiesNV{Bool
Flags
OpticalFlowGridSizeFlagBitsNV
maxNumRegionsOfInterest :: Flags
maxHeight :: Flags
maxWidth :: Flags
minHeight :: Flags
minWidth :: Flags
globalFlowSupported :: Bool
bidirectionalFlowSupported :: Bool
costSupported :: Bool
hintSupported :: Bool
supportedHintGridSizes :: OpticalFlowGridSizeFlagBitsNV
supportedOutputGridSizes :: OpticalFlowGridSizeFlagBitsNV
$sel:maxNumRegionsOfInterest:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Flags
$sel:maxHeight:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Flags
$sel:maxWidth:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Flags
$sel:minHeight:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Flags
$sel:minWidth:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Flags
$sel:globalFlowSupported:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Bool
$sel:bidirectionalFlowSupported:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Bool
$sel:costSupported:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Bool
$sel:hintSupported:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV -> Bool
$sel:supportedHintGridSizes:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV
-> OpticalFlowGridSizeFlagBitsNV
$sel:supportedOutputGridSizes:PhysicalDeviceOpticalFlowPropertiesNV :: PhysicalDeviceOpticalFlowPropertiesNV
-> OpticalFlowGridSizeFlagBitsNV
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_OPTICAL_FLOW_PROPERTIES_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowGridSizeFlagsNV)) (OpticalFlowGridSizeFlagBitsNV
supportedOutputGridSizes)
Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr OpticalFlowGridSizeFlagsNV)) (OpticalFlowGridSizeFlagBitsNV
supportedHintGridSizes)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
hintSupported))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
costSupported))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
bidirectionalFlowSupported))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
globalFlowSupported))
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr Word32)) (Flags
minWidth)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr Word32)) (Flags
minHeight)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr Word32)) (Flags
maxWidth)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52 :: Ptr Word32)) (Flags
maxHeight)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56 :: Ptr Word32)) (Flags
maxNumRegionsOfInterest)
IO b
f
cStructSize :: Int
cStructSize = Int
64
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b. Ptr PhysicalDeviceOpticalFlowPropertiesNV -> IO b -> IO b
pokeZeroCStruct Ptr PhysicalDeviceOpticalFlowPropertiesNV
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_PHYSICAL_DEVICE_OPTICAL_FLOW_PROPERTIES_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowGridSizeFlagsNV)) (OpticalFlowGridSizeFlagBitsNV
forall a. Zero a => a
zero)
Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr OpticalFlowGridSizeFlagsNV)) (OpticalFlowGridSizeFlagBitsNV
forall a. Zero a => a
zero)
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
Ptr Bool32 -> Bool32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr Bool32)) (Bool -> Bool32
boolToBool32 (Bool
forall a. Zero a => a
zero))
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
IO b
f
instance FromCStruct PhysicalDeviceOpticalFlowPropertiesNV where
peekCStruct :: Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> IO PhysicalDeviceOpticalFlowPropertiesNV
peekCStruct Ptr PhysicalDeviceOpticalFlowPropertiesNV
p = do
OpticalFlowGridSizeFlagBitsNV
supportedOutputGridSizes <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowGridSizeFlagsNV ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowGridSizeFlagsNV))
OpticalFlowGridSizeFlagBitsNV
supportedHintGridSizes <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowGridSizeFlagsNV ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr OpticalFlowGridSizeFlagsNV))
Bool32
hintSupported <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Bool32))
Bool32
costSupported <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Bool32))
Bool32
bidirectionalFlowSupported <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Bool32))
Bool32
globalFlowSupported <- forall a. Storable a => Ptr a -> IO a
peek @Bool32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV -> Int -> Ptr Bool32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr Bool32))
Flags
minWidth <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr Word32))
Flags
minHeight <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr Word32))
Flags
maxWidth <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr Word32))
Flags
maxHeight <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
52 :: Ptr Word32))
Flags
maxNumRegionsOfInterest <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr PhysicalDeviceOpticalFlowPropertiesNV
p Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56 :: Ptr Word32))
PhysicalDeviceOpticalFlowPropertiesNV
-> IO PhysicalDeviceOpticalFlowPropertiesNV
forall (f :: * -> *) a. Applicative f => a -> f a
pure (PhysicalDeviceOpticalFlowPropertiesNV
-> IO PhysicalDeviceOpticalFlowPropertiesNV)
-> PhysicalDeviceOpticalFlowPropertiesNV
-> IO PhysicalDeviceOpticalFlowPropertiesNV
forall a b. (a -> b) -> a -> b
$ OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV
-> Bool
-> Bool
-> Bool
-> Bool
-> Flags
-> Flags
-> Flags
-> Flags
-> Flags
-> PhysicalDeviceOpticalFlowPropertiesNV
PhysicalDeviceOpticalFlowPropertiesNV
OpticalFlowGridSizeFlagBitsNV
supportedOutputGridSizes
OpticalFlowGridSizeFlagBitsNV
supportedHintGridSizes
(Bool32 -> Bool
bool32ToBool Bool32
hintSupported)
(Bool32 -> Bool
bool32ToBool Bool32
costSupported)
(Bool32 -> Bool
bool32ToBool Bool32
bidirectionalFlowSupported)
(Bool32 -> Bool
bool32ToBool Bool32
globalFlowSupported)
Flags
minWidth
Flags
minHeight
Flags
maxWidth
Flags
maxHeight
Flags
maxNumRegionsOfInterest
instance Storable PhysicalDeviceOpticalFlowPropertiesNV where
sizeOf :: PhysicalDeviceOpticalFlowPropertiesNV -> Int
sizeOf ~PhysicalDeviceOpticalFlowPropertiesNV
_ = Int
64
alignment :: PhysicalDeviceOpticalFlowPropertiesNV -> Int
alignment ~PhysicalDeviceOpticalFlowPropertiesNV
_ = Int
8
peek :: Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> IO PhysicalDeviceOpticalFlowPropertiesNV
peek = Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> IO PhysicalDeviceOpticalFlowPropertiesNV
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> IO ()
poke Ptr PhysicalDeviceOpticalFlowPropertiesNV
ptr PhysicalDeviceOpticalFlowPropertiesNV
poked = Ptr PhysicalDeviceOpticalFlowPropertiesNV
-> PhysicalDeviceOpticalFlowPropertiesNV -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr PhysicalDeviceOpticalFlowPropertiesNV
ptr PhysicalDeviceOpticalFlowPropertiesNV
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero PhysicalDeviceOpticalFlowPropertiesNV where
zero :: PhysicalDeviceOpticalFlowPropertiesNV
zero = OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV
-> Bool
-> Bool
-> Bool
-> Bool
-> Flags
-> Flags
-> Flags
-> Flags
-> Flags
-> PhysicalDeviceOpticalFlowPropertiesNV
PhysicalDeviceOpticalFlowPropertiesNV
OpticalFlowGridSizeFlagBitsNV
forall a. Zero a => a
zero
OpticalFlowGridSizeFlagBitsNV
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Bool
forall a. Zero a => a
zero
Flags
forall a. Zero a => a
zero
Flags
forall a. Zero a => a
zero
Flags
forall a. Zero a => a
zero
Flags
forall a. Zero a => a
zero
Flags
forall a. Zero a => a
zero
data OpticalFlowImageFormatInfoNV = OpticalFlowImageFormatInfoNV
{
OpticalFlowImageFormatInfoNV -> OpticalFlowUsageFlagBitsNV
usage :: OpticalFlowUsageFlagsNV }
deriving (Typeable, OpticalFlowImageFormatInfoNV
-> OpticalFlowImageFormatInfoNV -> Bool
(OpticalFlowImageFormatInfoNV
-> OpticalFlowImageFormatInfoNV -> Bool)
-> (OpticalFlowImageFormatInfoNV
-> OpticalFlowImageFormatInfoNV -> Bool)
-> Eq OpticalFlowImageFormatInfoNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowImageFormatInfoNV
-> OpticalFlowImageFormatInfoNV -> Bool
$c/= :: OpticalFlowImageFormatInfoNV
-> OpticalFlowImageFormatInfoNV -> Bool
== :: OpticalFlowImageFormatInfoNV
-> OpticalFlowImageFormatInfoNV -> Bool
$c== :: OpticalFlowImageFormatInfoNV
-> OpticalFlowImageFormatInfoNV -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (OpticalFlowImageFormatInfoNV)
#endif
deriving instance Show OpticalFlowImageFormatInfoNV
instance ToCStruct OpticalFlowImageFormatInfoNV where
withCStruct :: forall b.
OpticalFlowImageFormatInfoNV
-> (("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO b)
-> IO b
withCStruct OpticalFlowImageFormatInfoNV
x ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO b
f = Int
-> (("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO b)
-> IO b)
-> (("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \"pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p -> ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> OpticalFlowImageFormatInfoNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p OpticalFlowImageFormatInfoNV
x (("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO b
f "pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p)
pokeCStruct :: forall b.
("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> OpticalFlowImageFormatInfoNV -> IO b -> IO b
pokeCStruct "pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p OpticalFlowImageFormatInfoNV{OpticalFlowUsageFlagBitsNV
usage :: OpticalFlowUsageFlagBitsNV
$sel:usage:OpticalFlowImageFormatInfoNV :: OpticalFlowImageFormatInfoNV -> OpticalFlowUsageFlagBitsNV
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_IMAGE_FORMAT_INFO_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> Int -> Ptr OpticalFlowUsageFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowUsageFlagsNV)) (OpticalFlowUsageFlagBitsNV
usage)
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO b -> IO b
pokeZeroCStruct "pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_IMAGE_FORMAT_INFO_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> Int -> Ptr OpticalFlowUsageFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowUsageFlagsNV)) (OpticalFlowUsageFlagBitsNV
forall a. Zero a => a
zero)
IO b
f
instance FromCStruct OpticalFlowImageFormatInfoNV where
peekCStruct :: ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO OpticalFlowImageFormatInfoNV
peekCStruct "pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p = do
OpticalFlowUsageFlagBitsNV
usage <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowUsageFlagsNV (("pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
p ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> Int -> Ptr OpticalFlowUsageFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowUsageFlagsNV))
OpticalFlowImageFormatInfoNV -> IO OpticalFlowImageFormatInfoNV
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OpticalFlowImageFormatInfoNV -> IO OpticalFlowImageFormatInfoNV)
-> OpticalFlowImageFormatInfoNV -> IO OpticalFlowImageFormatInfoNV
forall a b. (a -> b) -> a -> b
$ OpticalFlowUsageFlagBitsNV -> OpticalFlowImageFormatInfoNV
OpticalFlowImageFormatInfoNV
OpticalFlowUsageFlagBitsNV
usage
instance Storable OpticalFlowImageFormatInfoNV where
sizeOf :: OpticalFlowImageFormatInfoNV -> Int
sizeOf ~OpticalFlowImageFormatInfoNV
_ = Int
24
alignment :: OpticalFlowImageFormatInfoNV -> Int
alignment ~OpticalFlowImageFormatInfoNV
_ = Int
8
peek :: ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO OpticalFlowImageFormatInfoNV
peek = ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> IO OpticalFlowImageFormatInfoNV
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> OpticalFlowImageFormatInfoNV -> IO ()
poke "pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
ptr OpticalFlowImageFormatInfoNV
poked = ("pOpticalFlowImageFormatInfo"
::: Ptr OpticalFlowImageFormatInfoNV)
-> OpticalFlowImageFormatInfoNV -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pOpticalFlowImageFormatInfo" ::: Ptr OpticalFlowImageFormatInfoNV
ptr OpticalFlowImageFormatInfoNV
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero OpticalFlowImageFormatInfoNV where
zero :: OpticalFlowImageFormatInfoNV
zero = OpticalFlowUsageFlagBitsNV -> OpticalFlowImageFormatInfoNV
OpticalFlowImageFormatInfoNV
OpticalFlowUsageFlagBitsNV
forall a. Zero a => a
zero
data OpticalFlowImageFormatPropertiesNV = OpticalFlowImageFormatPropertiesNV
{
OpticalFlowImageFormatPropertiesNV -> Format
format :: Format }
deriving (Typeable, OpticalFlowImageFormatPropertiesNV
-> OpticalFlowImageFormatPropertiesNV -> Bool
(OpticalFlowImageFormatPropertiesNV
-> OpticalFlowImageFormatPropertiesNV -> Bool)
-> (OpticalFlowImageFormatPropertiesNV
-> OpticalFlowImageFormatPropertiesNV -> Bool)
-> Eq OpticalFlowImageFormatPropertiesNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowImageFormatPropertiesNV
-> OpticalFlowImageFormatPropertiesNV -> Bool
$c/= :: OpticalFlowImageFormatPropertiesNV
-> OpticalFlowImageFormatPropertiesNV -> Bool
== :: OpticalFlowImageFormatPropertiesNV
-> OpticalFlowImageFormatPropertiesNV -> Bool
$c== :: OpticalFlowImageFormatPropertiesNV
-> OpticalFlowImageFormatPropertiesNV -> Bool
Eq)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (OpticalFlowImageFormatPropertiesNV)
#endif
deriving instance Show OpticalFlowImageFormatPropertiesNV
instance ToCStruct OpticalFlowImageFormatPropertiesNV where
withCStruct :: forall b.
OpticalFlowImageFormatPropertiesNV
-> (("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO b)
-> IO b
withCStruct OpticalFlowImageFormatPropertiesNV
x ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO b
f = Int
-> (("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
24 ((("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO b)
-> IO b)
-> (("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \"pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p -> ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> OpticalFlowImageFormatPropertiesNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p OpticalFlowImageFormatPropertiesNV
x (("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO b
f "pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p)
pokeCStruct :: forall b.
("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> OpticalFlowImageFormatPropertiesNV -> IO b -> IO b
pokeCStruct "pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p OpticalFlowImageFormatPropertiesNV{Format
format :: Format
$sel:format:OpticalFlowImageFormatPropertiesNV :: OpticalFlowImageFormatPropertiesNV -> Format
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_IMAGE_FORMAT_PROPERTIES_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Format -> Format -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Format)) (Format
format)
IO b
f
cStructSize :: Int
cStructSize = Int
24
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO b -> IO b
pokeZeroCStruct "pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_IMAGE_FORMAT_PROPERTIES_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
Ptr Format -> Format -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Format)) (Format
forall a. Zero a => a
zero)
IO b
f
instance FromCStruct OpticalFlowImageFormatPropertiesNV where
peekCStruct :: ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO OpticalFlowImageFormatPropertiesNV
peekCStruct "pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p = do
Format
format <- forall a. Storable a => Ptr a -> IO a
peek @Format (("pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
p ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Format))
OpticalFlowImageFormatPropertiesNV
-> IO OpticalFlowImageFormatPropertiesNV
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OpticalFlowImageFormatPropertiesNV
-> IO OpticalFlowImageFormatPropertiesNV)
-> OpticalFlowImageFormatPropertiesNV
-> IO OpticalFlowImageFormatPropertiesNV
forall a b. (a -> b) -> a -> b
$ Format -> OpticalFlowImageFormatPropertiesNV
OpticalFlowImageFormatPropertiesNV
Format
format
instance Storable OpticalFlowImageFormatPropertiesNV where
sizeOf :: OpticalFlowImageFormatPropertiesNV -> Int
sizeOf ~OpticalFlowImageFormatPropertiesNV
_ = Int
24
alignment :: OpticalFlowImageFormatPropertiesNV -> Int
alignment ~OpticalFlowImageFormatPropertiesNV
_ = Int
8
peek :: ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO OpticalFlowImageFormatPropertiesNV
peek = ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> IO OpticalFlowImageFormatPropertiesNV
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> OpticalFlowImageFormatPropertiesNV -> IO ()
poke "pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
ptr OpticalFlowImageFormatPropertiesNV
poked = ("pImageFormatProperties"
::: Ptr OpticalFlowImageFormatPropertiesNV)
-> OpticalFlowImageFormatPropertiesNV -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pImageFormatProperties" ::: Ptr OpticalFlowImageFormatPropertiesNV
ptr OpticalFlowImageFormatPropertiesNV
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero OpticalFlowImageFormatPropertiesNV where
zero :: OpticalFlowImageFormatPropertiesNV
zero = Format -> OpticalFlowImageFormatPropertiesNV
OpticalFlowImageFormatPropertiesNV
Format
forall a. Zero a => a
zero
data OpticalFlowSessionCreateInfoNV (es :: [Type]) = OpticalFlowSessionCreateInfoNV
{
forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Chain es
next :: Chain es
,
forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
width :: Word32
,
forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
height :: Word32
,
forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
imageFormat :: Format
,
forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
flowVectorFormat :: Format
,
forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
costFormat :: Format
,
forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
outputGridSize :: OpticalFlowGridSizeFlagsNV
,
forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
hintGridSize :: OpticalFlowGridSizeFlagsNV
,
forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowPerformanceLevelNV
performanceLevel :: OpticalFlowPerformanceLevelNV
,
forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es
-> OpticalFlowSessionCreateFlagBitsNV
flags :: OpticalFlowSessionCreateFlagsNV
}
deriving (Typeable)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (OpticalFlowSessionCreateInfoNV (es :: [Type]))
#endif
deriving instance Show (Chain es) => Show (OpticalFlowSessionCreateInfoNV es)
instance Extensible OpticalFlowSessionCreateInfoNV where
extensibleTypeName :: String
extensibleTypeName = String
"OpticalFlowSessionCreateInfoNV"
setNext :: forall (ds :: [*]) (es :: [*]).
OpticalFlowSessionCreateInfoNV ds
-> Chain es -> OpticalFlowSessionCreateInfoNV es
setNext OpticalFlowSessionCreateInfoNV{Flags
Chain ds
Format
OpticalFlowSessionCreateFlagBitsNV
OpticalFlowPerformanceLevelNV
OpticalFlowGridSizeFlagBitsNV
flags :: OpticalFlowSessionCreateFlagBitsNV
performanceLevel :: OpticalFlowPerformanceLevelNV
hintGridSize :: OpticalFlowGridSizeFlagBitsNV
outputGridSize :: OpticalFlowGridSizeFlagBitsNV
costFormat :: Format
flowVectorFormat :: Format
imageFormat :: Format
height :: Flags
width :: Flags
next :: Chain ds
$sel:flags:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es
-> OpticalFlowSessionCreateFlagBitsNV
$sel:performanceLevel:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowPerformanceLevelNV
$sel:hintGridSize:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
$sel:outputGridSize:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
$sel:costFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:flowVectorFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:imageFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:height:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
$sel:width:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
$sel:next:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Chain es
..} Chain es
next' = OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
Chain es
-> Flags
-> Flags
-> Format
-> Format
-> Format
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowPerformanceLevelNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateInfoNV es
OpticalFlowSessionCreateInfoNV{$sel:next:OpticalFlowSessionCreateInfoNV :: Chain es
next = Chain es
next', Flags
Format
OpticalFlowSessionCreateFlagBitsNV
OpticalFlowPerformanceLevelNV
OpticalFlowGridSizeFlagBitsNV
flags :: OpticalFlowSessionCreateFlagBitsNV
performanceLevel :: OpticalFlowPerformanceLevelNV
hintGridSize :: OpticalFlowGridSizeFlagBitsNV
outputGridSize :: OpticalFlowGridSizeFlagBitsNV
costFormat :: Format
flowVectorFormat :: Format
imageFormat :: Format
height :: Flags
width :: Flags
$sel:flags:OpticalFlowSessionCreateInfoNV :: OpticalFlowSessionCreateFlagBitsNV
$sel:performanceLevel:OpticalFlowSessionCreateInfoNV :: OpticalFlowPerformanceLevelNV
$sel:hintGridSize:OpticalFlowSessionCreateInfoNV :: OpticalFlowGridSizeFlagBitsNV
$sel:outputGridSize:OpticalFlowSessionCreateInfoNV :: OpticalFlowGridSizeFlagBitsNV
$sel:costFormat:OpticalFlowSessionCreateInfoNV :: Format
$sel:flowVectorFormat:OpticalFlowSessionCreateInfoNV :: Format
$sel:imageFormat:OpticalFlowSessionCreateInfoNV :: Format
$sel:height:OpticalFlowSessionCreateInfoNV :: Flags
$sel:width:OpticalFlowSessionCreateInfoNV :: Flags
..}
getNext :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Chain es
getNext OpticalFlowSessionCreateInfoNV{Flags
Chain es
Format
OpticalFlowSessionCreateFlagBitsNV
OpticalFlowPerformanceLevelNV
OpticalFlowGridSizeFlagBitsNV
flags :: OpticalFlowSessionCreateFlagBitsNV
performanceLevel :: OpticalFlowPerformanceLevelNV
hintGridSize :: OpticalFlowGridSizeFlagBitsNV
outputGridSize :: OpticalFlowGridSizeFlagBitsNV
costFormat :: Format
flowVectorFormat :: Format
imageFormat :: Format
height :: Flags
width :: Flags
next :: Chain es
$sel:flags:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es
-> OpticalFlowSessionCreateFlagBitsNV
$sel:performanceLevel:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowPerformanceLevelNV
$sel:hintGridSize:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
$sel:outputGridSize:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
$sel:costFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:flowVectorFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:imageFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:height:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
$sel:width:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
$sel:next:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Chain es
..} = Chain es
next
extends :: forall e b proxy. Typeable e => proxy e -> (Extends OpticalFlowSessionCreateInfoNV e => b) -> Maybe b
extends :: forall e b (proxy :: * -> *).
Typeable e =>
proxy e
-> (Extends OpticalFlowSessionCreateInfoNV e => b) -> Maybe b
extends proxy e
_ Extends OpticalFlowSessionCreateInfoNV e => b
f
| Just e :~: OpticalFlowSessionCreatePrivateDataInfoNV
Refl <- forall {k} (a :: k) (b :: k).
(Typeable a, Typeable b) =>
Maybe (a :~: b)
forall a b. (Typeable a, Typeable b) => Maybe (a :~: b)
eqT @e @OpticalFlowSessionCreatePrivateDataInfoNV = b -> Maybe b
forall a. a -> Maybe a
Just b
Extends OpticalFlowSessionCreateInfoNV e => b
f
| Bool
otherwise = Maybe b
forall a. Maybe a
Nothing
instance ( Extendss OpticalFlowSessionCreateInfoNV es
, PokeChain es ) => ToCStruct (OpticalFlowSessionCreateInfoNV es) where
withCStruct :: forall b.
OpticalFlowSessionCreateInfoNV es
-> (Ptr (OpticalFlowSessionCreateInfoNV es) -> IO b) -> IO b
withCStruct OpticalFlowSessionCreateInfoNV es
x Ptr (OpticalFlowSessionCreateInfoNV es) -> IO b
f = Int -> (Ptr (OpticalFlowSessionCreateInfoNV es) -> IO b) -> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
56 ((Ptr (OpticalFlowSessionCreateInfoNV es) -> IO b) -> IO b)
-> (Ptr (OpticalFlowSessionCreateInfoNV es) -> IO b) -> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr (OpticalFlowSessionCreateInfoNV es)
p -> Ptr (OpticalFlowSessionCreateInfoNV es)
-> OpticalFlowSessionCreateInfoNV es -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr (OpticalFlowSessionCreateInfoNV es)
p OpticalFlowSessionCreateInfoNV es
x (Ptr (OpticalFlowSessionCreateInfoNV es) -> IO b
f Ptr (OpticalFlowSessionCreateInfoNV es)
p)
pokeCStruct :: forall b.
Ptr (OpticalFlowSessionCreateInfoNV es)
-> OpticalFlowSessionCreateInfoNV es -> IO b -> IO b
pokeCStruct Ptr (OpticalFlowSessionCreateInfoNV es)
p OpticalFlowSessionCreateInfoNV{Flags
Chain es
Format
OpticalFlowSessionCreateFlagBitsNV
OpticalFlowPerformanceLevelNV
OpticalFlowGridSizeFlagBitsNV
flags :: OpticalFlowSessionCreateFlagBitsNV
performanceLevel :: OpticalFlowPerformanceLevelNV
hintGridSize :: OpticalFlowGridSizeFlagBitsNV
outputGridSize :: OpticalFlowGridSizeFlagBitsNV
costFormat :: Format
flowVectorFormat :: Format
imageFormat :: Format
height :: Flags
width :: Flags
next :: Chain es
$sel:flags:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es
-> OpticalFlowSessionCreateFlagBitsNV
$sel:performanceLevel:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowPerformanceLevelNV
$sel:hintGridSize:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
$sel:outputGridSize:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]).
OpticalFlowSessionCreateInfoNV es -> OpticalFlowGridSizeFlagBitsNV
$sel:costFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:flowVectorFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:imageFormat:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Format
$sel:height:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
$sel:width:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Flags
$sel:next:OpticalFlowSessionCreateInfoNV :: forall (es :: [*]). OpticalFlowSessionCreateInfoNV es -> Chain es
..} IO b
f = ContT b IO b -> IO b
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT b IO b -> IO b) -> ContT b IO b -> IO b
forall a b. (a -> b) -> a -> b
$ do
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_SESSION_CREATE_INFO_NV)
Ptr ()
pNext'' <- (Ptr (Chain es) -> Ptr ())
-> ContT b IO (Ptr (Chain es)) -> ContT b IO (Ptr ())
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Ptr (Chain es) -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr (ContT b IO (Ptr (Chain es)) -> ContT b IO (Ptr ()))
-> (((Ptr (Chain es) -> IO b) -> IO b)
-> ContT b IO (Ptr (Chain es)))
-> ((Ptr (Chain es) -> IO b) -> IO b)
-> ContT b IO (Ptr ())
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ((Ptr (Chain es) -> IO b) -> IO b) -> ContT b IO (Ptr (Chain es))
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((Ptr (Chain es) -> IO b) -> IO b) -> ContT b IO (Ptr ()))
-> ((Ptr (Chain es) -> IO b) -> IO b) -> ContT b IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ Chain es -> (Ptr (Chain es) -> IO b) -> IO b
forall (es :: [*]) a.
PokeChain es =>
Chain es -> (Ptr (Chain es) -> IO a) -> IO a
withChain (Chain es
next)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) Ptr ()
pNext''
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ ("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32)) (Flags
width)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ ("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32)) (Flags
height)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Format -> Format -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Format)) (Format
imageFormat)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Format -> Format -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Format)) (Format
flowVectorFormat)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Format -> Format -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Format)) (Format
costFormat)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr OpticalFlowGridSizeFlagsNV)) (OpticalFlowGridSizeFlagBitsNV
outputGridSize)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr OpticalFlowGridSizeFlagsNV)) (OpticalFlowGridSizeFlagBitsNV
hintGridSize)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowPerformanceLevelNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr OpticalFlowPerformanceLevelNV)) (OpticalFlowPerformanceLevelNV
performanceLevel)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowSessionCreateFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr OpticalFlowSessionCreateFlagsNV)) (OpticalFlowSessionCreateFlagBitsNV
flags)
IO b -> ContT b IO b
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO b -> ContT b IO b) -> IO b -> ContT b IO b
forall a b. (a -> b) -> a -> b
$ IO b
f
cStructSize :: Int
cStructSize = Int
56
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b. Ptr (OpticalFlowSessionCreateInfoNV es) -> IO b -> IO b
pokeZeroCStruct Ptr (OpticalFlowSessionCreateInfoNV es)
p IO b
f = ContT b IO b -> IO b
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT b IO b -> IO b) -> ContT b IO b -> IO b
forall a b. (a -> b) -> a -> b
$ do
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_SESSION_CREATE_INFO_NV)
Ptr ()
pNext' <- (Ptr (Chain es) -> Ptr ())
-> ContT b IO (Ptr (Chain es)) -> ContT b IO (Ptr ())
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
fmap Ptr (Chain es) -> Ptr ()
forall a b. Ptr a -> Ptr b
castPtr (ContT b IO (Ptr (Chain es)) -> ContT b IO (Ptr ()))
-> (((Ptr (Chain es) -> IO b) -> IO b)
-> ContT b IO (Ptr (Chain es)))
-> ((Ptr (Chain es) -> IO b) -> IO b)
-> ContT b IO (Ptr ())
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ((Ptr (Chain es) -> IO b) -> IO b) -> ContT b IO (Ptr (Chain es))
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((Ptr (Chain es) -> IO b) -> IO b) -> ContT b IO (Ptr ()))
-> ((Ptr (Chain es) -> IO b) -> IO b) -> ContT b IO (Ptr ())
forall a b. (a -> b) -> a -> b
$ forall (es :: [*]) a.
PokeChain es =>
(Ptr (Chain es) -> IO a) -> IO a
withZeroChain @es
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) Ptr ()
pNext'
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ ("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ ("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Format -> Format -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Format)) (Format
forall a. Zero a => a
zero)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr Format -> Format -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Format)) (Format
forall a. Zero a => a
zero)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr OpticalFlowGridSizeFlagsNV)) (OpticalFlowGridSizeFlagBitsNV
forall a. Zero a => a
zero)
IO b -> ContT b IO b
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO b -> ContT b IO b) -> IO b -> ContT b IO b
forall a b. (a -> b) -> a -> b
$ IO b
f
instance ( Extendss OpticalFlowSessionCreateInfoNV es
, PeekChain es ) => FromCStruct (OpticalFlowSessionCreateInfoNV es) where
peekCStruct :: Ptr (OpticalFlowSessionCreateInfoNV es)
-> IO (OpticalFlowSessionCreateInfoNV es)
peekCStruct Ptr (OpticalFlowSessionCreateInfoNV es)
p = do
Ptr ()
pNext <- forall a. Storable a => Ptr a -> IO a
peek @(Ptr ()) ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ())))
Chain es
next <- Ptr (Chain es) -> IO (Chain es)
forall (es :: [*]). PeekChain es => Ptr (Chain es) -> IO (Chain es)
peekChain (Ptr () -> Ptr (Chain es)
forall a b. Ptr a -> Ptr b
castPtr Ptr ()
pNext)
Flags
width <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32))
Flags
height <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32))
Format
imageFormat <- forall a. Storable a => Ptr a -> IO a
peek @Format ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr Format))
Format
flowVectorFormat <- forall a. Storable a => Ptr a -> IO a
peek @Format ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
28 :: Ptr Format))
Format
costFormat <- forall a. Storable a => Ptr a -> IO a
peek @Format ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es) -> Int -> Ptr Format
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32 :: Ptr Format))
OpticalFlowGridSizeFlagBitsNV
outputGridSize <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowGridSizeFlagsNV ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
36 :: Ptr OpticalFlowGridSizeFlagsNV))
OpticalFlowGridSizeFlagBitsNV
hintGridSize <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowGridSizeFlagsNV ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowGridSizeFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40 :: Ptr OpticalFlowGridSizeFlagsNV))
OpticalFlowPerformanceLevelNV
performanceLevel <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowPerformanceLevelNV ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowPerformanceLevelNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
44 :: Ptr OpticalFlowPerformanceLevelNV))
OpticalFlowSessionCreateFlagBitsNV
flags <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowSessionCreateFlagsNV ((Ptr (OpticalFlowSessionCreateInfoNV es)
p Ptr (OpticalFlowSessionCreateInfoNV es)
-> Int -> Ptr OpticalFlowSessionCreateFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48 :: Ptr OpticalFlowSessionCreateFlagsNV))
OpticalFlowSessionCreateInfoNV es
-> IO (OpticalFlowSessionCreateInfoNV es)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OpticalFlowSessionCreateInfoNV es
-> IO (OpticalFlowSessionCreateInfoNV es))
-> OpticalFlowSessionCreateInfoNV es
-> IO (OpticalFlowSessionCreateInfoNV es)
forall a b. (a -> b) -> a -> b
$ Chain es
-> Flags
-> Flags
-> Format
-> Format
-> Format
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowPerformanceLevelNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateInfoNV es
forall (es :: [*]).
Chain es
-> Flags
-> Flags
-> Format
-> Format
-> Format
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowPerformanceLevelNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateInfoNV es
OpticalFlowSessionCreateInfoNV
Chain es
next
Flags
width
Flags
height
Format
imageFormat
Format
flowVectorFormat
Format
costFormat
OpticalFlowGridSizeFlagBitsNV
outputGridSize
OpticalFlowGridSizeFlagBitsNV
hintGridSize
OpticalFlowPerformanceLevelNV
performanceLevel
OpticalFlowSessionCreateFlagBitsNV
flags
instance es ~ '[] => Zero (OpticalFlowSessionCreateInfoNV es) where
zero :: OpticalFlowSessionCreateInfoNV es
zero = Chain es
-> Flags
-> Flags
-> Format
-> Format
-> Format
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowPerformanceLevelNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateInfoNV es
forall (es :: [*]).
Chain es
-> Flags
-> Flags
-> Format
-> Format
-> Format
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowPerformanceLevelNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateInfoNV es
OpticalFlowSessionCreateInfoNV
()
Flags
forall a. Zero a => a
zero
Flags
forall a. Zero a => a
zero
Format
forall a. Zero a => a
zero
Format
forall a. Zero a => a
zero
Format
forall a. Zero a => a
zero
OpticalFlowGridSizeFlagBitsNV
forall a. Zero a => a
zero
OpticalFlowGridSizeFlagBitsNV
forall a. Zero a => a
zero
OpticalFlowPerformanceLevelNV
forall a. Zero a => a
zero
OpticalFlowSessionCreateFlagBitsNV
forall a. Zero a => a
zero
data OpticalFlowSessionCreatePrivateDataInfoNV = OpticalFlowSessionCreatePrivateDataInfoNV
{
OpticalFlowSessionCreatePrivateDataInfoNV -> Flags
id' :: Word32
,
OpticalFlowSessionCreatePrivateDataInfoNV -> Flags
size :: Word32
,
OpticalFlowSessionCreatePrivateDataInfoNV -> Ptr ()
privateData :: Ptr ()
}
deriving (Typeable)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (OpticalFlowSessionCreatePrivateDataInfoNV)
#endif
deriving instance Show OpticalFlowSessionCreatePrivateDataInfoNV
instance ToCStruct OpticalFlowSessionCreatePrivateDataInfoNV where
withCStruct :: forall b.
OpticalFlowSessionCreatePrivateDataInfoNV
-> (Ptr OpticalFlowSessionCreatePrivateDataInfoNV -> IO b) -> IO b
withCStruct OpticalFlowSessionCreatePrivateDataInfoNV
x Ptr OpticalFlowSessionCreatePrivateDataInfoNV -> IO b
f = Int
-> (Ptr OpticalFlowSessionCreatePrivateDataInfoNV -> IO b) -> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
32 ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV -> IO b) -> IO b)
-> (Ptr OpticalFlowSessionCreatePrivateDataInfoNV -> IO b) -> IO b
forall a b. (a -> b) -> a -> b
$ \Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p -> Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> OpticalFlowSessionCreatePrivateDataInfoNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p OpticalFlowSessionCreatePrivateDataInfoNV
x (Ptr OpticalFlowSessionCreatePrivateDataInfoNV -> IO b
f Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p)
pokeCStruct :: forall b.
Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> OpticalFlowSessionCreatePrivateDataInfoNV -> IO b -> IO b
pokeCStruct Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p OpticalFlowSessionCreatePrivateDataInfoNV{Flags
Ptr ()
privateData :: Ptr ()
size :: Flags
id' :: Flags
$sel:privateData:OpticalFlowSessionCreatePrivateDataInfoNV :: OpticalFlowSessionCreatePrivateDataInfoNV -> Ptr ()
$sel:size:OpticalFlowSessionCreatePrivateDataInfoNV :: OpticalFlowSessionCreatePrivateDataInfoNV -> Flags
$sel:id':OpticalFlowSessionCreatePrivateDataInfoNV :: OpticalFlowSessionCreatePrivateDataInfoNV -> Flags
..} IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_SESSION_CREATE_PRIVATE_DATA_INFO_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32)) (Flags
id')
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32)) (Flags
size)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr (Ptr ()))) (Ptr ()
privateData)
IO b
f
cStructSize :: Int
cStructSize = Int
32
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
Ptr OpticalFlowSessionCreatePrivateDataInfoNV -> IO b -> IO b
pokeZeroCStruct Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_SESSION_CREATE_PRIVATE_DATA_INFO_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32)) (Flags
forall a. Zero a => a
zero)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr (Ptr ()))) (Ptr ()
forall a. Zero a => a
zero)
IO b
f
instance FromCStruct OpticalFlowSessionCreatePrivateDataInfoNV where
peekCStruct :: Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> IO OpticalFlowSessionCreatePrivateDataInfoNV
peekCStruct Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p = do
Flags
id' <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr Word32))
Flags
size <- forall a. Storable a => Ptr a -> IO a
peek @Word32 ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32))
Ptr ()
pPrivateData <- forall a. Storable a => Ptr a -> IO a
peek @(Ptr ()) ((Ptr OpticalFlowSessionCreatePrivateDataInfoNV
p Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr (Ptr ())))
OpticalFlowSessionCreatePrivateDataInfoNV
-> IO OpticalFlowSessionCreatePrivateDataInfoNV
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OpticalFlowSessionCreatePrivateDataInfoNV
-> IO OpticalFlowSessionCreatePrivateDataInfoNV)
-> OpticalFlowSessionCreatePrivateDataInfoNV
-> IO OpticalFlowSessionCreatePrivateDataInfoNV
forall a b. (a -> b) -> a -> b
$ Flags
-> Flags -> Ptr () -> OpticalFlowSessionCreatePrivateDataInfoNV
OpticalFlowSessionCreatePrivateDataInfoNV
Flags
id' Flags
size Ptr ()
pPrivateData
instance Storable OpticalFlowSessionCreatePrivateDataInfoNV where
sizeOf :: OpticalFlowSessionCreatePrivateDataInfoNV -> Int
sizeOf ~OpticalFlowSessionCreatePrivateDataInfoNV
_ = Int
32
alignment :: OpticalFlowSessionCreatePrivateDataInfoNV -> Int
alignment ~OpticalFlowSessionCreatePrivateDataInfoNV
_ = Int
8
peek :: Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> IO OpticalFlowSessionCreatePrivateDataInfoNV
peek = Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> IO OpticalFlowSessionCreatePrivateDataInfoNV
forall a. FromCStruct a => Ptr a -> IO a
peekCStruct
poke :: Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> OpticalFlowSessionCreatePrivateDataInfoNV -> IO ()
poke Ptr OpticalFlowSessionCreatePrivateDataInfoNV
ptr OpticalFlowSessionCreatePrivateDataInfoNV
poked = Ptr OpticalFlowSessionCreatePrivateDataInfoNV
-> OpticalFlowSessionCreatePrivateDataInfoNV -> IO () -> IO ()
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct Ptr OpticalFlowSessionCreatePrivateDataInfoNV
ptr OpticalFlowSessionCreatePrivateDataInfoNV
poked (() -> IO ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ())
instance Zero OpticalFlowSessionCreatePrivateDataInfoNV where
zero :: OpticalFlowSessionCreatePrivateDataInfoNV
zero = Flags
-> Flags -> Ptr () -> OpticalFlowSessionCreatePrivateDataInfoNV
OpticalFlowSessionCreatePrivateDataInfoNV
Flags
forall a. Zero a => a
zero
Flags
forall a. Zero a => a
zero
Ptr ()
forall a. Zero a => a
zero
data OpticalFlowExecuteInfoNV = OpticalFlowExecuteInfoNV
{
OpticalFlowExecuteInfoNV -> OpticalFlowExecuteFlagBitsNV
flags :: OpticalFlowExecuteFlagsNV
,
OpticalFlowExecuteInfoNV -> Vector Rect2D
regions :: Vector Rect2D
}
deriving (Typeable)
#if defined(GENERIC_INSTANCES)
deriving instance Generic (OpticalFlowExecuteInfoNV)
#endif
deriving instance Show OpticalFlowExecuteInfoNV
instance ToCStruct OpticalFlowExecuteInfoNV where
withCStruct :: forall b.
OpticalFlowExecuteInfoNV
-> (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO b)
-> IO b
withCStruct OpticalFlowExecuteInfoNV
x ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO b
f = Int
-> (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO b)
-> IO b
forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes Int
32 ((("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO b)
-> IO b)
-> (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO b)
-> IO b
forall a b. (a -> b) -> a -> b
$ \"pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p -> ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> OpticalFlowExecuteInfoNV -> IO b -> IO b
forall a b. ToCStruct a => Ptr a -> a -> IO b -> IO b
pokeCStruct "pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p OpticalFlowExecuteInfoNV
x (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO b
f "pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p)
pokeCStruct :: forall b.
("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> OpticalFlowExecuteInfoNV -> IO b -> IO b
pokeCStruct "pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p OpticalFlowExecuteInfoNV{Vector Rect2D
OpticalFlowExecuteFlagBitsNV
regions :: Vector Rect2D
flags :: OpticalFlowExecuteFlagBitsNV
$sel:regions:OpticalFlowExecuteInfoNV :: OpticalFlowExecuteInfoNV -> Vector Rect2D
$sel:flags:OpticalFlowExecuteInfoNV :: OpticalFlowExecuteInfoNV -> OpticalFlowExecuteFlagBitsNV
..} IO b
f = ContT b IO b -> IO b
forall (m :: * -> *) r. Monad m => ContT r m r -> m r
evalContT (ContT b IO b -> IO b) -> ContT b IO b -> IO b
forall a b. (a -> b) -> a -> b
$ do
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_EXECUTE_INFO_NV)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr OpticalFlowExecuteFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowExecuteFlagsNV)) (OpticalFlowExecuteFlagBitsNV
flags)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ ("pFormatCount" ::: Ptr Flags) -> Flags -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32)) ((Int -> Flags
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Vector Rect2D -> Int
forall a. Vector a -> Int
Data.Vector.length (Vector Rect2D -> Int) -> Vector Rect2D -> Int
forall a b. (a -> b) -> a -> b
$ (Vector Rect2D
regions)) :: Word32))
Ptr Rect2D
pPRegions' <- ((Ptr Rect2D -> IO b) -> IO b) -> ContT b IO (Ptr Rect2D)
forall {k} (r :: k) (m :: k -> *) a.
((a -> m r) -> m r) -> ContT r m a
ContT (((Ptr Rect2D -> IO b) -> IO b) -> ContT b IO (Ptr Rect2D))
-> ((Ptr Rect2D -> IO b) -> IO b) -> ContT b IO (Ptr Rect2D)
forall a b. (a -> b) -> a -> b
$ forall a b. Int -> (Ptr a -> IO b) -> IO b
allocaBytes @Rect2D ((Vector Rect2D -> Int
forall a. Vector a -> Int
Data.Vector.length (Vector Rect2D
regions)) Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
16)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ (Int -> Rect2D -> IO ()) -> Vector Rect2D -> IO ()
forall (m :: * -> *) a b.
Monad m =>
(Int -> a -> m b) -> Vector a -> m ()
Data.Vector.imapM_ (\Int
i Rect2D
e -> Ptr Rect2D -> Rect2D -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr Rect2D
pPRegions' Ptr Rect2D -> Int -> Ptr Rect2D
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` (Int
16 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr Rect2D) (Rect2D
e)) (Vector Rect2D
regions)
IO () -> ContT b IO ()
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO () -> ContT b IO ()) -> IO () -> ContT b IO ()
forall a b. (a -> b) -> a -> b
$ Ptr (Ptr Rect2D) -> Ptr Rect2D -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr (Ptr Rect2D)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr (Ptr Rect2D))) (Ptr Rect2D
pPRegions')
IO b -> ContT b IO b
forall (t :: (* -> *) -> * -> *) (m :: * -> *) a.
(MonadTrans t, Monad m) =>
m a -> t m a
lift (IO b -> ContT b IO b) -> IO b -> ContT b IO b
forall a b. (a -> b) -> a -> b
$ IO b
f
cStructSize :: Int
cStructSize = Int
32
cStructAlignment :: Int
cStructAlignment = Int
8
pokeZeroCStruct :: forall b.
("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV) -> IO b -> IO b
pokeZeroCStruct "pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p IO b
f = do
Ptr StructureType -> StructureType -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr StructureType
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0 :: Ptr StructureType)) (StructureType
STRUCTURE_TYPE_OPTICAL_FLOW_EXECUTE_INFO_NV)
Ptr (Ptr ()) -> Ptr () -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr (Ptr ())
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8 :: Ptr (Ptr ()))) (Ptr ()
forall a. Ptr a
nullPtr)
IO b
f
instance FromCStruct OpticalFlowExecuteInfoNV where
peekCStruct :: ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> IO OpticalFlowExecuteInfoNV
peekCStruct "pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p = do
OpticalFlowExecuteFlagBitsNV
flags <- forall a. Storable a => Ptr a -> IO a
peek @OpticalFlowExecuteFlagsNV (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr OpticalFlowExecuteFlagBitsNV
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16 :: Ptr OpticalFlowExecuteFlagsNV))
Flags
regionCount <- forall a. Storable a => Ptr a -> IO a
peek @Word32 (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> "pFormatCount" ::: Ptr Flags
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
20 :: Ptr Word32))
Ptr Rect2D
pRegions <- forall a. Storable a => Ptr a -> IO a
peek @(Ptr Rect2D) (("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV
p ("pExecuteInfo" ::: Ptr OpticalFlowExecuteInfoNV)
-> Int -> Ptr (Ptr Rect2D)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24 :: Ptr (Ptr Rect2D)))
Vector Rect2D
pRegions' <- Int -> (Int -> IO Rect2D) -> IO (Vector Rect2D)
forall (m :: * -> *) a.
Monad m =>
Int -> (Int -> m a) -> m (Vector a)
generateM (Flags -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral Flags
regionCount) (\Int
i -> forall a. FromCStruct a => Ptr a -> IO a
peekCStruct @Rect2D ((Ptr Rect2D
pRegions Ptr Rect2D -> Int -> Ptr Rect2D
forall a. Ptr a -> Int -> Ptr a
`advancePtrBytes` (Int
16 Int -> Int -> Int
forall a. Num a => a -> a -> a
* (Int
i)) :: Ptr Rect2D)))
OpticalFlowExecuteInfoNV -> IO OpticalFlowExecuteInfoNV
forall (f :: * -> *) a. Applicative f => a -> f a
pure (OpticalFlowExecuteInfoNV -> IO OpticalFlowExecuteInfoNV)
-> OpticalFlowExecuteInfoNV -> IO OpticalFlowExecuteInfoNV
forall a b. (a -> b) -> a -> b
$ OpticalFlowExecuteFlagBitsNV
-> Vector Rect2D -> OpticalFlowExecuteInfoNV
OpticalFlowExecuteInfoNV
OpticalFlowExecuteFlagBitsNV
flags Vector Rect2D
pRegions'
instance Zero OpticalFlowExecuteInfoNV where
zero :: OpticalFlowExecuteInfoNV
zero = OpticalFlowExecuteFlagBitsNV
-> Vector Rect2D -> OpticalFlowExecuteInfoNV
OpticalFlowExecuteInfoNV
OpticalFlowExecuteFlagBitsNV
forall a. Zero a => a
zero
Vector Rect2D
forall a. Monoid a => a
mempty
type OpticalFlowGridSizeFlagsNV = OpticalFlowGridSizeFlagBitsNV
newtype OpticalFlowGridSizeFlagBitsNV = OpticalFlowGridSizeFlagBitsNV Flags
deriving newtype (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
(OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool)
-> Eq OpticalFlowGridSizeFlagBitsNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
$c/= :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
== :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
$c== :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
Eq, Eq OpticalFlowGridSizeFlagBitsNV
Eq OpticalFlowGridSizeFlagBitsNV
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Ordering)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV)
-> Ord OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Ordering
OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
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 :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
$cmin :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
max :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
$cmax :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
>= :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
$c>= :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
> :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
$c> :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
<= :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
$c<= :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
< :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
$c< :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Bool
compare :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Ordering
$ccompare :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> Ordering
Ord, Ptr OpticalFlowGridSizeFlagBitsNV
-> IO OpticalFlowGridSizeFlagBitsNV
Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> IO OpticalFlowGridSizeFlagBitsNV
Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV -> IO ()
Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
OpticalFlowGridSizeFlagBitsNV -> Int
(OpticalFlowGridSizeFlagBitsNV -> Int)
-> (OpticalFlowGridSizeFlagBitsNV -> Int)
-> (Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> IO OpticalFlowGridSizeFlagBitsNV)
-> (Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV -> IO ())
-> (forall b. Ptr b -> Int -> IO OpticalFlowGridSizeFlagBitsNV)
-> (forall b.
Ptr b -> Int -> OpticalFlowGridSizeFlagBitsNV -> IO ())
-> (Ptr OpticalFlowGridSizeFlagBitsNV
-> IO OpticalFlowGridSizeFlagBitsNV)
-> (Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ())
-> Storable OpticalFlowGridSizeFlagBitsNV
forall b. Ptr b -> Int -> IO OpticalFlowGridSizeFlagBitsNV
forall b. Ptr b -> Int -> OpticalFlowGridSizeFlagBitsNV -> 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 OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
$cpoke :: Ptr OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> IO ()
peek :: Ptr OpticalFlowGridSizeFlagBitsNV
-> IO OpticalFlowGridSizeFlagBitsNV
$cpeek :: Ptr OpticalFlowGridSizeFlagBitsNV
-> IO OpticalFlowGridSizeFlagBitsNV
pokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowGridSizeFlagBitsNV -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowGridSizeFlagBitsNV -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowGridSizeFlagBitsNV
$cpeekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowGridSizeFlagBitsNV
pokeElemOff :: Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV -> IO ()
$cpokeElemOff :: Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV -> IO ()
peekElemOff :: Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> IO OpticalFlowGridSizeFlagBitsNV
$cpeekElemOff :: Ptr OpticalFlowGridSizeFlagBitsNV
-> Int -> IO OpticalFlowGridSizeFlagBitsNV
alignment :: OpticalFlowGridSizeFlagBitsNV -> Int
$calignment :: OpticalFlowGridSizeFlagBitsNV -> Int
sizeOf :: OpticalFlowGridSizeFlagBitsNV -> Int
$csizeOf :: OpticalFlowGridSizeFlagBitsNV -> Int
Storable, OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV -> Zero OpticalFlowGridSizeFlagBitsNV
forall a. a -> Zero a
zero :: OpticalFlowGridSizeFlagBitsNV
$czero :: OpticalFlowGridSizeFlagBitsNV
Zero, Eq OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV
Eq OpticalFlowGridSizeFlagBitsNV
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> OpticalFlowGridSizeFlagBitsNV
-> (Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV -> Int -> Bool)
-> (OpticalFlowGridSizeFlagBitsNV -> Maybe Int)
-> (OpticalFlowGridSizeFlagBitsNV -> Int)
-> (OpticalFlowGridSizeFlagBitsNV -> Bool)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV)
-> (OpticalFlowGridSizeFlagBitsNV -> Int)
-> Bits OpticalFlowGridSizeFlagBitsNV
Int -> OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV -> Bool
OpticalFlowGridSizeFlagBitsNV -> Int
OpticalFlowGridSizeFlagBitsNV -> Maybe Int
OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV -> Int -> Bool
OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
forall a.
Eq a
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> a
-> (Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> Bool)
-> (a -> Maybe Int)
-> (a -> Int)
-> (a -> Bool)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int)
-> Bits a
popCount :: OpticalFlowGridSizeFlagBitsNV -> Int
$cpopCount :: OpticalFlowGridSizeFlagBitsNV -> Int
rotateR :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$crotateR :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
rotateL :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$crotateL :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
unsafeShiftR :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$cunsafeShiftR :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
shiftR :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$cshiftR :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
unsafeShiftL :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$cunsafeShiftL :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
shiftL :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$cshiftL :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
isSigned :: OpticalFlowGridSizeFlagBitsNV -> Bool
$cisSigned :: OpticalFlowGridSizeFlagBitsNV -> Bool
bitSize :: OpticalFlowGridSizeFlagBitsNV -> Int
$cbitSize :: OpticalFlowGridSizeFlagBitsNV -> Int
bitSizeMaybe :: OpticalFlowGridSizeFlagBitsNV -> Maybe Int
$cbitSizeMaybe :: OpticalFlowGridSizeFlagBitsNV -> Maybe Int
testBit :: OpticalFlowGridSizeFlagBitsNV -> Int -> Bool
$ctestBit :: OpticalFlowGridSizeFlagBitsNV -> Int -> Bool
complementBit :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$ccomplementBit :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
clearBit :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$cclearBit :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
setBit :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$csetBit :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
bit :: Int -> OpticalFlowGridSizeFlagBitsNV
$cbit :: Int -> OpticalFlowGridSizeFlagBitsNV
zeroBits :: OpticalFlowGridSizeFlagBitsNV
$czeroBits :: OpticalFlowGridSizeFlagBitsNV
rotate :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$crotate :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
shift :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
$cshift :: OpticalFlowGridSizeFlagBitsNV
-> Int -> OpticalFlowGridSizeFlagBitsNV
complement :: OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
$ccomplement :: OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
xor :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
$cxor :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
.|. :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
$c.|. :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
.&. :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
$c.&. :: OpticalFlowGridSizeFlagBitsNV
-> OpticalFlowGridSizeFlagBitsNV -> OpticalFlowGridSizeFlagBitsNV
Bits, Bits OpticalFlowGridSizeFlagBitsNV
Bits OpticalFlowGridSizeFlagBitsNV
-> (OpticalFlowGridSizeFlagBitsNV -> Int)
-> (OpticalFlowGridSizeFlagBitsNV -> Int)
-> (OpticalFlowGridSizeFlagBitsNV -> Int)
-> FiniteBits OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV -> Int
forall b.
Bits b -> (b -> Int) -> (b -> Int) -> (b -> Int) -> FiniteBits b
countTrailingZeros :: OpticalFlowGridSizeFlagBitsNV -> Int
$ccountTrailingZeros :: OpticalFlowGridSizeFlagBitsNV -> Int
countLeadingZeros :: OpticalFlowGridSizeFlagBitsNV -> Int
$ccountLeadingZeros :: OpticalFlowGridSizeFlagBitsNV -> Int
finiteBitSize :: OpticalFlowGridSizeFlagBitsNV -> Int
$cfiniteBitSize :: OpticalFlowGridSizeFlagBitsNV -> Int
FiniteBits)
pattern $bOPTICAL_FLOW_GRID_SIZE_UNKNOWN_NV :: OpticalFlowGridSizeFlagBitsNV
$mOPTICAL_FLOW_GRID_SIZE_UNKNOWN_NV :: forall {r}.
OpticalFlowGridSizeFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_GRID_SIZE_UNKNOWN_NV = OpticalFlowGridSizeFlagBitsNV 0x00000000
pattern $bOPTICAL_FLOW_GRID_SIZE_1X1_BIT_NV :: OpticalFlowGridSizeFlagBitsNV
$mOPTICAL_FLOW_GRID_SIZE_1X1_BIT_NV :: forall {r}.
OpticalFlowGridSizeFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_GRID_SIZE_1X1_BIT_NV = OpticalFlowGridSizeFlagBitsNV 0x00000001
pattern $bOPTICAL_FLOW_GRID_SIZE_2X2_BIT_NV :: OpticalFlowGridSizeFlagBitsNV
$mOPTICAL_FLOW_GRID_SIZE_2X2_BIT_NV :: forall {r}.
OpticalFlowGridSizeFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_GRID_SIZE_2X2_BIT_NV = OpticalFlowGridSizeFlagBitsNV 0x00000002
pattern $bOPTICAL_FLOW_GRID_SIZE_4X4_BIT_NV :: OpticalFlowGridSizeFlagBitsNV
$mOPTICAL_FLOW_GRID_SIZE_4X4_BIT_NV :: forall {r}.
OpticalFlowGridSizeFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_GRID_SIZE_4X4_BIT_NV = OpticalFlowGridSizeFlagBitsNV 0x00000004
pattern $bOPTICAL_FLOW_GRID_SIZE_8X8_BIT_NV :: OpticalFlowGridSizeFlagBitsNV
$mOPTICAL_FLOW_GRID_SIZE_8X8_BIT_NV :: forall {r}.
OpticalFlowGridSizeFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_GRID_SIZE_8X8_BIT_NV = OpticalFlowGridSizeFlagBitsNV 0x00000008
conNameOpticalFlowGridSizeFlagBitsNV :: String
conNameOpticalFlowGridSizeFlagBitsNV :: String
conNameOpticalFlowGridSizeFlagBitsNV = String
"OpticalFlowGridSizeFlagBitsNV"
enumPrefixOpticalFlowGridSizeFlagBitsNV :: String
enumPrefixOpticalFlowGridSizeFlagBitsNV :: String
enumPrefixOpticalFlowGridSizeFlagBitsNV = String
"OPTICAL_FLOW_GRID_SIZE_"
showTableOpticalFlowGridSizeFlagBitsNV :: [(OpticalFlowGridSizeFlagBitsNV, String)]
showTableOpticalFlowGridSizeFlagBitsNV :: [(OpticalFlowGridSizeFlagBitsNV, String)]
showTableOpticalFlowGridSizeFlagBitsNV =
[
( OpticalFlowGridSizeFlagBitsNV
OPTICAL_FLOW_GRID_SIZE_UNKNOWN_NV
, String
"UNKNOWN_NV"
)
,
( OpticalFlowGridSizeFlagBitsNV
OPTICAL_FLOW_GRID_SIZE_1X1_BIT_NV
, String
"1X1_BIT_NV"
)
,
( OpticalFlowGridSizeFlagBitsNV
OPTICAL_FLOW_GRID_SIZE_2X2_BIT_NV
, String
"2X2_BIT_NV"
)
,
( OpticalFlowGridSizeFlagBitsNV
OPTICAL_FLOW_GRID_SIZE_4X4_BIT_NV
, String
"4X4_BIT_NV"
)
,
( OpticalFlowGridSizeFlagBitsNV
OPTICAL_FLOW_GRID_SIZE_8X8_BIT_NV
, String
"8X8_BIT_NV"
)
]
instance Show OpticalFlowGridSizeFlagBitsNV where
showsPrec :: Int -> OpticalFlowGridSizeFlagBitsNV -> ShowS
showsPrec =
String
-> [(OpticalFlowGridSizeFlagBitsNV, String)]
-> String
-> (OpticalFlowGridSizeFlagBitsNV -> Flags)
-> (Flags -> ShowS)
-> Int
-> OpticalFlowGridSizeFlagBitsNV
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixOpticalFlowGridSizeFlagBitsNV
[(OpticalFlowGridSizeFlagBitsNV, String)]
showTableOpticalFlowGridSizeFlagBitsNV
String
conNameOpticalFlowGridSizeFlagBitsNV
(\(OpticalFlowGridSizeFlagBitsNV Flags
x) -> Flags
x)
(\Flags
x -> String -> ShowS
showString String
"0x" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Flags -> ShowS
forall a. (Integral a, Show a) => a -> ShowS
showHex Flags
x)
instance Read OpticalFlowGridSizeFlagBitsNV where
readPrec :: ReadPrec OpticalFlowGridSizeFlagBitsNV
readPrec =
String
-> [(OpticalFlowGridSizeFlagBitsNV, String)]
-> String
-> (Flags -> OpticalFlowGridSizeFlagBitsNV)
-> ReadPrec OpticalFlowGridSizeFlagBitsNV
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixOpticalFlowGridSizeFlagBitsNV
[(OpticalFlowGridSizeFlagBitsNV, String)]
showTableOpticalFlowGridSizeFlagBitsNV
String
conNameOpticalFlowGridSizeFlagBitsNV
Flags -> OpticalFlowGridSizeFlagBitsNV
OpticalFlowGridSizeFlagBitsNV
type OpticalFlowUsageFlagsNV = OpticalFlowUsageFlagBitsNV
newtype OpticalFlowUsageFlagBitsNV = OpticalFlowUsageFlagBitsNV Flags
deriving newtype (OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
(OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Bool)
-> Eq OpticalFlowUsageFlagBitsNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
$c/= :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
== :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
$c== :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
Eq, Eq OpticalFlowUsageFlagBitsNV
Eq OpticalFlowUsageFlagBitsNV
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Ordering)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Bool)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Bool)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Bool)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Bool)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV)
-> Ord OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Ordering
OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
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 :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
$cmin :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
max :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
$cmax :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
>= :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
$c>= :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
> :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
$c> :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
<= :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
$c<= :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
< :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
$c< :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV -> Bool
compare :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Ordering
$ccompare :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> Ordering
Ord, Ptr OpticalFlowUsageFlagBitsNV -> IO OpticalFlowUsageFlagBitsNV
Ptr OpticalFlowUsageFlagBitsNV
-> Int -> IO OpticalFlowUsageFlagBitsNV
Ptr OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV -> IO ()
Ptr OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> IO ()
OpticalFlowUsageFlagBitsNV -> Int
(OpticalFlowUsageFlagBitsNV -> Int)
-> (OpticalFlowUsageFlagBitsNV -> Int)
-> (Ptr OpticalFlowUsageFlagBitsNV
-> Int -> IO OpticalFlowUsageFlagBitsNV)
-> (Ptr OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV -> IO ())
-> (forall b. Ptr b -> Int -> IO OpticalFlowUsageFlagBitsNV)
-> (forall b. Ptr b -> Int -> OpticalFlowUsageFlagBitsNV -> IO ())
-> (Ptr OpticalFlowUsageFlagBitsNV
-> IO OpticalFlowUsageFlagBitsNV)
-> (Ptr OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> IO ())
-> Storable OpticalFlowUsageFlagBitsNV
forall b. Ptr b -> Int -> IO OpticalFlowUsageFlagBitsNV
forall b. Ptr b -> Int -> OpticalFlowUsageFlagBitsNV -> 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 OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> IO ()
$cpoke :: Ptr OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> IO ()
peek :: Ptr OpticalFlowUsageFlagBitsNV -> IO OpticalFlowUsageFlagBitsNV
$cpeek :: Ptr OpticalFlowUsageFlagBitsNV -> IO OpticalFlowUsageFlagBitsNV
pokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowUsageFlagBitsNV -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowUsageFlagBitsNV -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowUsageFlagBitsNV
$cpeekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowUsageFlagBitsNV
pokeElemOff :: Ptr OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV -> IO ()
$cpokeElemOff :: Ptr OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV -> IO ()
peekElemOff :: Ptr OpticalFlowUsageFlagBitsNV
-> Int -> IO OpticalFlowUsageFlagBitsNV
$cpeekElemOff :: Ptr OpticalFlowUsageFlagBitsNV
-> Int -> IO OpticalFlowUsageFlagBitsNV
alignment :: OpticalFlowUsageFlagBitsNV -> Int
$calignment :: OpticalFlowUsageFlagBitsNV -> Int
sizeOf :: OpticalFlowUsageFlagBitsNV -> Int
$csizeOf :: OpticalFlowUsageFlagBitsNV -> Int
Storable, OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV -> Zero OpticalFlowUsageFlagBitsNV
forall a. a -> Zero a
zero :: OpticalFlowUsageFlagBitsNV
$czero :: OpticalFlowUsageFlagBitsNV
Zero, Eq OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV
Eq OpticalFlowUsageFlagBitsNV
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> OpticalFlowUsageFlagBitsNV
-> (Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV -> Int -> Bool)
-> (OpticalFlowUsageFlagBitsNV -> Maybe Int)
-> (OpticalFlowUsageFlagBitsNV -> Int)
-> (OpticalFlowUsageFlagBitsNV -> Bool)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV
-> Int -> OpticalFlowUsageFlagBitsNV)
-> (OpticalFlowUsageFlagBitsNV -> Int)
-> Bits OpticalFlowUsageFlagBitsNV
Int -> OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV -> Bool
OpticalFlowUsageFlagBitsNV -> Int
OpticalFlowUsageFlagBitsNV -> Maybe Int
OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV -> Int -> Bool
OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
forall a.
Eq a
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> a
-> (Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> Bool)
-> (a -> Maybe Int)
-> (a -> Int)
-> (a -> Bool)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int)
-> Bits a
popCount :: OpticalFlowUsageFlagBitsNV -> Int
$cpopCount :: OpticalFlowUsageFlagBitsNV -> Int
rotateR :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$crotateR :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
rotateL :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$crotateL :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
unsafeShiftR :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$cunsafeShiftR :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
shiftR :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$cshiftR :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
unsafeShiftL :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$cunsafeShiftL :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
shiftL :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$cshiftL :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
isSigned :: OpticalFlowUsageFlagBitsNV -> Bool
$cisSigned :: OpticalFlowUsageFlagBitsNV -> Bool
bitSize :: OpticalFlowUsageFlagBitsNV -> Int
$cbitSize :: OpticalFlowUsageFlagBitsNV -> Int
bitSizeMaybe :: OpticalFlowUsageFlagBitsNV -> Maybe Int
$cbitSizeMaybe :: OpticalFlowUsageFlagBitsNV -> Maybe Int
testBit :: OpticalFlowUsageFlagBitsNV -> Int -> Bool
$ctestBit :: OpticalFlowUsageFlagBitsNV -> Int -> Bool
complementBit :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$ccomplementBit :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
clearBit :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$cclearBit :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
setBit :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$csetBit :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
bit :: Int -> OpticalFlowUsageFlagBitsNV
$cbit :: Int -> OpticalFlowUsageFlagBitsNV
zeroBits :: OpticalFlowUsageFlagBitsNV
$czeroBits :: OpticalFlowUsageFlagBitsNV
rotate :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$crotate :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
shift :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
$cshift :: OpticalFlowUsageFlagBitsNV -> Int -> OpticalFlowUsageFlagBitsNV
complement :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
$ccomplement :: OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
xor :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
$cxor :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
.|. :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
$c.|. :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
.&. :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
$c.&. :: OpticalFlowUsageFlagBitsNV
-> OpticalFlowUsageFlagBitsNV -> OpticalFlowUsageFlagBitsNV
Bits, Bits OpticalFlowUsageFlagBitsNV
Bits OpticalFlowUsageFlagBitsNV
-> (OpticalFlowUsageFlagBitsNV -> Int)
-> (OpticalFlowUsageFlagBitsNV -> Int)
-> (OpticalFlowUsageFlagBitsNV -> Int)
-> FiniteBits OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV -> Int
forall b.
Bits b -> (b -> Int) -> (b -> Int) -> (b -> Int) -> FiniteBits b
countTrailingZeros :: OpticalFlowUsageFlagBitsNV -> Int
$ccountTrailingZeros :: OpticalFlowUsageFlagBitsNV -> Int
countLeadingZeros :: OpticalFlowUsageFlagBitsNV -> Int
$ccountLeadingZeros :: OpticalFlowUsageFlagBitsNV -> Int
finiteBitSize :: OpticalFlowUsageFlagBitsNV -> Int
$cfiniteBitSize :: OpticalFlowUsageFlagBitsNV -> Int
FiniteBits)
pattern $bOPTICAL_FLOW_USAGE_UNKNOWN_NV :: OpticalFlowUsageFlagBitsNV
$mOPTICAL_FLOW_USAGE_UNKNOWN_NV :: forall {r}.
OpticalFlowUsageFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_USAGE_UNKNOWN_NV = OpticalFlowUsageFlagBitsNV 0x00000000
pattern $bOPTICAL_FLOW_USAGE_INPUT_BIT_NV :: OpticalFlowUsageFlagBitsNV
$mOPTICAL_FLOW_USAGE_INPUT_BIT_NV :: forall {r}.
OpticalFlowUsageFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_USAGE_INPUT_BIT_NV = OpticalFlowUsageFlagBitsNV 0x00000001
pattern $bOPTICAL_FLOW_USAGE_OUTPUT_BIT_NV :: OpticalFlowUsageFlagBitsNV
$mOPTICAL_FLOW_USAGE_OUTPUT_BIT_NV :: forall {r}.
OpticalFlowUsageFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_USAGE_OUTPUT_BIT_NV = OpticalFlowUsageFlagBitsNV 0x00000002
pattern $bOPTICAL_FLOW_USAGE_HINT_BIT_NV :: OpticalFlowUsageFlagBitsNV
$mOPTICAL_FLOW_USAGE_HINT_BIT_NV :: forall {r}.
OpticalFlowUsageFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_USAGE_HINT_BIT_NV = OpticalFlowUsageFlagBitsNV 0x00000004
pattern $bOPTICAL_FLOW_USAGE_COST_BIT_NV :: OpticalFlowUsageFlagBitsNV
$mOPTICAL_FLOW_USAGE_COST_BIT_NV :: forall {r}.
OpticalFlowUsageFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_USAGE_COST_BIT_NV = OpticalFlowUsageFlagBitsNV 0x00000008
pattern $bOPTICAL_FLOW_USAGE_GLOBAL_FLOW_BIT_NV :: OpticalFlowUsageFlagBitsNV
$mOPTICAL_FLOW_USAGE_GLOBAL_FLOW_BIT_NV :: forall {r}.
OpticalFlowUsageFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_USAGE_GLOBAL_FLOW_BIT_NV = OpticalFlowUsageFlagBitsNV 0x00000010
conNameOpticalFlowUsageFlagBitsNV :: String
conNameOpticalFlowUsageFlagBitsNV :: String
conNameOpticalFlowUsageFlagBitsNV = String
"OpticalFlowUsageFlagBitsNV"
enumPrefixOpticalFlowUsageFlagBitsNV :: String
enumPrefixOpticalFlowUsageFlagBitsNV :: String
enumPrefixOpticalFlowUsageFlagBitsNV = String
"OPTICAL_FLOW_USAGE_"
showTableOpticalFlowUsageFlagBitsNV :: [(OpticalFlowUsageFlagBitsNV, String)]
showTableOpticalFlowUsageFlagBitsNV :: [(OpticalFlowUsageFlagBitsNV, String)]
showTableOpticalFlowUsageFlagBitsNV =
[
( OpticalFlowUsageFlagBitsNV
OPTICAL_FLOW_USAGE_UNKNOWN_NV
, String
"UNKNOWN_NV"
)
,
( OpticalFlowUsageFlagBitsNV
OPTICAL_FLOW_USAGE_INPUT_BIT_NV
, String
"INPUT_BIT_NV"
)
,
( OpticalFlowUsageFlagBitsNV
OPTICAL_FLOW_USAGE_OUTPUT_BIT_NV
, String
"OUTPUT_BIT_NV"
)
,
( OpticalFlowUsageFlagBitsNV
OPTICAL_FLOW_USAGE_HINT_BIT_NV
, String
"HINT_BIT_NV"
)
,
( OpticalFlowUsageFlagBitsNV
OPTICAL_FLOW_USAGE_COST_BIT_NV
, String
"COST_BIT_NV"
)
,
( OpticalFlowUsageFlagBitsNV
OPTICAL_FLOW_USAGE_GLOBAL_FLOW_BIT_NV
, String
"GLOBAL_FLOW_BIT_NV"
)
]
instance Show OpticalFlowUsageFlagBitsNV where
showsPrec :: Int -> OpticalFlowUsageFlagBitsNV -> ShowS
showsPrec =
String
-> [(OpticalFlowUsageFlagBitsNV, String)]
-> String
-> (OpticalFlowUsageFlagBitsNV -> Flags)
-> (Flags -> ShowS)
-> Int
-> OpticalFlowUsageFlagBitsNV
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixOpticalFlowUsageFlagBitsNV
[(OpticalFlowUsageFlagBitsNV, String)]
showTableOpticalFlowUsageFlagBitsNV
String
conNameOpticalFlowUsageFlagBitsNV
(\(OpticalFlowUsageFlagBitsNV Flags
x) -> Flags
x)
(\Flags
x -> String -> ShowS
showString String
"0x" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Flags -> ShowS
forall a. (Integral a, Show a) => a -> ShowS
showHex Flags
x)
instance Read OpticalFlowUsageFlagBitsNV where
readPrec :: ReadPrec OpticalFlowUsageFlagBitsNV
readPrec =
String
-> [(OpticalFlowUsageFlagBitsNV, String)]
-> String
-> (Flags -> OpticalFlowUsageFlagBitsNV)
-> ReadPrec OpticalFlowUsageFlagBitsNV
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixOpticalFlowUsageFlagBitsNV
[(OpticalFlowUsageFlagBitsNV, String)]
showTableOpticalFlowUsageFlagBitsNV
String
conNameOpticalFlowUsageFlagBitsNV
Flags -> OpticalFlowUsageFlagBitsNV
OpticalFlowUsageFlagBitsNV
newtype OpticalFlowPerformanceLevelNV = OpticalFlowPerformanceLevelNV Int32
deriving newtype (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
(OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool)
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool)
-> Eq OpticalFlowPerformanceLevelNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
$c/= :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
== :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
$c== :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
Eq, Eq OpticalFlowPerformanceLevelNV
Eq OpticalFlowPerformanceLevelNV
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Ordering)
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool)
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool)
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool)
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool)
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> OpticalFlowPerformanceLevelNV)
-> (OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> OpticalFlowPerformanceLevelNV)
-> Ord OpticalFlowPerformanceLevelNV
OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Ordering
OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> OpticalFlowPerformanceLevelNV
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 :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> OpticalFlowPerformanceLevelNV
$cmin :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> OpticalFlowPerformanceLevelNV
max :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> OpticalFlowPerformanceLevelNV
$cmax :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> OpticalFlowPerformanceLevelNV
>= :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
$c>= :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
> :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
$c> :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
<= :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
$c<= :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
< :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
$c< :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Bool
compare :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Ordering
$ccompare :: OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> Ordering
Ord, Ptr OpticalFlowPerformanceLevelNV
-> IO OpticalFlowPerformanceLevelNV
Ptr OpticalFlowPerformanceLevelNV
-> Int -> IO OpticalFlowPerformanceLevelNV
Ptr OpticalFlowPerformanceLevelNV
-> Int -> OpticalFlowPerformanceLevelNV -> IO ()
Ptr OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> IO ()
OpticalFlowPerformanceLevelNV -> Int
(OpticalFlowPerformanceLevelNV -> Int)
-> (OpticalFlowPerformanceLevelNV -> Int)
-> (Ptr OpticalFlowPerformanceLevelNV
-> Int -> IO OpticalFlowPerformanceLevelNV)
-> (Ptr OpticalFlowPerformanceLevelNV
-> Int -> OpticalFlowPerformanceLevelNV -> IO ())
-> (forall b. Ptr b -> Int -> IO OpticalFlowPerformanceLevelNV)
-> (forall b.
Ptr b -> Int -> OpticalFlowPerformanceLevelNV -> IO ())
-> (Ptr OpticalFlowPerformanceLevelNV
-> IO OpticalFlowPerformanceLevelNV)
-> (Ptr OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> IO ())
-> Storable OpticalFlowPerformanceLevelNV
forall b. Ptr b -> Int -> IO OpticalFlowPerformanceLevelNV
forall b. Ptr b -> Int -> OpticalFlowPerformanceLevelNV -> 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 OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> IO ()
$cpoke :: Ptr OpticalFlowPerformanceLevelNV
-> OpticalFlowPerformanceLevelNV -> IO ()
peek :: Ptr OpticalFlowPerformanceLevelNV
-> IO OpticalFlowPerformanceLevelNV
$cpeek :: Ptr OpticalFlowPerformanceLevelNV
-> IO OpticalFlowPerformanceLevelNV
pokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowPerformanceLevelNV -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowPerformanceLevelNV -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowPerformanceLevelNV
$cpeekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowPerformanceLevelNV
pokeElemOff :: Ptr OpticalFlowPerformanceLevelNV
-> Int -> OpticalFlowPerformanceLevelNV -> IO ()
$cpokeElemOff :: Ptr OpticalFlowPerformanceLevelNV
-> Int -> OpticalFlowPerformanceLevelNV -> IO ()
peekElemOff :: Ptr OpticalFlowPerformanceLevelNV
-> Int -> IO OpticalFlowPerformanceLevelNV
$cpeekElemOff :: Ptr OpticalFlowPerformanceLevelNV
-> Int -> IO OpticalFlowPerformanceLevelNV
alignment :: OpticalFlowPerformanceLevelNV -> Int
$calignment :: OpticalFlowPerformanceLevelNV -> Int
sizeOf :: OpticalFlowPerformanceLevelNV -> Int
$csizeOf :: OpticalFlowPerformanceLevelNV -> Int
Storable, OpticalFlowPerformanceLevelNV
OpticalFlowPerformanceLevelNV -> Zero OpticalFlowPerformanceLevelNV
forall a. a -> Zero a
zero :: OpticalFlowPerformanceLevelNV
$czero :: OpticalFlowPerformanceLevelNV
Zero)
pattern $bOPTICAL_FLOW_PERFORMANCE_LEVEL_UNKNOWN_NV :: OpticalFlowPerformanceLevelNV
$mOPTICAL_FLOW_PERFORMANCE_LEVEL_UNKNOWN_NV :: forall {r}.
OpticalFlowPerformanceLevelNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_PERFORMANCE_LEVEL_UNKNOWN_NV = OpticalFlowPerformanceLevelNV 0
pattern $bOPTICAL_FLOW_PERFORMANCE_LEVEL_SLOW_NV :: OpticalFlowPerformanceLevelNV
$mOPTICAL_FLOW_PERFORMANCE_LEVEL_SLOW_NV :: forall {r}.
OpticalFlowPerformanceLevelNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_PERFORMANCE_LEVEL_SLOW_NV = OpticalFlowPerformanceLevelNV 1
pattern $bOPTICAL_FLOW_PERFORMANCE_LEVEL_MEDIUM_NV :: OpticalFlowPerformanceLevelNV
$mOPTICAL_FLOW_PERFORMANCE_LEVEL_MEDIUM_NV :: forall {r}.
OpticalFlowPerformanceLevelNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_PERFORMANCE_LEVEL_MEDIUM_NV = OpticalFlowPerformanceLevelNV 2
pattern $bOPTICAL_FLOW_PERFORMANCE_LEVEL_FAST_NV :: OpticalFlowPerformanceLevelNV
$mOPTICAL_FLOW_PERFORMANCE_LEVEL_FAST_NV :: forall {r}.
OpticalFlowPerformanceLevelNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_PERFORMANCE_LEVEL_FAST_NV = OpticalFlowPerformanceLevelNV 3
{-# COMPLETE
OPTICAL_FLOW_PERFORMANCE_LEVEL_UNKNOWN_NV
, OPTICAL_FLOW_PERFORMANCE_LEVEL_SLOW_NV
, OPTICAL_FLOW_PERFORMANCE_LEVEL_MEDIUM_NV
, OPTICAL_FLOW_PERFORMANCE_LEVEL_FAST_NV ::
OpticalFlowPerformanceLevelNV
#-}
conNameOpticalFlowPerformanceLevelNV :: String
conNameOpticalFlowPerformanceLevelNV :: String
conNameOpticalFlowPerformanceLevelNV = String
"OpticalFlowPerformanceLevelNV"
enumPrefixOpticalFlowPerformanceLevelNV :: String
enumPrefixOpticalFlowPerformanceLevelNV :: String
enumPrefixOpticalFlowPerformanceLevelNV = String
"OPTICAL_FLOW_PERFORMANCE_LEVEL_"
showTableOpticalFlowPerformanceLevelNV :: [(OpticalFlowPerformanceLevelNV, String)]
showTableOpticalFlowPerformanceLevelNV :: [(OpticalFlowPerformanceLevelNV, String)]
showTableOpticalFlowPerformanceLevelNV =
[
( OpticalFlowPerformanceLevelNV
OPTICAL_FLOW_PERFORMANCE_LEVEL_UNKNOWN_NV
, String
"UNKNOWN_NV"
)
,
( OpticalFlowPerformanceLevelNV
OPTICAL_FLOW_PERFORMANCE_LEVEL_SLOW_NV
, String
"SLOW_NV"
)
,
( OpticalFlowPerformanceLevelNV
OPTICAL_FLOW_PERFORMANCE_LEVEL_MEDIUM_NV
, String
"MEDIUM_NV"
)
,
( OpticalFlowPerformanceLevelNV
OPTICAL_FLOW_PERFORMANCE_LEVEL_FAST_NV
, String
"FAST_NV"
)
]
instance Show OpticalFlowPerformanceLevelNV where
showsPrec :: Int -> OpticalFlowPerformanceLevelNV -> ShowS
showsPrec =
String
-> [(OpticalFlowPerformanceLevelNV, String)]
-> String
-> (OpticalFlowPerformanceLevelNV -> Int32)
-> (Int32 -> ShowS)
-> Int
-> OpticalFlowPerformanceLevelNV
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixOpticalFlowPerformanceLevelNV
[(OpticalFlowPerformanceLevelNV, String)]
showTableOpticalFlowPerformanceLevelNV
String
conNameOpticalFlowPerformanceLevelNV
(\(OpticalFlowPerformanceLevelNV Int32
x) -> Int32
x)
(Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11)
instance Read OpticalFlowPerformanceLevelNV where
readPrec :: ReadPrec OpticalFlowPerformanceLevelNV
readPrec =
String
-> [(OpticalFlowPerformanceLevelNV, String)]
-> String
-> (Int32 -> OpticalFlowPerformanceLevelNV)
-> ReadPrec OpticalFlowPerformanceLevelNV
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixOpticalFlowPerformanceLevelNV
[(OpticalFlowPerformanceLevelNV, String)]
showTableOpticalFlowPerformanceLevelNV
String
conNameOpticalFlowPerformanceLevelNV
Int32 -> OpticalFlowPerformanceLevelNV
OpticalFlowPerformanceLevelNV
newtype OpticalFlowSessionBindingPointNV = OpticalFlowSessionBindingPointNV Int32
deriving newtype (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
(OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool)
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool)
-> Eq OpticalFlowSessionBindingPointNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
$c/= :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
== :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
$c== :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
Eq, Eq OpticalFlowSessionBindingPointNV
Eq OpticalFlowSessionBindingPointNV
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Ordering)
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool)
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool)
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool)
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool)
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV)
-> (OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV)
-> Ord OpticalFlowSessionBindingPointNV
OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Ordering
OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
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 :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
$cmin :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
max :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
$cmax :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV
>= :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
$c>= :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
> :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
$c> :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
<= :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
$c<= :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
< :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
$c< :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Bool
compare :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Ordering
$ccompare :: OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> Ordering
Ord, Ptr OpticalFlowSessionBindingPointNV
-> IO OpticalFlowSessionBindingPointNV
Ptr OpticalFlowSessionBindingPointNV
-> Int -> IO OpticalFlowSessionBindingPointNV
Ptr OpticalFlowSessionBindingPointNV
-> Int -> OpticalFlowSessionBindingPointNV -> IO ()
Ptr OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> IO ()
OpticalFlowSessionBindingPointNV -> Int
(OpticalFlowSessionBindingPointNV -> Int)
-> (OpticalFlowSessionBindingPointNV -> Int)
-> (Ptr OpticalFlowSessionBindingPointNV
-> Int -> IO OpticalFlowSessionBindingPointNV)
-> (Ptr OpticalFlowSessionBindingPointNV
-> Int -> OpticalFlowSessionBindingPointNV -> IO ())
-> (forall b. Ptr b -> Int -> IO OpticalFlowSessionBindingPointNV)
-> (forall b.
Ptr b -> Int -> OpticalFlowSessionBindingPointNV -> IO ())
-> (Ptr OpticalFlowSessionBindingPointNV
-> IO OpticalFlowSessionBindingPointNV)
-> (Ptr OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> IO ())
-> Storable OpticalFlowSessionBindingPointNV
forall b. Ptr b -> Int -> IO OpticalFlowSessionBindingPointNV
forall b. Ptr b -> Int -> OpticalFlowSessionBindingPointNV -> 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 OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> IO ()
$cpoke :: Ptr OpticalFlowSessionBindingPointNV
-> OpticalFlowSessionBindingPointNV -> IO ()
peek :: Ptr OpticalFlowSessionBindingPointNV
-> IO OpticalFlowSessionBindingPointNV
$cpeek :: Ptr OpticalFlowSessionBindingPointNV
-> IO OpticalFlowSessionBindingPointNV
pokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowSessionBindingPointNV -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowSessionBindingPointNV -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowSessionBindingPointNV
$cpeekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowSessionBindingPointNV
pokeElemOff :: Ptr OpticalFlowSessionBindingPointNV
-> Int -> OpticalFlowSessionBindingPointNV -> IO ()
$cpokeElemOff :: Ptr OpticalFlowSessionBindingPointNV
-> Int -> OpticalFlowSessionBindingPointNV -> IO ()
peekElemOff :: Ptr OpticalFlowSessionBindingPointNV
-> Int -> IO OpticalFlowSessionBindingPointNV
$cpeekElemOff :: Ptr OpticalFlowSessionBindingPointNV
-> Int -> IO OpticalFlowSessionBindingPointNV
alignment :: OpticalFlowSessionBindingPointNV -> Int
$calignment :: OpticalFlowSessionBindingPointNV -> Int
sizeOf :: OpticalFlowSessionBindingPointNV -> Int
$csizeOf :: OpticalFlowSessionBindingPointNV -> Int
Storable, OpticalFlowSessionBindingPointNV
OpticalFlowSessionBindingPointNV
-> Zero OpticalFlowSessionBindingPointNV
forall a. a -> Zero a
zero :: OpticalFlowSessionBindingPointNV
$czero :: OpticalFlowSessionBindingPointNV
Zero)
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_UNKNOWN_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_UNKNOWN_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_UNKNOWN_NV = OpticalFlowSessionBindingPointNV 0
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_INPUT_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_INPUT_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_INPUT_NV = OpticalFlowSessionBindingPointNV 1
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_REFERENCE_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_REFERENCE_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_REFERENCE_NV = OpticalFlowSessionBindingPointNV 2
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_HINT_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_HINT_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_HINT_NV = OpticalFlowSessionBindingPointNV 3
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_FLOW_VECTOR_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_FLOW_VECTOR_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_FLOW_VECTOR_NV = OpticalFlowSessionBindingPointNV 4
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_FLOW_VECTOR_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_FLOW_VECTOR_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_FLOW_VECTOR_NV = OpticalFlowSessionBindingPointNV 5
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_COST_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_COST_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_COST_NV = OpticalFlowSessionBindingPointNV 6
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_COST_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_COST_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_COST_NV = OpticalFlowSessionBindingPointNV 7
pattern $bOPTICAL_FLOW_SESSION_BINDING_POINT_GLOBAL_FLOW_NV :: OpticalFlowSessionBindingPointNV
$mOPTICAL_FLOW_SESSION_BINDING_POINT_GLOBAL_FLOW_NV :: forall {r}.
OpticalFlowSessionBindingPointNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_BINDING_POINT_GLOBAL_FLOW_NV = OpticalFlowSessionBindingPointNV 8
{-# COMPLETE
OPTICAL_FLOW_SESSION_BINDING_POINT_UNKNOWN_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_INPUT_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_REFERENCE_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_HINT_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_FLOW_VECTOR_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_FLOW_VECTOR_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_COST_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_COST_NV
, OPTICAL_FLOW_SESSION_BINDING_POINT_GLOBAL_FLOW_NV ::
OpticalFlowSessionBindingPointNV
#-}
conNameOpticalFlowSessionBindingPointNV :: String
conNameOpticalFlowSessionBindingPointNV :: String
conNameOpticalFlowSessionBindingPointNV = String
"OpticalFlowSessionBindingPointNV"
enumPrefixOpticalFlowSessionBindingPointNV :: String
enumPrefixOpticalFlowSessionBindingPointNV :: String
enumPrefixOpticalFlowSessionBindingPointNV = String
"OPTICAL_FLOW_SESSION_BINDING_POINT_"
showTableOpticalFlowSessionBindingPointNV :: [(OpticalFlowSessionBindingPointNV, String)]
showTableOpticalFlowSessionBindingPointNV :: [(OpticalFlowSessionBindingPointNV, String)]
showTableOpticalFlowSessionBindingPointNV =
[
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_UNKNOWN_NV
, String
"UNKNOWN_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_INPUT_NV
, String
"INPUT_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_REFERENCE_NV
, String
"REFERENCE_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_HINT_NV
, String
"HINT_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_FLOW_VECTOR_NV
, String
"FLOW_VECTOR_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_FLOW_VECTOR_NV
, String
"BACKWARD_FLOW_VECTOR_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_COST_NV
, String
"COST_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_BACKWARD_COST_NV
, String
"BACKWARD_COST_NV"
)
,
( OpticalFlowSessionBindingPointNV
OPTICAL_FLOW_SESSION_BINDING_POINT_GLOBAL_FLOW_NV
, String
"GLOBAL_FLOW_NV"
)
]
instance Show OpticalFlowSessionBindingPointNV where
showsPrec :: Int -> OpticalFlowSessionBindingPointNV -> ShowS
showsPrec =
String
-> [(OpticalFlowSessionBindingPointNV, String)]
-> String
-> (OpticalFlowSessionBindingPointNV -> Int32)
-> (Int32 -> ShowS)
-> Int
-> OpticalFlowSessionBindingPointNV
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixOpticalFlowSessionBindingPointNV
[(OpticalFlowSessionBindingPointNV, String)]
showTableOpticalFlowSessionBindingPointNV
String
conNameOpticalFlowSessionBindingPointNV
(\(OpticalFlowSessionBindingPointNV Int32
x) -> Int32
x)
(Int -> Int32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
11)
instance Read OpticalFlowSessionBindingPointNV where
readPrec :: ReadPrec OpticalFlowSessionBindingPointNV
readPrec =
String
-> [(OpticalFlowSessionBindingPointNV, String)]
-> String
-> (Int32 -> OpticalFlowSessionBindingPointNV)
-> ReadPrec OpticalFlowSessionBindingPointNV
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixOpticalFlowSessionBindingPointNV
[(OpticalFlowSessionBindingPointNV, String)]
showTableOpticalFlowSessionBindingPointNV
String
conNameOpticalFlowSessionBindingPointNV
Int32 -> OpticalFlowSessionBindingPointNV
OpticalFlowSessionBindingPointNV
type OpticalFlowSessionCreateFlagsNV = OpticalFlowSessionCreateFlagBitsNV
newtype OpticalFlowSessionCreateFlagBitsNV = OpticalFlowSessionCreateFlagBitsNV Flags
deriving newtype (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
(OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool)
-> Eq OpticalFlowSessionCreateFlagBitsNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
$c/= :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
== :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
$c== :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
Eq, Eq OpticalFlowSessionCreateFlagBitsNV
Eq OpticalFlowSessionCreateFlagBitsNV
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Ordering)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV)
-> Ord OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Ordering
OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
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 :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
$cmin :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
max :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
$cmax :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
>= :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
$c>= :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
> :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
$c> :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
<= :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
$c<= :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
< :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
$c< :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Bool
compare :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Ordering
$ccompare :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> Ordering
Ord, Ptr OpticalFlowSessionCreateFlagBitsNV
-> IO OpticalFlowSessionCreateFlagBitsNV
Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> IO OpticalFlowSessionCreateFlagBitsNV
Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV -> IO ()
Ptr OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> IO ()
OpticalFlowSessionCreateFlagBitsNV -> Int
(OpticalFlowSessionCreateFlagBitsNV -> Int)
-> (OpticalFlowSessionCreateFlagBitsNV -> Int)
-> (Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> IO OpticalFlowSessionCreateFlagBitsNV)
-> (Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV -> IO ())
-> (forall b.
Ptr b -> Int -> IO OpticalFlowSessionCreateFlagBitsNV)
-> (forall b.
Ptr b -> Int -> OpticalFlowSessionCreateFlagBitsNV -> IO ())
-> (Ptr OpticalFlowSessionCreateFlagBitsNV
-> IO OpticalFlowSessionCreateFlagBitsNV)
-> (Ptr OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> IO ())
-> Storable OpticalFlowSessionCreateFlagBitsNV
forall b. Ptr b -> Int -> IO OpticalFlowSessionCreateFlagBitsNV
forall b.
Ptr b -> Int -> OpticalFlowSessionCreateFlagBitsNV -> 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 OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> IO ()
$cpoke :: Ptr OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV -> IO ()
peek :: Ptr OpticalFlowSessionCreateFlagBitsNV
-> IO OpticalFlowSessionCreateFlagBitsNV
$cpeek :: Ptr OpticalFlowSessionCreateFlagBitsNV
-> IO OpticalFlowSessionCreateFlagBitsNV
pokeByteOff :: forall b.
Ptr b -> Int -> OpticalFlowSessionCreateFlagBitsNV -> IO ()
$cpokeByteOff :: forall b.
Ptr b -> Int -> OpticalFlowSessionCreateFlagBitsNV -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowSessionCreateFlagBitsNV
$cpeekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowSessionCreateFlagBitsNV
pokeElemOff :: Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV -> IO ()
$cpokeElemOff :: Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV -> IO ()
peekElemOff :: Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> IO OpticalFlowSessionCreateFlagBitsNV
$cpeekElemOff :: Ptr OpticalFlowSessionCreateFlagBitsNV
-> Int -> IO OpticalFlowSessionCreateFlagBitsNV
alignment :: OpticalFlowSessionCreateFlagBitsNV -> Int
$calignment :: OpticalFlowSessionCreateFlagBitsNV -> Int
sizeOf :: OpticalFlowSessionCreateFlagBitsNV -> Int
$csizeOf :: OpticalFlowSessionCreateFlagBitsNV -> Int
Storable, OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV
-> Zero OpticalFlowSessionCreateFlagBitsNV
forall a. a -> Zero a
zero :: OpticalFlowSessionCreateFlagBitsNV
$czero :: OpticalFlowSessionCreateFlagBitsNV
Zero, Eq OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV
Eq OpticalFlowSessionCreateFlagBitsNV
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> OpticalFlowSessionCreateFlagBitsNV
-> (Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV -> Int -> Bool)
-> (OpticalFlowSessionCreateFlagBitsNV -> Maybe Int)
-> (OpticalFlowSessionCreateFlagBitsNV -> Int)
-> (OpticalFlowSessionCreateFlagBitsNV -> Bool)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV)
-> (OpticalFlowSessionCreateFlagBitsNV -> Int)
-> Bits OpticalFlowSessionCreateFlagBitsNV
Int -> OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV -> Bool
OpticalFlowSessionCreateFlagBitsNV -> Int
OpticalFlowSessionCreateFlagBitsNV -> Maybe Int
OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV -> Int -> Bool
OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
forall a.
Eq a
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> a
-> (Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> Bool)
-> (a -> Maybe Int)
-> (a -> Int)
-> (a -> Bool)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int)
-> Bits a
popCount :: OpticalFlowSessionCreateFlagBitsNV -> Int
$cpopCount :: OpticalFlowSessionCreateFlagBitsNV -> Int
rotateR :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$crotateR :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
rotateL :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$crotateL :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
unsafeShiftR :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$cunsafeShiftR :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
shiftR :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$cshiftR :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
unsafeShiftL :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$cunsafeShiftL :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
shiftL :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$cshiftL :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
isSigned :: OpticalFlowSessionCreateFlagBitsNV -> Bool
$cisSigned :: OpticalFlowSessionCreateFlagBitsNV -> Bool
bitSize :: OpticalFlowSessionCreateFlagBitsNV -> Int
$cbitSize :: OpticalFlowSessionCreateFlagBitsNV -> Int
bitSizeMaybe :: OpticalFlowSessionCreateFlagBitsNV -> Maybe Int
$cbitSizeMaybe :: OpticalFlowSessionCreateFlagBitsNV -> Maybe Int
testBit :: OpticalFlowSessionCreateFlagBitsNV -> Int -> Bool
$ctestBit :: OpticalFlowSessionCreateFlagBitsNV -> Int -> Bool
complementBit :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$ccomplementBit :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
clearBit :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$cclearBit :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
setBit :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$csetBit :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
bit :: Int -> OpticalFlowSessionCreateFlagBitsNV
$cbit :: Int -> OpticalFlowSessionCreateFlagBitsNV
zeroBits :: OpticalFlowSessionCreateFlagBitsNV
$czeroBits :: OpticalFlowSessionCreateFlagBitsNV
rotate :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$crotate :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
shift :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
$cshift :: OpticalFlowSessionCreateFlagBitsNV
-> Int -> OpticalFlowSessionCreateFlagBitsNV
complement :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
$ccomplement :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
xor :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
$cxor :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
.|. :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
$c.|. :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
.&. :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
$c.&. :: OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
-> OpticalFlowSessionCreateFlagBitsNV
Bits, Bits OpticalFlowSessionCreateFlagBitsNV
Bits OpticalFlowSessionCreateFlagBitsNV
-> (OpticalFlowSessionCreateFlagBitsNV -> Int)
-> (OpticalFlowSessionCreateFlagBitsNV -> Int)
-> (OpticalFlowSessionCreateFlagBitsNV -> Int)
-> FiniteBits OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV -> Int
forall b.
Bits b -> (b -> Int) -> (b -> Int) -> (b -> Int) -> FiniteBits b
countTrailingZeros :: OpticalFlowSessionCreateFlagBitsNV -> Int
$ccountTrailingZeros :: OpticalFlowSessionCreateFlagBitsNV -> Int
countLeadingZeros :: OpticalFlowSessionCreateFlagBitsNV -> Int
$ccountLeadingZeros :: OpticalFlowSessionCreateFlagBitsNV -> Int
finiteBitSize :: OpticalFlowSessionCreateFlagBitsNV -> Int
$cfiniteBitSize :: OpticalFlowSessionCreateFlagBitsNV -> Int
FiniteBits)
pattern $bOPTICAL_FLOW_SESSION_CREATE_ENABLE_HINT_BIT_NV :: OpticalFlowSessionCreateFlagBitsNV
$mOPTICAL_FLOW_SESSION_CREATE_ENABLE_HINT_BIT_NV :: forall {r}.
OpticalFlowSessionCreateFlagBitsNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_CREATE_ENABLE_HINT_BIT_NV = OpticalFlowSessionCreateFlagBitsNV 0x00000001
pattern $bOPTICAL_FLOW_SESSION_CREATE_ENABLE_COST_BIT_NV :: OpticalFlowSessionCreateFlagBitsNV
$mOPTICAL_FLOW_SESSION_CREATE_ENABLE_COST_BIT_NV :: forall {r}.
OpticalFlowSessionCreateFlagBitsNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_CREATE_ENABLE_COST_BIT_NV = OpticalFlowSessionCreateFlagBitsNV 0x00000002
pattern $bOPTICAL_FLOW_SESSION_CREATE_ENABLE_GLOBAL_FLOW_BIT_NV :: OpticalFlowSessionCreateFlagBitsNV
$mOPTICAL_FLOW_SESSION_CREATE_ENABLE_GLOBAL_FLOW_BIT_NV :: forall {r}.
OpticalFlowSessionCreateFlagBitsNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_CREATE_ENABLE_GLOBAL_FLOW_BIT_NV = OpticalFlowSessionCreateFlagBitsNV 0x00000004
pattern $bOPTICAL_FLOW_SESSION_CREATE_ALLOW_REGIONS_BIT_NV :: OpticalFlowSessionCreateFlagBitsNV
$mOPTICAL_FLOW_SESSION_CREATE_ALLOW_REGIONS_BIT_NV :: forall {r}.
OpticalFlowSessionCreateFlagBitsNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_CREATE_ALLOW_REGIONS_BIT_NV = OpticalFlowSessionCreateFlagBitsNV 0x00000008
pattern $bOPTICAL_FLOW_SESSION_CREATE_BOTH_DIRECTIONS_BIT_NV :: OpticalFlowSessionCreateFlagBitsNV
$mOPTICAL_FLOW_SESSION_CREATE_BOTH_DIRECTIONS_BIT_NV :: forall {r}.
OpticalFlowSessionCreateFlagBitsNV
-> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_SESSION_CREATE_BOTH_DIRECTIONS_BIT_NV = OpticalFlowSessionCreateFlagBitsNV 0x00000010
conNameOpticalFlowSessionCreateFlagBitsNV :: String
conNameOpticalFlowSessionCreateFlagBitsNV :: String
conNameOpticalFlowSessionCreateFlagBitsNV = String
"OpticalFlowSessionCreateFlagBitsNV"
enumPrefixOpticalFlowSessionCreateFlagBitsNV :: String
enumPrefixOpticalFlowSessionCreateFlagBitsNV :: String
enumPrefixOpticalFlowSessionCreateFlagBitsNV = String
"OPTICAL_FLOW_SESSION_CREATE_"
showTableOpticalFlowSessionCreateFlagBitsNV :: [(OpticalFlowSessionCreateFlagBitsNV, String)]
showTableOpticalFlowSessionCreateFlagBitsNV :: [(OpticalFlowSessionCreateFlagBitsNV, String)]
showTableOpticalFlowSessionCreateFlagBitsNV =
[
( OpticalFlowSessionCreateFlagBitsNV
OPTICAL_FLOW_SESSION_CREATE_ENABLE_HINT_BIT_NV
, String
"ENABLE_HINT_BIT_NV"
)
,
( OpticalFlowSessionCreateFlagBitsNV
OPTICAL_FLOW_SESSION_CREATE_ENABLE_COST_BIT_NV
, String
"ENABLE_COST_BIT_NV"
)
,
( OpticalFlowSessionCreateFlagBitsNV
OPTICAL_FLOW_SESSION_CREATE_ENABLE_GLOBAL_FLOW_BIT_NV
, String
"ENABLE_GLOBAL_FLOW_BIT_NV"
)
,
( OpticalFlowSessionCreateFlagBitsNV
OPTICAL_FLOW_SESSION_CREATE_ALLOW_REGIONS_BIT_NV
, String
"ALLOW_REGIONS_BIT_NV"
)
,
( OpticalFlowSessionCreateFlagBitsNV
OPTICAL_FLOW_SESSION_CREATE_BOTH_DIRECTIONS_BIT_NV
, String
"BOTH_DIRECTIONS_BIT_NV"
)
]
instance Show OpticalFlowSessionCreateFlagBitsNV where
showsPrec :: Int -> OpticalFlowSessionCreateFlagBitsNV -> ShowS
showsPrec =
String
-> [(OpticalFlowSessionCreateFlagBitsNV, String)]
-> String
-> (OpticalFlowSessionCreateFlagBitsNV -> Flags)
-> (Flags -> ShowS)
-> Int
-> OpticalFlowSessionCreateFlagBitsNV
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixOpticalFlowSessionCreateFlagBitsNV
[(OpticalFlowSessionCreateFlagBitsNV, String)]
showTableOpticalFlowSessionCreateFlagBitsNV
String
conNameOpticalFlowSessionCreateFlagBitsNV
(\(OpticalFlowSessionCreateFlagBitsNV Flags
x) -> Flags
x)
(\Flags
x -> String -> ShowS
showString String
"0x" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Flags -> ShowS
forall a. (Integral a, Show a) => a -> ShowS
showHex Flags
x)
instance Read OpticalFlowSessionCreateFlagBitsNV where
readPrec :: ReadPrec OpticalFlowSessionCreateFlagBitsNV
readPrec =
String
-> [(OpticalFlowSessionCreateFlagBitsNV, String)]
-> String
-> (Flags -> OpticalFlowSessionCreateFlagBitsNV)
-> ReadPrec OpticalFlowSessionCreateFlagBitsNV
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixOpticalFlowSessionCreateFlagBitsNV
[(OpticalFlowSessionCreateFlagBitsNV, String)]
showTableOpticalFlowSessionCreateFlagBitsNV
String
conNameOpticalFlowSessionCreateFlagBitsNV
Flags -> OpticalFlowSessionCreateFlagBitsNV
OpticalFlowSessionCreateFlagBitsNV
type OpticalFlowExecuteFlagsNV = OpticalFlowExecuteFlagBitsNV
newtype OpticalFlowExecuteFlagBitsNV = OpticalFlowExecuteFlagBitsNV Flags
deriving newtype (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
(OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool)
-> Eq OpticalFlowExecuteFlagBitsNV
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
$c/= :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
== :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
$c== :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
Eq, Eq OpticalFlowExecuteFlagBitsNV
Eq OpticalFlowExecuteFlagBitsNV
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Ordering)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV)
-> Ord OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Ordering
OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
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 :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
$cmin :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
max :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
$cmax :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
>= :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
$c>= :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
> :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
$c> :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
<= :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
$c<= :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
< :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
$c< :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Bool
compare :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Ordering
$ccompare :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> Ordering
Ord, Ptr OpticalFlowExecuteFlagBitsNV -> IO OpticalFlowExecuteFlagBitsNV
Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> IO OpticalFlowExecuteFlagBitsNV
Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV -> IO ()
Ptr OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> IO ()
OpticalFlowExecuteFlagBitsNV -> Int
(OpticalFlowExecuteFlagBitsNV -> Int)
-> (OpticalFlowExecuteFlagBitsNV -> Int)
-> (Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> IO OpticalFlowExecuteFlagBitsNV)
-> (Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV -> IO ())
-> (forall b. Ptr b -> Int -> IO OpticalFlowExecuteFlagBitsNV)
-> (forall b.
Ptr b -> Int -> OpticalFlowExecuteFlagBitsNV -> IO ())
-> (Ptr OpticalFlowExecuteFlagBitsNV
-> IO OpticalFlowExecuteFlagBitsNV)
-> (Ptr OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> IO ())
-> Storable OpticalFlowExecuteFlagBitsNV
forall b. Ptr b -> Int -> IO OpticalFlowExecuteFlagBitsNV
forall b. Ptr b -> Int -> OpticalFlowExecuteFlagBitsNV -> 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 OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> IO ()
$cpoke :: Ptr OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> IO ()
peek :: Ptr OpticalFlowExecuteFlagBitsNV -> IO OpticalFlowExecuteFlagBitsNV
$cpeek :: Ptr OpticalFlowExecuteFlagBitsNV -> IO OpticalFlowExecuteFlagBitsNV
pokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowExecuteFlagBitsNV -> IO ()
$cpokeByteOff :: forall b. Ptr b -> Int -> OpticalFlowExecuteFlagBitsNV -> IO ()
peekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowExecuteFlagBitsNV
$cpeekByteOff :: forall b. Ptr b -> Int -> IO OpticalFlowExecuteFlagBitsNV
pokeElemOff :: Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV -> IO ()
$cpokeElemOff :: Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV -> IO ()
peekElemOff :: Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> IO OpticalFlowExecuteFlagBitsNV
$cpeekElemOff :: Ptr OpticalFlowExecuteFlagBitsNV
-> Int -> IO OpticalFlowExecuteFlagBitsNV
alignment :: OpticalFlowExecuteFlagBitsNV -> Int
$calignment :: OpticalFlowExecuteFlagBitsNV -> Int
sizeOf :: OpticalFlowExecuteFlagBitsNV -> Int
$csizeOf :: OpticalFlowExecuteFlagBitsNV -> Int
Storable, OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV -> Zero OpticalFlowExecuteFlagBitsNV
forall a. a -> Zero a
zero :: OpticalFlowExecuteFlagBitsNV
$czero :: OpticalFlowExecuteFlagBitsNV
Zero, Eq OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV
Eq OpticalFlowExecuteFlagBitsNV
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> OpticalFlowExecuteFlagBitsNV
-> (Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV -> Int -> Bool)
-> (OpticalFlowExecuteFlagBitsNV -> Maybe Int)
-> (OpticalFlowExecuteFlagBitsNV -> Int)
-> (OpticalFlowExecuteFlagBitsNV -> Bool)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV
-> Int -> OpticalFlowExecuteFlagBitsNV)
-> (OpticalFlowExecuteFlagBitsNV -> Int)
-> Bits OpticalFlowExecuteFlagBitsNV
Int -> OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV -> Bool
OpticalFlowExecuteFlagBitsNV -> Int
OpticalFlowExecuteFlagBitsNV -> Maybe Int
OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV -> Int -> Bool
OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
forall a.
Eq a
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> a
-> (Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> Bool)
-> (a -> Maybe Int)
-> (a -> Int)
-> (a -> Bool)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int)
-> Bits a
popCount :: OpticalFlowExecuteFlagBitsNV -> Int
$cpopCount :: OpticalFlowExecuteFlagBitsNV -> Int
rotateR :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$crotateR :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
rotateL :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$crotateL :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
unsafeShiftR :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$cunsafeShiftR :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
shiftR :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$cshiftR :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
unsafeShiftL :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$cunsafeShiftL :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
shiftL :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$cshiftL :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
isSigned :: OpticalFlowExecuteFlagBitsNV -> Bool
$cisSigned :: OpticalFlowExecuteFlagBitsNV -> Bool
bitSize :: OpticalFlowExecuteFlagBitsNV -> Int
$cbitSize :: OpticalFlowExecuteFlagBitsNV -> Int
bitSizeMaybe :: OpticalFlowExecuteFlagBitsNV -> Maybe Int
$cbitSizeMaybe :: OpticalFlowExecuteFlagBitsNV -> Maybe Int
testBit :: OpticalFlowExecuteFlagBitsNV -> Int -> Bool
$ctestBit :: OpticalFlowExecuteFlagBitsNV -> Int -> Bool
complementBit :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$ccomplementBit :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
clearBit :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$cclearBit :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
setBit :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$csetBit :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
bit :: Int -> OpticalFlowExecuteFlagBitsNV
$cbit :: Int -> OpticalFlowExecuteFlagBitsNV
zeroBits :: OpticalFlowExecuteFlagBitsNV
$czeroBits :: OpticalFlowExecuteFlagBitsNV
rotate :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$crotate :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
shift :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
$cshift :: OpticalFlowExecuteFlagBitsNV -> Int -> OpticalFlowExecuteFlagBitsNV
complement :: OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
$ccomplement :: OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
xor :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
$cxor :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
.|. :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
$c.|. :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
.&. :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
$c.&. :: OpticalFlowExecuteFlagBitsNV
-> OpticalFlowExecuteFlagBitsNV -> OpticalFlowExecuteFlagBitsNV
Bits, Bits OpticalFlowExecuteFlagBitsNV
Bits OpticalFlowExecuteFlagBitsNV
-> (OpticalFlowExecuteFlagBitsNV -> Int)
-> (OpticalFlowExecuteFlagBitsNV -> Int)
-> (OpticalFlowExecuteFlagBitsNV -> Int)
-> FiniteBits OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV -> Int
forall b.
Bits b -> (b -> Int) -> (b -> Int) -> (b -> Int) -> FiniteBits b
countTrailingZeros :: OpticalFlowExecuteFlagBitsNV -> Int
$ccountTrailingZeros :: OpticalFlowExecuteFlagBitsNV -> Int
countLeadingZeros :: OpticalFlowExecuteFlagBitsNV -> Int
$ccountLeadingZeros :: OpticalFlowExecuteFlagBitsNV -> Int
finiteBitSize :: OpticalFlowExecuteFlagBitsNV -> Int
$cfiniteBitSize :: OpticalFlowExecuteFlagBitsNV -> Int
FiniteBits)
pattern $bOPTICAL_FLOW_EXECUTE_DISABLE_TEMPORAL_HINTS_BIT_NV :: OpticalFlowExecuteFlagBitsNV
$mOPTICAL_FLOW_EXECUTE_DISABLE_TEMPORAL_HINTS_BIT_NV :: forall {r}.
OpticalFlowExecuteFlagBitsNV -> (Void# -> r) -> (Void# -> r) -> r
OPTICAL_FLOW_EXECUTE_DISABLE_TEMPORAL_HINTS_BIT_NV = OpticalFlowExecuteFlagBitsNV 0x00000001
conNameOpticalFlowExecuteFlagBitsNV :: String
conNameOpticalFlowExecuteFlagBitsNV :: String
conNameOpticalFlowExecuteFlagBitsNV = String
"OpticalFlowExecuteFlagBitsNV"
enumPrefixOpticalFlowExecuteFlagBitsNV :: String
enumPrefixOpticalFlowExecuteFlagBitsNV :: String
enumPrefixOpticalFlowExecuteFlagBitsNV = String
"OPTICAL_FLOW_EXECUTE_DISABLE_TEMPORAL_HINTS_BIT_NV"
showTableOpticalFlowExecuteFlagBitsNV :: [(OpticalFlowExecuteFlagBitsNV, String)]
showTableOpticalFlowExecuteFlagBitsNV :: [(OpticalFlowExecuteFlagBitsNV, String)]
showTableOpticalFlowExecuteFlagBitsNV =
[
( OpticalFlowExecuteFlagBitsNV
OPTICAL_FLOW_EXECUTE_DISABLE_TEMPORAL_HINTS_BIT_NV
, String
""
)
]
instance Show OpticalFlowExecuteFlagBitsNV where
showsPrec :: Int -> OpticalFlowExecuteFlagBitsNV -> ShowS
showsPrec =
String
-> [(OpticalFlowExecuteFlagBitsNV, String)]
-> String
-> (OpticalFlowExecuteFlagBitsNV -> Flags)
-> (Flags -> ShowS)
-> Int
-> OpticalFlowExecuteFlagBitsNV
-> ShowS
forall a i.
Eq a =>
String
-> [(a, String)]
-> String
-> (a -> i)
-> (i -> ShowS)
-> Int
-> a
-> ShowS
enumShowsPrec
String
enumPrefixOpticalFlowExecuteFlagBitsNV
[(OpticalFlowExecuteFlagBitsNV, String)]
showTableOpticalFlowExecuteFlagBitsNV
String
conNameOpticalFlowExecuteFlagBitsNV
(\(OpticalFlowExecuteFlagBitsNV Flags
x) -> Flags
x)
(\Flags
x -> String -> ShowS
showString String
"0x" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Flags -> ShowS
forall a. (Integral a, Show a) => a -> ShowS
showHex Flags
x)
instance Read OpticalFlowExecuteFlagBitsNV where
readPrec :: ReadPrec OpticalFlowExecuteFlagBitsNV
readPrec =
String
-> [(OpticalFlowExecuteFlagBitsNV, String)]
-> String
-> (Flags -> OpticalFlowExecuteFlagBitsNV)
-> ReadPrec OpticalFlowExecuteFlagBitsNV
forall i a.
Read i =>
String -> [(a, String)] -> String -> (i -> a) -> ReadPrec a
enumReadPrec
String
enumPrefixOpticalFlowExecuteFlagBitsNV
[(OpticalFlowExecuteFlagBitsNV, String)]
showTableOpticalFlowExecuteFlagBitsNV
String
conNameOpticalFlowExecuteFlagBitsNV
Flags -> OpticalFlowExecuteFlagBitsNV
OpticalFlowExecuteFlagBitsNV
type NV_OPTICAL_FLOW_SPEC_VERSION = 1
pattern NV_OPTICAL_FLOW_SPEC_VERSION :: forall a . Integral a => a
pattern $bNV_OPTICAL_FLOW_SPEC_VERSION :: forall a. Integral a => a
$mNV_OPTICAL_FLOW_SPEC_VERSION :: forall {r} {a}.
Integral a =>
a -> (Void# -> r) -> (Void# -> r) -> r
NV_OPTICAL_FLOW_SPEC_VERSION = 1
type NV_OPTICAL_FLOW_EXTENSION_NAME = "VK_NV_optical_flow"
pattern NV_OPTICAL_FLOW_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a
pattern $bNV_OPTICAL_FLOW_EXTENSION_NAME :: forall a. (Eq a, IsString a) => a
$mNV_OPTICAL_FLOW_EXTENSION_NAME :: forall {r} {a}.
(Eq a, IsString a) =>
a -> (Void# -> r) -> (Void# -> r) -> r
NV_OPTICAL_FLOW_EXTENSION_NAME = "VK_NV_optical_flow"