Annotate extension classes as abstract, sealed, and extension

Older F# compilers require an extension attribute on class level
as well as method level.

See: fsharp/fslang-suggestions#835

Author: hyazinthh

src/Aardvark.Rendering.Common/Camera/Frustum.fs

@@ -121,7 +121,7 @@ module Frustum =
     let inline bottom (f : Frustum) = f.bottom
     let inline top    (f : Frustum) = f.top
 
-[<Extension;AutoOpen>]
+[<AbstractClass; Sealed; Extension>]
 type CameraCSharpExtensions() =
     [<Extension>]
     static member ProjTrafo(f : Frustum) = Frustum.projTrafo f

src/Aardvark.Rendering.GL/Resources/Textures/TextureCopy.fs

@@ -233,7 +233,7 @@ module internal ImageCopyImplementation =
 [<AutoOpen>]
 module ContextTextureCopyExtensions =
 
-    [<Extension; AbstractClass; Sealed>]
+    [<AbstractClass; Sealed; Extension>]
     type ContextTextureCopyExtensions =
 
         // ================================================================================================================

src/Aardvark.Rendering.GL/Resources/Textures/TextureDownload.fs

@@ -294,7 +294,7 @@ module ContextTextureDownloadExtensions =
                 texture |> dl level slice offset size
         )
 
-    [<Extension; AbstractClass; Sealed>]
+    [<AbstractClass; Sealed; Extension>]
     type ContextTextureDownloadExtensions =
 
         [<Extension>]

src/Aardvark.Rendering.Vulkan/Core/Commands.fs

@@ -15,7 +15,7 @@ type Command() =
     abstract member Compatible : QueueFlags
     abstract member Enqueue : CommandBuffer -> unit
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type CommandExtensions() =
 
     [<Extension>]

src/Aardvark.Rendering.Vulkan/Core/Device/Device.fs

@@ -346,7 +346,7 @@ module IDeviceObjectExtensions =
     type IDeviceObject with
         member inline x.Device = x.DeviceInterface :?> Device
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type DeviceExtensions private() =
 
     [<Extension>]

src/Aardvark.Rendering.Vulkan/Core/Platform/DebugReport.fs

@@ -328,7 +328,7 @@ module private DebugReportHelpers =
 
                 objectTraces.AddOrUpdate(handle, stack, fun _ _ -> stack) |> ignore
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type InstanceDebugReportExtensions private() =
 
     [<Extension>]

src/Aardvark.Rendering.Vulkan/Resources/Buffers/Buffer.fs

@@ -531,7 +531,7 @@ module BufferView =
 // =======================================================================
 // Device Extensions
 // =======================================================================
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type BufferExtensions private() =
 
     [<Extension>]

src/Aardvark.Rendering.Vulkan/Resources/Buffers/IndirectBuffer.fs

@@ -106,7 +106,7 @@ module IndirectBuffer =
 
         new IndirectBuffer(buffer, b.Count)
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type ContextIndirectBufferExtensions private() =
 
     [<Extension>]

src/Aardvark.Rendering.Vulkan/Resources/Buffers/UniformBuffer.fs

@@ -124,7 +124,7 @@ module UniformBuffer =
             do! Command.Sync(b, VkPipelineStageFlags.TransferBit, VkAccessFlags.TransferWriteBit)
         }
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type ContextUniformBufferExtensions private() =
     [<Extension>]
     static member inline CreateUniformBuffer(this : Device, layout : FShade.GLSL.GLSLUniformBuffer) =

src/Aardvark.Rendering.Vulkan/Resources/GeometryPool.fs

@@ -75,7 +75,7 @@ module GeometryPoolUtilities =
             member x.OnLock c = rlock.OnLock c
             member x.OnUnlock c = rlock.OnUnlock c
 
-    [<AbstractClass; Sealed>]
+    [<AbstractClass; Sealed; Extension>]
     type DeviceMappedBufferExts private() =
 
 

src/Aardvark.Rendering.Vulkan/Resources/Image/ImageBuffer.fs

@@ -24,7 +24,7 @@ module internal ImageBuffer =
         let buffer = memory |> Buffer.create usage sizeInBytes
         new ImageBuffer(buffer, size, pitch, format)
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type ImageBufferExtensions private() =
 
     [<Extension>]

src/Aardvark.Rendering.Vulkan/Resources/Image/ImageDownload.fs

@@ -232,7 +232,7 @@ module ImageDownloadExtensions =
                 buffer.Dispose()
 
 
-    [<AbstractClass; Sealed>]
+    [<AbstractClass; Sealed; Extension>]
     type ContextImageDownloadExtensions private() =
 
         [<Extension>]

src/Aardvark.Rendering.Vulkan/Resources/Image/TensorImage.fs

@@ -343,7 +343,7 @@ module TensorImage =
         dst
 
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type DeviceTensorExtensions private() =
 
     [<Extension>]

src/Aardvark.Rendering.Vulkan/Resources/Query/QueryPool.fs

@@ -115,7 +115,7 @@ module QueryCommandExtensions =
                     VkRaw.vkCmdWriteTimestamp(cmd.Handle, pipelineFlags, pool.Handle, uint32 index)
             }
 
-[<AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type DeviceQueryPoolExtensions private() =
     [<Extension>]
     static member inline CreateQueryPool(device : Device, count : int) =

src/Aardvark.Rendering/Common/ClearValuesCSharp.fs

@@ -50,7 +50,7 @@ type ClearStencil =
     static member op_Explicit(value : ClearStencil) = uint8 value.Value
     static member op_Explicit(value : ClearStencil) = uint16 value.Value
 
-[<Extension; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type ClearDepthStencilExtensions private () =
 
     [<Extension>]
@@ -98,7 +98,7 @@ type Clear private () =
     static member Stencil(value : ClearStencil) =
         ClearValues.empty |> ClearValues.stencil value.Value
 
-[<Extension; AbstractClass; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type ClearValuesExtensions =
 
     [<Extension>]

src/Aardvark.Rendering/Common/Queries.fs

@@ -14,7 +14,7 @@ type IQuery =
     /// Finishes the query.
     abstract member End : unit -> unit
 
-[<Extension; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type IQueryExtensions private() =
 
     /// Resets the queries manually.

src/Aardvark.Rendering/Resources/Adaptive/AdaptiveBuffer.fs

@@ -30,7 +30,7 @@ type IAdaptiveBuffer =
     /// <param name="sizeInBytes">The number of bytes to write to the buffer.</param>
     abstract member Write : data: nativeint * offset: nativeint * sizeInBytes: nativeint -> unit
 
-[<Extension; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type AdaptiveBufferExtensions private() =
 
     /// <summary>

src/Aardvark.Rendering/Resources/Adaptive/AdaptiveCompactBuffer.fs

@@ -184,7 +184,7 @@ module internal CompactBufferImplementation =
             for w in pending.GetAndClear() do
                 w.Write(token)
 
-[<Extension; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type RuntimeAdaptiveCompactBufferExtensions private() =
 
     /// <summary>

src/Aardvark.Rendering/Resources/Adaptive/ManagedBuffer.fs

@@ -45,7 +45,7 @@ type IManagedBuffer =
 type IManagedBuffer<'T when 'T : unmanaged> =
     inherit IManagedBuffer
 
-[<Extension; Sealed>]
+[<AbstractClass; Sealed; Extension>]
 type ManagedBufferExtensions private() =
 
     /// <summary>

src/Aardvark.Rendering/Resources/Textures/Compression.fs

@@ -114,7 +114,7 @@ module BlockCompression =
 
             index
 
-    [<Extension; Sealed>]
+    [<AbstractClass; Sealed; Extension>]
     type private VolumeExtensions() =
 
         [<Extension>]

src/Aardvark.Rendering/Runtime/Raytracing/RaytracingRuntime.fs

@@ -80,7 +80,7 @@ and [<RequireQualifiedAccess>]
           RaytracingCommand.TransformLayout(texture, TextureLayout.ShaderWrite, dstLayout) ]
 
 
-[<Extension>]
+[<AbstractClass; Sealed; Extension>]
 type RaytracingTaskExtensions() =
 
     /// Updates the resources of the task without running it.

src/Aardvark.Rendering/Runtime/Raytracing/TraceToExtensions.fs

@@ -6,7 +6,7 @@ open FSharp.Data.Adaptive
 open System.Runtime.InteropServices
 open System.Runtime.CompilerServices
 
-[<Extension>]
+[<AbstractClass; Sealed; Extension>]
 type CompileTraceToExtensions() =
 
     /// <summary>

src/Aardvark.Rendering/Runtime/Runtime.fs

@@ -92,7 +92,7 @@ and IRuntime =
     /// Gets or sets the path of the shader cache.
     abstract member ShaderCachePath : Option<string> with get, set
 
-[<Extension>]
+[<AbstractClass; Sealed; Extension>]
 type RenderTaskRunExtensions() =
 
     [<Extension>]