Matrix.copy added and used in converters, Matrix.Dispose

Author: kirillgarbar

src/GraphBLAS-sharp.Backend/Matrices.fs

@@ -23,6 +23,11 @@ type Matrix<'a when 'a: struct> =
         | MatrixCSR matrix -> matrix.ColumnCount
         | MatrixCOO matrix -> matrix.ColumnCount
 
+    member this.Dispose() =
+        match this with
+        | MatrixCSR matrix -> (matrix :> IDeviceMemObject).Dispose()
+        | MatrixCOO matrix -> (matrix :> IDeviceMemObject).Dispose()
+
 and CSRMatrix<'elem when 'elem: struct> =
     { Context: ClContext
       RowCount: int

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

@@ -4,20 +4,49 @@ open Brahma.FSharp.OpenCL
 open Microsoft.FSharp.Quotations
 
 module Matrix =
+    let copy (clContext: ClContext) =
+        let copy = GraphBLAS.FSharp.Backend.ClArray.copy clContext
+        let copyData = GraphBLAS.FSharp.Backend.ClArray.copy clContext
+
+        fun (processor: MailboxProcessor<_>) workGroupSize (matrix: Matrix<'a>) ->
+            match matrix with
+            | MatrixCOO m ->
+                let res =
+                    { Context = clContext
+                      RowCount = m.RowCount
+                      ColumnCount = m.ColumnCount
+                      Rows = copy processor workGroupSize m.Rows
+                      Columns = copy processor workGroupSize m.Columns
+                      Values = copyData processor workGroupSize m.Values
+                    }
+                MatrixCOO res
+            | MatrixCSR m ->
+                let res =
+                    { Context = clContext
+                      RowCount = m.RowCount
+                      ColumnCount = m.ColumnCount
+                      RowPointers = copy processor workGroupSize m.RowPointers
+                      Columns = copy processor workGroupSize m.Columns
+                      Values = copyData processor workGroupSize m.Values
+                    }
+                MatrixCSR res
+
     let toCSR (clContext: ClContext) workGroupSize =
         let toCSR = COOMatrix.toCSR clContext workGroupSize
+        let copy = copy clContext
 
         fun (processor: MailboxProcessor<_>) (matrix: Matrix<'a>) ->
             match matrix with
             | MatrixCOO m -> toCSR processor m |> MatrixCSR
-            | MatrixCSR _ -> matrix
+            | MatrixCSR _ -> copy processor workGroupSize matrix
 
     let toCOO (clContext: ClContext) workGroupSize =
         let toCOO = CSRMatrix.toCOO clContext
+        let copy = copy clContext
 
         fun (processor: MailboxProcessor<_>) (matrix: Matrix<'a>) ->
             match matrix with
-            | MatrixCOO _ -> matrix
+            | MatrixCOO _ -> copy processor workGroupSize matrix
             | MatrixCSR m -> toCOO workGroupSize processor m |> MatrixCOO
 
     let eWiseAdd (clContext: ClContext) (opAdd: Expr<'a -> 'a -> 'a>) workGroupSize =