Add impl of Matrix.tuples for COOMatrix

Author: dpanfilyonok

src/GraphBLAS-sharp/Backend/COOMatrix/GetTuples.fs

@@ -0,0 +1,14 @@
+namespace GraphBLAS.FSharp.Backend.COOMatrix
+
+open Brahma.FSharp.OpenCL.WorkflowBuilder.Basic
+open Brahma.FSharp.OpenCL.WorkflowBuilder.Evaluation
+open GraphBLAS.FSharp
+
+module internal GetTuples =
+    let from (matrix: COOMatrix<'a>) = opencl {
+        return {
+            RowIndices = matrix.Rows
+            ColumnIndices = matrix.Columns
+            Values = matrix.Values
+        }
+    }

src/GraphBLAS-sharp/GraphBLAS-sharp.fsproj

@@ -14,11 +14,14 @@
     <Compile Include="AlgebraicStructures.fs" />
     <Compile Include="GraphblasEvaluation.fs" />
     <Compile Include="Objects/Matrix.fs" />
+    <Compile Include="Objects\MatrixTuples.fs" />
     <Compile Include="Objects/Vector.fs" />
+    <Compile Include="Objects\VectorTuples.fs" />
     <Compile Include="Objects/Scalar.fs" />
     <Compile Include="Objects/Masks.fs" />
     <Compile Include="Backend/Common/Utils.fs" />
     <Compile Include="Backend/Common/Scan.fs" />
+    <Compile Include="Backend\COOMatrix\GetTuples.fs" />
     <Compile Include="Backend/COOMatrix/EWiseAdd.fs" />
     <Compile Include="Methods/Matrix.fs" />
     <Compile Include="Methods/Vector.fs" />
@@ -36,4 +39,4 @@
     </Content>
   </ItemGroup>
   <Import Project="..\..\.paket\Paket.Restore.targets" />
-</Project>
+</Project>

src/GraphBLAS-sharp/Methods/Matrix.fs

@@ -3,25 +3,6 @@ namespace GraphBLAS.FSharp
 open Brahma.FSharp.OpenCL.WorkflowBuilder.Basic
 open GraphBLAS.FSharp.Backend
 
-type MatrixTuples<'a> =
-    {
-        RowIndices: int[]
-        ColumnIndices: int[]
-        Values: 'a[]
-    }
-
-// ждём тайпклассов чтобы можно было вызывать synchronize для всех объектов,
-// для которых он реализован, не привязывая реализацию к классу (как стратегия)
-module MatrixTuples =
-    let synchronize (matrixTuples: MatrixTuples<'a>) =
-        opencl {
-            let! _ = ToHost matrixTuples.RowIndices
-            let! _ = ToHost matrixTuples.ColumnIndices
-            let! _ = ToHost matrixTuples.Values
-            return ()
-        }
-        |> EvalGB.fromCl
-
 [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
 module Matrix =
 
@@ -54,7 +35,15 @@ module Matrix =
     let copy (matrix: Matrix<'a>) : GraphblasEvaluation<Matrix<'a>> = failwith "Not Implemented yet"
     let resize (rowCount: int) (columnCount: int) (matrix: Matrix<'a>) : GraphblasEvaluation<Matrix<'a>> = failwith "Not Implemented yet"
     let nnz (matrix: Matrix<'a>) : GraphblasEvaluation<int> = failwith "Not Implemented yet"
-    let tuples (matrix: Matrix<'a>) : GraphblasEvaluation<MatrixTuples<'a>> = failwith "Not Implemented yet"
+
+    let tuples (matrix: Matrix<'a>) : GraphblasEvaluation<MatrixTuples<'a>> =
+        let matrixTuples =
+            match matrix with
+            | MatrixCOO coo -> COOMatrix.GetTuples.from coo
+            | _ -> failwith "Not Implemented"
+
+        graphblas { return! EvalGB.fromCl matrixTuples }
+
     let mask (matrix: Matrix<'a>) : GraphblasEvaluation<Mask2D> = failwith "Not Implemented yet"
     let complemented (matrix: Matrix<'a>) : GraphblasEvaluation<Mask2D> = failwith "Not Implemented yet"
     let synchronize (matrix: Matrix<'a>) : GraphblasEvaluation<unit> = failwith "Not Implemented yet"

src/GraphBLAS-sharp/Methods/Vector.fs

@@ -1,24 +1,5 @@
 namespace GraphBLAS.FSharp
 
-open Brahma.FSharp.OpenCL.WorkflowBuilder.Basic
-open Brahma.FSharp.OpenCL.WorkflowBuilder.Evaluation
-open GraphBLAS.FSharp.Backend
-
-type VectorTuples<'a> =
-    {
-        Indices: int[]
-        Values: 'a[]
-    }
-
-module VectorTuples =
-    let synchronize (vectorTuples: VectorTuples<'a>) =
-        opencl {
-            let! _ = ToHost vectorTuples.Indices
-            let! _ = ToHost vectorTuples.Values
-            return ()
-        }
-        |> EvalGB.fromCl
-
 [<CompilationRepresentation(CompilationRepresentationFlags.ModuleSuffix)>]
 module Vector =
 

src/GraphBLAS-sharp/Objects/MatrixTuples.fs

@@ -0,0 +1,23 @@
+namespace GraphBLAS.FSharp
+
+open Brahma.FSharp.OpenCL.WorkflowBuilder.Basic
+open Brahma.FSharp.OpenCL.WorkflowBuilder.Evaluation
+
+type MatrixTuples<'a> =
+    {
+        RowIndices: int[]
+        ColumnIndices: int[]
+        Values: 'a[]
+    }
+
+// ждём тайпклассов чтобы можно было вызывать synchronize для всех объектов,
+// для которых он реализован, не привязывая реализацию к классу (как стратегия)
+module MatrixTuples =
+    let synchronize (matrixTuples: MatrixTuples<'a>) =
+        opencl {
+            let! _ = ToHost matrixTuples.RowIndices
+            let! _ = ToHost matrixTuples.ColumnIndices
+            let! _ = ToHost matrixTuples.Values
+            return ()
+        }
+        |> EvalGB.fromCl

src/GraphBLAS-sharp/Objects/VectorTuples.fs

@@ -0,0 +1,19 @@
+namespace GraphBLAS.FSharp
+
+open Brahma.FSharp.OpenCL.WorkflowBuilder.Basic
+open Brahma.FSharp.OpenCL.WorkflowBuilder.Evaluation
+
+type VectorTuples<'a> =
+    {
+        Indices: int[]
+        Values: 'a[]
+    }
+
+module VectorTuples =
+    let synchronize (vectorTuples: VectorTuples<'a>) =
+        opencl {
+            let! _ = ToHost vectorTuples.Indices
+            let! _ = ToHost vectorTuples.Values
+            return ()
+        }
+        |> EvalGB.fromCl