From cec2b3872b99aa605cd471cb28bd5ca771c5b36c Mon Sep 17 00:00:00 2001
From: Martin <mautner@vrvis.at>
Date: Mon, 17 Jun 2024 14:00:04 +0200
Subject: [PATCH] [Vulkan] Remove CommandResources.fs

---
 .../Aardvark.Rendering.Vulkan.fsproj          |  1 -
 .../Resources/CommandResources.fs             | 90 -------------------
 2 files changed, 91 deletions(-)
 delete mode 100644 src/Aardvark.Rendering.Vulkan/Resources/CommandResources.fs

diff --git a/src/Aardvark.Rendering.Vulkan/Aardvark.Rendering.Vulkan.fsproj b/src/Aardvark.Rendering.Vulkan/Aardvark.Rendering.Vulkan.fsproj
index ebc6bfd75..cd0f70aa0 100644
--- a/src/Aardvark.Rendering.Vulkan/Aardvark.Rendering.Vulkan.fsproj
+++ b/src/Aardvark.Rendering.Vulkan/Aardvark.Rendering.Vulkan.fsproj
@@ -63,7 +63,6 @@
     <Compile Include="Resources\States.fs" />
     <Compile Include="Resources\Pipeline.fs" />
     <Compile Include="Resources\IndirectBuffer.fs" />
-    <Compile Include="Resources\CommandResources.fs" />
     <Compile Include="Resources\GeometryPool.fs" />
     <Compile Include="Resources\Query\QueryPool.fs" />
     <Compile Include="Resources\Query\Query.fs" />
diff --git a/src/Aardvark.Rendering.Vulkan/Resources/CommandResources.fs b/src/Aardvark.Rendering.Vulkan/Resources/CommandResources.fs
deleted file mode 100644
index 9138df100..000000000
--- a/src/Aardvark.Rendering.Vulkan/Resources/CommandResources.fs
+++ /dev/null
@@ -1,90 +0,0 @@
-namespace Aardvark.Rendering.Vulkan
-
-open System.Runtime.CompilerServices
-open Aardvark.Base
-open Aardvark.Rendering
-open Aardvark.Rendering.Vulkan
-open Microsoft.FSharp.NativeInterop
-
-#nowarn "9"
-// #nowarn "51"
-
-
-[<AbstractClass; Sealed; Extension>]
-type DeviceDrawCallExtensions private() =
-    [<Extension>]
-    static member CreateDrawCall(this : Device, indexed : bool, calls : list<DrawCallInfo>) =
-        DrawCall.Direct(indexed, List.toArray calls)
-
-
-    [<Extension>]
-    static member CreateDrawCall(this : Device, indexed : bool, buffer : IndirectBuffer) =
-        DrawCall.Indirect(indexed, buffer.Handle, buffer.Count)
-
-
-[<AbstractClass; Sealed; Extension>]
-type DeviceVertexBufferBindingExtensions private() =
-    [<Extension>]
-    static member CreateVertexBufferBinding(device : Device, first : int, buffersAndOffsets : array<Buffer * int64>) =
-        let value = new VertexBufferBinding(first, buffersAndOffsets |> Array.map (fun (b,o) -> b.Handle, o))
-        let ptr = NativePtr.alloc 1
-        NativePtr.write ptr value
-        ptr
-
-    [<Extension>]
-    static member UpdateVertexBufferBinding(device : Device, ptr : nativeptr<VertexBufferBinding>, first : int, buffersAndOffsets : array<Buffer * int64>) =
-        let old = NativePtr.read ptr
-        old.Dispose()
-
-        let value = new VertexBufferBinding(first, buffersAndOffsets |> Array.map (fun (b,o) -> b.Handle, o))
-        NativePtr.write ptr value
-
-    [<Extension>]
-    static member Delete(this : Device, ptr : nativeptr<VertexBufferBinding>) =
-        let old = NativePtr.read ptr
-        old.Dispose()
-        NativePtr.free ptr
-
-
-[<AbstractClass; Sealed; Extension>]
-type DeviceDescriptorSetBindingExtensions private() =
-    [<Extension>]
-    static member CreateDescriptorSetBinding(device : Device,
-                                             bindPoint : VkPipelineBindPoint, layout : PipelineLayout, first : int, sets : array<DescriptorSet>) =
-        let value = new DescriptorSetBinding(bindPoint, layout.Handle, first, sets |> Array.map (fun d -> d.Handle))
-        let ptr = NativePtr.alloc 1
-        NativePtr.write ptr value
-        ptr
-
-    [<Extension>]
-    static member UpdateDescriptorSetBinding(device : Device, ptr : nativeptr<DescriptorSetBinding>,
-                                             bindPoint : VkPipelineBindPoint, layout : PipelineLayout, first : int, sets : array<DescriptorSet>) =
-        let old = NativePtr.read ptr
-        old.Dispose()
-
-        let value = new DescriptorSetBinding(bindPoint, layout.Handle, first, sets |> Array.map (fun d -> d.Handle))
-        NativePtr.write ptr value
-
-    [<Extension>]
-    static member Delete(this : Device, ptr : nativeptr<DescriptorSetBinding>) =
-        let old = NativePtr.read ptr
-        old.Dispose()
-        NativePtr.free ptr
-
-[<AbstractClass; Sealed; Extension>]
-type DeviceIndexBufferBindingExtensions private() =
-    [<Extension>]
-    static member CreateIndexBufferBinding(device : Device, buffer : Buffer, t : VkIndexType) =
-        let value = new IndexBufferBinding(buffer.Handle, t)
-        let ptr = NativePtr.alloc 1
-        NativePtr.write ptr value
-        ptr
-
-    [<Extension>]
-    static member UpdateIndexBufferBinding(device : Device, ptr : nativeptr<IndexBufferBinding>, buffer : Buffer, t : VkIndexType) =
-        let value = new IndexBufferBinding(buffer.Handle, t)
-        NativePtr.write ptr value
-
-    [<Extension>]
-    static member Delete(this : Device, ptr : nativeptr<IndexBufferBinding>) =
-        NativePtr.free ptr