Vulkan/projects/utils/VulkanUtils.pas

unit VulkanUtils;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,
  Vulkan,
  uvkuTypes, uvkuAllocationHandler, uvkuDebugReporter,
  uvkuInstance, uvkuInstanceFactory,
  uvkuPhysicalDevice, uvkuDevice, uvkuDeviceFactory, uvkuDeviceMemory, uvkuQueue,
  uvkuSurface, uvkuSurfaceFactory,
  uvkuSwapChain, uvkuSwapChainFactory,
  uvkuImage, uvkuImageFactory, uvkuImageView, uvkuImageViewFactory,
  uvkuBuffer, uvkuBufferFactory, uvkuBufferView, uvkuBufferViewFactory,
  uvkuCommandPool, uvkuCommandPoolFactory, uvkuCommandBuffer,
  uvkuRenderPass, uvkuRenderPassFactory,
  uvkuFrameBuffer, uvkuFrameBufferFactory,
  uvkuDescriptorSetLayout, uvkuDescriptorSetLayoutFactory,
  uvkuShaderModule, uvkuShaderModuleFactory,
  uvkuPipelineLayout, uvkuPipelineLayoutFactory, uvkuPipelineCache, uvkuPipelineCacheFactory, uvkuPipeline, uvkuPipelineFactory,
  uvkuUtils;

type
  { Types }
  PVkCharArr                                = uvkuTypes.PVkCharArr;
  TVkPhysicalDeviceArr                      = uvkuTypes.TVkPhysicalDeviceArr;
  TVkQueueFamilyPropertiesArr               = uvkuTypes.TVkQueueFamilyPropertiesArr;
  TVkSparseImageFormatPropertiesArr         = uvkuTypes.TVkSparseImageFormatPropertiesArr;
  TVkSurfaceFormatArr                       = uvkuTypes.TVkSurfaceFormatArr;
  TVkPresentModeArr                         = uvkuTypes.TVkPresentModeArr;
  TVkDisplayPropertiesArr                   = uvkuTypes.TVkDisplayPropertiesArr;
  TVkDisplayPlanePropertiesArr              = uvkuTypes.TVkDisplayPlanePropertiesArr;
  TVkDisplayArr                             = uvkuTypes.TVkDisplayArr;
  TVkDisplayModePropertiesArr               = uvkuTypes.TVkDisplayModePropertiesArr;
  TVkImageArr                               = uvkuTypes.TVkImageArr;
  TVkCommandBufferArr                       = uvkuTypes.TVkCommandBufferArr;
  TVkDescriptorSetLayoutBindingArr          = uvkuTypes.TVkDescriptorSetLayoutBindingArr;
  TVkDescriptorSetLayoutArr                 = uvkuTypes.TVkDescriptorSetLayoutArr;
  TVkPushConstantRangeArr                   = uvkuTypes.TVkPushConstantRangeArr;
  TVkPipelineShaderStageCreateInfoArr       = uvkuTypes.TVkPipelineShaderStageCreateInfoArr;
  TVkPipelineVertexInputStateCreateInfoArr  = uvkuTypes.TVkPipelineVertexInputStateCreateInfoArr;
  TVkAttachmentDescriptionArr               = uvkuTypes.TVkAttachmentDescriptionArr;
  TVkSubpassDescriptionArr                  = uvkuTypes.TVkSubpassDescriptionArr;
  TVkSubpassDependencyArr                   = uvkuTypes.TVkSubpassDependencyArr;
  TVkAttachmentReferenceArr                 = uvkuTypes.TVkAttachmentReferenceArr;
  TVkMemoryBarrierArr                       = uvkuTypes.TVkMemoryBarrierArr;
  TVkBufferMemoryBarrierArr                 = uvkuTypes.TVkBufferMemoryBarrierArr;
  TVkImageMemoryBarrierArr                  = uvkuTypes.TVkImageMemoryBarrierArr;

  TVkUint32List                             = uvkuTypes.TVkUint32List;
  TVkFloatList                              = uvkuTypes.TVkFloatList;
  TVkImageViewList                          = uvkuTypes.TVkImageViewList;
  TVkSamplerList                            = uvkuTypes.TVkSamplerList;
  TVkDescriptorSetLayoutList                = uvkuTypes.TVkDescriptorSetLayoutList;

  TvkuAllocationHandler                     = uvkuAllocationHandler.TvkuAllocationHandler;

  TvkuDebugReporter                         = uvkuDebugReporter.TvkuDebugReporter;
  TvkuConsoleDebugReporter                  = uvkuDebugReporter.TvkuConsoleDebugReporter;

  { Instance }
  TvkuInstance                          = uvkuInstance.TvkuInstance;
  TvkuInstanceFactory                   = uvkuInstanceFactory.TvkuInstanceFactory;

  { Device }
  TvkuPhysicalDevice                    = uvkuPhysicalDevice.TvkuPhysicalDevice;
  TvkuDevice                            = uvkuDevice.TvkuDevice;
  TvkuDeviceFactory                     = uvkuDeviceFactory.TvkuDeviceFactory;
  TvkuDeviceMemory                      = uvkuDeviceMemory.TvkuDeviceMemory;
  TvkuQueue                             = uvkuQueue.TvkuQueue;

  { Surface }
  TvkuSurface                           = uvkuSurface.TvkuSurface;
  TvkuSurfaceFactory                    = uvkuSurfaceFactory.TvkuSurfaceFactory;

  { SwapChain }
  TvkuSwapChain                         = uvkuSwapChain.TvkuSwapChain;
  TvkuSwapChainFactory                  = uvkuSwapChainFactory.TvkuSwapChainFactory;

  { Image }
  TvkuImage                             = uvkuImage.TvkuImage;
  TvkuImageFactory                      = uvkuImageFactory.TvkuImageFactory;
  TvkuImageView                         = uvkuImageView.TvkuImageView;
  TvkuImageViewFactory                  = uvkuImageViewFactory.TvkuImageViewFactory;

  { Buffer }
  TvkuBuffer                            = uvkuBuffer.TvkuBuffer;
  TvkuBufferFactory                     = uvkuBufferFactory.TvkuBufferFactory;
  TvkuBufferView                        = uvkuBufferView.TvkuBufferView;
  TvkuBufferViewFactory                 = uvkuBufferViewFactory.TvkuBufferViewFactory;

  { Commands }
  TvkuCommandPool                       = uvkuCommandPool.TvkuCommandPool;
  TvkuCommandPoolFactory                = uvkuCommandPoolFactory.TvkuCommandPoolFactory;
  TvkuCommandBuffer                     = uvkuCommandBuffer.TvkuCommandBuffer;

  { RenderPass }
  TvkuRenderPass                        = uvkuRenderPass.TvkuRenderPass;
  TvkuRenderPassFactory                 = uvkuRenderPassFactory.TvkuRenderPassFactory;

  { FrameBuffer }
  TvkuFrameBuffer                       = uvkuFrameBuffer.TvkuFrameBuffer;
  TvkuFrameBufferFactory                = uvkuFrameBufferFactory.TvkuFrameBufferFactory;

  { DescriptorSetLayout }
  TvkuDescriptorSetLayout               = uvkuDescriptorSetLayout.TvkuDescriptorSetLayout;
  TvkuDescriptorSetLayoutFactory        = uvkuDescriptorSetLayoutFactory.TvkuDescriptorSetLayoutFactory;

  { Shader Modules }
  TvkuShaderModule                      = uvkuShaderModule.TvkuShaderModule;
  TvkuShaderModuleFactory               = uvkuShaderModuleFactory.TvkuShaderModuleFactory;

  { Pipeline }
  TvkuPipelineLayout                    = uvkuPipelineLayout.TvkuPipelineLayout;
  TvkuPipelineLayoutFactory             = uvkuPipelineLayoutFactory.TvkuPipelineLayoutFactory;
  TvkuPipelineCache                     = uvkuPipelineCache.TvkuPipelineCache;
  TvkuPipelineCacheFactory              = uvkuPipelineCacheFactory.TvkuPipelineCacheFactory;
  TvkuPipeline                          = uvkuPipeline.TvkuPipeline;
  TvkuGraphicsPipeline                  = uvkuPipeline.TvkuGraphicsPipeline;
  TvkuGraphicsPipelineFactory           = uvkuPipelineFactory.TvkuGraphicsPipelineFactory;
  TvkuComputePipeline                   = uvkuPipeline.TvkuComputePipeline;
  TvkuComputePipelineFactory            = uvkuPipelineFactory.TvkuComputePipelineFactory;

  { Utils }
  TvkuException                         = uvkuUtils.TvkuException;
  TvkuErrorException                    = uvkuUtils.TvkuErrorException;
  TvkuInvalidFuncPtrException           = uvkuUtils.TvkuInvalidFuncPtrException;

  function vkExtent2D(const X, Y: VkUint32): TVkExtent2D;
  function vkExtent3D(const X, Y, Z: VkUint32): TVkExtent3D;

implementation

function vkExtent2D(const X, Y: VkUint32): TVkExtent2D;
begin
  result.width  := x;
  result.height := y;
end;

function vkExtent3D(const X, Y, Z: VkUint32): TVkExtent3D;
begin
  result.width  := x;
  result.height := y;
  result.depth  := z;
end;

end.