{-# LINE 1 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} {-# LANGUAGE ImportQualifiedPost #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TupleSections #-} {-# LANGUAGE PatternSynonyms, ViewPatterns #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Gpu.Vulkan.Device.GroupDevice.Core ( CreateInfo, pattern CreateInfo, createInfoSType, createInfoPNext, createInfoPhysicalDeviceCount, createInfoPPhysicalDevices ) where import Foreign.Storable import Foreign.C.Struct import Foreign.C.Struct.TypeSynonyms import Data.Word import Gpu.Vulkan.PhysicalDevice.Core qualified as PhysicalDevice createInfoType :: Word32 {-# LINE 22 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} createInfoType = 1000070001 {-# LINE 23 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} struct "CreateInfo" (32) {-# LINE 25 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} 8 [ {-# LINE 26 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} ("sType", ''(), [| const $ pure () |], [| \p _ -> (\hsc_ptr -> pokeByteOff hsc_ptr 0) {-# LINE 28 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} p createInfoType |]), ("pNext", ''PtrVoid, [| (\hsc_ptr -> peekByteOff hsc_ptr 8) |], {-# LINE 31 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} [| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]), {-# LINE 32 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} ("physicalDeviceCount", ''Word32, {-# LINE 33 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} [| (\hsc_ptr -> peekByteOff hsc_ptr 16) |], {-# LINE 34 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} [| (\hsc_ptr -> pokeByteOff hsc_ptr 16) |]), {-# LINE 35 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} ("pPhysicalDevices", ''PhysicalDevice.PtrP, [| (\hsc_ptr -> peekByteOff hsc_ptr 24) |], {-# LINE 37 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} [| (\hsc_ptr -> pokeByteOff hsc_ptr 24) |]) ] {-# LINE 38 "src/Gpu/Vulkan/Device/GroupDevice/Core.hsc" #-} [''Show, ''Storable]