{-# LINE 1 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
module Gpu.Vulkan.Framebuffer.Core (
create, destroy, F, CreateInfo, pattern CreateInfo,
createInfoSType, createInfoPNext, createInfoFlags, createInfoRenderPass,
createInfoAttachmentCount, createInfoPAttachments,
createInfoWidth, createInfoHeight, createInfoLayers
) where
import Foreign.Ptr
import Foreign.Storable
import Foreign.C.Struct
import Foreign.C.Struct.TypeSynonyms
import Data.Word
import Data.Int
import qualified Gpu.Vulkan.AllocationCallbacks.Core as AllocationCallbacks
import qualified Gpu.Vulkan.Device.Core as Device
import {-# SOURCE #-} qualified Gpu.Vulkan.RenderPass.Core as RenderPass
import qualified Gpu.Vulkan.ImageView.Core as ImageView
sType :: Word32
{-# LINE 32 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
sType = 37
{-# LINE 33 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
struct "CreateInfo" (64)
{-# LINE 35 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
8 [
{-# LINE 36 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("sType", ''(), [| const $ pure () |],
[| \p _ -> (\hsc_ptr -> pokeByteOff hsc_ptr 0) p sType |]),
{-# LINE 38 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("pNext", ''PtrVoid,
[| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 40 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]),
{-# LINE 41 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("flags", ''Word32,
{-# LINE 42 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 16) |],
{-# LINE 43 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]),
{-# LINE 44 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("renderPass", ''RenderPass.R,
[| (\hsc_ptr -> peekByteOff hsc_ptr 24) |],
{-# LINE 46 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 24) |]),
{-# LINE 47 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("attachmentCount", ''Word32,
{-# LINE 48 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 32) |],
{-# LINE 49 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 32) |]),
{-# LINE 50 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("pAttachments", ''ImageView.PtrI,
[| (\hsc_ptr -> peekByteOff hsc_ptr 40) |],
{-# LINE 52 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 40) |]),
{-# LINE 53 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("width", ''Word32,
{-# LINE 54 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 48) |],
{-# LINE 55 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 48) |]),
{-# LINE 56 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("height", ''Word32,
{-# LINE 57 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 52) |],
{-# LINE 58 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 52) |]),
{-# LINE 59 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
("layers", ''Word32,
{-# LINE 60 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> peekByteOff hsc_ptr 56) |],
{-# LINE 61 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[| (\hsc_ptr -> pokeByteOff hsc_ptr 56) |]) ]
{-# LINE 62 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
[''Show, ''Storable]
data FTag
type F = Ptr FTag
foreign import ccall "vkCreateFramebuffer" create ::
Device.D -> Ptr CreateInfo -> Ptr AllocationCallbacks.A -> Ptr F ->
IO Int32
{-# LINE 70 "src/Gpu/Vulkan/Framebuffer/Core.hsc" #-}
foreign import ccall "vkDestroyFramebuffer" destroy ::
Device.D -> F -> Ptr AllocationCallbacks.A -> IO ()