add: ClContextExtensions

Author: IgorErin

src/GraphBLAS-sharp.Backend/Common/ClArray.fs

@@ -2,25 +2,9 @@ namespace GraphBLAS.FSharp.Backend.Common
 
 open Brahma.FSharp
 open Microsoft.FSharp.Quotations
+open GraphBLAS.FSharp.Backend.Objects.ClContext
 
 module ClArray =
-    type ClContext with
-        member this.CreateClArrayWithGPUOnlyFlags(size: int) =
-            this.CreateClArray(
-                size,
-                deviceAccessMode = DeviceAccessMode.ReadWrite,
-                hostAccessMode = HostAccessMode.NotAccessible,
-                allocationMode = AllocationMode.Default
-            )
-
-        member this.CreateClArrayWithGPUOnlyFlags(array: 'a []) =
-            this.CreateClArray(
-                array,
-                deviceAccessMode = DeviceAccessMode.ReadWrite,
-                hostAccessMode = HostAccessMode.NotAccessible,
-                allocationMode = AllocationMode.CopyHostPtr
-            )
-
     let init (initializer: Expr<int -> 'a>) (clContext: ClContext) workGroupSize =
 
         let init =

src/GraphBLAS-sharp.Backend/GraphBLAS-sharp.Backend.fsproj

@@ -17,6 +17,7 @@
     <Compile Include="Objects/Matrix.fs" />
     <Compile Include="Objects/Masks.fs" />
     <Compile Include="Objects/AtLeastOne.fs" />
+    <Compile Include="Objects\ClContextExtensions.fs" />
     <Compile Include="Quotes/SubReduce.fs" />
     <Compile Include="Quotes/Arithmetic.fs" />
     <Compile Include="Quotes/Convert.fs" />

src/GraphBLAS-sharp.Backend/Objects/ClContextExtensions.fs

@@ -0,0 +1,21 @@
+namespace GraphBLAS.FSharp.Backend.Objects
+
+open Brahma.FSharp
+
+module ClContext =
+    type ClContext with
+        member this.CreateClArrayWithGPUOnlyFlags(size: int) =
+            this.CreateClArray(
+                size,
+                deviceAccessMode = DeviceAccessMode.ReadWrite,
+                hostAccessMode = HostAccessMode.NotAccessible,
+                allocationMode = AllocationMode.Default
+            )
+
+        member this.CreateClArrayWithGPUOnlyFlags(array: 'a []) =
+            this.CreateClArray(
+                array,
+                deviceAccessMode = DeviceAccessMode.ReadWrite,
+                hostAccessMode = HostAccessMode.NotAccessible,
+                allocationMode = AllocationMode.CopyHostPtr
+            )

src/GraphBLAS-sharp.Backend/Vector/Vector.fs

@@ -8,7 +8,7 @@ open GraphBLAS.FSharp.Backend.Common
 open GraphBLAS.FSharp.Backend.Vector.Dense
 open GraphBLAS.FSharp.Backend.Vector.Sparse
 open GraphBLAS.FSharp.Backend.Objects
-open GraphBLAS.FSharp.Backend.Common.ClArray
+open GraphBLAS.FSharp.Backend.Objects.ClContext
 open GraphBLAS.FSharp.Backend.Objects.ClVector