{-# LINE 1 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
module Gpu.Vulkan.Descriptor.Core (
BufferInfo, PtrBufferInfo,
pattern BufferInfo,
bufferInfoBuffer, bufferInfoOffset, bufferInfoRange,
ImageInfo, PtrImageInfo,
pattern ImageInfo,
imageInfoSampler, imageInfoImageView, imageInfoImageLayout
) where
import Foreign.Ptr
import Foreign.Storable
import Foreign.C.Struct
import Data.Word
import qualified Gpu.Vulkan.Buffer.Core as Buffer
import qualified Gpu.Vulkan.ImageView.Core as ImageView
import qualified Gpu.Vulkan.Sampler.Core as Sampler
struct "BufferInfo" (24)
{-# LINE 34 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
8 [
{-# LINE 35 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
("buffer", ''Buffer.B,
[| (\hsc_ptr -> peekByteOff hsc_ptr 0) |],
{-# LINE 37 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 0) |]),
{-# LINE 38 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
("offset", ''Word64,
{-# LINE 39 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 40 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]),
{-# LINE 41 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
("range", ''Word64,
{-# LINE 42 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 16) |],
{-# LINE 43 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]) ]
{-# LINE 44 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[''Show, ''Storable]
type PtrBufferInfo = Ptr BufferInfo
struct "ImageInfo" (24)
{-# LINE 49 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
8 [
{-# LINE 50 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
("sampler", ''Sampler.S,
[| (\hsc_ptr -> peekByteOff hsc_ptr 0) |],
{-# LINE 52 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 0) |]),
{-# LINE 53 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
("imageView", ''ImageView.I,
[| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 55 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]),
{-# LINE 56 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
("imageLayout", ''Word32,
{-# LINE 57 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 16) |],
{-# LINE 58 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]) ]
{-# LINE 59 "src/Gpu/Vulkan/Descriptor/Core.hsc" #-}
[''Show, ''Storable]
type PtrImageInfo = Ptr ImageInfo